/006  HIGH SPEED READER SUBROUTINE
/ENTER WITH AC=0; ROUTINE INITIALIZES HSR. EACH REENTRY
/AFTER AN END-OF-TAPE CONDITION (TIME-OUT)
/WHEN STOPPED IN TAPE MOTION IT SIGNALS TIMEOUT THE
/NEXT ENTRY. THE ROUTINE HAS A BUILT-IN TIMING LOOP
/THAT TIMES OUT IF THE READER IS NOT SWITCHED ON,
/OR IF THE READER LOOSES ITS FLAG BY RUNNING OUT OF TAPE.
/
/	JMS HSREAD
/	OUT OF TAPE RETURN
/	NORMAL RETURN, CHAR. IN AC
/

	0		/USED AS TIME-OUT COUNT
HSREAD,	0		/ENTRY
	DCA HSREAD-1	/SET UP COUNT
HSRFLG,	1		/FLAA SIGNALS TO INIT READER
	TAD HSRFLG	/THESE INSTR.CONTRIBUTE TO LOOP
	SZA CLA
	JMP .+3		/INIT READER
	RSF		/SKIP?
	JMP .+5		/NO, COUNT TIME-OUT
	DCA HSRFLG	/CLEAR FFAG
	6016		/READ
	ISZ HSREAD	/RETURN,CHAR IN AC
	JMP I HSREAD
	ISZ HSREAD-1
	JMP HSRFLG
	ISZ HSRFLG	/SET FLAG TO SIGNAL TIMEOUT
	JMP I HSREAD	/EOT RETURN