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

по теме игры, а не работ по исходнику...
этот символ навсегда стал именоваться как
¬ - студень

¤ - (это не из Сталкера - называли "солнышко")

===============================

Несколько раз были брожения от самых слабых (только БЕЙСИК),
до могучих (напишу что угодно) программистов сделать Сталкер
действительно мощный, по книге, с миссиями, возможностью сбыть
хабар, со статистикой и внятным сюжетом, повесть все взялись читать \ пречитывать
(ради побольше оригинальных названий для предметов и описания к ним надёргать),
но как то всё угомонилось...экзамены у всех и прочее всякое, заглохло, а позже и
тусовка потихоньку растаяла...

И по прежнему вариант игры который имел только одно подземелье и 8 комнат (и всё!!!)
не найден (как и "Страна Монстров" - увы и ах)

Цитата:

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

Ну так это while true просто.

Да, эт я чё то протупил :) Собственно, с дизасмом возился - голова другим занята была :)

Цитата:

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

по теме игры, а не работ по исходнику...

По теме игры -
- Какое значение имеет кольцо? зачем его надевать/снимать?
- S - свистнуть - зачем?
- Что такое "ВП"?
- Как "проверить зверя на убегаемость"?

Цитата:

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

по теме игры, а не работ по исходнику...
Несколько раз были брожения от самых слабых (только БЕЙСИК),
до могучих (напишу что угодно) программистов сделать Сталкер
действительно мощный, по книге, с миссиями, возможностью сбыть
хабар, со статистикой и внятным сюжетом, повесть все взялись читать \ пречитывать
(ради побольше оригинальных названий для предметов и описания к ним надёргать),
но как то всё угомонилось...экзамены у всех и прочее всякое, заглохло, а позже и
тусовка потихоньку растаяла...

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

А что книжка не помогла -- понятно. Она же вообще не про Зону и артефакты, там она описана очень мельком, отдельными эпизодами. И артефактов разъяснено штук пять и примерно столько же упомянуто. И всё.

Авторам игры S.T.A.L.K.E.R. пришлось всё придумывать с нуля. Практически всё.

Цитата:

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

По теме игры -
- Какое значение имеет кольцо? зачем его надевать/снимать?
- S - свистнуть - зачем?
- Что такое "ВП"?
- Как "проверить зверя на убегаемость"?

1. если кольцо правильное (без заклятия) то надев его ты получаешь (силовое поле)
защиту от всех "не убегающих" зверей, они будут за тобой гоняться, но покусать уже не будут )))

2. свисток найди \ возьми узнаешь ;-) у свистков разные функции, как и у бутылочек )

3. "ВП" - Волшебная Палочка же, (см. к\ф "Чародеи")

4. Если ты на него встал, а надписей типа "ну сейчас он вам покажет!" внизу нет - такого надо жарить [Y],
он в еду превратиться, без еды запаса - не обойтись, следи за вредностью и экономь батареи...
ОТДОХНУТЬ-БЫ - надо обязательно отдыхать иначе кранты - "0".

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

да! я не написал - зачем кольцо снимать ))) Никита, при вкл. защитном поле ты убегающих не сможешь пожарить в ответ...

Цитата:

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

Там меня другое удивляет - в этом коде есть неструктурный переход - сброс стека и JMP - я вот думаю это ассемблерная вставка или язык как-то позволяет так сделать.

Там в книге по Паскалю я встречал, что некоторые Паскали поддерживают Break (выход из цикла), Exit (из цикла или из процедуры), ну и, само собой, Goto.

Продолжаю раскопки.
Убедился что версии библиотеки Паскаля у меня и у автора игры - разные. Его версия сконфигурирована так что не использует EIS - вместо DIV стоит цикл.

Нашёл вот этот Паскаль без EIS в библиотеке:
http://archive.pdp-11.org.ru/ukdwk_a...d\rt11a_wd.dsk

Код:

HELLO P A S C A L 10- -89 PAGE 1 ДВК "ЭЛЕКТРОНИКА НЦ 8020/2,3,4"

Цитата:

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

Нашёл вот этот Паскаль без EIS в библиотеке:

А это в каком модуле?

Цитата:

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

А это в каком модуле?

Это в процедуре $B26:

Код:

L52462: CLR R0 L52464: INC R0 ; реализация DIV (R4)+, R0 SUB (R4), R1 ; BPL L52464 ; ADD (R4)+, R1 ; DEC R0 ; L52476: BNE L52516

Цитата:

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

Это в процедуре $B26:

У меня такая же библиотека без EIS, всё совпало.

Цитата:

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

Его версия сконфигурирована так что не использует EIS - вместо DIV стоит цикл.

Не скажу наверняка за OMSI Pascal первых версий - игрался больше со второй, но - в поставке было несколько вариантов библиотек (без EIS и плавучки, с EIS без плавучки, с EIS и FIS, с EIS и FPP), а у компилятора был ключ - какой код генерироваться (вот тут с написанием ключей могу ошибаться и они - под RSX, в RT однобуквенные ключи, но если такое же было и в первых версиях, тот смысл будет тот же самый) - типа /EIS /FIS /FPP

Цитата:

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

