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

Цитата:

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

Код:

; FOR I:=1 TO 10 DO BEGIN MOV %5,-(6) ADD #xxxx,%0

Скорей так

Код:

; FOR I:=1 TO 10 DO BEGIN MOV R5,R0 ADD #xxxx,R0 MOV R0,-(SP)

И ещё бывает такой вариант

Код:

; FOR I:=1 TO 10 DO BEGIN MOV SP,R0 ADD #xxxx,R0 MOV R0,-(SP)

Ну и ещё бывает

Код:

L1: CMP @4(6),(6) BGE .+6 ... DEC @4(6) ...

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

Из восстанавливаемого исходника DIGER-а

Код:

P.FOR IDXVAR R5 AT #3654 FROM #1 TO #7 BEGIN ... P.END

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

Оттуда же

Код:

P.FOR IDXVAR SP AT #6 FROM #1 TO #17 BEGIN P.FOR IDXVAR SP AT #16 FROM #1 TO #3 BEGIN ... CHKARR INDEX R0 AT RANGE LOW #1 HIGH #20 ... CHKARR INDEX R1 AT RANGE LOW #1 HIGH #17 ... P.END ... CHKARR INDEX R0 AT RANGE LOW #1 HIGH #20 ... CHKARR INDEX R0 AT RANGE LOW #1 HIGH #20 ... P.END

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

Ещё CASE под макрос убрать, а потом допилить макросы описания локальных переменных и вообще почти Паскаль получится :)

Цитата:

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

Ещё CASE под макрос убрать, а потом допилить макросы описания локальных переменных и вообще почти Паскаль получится :)

У нас с вами разный подход.
Мне ваши макросы не кажутся ни понятными ни удобными.
Можно же смотреть на конструкции в ассемблере и сразу в Паскаль записывать.
Но это уж кому как удобнее конечно.

Цитата:

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

Можно же смотреть на конструкции в ассемблере и сразу в Паскаль записывать.

Угу. Вот только проблема - уверенным, что логика работы правильно понята, можно, только если на выходе из Паскаля будет тот же код, что и в исходном .SAV файле. А уже понятно, что не получится. Если же на выходе другой код - 100 процентной уверенности нет.

В моём случае логика будет точно такой же - ибо на выходе .SAV файл идентичен исходному. А по написанию будет ближе к ЯВУ. И переделать на другой или тот же язык будет проще.

Цитата:

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

Мне ваши макросы не кажутся ни понятными ни удобными.

Да ради бога. На вкус и цвет все фломастеры разные.

Хотелось бы найти RANDOM.PAS из поставки Паскаля.
В Сталкере реализован какой-то рандомайзер, но там ногу сломишь ползать по этому коду.
И кстати, мне так и не удалось раскодировать библиотеку Паскаля через DECOBJ - он всё время просто умирает.

Цитата:

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

И кстати, мне так и не удалось раскодировать библиотеку Паскаля через DECOBJ - он всё время просто умирает.

Хотелось бы узнать, как вы пытаетесь делать.

Цитата:

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

Хотелось бы узнать, как вы пытаетесь делать.

Через LIBR/EXCTART мне удалось вынуть один из модулей (как я понял это модуль SUPMON, в нём ещё есть $BEGIN и $VER), в файл A.OBJ размером 2048.
Дальше я пытаюсь:
>rt11 RU DECOBJ A.OBJ A.DEC
Ничего не происходит.
Памяти вроде бы должно быть достаточно. Или нет?

Код:

>rt11 SH MEM Address Module Words ------- ------ ----- 170000 IOPAGE 2048. 167520 HD 88. 156602 RMON 2279. 152264 SL 1127. 001000 ..BG.. 26970.

Цитата:

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

Памяти вроде бы должно быть достаточно. Или нет?

DECOBJ действительно пожирает много памяти. У меня обязательно приходится делать команду SET USR SWAP.

Сейчас попробовал, немного криво сделал, но раскрутил. Там ещё руками работать надо, но сделал.

Цитата:

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

Хотелось бы найти RANDOM.PAS из поставки Паскаля.

Код:

Directory DU1:[PASRT] 2021-04-08 01:23 RANDOM.PAS;1 1. 1994-03-06 18:30 Total of 1./1. blocks in 1. file >TYP [PASRT]RANDOM.PAS var Seed: 0..65535; I: integer; function Random: real; begin { Random } Seed := (Seed * 13077 + 6925) mod 32768; Random := Seed / 32768.0 end { Random }; begin Seed := trunc(time * 1000.0); for I := 1 to 25 do writeln(trunc(Random * 10.0) + 1) end.

Цитата:

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

Ребят, а что с русским языком в этом Паскале?

И между апострофами в операторах WRITE / WRITELN и в комментариях можешь смело использовать кириллицу прямо в исходнике, только про клавишу АЛФ - забудь ;-) CTRL-N - в редакторе переключает, а в "блокнотах" всё и так ясно,
был ещё момент, когда транслятор "орёт" на точку переключения - тогда там должен быть "пробел" и он перестаёт орать...

Оказывается, можно и так - а я уж думал, придётся ассемблерной вставкой делать:

Код:

