/MI8-EE (Typeset)
/THIS READS FROM HSR IN FUNKY FORMAT
	FIELD	0
	*7756
SUBR,	START+1		/ ENTRY POINT FOR SUBR
AGAIN,	RFC 		/ FETCH NEXT CHARACTER
	RSF 		/ WAIT FOR IT
	JMP .-1
	CLL RTL 	/ SHIFT AC UP
	CLL RTL 
	RRB 		/ OR IN NEXT CHARACTER
	SNL 		/ DONE?
	JMP AGAIN	/ NO, MERGE IN NEXT CHAR
	JMP I SUBR	/ YES, RETURN
START,	JMS SUBR	/ GET A WORD
	DCA LOADP	/ STORE NEXT WORD
	JMS SUBR	/ GET ANOTHER WORD
/ FALL THROUGH ONTO LOADED WORD
LOADP,	7777		/ DATA GETS STORED HERE
	7777		/ (ALL DIODES REMOVED)
	7777
	7777
	7777
/ ADDRESS WRAPS HERE
	7777
	7777
	7777
	7777
	7777
	7777
	7777
	7777
	7777
	7777
	7777
	7777
	7777
	7777
$