TITLE	PUTERA FOR RPGII 1
SUBTTL	ENTER DIAGNOSTIC INTO ERROR FILE	BOB CURRIER

TWOSEG
RELOC 400000

;ENTER VIA PUSHJ WITH DIAGNOSTIC IN AC "DW"

	ENTRY	PUTERA

	EXTERN	ERABHO, ERADEV, DEVDED

PUTERA:	SOSG	ERABHO+2		; ANY ROOM?
	JRST	PUTER2			; APPARENTLY NOT

PUTER1:	IDPB	DW,ERABHO+1		; YES - STORE WORD
	POPJ	PP,			; AND EXIT

PUTER2:	OUT	ERA,			; OUTPUT A BUFFERS WORTH
	JRST	PUTER1			; ALL OK -

	MOVEI	CH,ERADEV		; WE BOMBED (IN NEW HAVEN?)
	JRST	DEVDED			; GO TO THE SUBROUTINES GRAVEYARD

	END