Google
 

Trailing-Edge - PDP-10 Archives - BB-FP64A-SB_1986 - 10,7/sed/sedtty.mac
There are 10 other files named sedtty.mac in the archive. Click here to see a list.
TITLE	SEDTTY - COMBINED TERMINAL DEFINITION FILE FOR SED
SUBTTL	A CHRISTOPHER HALL FECIT

;COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1979,1983.

	SEARCH	SEDSYM
IFN TOPS10,<SEARCH UUOSYM>
IFE TOPS10,<SEARCH MONSYM>

;NOTE:  SEDTTY  combines  all  the terminal tables (which were formerly
;distributed separately) into one file. The tables  for  each  terminal
;can  be  enabled  individually by setting a flag below. If two or more
;terminals are enabled, code will also be set up which asks the monitor
;what type of terminal it is and/or processes  the  /Z:  terminal  name
;switch  (if  there's  only  one terminal type, no decisions have to be
;made, so that decision code does not assemble).

;CAVAET:  Most  of  the  tables  here  are  not up to date, some are of
;questionable reliability, and some define  different  arrangements  of
;SED commands on the keyboard. That is because many tables were sent to
;me  by  sites  who  had  those  terminals,  and I distribute them as I
;receive them. New tables or updates or  corrections  to  these  tables
;will be gratefully accepted and incorporated into this file. so PLEASE
;look  over the tables you want to enable to make sure they do what you
;want them to. The terminal tables,  not  the  documentation,  are  the
;final authority on which keystrokes invoke which commands.

;The only tables I can guarantee to be up-to-date are those for the DEC
;VT52 and VT100 family of terminals. I use those terminals every day.


;To add a new terminal:
;(see SED.MEM for a complete description of each table)

;1) Invent names for the terminal:
;     NAME5 (VT100) - 5-character (or less) name used to build labels
;     NAM4  (V100)  - 4-character name ditto
;     NM3   (V10)   - 3-character name ditto
;     TNAME (VT100) - Name to call the terminal. Used with the /Z: switch.
;		      This is the name returned by TRMOP. on TOPS-20,
;		      or set up in the T20NAM table [see below] on TOPS-20.

;2) Add a switch to the list below (format must be F'NAME5).

;3) Add "GOTERM('NAME5)" to the list at termnl (alphabetical is nice
;   but unnecessary).

;4) Add to CRTTAB: the SIXBIT terminal name (TNAME), under the switch
;   (F'NAME5).

;5) Add the terminal tables under feature test switch F'NAME5.

;6) If TOPS20, add TNAME to T20NAM: at the position of the index returned
;   from GTTYP (NOTE: The name in T20NAM must match name in CRTTAB in the
;   monitor).
;   NOTE: Every terminal must have an entry routine. The routine must begin
;   with the line "IFN ..IDX-1,<JRST DECIDE>" and end with "POPJ P,".

