/MI8-EL (CAPS-8, CASSETTE)
/USES BSW, ROTATES BOTH WAYS!
KSDR=6701		/ SKIP ON DATA FLAG
KSEN=6702		/ SKIP ON BOT/EOT/EOF OR ERROR
KSBF=6703		/ SKIP ON READY FLAG
KLSA=6704		/ LOAD COMMAND REGISTER
KGOA=6706		/ EXECUTE COMMAND REGISTER
	FIELD	0
	*4000
START,	TAD D04037	/ FORM 1ST COMMAND (7214)
	TAD D04006	/ HERE FOR THE SECOND (7264)
	KLSA		/ LOAD COMMAND REGISTER
	KGOA		/ DO IT
L04004,	KSBF		/ READY?
D04005,	JMP .-1		/ 5204, WAIT FOR IT
D04006,	CLA CMA CML RAL	/ 7264, NEW AC IGNORED BELOW
	KSEN		/ END/ERROR?
	SKP CLA 	/ NO, PROCEED
	DCA .		/ YES. SHOULD THIS BE JMP .?
	DCA I P04036	/ ZERO THE WORD
	TAD D04005	/ GET 5204
	KLSA		/ LOAD COMMAND REGISTER
AGAIN,	KGOA		/ DO IT
	KSDR		/ DATA READY?
	JMP .-1		/ WAIT FOR IT
	BSW 
	SZL 
	TAD I P04036	/ GET WORD
	CML RTL RTR	/ 7036 WTF?
	DCA I P04036	/ STORE A WORD
	SNL 
	ISZ P04036	/ BUMP POINTER
	ISZ D04035	/ BUMP COUNT
	JMP AGAIN	/ GO AGAIN
	CLA CLL CMA RTL / GET 7775
	BSW 		/ GET 7577
	DCA D04035	/ STORE NEW COUNT
	JMP START+1	/ DO ANOTHER BLOCK
D04035,	7737		/ COUNT OF WORDS
P04036,	3557		/ STORE POINTER
D04037,	7730
$