*1000

START,	TAD M100
	DCA BLKCNT
	LINE
	DCA STRTAD

BLKLOP,	TDC
	":
	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

	LINE

	ISZ BLKCNT
	JMP BLKLOP

	TDC
	":+4000
	"0+4000
	"0+4000
	"0+4000
	"0+4000
	"0+4000
	"0+4000
	"0+4000
	"1

	LINE
	MOSTGO




FRED,	0
	JMS HEXBIN
	JMS TYPHEX
	JMP I FRED



HALFHX,	0
	JMS GETCHR
	CHBLOK
	301
	5
	TAD M267
	CHBLOK
	260
	11
	TAD M260
	JMP I HALFHX


HEXBIN,	0
	JMS HALFHX
	MQL
	JMS HALFHX
	SWP
	RTL
	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 N260
	CHBLOK
	260
	12
	TCHAR
	TAD N21
	TCHAR
	CLA
	JMP I TYPHHX


M267,	-267
M260,	-260
N17,	17
N21,	21
M100,	-100
N20,	20
N3,	3
N377,	377
M20,	-20
N260,	260
TEM,	0
COUNT,	0
CHKSUM,	0
STRTAD,	0
BLKCNT,	0



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