/RL3
	*1000
	CLA
	HLT
	DCA I (5000)
LOOP,	JMS I (204)
	200	/READ 1 BLOCK
BL,	0	/BLOCK
	5000	/MA
	HLT	/EROR
	TAD I (5000)
	CIA
	TAD BL
	SZA CLA
	HLT	/BAD COMPARE
	TAD BL
	IAC
	DCA BL
	TAD BL
	TAD TEST
	SZA CLA
	JMP LOOP
	JMP I (7605)
TEST,	-6000