Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - glxkbd.c10
There is 1 other file named glxkbd.c10 in the archive. Click here to see a list.
 REP 29/1	;10C1
			KBDEDT==62		;VERSION OF MODULE
 WIT
			KBDEDT==63		;VERSION OF MODULE
 INS 102/3	;10C2
	0063		Fix local copy echo for half duplex lines.
			9-Nov-84 GCO 10119 /NT
 INS 7/6	;10C3
		$DATA	ECOMOD			;Local copy flag
 INS 50/7	;10C4
		MOVX	S1,.TOLCP		;See if terminal in local copy
		MOVE	S2,TRMUDX		;Get terminal index
		MOVE	TF,[2,,S1]		;Function pointer
		TRMOP.	TF,			;Do the function
		 SETZ	TF,			;Couldn't, assume off
		MOVEM	TF,ECOMOD		;Store setting
 REP 24/28	;10C5
		PUSHJ	P,ECHO			;RE-ECHO IT
 WIT
		PUSHJ	P,ECHOX			;RE-ECHO IT
 REP 3/29	;10C6
	ECHO:	MOVX	S1,RD%NEC		;GET NO ECHO BIT
		TDNE	S1,RD+.RDFLG		;TEST IT
		$RETT				;RETURN IF SET
 WIT
	ECHOX:	PUSH	P,ECOMOD		;Save the local echo mode
		SETZM	ECOMOD			;Make sure we always type chars
		PUSHJ	P,ECHO			;Output the character
		POP	P,ECOMOD		;Restore the local echo mode
		$RETT

	ECHO:	MOVX	S1,RD%NEC		;GET NO ECHO BIT
		TDNN	S1,RD+.RDFLG		;TEST IT
		SKIPE	ECOMOD			;Is terminal already in local copy?
		$RETT				;Return if either
 REP 22/35	;10C7
		PUSHJ	P,ECHO			;ECHO THE CHARACTER
 WIT
		PUSHJ	P,ECHOX			;ECHO THE CHARACTER
 SUM 3338