Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-10 - 43,50517/putera.mac
There are 7 other files named putera.mac in the archive. Click here to see a list.
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