Игра "Королевство Эйфория" для УКНЦ, восстановление исходника

[Alex_K]

Пока не понял что в процедуре L60060 заставляет сохранять SP в R4 - пока воткнул там NOP для выравнивания.

В дополнительных модулях везде при вызове своих подпрограмм перед заносом параметров в стек стоит MOV SP,R4. В главном модуле такого нет.
Мне тоже воспроизвести не удалось.

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

В конце 4-го .PAS модуля (KINGM4.PAS) стоит какой-то заполнитель из слов 011404 - пока не понял что это.

Это есть в нескольких местах.

И команды MOV %6,%4 и MOV (%4),%4 присутствуют в исполнимом модуле транслятора Паскаля. Вот только при каких условиях они включаются в исходный код.

[Sandro]

И команды MOV %6,%4 и MOV (%4),%4 присутствуют в исполнимом модуле транслятора Паскаля. Вот только при каких условиях они включаются в исходный код.

Вложенные процедуры?

[Alex_K]

Вложенные процедуры?

Нет. Не получается.

[nzeemin]

Я сделал второй проход по основному модулю (KINGOM.PAS), исправил там все ошибки.
Там остаются только два различия - в двух строках вначале должен стоять символ <016>, вместо него я поставил '_', в коде это помечено комментарием {NOTE: Тут в начале символ 016}

- - - Updated - - -

Я пока беру тайм-аут по этой работе - сильно вложился временем и усилиями и поэтому запустил другие свои дела.

[^m00h^]

Это оригинальная версия КЭ, с которой делали порт на спектрум ?

[nzeemin]

Это оригинальная версия КЭ, с которой делали порт на спектрум ?

Под этим названием было множество игр.
Например вот на Бэйсике исходник в книге 1981 года - возможно, отсюда и взято название: http://www.retrotechnology.com/memsh...S.HTM#chapter3
Учитывая несложную механику игры - было множество реализаций, сделанных разными авторами.
Также и с вариантами для Спектрума - скорее всего это было не портирование, а переписывание "по мотивам".

[Advertiser]

[hobot]

Под этим названием было множество игр.
Например вот на Бэйсике исходник в книге 1981 года - возможно, отсюда и взято название: http://www.retrotechnology.com/memsh...S.HTM#chapter3
Учитывая несложную механику игры - было множество реализаций, сделанных разными авторами.
Также и с вариантами для Спектрума - скорее всего это было не портирование, а переписывание "по мотивам".

Именно по приведённому исходнику, скорее это "наш вариант"
LA REPUBLIKA DE ANCHURIA



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



Игрушка была обнаружена на дискетах из коллекции @AFZ , в 90-х мне она не встречалась как-то ! ;-)

[Alex_K]

Вложенные процедуры?

Нет. Не получается.

Я сначала неправильно подумал про рекурсивный вызов и ничего этого не получил.
А теперь сделал небольшой пример - внутри внешней процедуры объявил две функции и получил то, что надо.

Программа на Паскале

(*$E+*)

PROCEDURE A;
VAR A,B,C,D:INTEGER;

FUNCTION AA:INTEGER;
BEGIN
 AA:=A;
END;
FUNCTION BB:INTEGER;
BEGIN
 BB:=B;
END;

BEGIN
 A:=1; B:=2; C:=AA; D:=BB;
END;

[свернуть]

Результат на MACRO-11

        .GLOBL  $RESR6,$RESR5,$KORE,$SAV10,$VER
        .GLOBL  $BEGIN,FILE,$TTY,$END
        .RADIX  10
        MOV     (%4),%4
        MOV     (%4),%4
        MOV     (%4),%4
        MOV     (%4),%4
        MOV     (%4),%4
        MOV     (%4),%4
        MOV     (%4),%4
        MOV     (%4),%4
L1:
        MOV     %4,-(6)
        JSR     %0,$B74
        .GLOBL  $B74
        MOV     10(6),%0
        MOV     @%0,14(6)
        JSR     %0,$B76
        .GLOBL  $B76
        ADD     #2,%6
        RTS     %7
        MOV     (%4),%4
        MOV     (%4),%4
        MOV     (%4),%4
        MOV     (%4),%4
        MOV     (%4),%4
        MOV     (%4),%4
        MOV     (%4),%4
        MOV     (%4),%4
L2:
        MOV     %4,-(6)
        JSR     %0,$B74
        MOV     10(6),%0
        MOV     2(0),14(6)
        JSR     %0,$B76
        ADD     #2,%6
        RTS     %7
L0:
        .GLOBL  A
A:
        SUB     #8,%6
        JSR     %7,$B127
        .GLOBL  $B127
        MOV     #1,@%6
        MOV     #2,2(6)
        CLR     -(6)
        MOV     %6,%4
        ADD     #2,%4
        JSR     %7,L1


        MOV     (6)+,%0
        MOV     %0,4(6)
        CLR     -(6)
        MOV     %6,%4
        ADD     #2,%4
        JSR     %7,L2


        MOV     (6)+,%0
        MOV     %0,6(6)
        ADD     #8,%6
        RTS     %7
        .END

[свернуть]

[hobot]

По поводу "той самой КЭ" совсем недавно обсуждалось на страницах журнала DOWNGRADE и в теме
https://zx-pk.ru/threads/13979-zhurn...=1#post1087156

[Alex_K]

Правильный KINGM3.PAS

{$E+}
{$S+}

procedure L57632;

procedure CURSORTO(R,C:integer); external; {L57476}
procedure ESCJ; external; {L57444}

begin
    CURSORTO(0,0);
    ESCJ;
end;

{ Разделяем C на тысячи A и остаток B }
procedure L57660(var A:integer; var B:integer; var C:real);
begin
    if C > 32000000.0 then
        C := 32000000.0;
    A := TRUNC(C / 1000.0); {L57744}
    B := TRUNC(C - A * 1000.0);
end;

[свернуть]