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