/3 DISPATCH TABLES FR TECO

/ 08-APR-79	SOME E COMMANDS SWITCHED OVERLAYS

	.MACRO	.OV	LAY,ADDR
	4000+<LAY'OVRLY&7^400>+<ADDR+200&377>
	.ENDM	.OV

	.GLOBAL ALTLST,ELIST,PDLBEG,PDLEND

	.EXTERNAL CHR.EA,CHR.EB,CHR.EC,CHR.ED,CHR.EE,CHR.EF,CHR.EG,CHR.EH
	.EXTERNAL CHR.EI,CHR.EJ,CHR.EK,CHR.EL,CHR.EM,CHR.EN,CHR.EO,CHR.ER
	.EXTERNAL CHR.EP,CHR.EQ,CHR.ES,CHR.ET,CHR.EU,CHR.EV,CHR.EW,CHR.EX
	.EXTERNAL CHR.EY,CHR.EZ
	.EXTERNAL CHR.FB,CHR.FN,CHR.FS,CHR.BA
	.EXTERNAL CTL.A,CTL.B,CTL.C,CTL.D,CTL.E,CTL.F,CTL.H,CTL.I,CTL.L
	.EXTERNAL CTL.N,CTL.O,CTL.T,CTL.U,CTL.V,CTL.W
	.EXTERNAL CBSL,CEQL
	.EXTERNAL CDBQ,CHGT,CHLT,CSEM
	.EXTERNAL CHR.A,CHR.B,CHR.C,CHR.D,CHR.E
	.EXTERNAL CHR.F,CHR.G,CHR.H,CHR.I,CHR.J,CHR.K
	.EXTERNAL CHR.L,CHR.M,CHR.N,CHR.O,CHR.P,CHR.Q
	.EXTERNAL CHR.R,CHR.S,CHR.T,CHR.U,CHR.V,CHR.X
	.EXTERNAL CHR.Y,CHR.Z
	.EXTERNAL SERR,POPK,ZRON,NMBR,CCLN
	.EXTERNAL XOVRLY,IOVRLY,FOVRLY,QOVRLY
	.EXTERNAL CTL.UA,CNBS,CPCS,CAMP,COPR,CCPR,CAST,CPLS,CCMA,CMIN,CDOT
	.EXTERNAL CVIR,CATS,CHR.UA,CHR.UB
	.EXTERNAL CQSM,PSHPOP,CEXP

/COMMAND DISPATCH TABLE

	.ASECT CDSP

	*5000

	POPK		/0	<NULL>
	CTL.A		/1	^A
	.OV X,CTL.B	/2	^B
	CTL.C		/3	^C
	.OV F,CTL.D	/4	^D
	.OV X,CTL.E	/5	^E
	.OV X,CTL.F	/6	^F
	CTL.C		/7	^G
	CTL.H		/10	^H
	CTL.I		/11	^I
	POPK		/12	^J
	SERR		/13	^K
	.OV X,CTL.L	/14	^L
	POPK		/15	^M
	.OV X,CTL.N	/16	^N
	.OV F,CTL.O	/17	^O
	SERR		/20	^P
	SERR		/21	^Q
	SERR		/22	^R
	SERR		/23	^S
	CTL.T		/24	^T
	.OV X,CTL.U	/25	^U
	.OV X,CTL.V	/26	^V
	.OV X,CTL.W	/27	^W
	SERR		/30	^X
	SERR		/31	^Y
	SERR		/32	^Z
	ZRON		/33	$
	SERR		/34	^\
	SERR		/35	^]
	CTL.UA		/36	^^
	.OV X,CHR.UB	/37	^_
	POPK		/40	<SPACE>
	CEXP		/41	!
	.OV Q,CDBQ	/42	"
	CNBS		/43	#
	SERR		/44	$
	CPCS		/45	%
	CAMP		/46	&
	ZRON		/47	'
	COPR		/50	(
	CCPR		/51	)
	CAST		/52	*
	CPLS		/53	+
	CCMA		/54	,
	CMIN		/55	-
	CDOT		/56	.
	CVIR		/57	/
	NMBR		/60	0
	NMBR		/61	1
	NMBR		/62	2
	NMBR		/63	3
	NMBR		/64	4
	NMBR		/65	5
	NMBR		/66	6
	NMBR		/67	7
	NMBR		/70	8
	NMBR		/71	9
	CCLN		/72	:
	.OV Q,CSEM	/73	;
	.OV Q,CHLT	/74	<
	.OV F,CEQL	/75	=
	.OV Q,CHGT	/76	>
	.OV X,CQSM	/77	?
	CATS		/100	@
	CHR.A		/101	A
	CHR.B		/102	B
	CHR.C		/103	C
	CHR.D		/104	D
	CHR.E		/105	E
	CHR.F		/106	F
	CHR.G		/107	G
	CHR.H		/110	H
	CHR.I		/111	I
	CHR.J		/112	J
	CHR.K		/113	K
	CHR.L		/114	L
	CHR.M		/115	M
	CHR.N		/116	N
	.OV Q,CHR.O	/117	O
	CHR.P		/120	P
	CHR.Q		/121	Q
	CHR.R		/122	R
	CHR.S		/123	S
	CHR.T		/124	T
	CHR.U		/125	U
	.OV X,CHR.V	/126	V
	SERR		/127	W
	CHR.X		/130	X
	CHR.Y		/131	Y
	CHR.Z		/132	Z
	.OV X,PSHPOP	/133	[
	.OV F,CBSL	/134	\
	.OV X,PSHPOP	/135	]
	CHR.UA		/136	^
	CHR.BA		/137	_
	/END OF DISPATCH TABLE

PDLBEG,	ZBLOCK	37	/BEGINNING OF PUSHDOWN LIST
PDLEND,	0		/END OF PUSHDOWN LIST
	PAGE

	.DSECT CHR$E

	FIELD 0

ALTLST,	175	/ALT MODE
	176	/ANOTHER ALTMODE
		/NEGATIVE ARGUMENT FOLLOWS:
ELIST,	.OV X,CHR.EA		/EA
	.OV I,CHR.EB		/EB
	.OV X,CHR.EC		/EC
	.OV F,CHR.ED		/ED
	.OV X,CHR.EE		/EE
	.OV X,CHR.EF		/EF
	.OV X,CHR.EG		/EG
	.OV F,CHR.EH		/EH
	.OV X,CHR.EI		/EI
	.OV X,CHR.EJ		/EJ
	.OV X,CHR.EK		/EK
	.OV X,CHR.EL		/EL
	.OV X,CHR.EM		/EM
	.OV X,CHR.EN		/EN
	.OV F,CHR.EO		/EO
	.OV X,CHR.EP		/EP
	.OV X,CHR.EQ		/EQ
	.OV I,CHR.ER		/ER
	.OV F,CHR.ES		/ES
	.OV F,CHR.ET		/ET
	.OV F,CHR.EU		/EU
	.OV X,CHR.EV		/EV
	.OV I,CHR.EW		/EW
	.OV X,CHR.EX		/EX
	.OV X,CHR.EY		/EY
	.OV X,CHR.EZ		/EZ