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

[Alex_K]

Ещё вопрос по Паскалю, извиняюсь заранее.
Почему не работает такой код, как сделать чтобы собиралось?
Идея в чём - передать адрес переменной в виде параметра.
Как решить другой спецификацией READCHAR я знаю прекрасно - можно возвращаемым значением отдать. Но по-другому мне не нужно, нужно именно так.

Вроде в стандартном Паскале передача по ссылке идёт со словом VAR:

PROGRAM HELLO;
VAR C:CHAR;

PROCEDURE READCHAR(VAR ADDR:CHAR);
BEGIN
	{тут будет ассемблерный код}
END;

BEGIN
	READCHAR(C);
END.

[Hunta]

Вроде в стандартном Паскале передача по ссылке идёт со словом VAR:

Ну, судя по фразе из доков

"NonPascal" Directive___________ _________

The directive "NonPascal" may be used instead of "external" if the
external  procedure  is  written  in a language other than Pascal.
"NonPascal" generates the Digital standard calling  sequence  used
by  FORTRAN and most MACRO routines.  This calling sequence passes
all parameters by reference, so only "var" parameters may be used.

таки да

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

Вдогонку - дока от второй версии, так что в первой надо проверить

[Oleg N. Cher]

О, нашёл в доке

Hunta, а можно эту доку от OMSI Pascal 2 глянуть? Спасибо заранее.

Я нашёл книжку по разным особенностям Паскалей тех времён. OMSI там тоже есть. Можно использовать как справочник.

• https://ua1lib.org/book/774861/85992...&secret=859924

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

Кстати, в этом же справочнике я пытался найти как впихнуть в строку символы с произвольным кодом. В OMSI это сделать нельзя.

[Hunta]

Hunta, а можно эту доку от OMSI Pascal 2 глянуть?

Постараюсь завтра выложить

[nzeemin]

Восстановил около 350 строк исходника на Паскале.
Всего в ассемблере около 7000 строк кода - я думаю это даст 1000-1200 паскалевских строк.

[Alex_K]

Восстановил около 350 строк исходника на Паскале.
Всего в ассемблере около 7000 строк кода - я думаю это даст 1000-1200 паскалевских строк.

Есть в этой игре большой плюс - используется только целочисленная арифметика, никакой плавающей запятой.

[hobot]

Hunta, кстати говоря, @form вроде пробовал запускать, но я не помню получилось или нет - работает ли Сталкер под RTEM?

[Hunta]

Понятия не имею. Но почему бы и нет

[Hunta]

Наткнулся на такое интересное место...

M12254:
	TSTB	#1

	BNE	M12266
	JMP	M40120

M12266:
	MOV	4(R5), R0

[nzeemin]

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

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

L40036:	INC	(R5)			; следующее подземелье
L40040:	ADD	#000062, 000056(R5)
L40046:	MOV	050406, SP		; Возвращаем SP к исходному значению
L40052:	JMP	L06650			; рестарт игры
; ответили НЕТ на "А дальше пойдете?"
L40056:	MOV	050406, SP		; Возвращаем SP к исходному значению
L40062:	JMP	L40120			; завершаем игровой цикл