Эта программа выполняется на УКНЦ за 4мин.10сек, на Форманте (Корвет) ПК 8020 за 10мин.40сек. Довольно быстрый Бейсик.
Эта программа выполняется на УКНЦ за 4мин.10сек, на Форманте (Корвет) ПК 8020 за 10мин.40сек. Довольно быстрый Бейсик.
Орион-512, Вектор Старт-1200
Все о БК ДВК УКНЦ VAX Alpha
Архив ПО для ретрокомпьютеров
предоставляю бесплатный хостинг на PDP-11.RU для проектов о ретрокомпьютерах
не могу сказать точно сколько бейсиков опробовали владельцы МС 1502 и Поиска (я вспомнил, что он тоже участвовал в тесте)
но я не случайного говорю, что задача была вычислительная ибо тут как раз сильно видно преимущество 16ти разрядных машин.
собственно можно же повторить ? то было в 93ем, сейчас 2020й ;-)
Все о БК ДВК УКНЦ VAX Alpha
Архив ПО для ретрокомпьютеров
предоставляю бесплатный хостинг на PDP-11.RU для проектов о ретрокомпьютерах
На реале, к сожалению, проверить не могу, попробовал в эмуляторах (pce-ibmpc и emu). В конфиге pce-ibmpc проц 8088 с частотой соответствующей 4.77. В emu конфиг Поиска. Не думаю, что это очень точные по скорости эмуляторы, но некое представление составить можно. Quick Basic 4.5, генерировал стэндэлон exe (34 килобайта, т.е. запустится на любой PC). pce-ibmpc - 3:10; emu - 3:15.
Последний раз редактировалось ivagor; 28.04.2020 в 07:24.
Прочитал, что для УКНЦ есть Турбо Бейсик, интересно быстродействие откомпилированной им программы.
одно время даже хотели с сотоварищами в отдельную тему его вытащить, но большого интереса к нему проявлено не было.
http://hobot.pdp-11.ru/ukdwk_archive...turboBAS_uknc/
- - - Добавлено - - -
УК-НЦшный .ASC - что бы можно было "перетащить" и запустить на БК0010-01 Вильнюс-Бейсике например.
картинка тут > https://zx-pk.ru/threads/31557-bejsi...=1#post1059962Код:10 SCREEN 2 11 FA=3.333 20 FOR X=-20 TO 130 STEP 5 30 FOR Y=0 TO 200 40 GOSUB 120 50 NY=Y-X*.5+80 51 NZ=Z+X*0.6+80 60 LINE(NY,NZ)-(NY,199),0 70 IF Y=0 THEN PSET(NY,NZ) ELSE LINE(PY,PZ)-(NY,NZ) 80 PY=NY 81 PZ=NZ 90 NEXT Y 100 NEXT X 110 GOTO 110 120 REM FUNCTION 130 Z=Y*.1 131 XT=X*.1 132 YT=(Y+120)*.06 140 IF XT<0 OR XT>10 THEN RETURN 150 IF XT<-FA*(YT-10)+10 OR XT<FA*(YT-10)-16.66666 THEN RETURN 160 IF XT<-FA*(YT-10)+16.66666 OR XT<FA*(YT-10)-10 OR (XT>6 AND XT<8) THEN Z=-20 170 RETURN
Последний раз редактировалось hobot; 28.04.2020 в 21:07.
ivagor(28.04.2020)
В UKNCBTL Турбо Бейсик нарисовал за 1:50
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)