Для этого надо установить бит TTSPC$ (12й) в $JSW (44).
к примеру:
печатает подсказку, ждет нажатия клавиши, выходитКод:.MCALL .TTYIN,.PRINT,.EXIT $JSW = 44 TTSPC$ = 10000 TEST: BIS #TTSPC$,@#$JSW .PRINT #PROMPT .TTYIN .EXIT PROMPT: .ASCII /--->/<200>
---------- Post added at 17:46 ---------- Previous post was at 17:44 ----------
Другой вариант - запретить прерывания от клавиатуры и работать напрямую с регистрами, но этот вариант несовместим с виртуальными программами и не будет работать в системах с поддержкой многотерминальности.
---------- Post added at 17:57 ---------- Previous post was at 17:46 ----------
Еще дополнение - иногда полезен бит TCBIT$ (6й) - при его установке .TTINR (EMT 340) не останавливается в ожидании символа, а проходит дальше с установленным битом C если ничего не нажато.





Ответить с цитированием