PASCAL + MACRO11 (УКНЦ-ДВК).

Цитата:

Сообщение от Oleg N. Cher

Ну, это едва ли не самая серьёзная проблема тут. В остальном инструмент очень хороший, простой.
С нативным Си честно не хочется заморачиваться. С каким-то недопиленным GCC тоже, тем более, Вы помогать не хотите ;-)

Учитывая отсутствие желания учить PDP-11 ассемблер... Предложение "помогать" звучит как "сделайте, пожалуйста, за меня. А то я не знаю как, и не хочу разбираться в деталях".

По части "допилить GCC". Понимаю, разбираться с GNU toolchain для PDP-11 для настройки кросс-компилятора под себя - это время. Плюс надо бы написать доп. инструменты, чтоб генерить выполняемый файл (SAV) для RT-11, например. Для переиспользования готовых наработок на MACRO-11 в GNU - так же нужно поработать, хотя бы в части конвертации MACRO-11 в GNU AS. Фактически, нужен пре-процессор из MACRO-11 в GNU AS.
Или можно сделать трансляцию *.OBJ, сгенерированных MACRO-11, в *.o (a.out формат). Это проще, чем препроцессор написать.

Цитата:

Сообщение от yu.zxpk

Учитывая отсутствие желания учить PDP-11 ассемблер...

Та ладно? А я сейчас чем, по-вашему, занимаюсь? Писать на Паскале я хочу потому, что я люблю языки высокого уровня. И игру выбрал специально такую, которая ляжет на ЯВУ. В идеале я бы писал на Обероне через трансляцию в Си, но уже ладно, пускай будет Паскаль.

Цитата:

Сообщение от yu.zxpk

По части "допилить GCC". Понимаю, разбираться с GNU toolchain для PDP-11 для настройки кросс-компилятора под себя - это время.

Вы меня отпугнули какой-то дикой терминологией про то, что там чего-то там нет. Оставим это специалистам. GCC для PDP-11 мёртв, как и OMSI Pascal.

А писать доп. инструменты и разбираться с форматами - я и так этим постоянно занимаюсь. Не знаю насколько меня хватит в плане творчества для УКНЦ. Интересных платформ много.

Кода разберетесь в каком формате сохранять бинарники для исходников... могу добавить в редактор. И во вкладку импорт, если объясните, что и откуда тырите.

S_V_B, подойдёт формат в виде циферок в директиве .WORD для MACRO-11, думаю. Я, правда, ещё не разобрался как хранятся битпланы для вывода той самой процедурой PUTSPR - или байт одного плана, за ним байт другого, или как-то иначе.

- - - Добавлено - - -

Всё-таки нарыл как правильно. Вот так работает:

http://i.piccy_.info/i9/24e4f31eb482...20134/OMSI.png

Как можно (и можно ли) в OMSI Pascal задать шестнадцатеричную константу?

И тот же самый вопрос про MACRO-11. Восьмеричные и длиннее, и непривычно.

Цитата:

Сообщение от Oleg N. Cher

И тот же самый вопрос про MACRO-11. Восьмеричные и длиннее, и непривычно.

Так или иначе, PDP-11 основан на восьмеричной системе, привыкайте.
В MACRO-11 можно включить постоянно другую дефолтную систему (директива .RADIX), но это создаст неожиданности для тех кто будет читать ваш код.
В выражениях можно использовать "^B...", "^D...", "^O..." для включения нужной системы счисления по месту.
Вообще по всем вопросам по MACRO-11 читайте "PDP-11 MACRO-11 Language Reference Manual", там это всё есть.

Код:

* переключ.режимов исчисления ^B - Binary ^C - Complement ^D - Decimal ^F - Floating ^O - Octal ^R - Radix50

