Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-03 - decus/20-0081/allpr4.mac
There is 1 other file named allpr4.mac in the archive. Click here to see a list.
	TITLE	ALLPR4 - CHARACTER TABLES FOR ALLPRT
	TWOSEG
	RELOC	400000
	SUBTTL	COMMAND SCANNER DISPATCH TABLE
	PAGE
;
; DEFINE LINKAGE INTO COMMAND SCANNER
;
	EXTERN	SCANE1,SC%BRK,SC%ERR,SC%PND,SC%PER,SC%SWH
	EXTERN	SC%LFT,SC%CLN
	INTERN	DS%ONE,DS%IGN,DS%INV,DS%BRK,DS%SLW,DS%APH
	INTERN	DS%PND,DS%FIN,DS%MIN,DS%RHT,DS%PER,DS%SWH
	INTERN	DS%LFT,DS%CLN
	INTERN	DESTAB
;
; DEFINE DS. SYMBOLS AND BRANCHES
;
;
DS%ONE:					;DEFINE START OF TABLE
DS%IGN:	JRST	SCANE1			;IGNORE CHARACTER
DS.IGN==DS%IGN-DS%ONE
DS%INV:	JRST	SC%ERR			;ERROR CHARACTER
DS.INV==DS%INV-DS%ONE
DS%BRK:	JRST	SC%BRK			;BREAK CHARACTER
DS.BRK==DS%BRK-DS%ONE
DS%SLW:	JRST	SC%BRK			;BREAK CHARACTER
DS.SLW==DS%SLW-DS%ONE
DS%PND:	JRST	SC%PND			;POUND SIGN 
DS.PND==DS%PND-DS%ONE
DS%FIN:	JRST	SC%BRK			;TERMINATOR
DS.FIN==DS%FIN-DS%ONE
DS%MIN:
DS%RHT:	JRST	SC%ERR			;SPECIAL CHARACTERS
DS.MIN==DS%MIN-DS%ONE
DS.RHT==DS%RHT-DS%ONE
DS%PER:	JRST	SC%PER			;PERIOD
DS.PER==DS%PER-DS%ONE
DS%SWH:	JRST	SC%SWH			;START SWITCH
DS.SWH==DS%SWH-DS%ONE
DS%APH:	JRST	SC%ERR			;ALPHA CHARACTERS
DS.APH==DS%APH-DS%ONE
DS%LFT:	JRST	SC%LFT			;START PPN
DS.LFT==DS%LFT-DS%ONE
DS%CLN:	JRST	SC%CLN			;COLON
DS.CLN==DS%CLN-DS%ONE
;
; DATA BASE FOR INPUT CHARACTERS
;
	DEFINE TABLE (A)
	<TT==TT+1
	IFE TT-1,<A1==A
		  A2==0
		  A3==0
		  A4==0
		  A5==0
		  A6==0
		  A7==0
		  A10==0
		  A11==0>
	IFE TT-2,<A2==A>
	IFE TT-3,<A3==A>
	IFE TT-4,<A4==A>
	IFE TT-5,<A5==A>
	IFE TT-6,<A6==A>
	IFE TT-7,<A7==A>
	IFE TT-10,<A10==A>
	IFE TT-11,<A11==A
		   TABENT
		   TT==0>>
	DEFINE TABENT<
	BYTE (4)A1,A2,A3,A4,A5,A6,A7,A10,A11
>
	TT==0