type charptr = ^char; var FIL: array[1..32,1..16,0..8] of char; V11070: charptr; ... V11070:=@FIL[VAR14,VAR12,VAR4]; ... V11070^:=' ';

Pasprf.obj - наткнулся на такой .OBJ файл на дискете с доками и "не полной" поставкой ПАСКАЛЯ
Что это и нужно ли? LIBR - отказался выдавать /LIST:TT: - ругнулся ...

Цитата:

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

Pasprf.obj - наткнулся на такой .OBJ файл на дискете с доками и "не полной" поставкой ПАСКАЛЯ
Что это и нужно ли? LIBR - отказался выдавать /LIST:TT: - ругнулся ...

я думаю, это профайлер - он входит в поставку Паскаля либо как .PAS либо как .SAV, тут полусобранный вариант кто-то оставил.

nzeemin,

Цитата:

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

L40052: JMP L06650 ; рестарт игры

Код:

REPEAT UNTIL 0>0

вечный цикл, а выход из него по условию где THEN EXIT или вызов процедуры, где .EXIT - или что то похожее (Никита, ты я чую не оступно и не отрывно! Жаль таких авторов для УК-НЦ только ты,
точнее спасибо что ты у нас есть - вот!)

попался ещё вот такой РАНДОМ в виде глобальных :: - то есть можно слинковать с паскалем как внешний

Код:

.TITLE RND ;--------------------------------------- ; dat~ik sl~ajnyh ~isel ;--------------------------------------- ;wHOD: 1 SLOWO W STEKE - PREDEL ^ISLA ;wYHOD 1 SLOWO W STEKE - REZULXTAT OT 0 DO PREDELA RND:: MOV R3,-(SP) MOV R2,-(SP) MOV R1,-(SP) MOV R0,-(SP) CLR R3 1$: SEC ROL R3 CMP R3,12(SP) BCS 1$ COM R3 2$: MOV #19.,R0 3$: MOV RAND+2,R1 BIC #^C22,R1 BNE 4$ CLC BR 6$ 4$: CMP #22,R1 BNE 5$ CLC BR 6$ 5$: SEC 6$: ROR RAND ROR RAND+2 SOB R0,3$ MOV RAND,R0 BIC R3,R0 CMP R0,12(SP) BCC 2$ MOV R0,12(SP) MOV (SP)+,R0 MOV (SP)+,R1 MOV (SP)+,R2 MOV (SP)+,R3 Return RAND:: 1,1 ;-------------------------------------- .END

ещё (просто как вариант) позиционирование курсора можно не процедурой,
а функцией символьной оформить (по аналогу как в ВИЛЬНЮС-БЕЙСИКЕ есть оператор
LOCATE, а есть функция для оператора PRINT AT(X,Y) *** )

Код:

PROGRAM LOCATE; FUNCTION AT(XX,YY : INTEGER) : CHAR; BEGIN AT:=''; WRITE(CHR(27),'Y',CHR(32+YY),CHR(32+XX)); END; BEGIN WRITE(AT(5,9),'УХА-ХА-ХА-ХА-ХА!'); END.

и ещё РАНДОМ из исходников Петра Высотина
==============================

Код:

FUNCTION RND: REAL; VAR IRND: INTEGER; BEGIN /*$C BR M1 RN: .WORD 435 M1: MOV RN, R1 MUL #12869, R1 ADD #6925, R1 MOV R1, RN BIC #^O100000, R1 MOV R1, IRND(SP) */ RND:=IRND/32767; END;

PTIME.PAS из поставки PASCAL / PTMSK.PAS - адаптация ;-)

Код:

LD7>TY PTIME.PAS PROGRAM PTIME; PROCEDURE WRITETIME; VAR R:REAL; HOURS,MINUTES:INTEGER; AMPM: ARRAY [1..2] OF CHAR; BEGIN R:=TIME; HOURS:=TRUNC(TIME); MINUTES:=TRUNC((R-HOURS)*60.0); IF HOURS > 12 THEN AMPM:='PM' ELSE IF (HOURS = 12) AND (MINUTES = 0) THEN AMPM:='M ' ELSE AMPM:='AM'; WRITE('AT THE TONE THE TIME WILL BE:'); WRITE((HOURS+11) MOD 12 + 1 :2); WRITE(':', MINUTES DIV 10:1, MINUTES MOD 10:1, AMPM:3); WRITE(CHR(7)); END; /* НАЧАЛО ОСНОВНОГО ТЕЛА ПРОГРАММЫ */ BEGIN WRITETIME; END. LD7>RU PTIME AT THE TONE THE TIME WILL BE: 8:59 AM LD7>TY PTMSK.PAS PROGRAM PTIME; CONST MSK = 3; PROCEDURE WRITETIME; VAR R:REAL; HOURS,MINUTES:INTEGER; AMPM: ARRAY [1..2] OF CHAR; BEGIN R:=TIME; HOURS:=TRUNC(TIME); MINUTES:=TRUNC((R-HOURS)*60.0); IF HOURS > 12 THEN AMPM:='PM' ELSE IF (HOURS = 12) AND (MINUTES = 0) THEN AMPM:='M ' ELSE AMPM:='AM'; WRITE('МОСКОВСКОЕ ВРЕМЯ :'); WRITE((HOURS+11) MOD 12 + MSK :2); WRITE(':', MINUTES DIV 10:1, MINUTES MOD 10:1, AMPM:3); WRITE(CHR(7)); END; /* НАЧАЛО ОСНОВНОГО ТЕЛА ПРОГРАММЫ */ BEGIN WRITETIME; END. LD7>RU PTMSK МОСКОВСКОЕ ВРЕМЯ :10:59 AM LD7>

