*1000
	CLA
	HLT
	DCA I (5000)
LOOP,	JMS I (204)
	4200	/WRITE 1 BLOCK
	5000	/MA
BL,	0	/BLOCK
	HLT	/EROR
	TAD BL
	IAC
	DCA BL
	IAC
	TAD I (5000)
	DCA I (5000)
	TAD BL
	TAD TEST
	SZA CLA
	JMP LOOP
	JMP I (7605)
TEST,	-6000