;NAMING CONVENTIONS:
;A number of labels or flags can be found in every terminal table. To avoid
;duplication, they should be named as described below. Similar labels not
;listed here should follow the same conventions. The intention is that if
;sedtty is assembled with all terminals on (all the F'NAME5==1), there will
;be no duplicate labels.

;O'NAME5	Address of terminal output table
;I'NAME5	Address of terminal input table
;C'NAME5	Address of routine to position cursor to given ROW, COLUMN
;L'NAME5	Address of routine to position to start of line
;E'NAME5	Address of entry routine
;X'NAME5	Address of exit routine
;S'NM3'.T	Address of terminal subtable (Example: SV52.T)
;S'NM3'.S	Length of terminal subtable (Example: SV52.S)
;F'NAM4'F	Fast-terminal flag (set if terminal sends XOFF-XON)
;F'NAM4'X	Some other terminal-dependent flag


;FLAGS TO ENABLE EACH TERMINAL TABLE.
;SET VALUE TO 1 IF YOU WANT SED TO RUN ON THAT TERMINAL

FAD100==0	;ADDS REGENT 100
FADM2==0	;ADM2
FADM31==0	;ADM-31
FADM3A==0	;ADM-3A
FANARB==0	;ANN ARBOR
FBEHIV==0	;BEEHIVE B100
FDM3K==0	;DATAMEDIA 3000
FDM152==0	;DATAMEDIA 1520/1521
FDMELT==0	;DATAMEDIA ELITE
FDDISK==0	;DATA DISK
FGIGI==1	;GIGI (VK100)
FH1500==0	;HAZELTINE 1500
FZEH19==0	;ZENITH H19
FMEM2A==0	;MIME 2A
FONTEL==0	;ONTEL SUGARMAN
FIQ120==0	;SOROC IQ 120
FT4041==0	;TELRAY 4041
FVT52==1	;DIGITAL VT52
FVT61==1	;DIGITAL VT61
FVT100==1	;DIGITAL VT100
FVT102==1	;DIGITAL VT102
FVT125==1	;DIGITAL VT125
FVI200==0	;VISUAL 200
FVIEWP==0	;ADDS VIEWPOINT
FVT220==1	;DIGITAL VT220
FVT240==1	;DIGITAL VT240
IFN FVT220!FVT240,<FVT102==1>	;FOR MOST PART, THEY WORK LIKE THIS

;IF A FLAG ABOVE IS ON THIS MACRO PUTS THE ADDRESS OF THAT TERMINAL'S OUTPUT
;TABLE AT THE END OF THE LIST AT TERMNL AND ASSIGNS THE INDEX IN TERMNL TO
;X'NAME. FOR EXAMPLE, IF THE TERMINAL IS THE VT52, ITS NAME IS VT52, AND ITS
;TABLE ADDRESS IS OVT52.
;TERMINAL NAMES MUST BE NO LONGER THAN 5 CHARACTERS.

DEFINE GOTERM(NAME),<
	IFN F'NAME,<
	  IF2,<PRINTX [SED will include support for 'NAME terminals]>
	  ..IDX=..IDX+1
	  O'NAME>
	>
	..IDX==0

TERMNL::GOTERM AD100	;ADDRESSES OF THE TERMINAL TABLES TO USE
	GOTERM ADM2
	GOTERM ADM31
	GOTERM ADM3A
	GOTERM ANARB
	GOTERM BEHIV
	GOTERM DM3K
	GOTERM DM152
	GOTERM DDISK
	GOTERM DMELT
	GOTERM GIGI
	GOTERM H1500
	GOTERM ZEH19
	GOTERM MEM2A
	GOTERM ONTEL
	GOTERM IQ120
	GOTERM T4041
	GOTERM VT52
	GOTERM VT61
	GOTERM VT100
	GOTERM VT102
	GOTERM VT125
	GOTERM VI200
	GOTERM VIEWP
	GOTERM VT220
	GOTERM VT240

IFE ..IDX,<PRINTX ?No terminals are turned on for SED>

;IF THERE'S ONLY ONE TERMINAL TYPE, NO DECISIONS HAVE TO BE MADE.
;SO IF ..IDX IS 1 DON'T GENERATE THESE TABLES AND THE DECISION CODE.

IFN ..IDX-1,<

;SED-INTERNAL NAMES OF TERMINALS. USED BY THE /Z: SWITCH
;AND TO MATCH THE TERMINAL NAME RETURNED FROM THE MONITOR

CRTTAB:
IFN FAD100,<SIXBIT /AD100/>
IFN FADM2, <SIXBIT /ADM2/>
IFN FADM31,<SIXBIT /ADM31/>
IFN FADM3A,<SIXBIT /ADM3A/>
IFN FANARB,<SIXBIT /ANNARB/>
IFN FBEHIV,<SIXBIT /BEEHIV/>
IFN FDM3K, <SIXBIT /DM3000/>
IFN FDM152,<SIXBIT /DM1520/>
IFN FDDISK,<SIXBIT /DDISK/>
IFN FDMELT,<SIXBIT /DMELT/>
IFN FGIGI, <SIXBIT /GIGI/>
IFN FH1500,<SIXBIT /H1500/>
IFN FZEH19,<SIXBIT /ZENH19/>
IFN FMEM2A,<SIXBIT /MIME2A/>
IFN FONTEL,<SIXBIT /ONTEL/>
IFN FIQ120,<SIXBIT /IQ120/>
IFN FT4041,<SIXBIT /TE4041/>
IFN FVT52, <SIXBIT /VT52/>
IFN FVT61, <SIXBIT /VT61/>
IFN FVT100,<SIXBIT /VT100/>
IFN FVT102,<SIXBIT /VT102/>
IFN FVT125,<SIXBIT /VT125/>
IFN FVI200,<SIXBIT /VI200/>
IFN FVIEWP,<SIXBIT /VIEWP/>
IFN FVT220,<SIXBIT /VT220/>
IFN FVT240,<SIXBIT /VT240/>
CRTLEN==.-CRTTAB

IFE TOPS10,<
;TABLE OF TERMINAL NAMES RECOGNIZED BY TOPS-20.
;CONTAINS SIXBIT SED-INTERNAL TERMINAL NAME; INDEXED BY VALUE RETURNED BY GTTYP
;(STILL UNDER IFN ..IDX)

.NOCRT==0	;NOT A CRT TERMINAL

T20NAM:
	.NOCRT			; 0  ( 0) - MOD 33
	.NOCRT			; 1  ( 1) - MOD 35
	.NOCRT			; 2  ( 2) - MOD 37
	.NOCRT			; 3  ( 3) - TI
	0			; 4  ( 4) - RESERVED FOR CUSTOMER
	0			; 5  ( 5) -     "     "     "
	0			; 6  ( 6) -     "     "     "
	0			; 7  ( 7) -     "     "     "
	.NOCRT			; 8  (10) - DEFAULT: MAX PADDING, ETC.
	.NOCRT		        ; 9  (11) - 'IDEAL' TERMINAL, NO FILL INF SIZ
	0		        ; 10 (12) - VT05
	0		        ; 11 (13) - VT50
	.NOCRT		        ; 12 (14) - LA30
	.NOCRT		        ; 13 (15) - (OBSOLETE)
	.NOCRT		        ; 14 (16) - LA36
	SIXBIT /VT52/		; 15 (17) - VT52
	SIXBIT /VT100/	        ; 16 (20) - VT100
	.NOCRT		        ; 17 (21) - LA38
	.NOCRT		        ; 18 (22) - LA120
	0			; 19 (23) - RESERVED FOR CUSTOMER
	0			; 20 (24) -     "     "     "
	0			; 21 (25) -     "     "     "
	0			; 22 (26) -     "     "     "
	0			; 23 (27) -     "     "     "
	0			; 24 (30) -     "     "     "
	0			; 25 (31) -     "     "     "
	0			; 26 (32) -     "     "     "
	0			; 27 (33) -     "     "     "
	0			; 28 (34) -     "     "     "
	0			; 29 (35) -     "     "     "
	0			; 30 (36) -     "     "     "
	0			; 31 (37) -     "     "     "
	0			; 32 (40) -     "     "     "
	0			; 33 (40) -     "     "     "
	0			; 34 (41) -     "     "     "
	SIXBIT /VT125/	        ; 35 (42) - VT125
	SIXBIT /GIGI/	        ; 36 (43) - VK100
	SIXBIT /VT102/	        ; 37 (45) - VT102
T20NLN==.-T20NAM
>
;SUBROUTINE TO DECIDE WHICH TERMINAL TABLE TO USE
;JUMPS INTO TERMINAL'S ENTRY ROUTINE + 1 (ASSUMES +0/ JRST DECIDE)
;SETS UP T4/ SIXBIT TERMINAL NAME, TM/ ADDRESS OF TERMINAL TABLE

;(STILL UNDER IFN ..IDX)

DECIDE:	SKIPE	T3,TRMNAM	;DID USER GIVE A NAME WITH THE /Z SWITCH?
	JRST	DECID1		;YES - ASSUME HE KNOWS WHAT HE'S DOING; USE IT
IFN TOPS10,<
	MOVE	T3,[2,,T1]	;GET THE TERMINAL TYPE NAME FROM TOPS-10
	MOVEI	T1,.TOTRM	;IN AC T3
	SETO	T2,
	TRMOP.	T3,
	  JRST	DECDN1		;TERMINAL IS UNKNOWN TO TOPS-10
>
IFE TOPS10,<
	MOVEI	T1,.PRIIN	;GET THE TERMINAL TYPE NUMBER FROM TOPS-20
	GTTYP
	  ERJMP	DECDN1		;ERROR (SHOULD NEVER HAPPEN)
	SKIPN	T3,T20NAM(T2)	;MAKE THE NUMBER A SIXBIT NAME IN T3 - VALID?
	JRST	DECDN1		;NO - NON-CRT OR UNDEFINED - ERROR
>
DECID1:	PUSHJ	P,MATCH		;FIND THE GIVEN TERMINAL NAME IN THE TABLE
	JUMPGE	T1,DECIDN	;JUMP IF NO MATCH OR AMBIGUOUS
	HRR	TM,TERMNL(T1)	;ELSE SET UP ADDRESS OF TERMINAL'S TABLES
	MOVE	T4,CRTTAB(T1)	;AND SIXBIT NAME OF TERMINAL
	MOVE	T1,RTE(TM)	;GET ADDRESS OF TERMINAL'S ENTRY ROUTINE
	JRST	1(T1)		;CONTINUE FROM THERE, SKIPPING THE JRST DECIDE

;HERE IF TERMINAL TYPE IS UNKNOWN. COMPLAIN AND EXIT.

DECIDN:	HRROI	T1,[ASCIZ /? Terminal name is ambiguous
/]
	CAIN	T1,0		;SET UP NO MATCH OR AMBIGUOUS MESSAGE
DECDN1:	HRROI	T1,[ASCIZ /? Your terminal type is unknown to SED
/]
IFN TOPS10,<
	OUTSTR	(T1)
	EXIT
>
IFE TOPS10,<
	PSOUT
	HALTF
>
;THIS ROUTINE MATCHES THE GIVEN (SIXBIT) STRING WITH THE TABLE CRTTAB.
;NON-AMBIGUOUS ABBREVIATIONS ARE ALLOWED
;CALL WITH T3/ KEYWORD
;RETURNS T1/ IOWD INDEX (<0) IF MATCH; 0 IF NO MATCH; >0 IF AMBIGUOUS

MATCH:	SETO	T2,		;GET THE MASK OF THE RIGHT LENGTH
	LSH	T2,-6
	TDNE	T3,T2
	JRST	.-2
	SETZ	T4,		;CLEAR IOWD OF FIRST ABBREVIATION FOUND
	MOVSI	T1,-CRTLEN	;GET IOWD INTO TERMINAL NAME TABLE
MATCH1:	MOVE	T0,CRTTAB(T1)	;GET NEXT TABLE ENTRY
	XOR	T0,T3		;SEE IF IT'S AN EXACT MATCH
	JUMPE	T0,CPOPJ	;IF SO, RETURN WITH IOWD INDEX IN T1
	ANDCM	T0,T2		;ELSE MASK ENTRY TO THE LENGTH OF THE KEY
	JUMPN	T0,MATCH3	;JUMP IF NO MATCH
	CAIN	T4,0		;ALREADY FOUND AN ABBREVIATED MATCH?
	SKIPA	T4,T1		;NO - SAVE INDEX OF THIS ONE
	TLZ	T4,-1		;YES - ABBREVIATION IS AMBIGUOUS
MATCH3:	AOBJN	T1,MATCH1	;NO EXACT MATCH YET - LOOP THROUGH TABLE
	MOVE	T1,T4		;DONE - RETURN IOWD INDEX IN T1
	POPJ	P,		;(0=NOT FOUND, -1=AMBIGUOUS)

> ;END IFN ..IDX
IFN FAD100,<
;ADDS REGEANT 100 TERMINAL DEFINITIONS

OAD100:	BYTE (7) 32		;CURSOR UP
	BYTE (7) 12		; DOWN
	BYTE (7) 6		; RIGHT
	BYTE (7) 10		; LEFT
	BYTE (7) 33,"Y"," "," "	; HOME
	BYTE (7) 33,"k" 	;CLEAR PAGE
	BYTE (7) 33,"K" 	;CLEAR LINE
	BYTE (7) 1,12		;ROLL UP AND CLEAR LINE
	CPOPJ			;ROLL DOWN AND CLEAR LINE
	CPOPJ			;PROTECT ON
;	BYTE(7) 33,"0","Q"	;PROTECT ON
	CPOPJ			;PROTECT OFF
;	BYTE (7) 33,"0","@"	;PROTECT OFF
	0			;INSERT A BLANK LINE
	0			;INSERT A SPACE
	0			;DELETE LINE
	0			;DELETE SPACE
	BYTE (7) 33,"Y","7"," "	;MOVE TO BOTTOM
	BYTE (7) 14		;HOME AND CLEAR PAGE
	CAD100			;ROUTINE TO POSITION TO CHARACTER
	LAD100			;ROUTINE TO POSITION TO START OF LINE
	^D24			;LINES PER PAGE
	^D80			;CHARACTERS PER LINE
	WRP!NLP!SLW!MRK		;FLAGS (WRAPAROUND, REWRITE LAST LINE)
	EAD100			;ROUTINE TO CALL ON ENTRY
	XAD100			;ROUTINE TO CALL ON EXIT
	1,,0			;SEND NULLS AFTER CURSOR POSITIONING
	IAD100			;ADDRESS OF TERMINAL INPUT TABLE
IFN FTIMD,<
	0			;START INSERT MODE
	0			;END INSERT MODE
IFN FTLSR,<
	CPOPJ			;LIMIT SCROLLING REGION
	CPOPJ			;UNLIMIT SCROLLING REGION
>>
	"*"			;MARK CHARACTER

		0			;COMMAND FOR RUBOUT (RESET)
IAD100:		4
	EXP	37
	-SA10.S,,SA10.T			;^B REQUIRES A SUBTABLE (FUNCTION KEYS)
	EXP	       3,12, 5,35,40	; C - G
	EXP	10,11,34,1,23,15,7,25	; H - O
	EXP	20,27,22,0,24,10,26,21	; P - W
	EXP	30,31,36,33,14,35,13,6	; X - Z, [,\,],^,_
SA10.S=.-SA10.T

SA10.T:	IASUB1,,"1"	;f1 = set file
	IASUB2,,"2"	;f2 = insert control character
	IASUB3,,"3"	;f3 = insert real tab
	IASUB4,,"4"	;f4 = switch
	IASUB5,,"5"	;f5 = insert/replace toggle
	IASUB6,,"6"	;f6 = recall
	IASUB7,,"7"	;f7 = mark
	IASUB8,,"8"	;f8 = exit

IASUB1:	2,,0
IASUB2:	17,,0
IASUB3:	43,,0
IASUB4:	16,,0
IASUB5:	41,,0
IASUB6:	40,,0
IASUB7:	44,,0
IASUB8:	32,,0

;POSITIONING ALGORITHMS
;OUTPUT ROW+37, COLUMN+37; STARTING ROW, COLUMN ARE [1,1]

;MOVE TO ROW (RW), COLUMN (CM)

CAD100:	MOVE	T1,[BYTE (7) 33,"Y"]
	PUSHJ	P,PUTSQ1	;START IT OFF
	MOVEI	T1,40(RW)	;GET ROW POSITION
	IDPB	T1,TY
	MOVEI	T1,40(CM)	;GET COLUMN POSITION
	IDPB	T1,TY
	POPJ	P,		;DONE

;MOVE TO START OF LINE (T4)

LAD100:	MOVE	T1,[BYTE (7) 33,"Y"]
	PUSHJ	P,PUTSQ1	;START IT OFF
	MOVEI	T1,40(T4)	;GET ROW POSITION
	IDPB	T1,TY
	MOVEI	T1,40		;MOVE TO COLUMN ZERO
	IDPB	T1,TY
	POPJ	P,

;ENTRY ROUTINE TO SET TT FORM AND NO CRLF BITS

;NOTE: THE ENTRY AND EXIT ROUTINES HAVE BEEN WRITTEN FOR TOPS-10 ONLY

EAD100:
IFN ..IDX-1,<JRST DECIDE>
IFN TOPS10,<
	PJOB	T1,		;GET JOB NUMBER IN T1
	TRMNO.	T1,		;GET UNIVERSAL DEVICE INDEX IN T1
	  POPJ	P,		;ERROR RETURN
	MOVEM	T1,TTFORM+1	;SET UDI IN ARG BLOCKS
	MOVEM	T1,TTCRLF+1
	MOVEM	T1,TTSET+1
	MOVE	T1,[XWD 2,TTFORM]
	TRMOP.	T1,
	  POPJ	P,		;ERROR RETURN
	MOVEM	T1,TTSTAT	;SAVE FORM STATUS BIT
	MOVE	T1,[XWD 2,TTCRLF]
	TRMOP.	T1,
	  POPJ	P,
	MOVEM	T1,TTSTAT+1	;SAVE CRLF STATUS BIT
	SETOM	TTSET+2		;RESET WORD IF ROUTINE IS USED AGAIN
	MOVE	T1,[XWD 3,TTSET]
	TRMOP.	T1,		;SET TT FORM
	  POPJ	P,
	MOVEI	T1,2010
	MOVEM	T1,TTSET
        MOVE	T1,[XWD 3,TTSET]
        TRMOP.	T1,		;SET TT NO CRLF
          POPJ	P,		;ERROR RETURN
>
	POPJ	P,		;NORMAL RETURN

;EXIT ROUTINE TO RESTORE FORM AND CRLF STATUS

XAD100:
IFN TOPS10,<
	MOVE	T1,TTSTAT+1
        MOVEM	T1,TTSET+2
        MOVE	T1,[XWD 3,TTSET]
        TRMOP.	T1,		;RESTORE CRLF STATUS
          POPJ	P,		;ERROR RETURN
        MOVEI	T1,2006
        MOVEM	T1,TTSET
        MOVE	T1,TTSTAT
        MOVEM	T1,TTSET+2
        MOVE	T1,[XWD 3,TTSET]
        TRMOP.	T1,		;RESTORE FORM STATUS
          POPJ	P,		;ERROR RETURN
>
        POPJ	P,		;NORMAL RETURN

IFN TOPS10,<
;DATA BLOCKS FOR INITIALIZATION TRMOPS (FORM, NO CRLF)

TTFORM: 1006
        0
TTCRLF: 1010
        0
TTSET:  2006
        0
        -1
TTSTAT: 0		;WORD TO SAVE TTY LINE CHARACTERISTICS
        0
>
>
IFN FADM2,<
;ADM2 TERMINAL DEFINITIONS

OADM2:	BYTE (7) 13		;CURSOR UP
	BYTE (7) 12		; DOWN
	BYTE (7) 14		; RIGHT
	BYTE (7) 10		; LEFT
	BYTE (7) 36		; HOME
	BYTE (7) 33,"Y" 	;CLEAR PAGE
	BYTE (7) 33,"T" 	;CLEAR LINE
	BYTE (7) 12		;ROLL UP AND CLEAR LINE
	BYTE (7) 33,"E" 	;ROLL DOWN AND CLEAR LINE
	BYTE (7) 33,")"		;PROTECT ON
	BYTE (7) 33,"("		;PROTECT OFF
	BYTE (7) 33,"E" 	;INSERT A BLANK LINE
	BYTE (7) 33,"Q" 	;INSERT A SPACE
	BYTE (7) 33,"R" 	;DELETE LINE
	BYTE (7) 33,"W" 	;DELETE SPACE
	BYTE (7) 36,13		;MOVE TO BOTTOM
	BYTE (7) 36,33,"Y"	;HOME AND CLEAR PAGE
	CADM2			;ROUTINE TO POSITION TO CHARACTER
	LADM2			;ROUTINE TO POSITION TO START OF LINE
	^D24			;LINES PER PAGE
	^D80			;CHARACTERS PER LINE
	WRP			;FLAGS (WRAPAROUND)
	EADM2			;ROUTINE TO CALL ON ENTRY
	CPOPJ			;ROUTINE TO CALL ON EXIT
	0			;NO NULLS NEEDED
	IADM2			;ADDRESS OF TERMINAL INPUT TABLE
IFN FTIMD,<
	0			;ENTER INSERT MODE
	0			;EXIT INSERT MODE
IFN FTLSR,<
	CPOPJ			;LIMIT SCROLLING REGION
	CPOPJ			;UNLIMIT SCROLLING REGION
>>

		 0			;COMMAND FOR RUBOUT (RESET)
IADM2:		40
	-SAD2.S,,SAD2.T			;^A NEEDS A SUBTABLE
	EXP	       2, 3, 4, 5, 6, 7
	EXP	10,11,34,36,35,15,16,17 ;^K AND ^L ALTERED
	EXP	20,21,22,23,24,25,26,27
	EXP	30,31,32,33,34,35,37,43 ;36==HOME; 37==REAL-TAB

SAD2.T:	IADF16,,"O"	;^A O CR == 16 == ENTER
	IADF01,,"@"	;^A @ CR ==  1 == INSERT-SPACES
	IADF02,,"A"	;^A A CR ==  2 == DELETE-SPACES
	IADF03,,"B"	;^A B CR ==  3 == SLIDE-LEFT
	IADF04,,"C"	;^A C CR ==  4 == SLIDE-RIGHT
	IADF13,,"L"	;^A L CR == 13 == ERASE-CHARACTER
	IADF14,,"M"	;^A M CR == 14 == INSERT MODE
	IADF15,,"N"	;^A N CR == 15 == RECALL
	IADF08,,"G"	;^A G CR ==  8 == REAL TAB
	IADF12,,"K"	;^A K CR == 12 == MARK
	IADF11,,"J"	;^A J CR == 11 == ERASE-LINE
	IADF10,,"I"	;^A I CR == 10 == WINDOW
SAD2.S==.-SAD2.T

IADF01:	"A"-100,,0
IADF02:	"S"-100,,0
IADF03:	"K"-100,,0
IADF04:	"L"-100,,0
IADF08:	43,,0
IADF12:	44,,0
IADF13:	42,,0
IADF14:	41,,0
IADF15:	40,,0
IADF16:	33,,0
IADF11:	50,,0
IADF10:	47,,0

;ROUTINE TO CALL ON ENTRY

EADM2:
IFN ..IDX-1,<JRST DECIDE>
	POPJ	P,

;POSITIONING ALGORITHMS

CADM2:	MOVE	T1,[BYTE (7) 33,"="]
	PUSHJ	P,PUTSQ1	;START IT OFF
	MOVEI	T1,40(RW)	;GET ROW POSITION
	IDPB	T1,TY
	MOVEI	T1,40(CM)	;GET COLUMN POSITION
	IDPB	T1,TY
	POPJ	P,		;DONE

LADM2:	MOVE	T1,[BYTE (7) 33,"="]
	PUSHJ	P,PUTSQ1	;START IT OFF
	MOVEI	T1,40(T4)	;GET ROW POSITION
	IDPB	T1,TY
	MOVEI	T1,40		;MOVE TO COLUMN ZERO
	IDPB	T1,TY
	POPJ	P,
>
IFN FADM31,<
;NOTE: THIS MODULE IS AS YET UNTESTED, AND MAY NOT BE QUITE RIGHT

FAD31F==0	;SET THIS IF TERMINAL SENDS OUT XON-XOFF'S

;TERMINAL OUTPUT TABLE - SEQUENCES TO MAKE THE TERMINAL DO SPECIAL THINGS

OADM31:	BYTE (7) 13		;CURSOR UP
	BYTE (7) 12		; DOWN
	BYTE (7) 14		; RIGHT
	BYTE (7) 10		; LEFT
	BYTE (7) 36		; HOME
	BYTE (7) 33,"Y"		;CLEAR TO END OF PAGE
	BYTE (7) 33,"T"		;CLEAR TO END OF LINE
	BYTE (7) 12		;ROLL UP AND CLEAR LINE
	BYTE (7) 33,"E"		;ROLL DOWN AND CLEAR LINE
	BYTE (7) 33,"G","4"	;PROTECT ON (CPOPJ IF NONE)
	BYTE (7) 33,"G","0"	;PROTECT OFF (CPOPJ IF NONE)
	BYTE (7) 33,"E"		;INSERT LINE (0 IF NONE)
	BYTE (7) 33,"Q"		;INSERT SPACE (0 IF NONE)
	BYTE (7) 33,"R"		;DELETE LINE (0 IF NONE)
	BYTE (7) 33,"W"		;DELETE SPACE (0 IF NONE)
	BYTE (7) 36,13		;MOVE TO BOTTOM
	BYTE (7) 36,33,"Y"	;HOME AND CLEAR ENTIRE PAGE
	CADM31			;ROUTINE TO POSITION TO CHARACTER
	LADM31			;ROUTINE TO POSITION TO START OF LINE
	^D24			;LINES PER PAGE
	^D80			;CHARACTERS PER LINE
IFE FAD31F,<
	WRP			;TERMINAL-DEPENDENT FLAGS (WRAP)
>
IFN FAD31F,<
	WRP!NPG		;TERMINAL-DEPENDENT FLAGS (KEEP TTY PAGE)
>
	EADM31			;ROUTINE TO CALL ON ENTRY
	CPOPJ			;ROUTINE TO CALL ON EXIT
        0,,0                    ;NUMBER OF NULLS TO OUTPUT,,NULL CHARACTER
	IADM31			;ADDRESS OF INPUT CHARACTER TABLE
IFN FTIMD,<
	0			;ENTER INSERT MODE
	0			;EXIT INSERT MODE
IFN FTLSR,<
	CPOPJ			;LIMIT SCROLLING REGION
	CPOPJ			;UNLIMIT SCROLLING REGION
>>

;TERMINAL INPUT TABLE - TELLS WHAT CONTROL CHARACTERS OR SEQUENCES
;INVOKE WHICH COMMANDS

IFE FAD31F,<
                0                       ;CODE FOR RUBOUT (0==RESET)
IADM31:	EXP	33, 1, 2, 3, 4, 5, 6, 7 ;NOTHING SPECIAL
	EXP	10,11,34,36,35,15,16,17
	EXP	20,21,22,23,24,25,26,27
	EXP	30,31,32
	-SA31.S,,SA31.T			;ESCAPE NEEDS A SUBTABLE
	EXP		 34,35,37,37
>
IFN FAD31F,<
;THIS TABLE SETS UP THE KEYBOARD ARRANGEMENT FOR WHEN YOU NEED TO KEEP
;TTY PAGE IN EFFECT BECAUSE THE TERMINAL SENDS OUT ITS OWN CONTROL S AND Q'S
;THOSE TWO CHARACTERS CANNOT BE COMMANDS SINCE SED DOES NOT KNOW WHETHER THE
;USER HAS TYPED THEM OR THEY WERE SENT BY THE TERMINAL.

;SO Q GOES TO A, A AND S GO TO B AND N, B TO ESCAPE-F, AND M TO ESCAPE-S.

                 0                      ;COMMAND FOR RUBOUT (RESET)
IADM31:	EXP	33,21, 1, 3, 4, 5, 6, 7 ;NOTHING SPECIAL
	EXP	10,11,34,36,35,15,23,17
	EXP	20, 0,22, 0,24,25,26,27
	EXP	30,31,32
	-SA31.S,,SA31.T
	EXP		 34,35,37,37
>
;SUBTABLE FOR ESCAPE

SA31.T:	33,,33		;ESCAPE ESCAPE == ENTER
	37,,"H" 	;ESCAPE H == HOME
	42,,"D" 	;ESCAPE D == DELETE-CHARACTER
	41,,"I" 	;ESCAPE I == INSERT-MODE
	43,,"T" 	;ESCAPE T == REAL-TAB
	44,,"M" 	;ESCAPE M == MARK
	40,,"E" 	;ESCAPE E == RECALL
	13,,"L" 	;ESCAPE L == SLIDE-LEFT
	14,,"R" 	;ESCAPE R == SLIDE-RIGHT
	47,,"W" 	;ESCAPE W == WINDOW
IFN FAD31F,<
	02,,"F"		;ESCAPE F == SET-FILE
	16,,"S"		;ESCAPE S == SWITCH
>
SA31.S=.-SA31.T

;ROUTINE TO CALL ON ENTRY

EADM31:
IFN ..IDX-1,<JRST DECIDE>
	POPJ	P,

;POSITIONING ALGORITHMS

CADM31:	MOVE	T1,[BYTE (7) 33,"="]
	PUSHJ	P,PUTSQ1	;START IT OFF
	MOVEI	T1,40(RW)	;GET ROW POSITION
	IDPB	T1,TY
	MOVEI	T1,40(CM)	;GET COLUMN POSITION
	IDPB	T1,TY
	POPJ	P,		;DONE

LADM31:	MOVE	T1,[BYTE (7) 33,"="]
	PUSHJ	P,PUTSQ1	;START IT OFF
	MOVEI	T1,40(T4)	;GET ROW POSITION
	IDPB	T1,TY
	MOVEI	T1,40		;MOVE TO COLUMN ZERO
	IDPB	T1,TY
	POPJ	P,
>
IFN FADM3A,<
;TABLES FOR THE ADM3A

FAD3AF==0	;SET THIS IF TERMINAL SENDS OUT XON-XOFF'S
FAD3AA==0	;SET THIS IF TERMINAL HAS THE AUTONL SWITCH SET ON

;TERMINAL OUTPUT TABLE - SEQUENCES TO MAKE THE TERMINAL DO SPECIAL THINGS

OADM3A:	BYTE (7) 13		;CURSOR UP
	BYTE (7) 12		; DOWN
	BYTE (7) 14		; RIGHT
	BYTE (7) 10		; LEFT
	BYTE (7) 36		; HOME
	0			;CLEAR TO END OF PAGE
	0			;CLEAR TO END OF LINE
	BYTE (7) 12		;ROLL UP AND CLEAR LINE
	0			;ROLL DOWN AND CLEAR LINE
	0			;PROTECT ON  (NONE)
	0			;PROTECT OFF (NONE)
	0			;INSERT LINE (NONE)
	0			;INSERT SPACE (NONE)
	0			;DELETE LINE (NONE)
	0			;DELETE SPACE (NONE)
	BYTE (7) 33,"=","7"," "	;MOVE TO BOTTOM
	BYTE (7) 36,32		;HOME AND CLEAR ENTIRE PAGE
	CADM3A			;ROUTINE TO POSITION TO CHARACTER
	LADM3A			;ROUTINE TO POSITION TO START OF LINE
	^D24			;LINES PER PAGE
	^D80			;CHARACTERS PER LINE
IFE FAD3AF,<
IFE FAD3AA,<
	MRK!SLW			;TERMINAL-DEPENDENT FLAGS (MARK)
>
IFN FAD3AA,<
	WRP!MRK!SLW		;TERMINAL-DEPENDENT FLAGS (WRAP, MARK)
>>
IFN FAD3AF,<
IFE FAD3AA,<
	MRK!NPG!SLW		;TERMINAL-DEPENDENT FLAGS (KEEP TTY PAGE)
>
IFN FAD3AA,<
	WRP!MRK!NPG!SLW		;TERMINAL-DEPENDENT FLAGS (KEEP TTY PAGE)
>>
	EADM3A			;ROUTINE TO CALL ON ENTRY
	CPOPJ			;ROUTINE TO CALL ON EXIT
        0,,0                    ;NUMBER OF NULLS TO OUTPUT,,NULL CHARACTER
	IADM3A			;ADDRESS OF INPUT CHARACTER TABLE
IFN FTIMD,<
	0			;ENTER INSERT MODE
	0			;EXIT INSERT MODE
IFN FTLSR,<
	CPOPJ			;LIMIT SCROLLING REGION
	CPOPJ			;UNLIMIT SCROLLING REGION
>>
	"~"			;MARK TO INSERT ON ENTER

;TERMINAL INPUT TABLE - TELLS WHAT CONTROL CHARACTERS OR SEQUENCES
;INVOKE WHICH COMMANDS

IFE FAD3AF,<
                0                       ;CODE FOR RUBOUT (0==RESET)
IADM3A:	EXP	33, 1, 2, 3, 4, 5, 6, 7 ;NOTHING SPECIAL
	EXP	10,11,34,36,35,15,16,17
	EXP	20,21,22,23,24,25,26,27
	EXP	30,31,32
	-SA3A.S,,SA3A.T			;ESCAPE NEEDS A SUBTABLE
	EXP		 34,35,37,37
>
IFN FAD3AF,<
;THIS TABLE SETS UP THE KEYBOARD ARRANGEMENT FOR WHEN YOU NEED TO KEEP
;TTY PAGE IN EFFECT BECAUSE THE TERMINAL SENDS OUT ITS OWN CONTROL S AND Q'S
;THOSE TWO CHARACTERS CANNOT BE COMMANDS SINCE SED DOES NOT KNOW WHETHER THE
;USER HAS TYPED THEM OR THEY WERE SENT BY THE TERMINAL.

;SO Q GOES TO A, A AND S GO TO B AND N, B TO ESCAPE-F, AND N TO ESCAPE-S.

                 0                      ;COMMAND FOR RUBOUT (RESET)
IADM3A:	EXP	33,21, 1, 3, 4, 5, 6, 7 ;NOTHING SPECIAL
	EXP	10,11,34,36,35,15,23,17
	EXP	20, 0,22, 0,24,25,26,27
	EXP	30,31,32
	-SA3A.S,,SA3A.T
	EXP		 34,35,37,37
>
;SUBTABLE. PUT THE MOST FREQUENTLY-USED SEQUENCES FIRST
;ENTER IS PROBABLY THE MOST COMMON OF ALL

SA3A.T:	$ENTER,,33	;ESCAPE ESCAPE == ENTER
	$CURHM,,"H"	;ESCAPE H == HOME
	$CURHM,,"h"	;ESCAPE h == HOME
	$DELCH,,"D"	;ESCAPE D == DELETE-CHARACTER
	$DELCH,,"d"	;ESCAPE d == DELETE-CHARACTER
	$INMOD,,"I"	;ESCAPE I == INSERT-MODE
	$INMOD,,"i"	;ESCAPE i == INSERT-MODE
	$RLTAB,,"T"	;ESCAPE T == REAL-TAB
	$RLTAB,,"t"	;ESCAPE t == REAL-TAB
	$MARK,,"M"	;ESCAPE M == MARK
	$MARK,,"m"	;ESCAPE m == MARK
	$RECAL,,"E"	;ESCAPE E == RECALL
	$RECAL,,"e"	;ESCAPE e == RECALL
	$CASE,,"C"	;ESCAPE C == CASE
	$CASE,,"c"	;ESCAPE c == CASE
	$SLDLF,,"L"	;ESCAPE L == SLIDE-LEFT
	$SLDLF,,"l"	;ESCAPE l == SLIDE-LEFT
	$SLDRT,,"R"	;ESCAPE R == SLIDE-RIGHT
	$SLDRT,,"r"	;ESCAPE r == SLIDE-RIGHT
	$WINDW,,"W"	;ESCAPE W == WINDOW
	$WINDW,,"w"	;ESCAPE w == WINDOW
	$SUBST,,"X"	;ESCAPE X == SUBSTITUTE
	$SUBST,,"x"	;ESCAPE x == SUBSTITUTE

	$BLINE,,"<"	;ESCAPE < == GO TO START OF LINE
	$ELINE,,">"	;ESCAPE > == GO TO END OF LINE
	$ERSLN,,"F"	;ESCAPE F == ERASE TO EOL
	$ERSLN,,"f"	;ESCAPE f == ERASE TO EOL
	$UPTAB,,"K"	;ESCAPE K == UP TAB
	$UPTAB,,"k"	;ESCAPE k == UP TAB
	$DNTAB,,"J"	;ESCAPE J == DOWN TAB
	$DNTAB,,"j"	;ESCAPE j == DOWN TAB
	$REWRT,,"Q"	;ESCAPE Q == REDRAW SCREEN
	$REWRT,,"q"	;ESCAPE q == REDRAW SCREEN
	$SAVE,,"Z"	;ESCAPE Z == SAVE FILE
	$SAVE,,"z"	;ESCAPE z == SAVE FILE
	$HELP,,"?"	;ESCAPE ? == HELP
	$ERSWD,,"U"	;ESCAPE U == ERASE PREVIOUS WORD
	$ERSWD,,"u"	;ESCAPE u == ERASE PREVIOUS WORD

IFN FAD3AF,<
	$SETFI,,"F"	;ESCAPE F == SET-FILE
	$SETFI,,"f"	;ESCAPE f == SET-FILE
	$SWTCH,,"S"	;ESCAPE S == SWITCH
	$SWTCH,,"s"	;ESCAPE s == SWITCH
>
SA3A.S=.-SA3A.T

;ROUTINE TO CALL ON ENTRY

EADM3A:
IFN ..IDX-1,<JRST DECIDE>
	POPJ	P,

;POSITIONING ALGORITHMS

CADM3A:	MOVE	T1,[BYTE (7) 33,"="]
	PUSHJ	P,PUTSQ1	;START IT OFF
	MOVEI	T1,40(RW)	;GET ROW POSITION
	IDPB	T1,TY
	MOVEI	T1,40(CM)	;GET COLUMN POSITION
	IDPB	T1,TY
	POPJ	P,		;DONE

LADM3A:	MOVE	T1,[BYTE (7) 33,"="]
	PUSHJ	P,PUTSQ1	;START IT OFF
	MOVEI	T1,40(T4)	;GET ROW POSITION
	IDPB	T1,TY
	MOVEI	T1,40		;MOVE TO COLUMN ZERO
	IDPB	T1,TY
	POPJ	P,
>
IFN FANARB,<

;OUTPUT TABLE FOR THE ANN-ARBOR TERMINAL

OANARB:	BYTE (7) 16		;CURSOR UP
	BYTE (7) 12		; DOWN
	BYTE (7) 37		; RIGHT
	BYTE (7) 10		; LEFT
	BYTE (7) 13		; HOME
	0			;CLEAR TO END OF PAGE
	0			;CLEAR TO END OF LINE
	0			;ROLL UP AND CLEAR LINE
	BYTE (7) 12		;ROLL DOWN AND CLEAR LINE
	CPOPJ			;PROTECT ON (CPOPJ IF NONE)
	CPOPJ			;PROTECT OFF (CPOPJ IF NONE)
	0			;INSERT LINE (0 IF NONE)
	0			;INSERT SPACE (0 IF NONE)
	0			;DELETE LINE (0 IF NONE)
	0			;DELETE SPACE (0 IF NONE)
	BYTE (7) 13,16		;MOVE TO BOTTOM
	BYTE (7) 13,14		;HOME AND CLEAR PAGE
	CPOPJ			;SEQUENCE FOR ABSOLUTE POSITIONING
	CPOPJ			;ALGORITHM FOR CURSOR POSITIONING
	^D40			;LINES PER PAGE
	^D80			;CHARACTERS PER LINE
	MRK			;FLAGS (MARK ON ENTER, NO ROLL DOWN)
	EANARB			;ROUTINE TO CALL ON ENTRY
	CPOPJ			;ROUTINE TO CALL ON EXIT
	0			;NO NULLS NEEDED
	IANNAB			;ADDRESS OF INPUT CHARACTER TABLE
IFN FTIMD,<
	0			;INSERT MODE ON (NONE)
	0			;INSERT MODE OFF (NONE)
IFN FTLSR,<
	CPOPJ			;LIMIT SCROLLING REGION
	CPOPJ			;UNLIMIT SCROLLING REGION
>>
	"$"			;MARK TO DISPLAY ON ENTER (OMIT IF MRK NOT SET)

;TERMINAL INPUT TABLE - TELLS WHAT CONTROL CHARACTERS OR SEQUENCES
;INVOKE WHICH COMMANDS

		 0			;COMMAND FOR RUBOUT (RESET)
IANNAB:	EXP	40, 1, 2, 3, 4, 5, 6, 7
	EXP	10,11,34,37,14,15,34,17 ;13==HOME, 16==UP
	EXP	20,21,22,23,24,25,26,27
	EXP	30,31,32
	-7,,ISUBTB			;ESCAPE NEEDS A SUBTABLE (FOR EXAMPLE)
	EXP		 34,35,36,35    ;37==RIGHT

	EXP	$RESET				;RUBOUT
		0
IVT52:	EXP		$RECAL, $INSSP, $SETFI	;   0, A, B
;			40	1	2
	EXP	$ABORT, $INSLN, $SRCBK, $DELLN	;C, D, E, F
;		3	4	5	6
	EXP	$PUT,   $DELCH, $TAB,   $ERSLN	;G, H, I, J
; DELCH		7	XX 	11	50
	EXP	$SLDLF, $SLDRT, $RETRN, $SWTCH	;K, L, M, N
;		13	14	15	16
	EXP	$ENTCC, $GOTO,  $RLBKP, $SRCFW	;O, P, Q, R
;		17	20	21	22
	EXP	$DELSP, $RLFWL, $BKTAB, $PICK	;S, T, U, V
;		23	24	25	26
	EXP	$RLBKL, $EXEC,  $RLFWP, $EXIT	;W, X, Y, Z
;		27	30	31	32
	EXP	-SIZ.IS,,I.VT52			;ESCAPE
;		33
	EXP	$PUSH,  $CURRT, $SUBST, $SAVE 	;\, ], ^, _

ISUBTB: $CURUP,,"A" 	;ESCAPE A == UP
	$CURDN,,"B" 	;ESCAPE B == DOWN
	$CURRT,,"C" 	;ESCAPE C == RIGHT
	$CURLF,,"D" 	;ESCAPE D == LEFT
	$ENTER,,"P" 	;ESCAPE P == ENTER
	$CURHM,,"R" 	;ESCAPE R == HOME
	$RECAL,,"Q" 	;ESCAPE Q == RECALL

;ANN-ARBOR ENTRY ROUTINE. NONE NEEDED; JUST INTERFACE TO DECIDE:

EANARB:
IFN ..IDX-1,<JRST DECIDE>	;DECIDE WHICH TERMINAL, IF MORE THAN ONE
	POPJ	P,		;NOTHING ELSE TO DO
>
IFN FBEHIV,<
;BEEHIVE B100 TERMINAL DEFINITIONS FOR THE EDITOR

FBE10F==0	;SET THIS IF TERMINAL SENDS OUT XON-XOFF'S

;TERMINAL OUTPUT TABLE - SEQUENCES TO MAKE THE TERMINAL DO SPECIAL THINGS

OBEHIV:	BYTE (7) 33,"A"		;CURSOR UP
	BYTE (7) 33,"B"		; DOWN
	BYTE (7) 33,"C"		; RIGHT
	BYTE (7) 33,"D"		; LEFT
	BYTE (7) 33,"H"		; HOME
	BYTE (7) 33,"J"		;CLEAR TO END OF PAGE
	BYTE (7) 33,"K"		;CLEAR TO END OF LINE
	BYTE (7) 12		;ROLL UP AND CLEAR LINE
	BYTE (7) 0		;ROLL DOWN AND CLEAR LINE
	BYTE (7) 33,"]"		;PROTECT ON (CPOPJ IF NONE)
	BYTE (7) 33,"["		;PROTECT OFF (CPOPJ IF NONE)
	BYTE (7) 0		;INSERT LINE (0 IF NONE)
	BYTE (7) 0		;INSERT SPACE (0 IF NONE)
	BYTE (7) 0		;DELETE LINE (0 IF NONE)
	BYTE (7) 33,"P"		;DELETE SPACE (0 IF NONE)
	BYTE (7) 33,"F","7"," "	;MOVE TO BOTTOM
	BCLRSC			;HOME AND CLEAR ENTIRE PAGE
	CBEHIV			;ROUTINE TO POSITION TO CHARACTER
	LBEHIV			;ROUTINE TO POSITION TO START OF LINE
	^D24			;LINES PER PAGE
	^D80			;CHARACTERS PER LINE
IFE FBE10F,<
	WRP!NLP			;TERMINAL-DEPENDENT FLAGS
>
IFN FBE10F,<
	WRP!NLP!NPG		;TERMINAL-DEPENDENT FLAGS (KEEP TTY PAGE)
>
	EBEHIV			;ROUTINE TO CALL ON ENTRY
	CPOPJ			;ROUTINE TO CALL ON EXIT
	6,,0			;NUMBER OF NULLS TO OUTPUT,,NULL CHARACTER
	IBEHIV			;ADDRESS OF INPUT CHARACTER TABLE
IFN FTIMD,<
	0			;ENTER INSERT MODE
	0			;EXIT INSERT MODE
IFN FTLSR,<
	CPOPJ			;LIMIT SCROLLING REGION
	CPOPJ			;UNLIMIT SCROLLING REGION
>>

;TERMINAL INPUT TABLE - TELLS WHAT CONTROL CHARACTERS OR SEQUENCES
;INVOKE WHICH COMMANDS

IFE FBE10F,<
		0			;CODE FOR RUBOUT (0==RESET)
IBEHIV:	EXP	40, 1, 2, 3, 4, 5, 6, 7 ;NOTHING SPECIAL
	EXP	10,11,34,13,14,15,16,17
	EXP	20,21,22,23,24,25,26,27
	EXP	30,31,32
	-SB10.S,,SB10.T			;ESCAPE NEEDS A SUBTABLE
	EXP		 34,35,36,37
>
IFN FBE10F,<
;THIS TABLE SETS UP THE KEYBOARD ARRANGEMENT FOR WHEN YOU NEED TO KEEP
;TTY PAGE IN EFFECT BECAUSE THE TERMINAL SENDS OUT ITS OWN CONTROL S AND Q'S
;THOSE TWO CHARACTERS CANNOT BE COMMANDS SINCE SED DOES NOT KNOW WHETHER THE
;USER HAS TYPED THEM OR THEY WERE SENT BY THE TERMINAL.

;SO Q GOES TO A, A AND S GO TO K AND L, K TO ESCAPE-L, AND L TO ESCAPE-T.

		 0			;COMMAND FOR RUBOUT (RESET)
IBEHIV:	EXP	40,21, 2, 3, 4, 5, 6, 7 ;NOTHING SPECIAL
	EXP	10,11,34, 1,23,15,16,17
	EXP	20, 0,22, 0,24,25,26,27
	EXP	30,31,32
	-SB10.S,,SB10.T
	EXP		 34,35,36,37
>
;SUBTABLE. PUT THE MOST FREQUENTLY-USED SEQUENCES FIRST
;ENTER IS PROBABLY THE MOST COMMON OF ALL

SB10.T:	33,,"E" 	;ESCAPE E == ENTER
	33,,"e"
	43,,"T" 	;ESCAPE T == REAL-TAB
	43,,"t"
	40,,"Q" 	;ESCAPE Q == RECALL
	40,,"q"
	41,,"I" 	;ESCAPE I == INSERT-MODE
	41,,"i"
	44,,"M" 	;ESCAPE M == MARK
	44,,"m"
	50,,"K" 	;ESCAPE K == ERASE-LINE
	50,,"k"
	47,,"W" 	;ESCAPE W == WINDOW
	47,,"w"
IFN FBE10F,<
	13,,"L"		;ESCAPE L == SLIDE-LEFT
	14,,"R"		;ESCAPE T == SLIDE-RIGHT
	13,,"l"		;ESCAPE l == SLIDE-LEFT
	14,,"r"		;ESCAPE t == SLIDE-RIGHT
>
SB10.S=.-SB10.T

;ROUTINE TO CALL ON ENTRY

EBEHIV:
IFN ..IDX-1,<JRST DECIDE>
	POPJ	P,

;SUBROUTINE TO MOVE TO ROW (RW), COLUMN (CM)

CBEHIV:	MOVE	T1,[BYTE (7) 33,"F"]
	PUSHJ	P,PUTSQ1	;START IT OFF
	MOVEI	T1,40(RW)	;GET ROW POSITION
	IDPB	T1,TY
	MOVEI	T1,40(CM)	;GET COLUMN POSITION
	IDPB	T1,TY
	POPJ	P,		;DONE

;SUBROUTINE TO MOVE TO START OF LINE (T4)

LBEHIV:	MOVE	T1,[BYTE (7) 33,"F"]
	PUSHJ	P,PUTSQ1	;START IT OFF
	MOVEI	T1,40(T4)	;GET ROW POSITION
	IDPB	T1,TY
	MOVEI	T1,40		;MOVE TO COLUMN ZERO
	IDPB	T1,TY
	POPJ	P,

;SUBROUTINE TO MOVE TO START OF LINE (T4)

BCLRSC:	MOVE	T1,[BYTE (7) 33,"E"]
	PUSHJ	P,PUTSQ1
	PUSHJ	P,PUTTYP	;OUTPUT IT NOW
	MOVEI	T1,^D100	;LET IT TAKE EFFECT
IFN TOPS10,<
	HIBER	T1,
	  JFCL
>
IFE TOPS10,<
	DISMS
>
	POPJ	P,
>
IFN FDM3K,<
;DATAMEDIA 3000 TERMINAL DEFINITIONS

FDM3KF==0	;SET THIS IF TERMINAL SENDS OUT XON-XOFF'S

;TERMINAL OUTPUT TABLE - SEQUENCES TO MAKE THE TERMINAL DO SPECIAL THINGS

ODM3K:	BYTE (7) 33,"A"		;CURSOR UP
	BYTE (7) 12		; DOWN
	BYTE (7) 33,"C"		; RIGHT
	BYTE (7) 10		; LEFT
	BYTE (7) 33,"H"		; HOME
	BYTE (7) 33,"J"		;CLEAR TO END OF PAGE
	BYTE (7) 33,"K"		;CLEAR TO END OF LINE
	BYTE (7) 12		;ROLL UP AND CLEAR LINE
	BYTE (7) 0		;ROLL DOWN AND CLEAR LINE
	BYTE (7) 33,"O"		;PROTECT ON (CPOPJ IF NONE)
	BYTE (7) 33,"N"		;PROTECT OFF (CPOPJ IF NONE)
	BYTE (7) 0		;INSERT LINE (0 IF NONE)
	BYTE (7) 33,"R"		;INSERT SPACE (0 IF NONE)
	BYTE (7) 0		;DELETE LINE (0 IF NONE)
	BYTE (7) 0		;DELETE SPACE (0 IF NONE)
	BYTE (7) 33,"Y"," ","7"	;MOVE TO BOTTOM
	BYTE (7) 33,"H",33,"J"	;HOME AND CLEAR ENTIRE PAGE
	CDM3K			;ROUTINE TO POSITION TO CHARACTER
	LDM3K			;ROUTINE TO POSITION TO START OF LINE
	^D24			;LINES PER PAGE
	^D80			;CHARACTERS PER LINE
IFE FDM3KF,<
	WRP			;TERMINAL-DEPENDENT FLAGS
>
IFN FDM3KF,<
	WRP!NPG			;TERMINAL-DEPENDENT FLAGS (KEEP TTY PAGE)
>
	EDM3K			;ROUTINE TO CALL ON ENTRY
	CPOPJ			;ROUTINE TO CALL ON EXIT
	0,,0			;NUMBER OF NULLS TO OUTPUT,,NULL CHARACTER
	IDM3K			;ADDRESS OF INPUT CHARACTER TABLE
IFN FTIMD,<
	0			;ENTER INSERT MODE
	0			;EXIT INSERT MODE
IFN FTLSR,<
	CPOPJ			;LIMIT SCROLLING REGION
	CPOPJ			;UNLIMIT SCROLLING REGION
>>

;TERMINAL INPUT TABLE - TELLS WHAT CONTROL CHARACTERS OR SEQUENCES
;INVOKE WHICH COMMANDS

;NOTE: D3000 KEYS NOT USED: PF10=$y<CR> XMIT=$L XMIT-LINE=$T MR=$M
;      PRINT=$] ROLL=$V INS-CHAR=$P