про различные сочетания транслятор + библиотека,
я выбрал для себя PASDWK (так он "обозван" для возможности на одной дискете иметь сразу несколько вариантов, понятное дело, что библиотека имеет такое имя как и программа транслятор), поскольку он
абсолютный победитель по размеру .SAV файла после линковки. Других параметров я не учитывал - это было решающим. Поскольку я пишу свои программы ради удовольствия и практически всегда с "нуля" - никаких проблем с этим транслятором и его библиотекой пока не испытывал, но * не проверено* ошибка в обработке массивов там похоже всё таки есть...

И возможно во всех PASCAL-ях она есть, возможно... надо проверять и, если подтвердиться, я конечно и обязательно отпишусь об этом...

Прочёл в книге, данной Хоботычем, такую инфу:

Цитата:

What is Pascal-2?

Now that you know more about us, you may want to know more about our newest product-in-progress, Pascal-2. Pascal-2 is our new optimizing compiler, written in Pascal. It's designed to be portable, and it's already been moved to a Honeywell computer. The Pascal-2 compiler is bigger and slower than Pascal-1, but not the generated code. Typical programs are 40% smaller and almost twice as fast. You can expect Pascal-2 compilers to be available on a wide range of 16-bit and 32-bit processors in the next several years. Supported users of Pascal-1 will receive substantial discounts on their purchase of Pascal-2 licenses for the PDP-11.

У меня, в общем, слюнки потекли от одного упоминания уровня оптимизации аж на 40%. Захотелось пощупать этот Pascal-2. В связи с чем такие вопросы:

1. Вышел ли таки Pascal-2 для RT-11?
2. Если нет, то может ли Pascal-2 для других ОС на PDP-11 давать целевой код, работающий на RT-11?
3. Для каких ещё платформ и процессоров есть Pascal-2 (и Pascal-1)?
4. Кто-нить проверял качество машкода Pascal-2 и сравнивал ли с кодом от Pascal-1?

Ответьте, кто сможет.

Цитата:

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

1. Вышел ли таки Pascal-2 для

RT-11 и RSX - да. В инете попадался

Цитата:

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

Pascal-2 для других ОС на PDP-11 давать целевой код, работающий на RT-11?

если из своего кода не обращаться к возможностям целевой системы, если не использовать библиотечные вызовы, специфичные для целевой системе, то да

pascal сборник для эмулятора ДВК.

ДАННЫЙ ОБРАЗ СОЗДАН СПЕЦИАЛЬНО ДЛЯ
ЭМУЛЯТОРА "ДВК" ОТ [Patron] И
ЛЮБИТЕЛЕЙ ЯЗЫКА ПРОГРАММИРОВАНИЯ
ПАСКАЛЬ В ЕГО ВАРИАНТЕ ДЛЯ ОС RT-11.

ОБРАЗ БУДЕТ НОРМАЛЬНО ЗАГРУЖАТЬСЯ
(ПРИ НЕОБХОДИМОСТИ) И НА РЕАЛЬНЫХ ДВК
С УСТАНОВЛЕННЫМ MY - КОНТРОЛЛЕРОМ.

ТАК ЖЕ МОЖЕТ БЫТЬ ПЕРЕДЕЛАН В ЗАГРУЖАЕМЫЙ
ДЛЯ ЭМУЛЯТОРА ИЛИ РЕАЛЬНОЙ УК-НЦ, ДЛЯ
ЭТОГО НЕОБХОДИМО ДОБАВИТЬ ДРАЙВЕР MZ.SYS
И СРЕДСТВАМИ СИСТЕМЫ ПЕРЕНАСТРОИТЬ ЗАГРУЗКУ.

ВСЕ ПОДРОБНОСТИ ПО СОДЕРЖАНИЮ АРХИВОВ СМОТРИТЕ
В ОДНОИМЕННЫХ ТЕКСТОВЫХ ФАЙЛАХ. ПОЛЬЗУЙТЕСЬ
ПРОГРАММОЙ TTY - ДЛЯ ПРОСМОТРА ФАЙЛОВ С
ДОКУМЕНТАЦИЕЙ И ОПИСАНИЯМИ, FCU - УПАКОВЩИК /
РАСПАКОВЩИК АРХИВОВ ПРИЛАГАЕТСЯ.

archive.pdp-11.org.ru

Цитата:

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

1. Вышел ли таки Pascal-2 для RT-11?
2. Если нет, то может ли Pascal-2 для других ОС на PDP-11 давать целевой код, работающий на RT-11?
3. Для каких ещё платформ и процессоров есть Pascal-2 (и Pascal-1)?
4. Кто-нить проверял качество машкода Pascal-2 и сравнивал ли с кодом от Pascal-1?