;
	DEFINE SCNTAB<
	TABLE(DS.IGN)			;NULL - IGNORED
	TABLE(DS.INV)			;CONTROL A
	TABLE(DS.INV)			;CONTROL B
	TABLE(DS.INV)			;CONTROL C
	TABLE(DS.INV)			;CONTROL D
	TABLE(DS.INV)			;CONTROL E
	TABLE(DS.INV)			;CONTROL F
	TABLE(DS.BRK)			;CONTROL G - BELL
	TABLE(DS.INV)			;CONTROL H
	TABLE(DS.IGN)			;CONTROL I - TAB - TREAT LIKE BLANK
	TABLE(DS.BRK)			;CONTROL J - LINEFEED
	TABLE(DS.BRK)			;CONTROL K - VERTICAL TAB
	TABLE(DS.BRK)			;CONTROL L - FORMFEED
	TABLE(DS.IGN)			;CONTROL M -CARRAIGE RETURN - IGNORE
	TABLE(DS.INV)			;CONTROL N
	TABLE(DS.INV)			;CONTROL O
	TABLE(DS.INV)			;CONTROL P
	TABLE(DS.INV)			;CONTROL Q
	TABLE(DS.INV)			;CONTROL R
	TABLE(DS.INV)			;CONTROL S
	TABLE(DS.INV)			;CONTROL T
	TABLE(DS.INV)			;CONTROL U
	TABLE(DS.INV)			;CONTROL V
	TABLE(DS.INV)			;CONTROL W
	TABLE(DS.INV)			;CONTROL X
	TABLE(DS.INV)			;CONTROL Y
	TABLE(DS.BRK)			;CONTROL Z - END OF FILE
	TABLE(DS.SLW)			;ESCAPE
	TABLE(DS.INV)			;034
	TABLE(DS.INV)			;035
	TABLE(DS.INV)			;036
	TABLE(DS.INV)			;037
	TABLE(DS.IGN)			;SPACE -IGNORED
	TABLE(DS.INV)			;!
	TABLE(DS.INV)			;"
	TABLE(DS.PND)			;#
	TABLE(DS.INV)			;$
	TABLE(DS.INV)			;%
	TABLE(DS.INV)			;&
	TABLE(DS.INV)			;'
	TABLE(DS.INV)			;(
	TABLE(DS.INV)			;)
	TABLE(DS.INV)			;*
	TABLE(DS.FIN)			;+
	TABLE(DS.FIN)			;,
	TABLE(DS.MIN)			;-
	TABLE(DS.PER)			;.
	TABLE(DS.SWH)			;SLASH
	TABLE(DS.APH)			;0
	TABLE(DS.APH)			;1
	TABLE(DS.APH)			;2
	TABLE(DS.APH)			;3
	TABLE(DS.APH)			;4
	TABLE(DS.APH)			;5
	TABLE(DS.APH)			;6
	TABLE(DS.APH)			;7
	TABLE(DS.APH)			;8 - PPN IS OCTAL
	TABLE(DS.APH)			;9
	TABLE(DS.CLN)			;:
	TABLE(DS.INV)			;;
	TABLE(DS.INV)			;LESSTHAN
	TABLE(DS.FIN)			;=
	TABLE(DS.INV)			;GREATERTHAN
	TABLE(DS.INV)			;?
	TABLE(DS.INV)			;@
	TABLE(DS.APH)			;A
	TABLE(DS.APH)			;B
	TABLE(DS.APH)			;C
	TABLE(DS.APH)			;D
	TABLE(DS.APH)			;E
	TABLE(DS.APH)			;F
	TABLE(DS.APH)			;G
	TABLE(DS.APH)			;H
	TABLE(DS.APH)			;I
	TABLE(DS.APH)			;J
	TABLE(DS.APH)			;K
	TABLE(DS.APH)			;L
	TABLE(DS.APH)			;M
	TABLE(DS.APH)			;N
	TABLE(DS.APH)			;O
	TABLE(DS.APH)			;P
	TABLE(DS.APH)			;Q
	TABLE(DS.APH)			;R
	TABLE(DS.APH)			;S
	TABLE(DS.APH)			;T
	TABLE(DS.APH)			;U
	TABLE(DS.APH)			;V
	TABLE(DS.APH)			;W
	TABLE(DS.APH)			;X
	TABLE(DS.APH)			;Y
	TABLE(DS.APH)			;Z
	TABLE(DS.LFT)			;[
	TABLE(DS.INV)			;\
	TABLE(DS.RHT)			;]
	TABLE(DS.INV)			;^
	TABLE(DS.FIN)			;_
	TABLE(DS.INV)			;ACCENT GRAVE
	TABLE(DS.APH)			;A
	TABLE(DS.APH)			;B
	TABLE(DS.APH)			;C
	TABLE(DS.APH)			;D
	TABLE(DS.APH)			;E
	TABLE(DS.APH)			;F
	TABLE(DS.APH)			;G
	TABLE(DS.APH)			;H
	TABLE(DS.APH)			;I
	TABLE(DS.APH)			;J
	TABLE(DS.APH)			;K
	TABLE(DS.APH)			;L
	TABLE(DS.APH)			;M
	TABLE(DS.APH)			;N
	TABLE(DS.APH)			;O
	TABLE(DS.APH)			;P
	TABLE(DS.APH)			;Q
	TABLE(DS.APH)			;R
	TABLE(DS.APH)			;S
	TABLE(DS.APH)			;T
	TABLE(DS.APH)			;U
	TABLE(DS.APH)			;V
	TABLE(DS.APH)			;W
	TABLE(DS.APH)			;X
	TABLE(DS.APH)			;Y
	TABLE(DS.APH)			;Z
	TABLE(DS.INV)			;
	TABLE(DS.SLW)			;OLD ESCAPE
	TABLE(DS.SLW)			;OLD ESCAPE
	TABLE(DS.INV)			;
	TABLE(DS.INV)			;RUBOUT/DELETE
