Разработка и история 80xxx Bench/Gamma

[CURSANT]

Вот и кончился у меня учебный год, а значит у меня будет много времени чтобы повыкладывать и сделать версий Gamma.
К слову 0.7 не может выйти полтора месяца из-за того что я в душе не чаю как исправить Duplicate definition, я приложил исходник, для тех кто умнее меня и сможет исправить это, а пока я сам попробую исправить, отпишусь как получится.

[uav]

CURSANT, так а что у Вас там с Loging? То Вы объявляете её как процедуру, то дальше в Settings она используется как переменная...

[luzga]

 Развернуть: 0_7_Fix.BAS

Код: Выделить всё

DECLARE SUB RunStressTest (screenMode AS INTEGER, modeName AS STRING, xRes AS INTEGER, yRes AS INTEGER)
DECLARE SUB ScreenChoiceStressTest ()
DECLARE SUB ScreenChoiceBenchmark ()
DECLARE SUB RunMDAStress ()
DECLARE SUB ShowAbout ()
DECLARE SUB Loging (modeName AS STRING, result AS STRING)
DECLARE SUB FirstLevel ()
DECLARE SUB RunMDABenchmark ()
DECLARE SUB WaitKey ()
DECLARE SUB RunBenchmark (screenMode AS INTEGER, modeName AS STRING, xRes AS INTEGER, yRes AS INTEGER)

REM === Добавлена переменная ===
DIM nLoging AS INTEGER

COLOR 7, 0

FirstLevel

END

SUB FirstLevel
CLS
    PRINT "Main Menu"
    PRINT "---------------------------------------"
    PRINT "Select option:"
    PRINT "1. Benchmarks"
   PRINT "2. Stress-tests"
    PRINT "3. Settings"
   PRINT "4. About program"
   PRINT "5. Exit the program"
    PRINT "---------------------------------------"
    PRINT
    INPUT "Your choice (1-4): ", choice

    SELECT CASE choice
   CASE 1
       ScreenChoiceBenchmark
   CASE 2
       ScreenChoiceStressTest
   CASE 3
       Settings
   CASE 4
       ShowAbout
   CASE 5   
       SCREEN 0
      END
    CASE ELSE
       PRINT "Invalid choice."
       FirstLevel
    END SELECT
END SUB

SUB Loging(modeName AS STRING, result AS STRING)
OPEN "LOG.TXT" FOR APPEND AS #99
PRINT #99, STRING$(60, "=")           
PRINT #99, "Benchmark succefuly ended!"
PRINT #99, "Date: "; DATE$
PRINT #99, "Time: "; TIME$
PRINT #99, "Screen-mode: "; modeName
PRINT #99, "Result: "; result
PRINT #99, STRING$(60, "-")
CLOSE #99
END SUB

SUB Settings
    CLS
    PRINT "Logging is currently ";
    IF nLoging = 1 THEN PRINT "ON" ELSE PRINT "OFF"
    PRINT
    PRINT "1. Turn OFF logging"
    PRINT "2. Turn ON logging"
    PRINT "3. Back"
    INPUT "Your choice (1-4): ", choice
   
    SELECT CASE choice
    CASE 1
         nLoging = 0
    CASE 2
       nLoging = 1
    CASE 3
       FirstLevel
    END SELECT
    Settings   
END SUB