Посмотрите вот это:
http://bitsavers.trailing-edge.com/b...omsiPascal2.1/
http://mailman.trailing-edge.com/pip...ry/014556.html

запрос отменён, всем спасибо !!! текст под катом ;-)

Просьба помочь с КНИГАМИ по ДВК в частности с этой позицией
-----------------------------------------
Книга 3: Языки программирования: Ассемблер, Паскаль, Бейсик (формат Tiff, 29 MB - 383 стр);
по ссылке в большом архиве то самое как строка выше >

а в папке КНИГА3 >
в формате DWK_ASM_PAS_BAS.djvu, но только первая часть "АССЕМБЛЕР".

Если есть опытные по форматам и готовые проявить инициативу (потратить время), хотелось бы
и раздел ПАСКАЛЬ и БЕЙСИК иметь в более удобном для пользователей формате (тот .djvu или .pdf) ?

Про создание "распознанной" текстовой версии с кликабельным меню я не буду даже задавать вопрос.
Достаточно было бы уже по примеру первого раздела иметь ВТОРОЙ и ТРЕТИЙ разделы.

[свернуть]

Спасибо.

:redface:

Цитата:

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

Просьба помочь с КНИГАМИ по ДВК в частности с этой позицией
-----------------------------------------
Книга 3: Языки программирования: Ассемблер, Паскаль, Бейсик (формат Tiff, 29 MB - 383 стр);
по ссылке в большом архиве то самое как строка выше > http://hobot.pdp-11.ru/BIBLIOTEKA/dwkbooks/

а в папке КНИГА3 > http://hobot.pdp-11.ru/BIBLIOTEKA/dwkbooks/book3/
в формате DWK_ASM_PAS_BAS.djvu, но только первая часть "АССЕМБЛЕР".

http://www.emuverse.ru/wiki/%D0%94%D0%92%D0%9A

Моей первой книжкой в школе была такая
Бутомо И. Д., Самочадин А. В., Усанова Д. В. Программирование на алгоритмическом языке Паскаль для микроЭВМ. Учебное пособие. Ленинград 1985г. 216 с.

http://i77.fastpic.ru/big/2016/0515/...e796e057fe.jpg

Копия: https://drive.google.com/file/d/19pl...ew?usp=sharing

Цитата:

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

Моей первой книжкой в школе была такая
Бутомо И. Д., Самочадин А. В., Усанова Д. В. Программирование на алгоритмическом языке Паскаль для микроЭВМ. Учебное пособие. Ленинград 1985г. 216 с.

http://i77.fastpic.ru/big/2016/0515/...e796e057fe.jpg

Копия: https://drive.google.com/file/d/19pl...ew?usp=sharing

из предисловия )

https://pic.maxiol.com/images2/16184...185.citata.png

* хотелось бы напомнить ВСЕМ, что это тема по ПАСКАЛЮ, а не
для устраивания ХОЛИВАРОВ по ЯП. Спасибо.

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

svinka, хорошая книга, простым языком написана, как справочник по реализации или первичному ознакомлению самое то. У меня была вот такая (как справочник по функциям и операторам)
http://publ.lib.ru/ARCHIVES/M/%27%27...e/Pnyp82O1.jpg
http://publ.lib.ru/ARCHIVES/M/%27%27...EVM%27%27.html

Цитата:

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

первичному ознакомлению самое то

По восьмеричному вроде.... до конца дочитай!

Цитата:

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

Посмотрите вот это:

а ведь @form меня предупреждал помниться ;-)

Код:

размерчик однако галантный ;-) пришлось убить всё в памяти ))) XM .SAV 474 SJ .SAV 397 07-Mar-1985 .RU SJ HD7:TRISTR=HD7:TRISTR Pascal-2 RT-11 SJ V2.1D 5-Jan-90 1:19 PM Site #1-1955 Page 1-1 University of Santa Clara #AG07619 Academic Computer Center Kenna 101 Santa Clara CA 95053 USA HD7:TRISTR=HD7:TRISTR 5 WRITELN('СТРОКА 1 :'); ^1 ^1 *** 1: Illegal character 6 WRITELN('СТРОКА 2', ':': 14); ^1 ^1 *** 1: Illegal character 7 WRITELN('': 20, 'ПРИВЕТ!!!'); ^6^44 ^1 ^1 ^38 *** 6: String of length zero *** 44: Badly formed expression *** 1: Illegal character *** 38: ')' expected 9 WRITELN(' '); ^1 *** 1: Illegal character *** There were 4 lines with errors detected *** ?Errors detected: 10

http://s.rimg.info/759808102c7d84f98ab238b771c2a43c.gif

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

в общем надо читать мануалы
легко ищется вот такой

Цитата:

Сообщение от https://archive.org/stream/h42_Oregon_Software_Pascal-2_Version_2.1_for_RT-11_User_Manual/Oregon_Software_Pascal-2_Version_2.1_for_RT-11_User_Manual_djvu.txt

Pascal-2 RT11 SJ V2.1A 5-Aug-83 7:04 PM Site #1-1 Page 1-1

