Лень мне смотреть. Вариантов может быть множество, но так или иначе, никакого стандарта на VT52 нет и точное поведение предсказать не получится :)Цитата:
Сообщение от Patron
Вот VT100 уже попадает под стандарты.
Вид для печати
Лень мне смотреть. Вариантов может быть множество, но так или иначе, никакого стандарта на VT52 нет и точное поведение предсказать не получится :)Цитата:
Сообщение от Patron
Вот VT100 уже попадает под стандарты.
Разобрал немного архив, выложенный выше. В общем XONIX1.SAV - лучший вариант для дизассемблирования. Видимо самый грамотный и по размеру меньше всех (хотя фич видимо больше). А самое главное - работает через честные директивы и запускается в многотерминальной системе :)
Правда задержки реализованы циклами и потому (в отличие от гада который я из RSXного делал) работать на консоли параллельно ему не получится. Но открыть редактором какой-нибудь текст на отдельном терминале и поиграть на консоли параллельно - вполне :)
Использует непечатные с точки зрения VT52 символы. Навскидку ткнулся, что-то переделал - окружение показалось. Самого себя не вижу - видимо как раз хашиком был :)
На фотке запуск на TT3: в многотерминальной системе...
Начал разбор дизассемблера. По ходу дела возникла потребность запустить чтобы перед глазами было, а перегружаться лень (разборки как обычно делаю в RSX). Запихал в приватный диск RTEM, подцепил эмелятор VT52 на порт - пашет :)
Вот что то такое в архиве валяется давно !!!
Только вот файл с исходником возможно "битый" или содержит "недопустимые символы". И какие конкретно для успешной компиляции нужны библиотеки неведомо.
Из перечисленных EXTERNAL - в архиве прилеплен BOX.(MAC,PAS), на том же диске лежали и там ещё PITON.PAS имеется )))
http://images.netbynet.ru/direct/071...0099a4acee.png
http://images.netbynet.ru/direct/b0c...6729e76055.png
Ага! Откопался RANDOM.PAS
Прилеплю сюда до кучи (что-бы просто не искать потом)Код:(*$E+ *)
TYPE
UNSIGNED=0..65535;
FUNCTION RANDOM(VAR SEED:UNSIGNED):REAL;
BEGIN { Random }
SEED := (SEED * 13077 + 6925) MOD 32768;
RANDOM := SEED / 32768.0
END { Random };
BEGIN
END.
<...>
PROGRAM RAND;
VAR
SEED:0..65535;
I:INTEGER;
FUNCTION RANDOM:REAL;
BEGIN /* RANDOM */
SEED:=(SEED*13077+6925)MOD 32768;
RANDOM:=SEED/32768.0
END /* RANDOM */;
BEGIN
FOR I:=1 TO 20 DO WRITELN(RANDOM)
END.
и PITON.PAS - хотя совсем недавно где-то я его видел? Кажется
на дискете АДОС для УК-НЦ?
Код:PROGRAM PITON; (*$A-*) (*$T-*)
VAR X,Y:ARRAY[1..100] OF INTEGER;
LV,LF,ER,GX,GY,ZX,ZY,D,I,S,KR,SCOR,HI,K,L:INTEGER;
PROM,LIT:CHAR;
RPR: REAL;
------------------------ это только заголовок
в прилепленном архиве исходник целиком.
вообще наверное про Паскаль после этого поста наверное отдельную тему в пору
завести - столько версий разных откопалось, затерялся "графический" вариант
учебного Паскаля от ИТО для УК-НЦ, отыщу и наверное что-то такое и будет )))
l--------------------------
Символьный (без граф. в оформлении) вариант учебного паскаля для ДВК нашёлся, а вот графический я совсем недавно
на каких-то дисках у себя в эмуле запускал ( с целью проверки ), вспомню найду.
BOX - несказанно порадовал!!!Цитата:
Сообщение от hobot
http://images.netbynet.ru/direct/bdb...c7fcea3e3a.png
Окошечки!!! ) Круто! )))