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

[Hunta]

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

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

[nzeemin]

Не скажу наверняка за 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

[Alex_K]

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

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

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

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

[nzeemin]

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

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

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

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

[Alex_K]

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

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

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

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

[nzeemin]

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

[Advertiser]

[Alex_K]

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

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

[nzeemin]

И я её нашёл 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

[свернуть]

[Alex_K]

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

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

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

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

[Hunta]

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

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

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

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