IFE FDM3KF,<
		0			;CODE FOR RUBOUT (0==RESET)
IDM3K:	EXP	40, 1, 2, 3, 4, 5, 6, 7 ;NOTHING SPECIAL
	EXP	10,11,34,13,14,15,16,17
	EXP	20,21,22,23,24,25,26,27
	EXP	30,31,32
	-SDM3.S,,SDM3.T			;ESCAPE NEEDS A SUBTABLE
	EXP		 35,33,37,36	;ENTER==CONTROL-]
>
IFN FDM3KF,<
;THIS TABLE SETS UP THE KEYBOARD ARRANGEMENT FOR WHEN YOU NEED TO KEEP
;TTY PAGE IN EFFECT BECAUSE THE TERMINAL SENDS OUT ITS OWN CONTROL S AND Q'S
;THOSE TWO CHARACTERS CANNOT BE COMMANDS SINCE SED DOES NOT KNOW WHETHER THE
;USER HAS TYPED THEM OR THEY WERE SENT BY THE TERMINAL.

;SO Q GOES TO A, A AND S GO TO K AND L, K TO ESCAPE-L, AND L TO ESCAPE-T.

		 0			;COMMAND FOR RUBOUT (RESET)
IDM3K:	EXP	40,21, 2, 3, 4, 5, 6, 7 ;NOTHING SPECIAL
	EXP	10,11,34, 1,23,15,16,17
	EXP	20, 0,22, 0,24,25,26,27
	EXP	30,31,32
	-SDM3.S,,SDM3.T
	EXP		 35,33,37,36	;ENTER==CONTROL-]
>
;SUBTABLE. PUT THE MOST FREQUENTLY-USED SEQUENCES FIRST
;ENTER IS PROBABLY THE MOST COMMON OF ALL

SDM3.T:	D3PF1,,"p"	;PF1 == ENTER
	35,,"C" 	;ESCAPE C == CURSOR-RIGHT
	36,,"A"		;ESCAPE A == CURSOR-UP
	D3PF2,,"q"	;PF2 == RECALL
	D3PF3,,"r"	;PF3 == INSERT-MODE
	D3PF4,,"s"	;PF4 == MARK
	D3PF5,,"t"	;PF5 == TAB
	D3PF6,,"u"	;PF6 == LINE
	D3PF7,,"v"	;PF7 == CASE
	D3PF8,,"w"	;PF8 == ERASE-CHAR
	D3PF9,,"x"	;PF9 == HOME
	33,,"E" 	;ESCAPE E == ENTER
	33,,"e"
	41,,"I" 	;ESCAPE I == INSERT-MODE
	41,,"i"
	44,,"M" 	;ESCAPE M == MARK
	44,,"m"
	50,,"K" 	;ESCAPE K == ERASE-LINE
	50,,"k"
	47,,"W" 	;ESCAPE W == WINDOW
	47,,"w"
IFN FDM3KF,<
	13,,"L"		;ESCAPE L == SLIDE-LEFT
	14,,"R"		;ESCAPE R == SLIDE-RIGHT
	13,,"l"		;ESCAPE l == SLIDE-LEFT
	14,,"r"		;ESCAPE r == SLIDE-RIGHT
>
SDM3.S=.-SDM3.T

D3PF1:	33,,0
D3PF2:	40,,0
D3PF3:	41,,0
D3PF4:	44,,0
D3PF5:	43,,0
D3PF6:	45,,0
D3PF7:	46,,0
D3PF8:	42,,0
D3PF9:	37,,0

;ROUTINE TO CALL ON ENTRY

EDM3K:
IFN ..IDX-1,<JRST DECIDE>
	POPJ	P,

;SUBROUTINE TO MOVE TO ROW (RW), COLUMN (CM)

CDM3K:	MOVE	T1,[BYTE (7) 33,"Y"]
	PUSHJ	P,PUTSQ1	;START IT OFF
	MOVEI	T1,40(CM)	;GET COLUMN POSITION
	IDPB	T1,TY
	MOVEI	T1,40(RW)	;GET ROW POSITION
	IDPB	T1,TY
	POPJ	P,		;DONE