Oregon Software, 2340 SI Canyon Road, Portland, Oregon 97201, (503) 226-7760

по ссылке от Никиты версия видимо более "навороченная"

Цитата:

Pascal-2 RT-11 SJ V2.1D

Та шо ж он так много ошибок на ровном месте выдаёт %)

Цитата:

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

Та шо ж он так много ошибок на ровном месте выдаёт %)

ASCII

Цитата:

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

Та шо ж он так много ошибок на ровном месте выдаёт %)

напомнил про рыбака, собаку и лошадь )))

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

Цитата:

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

ASCII

ты вот краток когда надо бы подробнее
и подробен когда не надо вообще ;-)

Цитата:

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

ты вот краток когда надо бы подробнее
и подробен когда не надо вообще

Аха. Как обычно - не по твоему.
Кто знает - поймет, кто не знает - пусть учит мат часть

Цитата:

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

Та шо ж он так много ошибок на ровном месте выдаёт %)

Цитата:

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

ASCII

Цитата:

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

ты вот краток когда надо бы подробнее
и подробен когда не надо вообще ;-)

hobot, судя по всему вы в текст программы символы переключения алфавита добавили. Редактор EDIK их добавляет автоматом.

Ааа, да-да, может такое быть, что OMSI Pascal 1 их тоже ест.

У меня вопрос по Pascal 2. Исполняемый файл XM.SAV имеет огромный по меркам RT-11 размер - 242 Кб. Как всё это работает с точки зрения адресации окнами по 64 Кб? В эмуле Патрона есть смысл пробовать?

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

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

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

Ну а кто этот Pascal 2 реально пробовал? Он чем-то разительно лучше, чем 1 ?

Цитата:

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

Исполняемый файл XM.SAV имеет огромный по меркам RT-11 размер - 242 Кб.

SJ .SAV 397. 1985-03-07

XM .SAV 474. 1985-03-07

F77 .SAV 340. 1992-10-31

Цитата:

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

адресации окнами по 64 Кб?

Нет такого на PDP-11

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

Цитата:

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

Всё это меня крайне угнетает - работать на древнем компиляторе, от которого нет исходников.

Коммерческий софт

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

Код:

.cop hx7:(SJ.SAV,XM.SAV,LIBFPP.OBJ,PROCRE.PAS) SY: Files copied: HX7:SJ.SAV to SY:SJ.SAV HX7:XM.SAV to SY:XM.SAV HX7:LIBFPP.OBJ to SY:LIBFPP.OBJ HX7:PROCRE.PAS to SY:PROCRE.PAS .BOO RT11XM RT-11XM (S) V05.07 .TYPE V5USER.TXT RT-11 V5.7 Installation of RT-11 Version 5.7 is complete and you are now running RT-11 from your system volume. .... contain much of the information you need to use RT-11 Version 5.7. .R MSCPCK .XM PROCRE,PROCRE=PROCRE PASCAL--I/O error at user PC= 62176B Can't open file I/O error code= -9 in file: DK:CSICON.PAS .COP HX7:CSICON.PAS SY: Files copied: HX7:CSICON.PAS to SY:CSICON.PAS .XM PROCRE,PROCRE=PROCRE PASCAL--I/O error at user PC= 62176B Can't open file I/O error code= -9 in file: DK:CSITYP.PAS .COP HX7:CSITYP.PAS SY: Files copied: HX7:CSITYP.PAS to SY:CSITYP.PAS .XM PROCRE,PROCRE=PROCRE PASCAL--I/O error at user PC= 62176B Can't open file I/O error code= -9 in file: DK:CSIPRO.PAS .COP HX7:CSIPRO.PAS SY: Files copied: HX7:CSIPRO.PAS to SY:CSIPRO.PAS .XM PROCRE,PROCRE=PROCRE PASCAL--I/O error at user PC= 62176B Can't open file I/O error code= -9 in file: DK:GETCS.PAS .COP HX7:GETCS.PAS SY: Files copied: HX7:GETCS.PAS to SY:GETCS.PAS .XM PROCRE,PROCRE=PROCRE PASCAL--I/O error at user PC= 62176B Can't open file I/O error code= -9 in file: DK:FIXARG.PAS .COP HX7:FIXARG.PAS SY: Files copied: HX7:FIXARG.PAS to SY:FIXARG.PAS .XM PROCRE,PROCRE=PROCRE PASCAL--I/O error at user PC= 62176B Can't open file I/O error code= -9 in file: DK:FIXINC.PAS .COP HX7:FIXINC.PAS SY: Files copied: HX7:FIXINC.PAS to SY:FIXINC.PAS .XM PROCRE,PROCRE=PROCRE PASCAL--I/O error at user PC= 62176B Can't open file I/O error code= -9 in file: DK:CNVNUM.PAS .COP HX7:CNVNUM.PAS SY: Files copied: HX7:CNVNUM.PAS to SY:CNVNUM.PAS .XM PROCRE,PROCRE=PROCRE .TIM 00:05:22 .XM PROCRE,PROCRE=PROCRE .TIM 00:06:40 .LINK PROCRE,PASFPP/LIB ?LINK-W-File not found DK:PASFPP.OBJ .LINK PROCRE,LIBFPP/LIB .DIR PROCRE.SAV PROCRE.SAV 56 1 Files, 56 Blocks 36182 Free blocks .RUN PROCRE * Required argument missing (Input File) .PROCRE PROCRE=PROCRE.PAS PASCAL -- Multiple errors detected. Program aborted. .

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