Хрень какая. Всё есть, кроме хекса. :-(

Цитата:

Сообщение от Oleg N. Cher

Всё есть, кроме хекса.

На PDP-11 он нафик не нужен

Я с вас удивляюсь, господа. Восьмеричная система счисления вообще никак не зашита в проц PDP-11. Это вопрос привычки.

Цитата:

Сообщение от Oleg N. Cher

Хрень какая. Всё есть, кроме хекса. :-(

AA-KX10A-TC_PDP-11_MACRO-11_Reference_Manual_May88.pdf

6.4.1.2 Temporary Radix Control Operators
...
^Xn ; n is evaluated as a hexadecimal number

Цитата:

Сообщение от Oleg N. Cher

Восьмеричная система счисления вообще никак не зашита в проц

Я тебя щас ещё больше удивлю - шестнадцатиричная - тоже. Но с командами PDP-11 удобней пользоваться восьмиричной. Вот ей и пользуемся

- - - Добавлено - - -

Цитата:

Сообщение от yu.zxpk

^Xn ; n is evaluated as a hexadecimal number

Код:

TEST MACRO V05.06R Monday 16-Mar-20 Page 1 1 .TITLE TEST 2 .MCALL .EXIT 3 4 000000 000000G DATA: .WORD ^XABCD 5 6 000002 START: .EXIT 7 8 000002' .END START TEST MACRO V05.06R Monday 16-Mar-20 Page 1-1 Symbol table ABCD = ****** GX DATA 000000R START 000002R . ABS. 000000 000 (RW,I,GBL,ABS,OVR) 000004 001 (RW,I,LCL,REL,CON) Errors detected: 0 *** Assembler statistics Work file reads: 0 Work file writes: 0 Size of work file: 60 Words ( 1 Pages) Size of core pool: 13056 Words ( 51 Pages) Operating system: RT-11 Elapsed time: Unknown DK:TEST,DK:TEST=DK:TEST

- - - Добавлено - - -

Поправка - неправильно написал:

Код:

TEST MACRO V05.06R Monday 16-Mar-20 Page 1 1 .TITLE TEST 2 .MCALL .EXIT 3 4 000000 125715 DATA: .WORD ^X0ABCD 5 6 000002 START: .EXIT 7 8 000002' .END START TEST MACRO V05.06R Monday 16-Mar-20 Page 1-1 Symbol table DATA 000000R START 000002R . ABS. 000000 000 (RW,I,GBL,ABS,OVR) 000004 001 (RW,I,LCL,REL,CON) Errors detected: 0 *** Assembler statistics Work file reads: 0 Work file writes: 0 Size of work file: 60 Words ( 1 Pages) Size of core pool: 13056 Words ( 51 Pages) Operating system: RT-11 Elapsed time: Unknown DK:TEST,DK:TEST=DK:TEST

Цитата:

Сообщение от yu.zxpk

^Xn ; n is evaluated as a hexadecimal number

Было обрадовался. Но не работает.

http://i.piccy_.info/i9/a0cac7e3ee48...20134/FFFF.png

- - - Добавлено - - -

Ага, вот так работает:

Код:

.WORD ^X0FFFF

Спасибо.

Hunta, нет особой разницы - хекс или octal, мне вот хекс привычнее просто. Ну и короче.

Цитата:

Сообщение от Oleg N. Cher

Я с вас удивляюсь, господа. Восьмеричная система счисления вообще никак не зашита в проц PDP-11. Это вопрос привычки.

именно
те не надо фиксироваться на 16тиричной и считать ее более удобной. для PDP11 принята 8миричная и она удобна. для других систем употребляется 16тиричная и она удобна там.
я привык пользоваться и той и другой - и не вижу вообще проблемы. у меня в программах константы в четырех системах - в зависимости от удобства выражения.
так что ломайте привычки и эффект утенка, изучайте новое!

Ломаем, изучаем. :-)

Мне спрайты удобнее и короче задавать в хексе. Но если граф. редактор S_V_B умеет импортировать и экспортировать в octal, придётся в octal.

Как видим, пока OMSI Pascal радует. Ни с чем непреодолимым не столкнулись. Посмотрим, как дальше пойдёт.

Цитата:

Сообщение от Oleg N. Cher

Я с вас удивляюсь, господа. Восьмеричная система счисления вообще никак не зашита в проц PDP-11. Это вопрос привычки.

Есть всего 10 типов людей. Тех кто понимает двоичную систему и тех кто нет.
Если смотреть на PDP-11 как "а ну просто ещё одна машинка", тогда ну видимо да, похер конечно что там внутри.
А если например смотреть как выглядят команды в восьмеричной системе - есть определённая схема. Так что таки да, некоторым образом, зашита в проц.

Ну, чего там внутрях PDP накручено в кодировке команд - это тёмный лес. Но вот разбивать шестнадцатеричное число на байты, полубайты - несколько проще, чем восьмеричное. Просто растащил на разряды, каждый разряд обозначен знаком. В восьмеричной же системе придётся додумывать и учитывать заём.

Цитата:

Сообщение от Oleg N. Cher

чего там внутрях PDP накручено в кодировке команд - это тёмный лес.

Это в x86-x64 темный лес. А тут всё более чем прозрачно

Цитата:

Сообщение от Oleg N. Cher

Но вот разбивать шестнадцатеричное число на байты, полубайты - несколько проще, чем восьмеричное.

Как показывает практика, если константа не ложится на восьмеричную систему, то с большой долей вероятности наглядней её в двоичном представлении писать. Случаев, когда наглядней в шестнадцатиричной - достаточно мало

- - - Добавлено - - -

Цитата:

Сообщение от Oleg N. Cher

Но вот разбивать шестнадцатеричное число на байты,

Дело привычки. Я достаточно легко считаю в уме в восьмеричной системе и разбиваю слово на байты - не задумываясь. Вот обратно несколько дольше

Очень даже. Шестнадцатеричная система сводит смысл в записывании именно двоичной практически к нулю.
Разве что спрайты и маски расписывать, да и то одноцветные.

Цитата:

Сообщение от Oleg N. Cher

Шестнадцатеричная система сводит смысл в записывании именно двоичной практически к нулю.

Вот поэтому я ей и не пользуюсь практически. Шестнадцатиричной.

Цитата:

Сообщение от Oleg N. Cher

Но если граф. редактор S_V_B умеет импортировать и экспортировать в octal, придётся в octal.

На самом деле спрайты в HEX нагляднее, в восьмеричной сделал чтобы "староверы" не возмущались. Хотя тебе какая разница ты же не вручную спрайты правишь, можно в пять сек хоть в троичной сохранить:) Этож статичные данные, вставил и забыл.

