PDP-10 Archive: decus/20-0152/neread.mac from decus_20tap5

Trailing-Edge - PDP-10 Archives - decus_20tap5_198111 - 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