Trailing-Edge
-
PDP-10 Archives
-
decuslib20-05
-
decus/20-0152/neread.mac
There are 2 other files named neread.mac in the archive. Click here to see a list.
TITLE NEREAD
ENTRY NEREAD
FT10==1
FT20==0
IFN FT10<
SEARCH UUOSYM
>
IFN FT20<
SEARCH MONSYM
>
NEREAD:
IFN FT10<MOVE 1,[XWD 0,IO.SUP] ;SET TO SUPPRESS ECHOING
MOVE 2,[SIXBIT/TTY/]
MOVEI 3,0
OPEN 0,1
HALT
SETSTS 0,IO.SUP ;SUPPRESS ECHOING
INCHRW 0 ;INPUT A CHARACTER
SETSTS 0,0 ;TURN ECHOING BACK ON
>
IFN FT20<
MOVEI 1,.PRIIN
RFMOD ;READ TERMINAL CHARACTERISTICS
MOVEM 2,4 ;SAVE TO RESTORE LATER
TRNE 2,TT%ECO ;IS ECHOING ON?
TRC 2,TT%ECO ;TURN IT OFF FOR THIS
SFMOD ;TURN OFF ECHOING
PBIN ;READ A CHARACTER
MOVEM 1,0 ;RETURN IT TO CALLER
MOVE 2,4 ;RETRIEVE ORIGINAL TERM. CHARACT.
SFMOD ;TURN ECHOING BACK ON
>
POPJ 17,0
END