SCAN коды клавиатуры УК-НЦ для использования в программах на Паскале.

SCAN коды клавиатуры УК-НЦ для использования в программах на Паскале.

Да! Хочется повысить эффективность опроса клавиатуры и иметь возможность использовать
в программах на Паскале системные "управляющие" кнопки. Есть вот такой исходник от
Alex_K (С) Scan-code of keys, "Alphaprog", 1993, который на выходе сканкоды выдаёт на экран :

Код:

.TITLE SCAN .IDENT /V01.00/ .MCALL .PRINT,.EXIT BLK: .WORD 0,32,0,0,0 BLK0: .WORD BLK,-1 CHAN2: MOV #BLK0,R0 MOV #5,R1 BR 2$ 1$: MOVB (R0)+,@#176676 2$: TSTB @#176674 BPL 2$ SOB R1,1$ RETURN START: MOV #777,AA MOVB #1,BLK+1 MOV #<$END-$BEGIN>,BLK+6 CALL CHAN2 TSTB BLK BEQ 1$ .PRINT #WARN .EXIT 1$: MOVB #20,BLK+1 MOV #$BEGIN,BLK+6 MOV #<$END-$BEGIN>,BLK+10 CALL CHAN2 MOVB #30,BLK+1 CALL CHAN2 AA: BR . MOVB #2,BLK+1 CALL CHAN2 .EXIT $BEGIN: MOV PC,R1 ADD #HEAD-.,R1 EMT 46 MTPS #200 CLR @#177700 CALL @#104054 MTPS #0 1$: TSTB @#177700 BPL 1$ MOV @#177702,R0 MOV R0,-(SP) MOV #3,R1 CLR R2 MOV PC,R3 ADD #NUM-.,R3 BR 3$ 2$: CLR R2 ROLB R0 ROLB R2 3$: ROLB R0 ROLB R2 ROLB R0 ROLB R2 ADD #60,R2 MOVB R2,(R3)+ SOB R1,2$ MOV PC,R1 ADD #NUM-.,R1 EMT 46 MOV (SP)+,R0 CMPB R0,#204 BNE 1$ MOV PC,R1 ADD #$END$-.,R1 EMT 46 BIS #100,@#177700 MOV #AA/2,@#177010 MOV #NOP,@#177014 RETURN HEAD: .BYTE 14,33,246,62,14 .ASCIZ /Scan-code of keys, "Alphaprog", 1993/<15><12> NUM: .ASCIZ /000 / $END$: .BYTE 33,246,61,15,12,0 .EVEN $END: WARN: .ASCIZ /?SCAN-F-No memory for load/ .END START