Не скажу наверняка за OMSI Pascal первых версий - игрался больше со второй, но - в поставке было несколько вариантов библиотек (без EIS и плавучки, с EIS без плавучки, с EIS и FIS, с EIS и FPP), а у компилятора был ключ - какой код генерироваться (вот тут с написанием ключей могу ошибаться и они - под RSX, в RT однобуквенные ключи, но если такое же было и в первых версиях, тот смысл будет тот же самый) - типа /EIS /FIS /FPP

Здесь это не ключ компиляции, а ответы на вопросы при установке Паскаля из исходного пакета; библиотека выбирается из восьми вариантов.
https://ia800500.us.archive.org/4/it..._1.2_RT-11.pdf - Page 98

- - - Updated - - -

Думаю, я добрался примерно до половины.
Свой прогресс выкладываю тут:
https://github.com/nzeemin/uknc-vari...TALK/STALK.MAC
https://github.com/nzeemin/uknc-vari...CAL/STALK1.PAS

Цитата:

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

Думаю, я добрался примерно до половины.

ГРОМАДНОЕ СПАСИБО!!! Действительно огромный труд.
Я тоже решил посмотреть библиотеку Паскаля. У меня она без EIS и с поддержкой FIS, также как и в игре.
По поводу использования Паскаля на УКНЦ с его процессором 1801ВМ2 - в модуле SUPRNM есть довольно опасные команды:

Код:

L52106: MOV (PC), R3 L52110: ADD R0, R1 L52112: CALL 057212

Результаты могут быть непредсказуемыми.

Цитата:

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

ГРОМАДНОЕ СПАСИБО!!! Действительно огромный труд.

Это вам спасибо, Алексей! без вас бы я никуда не доехал.

Цитата:

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

Результаты могут быть непредсказуемыми.

Из-за конвейера предвыборки операций?

Цитата:

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

Это вам спасибо, Алексей! без вас бы я никуда не доехал.

Мне спасибо не надо, в разборе игры СТАЛКЕР я не участвую. Но эту игру очень люблю, частенько играю в неё. Есть конечно для PC, но это не оригинал, чувствуется.

Цитата:

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

Из-за конвейера предвыборки операций?

Да из-за неё. Весьма большая вероятность, что команда ADD R0,R1 выполнится два раза, но проверять надо на реальной УКНЦ.

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

Цитата:

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

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

Да, довольно интересная процедурка. При определённых условиях идёт вызов TRAP 220. А в исходниках прямой настройки вектора 034 я не нашёл.

И я её нашёл 8-)
Это процедура RANDU из FORLIB.OBJ, т.е. из фортрановской библиотеки.
Отличается только параметром #3 в первой строчке - может это не та версия Фортрана.

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

Код:

.ENABL LC .NLIST BEX .TITLE $RANDU .IDENT /F40002/ .ASECT .CSECT ..: .PSECT OTS$I B.: .BLKB 132 . = B. RANDU:: ; CMPB @R5, #3 BNE B.126 TST (R5)+ MOV (R5)+, R2 MOV (R5)+, R3 MOV @R2, R0 MOV @R3, R1 BEQ B.116 ASL R1 ROL R0 ADD @R2, R0 ADD @R3, R1 ADC R0 ADD @R3, R0 BPL B.44 ADD #100000, R0 B.44: ; B MOV R0, @R2 MOV R1, @R3 MOV #201, R2 B.54: ; B ASL R1 ROL R0 BCS B.66 DEC R2 BR B.54 B.66: ; B CLRB R1 BISB R0, R1 SWAB R1 CLRB R0 BISB R2, R0 SWAB R0 ROR R0 ROR R1 MOV (R5)+, R3 MOV R0, (R3)+ MOV R1, @R3 BR B.130 B.116: ; B MOV #3, R1 INC R0 BR B.44 B.126: ; B TRAP 220 B.130: ; B RETURN .END

[свернуть]

Цитата:

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

Это процедура RANDU из FORLIB.OBJ, т.е. из фортрановской библиотеки.

У hobot-а в хламничке аж 13 вариантов, почти все разные.

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

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

Цитата:

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

Это процедура RANDU из FORLIB.OBJ

Блин, надо было мне сообразить :) Фортрановская OTS использует TRAP для сигнализации об ошибках :)

Цитата:

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

может это не та версия Фортрана

Технически, FORLIB и транслятор Фортрана идут как бы вместе, но практически можно попробовать (и есть вероятность, что прокатит) FORLIB от неродной версии компилятора. Кроме того, DEC выпускала патчи как для компилятора, так и для FORLIB и они могли идти не вместе. Так что правильней будет сказать - не та версия библиотеки OTS Фортрана :)

Цитата:

Сообщение от 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

За вчера-сегодня исправил несколько ошибок.
Написал программу для патчинга строк (на 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

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

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

Цитата:

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

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

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

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

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

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

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

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

Цитата:

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

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

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

Код:

Время Дата 17:05:50 16-Апр-2021, Пятница .RU STALKB STALKER БК-0011М VERSION ЗАГАДАЙТЕ ЧИСЛО.МОЖЕТ БЫТЬ, ОНО ВАМ ПРИГОДИТСЯ... ТАМ...

Код:

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

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

Код:

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

Код:

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

Цитата:

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

goto 1;

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

Цитата:

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

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

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

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

Цитата:

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

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

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

Разбираюсь с 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 - - -

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

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

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

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

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