SUB RunBenchmark (screenMode AS INTEGER, modeName AS STRING, xRes AS INTEGER, yRes AS INTEGER)
    DIM startTime AS SINGLE, endTime AS SINGLE
    DIM i AS INTEGER
    DIM col AS INTEGER, border AS INTEGER
    DIM result AS STRING
   DIM lineTime AS SINGLE, fillTime AS SINGLE, circleTime AS SINGLE

    SCREEN screenMode
    CLS

    LOCATE 1, 1
    PRINT "Testing in "; modeName; " mode..."
    PRINT "Screen resolution: "; xRes; "x"; yRes
    PRINT "------------------------------"
    WaitKey
   
    CLS
    startTime = TIMER
    RANDOMIZE TIMER
    FOR i = 1 TO 1000
   LINE (RND * xRes, RND * yRes)-(RND * xRes, RND * yRes), INT(RND * 15) + 1
    NEXT i
    endTime = TIMER
   lineTime = endTime - startTime
    result = "###.######"
    CLS
    LOCATE 1, 1
    PRINT "Time to draw 1000 lines: ";
    PRINT USING result; endTime - startTime;
    PRINT " seconds"
    WaitKey

    CLS
    startTime = TIMER
    FOR i = 1 TO 100
   col = INT(RND * 15) + 1
   border = INT(RND * 15) + 1
   PAINT (RND * xRes, RND * yRes), col, border
    NEXT i
    endTime = TIMER
   fillTime = endTime - startTime
    CLS
    LOCATE 1, 1
    PRINT "Time to fill 100 areas: ";
    PRINT USING result; endTime - startTime;
    PRINT " seconds"
    WaitKey

    CLS
    startTime = TIMER
    FOR i = 1 TO 1000
   CIRCLE (RND * xRes, RND * yRes), RND * (yRes \ 8), INT(RND * 15) + 1
    NEXT i
    endTime = TIMER
   circleTime = endTime - startTime
    CLS
    LOCATE 1, 1
    PRINT "Time to draw 1000 circles: ";
    PRINT USING result; endTime - startTime;
    PRINT " seconds"
    SCREEN 0
    Loging modeName, "Lines: " + STR$(lineTime) + "s, Fill: " + STR$(fillTime) + "s, Circles: " + STR$(circleTime) + "s"
   WaitKey
END SUB

SUB RunMDABenchmark
    DIM startTime AS SINGLE, endTime AS SINGLE
    DIM i AS INTEGER
    DIM result AS STRING
   DIM timeValue AS SINGLE
   
   SCREEN 0
    CLS
   
   startTime = TIMER
   RANDOMIZE TIMER
    FOR i = 1 TO 1000
    PRINT "String ", i
    NEXT i
    endTime = TIMER
   timeValue = endTime - startTime
    result = "###.######"
    CLS
    LOCATE 1, 1
    PRINT "Time to print 1000 strings: ";
    PRINT USING result; timeValue;
    PRINT " seconds"
   Loging "MDA", STR$(timeValue) + " seconds (1000 strings)
   WaitKey
END SUB

SUB RunMDAStress
    DIM startTime AS SINGLE, endTime AS SINGLE
    DIM i AS INTEGER
    DIM result AS STRING
   SCREEN 0
    CLS
   
   WHILE 1 = 1
    FOR i = 1 TO 10000
    PRINT "String ", i
    NEXT i
   WEND
END SUB

SUB RunStressTest (screenMode AS INTEGER, modeName AS STRING, xRes AS INTEGER, yRes AS INTEGER)
    DIM startTime AS SINGLE, endTime AS SINGLE
    DIM i AS INTEGER
    DIM col AS INTEGER, border AS INTEGER
    DIM result AS STRING

    SCREEN screenMode
    CLS

    LOCATE 1, 1
    PRINT "Testing in "; modeName; " mode..."
    PRINT "Screen resolution: "; xRes; "x"; yRes
    PRINT "------------------------------"
    WaitKey
   
   WHILE 1 = 1
    CLS
    startTime = TIMER
    RANDOMIZE TIMER
    FOR i = 1 TO 1000
   LINE (RND * xRes, RND * yRes)-(RND * xRes, RND * yRes), INT(RND * 15) + 1
    NEXT i
    endTime = TIMER
    result = "###.######"
    CLS
    LOCATE 1, 1
    PRINT "Time to draw 1000 lines: ";
    PRINT USING result; endTime - startTime;
    PRINT " seconds"
    WaitKey

    CLS
    startTime = TIMER
    FOR i = 1 TO 100
   col = INT(RND * 15) + 1
   border = INT(RND * 15) + 1
   PAINT (RND * xRes, RND * yRes), col, border
    NEXT i
    endTime = TIMER
    CLS
    LOCATE 1, 1
    PRINT "Time to fill 100 areas: ";
    PRINT USING result; endTime - startTime;
    PRINT " seconds"
    WaitKey

    CLS
    startTime = TIMER
    FOR i = 1 TO 1000
   CIRCLE (RND * xRes, RND * yRes), RND * (yRes \ 8), INT(RND * 15) + 1
    NEXT i
    endTime = TIMER
    CLS
    LOCATE 1, 1
    PRINT "Time to draw 1000 circles: ";
    PRINT USING result; endTime - startTime;
    PRINT " seconds"
   WEND
END SUB


