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