;SUBROUTINE TO MOVE TO START OF LINE (T4)

LDM3K:	MOVE	T1,[BYTE (7) 33,"Y"]
	PUSHJ	P,PUTSQ1	;START IT OFF
	MOVEI	T1,40		;MOVE TO COLUMN ZERO
	IDPB	T1,TY
	MOVEI	T1,40(T4)	;GET ROW POSITION
	IDPB	T1,TY
	POPJ	P,
>
IFN FDM152,<
;DATAMEDIA 1520/1521 TERMINAL DEFINITIONS

FDM52F==0	;SET THIS IF TERMINAL SENDS OUT XON-XOFF'S

;TERMINAL OUTPUT TABLE - SEQUENCES TO MAKE THE TERMINAL DO SPECIAL THINGS

ODM152:	BYTE (7) 37		;CURSOR UP
	BYTE (7) 12		; DOWN
	BYTE (7) 34		; RIGHT
	BYTE (7) 10		; LEFT
	BYTE (7) "Y"-100	; HOME
	BYTE (7) 13		;CLEAR TO END OF PAGE
	BYTE (7) 35		;CLEAR TO END OF LINE
	BYTE (7) 12		;ROLL UP AND CLEAR LINE
	BYTE (7) 0		;ROLL DOWN AND CLEAR LINE
	BYTE (7) 0		;PROTECT ON (CPOPJ IF NONE)
	BYTE (7) 0		;PROTECT OFF (CPOPJ IF NONE)
	BYTE (7) 0		;INSERT LINE (0 IF NONE)
	BYTE (7) 0		;INSERT SPACE (0 IF NONE)
	BYTE (7) 0		;DELETE LINE (0 IF NONE)
	BYTE (7) 0		;DELETE SPACE (0 IF NONE)
	BYTE (7) 36," ","7"	;MOVE TO BOTTOM
	BYTE (7) 14		;HOME AND CLEAR ENTIRE PAGE
	CDM152			;ROUTINE TO POSITION TO CHARACTER
	LDM152			;ROUTINE TO POSITION TO START OF LINE
	^D24			;LINES PER PAGE
	^D80			;CHARACTERS PER LINE
IFE FDM52F,<
	WRP!MRK			;TERMINAL-DEPENDENT FLAGS
>
IFN FDM52F,<
	WRP!MRK!NPG		;TERMINAL-DEPENDENT FLAGS (KEEP TTY PAGE)
>
	EDM152			;ROUTINE TO CALL ON ENTRY
	CPOPJ			;ROUTINE TO CALL ON EXIT
	0,,0			;NUMBER OF NULLS TO OUTPUT,,NULL CHARACTER
	IDM152			;ADDRESS OF INPUT CHARACTER TABLE
IFN FTIMD,<
	0			;ENTER INSERT MODE
	0			;EXIT INSERT MODE
IFN FTLSR,<
	CPOPJ			;LIMIT SCROLLING REGION
	CPOPJ			;UNLIMIT SCROLLING REGION
>>
	"~"			;MARK TO DISPLAY ON ENTER (OMIT IF MRK NOT SET)

;TERMINAL INPUT TABLE - TELLS WHAT CONTROL CHARACTERS OR SEQUENCES
;INVOKE WHICH COMMANDS

IFE FDM52F,<
		0			;CODE FOR RUBOUT (0==RESET)
IDM152:	EXP	40, 1, 2, 3, 4, 5, 6, 7 ;NOTHING SPECIAL
	EXP	10,11,34,13,14,15,16,17
	EXP	20,21,22,23,24,25,26,27
	EXP	30,31,32
	-SDM5.S,,SDM5.T			;ESCAPE NEEDS A SUBTABLE
	EXP		 35,33,37,36	;ENTER==CONTROL-]
>
IFN FDM52F,<
;THIS TABLE SETS UP THE KEYBOARD ARRANGEMENT FOR WHEN YOU NEED TO KEEP
;TTY PAGE IN EFFECT BECAUSE THE TERMINAL SENDS OUT ITS OWN CONTROL S AND Q'S
;THOSE TWO CHARACTERS CANNOT BE COMMANDS SINCE SED DOES NOT KNOW WHETHER THE
;USER HAS TYPED THEM OR THEY WERE SENT BY THE TERMINAL.

;SO Q GOES TO A, A AND S GO TO K AND L, K TO ESCAPE-L, AND L TO ESCAPE-T.

		 0			;COMMAND FOR RUBOUT (RESET)
IDM152:	EXP	40,21, 2, 3, 4, 5, 6, 7 ;NOTHING SPECIAL
	EXP	10,11,34, 1,23,15,16,17
	EXP	20, 0,22, 0,24,25,26,27
	EXP	30,31,32
	-SDM5.S,,SDM5.T
	EXP		 35,33,37,36	;ENTER==CONTROL-]
>
;SUBTABLE. PUT THE MOST FREQUENTLY-USED SEQUENCES FIRST
;ENTER IS PROBABLY THE MOST COMMON OF ALL

SDM5.T:	45,,"L" 	;ESCAPE L == LINE
	45,,"l"
	42,,"D" 	;ESCAPE D == DELETE-CHARACTER
	42,,"d"
	43,,"T" 	;ESCAPE T == REAL-TAB
	43,,"t"
	40,,"Q" 	;ESCAPE Q == RECALL
	40,,"q"
	41,,"I" 	;ESCAPE I == INSERT-MODE
	41,,"i"
	44,,"M" 	;ESCAPE M == MARK
	44,,"m"
	46,,"C" 	;ESCAPE C == CASE
	46,,"c"
	50,,"K" 	;ESCAPE K == ERASE-LINE
	50,,"k"
	47,,"W" 	;ESCAPE W == WINDOW
	47,,"w"
IFN FDM52F,<
	13,,"L"		;ESCAPE L == SLIDE-LEFT
	14,,"R"		;ESCAPE R == SLIDE-RIGHT
	13,,"l"		;ESCAPE l == SLIDE-LEFT
	14,,"r"		;ESCAPE r == SLIDE-RIGHT
>
SDM5.S=.-SDM5.T

;ROUTINE TO CALL ON ENTRY

EDM152:
IFN ..IDX-1,<JRST DECIDE>
	POPJ	P,

;SUBROUTINE TO MOVE TO ROW (RW), COLUMN (CM)

CDM152:	MOVEI	T1,36
	IDPB	T1,TY		;START IT OFF
	MOVEI	T1,40(CM)	;GET COLUMN POSITION
	IDPB	T1,TY
	MOVEI	T1,40(RW)	;GET ROW POSITION
	IDPB	T1,TY
	POPJ	P,		;DONE

;SUBROUTINE TO MOVE TO START OF LINE (T4)

LDM152:	MOVEI	T1,36
	IDPB	T1,TY		;START IT OFF
	MOVEI	T1,40		;MOVE TO COLUMN ZERO
	IDPB	T1,TY
	MOVEI	T1,40(T4)	;GET ROW POSITION
	IDPB	T1,TY
	POPJ	P,		;DONE
>
IFN FDDISK,<

ODDISK:	XDDISK
>
IFN FDMELT,<
;DEFINITIONS FOR THE DATAMEDIA ELITE

FDMELF==0	;SET THIS IF TERMINAL SENDS OUT XON-XOFF'S

;TERMINAL OUTPUT TABLE - SEQUENCES TO MAKE THE TERMINAL DO SPECIAL THINGS

ODMELT:	BYTE (7) 37		;CURSOR UP
	BYTE (7) 12		; DOWN
	BYTE (7) 34		; RIGHT
	BYTE (7) 10		; LEFT
	BYTE (7) 31		; HOME
	BYTE (7) 13		;CLEAR TO END OF PAGE
	BYTE (7) 35		;CLEAR TO END OF LINE
	BYTE (7) 12		;ROLL UP AND CLEAR LINE
	BYTE (7) 0		;ROLL DOWN AND CLEAR LINE
	BYTE (7) 0		;PROTECT ON (0 IF NONE)
	BYTE (7) 0		;PROTECT OFF (0 IF NONE)
	BYTE (7) 0		;INSERT LINE (0 IF NONE)
	BYTE (7) 0		;INSERT SPACE (0 IF NONE)
	BYTE (7) 0		;DELETE LINE (0 IF NONE)
	BYTE (7) 0		;DELETE SPACE (0 IF NONE)
	BYTE (7) 36," ","7"	;MOVE TO BOTTOM
	BYTE (7) 14		;HOME AND CLEAR ENTIRE PAGE
	CDMELT			;ROUTINE TO POSITION TO CHARACTER
	LDMELT			;ROUTINE TO POSITION TO START OF LINE
	^D24			;LINES PER PAGE
	^D80			;CHARACTERS PER LINE
IFE FDMELF,<
	SLW!WRP!MRK		;TERMINAL-DEPENDENT FLAGS
>
IFN FDMELF,<
	SLW!WRP!MRK!NPG		;TERMINAL-DEPENDENT FLAGS (KEEP TTY PAGE)
>
	EDMELT			;ROUTINE TO CALL ON ENTRY
	CPOPJ			;ROUTINE TO CALL ON EXIT
	0,,0			;NUMBER OF NULLS TO OUTPUT,,NULL CHARACTER
	IDMELT			;ADDRESS OF INPUT CHARACTER TABLE
IFN FTIMD,<
	0			;ENTER INSERT MODE
	0			;EXIT INSERT MODE
IFN FTLSR,<
	CPOPJ			;LIMIT SCROLLING REGION
	CPOPJ			;UNLIMIT SCROLLING REGION
>>
	"*"			;MARK TO DISPLAY ON ENTER (OMIT IF MRK NOT SET)

;TERMINAL INPUT TABLE - TELLS WHAT CONTROL CHARACTERS OR SEQUENCES
;INVOKE WHICH COMMANDS

IFE FDMELF,<
	EXP	$RESET				;RUBOUT
IDMELT:	EXP		$RECAL, $RLBKP, $SETFI	;   0, A, B
	EXP	$ABORT, $INSLN, $SRCBK, $DELLN	;C, D, E, F
	EXP	$PUT,   $CURLF, $TAB,   $CURDN	;G, H, I, J
	EXP	$SLDLF, $SLDRT, $RETRN, $SWTCH	;K, L, M, N
	EXP	$ENTCC, $GOTO,  $RLBKP, $SRCFW	;O, P, Q, R
	EXP	$DELSP, $RLFWL, $BKTAB, $PICK	;S, T, U, V
	EXP	$RLBKL, $EXEC,  $CURHM, $EXIT	;W, X, Y, Z
	EXP	-SDME.S,,SDME.T			;ESCAPE
	EXP	$CURRT, $ENTER, $CURHM, $DELCH	;\, ], ^, _
>
IFN FDMELF,<
;THIS TABLE SETS UP THE KEYBOARD ARRANGEMENT FOR WHEN YOU NEED TO KEEP
;TTY PAGE IN EFFECT BECAUSE THE TERMINAL SENDS OUT ITS OWN CONTROL S AND Q'S
;THOSE TWO CHARACTERS CANNOT BE COMMANDS SINCE SED DOES NOT KNOW WHETHER THE
;USER HAS TYPED THEM OR THEY WERE SENT BY THE TERMINAL.

;SO Q GOES TO A, A AND S GO TO K AND L, K TO ESCAPE-L, AND L TO ESCAPE-T

;NOTE: this table has not been altered for the Datamedia.

	EXP	$RESET				;RUBOUT
IDMELT:	EXP		$RECAL, $RLBKP, $SETFI	;   0, A, B
	EXP	$ABORT, $INSLN, $SRCBK, $DELLN	;C, D, E, F
	EXP	$PUT,   $DELCH, $TAB,   $ERSLN	;G, H, I, J
	EXP	$INSSP, $DELSP, $RETRN, $SWTCH	;K, L, M, N
	EXP	$ENTCC, $GOTO,  0,	$SRCFW	;O, P, Q, R
	EXP	0,	$RLFWL, $BKTAB, $PICK	;S, T, U, V
	EXP	$RLBKL, $EXEC,  $RLFWP, $EXIT	;W, X, Y, Z
		-SDME.S,,SDME.T			;ESCAPE
	EXP	$CURDN, $CURRT, $CURUP, $CURHM	;\, ], ^, _
>
;SUBTABLE. PUT THE MOST FREQUENTLY-USED SEQUENCES FIRST
;ENTER IS PROBABLY THE MOST COMMON OF ALL

SDME.T:	$SETFI,,"F" 	;ESCAPE F == SET-FILE
	$SAVE ,,"S" 	;ESCAPE S == SAVE-FILE
	$EXIT ,,"E" 	;ESCAPE E == EXIT
	$WINDW,,"W" 	;ESCAPE W == WINDOW
	$REWRT,,"X" 	;ESCAPE X == REWRITE
	$CASE ,,"C" 	;ESCAPE C == CASE
	$HELP ,,"H" 	;ESCAPE H == HELP
	$INSSP,,"I" 	;ESCAPE I == INSERT-SPACES
	$INMOD,,"M" 	;ESCAPE M == INSERT-MODE
	$SLDLF,,"L" 	;ESCAPE L == SLIDE-LEFT
	$SLDRT,,"R" 	;ESCAPE R == SLIDE-RIGHT
	$RLFWP,,"P" 	;ESCAPE P == ROLL-FORWARD-PAGES
	$RLTAB,,"T" 	;ESCAPE T == REAL-TAB
	$RECAL,,"?" 	;ESCAPE ? == RECALL
	$ENTER,,33 	;ESCAPE ESCAPE == ENTER
	$PUSH ,,"^" 	;ESCAPE ^ == PUSH
	$MARK ,,"\" 	;ESCAPE \ == MARK

	$SETFI,,"f" 	;ESCAPE f == SET-FILE
	$SAVE ,,"s" 	;ESCAPE s == SAVE-FILE
	$EXIT ,,"e" 	;ESCAPE e == EXIT
	$WINDW,,"w" 	;ESCAPE w == WINDOW
	$REWRT,,"x" 	;ESCAPE x == REWRITE
	$CASE ,,"c" 	;ESCAPE c == CASE
	$HELP ,,"h" 	;ESCAPE h == HELP
	$INSSP,,"i" 	;ESCAPE i == INSERT-SPACES
	$INMOD,,"m" 	;ESCAPE m == INSERT-MODE
	$SLDLF,,"l" 	;ESCAPE l == SLIDE-LEFT
	$SLDRT,,"r" 	;ESCAPE r == SLIDE-RIGHT
	$RLFWP,,"p" 	;ESCAPE p == ROLL-FORWARD-PAGES
	$RLTAB,,"t" 	;ESCAPE t == REAL-TAB
IFN FDMELF,<
			;IF TTY PAGE IS IN EFFECT,
			;DEFINE SEQUENCES FOR
			;<SLIDE-LEFT> AND <SLIDE-RIGHT> HERE
>
SDME.S=.-SDME.T

;ROUTINE TO CALL ON ENTRY

EDMELT:
IFN ..IDX-1,<JRST DECIDE>
	POPJ	P,

;DATAMEDIA SUBROUTINE TO MOVE TO ROW, COLUMN [RW, CM]

CDMELT:	MOVEI	T1,36
	IDPB	T1,TY
	MOVEI	T1," "(CM)
	IDPB	T1,TY
	MOVEI	T1," "(RW)
	IDPB	T1,TY
	POPJ	P,

;DATAMEDIA SUBROUTINE TO MOVE TO THE START OF ROW (T4)

LDMELT:	MOVEI	T1,36
	IDPB	T1,TY
	MOVEI	T1," "
	IDPB	T1,TY
	MOVEI	T1," "(T4)
	IDPB	T1,TY
	POPJ	P,
>
IFN FH1500,<
;EDITOR TERMINAL DEFINITIONS FOR THE HAZELTINE 1500

;EVERYTHING IS USUAL, EXCEPT:
;  ENTER        - ESCAPE ESCAPE
;  CURSOR-UP    - ESCAPE U (OR u)
;  CURSOR-DOWN  - ESCAPE D (OR d)
;  CURSOR-RIGHT - CONTROL-P
;  CURSOR-LEFT  - CONTROL-H
;  CURSOR-HOME  - ESCAPE H (OR h)
;  PERCENT-GOTO - ESCAPE P

FH150F==0	;SET THIS IS TERMINAL SENDS OUT XON-XOFF'S

;TERMINAL OUTPUT TABLE - SEQUENCES TO MAKE THE TERMINAL DO SPECIAL THINGS

OH1500:	BYTE (7) "~",14		;CURSOR UP
	BYTE (7) "~",13		; DOWN
	BYTE (7) 20		; RIGHT
	BYTE (7) 10		; LEFT
	BYTE (7) "~",22		; HOME
	BYTE (7) "~",30		;CLEAR TO END OF PAGE
	BYTE (7) "~",17		;CLEAR TO END OF LINE
	BYTE (7) 12		;ROLL UP AND CLEAR LINE
	BYTE (7) "~",32		;ROLL DOWN AND CLEAR LINE
	BYTE (7) "~",37		;PROTECT ON (CPOPJ IF NONE)
	BYTE (7) "~",31		;PROTECT OFF (CPOPJ IF NONE)
	BYTE (7) "~",32		;INSERT LINE (0 IF NONE)
	BYTE (7) 0		;INSERT SPACE (0 IF NONE)
	BYTE (7) "~",23		;DELETE LINE (0 IF NONE)
	BYTE (7) 0		;DELETE SPACE (0 IF NONE)
	BYTE (7) "~",21,140,27	;MOVE TO BOTTOM
	BYTE (7) "~",34		;HOME AND CLEAR PAGE
	CH1500			;ROUTINE TO POSITION TO CHARACTER
	LH1500			;ROUTINE TO POSITION TO START OF LINE
	^D24			;LINES PER PAGE
	^D80			;CHARACTERS PER LINE
IFE FH150F,<
	WRP			;TERMINAL-DEPENDENT FLAGS (WRAPAROUND)
>
IFN FH150F,<
	NPG!WRP			;TERMINAL-DEPENDENT FLAGS (KEEP TTY PAGE)
>
	EH1500			;ROUTINE TO CALL ON ENTRY
	CPOPJ			;ROUTINE TO CALL ON EXIT
        0,,0                    ;NUMBER OF NULLS TO OUTPUT,,NULL CHARACTER
	IH1500			;ADDRESS OF INPUT CHARACTER TABLE
IFN FTIMD,<
	0			;ENTER INSERT MODE
	0			;EXIT INSERT MODE
IFN FTLSR,<
	CPOPJ			;LIMIT SCROLLING REGION
	CPOPJ			;UNLIMIT SCROLLING REGION
>>

;TERMINAL INPUT TABLE - TELLS WHAT CONTROL CHARACTERS OR SEQUENCES
;INVOKE WHICH COMMANDS

IFE FH150F,<
                0                       ;COMMAND FOR RUBOUT (0==RESET)
IH1500:	EXP	40, 1, 2, 3, 4, 5, 6, 7 ;NOTHING SPECIAL
	EXP	10,11,12,13,14,15,16,17
	EXP	35,21,22,23,24,25,26,27
	EXP	30,31,32
	-SH15.S,,SH15.T			;ESCAPE NEEDS A SUBTABLE
	EXP		 34,35,36,37
>
IFN FH150F,<
;THIS TABLE SETS UP THE KEYBOARD ARRANGEMENT FOR WHEN YOU NEED TO KEEP
;TTY PAGE IN EFFECT BECAUSE THE TERMINAL SENDS OUT ITS OWN CONTROL S AND Q'S
;THOSE TWO CHARACTERS CANNOT BE COMMANDS SINCE SED DOES NOT KNOW WHETHER THE
;USER HAS TYPED THEM OR THEY WERE SENT BY THE TERMINAL.

;SO Q GOES TO A, A AND S GO TO B AND N, B TO ESCAPE-F, AND N TO ESCAPE-S.

                 0                      ;COMMAND FOR RUBOUT (RESET)