Код:

.TYP PROCRE.LST Pascal-2 RT-11 XM V2.1D 1-Jan-72 12:06 AM Site #1-1955 Page 1-1 University of Santa Clara #AG07619 Academic Computer Center Kenna 101 Santa Clara CA 95053 USA PROCRE,PROCRE=PROCRE 1 {[b+]} 2 3 { NOTICE OF COPYRIGHT AND OWNERSHIP OF SOFTWARE: 4 5 Copyright 1980, 1981, 1982, 1983 by Oregon Software, Inc. 6 All Rights Reserved. 7 8 Whether this program is copied in whole or in part and whether this 9 program is copied in original or in modified form, ALL COPIES OF THIS 10 PROGRAM MUST DISPLAY THIS NOTICE OF COPYRIGHT AND OWNERSHIP IN FULL. 11 12 Pascal procedural cross-reference utility 13 Release version: 2.1 Level: 4 Date: 19-Apr-1983 11:38:14 14 Processor: PDP11 15 System: RSTS, RSX, RT11 16 } 17 18 program procref(input, output, inputfile, outputfile); 19 20 {-----------------------------------------------------------------------| 21 | | 22 | PASCAL PROCEDURAL CROSS-REFERENCER | 23 | | 24 | (c) Copyright 1979 A.H.J.Sale, Southampton, England. | 25 | | 26 | DEVELOPMENT | 27 | This program is a software tool developed from a prototype by | 28 | A.J.Currie at the University of Southampton, England. The proto- | 29 | type of 231 lines of source text was used firstly as a basis for | 30 | extensions, and then rewritten to assure correctness by | 31 | A.H.J.Sale, on leave from the University of Tasmania and then | 32 | stabilized at 1979 December 4; the development time being es- | 33 | timated at 4 man-days from prototype to production. | 34 | | 35 | PURPOSE | 36 | The program reads Pascal source programs and produces two tables | 37 | as output. One documents all procedure or function headings in | 38 | a format that illustrates lexical nesting. The other tables | 39 | gives the locations of heading, block, and body for each pro- | 40 | cedure and function, and what procedures and functions it immedi- | 41 | ately calls. | 42 | | 43 | There is a User Manual for this program; if it has not been pro- | 44 | vided with your installation write to: | 45 | Department of Information Science | 46 | University of Tasmania | 47 | P.O.Box 252C, G.P.O Hobart | 48 | Tasmania 7001 | 49 | and ask for the Technical Report on referencer, if it is still | 50 | available. The program is written to be portable and is believed | 51 | to be in Standard Pascal. | 52 | | 53 | Permission is granted to copy this program, store it in a comput- | 54 | er system, and distribute it, provided that this header comment | 55 | is retained in all copies. | Pascal-2 RT-11 XM V2.1D 1-Jan-72 12:06 AM Site #1-1955 Page 1-2 University of Santa Clara #AG07619 Academic Computer Center Kenna 101 Santa Clara CA 95053 USA PROCRE,PROCRE=PROCRE 56 | | 57 |-----------------------------------------------------------------------} 58 59 { The above comment is included as requested. The source for this program 60 was obtained from Pascal News, and modified at Oregon Software to add the 61 following capabilities: 62 63 1. Command line scanning. 64 2. Multiple source and %include files. 65 3. Remove requirement for "program" header 66 4. Allow external procedure (no main body) 67 5. Reverse (called by) references 68 6. Tabs in input lines. 69 70 In addition, the program as distributed contained a major bug in the 71 handling of field names, and any field name in a record with the 72 same name as a procedure would mask any use of the procedure within 73 that scope. Removing the problem completely requires a large increase 74 in the complexity of the analysis, and was judged infeasable. The 75 current limitation is that an unqualified reference to a field with 76 the same name as a procedure will be treated as a reference to that 77 procedure. This can only occur within a "with" statement. This 78 restriction may be removed in a later release. 79 80 } Pascal-2 RT-11 XM V2.1D 1-Jan-72 12:06 AM Site #1-1955 Page 2-1 University of Santa Clara #AG07619 Academic Computer Center Kenna 101 Santa Clara CA 95053 USA PROCRE,PROCRE=PROCRE 81 82 label 83 99; {exit for error or eof} 84 85 const 86 87 sigcharlimit = 16; {This constant is the number of significant characters 88 kept in the identifier entries. It can readily be 89 changed. It is not advised that it be reduced below 90 10 (reserved words get to 9). } 91 92 uclcdisplacement = 32; {This constant is used to convert upper-case 93 letters to lower-case and vice-versa. It should 94 be equal to ord('a') - ord('A').} 95 96 linelimit = 161; {This constant determines the size of the input line 97 buffer. The maximum acceptable input line is one 98 smaller because a sentinel space is appended to every 99 line.} 100 101 linewidth = 80; {This constant determines the default maximum width of the 102 printing of the second cross-reference table. The 103 program deduces how many names will fit on a line.} 104 105 indentation = 4; {This determines the indentation of the lex-levels.} 106 107 prefix = 9; {width of crossref prefix data} 108 109 { These constants are used for the sketchy syntax analysis. } 110 { They are collected here so that their lengths may be altered} 111 { if sigcharlimit is altered. } 112 sprogram = 'program '; 113 sprocedure = 'procedure '; 114 sfunction = 'function '; 115 slabel = 'label '; 116 sconst = 'const '; 117 stype = 'type '; 118 svar = 'var '; 119 sbegin = 'begin '; 120 scase = 'case '; 121 send = 'end '; 122 sforward = 'forward '; 123 srecord = 'record '; 124 sinclude = 'include '; 125 spaces = ' '; 126 127 labelsize = 13; {max size used for labeling files} 128 129 blanklabel = ' '; {blank file label} 130 131 fakeprog = '.MAIN. '; {fake program name if none} 132 133 {ASCII special character handline} 134 135 ff = 14B; {ascii form feed} Pascal-2 RT-11 XM V2.1D 1-Jan-72 12:06 AM Site #1-1955 Page 2-2 University of Santa Clara #AG07619 Academic Computer Center Kenna 101 Santa Clara CA 95053 USA PROCRE,PROCRE=PROCRE 136 ht = 11B; {ascii tab character} 137 138 tabinterval = 8; {DEC standard tab interval} 139 140 sourcedepth = 8; {max source nesting depth for includes} Pascal-2 RT-11 XM V2.1D 1-Jan-72 12:06 AM Site #1-1955 Page 3-1 University of Santa Clara #AG07619 Academic Computer Center Kenna 101 Santa Clara CA 95053 USA PROCRE,PROCRE=PROCRE 141 142 type 143 natural = 0..maxint; 144 positive = 1..maxint; 145 146 prefixname = packed array [1..prefix] of char; 147 148 sigcharrange = 1..sigcharlimit; 149 150 pseudostring = packed array [sigcharrange] of char; 151 stringcases = packed array [sigcharrange] of boolean; 152 153 linesize = 1..linelimit; 154 lineindex = 0..linelimit; 155 156 setofchar = set of char; 157 158 prockind = (fwdhalf, allfwd, shortform, formal, outside, outsidedef, 159 notproc); 160 161 ptrtoentry = ^entry; 162 163 listofusages = ^usagecell; 164 165 ptrtostackcell = ^stackcell; 166 167 tokentype = (othersy, namesy, lparensy, rparensy, colonsy, semicolsy, 168 periodsy, assignsy, subrangesy); 169 170 filelabel = packed array [1..labelsize] of char; 171 172 lineref = 173 record 174 line: natural; {line number of reference} 175 fileref: filelabel; {file of reference} 176 end; 177 178 entry = 179 record 180 procname: pseudostring; 181 procuppers: stringcases; 182 linenumber: lineref; {line where header found} 183 startofbody: lineref; {line where body is found} 184 left, right: ptrtoentry; 185 before, after: ptrtoentry; 186 calls: listofusages; 187 called: listofusages; 188 localtree: ptrtoentry; 189 case status: prockind of 190 fwdhalf, shortform, formal, outside, notproc: (); 191 allfwd, outsidedef: 192 (forwardblock: lineref {line where forward label found} ); 193 end; 194 195 usagecell = Pascal-2 RT-11 XM V2.1D 1-Jan-72 12:06 AM Site #1-1955 Page 3-2 University of Santa Clara #AG07619 Academic Computer Center Kenna 101 Santa Clara CA 95053 USA PROCRE,PROCRE=PROCRE 196 record 197 what: ptrtoentry; 198 next: listofusages; 199 end; 200 201 stackcell = 202 record 203 current: ptrtoentry; 204 scopetree: ptrtoentry; 205 substack: ptrtostackcell; 206 end; 207 208 {source include control} 209 210 sourceindex = 1..sourcedepth; {current source nexting level} 211 212 sourcedescriptor = 213 record 214 inputfile: text; {current input file} 215 line: array [linesize] of char; {current input line} 216 chno, total: lineindex; {char pointers in line} 217 lineno: natural; {line number of this line} 218 currentlabel: filelabel; {current file label} 219 end; 220 221 sourcestack = array [sourceindex] of sourcedescriptor; ...

