Программирование на УКНЦ как?

[Titus]

Для этого надо установить бит TTSPC$ (12й) в $JSW (44).

Спасибо! Буду сейчас пробовать.
А есть документация по этим битам?

---------- Post added at 15:49 ---------- Previous post was at 15:20 ----------

Сделал вот так:

		.Print	#NextPage		;Печатаем сообщение "Next page?"

		.Print	#KeyON			;Включить клавиатуру

  		 BIS     #TTSPC$,@#$JSW		;Запрет отображения символов на экране
  		 .TTYIN				;Ожидание нажатия клавиши
  		 CMP	R0,#13			;Если код = 13 (Возврат каретки),
  		 BNE	6$			;то ожидаем еще один код = 10 (перевод строки)
  		 .TTYIN				;	 
6$:			 
		.Print	#KeyOFF			;Отключить клавиатуру
		
		.Print	#NextLine		;Переходим на следующую строку

...

NextPage:	.ASCII	"Next page?"<128>
NextLine:	.ASCII	<13><10><128>
KeyOFF:		.ASCII	<27><91><50><104><128>
KeyON:		.ASCII	<27><91><50><108><128>

Отключение клавиатуры ESCAPE-последовательностью делаю для того, чтобы во время работы основной программы не пришло прерывание от канала клавиатуры и не сбило мне измерения.