Подскажите пожалуйста, как такую вот конструкцию на МАКРО-11 правильно соорудить?
Код:
PROCEDURE TTYOUT(N:INTEGER);
 CONST R=200B;
 VAR A ORIGIN 177564B, D ORIGIN 177566B:INTEGER;
BEGIN
 WHILE (A AND R)=0 DO;
 D:=N;
END; /* THIS PROCEDURE WAS COPIED FROM HPIC.PAS */
Спасибо )

---------- Post added at 17:09 ---------- Previous post was at 15:47 ----------

Отвечаю сам себе )))

Код:
...
PROCEDURE TTYOUT(N:INTEGER);
 CONST R=200B;
 VAR A ORIGIN 177564B, D ORIGIN 177566B:INTEGER;
BEGIN
 WHILE (A AND R)=0 DO;
 D:=N;
END; /* THIS PROCEDURE WAS COPIED FROM HPIC.PAS */

...
1$:	CLR	@#177564
	TST	@#177564
	BEQ	1$
	(вот как эта константа R (ЧТО ЭТО - УСЛОВИЕ?СОСТОЯНИЕ? ? я "тугой-тугой!")
	MOVE	N(SP), @#177566 
КАК ТО ТАК НАВЕРНОЕ?