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

[Hunta]

; 	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 под макрос убрать, а потом допилить макросы описания локальных переменных и вообще почти Паскаль получится

[nzeemin]

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

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

[Hunta]

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

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

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

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

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

[nzeemin]

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

[Alex_K]

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

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

[nzeemin]

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

Через 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.

[Advertiser]

[Alex_K]

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

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

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

[Hunta]

Хотелось бы найти 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.

[hobot]

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

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

[nzeemin]

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

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