IH1500:	EXP	40,21, 1, 3, 4, 5, 6, 7 ;NOTHING SPECIAL
	EXP	10,11,12,13,14,15,23,17
	EXP	35, 0,22, 0,24,25,26,27
	EXP	30,31,32
	-SH15.S,,SH15.T
	EXP		 34,35,36,37
>
;SUBTABLE. PUT THE MOST FREQUENTLY-USED SEQUENCES FIRST
;ENTER IS PROBABLY THE MOST COMMON OF ALL

SH15.T:	33,,33		;ESC ESC  == ENTER
	37,,"H"		;ESCAPE H == HOME
	37,,"h"		;ESCAPE h == HOME
	36,,"U"		;ESCAPE U == UP
	36,,"u"		;ESCAPE u == UP
	34,,"D"	 	;ESCAPE D == DOWN
	34,,"d"	 	;ESCAPE d == DOWN
	35,,"P" 	;ESCAPE P == PERCENT-GOTO
IFN FH150F,<
	02,,"F"		;ESCAPE F == SET-FILE
	16,,"S"		;ESCAPE S == SWITCH
>
SH15.S=.-SH15.T

;ROUTINE TO CALL ON ENTRY

EH1500:
IFN ..IDX-1,<JRST DECIDE>
	POPJ	P,

;CURSOR POSITIONING ROUTINES
;MOVE TO ROW (RW), COLUMN (CM)

CH1500:	MOVE	T1,[BYTE (7) 176,21]
	PUSHJ	P,PUTSQ1	;START IT OFF
	SKIPN	T1,CM		;GET COLUMN POSITION - ZERO?
	ADDI	T1,^D96		;YES - SEND ALTERNATE CODE
	IDPB	T1,TY
	SKIPN	T1,RW		;GET ROW POSITION - ZERO?
	ADDI	T1,^D96		;YES - USE ALTERNATE CODE
	IDPB	T1,TY
	POPJ	P,		;DONE

;MOVE TO START OF LINE (T4)

LH1500:	MOVE	T1,[BYTE (7) 176,21]
	PUSHJ	P,PUTSQ1	;START IT OFF
	MOVEI	T1,^D96		;SET TO COLUMN ZERO
	IDPB	T1,TY
	SKIPN	T1,T4		;GET ROW POSITION - ZERO?
	ADDI	T1,^D96		;YES - USE ALTERNATE CODE
	IDPB	T1,TY
	POPJ	P,		;DONE
>
IFN FZEH19,<
;TERMINAL DEFINITIONS FOR THE ZENITH H19

;TERMINAL OUTPUT TABLE - SEQUENCES TO MAKE THE TERMINAL DO SPECIAL THINGS

OZEH19:	BYTE (7) 33,"A"		;CURSOR UP
	BYTE (7) 33,"B"		; DOWN
	BYTE (7) 33,"C"		; RIGHT
	BYTE (7) 33,"D"		; LEFT
	BYTE (7) 33,"H"		; HOME
	BYTE (7) 33,"J"		;CLEAR TO END OF PAGE
	BYTE (7) 33,"K"		;CLEAR TO END OF LINE
	BYTE (7) 12		;ROLL UP AND CLEAR LINE
	BYTE (7) 33,"I"		;ROLL DOWN AND CLEAR LINE
	BYTE (7) 33,"p"		;PROTECT ON (CPOPJ IF NONE)
	BYTE (7) 33,"q"		;PROTECT OFF (CPOPJ IF NONE)
	BYTE (7) 33,"L"		;INSERT LINE (0 IF NONE)
	BYTE (7) 33,"@"," ",33,"O"	;INSERT SPACE (0 IF NONE)
	BYTE (7) 33,"M"		;DELETE LINE (0 IF NONE)
	BYTE (7) 33,"N"		;DELETE SPACE (0 IF NONE)
	BYTE (7) 33,"Y","7"," "	;MOVE TO BOTTOM
	BYTE (7) 33,"E"		;HOME AND CLEAR ENTIRE PAGE
	CZEH19			;ROUTINE TO POSITION TO CHARACTER
	LZEH19			;ROUTINE TO POSITION TO START OF LINE
	^D24			;LINES PER PAGE
	^D80			;CHARACTERS PER LINE
	NPG!TBS			;TERMINAL-DEPENDENT FLAGS (KEEP TTY PAGE)
	EZEH19			;ROUTINE TO CALL ON ENTRY
	XZEH19			;ROUTINE TO CALL ON EXIT
	0,,0			;NUMBER OF NULLS TO OUTPUT,,NULL CHARACTER
	IZEH19			;ADDRESS OF INPUT CHARACTER TABLE
IFN FTIMD,<
	0			;ENTER INSERT MODE
	0			;EXIT INSERT MODE
IFN FTLSR,<
	CPOPJ			;LIMIT SCROLLING REGION
	CPOPJ			;UNLIMIT SCROLLING REGION
>>

;TERMINAL INPUT TABLE - TELLS WHAT CONTROL CHARACTERS OR SEQUENCES
;INVOKE WHICH COMMANDS

		 0			;COMMAND FOR RUBOUT (RESET)
IZEH19:	EXP	40, 0, 2, 3, 0, 0,55, 0 ;^F IS SAVE-FILE
	EXP	42,11, 0, 0,13,15,25,17	;^U IS CASE
	EXP	20, 0,14, 0, 0,46,16,47	;^W IS WINDOW
	EXP	30, 0,32
	-SZ19.S,,SZ19.T
	EXP		 34,35,36,37

;SUBTABLES FOR ESCAPE

SZ19.T:	41,,"P" 	;ESC P == INSERT-MODE (BLUE)
	37,,"H" 	;ESC H == HOME
	36,,"A" 	;ESC A == UP
	34,,"B" 	;ESC B == DOWN
	35,,"C" 	;ESC C == RIGHT
	10,,"D" 	;ESC D == LEFT
	07,,"Q" 	;ESC Q == PUT (RED)
	01,,"@" 	;ESC @ == OPEN SPACES
	04,,"L" 	;ESC L == INSERT LINES
	06,,"M" 	;ESC M == DELETE LINES
	12,,"J" 	;ESC J == ERASE LINE
	26,,"R" 	;ESC R == PICK (WHITE)
	23,,"N" 	;ESC N == CLOSE SPACES
	SCHSUB,,"S" 	;ESC S == LOOK FURTHER (F1)
	LNESUB,,"T" 	;ESC T == LOOK FURTHER (F2)
	PGESUB,,"U" 	;ESC U == LOOK FURTHER (F3)
	BAKSUB,,"V" 	;ESC V == LOOK FURTHER (F4)
	FRWSUB,,"W" 	;ESC W == LOOK FURTHER (F5)
	IAZE19,,"?" 	;ESC ? == LOOK FURTHER
SZ19.S==.-SZ19.T

IAZE19:	33,,"M" 	;ESC ? M == ENTER (ENT)
	40,,"n" 	;ESC ? N == RECALL (.)
	42,,"y" 	;ESC ? Y == DEL-CHAR (SDC)
	43,,"p" 	;ESC ? P == REAL-TAB (0)
	44,,"u" 	;ESC ? U == MARK (S5)
	45,,"q" 	;ESC ? Q == LINE (S1)
	53,,"r"		;ESC ? r == DOWN TAB (S2)
	52,,"x"		;ESC ? x == UP TAB   (S8)
	57,,"t"		;ESC ? t == BEGIN LINE (S4)
	60,,"v"		;ESC ? v == END LINE (S6)
	61,,"s"		;ESC ? s == ERASE WORD (S3)
	45,,"q" 	;ESC ? Q == LINE (S1)
	54,,"w"		;ESC ? w == REPAINT SCREEN (S7)
	0

SCHSUB:	SCHTBL,,33	;ESC S ESC == LOOK FURTHER
	0
SCHTBL:	05,,"V" 	;ESC S ESC V == SEARCH-BACK
	22,,"W" 	;ESC S ESC W == SEARCH-FORWARD
	0

LNESUB:	LNETBL,,33	;ESC T ESC == LOOK FURTHER
	0
LNETBL:	24,,"W" 	;ESC T ESC W == ROLL-FORW-LINES (F2,F5)
	27,,"V" 	;ESC T ESC V == ROLL-BACK-LINES (F2,F4)
	0

PGESUB:	PGETBL,,33	;ESC U ESC == LOOK FURTHER
	0
PGETBL:	21,,"V" 	;ESC U ESC V == ROLL-BACK-PAGES (F3,F4)
	31,,"W" 	;ESC U ESC W == ROLL-FORW-PAGES (F3,F5)
	0

BAKSUB:	BAKTBL,,33	;ESC V ESC == LOOK FURTHER
	0
BAKTBL:	21,,"U" 	;ESC V ESC U == ROLL-BACK-PAGES (F4,F3)
	27,,"T" 	;ESC V ESC T == ROLL-BACK-LINES (F4,F2)
	05,,"S" 	;ESC V ESC S == SEARCH-BACK     (F4,F1)
	0

FRWSUB:	FRWTBL,,33	;ESC W ESC == LOOK FURTHER
	0
FRWTBL:	22,,"S" 	;ESC W ESC S == SEARCH-FORWARD  (F5,F1)
	24,,"T" 	;ESC W ESC T == ROLL-FORW-LINES (F5,F2)
	31,,"U" 	;ESC W ESC U == ROLL-FORW-PAGES (F5,F3)
	0

;ROUTINE CALLED ON ENTRY: SET UP KEYPAD IN APPLICATION MODE

EZEH19:
IFN ..IDX-1,<JRST DECIDE>
IFE TOPS10,<
	MOVEI	T1,.PRIIN
	RFMOD
	TLO	T2,100000	; TERMINAL HAS TABS
	STPAR
>
	HRROI	T1,[BYTE (7) 33,"x","1",33,"Y",70,40,33,"p",0]
IFN TOPS10,<
	OUTSTR	(T1)
>
IFE TOPS10,<
	PSOUT
>
	HRROI	T1,[ASCIZ /    SEARCH    LINE    PAGE   BACK  FORWARD CLEAR  INSERT PUT  PICK  /]
IFN TOPS10,<
	OUTSTR	(T1)
>
IFE TOPS10,<
	PSOUT
>
	MOVE	T1,[BYTE (7) 33,"=",33,"t",33,"q",33,"H",0]
	PUSHJ	P,PUTSQ1
	JRST	PUTTYP

;SUBROUTINE CALLED ON EXIT: RESTORE KEYPAD TO NON-APPLICATION MODE

XZEH19:	MOVE	T1,[BYTE (7) 33,"Z"]
	PUSHJ	P,PUTSQ1
	JRST	PUTTYP

;POSITIONING ALGORITHMS

CZEH19:	MOVE	T1,[BYTE (7) 33,"Y"]
	PUSHJ	P,PUTSQ1	;START IT OFF
	MOVEI	T1,40(RW)	;GET ROW POSITION
	IDPB	T1,TY
	MOVEI	T1,40(CM)	;GET COLUMN POSITION
	IDPB	T1,TY
	POPJ	P,		;DONE

LZEH19:	MOVE	T1,[BYTE (7) 33,"Y"]
	PUSHJ	P,PUTSQ1	;START IT OFF
	MOVEI	T1,40(T4)	;GET ROW POSITION
	IDPB	T1,TY
	MOVEI	T1,40		;MOVE TO COLUMN 0
	IDPB	T1,TY
	POPJ	P,		;DONE
>
IFN FMEM2A,<
;MIME2A TERMINAL DEFINITIONS FOR THE EDITOR

FMM2AF==1	;SET THIS IF TERMINAL SENDS OUT XON-XOFF'S

OMEM2A:	BYTE (7) 33,"A" 	;CURSOR UP
	BYTE (7) 33,"B" 	; DOWN
	BYTE (7) 33,"C" 	; RIGHT
	BYTE (7) 10		; LEFT
	BYTE (7) 33,"H" 	; HOME
	BYTE (7) 33,"J" 	;CLEAR PAGE
	BYTE (7) 33,"K" 	;CLEAR LINE
	BYTE (7) 12		;ROLL UP AND CLEAR LINE
	BYTE (7) 33,"I" 	;ROLL DOWN AND CLEAR LINE
	BYTE (7) 33,"S","J"	;PROTECT ON (START REVERSE VIDEO)
	BYTE (7) 33,"S","@"	;PROTECT OFF (END REVERSE VIDEO)
	BYTE (7) "A"-100	;INSERT LINE
	BYTE (7) "O"-100," ",7	;INSERT SPACE
	BYTE (7) "W"-100	;DELETE LINE
	BYTE (7) "N"-100	;DELETE SPACE
	BYTE (7) 33,"Y","7"," " ;MOVE TO BOTTOM
	BYTE (7) 33,"H",33,"J"	;HOME AND CLEAR PAGE
	CMEM2A			;ROUTINE TO POSITION TO CHARACTER
	LMEM2A			;ROUTINE TO POSITION TO START OF LINE
	^D24			;LINES PER PAGE
	^D80			;CHARACTERS PER LINE
IFE FMM2AF,<
	SLW!TBS			;FLAGS (SHORT MESSAGES,HARD TABS)
>
IFN FMM2AF,<
	SLW!TBS!NPG		;FLAGS (SHORT MSG, HARD TABS, KEEP TTY PAGE)
>
	EMEM2A 			;ROUTINE TO CALL ON ENTRY
	XMEM2A			;ROUTINE TO CALL ON EXIT
        0                       ;NO NULLS NEEDED
	IMEM2A			;ADDRESS OF INPUT CHARACTER TABLE
IFN FTIMD,<
	0			;ENTER INSERT MODE
	0			;EXIT INSERT MODE
IFN FTLSR,<
	CPOPJ			;LIMIT SCROLLING REGION
	CPOPJ			;UNLIMIT SCROLLING REGION
>>
	"~"			;MARK TO DISPLAY ON ENTER

IFE FMM2AF,<
                 0                      ;COMMAND FOR RUBOUT (RESET)
IMEM2A	EXP	40, 1, 2, 3, 4, 5, 6, 7 ;NOTHING SPECIAL
	EXP	10,11,50,13,14,15,16,17
	EXP	20,21,22,23,24,25,26,27
	EXP	30,31,32
	-SM2A.S,,SM2A.T			;ESCAPE NEEDS A SUBTABLE
	EXP		 34,35,36,37
>
IFN FMM2AF,<
;THIS TABLE SETS UP THE KEYBOARD ARRANGEMENT FOR WHEN YOU NEED TO KEEP
;TTY PAGE IN EFFECT BECAUSE THE TERMINAL SENDS OUT ITS OWN CONTROL S AND Q'S
;THOSE TWO CHARACTERS CANNOT BE COMMANDS SINCE SED DOES NOT KNOW WHETHER THE
;USER HAS TYPED THEM OR THEY WERE SENT BY THE TERMINAL.

;SO Q GOES TO A, A AND S GO TO B AND N, B TO ESCAPE-1k, AND N TO ESCAPE-2k.

                 0                      ;COMMAND FOR RUBOUT (RESET)
IMEM2A:	EXP	40,21, 1, 3, 4, 5, 6, 7 ;NOTHING SPECIAL
	EXP	10,11,50,13,14,15,23,17
	EXP	20, 0,22, 0,24,25,26,27
	EXP	30,31,32
	-SM2A.S,,SM2A.T			;ESCAPE NEEDS A SUBTABLE
	EXP		 34,35,36,37
>
SM2A.T:	36,,"A" 	;ESCAPE A == UP
	34,,"B" 	;ESCAPE B == DOWN
	35,,"C" 	;ESCAPE C == RIGHT
	10,,"D" 	;ESCAPE D == LEFT
	33,,"P" 	;ESCAPE P == ENTER
	40,,"Q" 	;ESCAPE Q == RECALL
	37,,"R" 	;ESCAPE R == HOME
	M2A.TT,,"?"	;ESCAPE ? == CHECK SOME MORE
SM2A.S==.-SM2A.T

M2A.TT: 41,,"M"		;ESCAPE ? M == INSERT-MODE
	42,,"n"		;ESCAPE ? n == DELETE-CHARACTER
	43,,"p"		;ESCAPE ? p == REAL TAB
	44,,"w"		;ESCAPE ? w == MARK
	45,,"x"		;ESCAPE ? x == LINE
	46,,"y"		;ESCAPE ? y == CASE
IFN FMM2AF,<
	02,,"q"		;ESCAPE ? q == SET-FILE
	16,,"r"		;ESCAPE ? r == SWITCH
>
	47,,"s"		;ESCAPE ? s == WINDOW
	0

;ROUTINE CALLED ON ENTRY: SET UP KEYPAD IN APPLICATION MODE

EMEM2A:
IFN ..IDX-1,<JRST DECIDE>
	MOVE	T1,[BYTE (7) 33,"="]
	PUSHJ	P,PUTSQ1
	MOVE	T1,[BYTE (7) 33,"S","@"]
	PUSHJ	P,PUTSQ1		; SET UP DEFAULT VIDEO ATTRIBUTES
	MOVE	T1,[BYTE (7) 33,";"]
	PUSHJ	P,PUTSQ1		; SET UP MIME2A IN JUMP SCROLL MODE
	JRST	PUTTYP

;ROUTINE CALLED ON EXIT: RESTORE KEYPAD TO NON-APPLICATION MODE

XMEM2A:	MOVE	T1,[BYTE (7) 33,76,33,":"]
	PUSHJ	P,PUTSQ1		; RESET MIME2A TO SMOOTH SCROLL MODE
	JRST	PUTTYP

;POSITIONING ALGORITHMS

CMEM2A:	MOVE	T1,[BYTE (7) 33,"Y"]
	PUSHJ	P,PUTSQ1	;START IT OFF
	MOVEI	T1,40(RW)	;GET ROW POSITION
	IDPB	T1,TY
	MOVEI	T1,40(CM)	;GET COLUMN POSITION
	IDPB	T1,TY
	POPJ	P,		;DONE

LMEM2A:	MOVE	T1,[BYTE (7) 33,"Y"]
	PUSHJ	P,PUTSQ1	;START IT OFF
	MOVEI	T1,40(T4)	;GET ROW POSITION
	IDPB	T1,TY
	MOVEI	T1,40		;MOVE TO COLUMN ZERO
	IDPB	T1,TY
	POPJ	P,
>
IFN FONTEL,<

OONTEL:	XONTEL
>
IFN FIQ120,<
;SOROC IQ 120 TERMINAL DEFINITIONS

FIQ12F==0	;SET THIS IF TERMINAL SENDS OUT XON-XOFF'S

;TERMINAL OUTPUT TABLE - SEQUENCES TO MAKE THE TERMINAL DO SPECIAL THINGS

OIQ120:	BYTE (7) 13		;CURSOR UP
	BYTE (7) 12		; DOWN
	BYTE (7) 14		; RIGHT
	BYTE (7) 10		; LEFT
	BYTE (7) "^"-100	; HOME
	BYTE (7) 33,"Y"		;CLEAR TO END OF PAGE
	BYTE (7) 33,"T"		;CLEAR TO END OF LINE
	BYTE (7) 12		;ROLL UP AND CLEAR LINE
	BYTE (7) 0		;ROLL DOWN AND CLEAR LINE
	BYTE (7) 33,")"		;PROTECT ON (CPOPJ IF NONE)
	BYTE (7) 33,"("		;PROTECT OFF (CPOPJ IF NONE)
	BYTE (7) 0		;INSERT LINE (0 IF NONE)
	BYTE (7) 0		;INSERT SPACE (0 IF NONE)
	BYTE (7) 0		;DELETE LINE (0 IF NONE)
	BYTE (7) 0		;DELETE SPACE (0 IF NONE)
	BYTE (7) 33,"=","7"," "	;MOVE TO BOTTOM
	BYTE (7) 33,"*"		;HOME AND CLEAR ENTIRE PAGE
	CIQ120			;ROUTINE TO POSITION TO CHARACTER
	LIQ120			;ROUTINE TO POSITION TO START OF LINE
	^D24			;LINES PER PAGE
	^D80			;CHARACTERS PER LINE
