Игра "Зона" на ДВК

Цитата:

---

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

И с адреса 1000 по всей видимости объявление внешней процедуры или функции в вызовом типа FORTRAN.

---

Действительно. В качестве примера:

Скрытый текст

Код:

---

PROGRAM A;
FUNCTION SUMM(VAR A,B:REAL):REAL; FORTRAN;
VAR A,B,C:REAL;
BEGIN
 A:=1; B:=2; C:=SUMM(A,B)
END.

---

Код:

---

        .GLOBL  $RESR6,$RESR5,$KORE,$SAV10,$VER
        .GLOBL  $BEGIN,FILE,$TTY,$END
        .RADIX  10
        .GLOBL  SUMM
L0:    JSR    %0,$B74
        .GLOBL  $B74
        JSR    %7,$B126
        .GLOBL  $B126
        JSR    %7,SUMM
        MOV    %1,20(6)
        MOV    %0,18(6)
        MOV    $RESR5,%5
        JSR    %0,$B76
        .GLOBL  $B76
        MOV    (6),6(6)
        ADD    #6,%6
        RTS    %7
        $VER=59.
$BEGIN:
        ADD    #12,$KORE
        JSR    %7,$B127
        .GLOBL  $B127
        MOV    #1,-(6)
        JSR    %7,$B88
        .GLOBL  $B88
        MOV    (6)+,@%5
        MOV    (6)+,2(5)
        MOV    #2,-(6)
        JSR    %7,$B88
        MOV    (6)+,4(5)
        MOV    (6)+,6(5)
        CMP    -(6),-(6)
        MOV    %5,-(6)
        MOV    %5,%0
        ADD    #4,%0
        MOV    %0,-(6)
        MOV    #2,-(6)
        MOV    %6,%4
        JSR    %7,L0


        MOV    (6)+,8(5)
        MOV    (6)+,10(5)
        JMP    $END
        .END

---

[свернуть]

Цитата:

---

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

Действительно. В качестве примера:

---

Да, уже разобрался с этим.
Там вот что было:

Код:

---

function RANDU(var A,B:integer):real; fortran;

function L01046(A,B:integer):integer;
begin
        L01046:=ROUND(A+(B-A)*RANDU(VAR42,VAR44));
end;

---

RANDU принимает по ссылке два целых числа - текущие данные; возвращает очередное псевдослучайное число в диапазоне от 0 до 1.

Цитата:

---

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

Отличается только параметром #3 в первой строчке - может это не та версия Фортрана.

---

В данном случае 3 - это количество параметров. Отличаются чуть-чуть RANDU. В приведенной вами функции есть передача результата по адресу третьего параметра:

Код:

---

    MOV    (R5)+, R3
    MOV    R0, (R3)+
    MOV    R1, @R3

---

Продолжаю копать.
Нужно ещё 8 блоков, ~2300 слов заполнить осмысленным кодом на Паскале.
Добился возможности проверять код побайтово, за исключением строк.

Цитата:

---

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

Продолжаю копать.

---

А что потом если не секрет?

Цитата:

---

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

Продолжаю копать.

---

Никита, возможно тебе пригодится для ускорения / упрощения *пусть и не большого
при работе с одной и той же версией Паскаля и без необходимости использования системной библиотеки Фортрана,
ты можешь переименовать .OBJ который всегда нужен в SYSLIB.OBJ - и тогда при линковке его явно указывать не надо.

Можно будет потом портировать куда угодно, в т.ч. и на современные версии windows. ;)
Думаю, паскалевский исходник будет не слишком сложно адаптировать для сборки современными компиляторами.

Первый проход закончил - по объёму код уже весь - ~1230 строк, примерно как и ожидал.
Но осталась куча мелких ошибок. Прохожу по второму разу, исправляю эти мелочи.

Вот интересное место:

Код:

---

L36040:        CMP        000032(R5), #000012        ; < 10. ?
L36046:        BLT        L36054
L36050:        CLR        R0
L36052:        BR        L36060
L36054:        MOV        #000001, R0
L36060:        COMB        R0
L36062:        MOVB        000047(R5), R1                ; Фонарь горит?
L36066:        BICB        R0, R1
L36070:        CMP        000032(R5), #000001
L36076:        BGT        L36104
L36100:        CLR        R0
L36102:        BR        L36110
L36104:        MOV        #000001, R0
L36110:        COMB        R0
L36112:        BICB        R0, R1
L36114:        BNE        L36122
L36116:        JMP        L36144

---

Текущий перевод в Паскаль:

Код:

---

if (VAR32 < 10) and VAR47 and (VAR32 > 1) then

---

Проблема в том чтобы сгенерировать точно такой же код, как в оригинале, но Паскаль даёт несколько другой код:

Код:

---

; if (VAR32 < 10) and VAR47 and (VAR32 > 1) then
        CMP        26(5),#10
        BLT        L792
        CLR        %0
        BR        L793
L792:        MOV        #1,%0
L793:
        MOVB        39(5),%1
        COM        %1
        BICB        %1,%0
        CMP        26(5),#1
        BGT        L794
        CLR        %1
        BR        L795
L794:        MOV        #1,%1
L795:
        COMB        %1
        BICB        %1,%0
        BNE        L796
        JMP        L797
L796:

---

Пробовал разные комбинации, пока не нашёл.

Цитата:

---

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

Пробовал разные комбинации, пока не нашёл.

---

if (VAR47 and (VAR32 < 10)) and (VAR32 > 1) then

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

Вроде работает и так:
if VAR47 and (VAR32 < 10) and (VAR32 > 1) then