Выложил модули Паскаля развёрнутые через DECOBJ - не все, но многие:
https://github.com/nzeemin/uknc-vari.../PASCAL-DECOBJ

Как уже говорил Alex_K, эти "исходники" требуют доработки - кое-где перепутаны код/данные.

Цитата:

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

эти "исходники" требуют доработки - кое-где перепутаны код/данные.

Там особо весело с модулем SUPMON. Сначала идёт секция данных, в них есть сообщения об ошибках, которые набраны в верхнем и нижнем регистре. Потом идёт секция кода. А вот затем снова перескок на секцию данных, счетчик ставится на смещение 0104 от начала секции и все сообщения об ошибках замещаются на строки в верхнем регистре. DECOBJ это переводит, но немного спотыкается.

Постараюсь подытожить то что я узнал про Паскаль ДВК / OMSI Pascal 1 восстановлении паскалевского исходника Сталкера.

1. Возможна передача параметра "по ссылке" и это работает - через ключевое слово var перед параметром:

Код:

procedure READCHAR(var CH:char);

2. Можно делать ссылочные типы над базовыми и хранить/присваивать/передавать указатели:

Код:

type charptr = ^char; type intptr = ^integer; ... var V11070: charptr; ... V11070:=@F[VAR4,VAR12,VAR14]; ... V11070^:='.';

