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

[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

[свернуть]

[nzeemin]

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

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

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.

[Alex_K]

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

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

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

[nzeemin]

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

[PATHNK]

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

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

[hobot]

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

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

[Radon17]

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

[nzeemin]

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

[nzeemin]

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

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:

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

[Alex_K]

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

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

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

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