SUB ScreenChoiceBenchmark
   CLS
   PRINT "Select screen mode: "
   PRINT "1. VGA (640x480, 16 colors)"
    PRINT "2. EGA (640x350, 16 colors)"
    PRINT "3. VGA 256c (320x200, 256 colors)"
    PRINT "4. CGA (320x200, 4 colors)"
   PRINT "5. MDA(80x25, text only"
   PRINT "6. Hercules(720x348, 2 colors)"
   PRINT "7. Back to first menu"
   PRINT "8. Exit the program"
   PRINT "---------------------------------------"
    PRINT
    INPUT "Your choice (1-8): ", choice

    SELECT CASE choice
   CASE 1
      RunBenchmark 12, "VGA 640x480", 640, 480
       ScreenChoiceBenchmark
   CASE 2
       RunBenchmark 9, "EGA 640x350", 640, 350
       ScreenChoiceBenchmark
   CASE 3
       RunBenchmark 13, "VGA 256c 320x200", 320, 200
       ScreenChoiceBenchmark
   CASE 4
      RunBenchmark 1, "CGA 320x200", 320, 200
       ScreenChoiceBenchmark
   CASE 5
      RunMDABenchmark
      ScreenChoiceBenchmark
   CASE 6
      RunBenchmark 3, "Hercules 720x348", 720, 348
      ScreenChoiceBenchmark
   CASE 7
       FirstLevel
   CASE 8
       SCREEN 0
      END
   CASE ELSE
       PRINT "Invalid choice."
      WaitKey
   END SELECT
END SUB

SUB ScreenChoiceStressTest
   CLS
   PRINT "Select screen mode: "
   PRINT "1. VGA (640x480, 16 colors)"
    PRINT "2. EGA (640x350, 16 colors)"
    PRINT "3. VGA 256c (320x200, 256 colors)"
    PRINT "4. CGA (320x200, 4 colors)"
   PRINT "5. MDA(80x25, text only"
   PRINT "6. Hercules(720x348, 2 colors)"
   PRINT "7. Back to first menu"
   PRINT "8. Exit the program"
   PRINT "---------------------------------------"
    PRINT
    INPUT "Your choice (1-8): ", choice

    SELECT CASE choice
   CASE 1
      RunStressTest 12, "VGA 640x480", 640, 480
       ScreenChoiceStressTest
   CASE 2
       RunStressTest 9, "EGA 640x350", 640, 350
       ScreenChoiceStressTest
   CASE 3
       RunStressTest 13, "VGA 256c 320x200", 320, 200
       ScreenChoiceStressTest
   CASE 4
      RunStressTest 1, "CGA 320x200", 320, 200
       ScreenChoiceStressTest
   CASE 5
       RunMDAStress
      ScreenChoiceStressTest
   CASE 6
      RunStressTest 3, "Hercules 720x348", 720, 348
      ScreenChoiceStressTest
   CASE 7
      FirstLevel
   CASE 8
       SCREEN 0
      END
   CASE ELSE
       PRINT "Invalid choice."
      WaitKey
   END SELECT
END SUB

SUB ShowAbout
    CLS
    WIDTH 80, 25

    COLOR 14
    PRINT TAB(28); "80xxx Bench (Gamma)"
    PRINT TAB(28); "Version 0.6.1"
    PRINT STRING$(80, "-")

    COLOR 11
    PRINT " This is a graphics benchmark/stress-test tool for testing"
    PRINT " VGA/EGA/PGA/CGA/MDA/Hercules capabilities on 80xxx systems."
   PRINT
    PRINT " Features:"
    PRINT "   - Line drawing speed test"
    PRINT "   - Area filling test"
    PRINT "   - Circle rendering test"
   PRINT "   - Loging your results"
    PRINT "   - Complex stress-testing your videocard"
   PRINT
    PRINT STRING$(80, "-")

    COLOR 7
    PRINT " Developed by CURSANT using QuickBasic 4.5"
   PRINT " *special thanks to uav and all Old-DOS.ru administration"
   PRINT
   PRINT STRING$(80, "-")
   PRINT
   PRINT " This program is distributed under the MIT license"
   PRINT " All the details are in the file LICENSE.md"
    PRINT STRING$(80, "=")
    WaitKey
   FirstLevel
END SUB

SUB WaitKey
    LOCATE 24, 1
    PRINT "Press any key to return to main menu...";
    WHILE INKEY$ = "": WEND
    LOCATE 24, 1
    PRINT SPACE$(79)
END SUB

[StoYazykov]