Арифметики на указателях нет - к ним НЕльзя прибавить число чтобы получить следующий элемент массива например.

3. Макроассемблерные вставки весьма удобны, но надо учитывать что там включена десятичная система счисления.

4. Цикл FOR очень громоздкий, лучше использовать WHILE/UNTIL везде где это возможно, будет некоторая экономия.

5. У всех символов в строках срезается верхний (7-й) бит, так что работать с КОИ-8 весьма проблематично - работаем только с ASCII или КОИ-7.

6. Повторные упоминания строк приводят к их дублированию - для дублированных строк лучше использовать константы.

7. Нет возможности указать спецсимволы в строковых литералах через код символа, что очень неудобно.

8. Повторные упоминания множеств также приводят к их дублированию. Любое множество занимает 4 слова (64 бита).

9. Есть GOTO через метки:

Код:

label 1; begin ... 1: ... goto 1;

В основной процедуре программы это реализуется через восстановления SP из $RESR6; в процедурах/функциях используется регистр R4 для расчёта того насколько нужно "подобрать" стек при переходе по goto.

10. По-видимому, нет конструкции для выхода из процедуры/функции. Для этого можно использовать WHILE TRUE + EXIT, либо GOTO с меткой в конце.
В Сталкере реализовано через ассемблерную вставку, не рекомендую по причине того что стек может быть в неправильном состоянии для прямого JMP на конец.

11. Компилятор часто вылетает на условных выражениях со словом NOT - ставьте больше скобок, чтобы ему было проще.

12. Оптимизация очень и очень слабая, даже простые конструкции часто приводят к длинному коду.
Как пример,

Код:

if F[VAR4,VAR16,VAR20] = '.' then begin F[VAR4,VAR16,VAR20]:='!'; end else begin F[VAR4,VAR16,VAR20]:='#'; end;

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

Цитата:

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

Арифметики на указателях нет - к ним НЕльзя прибавить число чтобы получить следующий элемент массива например.

Не совсем так. В OMSI Pascal 1 есть PRED/SUCC:

Код:

TYPE CHARPTR = ^CHAR; VAR p: CHARPTR; BEGIN p := PRED(p); p := SUCC(p);

Код:

11 TYPE CHARPTR = ^CHAR; VAR p: CHARPTR; 12 BEGIN 13 1 1 1 p := PRED(p); p := SUCC(p); ERRORS DETECTED: 0 FREE MEMORY: 14546 WORDS

Цитата:

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

7. Нет возможности указать спецсимволы в строковых литералах через код символа, что очень неудобно.

Этого нет. Но редактор EDIK позволяет вставлять управляющие символы прям в текст (коды 1 -31). Символ с кодом 127 через EDIK я вставить не смог, можно заменить в DESS, потом EDIK нормально будет его отображать.
И трансляция с управляющими символами проходит нормально.

Цитата:

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

Мысль вслух. Сильно подозреваю, что компилятор OMSI Pascal сам написан на Паскале Так что можно попробовать восстановить исходники

тут мог бы подтвердить или опровергнуть Полетаев Владимир ( @vmp ), поскольку адаптированную версию транслятора для ADOS-SJ делал именно он, на основе OMSI Pascal.

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

Особенность - полная Русификация системных сообщений
в самой среде ADOS-SJ, Русификация текстового редактора Nys(EDIK),
Русификация сообщений транслятора языка Паскаль.

Код:

TROSTROKI ПАСКАЛЬ / АДОС V1.0B 19- 1 PROGRA TROSTROKI ПАСКАЛЬ / АДОС V1.0 19- 1 PROGRA Обнаружено ошибок: 0 Свободная память: 9653 слов Обнаружено ошибок: 0 Свободная память: 9653 слов

Цитата:

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

Особенность - полная Русификация системных сообщений

Я это делал и без доступа - как к исходникам, так и к obj модулям. Тяжеловато, но возможно.

Предлагаю спецам запатчить OMSI Pascal, чтобы не занулял старший бит в символах и тем самым позволял бы русифицировать строки.

У меня, увы, не хватит квалификации.

Цитата:

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

Предлагаю спецам запатчить OMSI Pascal, чтобы не занулял старший бит в символах и тем самым позволял бы русифицировать строки.

У меня, увы, не хватит квалификации.

ты о чём? в строках с кириллицей проблем нет.
или это снова "терминология".

Кстати говоря, ЕМНИП 8-битный транслятор был,
он так в шапке и писал, во время листинга пищал на ошибки (отсюда можно попытаться выяснить какая версия была за основу взята), @form пропатчил самый громоздкий Паскаль на Y2K (громоздкий по размеру исполняемого файла после линковки).