/025 SUBROUTINE TO TRANSLATE TELEX CHAR TO ASCII
/
/CALL:	JMS TLXAS1
/	RETURN IF SHIFT CHARACTER
/	RETURN
/
TLXAS1,	0
	AND TLX37
	DCA TLXTMP	/STORE
	TAD TLXTMP
	TAD TLXM37
	SNA		/LETTER SHIFT?
	JMP TLXLSH	/YES, SET SHIFT
	TAD C4
	SNA CLA		/FIGURESHIFT?
	JMP TLXFSH	/YES, CLEAR SHIFT
	TAD TLXTMP
	TAD TLXSH
	TAD TLXLST
	DCA TLXTMP
	TAD I TLXTM;P
	ISZ TLXAS1
	JMP I TLXAS1
/
TLXLSH,	TAD TLX40
TLXFSH,	DCA TLXSH
	JMP I TLXAS1
/
TLXLST,	.+1
	0000	/BLANK
	"5
	0215	/CR
	"9
	0240	/SPACE
	0000
	",
	".

	0212	/LF
	")
	"4
	0000
	"8
	"0
	":
	"=	
	"3
	"+
	0205	/WRU
	"?
	"'
	"6
	0000
	"/
	"-
	"2
	0207	/BELL
TLXSH,	 0
	"7
	"1
	"(
TLX40,	 40
	0000
	"T
	0215	/CR
	"O
	"	/SPACE
	"H
	"N
	"M
	0212	/LF
	"L
	"R
	"G
	"I
	"P
	"C
		V
	"E
	"Z
	"D
	"B
	"S
	"Y
	"F
	"X
	"A
	"W
	"J
TLX37,	 37
	"U
	"Q
	"K
TLXM37,	-37
/VARIABLES
/
TLXTMP,	0
/
/GENERAL CONSTANTS
/
C4,	4