Trailing-Edge
-
PDP-10 Archives
-
decuslib10-01
-
43,50212/intrup.mac
There are no other files named intrup.mac in the archive.
TITLE INTRUP
ENTRY INTRUP
;ROUTINE TO READ THE TTY FOR OPERATOR INTERVENTION
;INTRUP=.TRUE. IF OPERATOR HAS TYPED A CHARACTER
;INTRUP=.FALSE. IF NOT
;ARGUMENT = CHARACTER TYPED IN ASCII LEFT ADJUSTED-BLANK FILLED
ANS=0
AC=1
INTRUP: 0
SETZM ANS
TTCALL 2,AC ;READ TTY
JRA 16,(16) ;NOTHING THERE
SETOM ANS ;OPERATOR HAS INTERUPTED
LSH AC,35 ;LEFT ADJUST
OR AC,CON ;BLANK FILL
MOVEM AC,@(16) ;STORE IN ARG
JRA 16,(16)
CON: " "*2
END