IFE FIQ12F,<
	WRP!NEL!SLW		;TERMINAL-DEPENDENT FLAGS
>
IFN FIQ12F,<
	WRP!NEL!SLW!NPG	;TERMINAL-DEPENDENT FLAGS (KEEP TTY PAGE)
>
	EIQ120			;ROUTINE TO CALL ON ENTRY
	CPOPJ			;ROUTINE TO CALL ON EXIT
	0,,0			;NUMBER OF NULLS TO OUTPUT,,NULL CHARACTER
	IIQ120			;ADDRESS OF INPUT CHARACTER TABLE
IFN FTIMD,<
	0			;ENTER INSERT MODE
	0			;EXIT INSERT MODE
IFN FTLSR,<
	CPOPJ			;LIMIT SCROLLING REGION
	CPOPJ			;UNLIMIT SCROLLING REGION
>>

;TERMINAL INPUT TABLE - TELLS WHAT CONTROL CHARACTERS OR SEQUENCES
;INVOKE WHICH COMMANDS

IFE FIQ12F,<
		0			;CODE FOR RUBOUT (0==RESET)
IIQ120:	EXP	40, 1, 2, 3, 4, 5, 6, 7 ;NOTHING SPECIAL
	EXP	10,11,34,36,35,15,16,17
	EXP	20,21,22,23,24,25,26,27
	EXP	30,31,32
	-SSIQ.S,,SSIQ.T			;ESCAPE NEEDS A SUBTABLE
	EXP		 34,35,37,37
>
IFN FIQ12F,<
;THIS TABLE SETS UP THE KEYBOARD ARRANGEMENT FOR WHEN YOU NEED TO KEEP
;TTY PAGE IN EFFECT BECAUSE THE TERMINAL SENDS OUT ITS OWN CONTROL S AND Q'S
;THOSE TWO CHARACTERS CANNOT BE COMMANDS SINCE SED DOES NOT KNOW WHETHER THE
;USER HAS TYPED THEM OR THEY WERE SENT BY THE TERMINAL.

;SO Q GOES TO A, A AND S GO TO K AND L, K TO ESCAPE-L, AND L TO ESCAPE-T.
;this needs work since K and L are cursor movement commands now

		 0			;COMMAND FOR RUBOUT (RESET)
IIQ120:	EXP	40,21, 2, 3, 4, 5, 6, 7 ;NOTHING SPECIAL
	EXP	10,11,34, 1,23,15,16,17
	EXP	20, 0,22, 0,24,25,26,27
	EXP	30,31,32
	-SSIQ.S,,SSIQ.T
	EXP		 34,35,37,37
>
;SUBTABLE. PUT THE MOST FREQUENTLY-USED SEQUENCES FIRST
;ENTER IS PROBABLY THE MOST COMMON OF ALL

SSIQ.T:	33,,"E" 	;ESCAPE E == ENTER
	33,,"e"
	50,,"K" 	;ESCAPE K == ERASE-LINE
	50,,"k"
	43,,"T" 	;ESCAPE T == REAL-TAB
	43,,"t"
	40,,"Q" 	;ESCAPE Q == RECALL
	40,,"q"
	41,,"I" 	;ESCAPE I == INSERT-MODE
	41,,"i"
	44,,"M" 	;ESCAPE M == MARK
	44,,"m"
	44,,"D" 	;ESCAPE D == INSERT-LINES
	44,,"d"		;  (VECTOR 1 MONITOR TRAPS CONTROL-D)
	13,,"L"		;ESCAPE L == SLIDE-LEFT
	13,,"l"
	14,,"R"		;ESCAPE T == SLIDE-RIGHT
	14,,"r"
	47,,"W"		;ESCAPE W == WINDOW
	47,,"w"
SSIQ.S=.-SSIQ.T

;ROUTINE TO CALL ON ENTRY

EIQ120:
IFN ..IDX-1,<JRST DECIDE>
	POPJ	P,

;SUBROUTINE TO MOVE TO ROW (RW), COLUMN (CM)

CIQ120:	MOVE	T1,[BYTE (7) 33,"="]
	PUSHJ	P,PUTSQ1	;START IT OFF
	MOVEI	T1,40(RW)	;GET ROW POSITION
	IDPB	T1,TY
	MOVEI	T1,40(CM)	;GET COLUMN POSITION
	IDPB	T1,TY
	POPJ	P,		;DONE

;SUBROUTINE TO MOVE TO START OF LINE (T4)

LIQ120:	MOVE	T1,[BYTE (7) 33,"="]
	PUSHJ	P,PUTSQ1	;START IT OFF
	MOVEI	T1,40(T4)	;GET ROW POSITION
	IDPB	T1,TY
	MOVEI	T1,40		;MOVE TO COLUMN ZERO
	IDPB	T1,TY
	POPJ	P,
>
IFN FT4041,<
;TELRAY 4041 TERMINAL DEFINITIONS

;TERMINAL OUTPUT TABLE - SEQUENCES TO MAKE THE TERMINAL DO SPECIAL THINGS

OT4041:	BYTE (7) 33,"A" 	;CURSOR UP
	BYTE (7) 33,"B" 	; DOWN
	BYTE (7) 33,"C" 	; RIGHT
	BYTE (7) 10		; LEFT
	BYTE (7) 33,"H" 	; HOME
	BYTE (7) 33,"J" 	;CLEAR PAGE
	BYTE (7) 33,"K" 	;CLEAR EOL
	BYTE (7) 12		;ROLL UP AND CLEAR LINE
	RD4041			;ROLL DOWN AND CLEAR LINE
	BYTE (7) 37		;PROTECT ON (NONE)
	0			;PROTECT OFF
	BYTE (7) 33,"L"		;INSERT LINE
	BYTE (7) 33,"P"		;INSERT SPACE
	BYTE (7) 33,"M"		;DELETE LINE
	BYTE (7) 33,"Q"		;DELETE SPACE
	BYTE (7) 33,"Y","7 "	;MOVE TO BOTTOM
	BYTE (7) 33,"H",33,"J"	;HOME AND CLEAR PAGE
	CT4041			;ROUTINE TO POSITION TO CHARACTER
	LT4041			;ROUTINE TO POSITION TO START OF LINE
	^D24			;LINES PER PAGE
	^D80			;CHARACTERS PER LINE
	MRK!NPG			;FLAGS (no protect and leave page alone)
	ET4041			;ROUTINE TO CALL ON ENTRY
	CPOPJ			;ROUTINE TO CALL ON EXIT
	0,,0			;NO NULLS NEEDED
	IT4041			;ADDRESS OF INPUT CHARACTER TABLE
IFN FTIMD,<
	0			;ENTER INSERT MODE
	0			;EXIT INSERT MODE
IFN FTLSR,<
	CPOPJ			;LIMIT SCROLLING REGION
	CPOPJ			;UNLIMIT SCROLLING REGION
>>
	"*"			;MARK TO DISPLAY ON ENTER

;ROLL DOWN AND CLEAR LINE

RD4041:	MOVE	T1,[BYTE (7) 33,"H",33,"L"]
	PUSHJ	P,PUTSQ1
	PUSHJ	P,PUTTYP
	MOVEI	T1,^D050	;SLEEP .25 SECONDS
IFN TOPS10,<
	HIBER	T1,
	  JFCL
>
IFE TOPS10,<
	DISMS
>
	POPJ	P,

IT4041:	EXP	40,1,24,3,23,32,13,7 ;NOTHING SPECIAL
	EXP	10,11,50,4,6,15,31,25
	EXP	20,0,5,0,27,16,22,14
	EXP	30,21,0,33
	EXP	35,34,36
		-ST41.S,,ST41.T

ST41.T:	37,,"H" 	;ESCAPE H == HOME
	02,,"F"		;ESCAPE F == SWITCH/SET FILE
	26,,"S"		;ESCAPE S == SWITCH PARAMETERS
	17,,"^"		;ESCAPE C == ENTER CONTROL CHAR
	36,,"A"		;UP
	34,,"B"		;DOWN
	35,,"C"		;RIGHT
	10,,"D"		;LEFT
	33,,"P"		;ENTER
	13,,"R"		;PICK
	07,,"Q"		;PUT
ST41.S==.-ST41.T

;TERMINAL INPUT TABLE - TELLS WHAT CONTROL CHARACTERS OR SEQUENCES
;INVOKE WHICH COMMANDS

;		0			;CODE FOR RUBOUT (0==RESET)
;IT4041:	EXP	40, 1, 2, 3, 4, 5, 6, 7 ;NOTHING SPECIAL
;	EXP	10,11,50,13,14,15,16,17
;	EXP	20,21,22,23,24,25,26,27
;	EXP	30,31,32
;	-ST41.S,,ST41.T			;ESCAPE NEEDS A SUBTABLE
;	EXP		 34,35,36,37

;SUBTABLE. PUT THE MOST FREQUENTLY-USED SEQUENCES FIRST
;ENTER IS PROBABLY THE MOST COMMON OF ALL

;ST41.T:	33,,"P" 	;ESCAPE P == ENTER
;        37,,"R" 	;ESCAPE R == HOME
;        36,,"A" 	;ESCAPE A == UP
;        34,,"B" 	;ESCAPE B == DOWN
;        35,,"C" 	;ESCAPE C == RIGHT
;        10,,"D" 	;ESCAPE D == LEFT
;        40,,"Q" 	;ESCAPE Q == RECALL
;ST41.S==.-ST41.T

;ROUTINE TO CALL ON ENTRY

ET4041:
IFN ..IDX-1,<JRST DECIDE>
	POPJ	P,

;POSITIONING ALGORITHMS

CT4041:	MOVE	T1,[BYTE (7) 33,"Y"]
	PUSHJ	P,PUTSQ1	;START IT OFF
	MOVEI	T1,40(RW)	;GET ROW POSITION
	IDPB	T1,TY
	MOVEI	T1,40(CM)	;GET COLUMN POSITION
	IDPB	T1,TY
	POPJ	P,		;DONE

LT4041:	MOVE	T1,[BYTE (7) 33,"Y"]
	PUSHJ	P,PUTSQ1	;START IT OFF
	MOVEI	T1,40(T4)	;GET ROW POSITION
	IDPB	T1,TY
	MOVEI	T1,40		;MOVE TO COLUMN ZERO
	IDPB	T1,TY
	POPJ	P,
>
IFN FVT52!FVT61,<
;TABLES TO SUPPORT THE DIGITAL VT52 TERMINAL

FVT52F==1		;FLAG: TURN ON IF TERMINAL SENDS XON-XOFF'S

OVT61:
OVT52:	BYTE (7) 33,"A" 	;CURSOR UP
	BYTE (7) 33,"B" 	; DOWN
	BYTE (7) 33,"C" 	; RIGHT
	BYTE (7) 10		; LEFT
	BYTE (7) 33,"H" 	; HOME
	BYTE (7) 33,"J" 	;CLEAR PAGE
	BYTE (7) 33,"K" 	;CLEAR LINE
	BYTE (7) 12		;ROLL UP AND CLEAR LINE
	BYTE (7) 33,"I" 	;ROLL DOWN AND CLEAR LINE
	CPOPJ			;PROTECT ON (NONE FOR A VT52)
	CPOPJ			;PROTECT OFF
	0			;INSERT LINE (NONE)
	0			;INSERT SPACE (NONE)
	0			;DELETE LINE (NONE)
	0			;DELETE SPACE (NONE)
	BYTE (7) 33,"Y","7"," "	;MOVE TO BOTTOM
	BYTE (7) 33,"H",33,"J"	;HOME AND CLEAR PAGE
	CVT52			;ROUTINE TO POSITION TO CHARACTER
	LVT52			;ROUTINE TO POSITION TO START OF LINE
	^D24			;LINES PER PAGE
	^D80			;CHARACTERS PER LINE
IFE FVT52F,<
	MRK!TBS!SLW		;FLAGS (NO PROTECT, HARD TABS)
>
IFN FVT52F,<
	MRK!TBS!NPG!SLW		;FLAGS (NO PROTECT, HARD TABS, KEEP TTY PAGE)
>
	EVT52 			;ROUTINE TO CALL ON ENTRY
	XVT52			;ROUTINE TO CALL ON EXIT
	0			;NO NULLS NEEDED
	IVT52			;ADDRESS OF INPUT CHARACTER TABLE
IFN FTIMD,<
	0			;ENTER INSERT MODE
	0			;EXIT INSERT MODE
IFN FTLSR,<
	CPOPJ			;LIMIT SCROLLING REGION
	CPOPJ			;UNLIMIT SCROLLING REGION
>>
	"~"			;MARK TO DISPLAY ON ENTER

IFE FVT52F,<
	EXP	$RESET				;RUBOUT
IVT52:	EXP		$RECAL, $INSSP, $SETFI	;   0, A, B
	EXP	$ABORT, $INSLN, $SRCBK, $DELLN	;C, D, E, F
	EXP	$PUT,   $DELCH, $TAB,   $ERSLN	;G, H, I, J
	EXP	$SLDLF, $SLDRT, $RETRN, $SWTCH	;K, L, M, N
	EXP	$ENTCC, $GOTO,  $RLBKP, $SRCFW	;O, P, Q, R
	EXP	$DELSP, $RLFWL, $BKTAB, $PICK	;S, T, U, V
	EXP	$RLBKL, $EXEC,  $RLFWP, $EXIT	;W, X, Y, Z
		-SV52.S,,SV52.T		;ESCAPE
	EXP	$PUSH,  $JUSTI, $SUBST, $SAVE	;\, ], ^, _
>
IFN FVT52F,<
;THIS TABLE SETS UP THE KEYBOARD ARRANGEMENT FOR WHEN YOU NEED TO KEEP
;TTY PAGE IN EFFECT BECAUSE THE TERMINAL SENDS OUT ITS OWN CONTROL S AND Q'S
;THOSE TWO CHARACTERS CANNOT BE COMMANDS SINCE SED DOES NOT KNOW WHETHER THE
;USER HAS TYPED THEM OR THEY WERE SENT BY THE TERMINAL.

;SO Q GOES TO A, A AND S GO TO K AND L, K TO ESCAPE-L, AND L TO ESCAPE-T

	EXP	$RESET				;RUBOUT
IVT52:	EXP		$RECAL, $RLBKP, $SETFI	;   0, A, B
	EXP	$ABORT, $INSLN, $SRCBK, $DELLN	;C, D, E, F
	EXP	$PUT,   $DELCH, $TAB,   $ERSLN	;G, H, I, J
	EXP	$INSSP, $DELSP, $RETRN, $SWTCH	;K, L, M, N
	EXP	$ENTCC, $GOTO,  0,	$SRCFW	;O, P, Q, R
	EXP	0,	$RLFWL, $BKTAB, $PICK	;S, T, U, V
	EXP	$RLBKL, $EXEC,  $RLFWP, $EXIT	;W, X, Y, Z
		-SV52.S,,SV52.T			;ESCAPE
	EXP	$PUSH,  $JUSTI, $SUBST, $SAVE	;\, ], ^, _
>
SV52.T:	$ENTER,,"P" 	;ESCAPE P == ENTER
	$CURHM,,"R" 	;ESCAPE R == HOME
	$CURUP,,"A" 	;ESCAPE A == UP
	$CURDN,,"B" 	;ESCAPE B == DOWN
	$CURRT,,"C" 	;ESCAPE C == RIGHT
	$CURLF,,"D" 	;ESCAPE D == LEFT
	$RECAL,,"Q" 	;ESCAPE Q == RECALL
	IAVT52,,"?"	;ESCAPE ? == CHECK SOME MORE
	$TBSET,,"S" 	;ESCAPE S == SET-TABS
	$TBSET,,"s" 	;ESCAPE s == SET-TABS
	$JUSTI,,"J" 	;ESCAPE J == JUSTIFY
	$JUSTI,,"j" 	;ESCAPE j == JUSTIFY
	$MARKR,,"M" 	;ESCAPE M == MARKER
	$MARKR,,"m" 	;ESCAPE m == MARKER
IFN FVT52F,<
	$SLDLF,,"L" 	;ESCAPE L == SLIDE-LEFT
	$SLDRT,,"T" 	;ESCAPE T == SLIDE-RIGHT
	$SLDLF,,"l" 	;ESCAPE l == SLIDE-LEFT
	$SLDRT,,"t" 	;ESCAPE t == SLIDE-RIGHT
>
SV52.S=.-SV52.T

IAVT52:	$BLINE,,"t"	;ESCAPE ? t == START-OF-LINE
	$ELINE,,"v"	;ESCAPE ? v == END-OF-LINE
	$DNTAB,,"r"	;ESCAPE ? r == DOWN-TAB
	$UPTAB,,"x"	;ESCAPE ? x == UP-TAB
	$CASE ,,"y"	;ESCAPE ? y == CASE
	$ERSWD,,"n"	;ESCAPE ? n == ERASE-WORD
	$RLTAB,,"p"	;ESCAPE ? p == REAL-TAB
	$MARK ,,"w"	;ESCAPE ? w == MARK
	$INMOD,,"M"	;ESCAPE ? M == INSERT-MODE
	$REWRT,,"u"	;ESCAPE ? u == REWRITE SCREEN
	$WINDW,,"q"	;ESCAPE ? q == WINDOW
	$HELP ,,"s"	;ESCAPE ? s == HELP
	0

;POSITIONING ALGORITHMS

CVT52:	MOVSI	T1,(BYTE (7) 33,"Y")
	PUSHJ	P,PUTSQ1	;START IT OFF
	MOVEI	T1,40(RW)	;GET ROW POSITION
	IDPB	T1,TY
	MOVEI	T1,40(CM)	;GET COLUMN POSITION
	IDPB	T1,TY
	POPJ	P,		;DONE

LVT52:	MOVSI	T1,(BYTE (7) 33,"Y")
	PUSHJ	P,PUTSQ1	;START IT OFF
	MOVEI	T1,40(T4)	;GET ROW POSITION
	IDPB	T1,TY
	MOVEI	T1,40		;MOVE TO COLUMN ZERO
	IDPB	T1,TY
	POPJ	P,

;ROUTINE CALLED ON ENTRY: DECIDE WHETHER IT'S A VT52 OR VT100
;IF VT52, SET UP KEYPAD IN APPLICATION MODE; DONE

EVT52:
IFN ..IDX-1,<JRST DECIDE>	;IF MORE THAN ONE TERMINAL TYPE, FIND WHICH
	MOVSI	T1,(BYTE (7) 33,"=")
	PUSHJ	P,PUTSQ1	;ENABLE THE ALTERNATE KEYBOARD
IFN FVT61,<
	CAMN	T4,[SIXBIT /VT61/] ;REALLY WANT A VT61?
	JRST	EVT61		;YES - MODIFY THE TERMINAL TABLE FOR IT
>
	JRST	PUTTYP		;OUTPUT EVERYTHING AND RETURN
>
IFN FVT52!FVT61!FVT100!FVT102!FVT125!FGIGI,<
;ROUTINE CALLED ON EXIT: RESTORE KEYPAD TO NON-APPLICATION MODE

XVT52:	MOVSI	T1,(BYTE (7) 33,76)	;OUTPUT ESCAPE CLOSE-ANGLE-BRACKET
	PUSHJ	P,PUTSQ1
	JRST	PUTTYP
>
IFN FVT61,<
;TERMINAL TABLES FOR THE VT61
;(USES THE SAME INPUT, OUTPUT TABLES AND POSITIONING ROUTINES AS THE VT52)

