XONIX под СМ-4

[form]

Вот как выглядит обработка кодов прямого позиционирования курсора в КСМ

Лень мне смотреть. Вариантов может быть множество, но так или иначе, никакого стандарта на VT52 нет и точное поведение предсказать не получится
Вот VT100 уже попадает под стандарты.

[form]

Разобрал немного архив, выложенный выше. В общем XONIX1.SAV - лучший вариант для дизассемблирования. Видимо самый грамотный и по размеру меньше всех (хотя фич видимо больше). А самое главное - работает через честные директивы и запускается в многотерминальной системе

Правда задержки реализованы циклами и потому (в отличие от гада который я из RSXного делал) работать на консоли параллельно ему не получится. Но открыть редактором какой-нибудь текст на отдельном терминале и поиграть на консоли параллельно - вполне

Использует непечатные с точки зрения VT52 символы. Навскидку ткнулся, что-то переделал - окружение показалось. Самого себя не вижу - видимо как раз хашиком был

На фотке запуск на TT3: в многотерминальной системе...

[form]

Начал разбор дизассемблера. По ходу дела возникла потребность запустить чтобы перед глазами было, а перегружаться лень (разборки как обычно делаю в RSX). Запихал в приватный диск RTEM, подцепил эмелятор VT52 на порт - пашет

[hobot]

Вот что то такое в архиве валяется давно !!!
Только вот файл с исходником возможно "битый" или содержит "недопустимые символы". И какие конкретно для успешной компиляции нужны библиотеки неведомо.
Из перечисленных EXTERNAL - в архиве прилеплен BOX.(MAC,PAS), на том же диске лежали и там ещё PITON.PAS имеется )))

[hobot]

Ага! Откопался 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;
------------------------ это только заголовок 
в прилепленном архиве исходник целиком.

[hobot]

вообще наверное про Паскаль после этого поста наверное отдельную тему в пору
завести - столько версий разных откопалось, затерялся "графический" вариант
учебного Паскаля от ИТО для УК-НЦ, отыщу и наверное что-то такое и будет )))

l--------------------------
Символьный (без граф. в оформлении) вариант учебного паскаля для ДВК нашёлся, а вот графический я совсем недавно
на каких-то дисках у себя в эмуле запускал ( с целью проверки ), вспомню найду.

[Advertiser]

[hobot]

в архиве прилеплен BOX.(MAC,PAS)

BOX - несказанно порадовал!!!



Окошечки!!! ) Круто! )))