CURSANT, один нескромный вопрос: а почему бы вам, не писать свою Gamm'у на Цы?
Просто Бейсик, мне кажется, для бенчмарков и стресс-тестов - не очень подходит, и показания времени, будут завышены (ибо Бейсик).
Ещё лучше - на Ассемблере. Но это, уже язык для богов .

[CURSANT]

CURSANT, так а что у Вас там с Loging? То Вы объявляете её как процедуру, то дальше в Settings она используется как переменная...

И вправду, как я этого не заметил?

+ хочу кинуть свой огромный респект luzga за код.

CURSANT, один нескромный вопрос: а почему бы вам, не писать свою Gamm'у на Цы?
Просто Бейсик, мне кажется, для бенчмарков и стресс-тестов - не очень подходит, и показания времени, будут завышены (ибо Бейсик).

Да просто квик-бейсик и по некоторой части питон это, к сожалению, пока-что единственные языки которые я более-менее адекватно знаю, и лезть в С(особенно РЕТРО С) для меня будет равно самоубийству. Да даже с тем же пресловутым TASM'ом я несколько раз контактировал(и вполне успешно), а с С я вообще не контактировал.

[StoYazykov]

TASM'ом я несколько раз контактировал(и вполне успешно)

А что вы на нём писали? Интересно было бы глянуть...
P. S. TASM для меня - не особо удобен, я пишу на FASM'е.
Вообще, основные языки у меня - Си (с плюсами и без) и Ассемблер. Остальные (Бейсик, с которого я начинал, JS), я постепенно начинаю забывать за ненадобностью.
Но Си - всё же мой любимый язык. Ассемблер - некоторые вещи, на нём писать даже легче, чем на Цы. (Например, ОперационнуюСистему.)

[CURSANT]

А что вы на нём писали? Интересно было бы глянуть...

Насколько я помню я пытался написать что-то вроде отдельного модуля для низкоуровневого доступа к видеопамяти, но как то не пошло. Хотя может я и его и на MASM'е писал, так давно просто было.

P. S. TASM для меня - не особо удобен, я пишу на FASM'е.

Ну, знаете ли, это уже дело вкуса и технических возможностей пекарни

[CURSANT]

Всех с днем зашиты детей и с первым днем лета!1!11!!!

К слову я протестил код luzga и...теперь логирование вообще не работает.
Прикол в том что значение nLogins даже когда ты выбираешь включить логирование НЕ меняется и оно так и остается выключенным.
Пока думаю как это исправить, параллельно выкладывая по 5-10 файлов.

[luzga]

CURSANT, Так кто программист, Пушкин? Я решил синтаксис, логика ваша.
Логирование включили? Второй пункт:

Код: Выделить всё

Logging is currently OFF

1. Turn OFF logging
2. Turn ON logging
3. Back
Your choice (1-4):

Всё работает! Запускал проверку на : 3. VGA 256c (320x200, 256 colors)

 Развернуть: LOG.txt

Код: Выделить всё

============================================================
Benchmark succefuly ended!
Date: 06-02-2026
Time: 06:47:10
Screen-mode: VGA 256c 320x200
Result: Lines:  5.078125E-02s, Fill:  2.371094s, Circles:  0s
------------------------------------------------------------


[CURSANT]

Мда, уж не думал что когда я выкладывал 0.6.1 в середине апреля 2026 что выложу 0.7 я полумертвый уже в начале июня...

Теперь, после публикации 0.7 остается 2 насущних вопроса, а начну я с вопроса А что там с будущим проекта?

Ну в общих чертах примерно все уже предопределено, завести околофлудильный TG-канал для фанатов и просто интересующихся и следящих за развитием моей программы, ввести адекватную поддержку SVGA, возможно тестов для процессоров с использованием чисел с плавающей запятой, отказ от хостирования на GitHub и создания собственного http-сайта, чисто для того чтобы там прогу хостить, чтобы люди могли качать оттуда.

Сразу скажу, я не гарантирую выполнения всего того что я наговорил выше, планы всегда могут поменяться!

А вторым вопросом который гложил меня сильнее даже будущего проекта это возвращение на Linux.

