/027 INTERRUPT OUTPUT HANDLER
/WITH HEAD-TAIL COUPLED BUFFER
/
/INITIALIZE ONCE BUFIPT:=BUFOT:=BUFFER
/	BUFIBO:=0
/
/
/CHARACTER HANDLER
/
/CALL	:JMS BUFINP WITH CHAR IN AC
/	RETURN AC=0
/
/
BUFINP,	0
	DCA BUFTMP	/TEMP. STORAGE
	TAD BUFIBO	/INPTR BEHIND OUTPTR?
	SNA CLA
	JMP BUFPUT	/NO,STORE CHARACTER
	TAD BUFIPT	/YES
	CIA
	TAD  BUFOPT	/INPTR = OUTPRT ?
	SNA CLA
	JMP BUFINP+2	/YES, WAIT FOR PLACE TO STORE
BUFPUT,	TAD BUFTMP	/NO, GET CHAR
	DCA I BUFIPT
	ISZ BUFIPT
	TAD BUFBUS	/PRINTER BUSY?
	SNA CLA
	6046		/NO,INIT WITH AC=0
	IAC		/YES,SET PRINTER BUSY
	DCA BUFBUS
	TAD BUFIPT
	TAD BUFBND	/END OF BUFFER?
	SZA CLA
	JMP I BUFINP	/NO, EXIT
	TAD BUFADR	/YES, POINTER TO HEAD
	DCA BUFIPT
	IAC		/AND SET INPTR BEHIND OUTPTR
	DCA BUFIBO
	JMP   BUFINP	/EXIT