Вопрос к асм-программистам: возможно ли его переписать так, что бы сканкоды были
значением внешней функции для Паскаля или значением входящей переменной
внешней процедуры? И возможно ли в принципе?
Если для решения задачи какую-то часть кода нужно исполнять в осн. исходнике
- орг. вставку на асм. - главное, что бы заработало?
================================================== =====

Цитата:

Сообщение от Oleg N. Cher

Я с вас удивляюсь, господа. Восьмеричная система счисления вообще никак не зашита в проц PDP-11. Это вопрос привычки.

Совершенно согласен.

Я написал несколько эмуляторов PDP-11 - подобных машин (УКНЦ, Союз-Неон, 0515 и т.д.), но восьмеричной системой не пользуюсь и не думаю в ней. Только в шестнадцатиричной и десятичной.
И все прекрасно)

Цитата:

Сообщение от hobot

Вопрос к асм-программистам: возможно ли его переписать так, что бы сканкоды были
значением внешней функции для Паскаля или значением входящей переменной
внешней процедуры? И возможно ли в принципе?
Если для решения задачи какую-то часть кода нужно исполнять в осн. исходнике
- орг. вставку на асм. - главное, что бы заработало?

Ответ, очевидно: "возможно. переписывайте."

У себя пользуюсь вот этими двумя вызовами, думаю их вполне можно приспособить для вызова из Паскаля:
(осторожно, используются 8-ричные значения 8-[ ]

Код:

; Подпрограмма: Ожидание символа с клавиатуры: R1 = полученный символ WTKEY: TSTB @#177560 BPL WTKEY CLR R1 MOVB @#177562, R1 ; символ в R1 CMPB R1, #33 BNE RETN ESCKEY: TSTB @#177560 BPL ESCKEY MOVB @#177562, R1 ; символ в R1 BIS #15400,R1 ; #33 в верхний байт RETN: RETURN ; Подпрограмма: Получение символа с клавиатуры: флаг Z=0 = есть символ, R1 = полученный символ GETKEY: TSTB @#177560 ; есть символ? BPL 10$ ; нет символа => выходим MOVB @#177562, R1 ; символ в R1 CMPB R1, #33 ; Esc ? BEQ ESCKEY RETURN 10$: CLR R1 ; возвращаем пустой код клавиши RETURN

А можно спросить: зачем нужно делать CLR R1 перед MOVB @#177562, R1 ?

Я не стебаюсь, если что. Пытаюсь разобраться в местном асме. Вот здесь такая чистка регистра не делается:

Код:

TSTB @#177560 ; готовность есть? BPL CY1 ; символ не готов! INSYM: MOVB @#177562,R0 ; прочитать символ

Oleg N. Cher, вероятно он действительно лишний, остаток какого-то копипаста.

Если BIS #15400,R1 это действительно аналог операции OR на других процессорах и устанавливает только указанные биты, а прочие игнорирует, тогда CLR R1 всё-таки нужна - она обнуляет старший байт R1.

Но тогда подобная же операция нужна и в подпрограмме GETKEY. Смотрите. В GETKEY после MOVB @#^O177562,R1 старший байт R1 неопределён, и если полученный код Esc, то BIS просто наложит на него маску ^O15400 с неопределённым результатом. А если полученный код не Esc, то будет просто возврат с неопределённым же старшим байтом. Я всё правильно описал? Т.е. если бы старший байт был незначащий, тогда ладно. Но он ведь может иметь значащий код ^O33.

MOVB не так работает. он возьмёт старший бит от байта из источника, и раскопирует его вверх. Т.е. в верхнем байте будет либо 0, либо 255.
Может это как раз и осталось от времён когда я этого не понимал :-)