Начну наверно с того почему я вообще хочу вернуться на Linux. История эта ведет начало еще в мае прошлого года, сидел я тогда на Pentium G870, 4 гигах ОЗУ и временно сидел не на своей Radeon HD 4870, а на офисной затычке NVIDIA, которая, кстати почему то маскировалась под ATI Radeon HD 3450. Мне срочно была нужна новая ОС так как даже облегченная tiny10 неистово лагала(а еще грузилась по 4-5 минут) и сразу откинув более старые редакции Windows, я решил прибегнуть к радикальным мерам и впервые для себя тогдашнего попробовать Linux. Выбрал я в качестве данной цели xubuntu, помогли мне в данном выборе официальный сайт xubuntu и пару сторонних статеек, восхваляющие быстродействие данного дистрибутива(извините любители lubuntu).
И когда я впервые установил xubuntu, я признаю, это была любовь с первого взгляда потому что linux и собственно данный дистрибутив дал мне принципиально новый опыт работы с операционными системами, чем я очень был доволен.
Плюс я тогдашний был крайне удивлен что ОС может иметь в себе:

- крутой дизайн с закосом под MacOS
- встроенный офисный паке, да не абы какой, а LibreOffice
- и даже нормальный встроенный браузер(мой любимый Firefox, с которого я и пишу это сообщение)

Посидел я на ней всего неделю(ко мне позже приехали мои комплектующие для апгрейда с Урала, насколько я помню), но, боже это была лучшая неделя в моей жизни и я даже сейчас не шучу.

И казалось бы, ставь себе xubuntu и установи все свои бывшие программы и кайфуй от жизни...

Но в хату резко вошел CachyOS

Для тех кто не в курсе: CachyOS это дистрибутив Arch Linux, созданный в 2021 году и расфоршенный в 2025 году, как и в западном техносообществе, так и в СНГшном, а все из-за windows-подобного дизайна, простой установки приложений, и оптимизации работу ЦПУ с кастомным kernel. Вон даже говорят настолько оптимизированной что, цитирую "CachyOS обогнал Arch, Ubuntu и Pop!_OS в тесте производительности".

Казалось бы, исходя из данных аргументов можно смело ставить CachyOS, НО!

Ну во первых, CachyOS обогнал Arch, Ubuntu и Pop!_OS в тесте производительности на системе с СЕРВЕРНЫМ Threadripper 9980X, да и сам дистрибутив изначально создавался и оптимизировался именно для современных процессоров, а у меня...ну буквально каждая часть ПК старше 10 лет(Хотя SSD может и моложе, но погоды это не делает). Т.е шанс того что система будет работать нестабильно не равен 0.

Во вторых, на дизайн, особенно windows-подобный как и на простую установку я клал болт, + дизайн xubuntu мне заходит больше

Правда, я немного уже пытался на SSD ставить xubuntu, и после установке он просто-напросто не может произвести первый запуска системы, причины этого я не знаю, может через LiveCD перед установкой SSD надо форматнуть на Ext, но если ничего не выйдет с xubuntu, так уж и быть я поставлю CachyOS.

Намерен я серьезно, помимо того что я возьму все свои важные данные я их сжам в .7z архиве(потому что в исхожном виде они весят 20+ ГБ, а моя флешка на 32ГБ), плюс я подготовлю образ LiveCD, и Windows 8.0. Вы наверно спросите почему же 8.0, она же полное днище, а я вам отвечу что я один из немногих кто реально любит оригинальную Windows 8.0 и оригинального Metro UI.
По ходу дела буду отписываться о результате, а вам я желаю долгой и счастливую жизнь.

[CURSANT]

Я честно думал xubuntu мне знатно мозги попудрит с учетом того что я уже не раз его пытался ставить на ЭТОМ компьютере именно на ЭТОТ SSD и он не хотел запускаться от слова совсем...
Он установился с первого раза. Пока что в экпресс-режиме буду восстанавливать все свои програмки и потехонечку снова адаптироваться к linux-овским реалям.

P.S. Почему эти новые обои xubuntu мне напомнили BolgenOS, lol

[uav]

CURSANT, может, создать про это отдельную тему? Или эту переименовать? А то вроде тема по названию про 80xxx Bench/Gamma, а по сути - не совсем.

[CURSANT]

CURSANT, может, создать про это отдельную тему? Или эту переименовать? А то вроде тема по названию про 80xxx Bench/Gamma, а по сути - не совсем.

Вот поэтому я и хочу создать ТГК, а то количество околофлудильного контента даже меня уже поражает

[.::. Typucm .::.]

можно и опг, особая программная группа
(в некоторых одареных конторах подразделения так всерьез называют чтобы сокращения так было, в рамках структуры конторы)