.TITLE	EBCDIC ASCII TRANSLATION
	.IDENT	/02/
;
;	EBCDIC TO ASCII TRANSLATION TABLE
;	ILLEGAL CHARACTERS REPLACED WITH @
;
ETOA: 	.BYTE	^X00,^X01,^X02,^X03
 	.BYTE	^X9C,^X09,^X86,^X7F
 	.BYTE	^X97,^X8D,^X8E,^X0B
 	.BYTE	^X0C,^X0D,^X0E,^X0F
 	.BYTE	^X10,^X11,^X12,^X13
 	.BYTE	^X9D,^X85,^X08,^X87
 	.BYTE	^X18,^X19,^X92,^X8F
 	.BYTE	^X1C,^X1D,^X1E,^X1F
 	.BYTE	^X80,^X81,^X82,^X83
 	.BYTE	^X84,^X0A,^X17,^X1B
 	.BYTE	^X88,^X89,^X8A,^X8B
 	.BYTE	^X8C,^X05,^X06,^X07
 	.BYTE	^X90,^X91,^X16,^X93
 	.BYTE	^X94,^X95,^X96,^X04
 	.BYTE	^X98,^X99,^X9A,^X9B
 	.BYTE	^X14,^X15,^X9E,^X1A
 	.BYTE	^X20,^XA0,^XA1,^XA2
 	.BYTE	^XA3,^XA4,^XA5,^XA6
 	.BYTE	^XA7,^XA8,^X5B,^X2E
 	.BYTE	^X3C,^X28,^X2B,^X21
 	.BYTE	^X26,^XA9,^XAA,^XAB
 	.BYTE	^XAC,^XAD,^XAE,^XAF
 	.BYTE	^XB0,^XB1,^X5D,^X24
 	.BYTE	^X2A,^X29,^X3B,^X5E
 	.BYTE	^X2D,^X2F,^XB2,^XB3
 	.BYTE	^XB4,^XB5,^XB6,^XB7
 	.BYTE	^XB8,^XB9,^X7C,^X2C
 	.BYTE	^X25,^X5F,^X3E,^X3F
 	.BYTE	^XBA,^XBB,^XBC,^XBD
 	.BYTE	^XBE,^XBF,^XC0,^XC1
 	.BYTE	^XC2,^X60,^X3A,^X23
 	.BYTE	^X40,^X27,^X3D,^X22
 	.BYTE	^XC3,^X61,^X62,^X63
 	.BYTE	^X64,^X65,^X66,^X67
 	.BYTE	^X68,^X69,^XC4,^XC5
 	.BYTE	^XC6,^XC7,^XC8,^XC9
 	.BYTE	^XCA,^X6A,^X6B,^X6C
 	.BYTE	^X6D,^X6E,^X6F,^X70
 	.BYTE	^X71,^X72,^XCB,^XCC
 	.BYTE	^XCD,^XCE,^XCF,^XD0
 	.BYTE	^XD1,^X7E,^X73,^X74
 	.BYTE	^X75,^X76,^X77,^X78
 	.BYTE	^X79,^X7A,^XD2,^XD3
 	.BYTE	^XD4,^XD5,^XD6,^XD7
 	.BYTE	^XD8,^XD9,^XDA,^XDB
 	.BYTE	^XDC,^XDD,^XDE,^XDF
 	.BYTE	^XE0,^XE1,^XE2,^XE3
 	.BYTE	^XE4,^XE5,^XE6,^XE7
 	.BYTE	^X7B,^X41,^X42,^X43
 	.BYTE	^X44,^X45,^X46,^X47
 	.BYTE	^X48,^X49,^XE8,^XE9
 	.BYTE	^XEA,^XEB,^XEC,^XED
 	.BYTE	^X7D,^X4A,^X4B,^X4C
 	.BYTE	^X4D,^X4E,^X4F,^X50
 	.BYTE	^X51,^X52,^XEE,^XEF
 	.BYTE	^XF0,^XF1,^XF2,^XF3
 	.BYTE	^X5C,^X9F,^X53,^X54
 	.BYTE	^X55,^X56,^X57,^X58
 	.BYTE	^X59,^X5A,^XF4,^XF5
 	.BYTE	^XF6,^XF7,^XF8,^XF9
 	.BYTE	^X30,^X31,^X32,^X33
 	.BYTE	^X34,^X35,^X36,^X37
 	.BYTE	^X38,^X39,^XFA,^XFB
 	.BYTE	^XFC,^XFD,^XFE,^XFF
