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

[hobot]

PROCEDURE INIT;
VAR     ADDR    : INTEGER;
        VALUE   : INTEGER;
BEGIN
        ADDR:= 36;
        VALUE:= IPEEK(ADDR) OR 4160;
        POKE(ADDR, VALUE);
        SCCA(CTRLC);
END;

form, возвращаясь к твоей шпоре, можно вот эту
процедуру подробнее описать для танкистов-паскалистов )))
Меня конструкции типа ПЕРЕМЕННАЯ:=ЗНАЧЕНИЕ OR КОНСТАНТА
всегда в ступор приводят (я видимо мыслью иначе устроен иначе
был бы системщиком однозначно!) ADDR:= 36; и 4160 это ведь не от балды цифры, а про вызов SCCA(CTRLC); - я так понял надо
описание SCCA читать, но вот CTRLC переменная - что то я не понимаю её судьбу и значение? PEEK,POKE - это же бейсик !!! )))

---------- Post added at 21:48 ---------- Previous post was at 21:47 ----------

ПЕРЕМЕННАЯ:=ЗНАЧЕНИЕ OR КОНСТАНТА

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

[Advertiser]

[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

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