*1000

START,	CLA
	TAD M100
	DCA BLKCNT
	TDC	/CR-LF
	4015
	12
	DCA STRTAD

BLKLOP,	TDC	/:
	72
	CLA
	DCA CHKSUM
	TAD N20
	JMS TYPHEX

	TAD STRTAD
	RTR
	RTR
	RTR
	RTR
	AND N3
	JMS TYPHEX

	TAD STRTAD
	AND N377
	JMS TYPHEX


	TAD STRTAD
	TAD N20
	DCA STRTAD

	JMS TYPHEX

	TAD M20
	DCA COUNT
HAULOP,	JMS FRED
	ISZ COUNT
	JMP HAULOP

	TAD CHKSUM
	CIA
	JMS TYPHEX

	TDC	/CR-LF
	4015
	12

	ISZ BLKCNT
	JMP BLKLOP

	TDC
	4072
	4060
	4060
	4060
	4060
	4060
	4060
	4060
	4061
	4015
	12

	RTCHAR
	CHECK
	0
	JMP .-3
	TYDER




FRED,	0
	JMS HEXBIN
	JMS TYPHEX
	JMP I FRED



HALFHX,	0
	JMS GETCHR
	CHBLOK
	101
	6
	JMP LETTER
	CHBLOK
	60
	12
	JMP NUMBER
	TYDER

LETTER,	TAD M7
NUMBER,	TAD M60
	JMP I HALFHX




HEXBIN,	0
	JMS HALFHX
	MQL
	JMS HALFHX
	SWP
	RTL CLL
	RTL
	MQA
	JMP I HEXBIN



GETCHR,	0
	RCHAR
	CHECK
	12
	JMP GETCHR+1
	CHECK
	15
	JMP GETCHR+1
	JMP I GETCHR


TYPHEX,	0
	DCA TEM
	TAD TEM
	TAD CHKSUM
	DCA CHKSUM
	TAD TEM
	RTR
	RTR
	JMS TYPHHX
	TAD TEM
	JMS TYPHHX
	JMP I TYPHEX



TYPHHX,	0
	AND N17
	TAD N60
	CHBLOK
	60
	12
	SKP
	TAD N7
	TCHAR
	CLA
	JMP I TYPHHX

*100

M60,	-60
N17,	17
M7,	-7
N7,	7
M100,	-100
N20,	20
N3,	3
N377,	377
M20,	-20
N60,	60
TEM,	0
COUNT,	0
CHKSUM,	0
STRTAD,	0
BLKCNT,	0



$$$$$$$$$$$$$$$$$$$$$$$$$