>
DESTAB:	SCNTAB				;DEFINE SCANNER TABLE
	TABENT				;FINISH OFF TABLE
	SUBTTL	COMPLETE EBCDIC ASCII SIXBIT CONVERSION TABLE
	PAGE
;
;		IDX,EBC,SIX,ASC
;
	DEFINE EBCTAB<
	EBCMAC(000,000,074,000)		;	NUL	NUL
	EBCMAC(001,001,074,001)		;	SOH	SOH
	EBCMAC(002,002,074,002)		;	STX	STX
	EBCMAC(003,003,074,003)		;	ETX	ETX
	EBCMAC(004,067,074,134)		;	EOT	\  
	EBCMAC(005,055,074,011)		;	ENQ	HT 
	EBCMAC(006,056,074,134)		;	ACK	\  
	EBCMAC(007,057,074,177)		;	BEL	DEL
;
	EBCMAC(010,026,074,134)		;	BS	\  
	EBCMAC(011,005,074,134)		;	HT	\  
	EBCMAC(012,045,074,134)		;	LF	\  
	EBCMAC(013,013,074,013)		;	VT	VT 
	EBCMAC(014,014,074,014)		;	FF	FF 
	EBCMAC(015,015,074,015)		;	CR	CR 
	EBCMAC(016,016,074,016)		;	SO	SO 
	EBCMAC(017,017,074,017)		;	SI	SI 
;
	EBCMAC(020,020,074,020)		;	DLE	DLE
	EBCMAC(021,021,074,021)		;	DC1	DC1
	EBCMAC(022,022,074,022)		;	DC2	DC2
	EBCMAC(023,023,074,023)		;	DC3	DC3
	EBCMAC(024,074,074,134)		;	DC4	\  
	EBCMAC(025,075,074,134)		;	NAK	\  
	EBCMAC(026,062,074,010)		;	SYN	BS 
	EBCMAC(027,046,074,134)		;	ETB	\  
;
	EBCMAC(030,030,074,030)		;	CAN	CAN
	EBCMAC(031,031,074,031)		;	EM	EM 
	EBCMAC(032,077,074,134)		;	SUB	\  
	EBCMAC(033,047,074,134)		;	ESC	\  
	EBCMAC(034,034,074,034)		;	FS	FS 
	EBCMAC(035,035,074,035)		;	GS	GS 
	EBCMAC(036,036,074,036)		;	RS	RS 
	EBCMAC(037,037,074,037)		;	US	US 
;
	EBCMAC(040,100,074,134)		;	SPC	\  
	EBCMAC(041,117,074,134)		;	!	\  
	EBCMAC(042,177,074,134)		;	"	\  
	EBCMAC(043,173,074,134)		;	#	\  
	EBCMAC(044,133,074,134)		;	$	\  
	EBCMAC(045,154,074,012)		;	%	LF 
	EBCMAC(046,120,074,027)		;	&	ETB
	EBCMAC(047,175,074,033)		;	'	ESC
;
	EBCMAC(050,115,074,134)		;	(	\  
	EBCMAC(051,135,074,134)		;	)	\  
	EBCMAC(052,134,074,134)		;	*	\  
	EBCMAC(053,116,074,134)		;	+	\  
	EBCMAC(054,153,074,134)		;	,	\  
	EBCMAC(055,140,074,005)		;	-	ENQ
	EBCMAC(056,113,074,006)		;	.	ACK
	EBCMAC(057,141,074,007)		;	/	BEL
;
	EBCMAC(060,360,074,134)		;	0	\  
	EBCMAC(061,361,074,134)		;	1	\  
	EBCMAC(062,362,074,026)		;	2	SYN
	EBCMAC(063,363,074,134)		;	3	\  
	EBCMAC(064,364,074,134)		;	4	\  
	EBCMAC(065,365,074,134)		;	5	\  
	EBCMAC(066,366,074,134)		;	6	\  
	EBCMAC(067,367,074,004)		;	7	EOT
