.TITLE	EBCASC	EBCDIC ASCII CONVERSION TABLES
.IDENT	/V00.0A/
.SUBTITLE	TRANSLATION TABLES
;
;
;TRANSLATION TABLES.
;
;EBCDIC TO ASCII TRANSLATION TABLE.
;
EBCASCTBL::				;EBCDIC TO ASCII TRANSLATION TABLE.
	.BYTE	0,1,2,3,+63,9,+63,127	;NUL,SOH,STX,ETX,??,HT,??,DEL.
	.BYTE	+63,+63,+63,11,12,13,14,15	;??,??,??,VT,FF,CR,SO,SI.
	.BYTE	16,17,18,+63,+63,+63,8,+63	;DLE,DC1,DC2,??,??,??,??,BS,??.
	.BYTE	24,25,+63,+63,+63,+63,+63,+63	;CAN,EM,??,??,??,??,??,??.
	.BYTE	+63,+63,28,+63,+63,10,+63,27	;??,??,FS,??,??,LF,ETB,ESC.
	.BYTE	+63,+63,+63,+63,+63,5,6,7	;??,??,??,??,??,ENQ,ACK,BEL.
	.BYTE	+63,+63,22,+63,+63,30,+63,4	;??,??,SYN,??,??,RS,??,EOT.
	.BYTE	+63,+63,+63,+63,20,21,+63,26	;??,??,??,??,DC4,NAK,??,SUB.
	.BYTE	32,+63,+63,+63,+63,+63,+63,+63	;SP,??,??,??,??,??,??,??.
	.BYTE	+63,+63,+63,46,60,40,43,33	;??,??,??,.,<,(,+,!.
	.BYTE	38,+63,+63,+63,+63,+63,+63,+63	;&,??,??,??,??,??,??,??.
	.BYTE	+63,+63,33,36,42,41,59,94	;??,??,!,$,*,),;,^.
	.BYTE	45,47,+63,+63,+63,+63,+63,+63	;-,/,??,??,??,??,??,??.
	.BYTE	+63,+63,124,44,37,95,62,63 ;??,??,|,,,%,_,>,?.
	.BYTE	+63,+63,+63,+63,+63,+63,+63,+63	;??,??,??,??,??,??,??,??.
	.BYTE	+63,96,58,35,64,39,61,34	;??,`,:,#,@,',=,".
	.BYTE	+63,97,98,99,100,101,102,103	;??,a,b,c,d,e,f,g.
	.BYTE	104,105,+63,123,+63,40,43,43	;h,i,??,[,??,(,+,+.
	.BYTE	+63,106,107,108,109,110,111,112	;??,j,k,l,m,n,o,p.
	.BYTE	113,114,+63,125,+63,41,+63,+63	;q,r,??,],??,),??,??.
	.BYTE	+63,126,115,116,117,118,119,120	;??,~,s,t,u,v,w,x.
	.BYTE	121,122,+63,+63,+63,91,+63,+63	;y,z,??,??,??,[,??,??.
	.REPT	8			;??'S.
	.BYTE	+63
	.ENDR
	.BYTE	+63,+63,+63,+63,+63,93,+63,+63	;??,??,??,??,??,],??,??.
	.BYTE	123,65,66,67,68,69,70,71	;{,A,B,C,D,E,F,G.
	.BYTE	72,73,+63,+63,+63,+63,+63,+63	;H,I,??,??,??,??,??,??.
	.BYTE	125,74,75,76,77,78,79,80	;},J,K,L,M,N,O,P.
	.BYTE	81,82,+63,+63,+63,+63,+63,+63	;Q,R,??,??,??,??,??,??.
	.BYTE	92,+63,83,84,85,86,87,88	;\,??,S,T,U,V,W,X.
	.BYTE	89,90,+63,+63,+63,+63,+63,+63	;Y,Z,??,??,??,??,??,??.
	.BYTE	48,49,50,51,52,53,54,55	;0,1,2,3,4,5,6,7.
	.BYTE	56,57,+63,+63,+63,+63,+63,+63	;8,9,??,??,??,??,??,??.
TMP=.-EBCASCTBL				;NOTE LENGTH OF TRANSLATION TABLE.
	.IF	NE	<TMP-256>	;MUST BE 256 BYTES.
	.ERROR	99	;TRANSLATION TABLE NOT CORRECT LENGTH.
	.ENDC
;
;
;ASCII TO EBCDIC TRANSLATION TABLE.
;
ASCEBCTBL::				;ASCII TO EBCDIC TRANSLATION TABLE.
	.BYTE	0,1,2,3,55,45,46,47	;NUL,SOH,STX,ETX,EOT,ENQ,ACK,BEL.
	.BYTE	22,5,37,11,12,13,14,15	;BS,HT,LF,VT,FF,FF,CR,SO,SI.
	.BYTE	16,17,18,+111,60,61,50,38	;DLE,DC1,DC2,??,DC4,NAK,SYN,ETB.
	.BYTE	24,25,63,39,34,+111,53,+111 ;CAN,EM,SUB,ESC,FS,??,RS,??.
	.BYTE	64,90,127,123,91,108,80,125	;SP,!,",#,$,%,&,'.
	.BYTE	77,93,92,78,107,96,75,97	;(,),*,+,,,-,.,/.
	.BYTE	240,241,242,243,244,245,246,247	;0,1,2,3,4,5,6,7.
	.BYTE	248,249,122,94,76,126,110,111	;8,9,:,;,<,=,>,?.
	.BYTE	124,193,194,195,196,197,198,199	;@,A,B,C,D,E,F,G.
	.BYTE	200,201,209,210,211,212,213,214	;H,I,J,K,L,M,N,O.
	.BYTE	215,216,217,226,227,228,229,230	;P,Q,R,S,T,U,V,W.
	.BYTE	231,232,233,173,224,189,95,109	;X,Y,Z,[,\],^,_.
	.BYTE	121,129,130,131,132,133,134,135	;`,a,b,c,d,e,f,g.
	.BYTE	136,137,145,146,147,148,149,150	;h,i,j,k,l,m,n,o.
	.BYTE	151,152,153,162,163,164,165,166	;p,q,r,s,t,u,v,w.
	.BYTE	167,168,169,139,106,155,161,7	;x,y,z,{,|,},~.DEL.
	.REPT	128			;REST IS NOT ASCII.
	.BYTE	+111
	.ENDR
TMP=.-ASCEBCTBL				;NOTE LENGTH OF TABLE.
	.IF	NE	<TMP-256>	;MUST BE 256 BYTES.
	.ERROR	99	;TRANSLATION TABLE LENGTH INCORRECT.
	.ENDC
	.END