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^:=' ';

---