;
	EBCMAC(070,370,074,134)		;	8	\  
	EBCMAC(071,371,074,134)		;	9	\  
	EBCMAC(072,172,074,134)		;	:	\  
	EBCMAC(073,136,074,134)		;	;	\  
	EBCMAC(074,114,074,024)		;	<	DC4
	EBCMAC(075,176,074,025)		;	=	NAK
	EBCMAC(076,156,074,134)		;	>	\  
	EBCMAC(077,157,074,032)		;	?	SUB
;
	EBCMAC(100,174,000,040)		;	@	SPC
	EBCMAC(101,301,074,134)		;	A	\  
	EBCMAC(102,302,074,134)		;	B	\  
	EBCMAC(103,303,074,134)		;	C	\  
	EBCMAC(104,304,074,134)		;	D	\  
	EBCMAC(105,305,074,134)		;	E	\  
	EBCMAC(106,306,074,134)		;	F	\  
	EBCMAC(107,307,074,134)		;	G	\  
;
	EBCMAC(110,310,074,134)		;	H	\  
	EBCMAC(111,311,074,134)		;	I	\  
	EBCMAC(112,321,073,133)		;	J	[  
	EBCMAC(113,322,016,056)		;	K	.  
	EBCMAC(114,323,034,074)		;	L	<  
	EBCMAC(115,324,010,050)		;	M	(  
	EBCMAC(116,325,013,053)		;	N	+  
	EBCMAC(117,326,001,041)		;	O	!  
;
	EBCMAC(120,327,006,046)		;	P	&  
	EBCMAC(121,330,074,134)		;	Q	\  
	EBCMAC(122,331,074,134)		;	R	\  
	EBCMAC(123,342,074,134)		;	S	\  
	EBCMAC(124,343,074,134)		;	T	\  
	EBCMAC(125,344,074,134)		;	U	\  
	EBCMAC(126,345,074,134)		;	V	\  
	EBCMAC(127,346,074,134)		;	W	\  
;
	EBCMAC(130,347,074,134)		;	X	\  
	EBCMAC(131,350,074,134)		;	Y	\  
	EBCMAC(132,351,075,135)		;	Z	]  
	EBCMAC(133,112,004,044)		;	[	$  
	EBCMAC(134,340,012,052)		;	\	*  
	EBCMAC(135,132,011,051)		;	]	)  
	EBCMAC(136,137,033,073)		;	^	;  
	EBCMAC(137,155,076,136)		;	_	^  
