/028 DEVICE INTERRUPT HANDLER
/
/CALL	:JMP BUFOUT	/DEVICE INTERRUPT DETECTED!
/	ROUTINE RETURNS TO INTERRUPT RESTORE "EXIT"
/
BUFOUT,	CLA
	6042		/CLEAR DEVICE FLAG
	TAD BUFIPT
	CIA
	TAA BUFOPT	/INPTR = OUTPTR ?
	SZA CLA
	JMP BUFGET	/NO,GET CHAR AND PRINT
	TAD BUFIBO	/YES,INPTR BEHIND OUTPTR?
	SZA CLA
	JMP BUFGET	/YES,GET AND PRINT
	DCA BUFBUS	/NO,PRINTER READY
	JMP EXIT
/
BUFGET,	TAD I BUFOPT	/GET CHAR
	ISZ BUFOPT
	6044		/PRIT CHAR
	CLA
	TAD BUFOPT
	TAD BUFBND	/END OF BUFFER?
	SZA CLA
	JMP EXIT	/NO,END F ROUTINE
	TAD BUFADR	/YES,POINTER TO HEAD
	DCA BUFOPT
	DCA BUFIBO	/RESET INPTR BEEIND OUTPTR
	JMP EXIT	/END OF HANDLING
/
/GENERAL INTERRUPT RETURN ROUTINE
/
EXIT,	CLA CLL
/	TAD LINK
/	RAL		/RESTORE LINK
/	TAD ACCU	/RESTORE ACCU
/	ION		/INTERRUPT ON
/	JMP I 0
/VARIABLES
BUFTMP,	0
BUFIBO,	0
BUFIPT,	0
BUFOPT,	0
BUFBUS,	0
BUFFND,	-BUFEND
BUFADR,	BUFFER
BUFFER,	0
/
*BUFFER+200
BUFEND,0