Trailing-Edge
-
PDP-10 Archives
-
bb-kl11c-bm_tops20_v6_1_atpch1_16
-
autopatch/tv.c13
There are no other files named tv.c13 in the archive.
INS 1/1 ;13C1
; *** Edit 530 to TV.MAC by MAYO on 27-Jan-86, for SPR #21071
; Teach TV not to echo ^W and ^U.
; *** Edit 529 to TV.MAC by MAYO on 3-Jan-86, for SPR #20960
; Add VT200, VT131, and H19 as VT100 and VT52 equivalents.
; *** Edit 528 to TV.MAC by MAYO on 3-Jan-86
; Move the terminal dispatch tables together.
REP 19/2 ;13C2
.EDIT==VI%DEC+^D527 ;EDIT NUMBER, decimal
WIT
.EDIT==VI%DEC+^D530 ;EDIT NUMBER, decimal
INS 84/12 ;13C3
;**;[530] AT TECO:+67L, Added 1 line SM 27-Jan-86
TLZ C,(3B7+3B11) ;[530] KEEP ^W, ^U QUIET
REP 27/48 ;13C4
;TERMINAL INITIALIZATION ROUTINES
WIT
;TERMINAL INITIALIZATION ROUTINES
;All terminals tables go here. This makes the code harder to read, but
; easier to add new terminals to.
REP 52/48 ;13C5
WIT
;**; [529] Add 3 lines to TER table SM 3-Jan-86
TER .TT200,VT100 ;VT200 SERIES
TER .TT131,VT100 ;VT131
TER .TTH19,VT52 ;H19 (AS VT52)
REP 76/48 ;13C6
RADIX 8
WIT
;**; [529] Add 3 lines to TCR table SM 3-Jan-86
TCR .TT200,24,80,1
TCR .TT131,24,80,1
TCR .TTH19,24,80,1
RADIX 8
;ERASE REST OF LINE
TERINI EOLTAB
TER (.TTV05,IFIW!CLREOL)
TER (.TTV50,IFIW!V50EOL)
TER (.TT100,IFIW!V100CL)
TER (.TT102,IFIW!V100CL) ;VT102 IS LIKE VT100
TER (.TT125,IFIW!V100CL) ;VT102 IS LIKE VT100
TER (.TTV52,IFIW!V50EOL) ;VT52 GETS CLEARED JUST LIKE VT50
;**; [529] Add 3 lines to EOLTAB table SM 3-Jan-86
TER (.TT200,IFIW!V100CL) ;VT200 IS LIKE VT100 [529]
TER (.TT131,IFIW!V100CL) ;VT131 [529]
TER (.TTH19,IFIW!V50EOL) ;H19 [529]
;ERASE REST OF SCREEN
TERINI EOSTAB
TER (.TTV05,IFIW!CLREOS)
TER (.TTV50,IFIW!V50EOS)
TER (.TT100,IFIW!V100ES)
TER (.TT102,V100ES)
TER (.TT125,V100ES)
TER (.TTV52,IFIW!V50EOS) ;SCREEN CLEARING THE SAME ON VT52 AS VT50
;**; [529] Add 3 lines to EOSTAB table SM 3-Jan-86
TER (.TT200,IFIW!V100ES)
TER (.TT131,IFIW!V100ES)
TER (.TTH19,IFIW!V50EOS)
;GO HOME
TERINI HOMTAB
TER (.TTV05,IFIW!HOMEUP)
TER (.TTV50,IFIW!V50HOM)
TER (.TT100,IFIW!V100HM)
TER (.TT102,V100HM)
TER (.TT125,V100HM)
TER (.TTV52,IFIW!V50HOM) ;VT50 AND VT52 HOME THE SAME WAY
;**; [529] Add 3 lines to HOMTAB table SM 3-Jan-86
TER (.TT200,IFIW!V100HM)
TER (.TT131,IFIW!V100HM)
TER (.TTH19,IFIW!V50HOM)
;LINE STARVE
TERINI STVTAB
TER (.TTV05,IFIW!CUP)
TER (.TTV50,IFIW!V50CUP)
TER (.TT100,IFIW!V100UP)
TER (.TT102,IFIW!V100UP)
TER (.TT125,IFIW!V100UP)
TER (.TTV52,IFIW!V50CUP)
;**; [529] Add 3 lines to STVTAB table SM 3-Jan-86
TER (.TT200,IFIW!V100UP)
TER (.TT131,IFIW!V100UP)
TER (.TTH19,IFIW!V50CUP)
;END OF LINE CLEAR
TERINI EOLTB1
TER (.TTV05,IFIW!V05POL)
TER (.TTV50,IFIW!V50POL)
TER (.TT100,IFIW!V100PL)
TER (.TT102,IFIW!V100PL)
TER (.TT125,IFIW!V100PL)
TER (.TTV52,IFIW!V50POL)
;**; [529] Add 3 lines to EOLTB1 table SM 3-Jan-86
TER (.TT200,IFIW!V100PL)
TER (.TT131,IFIW!V100PL)
TER (.TTH19,IFIW!V50POL)
;SLIDE RIGHT 1 CHAR
TERINI RITTAB
TER (.TTV05,IFIW!V05RIT)
TER (.TTV50,IFIW!V50RIT)
TER (.TT100,IFIW!V100RT)
TER (.TT102,IFIW!V100RT)
TER (.TT125,IFIW!V100RT)
TER (.TTV52,IFIW!V50RIT)
;**; [529] Add 3 lines to RITTAB table SM 3-Jan-86
TER (.TT200,IFIW!V100RT)
TER (.TT131,IFIW!V100RT)
TER (.TTH19,IFIW!V50RIT)
;POSITION RANDOM
TERINI POSTAB ;CURSOR ADDRESSING ROUTINES
TER (.TTV05,IFIW!LINECH)
TER (.TTV50,IFIW!V50LIN)
TER (.TT100,IFIW!V100LN)
TER (.TT102,IFIW!V100LN)
TER (.TT125,IFIW!V100LN)
TER (.TTV52,IFIW!V50LIN)
;**; [529] Add 3 lines to POSTAB table SM 3-Jan-86
TER (.TT200,IFIW!V100LN)
TER (.TT131,IFIW!V100LN)
TER (.TTH19,IFIW!V50LIN)
DEL 33/72 ;13C7
TERINI EOLTAB
TER (.TTV05,IFIW!CLREOL)
TER (.TTV50,IFIW!V50EOL)
TER (.TT100,IFIW!V100CL)
TER (.TT102,IFIW!V100CL) ;VT102 IS LIKE VT100
TER (.TT125,IFIW!V100CL) ;VT102 IS LIKE VT100
TER (.TTV52,IFIW!V50EOL) ;VT52 GETS CLEARED JUST LIKE VT50
DEL 48/72 ;13C8
TERINI EOSTAB
TER (.TTV05,IFIW!CLREOS)
TER (.TTV50,IFIW!V50EOS)
TER (.TT100,IFIW!V100ES)
TER (.TT102,V100ES)
TER (.TT125,V100ES)
TER (.TTV52,IFIW!V50EOS) ;SCREEN CLEARING THE SAME ON VT52 AS VT50
DEL 67/72 ;13C9
TERINI HOMTAB
TER (.TTV05,IFIW!HOMEUP)
TER (.TTV50,IFIW!V50HOM)
TER (.TT100,IFIW!V100HM)
TER (.TT102,V100HM)
TER (.TT125,V100HM)
TER (.TTV52,IFIW!V50HOM) ;VT50 AND VT52 HOME THE SAME WAY
DEL 82/72 ;13C10
TERINI STVTAB
TER (.TTV05,IFIW!CUP)
TER (.TTV50,IFIW!V50CUP)
TER (.TT100,IFIW!V100UP)
TER (.TT102,IFIW!V100UP)
TER (.TT125,IFIW!V100UP)
TER (.TTV52,IFIW!V50CUP)
DEL 374/72 ;13C11
TERINI EOLTB1
TER (.TTV05,IFIW!V05POL)
TER (.TTV50,IFIW!V50POL)
TER (.TT100,IFIW!V100PL)
TER (.TT102,IFIW!V100PL)
TER (.TT125,IFIW!V100PL)
TER (.TTV52,IFIW!V50POL)
DEL 409/72 ;13C12
TERINI RITTAB
TER (.TTV05,IFIW!V05RIT)
TER (.TTV50,IFIW!V50RIT)
TER (.TT100,IFIW!V100RT)
TER (.TT102,IFIW!V100RT)
TER (.TT125,IFIW!V100RT)
TER (.TTV52,IFIW!V50RIT)
DEL 469/72 ;13C13
TERINI POSTAB ;CURSOR ADDRESSING ROUTINES
TER (.TTV05,IFIW!LINECH)
TER (.TTV50,IFIW!V50LIN)
TER (.TT100,IFIW!V100LN)
TER (.TT102,IFIW!V100LN)
TER (.TT125,IFIW!V100LN)
TER (.TTV52,IFIW!V50LIN)
SUM 211521