PASCAL + MACRO11 (УКНЦ-ДВК).

[form]

конструкции типа ПЕРЕМЕННАЯ:=ЗНАЧЕНИЕ OR КОНСТАНТА

Логическая операция. 36 (44 восьм) и 4160 (10100 восьм).
Берется значение адреса 44 (JSW), в нем устанавливаются 6й и 12й биты (10100), остальные биты не меняются. Эти биты устанавлвают посимвольный режим ввода без ожидния и обработки спецсимволов.

SCCA(CTRLC)

Здесь CTRLC не используется, система в этой переменной устанавливает флаг двойного нажатия CTRLC, что можно использовать для проверки этого условия (после проверки переменную нужно вручную обнулить). В программе не используется - мы просто вводом проверяем нажатие CTRL/C.

если это записать на ассемблере или как то развернуть как это выглядит для прямой как рельсы логики ?

На ассемблере будет попроще конечно.

	.MCALL	.SCCA,.TTINR,.TTYIN

INIT::
	BIS	#10100,@#44
	.SCCA	#AREA,#AREA
	RETURN

TTINR::
	.TTINR
	RETURN

TTYIN::
	.TTYIN
	RETURN

AREA:	.BLKW	2

с объявлением в паскале как

PROCEDURE INIT; FORTRAN;
FUNCTION TTINR: CHAR; FORTRAN;
FUNCTION TTYIN: CHAR; FORTRAN

можно конечно обойтись без фортранизма, но я просто не знаю как в паскале возвращаются параметры

[Advertiser]