Нет ли идеи, почему вот такой код может зациклиться? И под отладчиком тоже.

Код:

WTKEY$: TSTB @#^O177560 ; Ready? BPL WTKEY$ ; No!

Ведь он же не под ПП работает?

http://i.piccy_.info/i9/ee0d6ac1ff06...20134/UKNC.png

- - - Добавлено - - -

Да, кнопки вовсю жму, эхо-печать работает. Но из самой функции WaitKey выхода нет:

Код:

FUNCTION WaitKey : INTEGER; EXTERNAL; VAR code: INTEGER; BEGIN WriteLn('Ready>'); REPEAT code := WaitKey; WriteLn('"', CHR(code), '"', code) UNTIL code = 32 END.

Цитата:

Сообщение от Oleg N. Cher

Нет ли идеи, почему вот такой код может зациклиться? И под отладчиком тоже.

Если хотите работать с регистрами канала К0, то необходимо сбросить бит разрешения прерывания в регистре 177560. А так возникает прерывание раньше, чем вы узнаете об установке бита готовности. А прерывание обрабатывает операционная система, она же и выводит эхо-печать. Перед выходом из программы бит разрешения прерывания надо установить.
Соответственно BIC #^O100,@#^O177560 - сброс бита разрешения прерываний, а BIS #^O100,@#^O177560 - установка бита разрешения прерываний.
Но всё это хорошо работает в однотерминальном SJ-мониторе, в многотерминальной системе могут быть проблемы.

Я не очень понял про многотерминальные системы. Есть ли какой-то другой более правильный способ опроса клавиатуры в RT-11? (с ожиданием нажатия, и без).

Цитата:

Сообщение от Oleg N. Cher

Есть ли какой-то другой более правильный способ опроса клавиатуры в RT-11?

.TTINR

Хобот, лови для Паскаля. Спасибо Никите и Alex_K

Код:

VAR crtflg: INTEGER; PROCEDURE CrtInit; BEGIN /*$C .TITLE CRT001 MOV @#^O177560, crtflg BIC #^O100, @#^O177560 */ END {CrtInit}; PROCEDURE CrtQuit; BEGIN /*$C MOV crtflg, @#^O177560 */ END {CrtQuit}; /*------------------------------- Cut here --------------------------------*/ FUNCTION GetKey : INTEGER; BEGIN /*$C .TITLE CRT002 .GLOBL RETKEY CLR R1 TSTB @#^O177560 ; is char? BPL RETN$ ; no char => return 0 RETKEY: MOVB @#^O177562, R1 ; A key code CMPB R1, #^O33 BNE RETN$ ESCKEY: TSTB @#^O177560 BPL ESCKEY MOVB @#^O177562, R1 ; char => low byte BIS #^O15400, R1 ; ^O33 => high byte RETN$: MOV R1, 12(SP) ; return result */ END {GetKey}; /*------------------------------- Cut here --------------------------------*/ FUNCTION WaitKey : INTEGER; BEGIN /*$C .TITLE CRT003 WTKEY$: TSTB @#^O177560 ; Ready? BPL WTKEY$ ; No! JMP RETKEY */ END {WaitKey};