IFN FVT61,<
EVT61:	MOVE	T1,[BYTE (7) 33,"P","F"]
	MOVEM	T1,ILN(TM)	;INSERT LINE SEQUENCE
	MOVE	T1,[BYTE (7) 33,"P","D"]
	MOVEM	T1,DLN(TM)	;DELETE LINE SEQUENCE
	MOVE	T1,[BYTE (7) 33,"O","J"]
	MOVEM	T1,PON(TM)	;PROTECT ON SEQUENCE
	MOVE	T1,[BYTE (7) 33,"O","j"]
	MOVEM	T1,POF(TM)	;PROTECT OFF SEQUENCE
	MOVEI	T1,NVT61
	MOVEM	T1,ISP(TM)	;INSERT SPACE ROUTINE
	MOVE	T1,[BYTE (7) 33,"P","S"]
	MOVEM	T1,DSP(TM)	;DELETE SPACE SEQUENCE
	MOVEI	T1,MRK		;CLEAR THE USE-MARK FLAG
	ANDCAM	T1,TCH(TM)	;  SO THE CURSOR POSITION WILL BE HIGHLIGHTED
IFN FTIMD,<
	MOVE	T1,[BYTE (7) 33,"P","I"]
	MOVEM	T1,IMO(TM)	;SEQUENCE TO TURN INSERT MODE ON
	MOVE	T1,[BYTE (7) 33,"P","i"]
	MOVEM	T1,IMF(TM)	;AND TO TURN INSERT MODE OFF
>
	JRST	PUTTYP		;COMPLETE OUTPUT AND RETURN

;SUBROUTINE TO INSERT (T4) SPACES AT THE CURSOR
;need to start by clearing to end of line if line will wrap

NVT61:	MOVE	T1,[BYTE (7) 33,"P","I"]
	PUSHJ	P,PUTSQ1	;GET INTO INSERT MODE
	MOVEI	T1," "		;GET A SPACE
	IDPB	T1,TY		;OPEN ONE SPACE
	SOJG	T4,.-1		;LOOP THROUGH ALL SPACES
	MOVE	T1,[BYTE (7) 33,"P","i"]
	JRST	PUTSQ1		;EXIT INSERT MODE AND RETURN
>
IFN FVT100!FVT102!FVT125!FGIGI,<
;TERMINAL TABLES FOR THE DIGITAL VT100
;(ALSO USED FOR OTHER DIGITAL VT100-LIKE TERMINALS)
;NOTE: THE WRP FLAG SHOULD NOT BE SET WHETHER OR NOT THE VT100 HAS WRAPAROUND

FV100F==1		;FLAG: TURN ON IF TERMINAL SENDS XON-XOFF'S

OVT220:
OVT240:
OGIGI:
OVT102:
OVT125:
OVT100:	BYTE (7) 33,"[","A"	;CURSOR UP
	BYTE (7) 33,"[","B"	; DOWN
	BYTE (7) 33,"[","C"	; RIGHT
	BYTE (7) 33,"[","D"	; LEFT
	BYTE (7) 33,"[","H"	; HOME
	BYTE (7) 33,"[","J"	;CLEAR PAGE
	BYTE (7) 33,"[","K"	;CLEAR LINE
	BYTE (7) 33,"D"		;ROLL UP AND CLEAR LINE
	BYTE (7) 33,"M"		;ROLL DOWN AND CLEAR LINE
	BYTE (7) 33,"[","7","m"	;PROTECT ON
	BYTE (7) 33,"[","0","m"	;PROTECT OFF
	ILVT10			;INSERT LINE
	0			;INSERT SPACE (NONE)
	DLVT10			;DELETE LINE
	0			;DELETE SPACE (NONE)
	3777,,[BYTE (7) 33,"[","2","4",";","1","H"] ;MOVE TO BOTTOM
	HVT100			;HOME AND CLEAR PAGE
	CVT100			;ROUTINE TO POSITION TO CHARACTER
	LVT100			;ROUTINE TO POSITION TO START OF LINE
	^D24			;LINES PER PAGE
	^D80			;CHARACTERS PER LINE
IFE FV100F,<
	SLW!TBS			;FLAGS (SLOW TTY,TTY WRAPS,HARDWARE TABS)
>
IFN FV100F,<
	NPG!SLW!TBS		;FLAGS (KEEP TTY PAGE AND ONES ABOVE)
>
	EVT100			;ROUTINE TO CALL ON ENTRY
	XVT52			;ROUTINE TO CALL ON EXIT
	0,,0			;NO NULLS NEEDED
	IVT100			;ADDRESS OF INPUT CHARACTER TABLE
IFN FTIMD,<
	0			;ENTER INSERT MODE
	0			;EXIT INSERT MODE
IFN FTLSR,<
	GVT100			;LIMIT SCROLLING REGION
	3777,,[BYTE (7) 33,"[","0",";","2","4","r"] ;UN-LIMIT SCROLLING REGION
>>
IFN FTLSR,<
;SUBROUTINE TO LIMIT THE SCROLLING REGION TO T2,T3

GVT100:	PUSH	P,T3		;SAVE ENDING ROW
	PUSH	P,T2		;AND STARTING ROW
	MOVSI	T1,(BYTE (7) 33,"[")
	PUSHJ	P,PUTSQ1	;START OFF THE SEQUENCE
	POP	P,T1		;GET STARTING ROW
	PUSHJ	P,PUTNUM	;OUTPUT IT
	MOVEI	T1,";"		;DELIMIT STARTING, ENDING ROWS
	IDPB	T1,TY
	POP	P,T1		;GET ENDING ROW
	PUSHJ	P,PUTNUM	;OUTPUT IT
	MOVEI	T1,"r"		;COMPLETE THE SEQUENCE
	IDPB	T1,TY
	POPJ	P,		;DONE
>
HVT100:	MOVEI	T1,[BYTE (7) 33,"[","H",33,"[" ;HOME AND CLEAR PAGE
		    BYTE (7) "J"]
	PUSHJ	P,PUTSTG
	PUSHJ	P,PUTTYP	;OUTPUT IT NOW
	MOVEI	T1,^D0100	;DELAY JUST A LITTLE
IFN TOPS10,<
	HIBER	T1,
	  JFCL
>
IFE TOPS10,<
	DISMS
>
	POPJ	P,		;THEN RETURN
>
IFN FVT100!FVT125!FGIGI,<
;INSERT (T4) LINES (USES LIMITED SCROLLING REGION)

ILVT10:	PUSHJ	P,SVT100	;SET UP THE SCROLLING REGION
	MOVSI	T1,(BYTE (7) 33,"[")
	PUSHJ	P,PUTSQ1
	PUSHJ	P,GETROW	;GET THE CURRENT ROW IN T1
	PUSHJ	P,PUTNUM	;AND OUTPUT DECIMAL IN ASCII
	MOVE	T1,[BYTE (7) ";","0","H"]
	PUSHJ	P,PUTSQ1	;AND MAKE SURE WE ARE THERE
	PUSH	P,T4
ILVT1A:	MOVE	T1,[BYTE (7) 33,"M"]
	PUSHJ	P,PUTSQ1	;INSERT A LINE
	SOJG	T4,ILVT1A	;LOOP TO INSERT ALL THE LINES

	POP	P,T1		;GET NUMBER OF LINES INSERTED
	JUMPE	CM,RVT100	;DONE IF AT START OF LINE
	SOSG	T4,T1		;  OR IF ONLY ONE LINE
	JRST	RVT100
	PUSHJ	P,RVT100	;NOW RESTORE THE INITIAL STATE
ILVT1B:	MOVE	T1,[BYTE (7) 33,"[","B"]
	PUSHJ	P,PUTSQ1	;ELSE MOVE DOWN ONE LESS TIME THAN LINES
	SOJG	T4,ILVT1B	;LOOP TO INSERT ALL THE LINES
	POPJ	P,

;DELETE ONE LINE (USES LIMITED SCROLLING REGION)

DLVT10:	MOVE	T1,LPP(TM)	;ON ONE OF THE THE BOTTOM TWO LINES?
	CAIG	T1,2(RW)
;	CAIG	T1,1(RW)
	JRST	DLVT1S		;YES - HANDLE SPECIALLY
DLVT1A:	PUSHJ	P,SVT100	;ELSE SET UP THE SCROLLING REGION
;	MOVEI	T1,[BYTE (7) 33,"[","2","4",";"
;		    BYTE (7) "0","H",33,"D"]
;	PUSHJ	P,PUTSTG
;	PUSHJ	P,RVT100
;	JRST	PUTTYP		;OUTPUT AND RETURN

	MOVEI	T1,[BYTE (7) 33,"[","2","4",";"
		    BYTE (7) "0","H"]
	PUSHJ	P,PUTSTG
DLVT1B:	MOVE	T1,[BYTE (7) 33,"D"]
	PUSHJ	P,PUTSQ1	;DELETE A LINE
	SOJG	T2,DLVT1B	;LOOP TO DELETE ALL THE LINES
				;FALL INTO RVT100 AND RETURN

RVT100:	MOVEI	T1,[BYTE (7) 33,"[","0",";","2"
		    BYTE (7) "4","r",33,"8"]
	JRST	PUTSTG		;OUTPUT AND RETURN

;HERE IF THE CURSOR IS ON ONE OF THE BOTTOM TWO LINES. DO AS TWO SPECIAL CASES.

DLVT1S:	CAIE	T1,2(RW)	;ON THE BOTTOM LINE?
	JRST	DLVTS1		;YES - HANDLE SPECIALLY
	JUMPE	CM,DLVT1A	;JUMP IF AT START OF NEXT-TO-BOTTOM LINE
	MOVE	T1,[BYTE (7) 12,33,"[","K"]
	PUSHJ	P,PUTSQ1	;ELSE JUST CLEAR THE BOTTOM LINE
	MOVE	T1,CUP(TM)	;MOVE UP AGAIN, AND RETURN
	JRST	PUTSEQ

DLVTS1:	MOVE	T1,[BYTE (7) 33,"[","K"]
	JRST	PUTSQ1		;JUST CLEAR LINE OUT AND RETURN

;SET UP SCROLLING REGION FOR INSERT OR DELETE LINES

SVT100:	MOVE	T1,[BYTE (7) 33,"7",33,"["]
	PUSHJ	P,PUTSQ1
	PUSHJ	P,GETROW	;GET THE CURRENT ROW IN T1
	PUSHJ	P,PUTNUM	;OUTPUT DECIMAL NUMBER IN ASCII
	MOVE	T1,[BYTE (7) ";","2","4","r"]
	JRST	PUTSQ1
;	PUSHJ	P,PUTSQ1
;	PUSHJ	P,PUTTYP	;OUTPUT ALL THIS NOW AND RETURN
;	SNOOZE	500
;	POPJ	P,

GETROW:	MOVEI	T1,1(RW)	;GET THE CURRENT ROW
	ADD	T1,HOMPOS	;ADD WINDOW OFFSET, IF ANY
	JUMPE	CM,CPOPJ	;IS THE CURSOR AT THE START OF THE ROW?
	AOJA	T1,CPOPJ	;NO - START ONE ROW FARTHER DOWN AND RETURN
>
IFN FVT100!FVT102!FVT125!FGIGI,<
;TERMINAL INPUT TABLE - TELLS WHICH CHARACTER SEQUENCES
;INVOKE WHICH COMMANDS

IFE FV100F,<
IFE FVT220!FVT240,<
	EXP	$RESET				;RUBOUT
>
IFN FVT220!FVT240,<
	EXP	$DELCH
>
IVT100:	EXP		$RECAL,	$INSSP,	$SETFI	;   0, A, B
	EXP	$ABORT,	$INSLN,	$SRCBK,	$DELLN	;C, D, E, F
	EXP	$PUT,	$DELCH,	$TAB,	$ERSLN	;G, H, I, J
	EXP	$SLDLF,	$SLDRT,	$RETRN,	$SWTCH	;K, L, M, N
	EXP	$ENTCC,	$GOTO,	$RLBKP,	$SRCFW	;O, P, Q, R
	EXP	$DELSP,	$RLFWL,	$BKTAB,	$PICK	;S, T, U, V
	EXP	$RLBKL,	$EXEC,	$RLFWP,	$EXIT	;W, X, Y, Z
		-SV10.S,,SV10.T			;ESCAPE
	EXP	$PUSH,	$JUSTI,	$SUBST,	$MARKR	;\, ], ^, _
>
IFN FV100F,<
;THIS TABLE SETS UP THE KEYBOARD ARRANGEMENT FOR WHEN YOU NEED TO KEEP
;TTY PAGE IN EFFECT BECAUSE THE TERMINAL SENDS OUT ITS OWN CONTROL S AND Q'S
;THOSE TWO CHARACTERS CANNOT BE COMMANDS SINCE SED DOES NOT KNOW WHETHER THE
;USER HAS TYPED THEM OR THEY WERE SENT BY THE TERMINAL.

;SO Q GOES TO A, A AND S GO TO K AND L, K TO ESCAPE-L, AND L TO ESCAPE-T

IFE FVT220!FVT240,<
	EXP	$RESET				;RUBOUT
>
IFN FVT220!FVT240,<
	EXP	$DELCH
>
IVT100:	EXP		$RECAL,	$RLBKP,	$SETFI	;   0, A, B
	EXP	$ABORT,	$INSLN,	$SRCBK,	$DELLN	;C, D, E, F
	EXP	$PUT,	$DELCH,	$TAB,	$ERSLN	;G, H, I, J
	EXP	$INSSP,	$DELSP,	$RETRN,	$SWTCH	;K, L, M, N
	EXP	$ENTCC,	$GOTO,	0,	$SRCFW	;O, P, Q, R
	EXP	0,	$RLFWL,	$BKTAB,	$PICK	;S, T, U, V
	EXP	$RLBKL,	$EXEC,	$RLFWP,	$EXIT	;W, X, Y, Z
		-SV10.S,,SV10.T			;ESCAPE
	EXP	$PUSH,	$JUSTI,	$SUBST,	$MARKR	;\, ], ^, _
>
;SUBTABLE. PUT THE MOST FREQUENTLY-USED SEQUENCES FIRST
;ENTER IS PROBABLY THE MOST COMMON OF ALL