ATOE: 	.BYTE	^X00,^X01,^X02,^X03
 	.BYTE	^X37,^X2D,^X2E,^X2F
 	.BYTE	^X16,^X05,^X25,^X0B
 	.BYTE	^X0C,^X0D,^X0E,^X0F
 	.BYTE	^X10,^X11,^X12,^X13
 	.BYTE	^X3C,^X3D,^X32,^X26
 	.BYTE	^X18,^X19,^X3F,^X27
 	.BYTE	^X1C,^X1D,^X1E,^X1F
 	.BYTE	^X40,^X4F,^X7F,^X7B
 	.BYTE	^X5B,^X6C,^X50,^X7D
 	.BYTE	^X4D,^X5D,^X5C,^X4E
 	.BYTE	^X6B,^X60,^X4B,^X61
 	.BYTE	^XF0,^XF1,^XF2,^XF3
 	.BYTE	^XF4,^XF5,^XF6,^XF7
 	.BYTE	^XF8,^XF9,^X7A,^X5E
 	.BYTE	^X4C,^X7E,^X6E,^X6F
 	.BYTE	^X7C,^XC1,^XC2,^XC3
 	.BYTE	^XC4,^XC5,^XC6,^XC7
 	.BYTE	^XC8,^XC9,^XD1,^XD2
 	.BYTE	^XD3,^XD4,^XD5,^XD6
 	.BYTE	^XD7,^XD8,^XD9,^XE2
 	.BYTE	^XE3,^XE4,^XE5,^XE6
 	.BYTE	^XE7,^XE8,^XE9,^X4A
 	.BYTE	^XE0,^X5A,^X5F,^X6D
 	.BYTE	^X79,^X81,^X82,^X83
 	.BYTE	^X84,^X85,^X86,^X87
 	.BYTE	^X88,^X89,^X91,^X92
 	.BYTE	^X93,^X94,^X95,^X96
 	.BYTE	^X97,^X98,^X99,^XA2
 	.BYTE	^XA3,^XA4,^XA5,^XA6
 	.BYTE	^XA7,^XA8,^XA9,^XC0
 	.BYTE	^X6A,^XD0,^XA1,^X07
 	.BYTE	^X20,^X21,^X22,^X23
 	.BYTE	^X24,^X15,^X06,^X17
 	.BYTE	^X28,^X29,^X2A,^X2B
 	.BYTE	^X2C,^X09,^X0A,^X1B
 	.BYTE	^X30,^X31,^X1A,^X33
 	.BYTE	^X34,^X35,^X36,^X08
 	.BYTE	^X38,^X39,^X3A,^X3B
 	.BYTE	^X04,^X14,^X3E,^XE1
 	.BYTE	^X41,^X42,^X43,^X44
 	.BYTE	^X45,^X46,^X47,^X48
 	.BYTE	^X49,^X51,^X52,^X53
 	.BYTE	^X54,^X55,^X56,^X57
 	.BYTE	^X58,^X59,^X62,^X63
 	.BYTE	^X64,^X65,^X66,^X67
 	.BYTE	^X68,^X69,^X70,^X71
 	.BYTE	^X72,^X73,^X74,^X75
 	.BYTE	^X76,^X77,^X78,^X80
 	.BYTE	^X8A,^X8B,^X8C,^X8D
 	.BYTE	^X8E,^X8F,^X90,^X9A
 	.BYTE	^X9B,^X9C,^X9D,^X9E
 	.BYTE	^X9F,^XA0,^XAA,^XAB
 	.BYTE	^XAC,^XAD,^XAE,^XAF
 	.BYTE	^XB0,^XB1,^XB2,^XB3
 	.BYTE	^XB4,^XB5,^XB6,^XB7
 	.BYTE	^XB8,^XB9,^XBA,^XBB
 	.BYTE	^XBC,^XBD,^XBE,^XBF
 	.BYTE	^XCA,^XCB,^XCC,^XCD
 	.BYTE	^XCE,^XCF,^XDA,^XDB
 	.BYTE	^XDC,^XDD,^XDE,^XDF
 	.BYTE	^XEA,^XEB,^XEC,^XED
 	.BYTE	^XEE,^XEF,^XFA,^XFB
 	.BYTE	^XFC,^XFD,^XFE,^XFF
	.TITLE	TRANSLATE 
TRANS::
	.ENTRY TRANSL,^M<R2,R3,R4,R5,R6> ;SAVE REGS USED BY CHAR INST.
	MOVL	8(AP),R6	;GET STRING DESCRIPTOR ADDRESS
EBCASC:	MOVTC	@4(AP),@4(R6),#^A/@/,ETOA,@4(AP),@4(R6)
	RET
	.END