- - - Добавлено - - -

CrtInit нужен чтобы переключить ввод с эха на опрос процедурами GetKey и WaitKey. CrtQuit возвращает ввод обратно - его надо вызывать перед выходом в ОС. Можно было бы попробовать вставить эти вызовы прямо в процедуры опроса. Но если WaitKey ещё как-то будет работать, то GetKey нет - потому что в процессе работы программы ввод будет хапать то ОС (с выводом эха), то сама GetKey. Поэтому только такой механизм.

У кого-нить есть OMSI Pascal, запатченный под возможность использовать в идентах символ "_"?

У кого-нить есть линкер и Macro-11, запатченные под иденты длиннее 6 символов? Это вообще возможно?

Цитата:

Сообщение от nzeemin

Ответ, очевидно: "возможно. переписывайте."

Благодарю, что отозвался, Никита, но тут хочется именно скан-коды на выходе, а через регистры или системный .TTYIN это ж даже @Titus могёт ))) (это шутка, как и про 8-ми я на свой счёт не воспринимаю)
В твоём варианте, кроме АР2 - в идеале надо бы ещё <ВК> двойной код отрабатывать ;-)

Цитата:

Сообщение от Oleg N. Cher

Я не очень понял про многотерминальные системы. Есть ли какой-то другой более правильный способ опроса клавиатуры в RT-11? (с ожиданием нажатия, и без).

При генерации RT-11 можно указать такую опцию, как "многотерминальная поддержка". Это для случая, когда к одному компьютеру подключено более одного терминала и эта опция обеспечивает поддержку этих терминалов на уровне системы. Возможность для программистов, чтобы всё было более-менее единообразно. Система поддерживает многотерминальные версии макрокоманд, кольцевой буфер терминала, отработку Ctrl/S, Ctrl/Q Ctrl/O стандартным образом.
Только я вот знаю только одну программу, которая пользуется этим функционалом - многотерминальный бэйсик. Он позволят на конфигурации без диспетчера памяти посадить за терминалы, как я видел, 4-х студентов, обеспечив им бэйсик ...
Имеет ли смысл многотерминальная поддержка на УКНЦ смысл? С первого взгляда не имеет, но кто его знает - вполне может возникнуть желание подцепить терминал на С2 и(или) на переделанный сетевой адаптер(токовая петля 20 ма, использовалось на УКНЦ входящих в комплект СВД ВУЗ, кои, как утверждалось, даже экспортировались в ГДР). :)

Цитата:

Сообщение от Alex

Только я вот знаю только одну программу, которая пользуется этим функционалом - многотерминальный бэйсик.

Я видел распечатку исходников многотерминального Паскаля для RT-11, на данный момент - распечатка передана на хранение в музей истории МИЭТа.

Со скан-кОдами клавиатуры для Паскаля, что то никто даже не проявил интерес, я ожидал, конечно, что такая возможность (буде реализованной) пригодилась бы всем сочувствующим, не только мне https://zx-pk.ru/threads/20444-pasca...=1#post1053516 - вопрос\запрос висит по ссылке с исходником

Цитата:

Сообщение от Oleg N. Cher

...
У кого-нить есть OMSI Pascal, запатченный под возможность использовать в идентах символ "_"?
У кого-нить есть линкер и Macro-11, запатченные под иденты длиннее 6 символов? Это вообще возможно?

Ответ нет на оба вопроса, ибо RADIX50. 3 символа помещаются в 16 bit integer, 6 символов - 32 бита (2 слова).