SV10.T:	VT100X,,"["	;ESCAPE [ == READ NEXT CHAR
	VT100S,,"O"	;ESCAPE O == READ NEXT CHAR
	$JUSTI,,"J" 	;ESCAPE J == JUSTIFY
	$JUSTI,,"j" 	;ESCAPE j == JUSTIFY
	$TBSET,,"S" 	;ESCAPE S == SET-TABS
	$TBSET,,"s" 	;ESCAPE s == SET-TABS
	$MARKR,,"M" 	;ESCAPE M == MARKER
	$MARKR,,"m" 	;ESCAPE m == MARKER
SV10.S==.-SV10.T

VT100X:	$CURUP,,"A"	;ESCAPE [ A == UP
	$CURDN,,"B"	;ESCAPE [ B == DOWN
	$CURRT,,"C"	;ESCAPE [ C == RIGHT
	$CURLF,,"D"	;ESCAPE [ D == LEFT
IFN FVT220!FVT240,<
	VT2F1X,,"1"	;ESCAPE [ 1 == VT2X0 'FIND' OR F6-F8
	VT2F2X,,"2"	;ESCAPE [ 2 == VT2X0 'INSERT HERE' OR F9-F14, HELP, DO
	VT2F3X,,"3"	;ESCAPE [ 3 == VT2X0 'REMOVE' OR F17-F20
	VT2FC4,,"4"	;ESCAPE [ 4 == VT2X0 'SELECT' IF "~" (TILDE) FOLLOWS
	VT2FC5,,"5"	;ESACPE [ 5 == VT2X0 'PREV SCREEN'   " "
	VT2FC6,,"6"	;ESACPE [ 6 == VT2X0 'NEXT SCREEN'   " "
> ;END IFN FVT220!FVT240
	0

VT100S:	$ENTER,,"P"	;ESCAPE O P == ENTER
	$CURHM,,"R"	;ESCAPE O R == HOME
	$RECAL,,"Q"	;ESCAPE O Q == RECALL
	$INMOD,,"M"	;ESCAPE O M == INSERT-MODE
	$SAVE,,"S"	;ESCAPE O S == SAVE-FILE

	$CURUP,,"A"	;ESCAPE O A == UP
	$CURDN,,"B"	;ESCAPE O B == DOWN
	$CURRT,,"C"	;ESCAPE O C == RIGHT
	$CURLF,,"D"	;ESCAPE O D == LEFT

	$BLINE,,"t"	;ESCAPE O t == START-OF-LINE
	$ELINE,,"v"	;ESCAPE O v == END-OF-LINE
	$DNTAB,,"r"	;ESCAPE O r == DOWN-TAB
	$UPTAB,,"x"	;ESCAPE O x == UP-TAB
	$ERSWD,,"n"	;ESCAPE O n == ERASE-WORD
	$RLTAB,,"p"	;ESCAPE O p == REAL-TAB
	$MARK,,"w"	;ESCAPE O w == MARK
	$CASE,,"y"	;ESCAPE O y == CASE
	$REWRT,,"u"	;ESCAPE O u == REWRITE SCREEN
	$WINDW,,"q"	;ESCAPE O q == WINDOW
	$SLDLF,,"m"	;ESCAPE O m == SLIDE-LEFT
	$SLDRT,,"l"	;ESCAPE O l == SLIDE-RIGHT
	$HELP,,"s"	;ESCAPE O s == HELP
	0

;TABLES FOR PARSING CRUFTY VT2X0 'ESCAPE [' SEQUENCES

IFN FVT220!FVT240,<

VT2F1X:	$SRCFW,,"~"	;ESCAPE [ 1 (TILDE) == VT2X0 'FIND' - SEARCH FORWARD
	VT2F6,,"7"	;ESCAPE [ 1 7 == VT2X0 F6 IF "~" (TILDE) FOLLOWS
	VT2F7,,"8"	;ESCAPE [ 1 8 == VT2X0 F7  "  "
	VT2F8,,"9"	;ESCAPE [ 1 9 == VT2X0 F8  "  "
	0

VT2F2X:	$INSLN,,"~"	;ESCAPE [ 2 (TILDE) == VT2X0 'INSERT HERE' - INSERT LINE
	VT2F9,,"0"	;ESCAPE [ 2 0 == VT2X0 F9  IF "~" (TILDE) FOLLOWS
	VT2F10,,"1"	;ESCAPE [ 2 1 == VT2X0 F10  "  "
	VT2F11,,"3"	;ESCAPE [ 2 3 == VT2X0 F11  "  "
	VT2F12,,"4"	;ESCAPE [ 2 4 == VT2X0 F12  "  "
	VT2F13,,"5"	;ESCAPE [ 2 5 == VT2X0 F13  "  "
	VT2F14,,"6"	;ESCAPE [ 2 6 == VT2X0 F14  "  "
	VT2F15,,"8"	;ESCAPE [ 2 8 == VT2X0 F15  "  "
	VT2F16,,"9"	;ESCAPE [ 2 9 == VT2X0 F16  "  "
	0

VT2F3X:	$DELLN,,"~"	;ESCAPE [ 3 (TILDE) == VT2X0 'REMOVE' - DELETE LINE
	VT3F17,,"1"	;ESACPE [ 3 1 == VT2X0 F17 IF TILDE FOLLOWS
	VT3F18,,"2"	;ESCAPE [ 3 2 == VT2X0 F18  "  "
	VT3F19,,"3"	;ESCAPE [ 3 3 == VT2X0 F19  "  "
	VT3F20,,"4"	;ESCAPE [ 3 4 == VT2X0 F20  "  "
	0

VT2FC4:	$SRCBK,,"~"	;ESCAPE [ 4 (TILDE) == VT2X0 'SELECT' - SEARCH BACKWARDS
	0

VT2FC5:	$RLBKP,,"~"	;ESCAPE [ 5 (TILDE) == VT2X0 'PREV SCREEN' - ROLL BACK PAGE
	0

VT2FC6:	$RLFWP,,"~"	;ESCAPE [ 5 (TILDE) == VT2X0 'NEXT SCREEN' - ROLL FORWARD PAGE
	0

VT2F6:	$RESET,,"~"	;ESCAPE [ 1 7 == VT2X0 - UNDEFINED
	0

VT2F7:	$RESET,,"~"	;ESCAPE [ 1 8 == VT2X0 - UNDEFINED
	0

VT2F8:	$RESET,,"~"	;ESCAPE [ 1 9 == VT2X0 - UNDEFINED
	0

VT2F9:	$JUSTI,,"~"	;ESCAPE [ 2 0 == VT2X0 - JUSTIFY
	0

VT2F10:	$TBSET,,"~"	;ESCAPE [ 2 1 == VT2X0 - SET TABS
	0

VT2F11:	$ENTER,,"~"	;ESCAPE [ 2 3 == VT2X0 - ENTER
	0

VT2F12: $RECAL,,"~"	;ESCAPE [ 2 4 == VT2X0 - RECALL
	0

VT2F13:	$CURHM,,"~"	;ESCAPE [ 2 5 == VT2X0 - CURSOR HOME
	0

VT2F14:	$SAVE,,"~"	;ESCAPE [ 2 6 == VT2X0 - SAVE FILE
	0

VT2F15:	$HELP,,"~"	;ESCAPE [ 2 8 == VT2X0 - HELP (KEY IS MARKED 'HELP')
	0

VT2F16:	$EXEC,,"~"	;ESCAPE [ 2 9 == VT2X0 - EXECUTE (KEY IS MARKED 'DO')
	0

VT3F17:	$RLFWL,,"~"	;ESCAPE [ 3 1 == VT2X0 - ROLL FORWARD LINES
	0

VT3F18:	$RLBKL,,"~"	;ESCAPE [ 3 2 == VT2X0 - ROLL BACK LINES
	0

VT3F19:	$INSSP,,"~"	;ESCAPE [ 3 3 == VT2X0 - INSERT SPACE
	0

VT3F20:	$DELSP,,"~"	;ESCAPE [ 3 4 == VT2X0 - DELETE SPACE
	0
>
;MOVE TO ROW (RW), COLUMN (CM)

CVT100:	MOVSI	T1,(BYTE (7) 33,"[")
	PUSHJ	P,PUTSQ1	;START IT OFF
	MOVEI	T1,1(RW)	;GET ROW POSITION
	PUSHJ	P,PUTNUM
	MOVEI	T1,";"		;THEN A SEMICOLON
	IDPB	T1,TY
	MOVEI	T1,1(CM)	;GET COLUMN POSITION
	PUSHJ	P,PUTNUM
	MOVEI	T1,"H"		;THEN AN H
	IDPB	T1,TY
	POPJ	P,		;DONE

;MOVE TO START OF LINE (T4)

LVT100:	MOVSI	T1,(BYTE (7) 33,"[")
	PUSHJ	P,PUTSQ1	;START IT OFF
	MOVEI	T1,1(T4)	;GET ROW POSITION
	PUSHJ	P,PUTNUM
	MOVE	T1,[ASCII /;0H/]
	JRST	PUTSQ1		;MOVE TO FIRST COLUMN; DONE

;ROUTINE CALLED ON VT100 ENTRY: SET UP KEYPAD IN APPLICATION MODE
;(NOTE: EXIT ROUTINE IS WITH VT52 CODE)

EVT100:
IFN ..IDX-1,<JRST DECIDE>	;IF MORE THAN ONE TERMINAL TYPE, FIND WHICH
	MOVE	T1,[BYTE (7) 33,"=",33,74]
	PUSHJ	P,PUTSQ1	;ASSUME VT52, SET VT100 (+ ALTERNATE KEYPAD)
IFN FVT102,<
	CAME	T4,[SIXBIT /VT102/] ;REALLY WANT A VT102?
	CAMN	T4,[SIXBIT /VT220/] ;HOW 'BOUT A VT220?
	JRST	EVT102		;YES - MODIFY THE TERMINAL TABLE FOR IT
	CAMN	T4,[SIXBIT /VT240/] ;A VT240, PERHAPS?
	JRST	EVT102		;YES - TREAT LIKE A VT102
>
IFN FGIGI,<
	CAMN	T4,[SIXBIT /GIGI/] ;REALLY WANT A GIGI?
	JRST	EGIGI		;YES - MODIFY THE TERMINAL TABLE FOR IT
>
	JRST	PUTTYP		;NO - LEAVE IT A VT100

IFN FGIGI,<
EGIGI:	SETZM	OVT100+ILN	;GIGI - CAN'T INSERT AND DELETE LINES
	SETZM	OVT100+DLN	;  SO SAY IT CAN'T BE DONE
	MOVE	T1,[3777,,[BYTE (7) 33,"[","3","1",";","4","4","m"]]
	MOVEM	T1,OVT100+PON	;CHANGE DISPLAY OF PROTECT-ON
	JRST	PUTTYP		;OUTPUT EVERYTHING AND RETURN
>>
IFN FVT102,<
;TERMINAL TABLES FOR THE VT102
;(USES THE SAME INPUT, OUTPUT TABLES AND POSITIONING ROUTINES AS THE VT100)

FV102F==1		;FLAG: TURN ON IF TERMINAL SENDS XON-XOFF'S

EVT102:
IFN FVT100!FVT125!FGIGI,<
	MOVEI	T1,LVT102
	MOVEM	T1,ILN(TM)	;INSERT LINE ROUTINE
	MOVEI	T1,DVT102
	MOVEM	T1,DLN(TM)	;DELETE LINE ROUTINE
>
	MOVEI	T1,NVT102
	MOVEM	T1,ISP(TM)	;INSERT SPACE ROUTINE
	MOVEI	T1,SVT102
	MOVEM	T1,DSP(TM)	;DELETE SPACE ROUTINE
IFN FTIMD,<
	MOVE	T1,[BYTE (7) 33,"[","4","h"]
	MOVEM	T1,IMO(TM)	;SEQUENCE TO TURN INSERT MODE ON
	MOVE	T1,[BYTE (7) 33,"[","4","l"]
	MOVEM	T1,IMF(TM)	;AND TO TURN INSERT MODE OFF
>
	JRST	PUTTYP		;COMPLETE OUTPUT AND RETURN

;SUBROUTINE TO INSERT A LINE AT THE CURSOR
;INSERTS (T4) LINES. ALSO MOVES THE CURSOR DOWN (T4)-1 LINES

IFE FVT100!FVT125!FGIGI,<
ILVT10:
>
LVT102:	MOVSI	T1,(BYTE (7) 33,"[")
	PUSHJ	P,PUTSQ1	;INSERT ALL THE LINES AT ONCE
	MOVE	T1,T4
	PUSHJ	P,PUTNUM
	SOJLE	T4,LVT12A	;DONE IF ONLY ONE LINE
	MOVE	T1,[BYTE (7) "L",33,"["]
	PUSHJ	P,PUTSQ1	;ELSE MOVE THE CURSOR DOWN THAT MANY, TOO
	MOVE	T1,T4
	PUSHJ	P,PUTNUM
	MOVEI	T1,"B"
	TDZA	T4,T4		;CLEAR CALLER'S LOOP COUNT
LVT12A:	MOVEI	T1,"L"
	IDPB	T1,TY
	POPJ	P,

;SUBROUTINE TO DELETE (T2) LINES AT THE CURSOR

IFE FVT100!FVT125!FGIGI,<
DLVT10:
>
DVT102:	MOVSI	T1,(BYTE (7) 33,"[")
	PUSHJ	P,PUTSQ1
	MOVE	T1,T2
	PUSHJ	P,PUTNUM
	MOVEI	T1,"M"
	IDPB	T1,TY
	SETZ	T2,		;CLEAR CALLER'S LOOP COUNT
	POPJ	P,

;SUBROUTINE TO INSERT (T4) SPACES AT THE CURSOR

NVT102:	MOVE	T1,[BYTE (7) 33,"[","4","h"]
	PUSHJ	P,PUTSQ1	;GET INTO INSERT MODE
	MOVEI	T1," "		;GET A SPACE
	IDPB	T1,TY		;OPEN ONE SPACE
	SOJG	T4,.-1		;LOOP THROUGH ALL SPACES
	MOVE	T1,[BYTE (7) 33,"[","4","l"]
	JRST	PUTSQ1		;EXIT INSERT MODE AND RETURN

;SUBROUTINE TO DELETE (T4) SPACES AT THE CURSOR

SVT102:	MOVSI	T1,(BYTE (7) 33,"[")
	PUSHJ	P,PUTSQ1
	MOVE	T1,T4
	PUSHJ	P,PUTNUM
	MOVEI	T1,"P"
	IDPB	T1,TY
	SETZ	T4,		;CLEAR CALLER'S LOOP COUNT
	POPJ	P,
>
IFN FVI200,<

OVI200:	XVI200

>
IFN FVIEWP,<
;DEFINITIONS FOR THE ADDS VIEWPOINT TERMINAL

FVIEWF==0	;SET THIS IF TERMINAL SENDS OUT XON-XOFF'S

;TERMINAL OUTPUT TABLE - SEQUENCES TO MAKE THE TERMINAL DO SPECIAL THINGS

OVIEWP:	BYTE (7) "Z"-100	;CURSOR UP
	BYTE (7) "J"-100	; DOWN
	BYTE (7) "F"-100	; RIGHT
	BYTE (7) "U"-100	; LEFT
	BYTE (7) 33,"Y"," "," "	; HOME
	BYTE (7) 33,"k"		;CLEAR TO END OF PAGE
	BYTE (7) 33,"K"		;CLEAR TO END OF LINE
	BYTE (7) 12		;ROLL UP AND CLEAR LINE
	BYTE (7) 0		;ROLL DOWN AND CLEAR LINE
	BYTE (7) "N"-100	;PROTECT ON (0 IF NONE)
	BYTE (7) "O"-100	;PROTECT OFF (0 IF NONE)
	BYTE (7) 0		;INSERT LINE (0 IF NONE)
	BYTE (7) 0		;INSERT SPACE (0 IF NONE)
	BYTE (7) 0		;DELETE LINE (0 IF NONE)
	BYTE (7) 0		;DELETE SPACE (0 IF NONE)
	BYTE (7) 1		;MOVE TO BOTTOM
	BYTE (7) 1,14		;HOME AND CLEAR ENTIRE PAGE
	CVIEWP			;ROUTINE TO POSITION TO CHARACTER
	LVIEWP			;ROUTINE TO POSITION TO START OF LINE
	^D24			;LINES PER PAGE
	^D80			;CHARACTERS PER LINE
IFE FVIEWF,<
	SLW!WRP			;TERMINAL-DEPENDENT FLAGS
>
IFN FVIEWF,<
	SLW!WRP!NPG		;TERMINAL-DEPENDENT FLAGS (KEEP TTY PAGE)
>
	EVIEWP			;ROUTINE TO CALL ON ENTRY
	CPOPJ			;ROUTINE TO CALL ON EXIT
	0,,0			;NUMBER OF NULLS TO OUTPUT,,NULL CHARACTER
	IVIEWP			;ADDRESS OF INPUT CHARACTER TABLE
IFN FTIMD,<
	0			;ENTER INSERT MODE
	0			;EXIT INSERT MODE
IFN FTLSR,<
	CPOPJ			;LIMIT SCROLLING REGION
	CPOPJ			;UNLIMIT SCROLLING REGION
>>

;TERMINAL INPUT TABLE - TELLS WHAT CONTROL CHARACTERS OR SEQUENCES
;INVOKE WHICH COMMANDS

IFE FVIEWF,<
	EXP	$RESET				;RUBOUT
IVIEWP:	EXP		$RECAL, $CURHM		;   0, A
	EXP	-SIZ.CB,,SUBCB			;B (NEEDS A SUBTABLE)
	EXP	$ABORT, $INSLN, $SRCBK, $CURRT	;C, D, E, F
	EXP	$PUT,   $DELCH, $TAB,   $CURDN	;G, H, I, J
	EXP	$TAB,   $BKTAB, $RETRN, $SWTCH	;K, L, M, N
	EXP	$ENTCC, $GOTO,  $RLBKP, $SRCFW	;O, P, Q, R
	EXP	$DELSP, $RLFWL, $CURLF, $PICK	;S, T, U, V
	EXP	$RLBKL, $EXEC,  $RLFWP, $CURUP	;W, X, Y, Z
	EXP	-SVEW.S,,SVEW.T			;ESCAPE
	EXP	$MARK,  $CURRT, $PUSH,  $CURHM	;\, ], ^, _
>
IFN FVIEWF,<
;THIS TABLE SETS UP THE KEYBOARD ARRANGEMENT FOR WHEN YOU NEED TO KEEP
;TTY PAGE IN EFFECT BECAUSE THE TERMINAL SENDS OUT ITS OWN CONTROL S AND Q'S
;THOSE TWO CHARACTERS CANNOT BE COMMANDS SINCE SED DOES NOT KNOW WHETHER THE
;USER HAS TYPED THEM OR THEY WERE SENT BY THE TERMINAL.

;SO Q GOES TO A, A AND S GO TO K AND L, K TO ESCAPE-L, AND L TO ESCAPE-T

;NOTE: this table has not been altered for the Viewpoint.

	EXP	$RESET				;RUBOUT
IVIEWP:	EXP		$RECAL, $RLBKP, $SETFI	;   0, A, B
	EXP	$ABORT, $INSLN, $SRCBK, $DELLN	;C, D, E, F
	EXP	$PUT,   $DELCH, $TAB,   $ERSLN	;G, H, I, J
	EXP	$INSSP, $DELSP, $RETRN, $SWTCH	;K, L, M, N
	EXP	$ENTCC, $GOTO,  0,	$SRCFW	;O, P, Q, R
	EXP	0,	$RLFWL, $BKTAB, $PICK	;S, T, U, V
	EXP	$RLBKL, $EXEC,  $RLFWP, $EXIT	;W, X, Y, Z
		-SVEW.S,,SVEW.T			;ESCAPE
	EXP	$CURDN, $CURRT, $CURUP, $CURHM	;\, ], ^, _
>
;SUBTABLE FOR CONTROL-B (NORMAL AND SHIFTED F1, F2, F3)

SUBCB:	$ENTER,,"1"	;CONTROL-B 1 == ENTER
	$DELLN,,"2"	;CONTROL-B 2 == DELETE-LINES
	$BLINE,,"3"	;CONTROL-B 1 == BEGIN-LINE
	$RECAL,,"!"	;CONTROL-B ! == RECALL
	$ERSLN,,""""	;CONTROL-B " == ERASE-LINE
	$ELINE,,"#"	;CONTROL-B 1 == END-LINE
SIZ.CB==.-SUBCB

;SUBTABLE. PUT THE MOST FREQUENTLY-USED SEQUENCES FIRST
;ENTER IS PROBABLY THE MOST COMMON OF ALL

SVEW.T:	$SETFI,,"F" 	;ESCAPE F == SET-FILE
	$SAVE ,,"S" 	;ESCAPE S == SAVE-FILE
	$EXIT ,,"E" 	;ESCAPE E == EXIT
	$WINDW,,"W" 	;ESCAPE W == WINDOW
	$REWRT,,"X" 	;ESCAPE X == REWRITE
	$CASE ,,"C" 	;ESCAPE C == CASE
	$HELP ,,"H" 	;ESCAPE H == HELP
	$INSSP,,"I" 	;ESCAPE I == INSERT-SPACES
	$INMOD,,"M" 	;ESCAPE M == INSERT-MODE
	$SLDLF,,"L" 	;ESCAPE L == SLIDE-LEFT
	$SLDRT,,"R" 	;ESCAPE R == SLIDE-RIGHT
	$RLFWP,,"P" 	;ESCAPE P == ROLL-FORWARD-PAGES
	$RLTAB,,"T" 	;ESCAPE T == REAL-TAB
	$ENTER,,33 	;ESCAPE ESCAPE == ENTER

	$SETFI,,"f" 	;ESCAPE f == SET-FILE
	$SAVE ,,"s" 	;ESCAPE s == SAVE-FILE
	$EXIT ,,"e" 	;ESCAPE e == EXIT
	$WINDW,,"w" 	;ESCAPE w == WINDOW
	$REWRT,,"x" 	;ESCAPE x == REWRITE
	$CASE ,,"c" 	;ESCAPE c == CASE
	$HELP ,,"h" 	;ESCAPE h == HELP
	$INSSP,,"i" 	;ESCAPE i == INSERT-SPACES
	$INMOD,,"m" 	;ESCAPE m == INSERT-MODE
	$SLDLF,,"l" 	;ESCAPE l == SLIDE-LEFT
	$SLDRT,,"r" 	;ESCAPE r == SLIDE-RIGHT
	$RLFWP,,"p" 	;ESCAPE p == ROLL-FORWARD-PAGES
	$RLTAB,,"t" 	;ESCAPE t == REAL-TAB
IFN FVIEWF,<
			;IF TTY PAGE IS IN EFFECT,
			;DEFINE SEQUENCES FOR
			;<SLIDE-LEFT> AND <SLIDE-RIGHT> HERE
>
SVEW.S=.-SVEW.T

;VIEWPOINT SUBROUTINE TO EXECUTE ON ENTRY

EVIEWP:
IFN ..IDX-1,<JRST DECIDE>
	MOVE	T1,[BYTE (7) 33,"0","P",0]
	PUSHJ	P,PUTSQ1
	JRST	PUTTYP		;OUTPUT IT AND RETURN

;VIEWPOINT SUBROUTINE TO MOVE TO ROW, COLUMN [RW, CM]

CVIEWP:	MOVE	T1,[BYTE (7) 33,"Y",0]
	PUSHJ	P,PUTSQ1
	MOVEI	T1," "(RW)
	IDPB	T1,TY
	MOVEI	T1," "(CM)
	IDPB	T1,TY
	POPJ	P,

;VIEWPOINT SUBROUTINE TO MOVE TO THE START OF ROW (T4)

LVIEWP:	MOVE	T1,[BYTE (7) 33,"Y",0]
	PUSHJ	P,PUTSQ1
	MOVEI	T1," "(T4)
	IDPB	T1,TY
	MOVEI	T1," "
	IDPB	T1,TY
	POPJ	P,
>

	END

REPEAT 0,<
	EXP	$RESET				;RUBOUT
		0
IVT52:	EXP		$RECAL, $INSSP, $SETFI	;   0, A, B
			40	1	2
	EXP	$ABORT, $INSLN, $SRCBK, $DELLN	;C, D, E, F
		3	4	5	6
	EXP	$PUT,   $DELCH, $TAB,   $ERSLN	;G, H, I, J
		7	XX 	11	XX
	EXP	$SLDLF, $SLDRT, $RETRN, $SWTCH	;K, L, M, N
		13	14	15	16
	EXP	$ENTCC, $GOTO,  $RLBKP, $SRCFW	;O, P, Q, R
		17	20	21	22
	EXP	$DELSP, $RLFWL, $BKTAB, $PICK	;S, T, U, V
		23	24	25	26
	EXP	$RLBKL, $EXEC,  $RLFWP, $EXIT	;W, X, Y, Z
		27	30	31	32
	EXP	-SIZ.IS,,I.VT52			;ESCAPE
		33
	EXP	$PUSH,  $CURRT, $SUBST, $SAVE 	;\, ], ^, _


	EXP	$RESET				;RUBOUT
		0
IVT52:	EXP		$RECAL, $RLBKP, $SETFI	;   0, A, B
			40	21	2
	EXP	$ABORT, $INSLN, $SRCBK, $DELLN	;C, D, E, F
		3	4	5	6
	EXP	$PUT,   $DELCH, $TAB,   $ERSLN	;G, H, I, J
		7	XX	11	XX
	EXP	$INSSP, $DELSP, $RETRN, $SWTCH	;K, L, M, N
		1	23	15	16
	EXP	$ENTCC, $GOTO,  0,	$SRCFW	;O, P, Q, R
		17	20		22
	EXP	0,	$RLFWL, $BKTAB, $PICK	;S, T, U, V
		 	24	25	26
	EXP	$RLBKL, $EXEC,  $RLFWP, $EXIT	;W, X, Y, Z
		27	30	31	32
		-SIZ.IS,,I.VT52			;ESCAPE
		33
	EXP	$PUSH,  $CURRT, $SUBST, $SAVE 	;\, ], ^, _

>