;
	EBCMAC(140,171,015,055)		;	`	-  
	EBCMAC(141,201,017,057)		;	A	/  
	EBCMAC(142,202,074,134)		;	B	\  
	EBCMAC(143,203,074,134)		;	C	\  
	EBCMAC(144,204,074,134)		;	D	\  
	EBCMAC(145,205,074,134)		;	E	\  
	EBCMAC(146,206,074,134)		;	F	\  
	EBCMAC(147,207,074,134)		;	G	\  
;
	EBCMAC(150,210,074,134)		;	H	\  
	EBCMAC(151,211,074,134)		;	I	\  
	EBCMAC(152,221,074,174)		;	J	???
	EBCMAC(153,222,014,054)		;	K	,  
	EBCMAC(154,223,005,045)		;	L	%  
	EBCMAC(155,224,077,137)		;	M	_  
	EBCMAC(156,225,036,076)		;	N	>  
	EBCMAC(157,226,037,077)		;	O	?  
;
	EBCMAC(160,227,074,134)		;	P	\  
	EBCMAC(161,230,074,134)		;	Q	\  
	EBCMAC(162,231,074,134)		;	R	\  
	EBCMAC(163,242,074,134)		;	S	\  
	EBCMAC(164,243,074,134)		;	T	\  
	EBCMAC(165,244,074,134)		;	U	\  
	EBCMAC(166,245,074,134)		;	V	\  
	EBCMAC(167,246,074,134)		;	W	\  
;
	EBCMAC(170,247,074,134)		;	X	\  
	EBCMAC(171,250,074,140)		;	Y	???
	EBCMAC(172,251,032,072)		;	Z	:  
	EBCMAC(173,300,003,043)		;	???	#  
	EBCMAC(174,152,040,100)		;	???	@  
	EBCMAC(175,320,007,047)		;	???	'  
	EBCMAC(176,241,035,075)		;	???	=  
	EBCMAC(177,007,002,042)		;	DEL	"  
;
	EBCMAC(200,000,074,134)		;		\  
	EBCMAC(201,000,001,141)		;		A  
	EBCMAC(202,000,002,142)		;		B  
	EBCMAC(203,000,003,143)		;		C  
	EBCMAC(204,000,004,144)		;		D  
	EBCMAC(205,000,005,145)		;		E  
	EBCMAC(206,000,006,146)		;		F  
	EBCMAC(207,000,007,147)		;		G  
;
	EBCMAC(210,000,010,150)		;		H  
	EBCMAC(211,000,011,151)		;		I  
	EBCMAC(212,000,074,134)		;		\  
	EBCMAC(213,000,074,134)		;		\  
	EBCMAC(214,000,074,134)		;		\  
	EBCMAC(215,000,074,134)		;		\  
	EBCMAC(216,000,074,134)		;		\  
	EBCMAC(217,000,074,134)		;		\  
;
	EBCMAC(220,000,074,134)		;		\  
	EBCMAC(221,000,012,152)		;		J  
	EBCMAC(222,000,013,153)		;		K  
	EBCMAC(223,000,014,154)		;		L  
	EBCMAC(224,000,015,155)		;		M  
	EBCMAC(225,000,016,156)		;		N  
	EBCMAC(226,000,017,157)		;		O  
	EBCMAC(227,000,020,160)		;		P  
;
	EBCMAC(230,000,021,161)		;		Q  
	EBCMAC(231,000,022,162)		;		R  
	EBCMAC(232,000,074,134)		;		\  
	EBCMAC(233,000,074,134)		;		\  
	EBCMAC(234,000,074,134)		;		\  
	EBCMAC(235,000,074,134)		;		\  
	EBCMAC(236,000,074,134)		;		\  
	EBCMAC(237,000,074,134)		;		\  
;
	EBCMAC(240,000,074,134)		;		\  
	EBCMAC(241,000,074,176)		;		???
	EBCMAC(242,000,023,163)		;		S  
	EBCMAC(243,000,024,164)		;		T  
	EBCMAC(244,000,025,165)		;		U  
	EBCMAC(245,000,026,166)		;		V  
	EBCMAC(246,000,027,167)		;		W  
	EBCMAC(247,000,030,170)		;		S  
;
	EBCMAC(250,000,031,171)		;		Y  
	EBCMAC(251,000,032,172)		;		Z  
	EBCMAC(252,000,074,134)		;		\  
	EBCMAC(253,000,074,134)		;		\  
	EBCMAC(254,000,074,134)		;		\  
	EBCMAC(255,000,074,134)		;		\  
	EBCMAC(256,000,074,134)		;		\  
	EBCMAC(257,000,074,134)		;		\  
;
	EBCMAC(260,000,074,134)		;		\  
	EBCMAC(261,000,074,134)		;		\  
	EBCMAC(262,000,074,134)		;		\  
	EBCMAC(263,000,074,134)		;		\  
	EBCMAC(264,000,074,134)		;		\  
	EBCMAC(265,000,074,134)		;		\  
	EBCMAC(266,000,074,134)		;		\  
	EBCMAC(267,000,074,134)		;		\  
;
	EBCMAC(270,000,074,134)		;		\  
	EBCMAC(271,000,074,134)		;		\  
	EBCMAC(272,000,074,134)		;		\  
	EBCMAC(273,000,074,134)		;		\  
	EBCMAC(274,000,074,134)		;		\  
	EBCMAC(275,000,074,134)		;		\  
	EBCMAC(276,000,074,134)		;		\  
	EBCMAC(277,000,074,134)		;		\  
;
	EBCMAC(300,000,074,173)		;		???
	EBCMAC(301,000,041,101)		;		A  
	EBCMAC(302,000,042,102)		;		B  
	EBCMAC(303,000,043,103)		;		C  
	EBCMAC(304,000,044,104)		;		D  
	EBCMAC(305,000,045,105)		;		E  
	EBCMAC(306,000,046,106)		;		F  
	EBCMAC(307,000,047,107)		;		G  
;
	EBCMAC(310,000,050,110)		;		H  
	EBCMAC(311,000,051,111)		;		I  
	EBCMAC(312,000,074,134)		;		\  
	EBCMAC(313,000,074,134)		;		\  
	EBCMAC(314,000,074,134)		;		\  
	EBCMAC(315,000,074,134)		;		\  
	EBCMAC(316,000,074,134)		;		\  
	EBCMAC(317,000,074,134)		;		\  
;
	EBCMAC(320,000,074,175)		;		???
	EBCMAC(321,000,052,112)		;		J  
	EBCMAC(322,000,053,113)		;		K  
	EBCMAC(323,000,054,114)		;		L  
	EBCMAC(324,000,055,115)		;		M  
	EBCMAC(325,000,056,116)		;		N  
	EBCMAC(326,000,057,117)		;		O  
	EBCMAC(327,000,060,120)		;		P  
;
	EBCMAC(330,000,061,121)		;		Q  
	EBCMAC(331,000,062,122)		;		R  
	EBCMAC(332,000,074,134)		;		\  
	EBCMAC(333,000,074,134)		;		\  
	EBCMAC(334,000,074,134)		;		\  
	EBCMAC(335,000,074,134)		;		\  
	EBCMAC(336,000,074,134)		;		\  
	EBCMAC(337,000,074,134)		;		\  
;
	EBCMAC(340,000,074,134)		;		\  
	EBCMAC(341,000,074,134)		;		\  
	EBCMAC(342,000,063,123)		;		S  
	EBCMAC(343,000,064,124)		;		T  
	EBCMAC(344,000,065,125)		;		U  
	EBCMAC(345,000,066,126)		;		V  
	EBCMAC(346,000,067,127)		;		W  
	EBCMAC(347,000,070,130)		;		X  
;
	EBCMAC(350,000,071,131)		;		Y  
	EBCMAC(351,000,072,132)		;		Z  
	EBCMAC(352,000,074,134)		;		\  
	EBCMAC(353,000,074,134)		;		\  
	EBCMAC(354,000,074,134)		;		\ 
	EBCMAC(355,000,074,134)		;		\ 
	EBCMAC(356,000,074,134)		;		\ 
	EBCMAC(357,000,074,134)		;		\ 
;
	EBCMAC(360,000,020,060)		;		0 
	EBCMAC(361,000,021,061)		;		1 
	EBCMAC(362,000,022,062)		;		2 
	EBCMAC(363,000,023,063)		;		3 
	EBCMAC(364,000,024,064)		;		4 
	EBCMAC(365,000,025,065)		;		5  
	EBCMAC(366,000,026,066)		;		6  
	EBCMAC(367,000,027,067)		;		7
;
	EBCMAC(370,000,030,070)		;		8  
	EBCMAC(371,000,031,071)		;		9  
	EBCMAC(372,000,074,134)		;		\  
	EBCMAC(373,000,074,134)		;		\  
	EBCMAC(374,000,074,134)		;		\  
	EBCMAC(375,000,074,134)		;		\  
	EBCMAC(376,000,074,134)		;		\  
	EBCMAC(377,000,074,134)		;		\  
>
	SUBTTL	COMPRESSED EBCDIC TO ASCII CONVERSION TABLE
	PAGE
;
; DEFINE TABLE VIA MACROS
;
	DEFINE EBCMAC(A1,A2,A3,A4)<
	TT=TT+1
	IFE TT-1,<A5==A4
		  A6==0
		  A7==0
		  A10==0
		  A11==0>
	IFE TT-2,<A6==A4>
	IFE TT-3,<A7==A4>
	IFE TT-4,<A10==A4>
	IFE TT-5,<A11==A4
		  TABMAC
		  TT==0>>
	DEFINE TABMAC<
	BYTE (7)A5,A6,A7,A10,A11>
	TT==0
;
; DEFINE LINKAGE INTO ALLPRT
;
	INTERN	EB%%AS
;
EB%%AS:	EBCTAB
	TABMAC				;FINISH TABLE
	SUBTTL	COMPRESSED ASCII/SIXBIT TO EBCDIC CONVERSION TABLE
	PAGE
;
; DEFINE TABLE VIA MACROS
;
	DEFINE EBCMAC(A1,A2,A3,A4)<
	IFL A1-200,<
	TT==TT+1
	IFE TT-1,<A5==A2
		  A6==0
		  A7==0
		  A10==0>
	IFE TT-2,<A6==A2>
	IFE TT-3,<A7==A2>
	IFE TT-4,<A10==A2
		  TABMAC
		  TT==0>>>
	DEFINE TABMAC,<
	BYTE (8)A5,A6,A7,A10>
	TT==0
;
; DEFINE LINKAGE INTO ALLPRT
;
	INTERN	AS%%EB,SI%%EB
;
AS%%EB:	EBCTAB
SI%%EB==AS%%EB+10
	END