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

[nzeemin]

За вчера-сегодня исправил несколько ошибок.
Написал программу для патчинга строк (на C#) - по сути та работа что была проделана Oleg H. над бинарным файлом, но я её делаю над ассемблерным текстом.
Вообще конечно я себе сильно поднасрал тем что стал разбирать уже патченый файл игры, но что уж теперь сделаешь.

На данный момент между .SAV-файлом, полученным из Паскаля + патчинг строк и файлом STALK.GME - 48 различающихся байт.
В основном это инстркции NOP вставленные там где я не понял почему так.

Верхняя граница памяти программы отличается на 2 байта - пока не понял почему.

В процедуре L03362 (переход на этах вверх/вниз и отрисовк игрового поля) - идут странные манипуляции с регистром R4, как будто в нём запоминают на сколько нужно подобрать стек в L04170, но в R4 всегда ноль. Я пока не понял что вызывает такую обработку.

Перед выходом (exit) из игрового цикла всегда делается сброс стека через MOV 050406, SP - ошчушчение что это генерирует компилятор (но не тот что есть у меня), хотя может это и ассемблерные вставки.

Кое-где есть недостижимый код - как пример, L31036, L31134, L31416 - всё это также около команды exit. Возможно, ошибка в компиляторе, тот что есть у меня такого не делает.

В общем, текущий вариант это "почти готово", но я пока не пробовал его запускать и проверять в деле.
Собираюсь ещё раз пройтись по всем местам отличий - то есть сделать третий проход.

Напомню, паскалевский текст здесь - https://github.com/nzeemin/uknc-vari...CAL/STALK1.PAS

[Advertiser]

[Hunta]

Титанический труд Я похожим образом начинал восстанавливать исходники не то третьей, не то четвёртой версии Oracle, только там был C

[Oleg N. Cher]

А я так восстанавливал Dark Woods на QuickBasic. Но не добился полной идентичности, иногда просто непонятно что в исходнике было. И ещё было сильное желание восстановить King Башурова (он на Turbo Pascal), тоже приступил, но запал быстро угас. Я ещё и декомпиляторы искал для DOS x86 16bit. Но все, что находил, или не работает вообще, или работает отвратительно.

[Sandro]

За вчера-сегодня исправил несколько ошибок.

В общем, текущий вариант это "почти готово", но я пока не пробовал его запускать и проверять в деле.
Собираюсь ещё раз пройтись по всем местам отличий - то есть сделать третий проход.

Напомню, паскалевский текст здесь - https://github.com/nzeemin/uknc-vari...CAL/STALK1.PAS

Спасибо! Ждём результата третьего прохода. Хотя, в принципе и этот вариант должен работать, почему нет? Я просмотрел паскалевский исходник, никакого криминала не вижу.

Нда, но компилятор ужасен однако. Никаких представлений об оптимизации вообще. Если переписать на ассемблер руками, то результат должен нормально влезть в БК-0010, к примеру. Кода всего ничего в общем-то. Я думал, что в игре функционала больше, просто его найти надо.

Генератор подземелий забавен. Никаких проверок на проходимость уровня. То есть, без кирки может случиться беспощадный затык.

То ли жди, то ли сейчас начинай переписывать ... Всё же на БК подобной игрушки как-то не хватало.

[hobot]

Всё же на БК подобной игрушки как-то не хватало.

есть для старших БКашек под ОС БК работает

Время           Дата
17:05:50        16-Апр-2021, Пятница

.RU STALKB

STALKER БК-0011М VERSION
ЗАГАДАЙТЕ ЧИСЛО.МОЖЕТ БЫТЬ, ОНО ВАМ ПРИГОДИТСЯ... ТАМ...

      Подземелье             1
  1 -   -   -   -   -   -   -   -   -   -   -   -   -     -   -  Рейтинг    0
  !                                                              Энергия   22
  !                                                             !Оружие    15
                                                                !Защита    11
                                                                 В банке    0
  !
  !                                                             !Вредность  9
                                                                !
                                                                  Рюкзак:
  !   - - -                                                        . . < . . .
  !   . . .                                                     !
      . . .                                                     !

  !
  !                                                             !
    -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
БА-А-А-А-Х !!! ...

[nzeemin]

Как говорится, следите за руками, показываю один раз:

label 1;
BEGIN {MAIN}
...
1:
...
goto 1;
...

   6770					; 					goto 1;
   6771	037052	016706 	000000G			MOV	$RESR6,%6
   6772	037056	000167 	146566 			JMP	L98

[Alex_K]

goto 1;

Ну вот! И вся структурность потерялась ...

[Hunta]

Как говорится, следите за руками, показываю один раз:

Нда... когда это видишь - понимаешь всю очевидность. А догадаться по первости - фиг получится. Внутри это "блока" может быть сколько угодно добавления "локальных" переменных, а надо привести указатель стека в правильное состояние

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

вся структурность потерялась

Спасибо goto и метках. Хотя, как сказал мой первый сенсей по программированию - программа на Паскале с goto - плохая программа

[nzeemin]

Разбираюсь с L03362 - там тоже что-то наверчено на goto и возможно циклах с exit.
Смысл в том, что процедура проверяет - если мы идём вверх/вниз и стоим НЕ на лестнице - то это исключение, и рисовать игровой экран уже не нужно, выходим на конец процедуры.
Но оператора return у нас нет, поэтому здесь возникает какая-то мешанина.

- - - Updated - - -

Окей, с процедурой L03362 всё получилось, но без ассемблера не обошлось.
И тут либо автор знал как записать оператор выхода (я пробовал в разных комбинациях, не нашёл), либо он сделал примерно так же как и я.
В любом случае, эта процедура теперь совпадает до байта.

procedure L03362(A:char);
begin
...
		{$C	JMP L05114 } { Выход из процедуры }
...
{$C
L05114: } {метка для выхода из процедуры}
end;

Осталось 16 несовпадающих байт.

- - - Updated - - -

Нашёл все различия кроме одного байта в заголовочном блоке:
Comparing files STALKP.SAV and ..\STALK\STALK.GME
00000028: 0C 0E
Я не особо понимаю почему эта разница на два байта - 0x600E в оригинале и 0x600C у меня, подозреваю что как-то связано с глобальными переменными.

- - - Updated - - -

Переименовал:
L02332 -> RUKSEEK
L02574 -> ZVERX

- - - Updated - - -

В общем, этот этап работы - восстановление исходника игры на Паскале для дальнейшего портирования - можно считать практически завершённым.
Спасибо вам всем огромное за помощь и поддержку!

[Sandro]

Всё-таки не удержался и прошелся по уже имеющемуся исходнику с расстановкой осмысленных имён переменных и кое-где -- комментариев.

В принципе, всю внутреннюю логику я понял. Её не так уж и много. Есть странности и недоделки, в количестве. Но всё это можно повыкидывать/заоптимизировать.

Правда, когда возьмусь -- не знаю.

http://sandro.pdp-11.ru/misc/stalker/stalk_literate.pas