/MI8-EA (Paper Tape)
	FIELD	0
	*7737
START,	6014			/ FETCH FROM HSR
L07740,	AND I P07776		/ DELAY
	CLA CLL CML RTL 	/ GET 0002
	TAD START		/ MAKE RRB
	ISZ P07776		/ DELAY OVER?
	JMP L07740		/ NO, KEEP WASTING TIME
D07745,	6011			/ YES.  READER READY?
	JMP L07756		/ NO, GO TO LSR RIM
	DCA D07761		/ YES, STORE RRB OVER KRB
	TAD D07761		/ GET IT BACK
	DCA D07771		/ STORE OVER KRS
	TAD D07745		/ GET A RSF
	DCA L07757		/ STORE OVER KSF
	TAD D07745		/ GET ANOTHER
	DCA L07767		/ STORE OVER KSF
/ THIS KCC IS MOSTLY HARMLESS IF WE'RE READING HSR,
/ BUT IS IMPORTANT IF READING FROM THE LSR.  (THE
/ LSR WILL ADVANCE WHEN READING HSR, THOUGH.)
L07756,	KCC			/ FETCH FROM LSR
/ THIS IS THE RIM LOADER.  IT STARTS OUT LOW SPEED,
/ BUT THE CODE ABOVE MAY PATCH IT FOR THE HSR.
L07757,	KSF 			/ SKIP IF READY
	JMP .-1
D07761,	KRB			/ GET HIGH 6 BITS
	CLL RTL 		/ SHIFT UP
	RTL 
	SPA 			/ CHECK FOR LEADER
	JMP L07774		/ IGNORE LEADER
	RTL 			/ FINISH SHIFT UP
L07767,	KSF 			/ WAIT FOR LOW 6 BITS
	JMP .-1
D07771,	KRS			/ OR THEM IN
	SNL 			/ LOCATION OR DATA?
	DCA I P07776		/ DATA
L07774,	DCA P07776		/ LOCATION
	JMP L07756		/ GO LOOK FOR MORE
P07776,	0			/ SAVED LOCATION (OR 0)
$