Пользуйте GNU binutils (asm, linker, etc). Но там нет Pascal. И нет MACRO11 библиотеки (смотрю доку на RT11)
Я делаю себе C функции или макросы препроцессора с asm вставками и EMT), инструкции макросов не такие мощные в GNU as, как в MACRO11.
В теории можно сделать конвертор из формата файлов OBJ в Files11 в *.o (a.out) для target=pdp11-dec-aout

неизвестный Паскаль - смотрим что там в архивах ???

Продолжаю изучать добытый @shattered софт.
Решил глянуть, что же там за
PAS1.LZS unknown pascal
Смотрим листинг

Код:

РАБОТАЕМ С АРХИВОМ: DK:PAS1.LZS [ 85] 13-26-88 ПОЛНЫЙ КАТАЛОГ АРХИВА Метод 'LZS', версия V02.01, буфер сжатия: 4096, общий каталог: НЕТ ---------- ---------- -------- --------- ------- ------------------- Имя файла блоков дата <байтов> сжатие адрес в архиве ---------- ---------- -------- --------- ------- ------------------- PAS1.SAV [ 52] 01-11-81 18996 29% [ 0]+ 16 PAS1.OBJ [ 91] 28-09-85 24182 48% [ 37]+ 84 ---------- ---------- -------- --------- ------- ------------------- 2 143 43520 41 % 85 HD7>RU PAS1 TEST,TT:=TEST TEST P A S C A L 13- -88 PAGE 1 ДВК "ЭЛЕКТРОНИКА НЦ 8020/2,3,4" LINE STMT LEVEL NEST SOURCE STATEMENT 1 PROGRAM TEST; 2 BEGIN 3 1 1 1 WRITELN('Ok'); 4 2 1 1 END. ERRORS DETECTED: 0 FREE MEMORY: 9861 WORDS ERRORS DETECTED: 0 FREE MEMORY: 9861 WORDS HD7>MAC TEST HD7>LIN TEST,PAS1 HD7>RU TEST Ok

В шапке есть этот вариант и похоже именно его @form патчил на предмет правильного
заголовка и современного календаря.

Идём дальше, по описанию есть ещё один архив
PASCAL.LZS unknown pascal
И вот с ним не всё однозначно,
программа транслятор с таким заголовком так же есть в шапке темы и
в архиве, но тот же тест в самом конце отказался запускаться, наверное
я просто не в курсе какой то специфики???
Смотрим листинг:

Код:

РАБОТАЕМ С АРХИВОМ: DK:PASCAL.LZS [ 323] 13-26-88 ПОЛНЫЙ КАТАЛОГ АРХИВА Метод 'LZS', версия V02.01, буфер сжатия: 4096, общий каталог: НЕТ ---------- ---------- -------- --------- ------- ------------------- Имя файла блоков дата <байтов> сжатие адрес в архиве ---------- ---------- -------- --------- ------- ------------------- PASFOR.SAV [ 40] 29-04-92 12675 38% [ 0]+ 16 PASIMP.SAV [ 36] 29-04-92 12612 32% [ 24]+ 420 PASIMP.PAS [ 42] 29-04-92 7643 65% [ 49]+ 248 STRING.PAS [ 6] 29-04-92 1134 64% [ 64]+ 228 ERROR.PAS [ 2] 29-04-92 0586 43% [ 66]+ 354 CSI.PAS [ 10] 29-04-92 2477 52% [ 67]+ 444 INTRPT.PAS [ 3] 29-04-92 0692 55% [ 72]+ 378 PASPRF.PAS [ 21] 29-04-92 3716 66% [ 74]+ 62 PCL.PAS [ 27] 29-04-92 5973 57% [ 81]+ 210 PDROMA.PAS [ 1] 29-04-92 0246 52% [ 93]+ 56 PDHANO.PAS [ 1] 29-04-92 0284 45% [ 93]+ 318 PDRAND.PAS [ 1] 29-04-92 0246 52% [ 94]+ 106 PDGRAF.PAS [ 1] 29-04-92 0284 45% [ 94]+ 368 PDBIOR.PAS [ 17] 29-04-92 2778 69% [ 95]+ 156 HYPHEN.PAS [ 7] 29-04-92 1468 59% [ 100]+ 390 VOC.PAS [ 24] 29-04-92 4334 65% [ 103]+ 338 PAS4.OBJ [ 5] 29-04-92 1520 41% [ 112]+ 80 VOCE.PAS [ 16] 29-04-92 3166 62% [ 115]+ 80 PAS7.OBJ [ 5] 29-04-92 1318 49% [ 121]+ 190 PAS9.OBJ [ 5] 29-04-92 1492 42% [ 123]+ 500 PASB.OBJ [ 7] 29-04-92 2336 35% [ 126]+ 472 PAS0.OBJ [ 5] 29-04-92 1398 46% [ 131]+ 264 PAS1.OBJ [ 4] 29-04-92 1200 42% [ 134]+ 142 PAS2.OBJ [ 7] 29-04-92 2073 43% [ 136]+ 334 PAS3.OBJ [ 5] 29-04-92 1668 35% [ 140]+ 376 PAS5.OBJ [ 6] 29-04-92 1930 37% [ 144]+ 12 PAS8.OBJ [ 4] 29-04-92 1108 46% [ 147]+ 422 PAS6.OBJ [ 5] 29-04-92 1546 40% [ 150]+ 10 PASA.OBJ [ 7] 29-04-92 2170 40% [ 153]+ 36 EXAM1.TXT [ 1] 29-04-92 0235 55% [ 157]+ 174 EXAM2.TXT [ 1] 29-04-92 0167 68% [ 157]+ 426 PASNHD.OBJ [ 84] 29-04-92 26163 40% [ 158]+ 98 PASFPP.OBJ [ 74] 29-04-92 22916 40% [ 209]+ 166 PASFPP.SAV [ 58] 29-04-92 20975 30% [ 254]+ 58 PASPRF.OBJ [ 9] 29-04-92 2897 37% [ 295]+ 58 PASFOR.PAS [ 75] 29-04-92 10929 72% [ 300]+ 412 ---------- ---------- -------- --------- ------- ------------------- 36 622 165376 48 % 323 HD7>RU PASFPP TEST,TT:=TEST TEST P A S C A L/RAFOS 13- -88 9:25 V1-564 PAGE 1 SM-3/SM-4 MINICOMPUTERS LINE STMT LEVEL NEST SOURCE STATEMENT 1 PROGRAM TEST; 2 BEGIN 3 1 1 1 WRITELN('Ok'); 4 2 1 1 END. ERRORS DETECTED: 0 FREE MEMORY: 8895 WORDS ERRORS DETECTED: 0 FREE MEMORY: 8895 WORDS HD7>MAC TEST HD7>LIN TEST,PASFPP HD7>RU TEST ?FATAL ERROR: RESERVED INSTRUCTION TRAP PROGRAM COUNTER: 1476 HD7>

PASFPP.SAV - название файла намекает, что это транслятор OMSI (а листинг, что его переделали шаловливые советские ручки) и то, что транслятор будет выдавать код с поддержкой FPP (а OTS должны FPP инициализировать - отсюда прерывание по резервной инструкции, ибо на ДВК FPP - это редкость редкая)

- - - Добавлено - - -

Посмотреть, что по адресу 1474 или выложить программу - могу проверить на J11

Цитата:

Сообщение от Hunta

или выложить программу

в смысле PASFPP? Так его уже дважды выложили, сам добытчик чтец дискет (он же и автор шпоры-описания к LZS-архивам, и копия этих дискет в разделе ДВК (читай новости по архиву, там прямые ссылки или тему автора)
И вопрос от меня, что есть FPP???