Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-153/getera.mac
There are 7 other files named getera.mac in the archive. Click here to see a list.
TITLE GETERA FOR RPGII A
SUBTTL READ IN AN ERAFIL WORD AL BLACKINGTON/CAM/BOB CURRIER
;TRANSLATED FROM THE COBOL AUGUST 8,1975 00:46:03 BOB CURRIER
TWOSEG
RELOC 400000
ENTRY GETERA ; GET A WORD
ENTRY SETERA ; SET UP ERAFIL FOR INPUT
EXTERNAL DEVDED,KILL,SIXOUT
GETERA: SOSG ERABHI+2
JRST GETER2
GETER1: ILDB DW,ERABHI+1
POPJ PP,
GETER2: AOS ERABLK
IN ERA,
JRST GETER1
MOVEI CH,ERADEV
JRST DEVDED
SETERA: MOVE TA,ERABUF
MOVEM TA,.JBFF## ; SET JOBFF TO A BUFFER AREA
INBUF ERA,2 ; GRAB TWO BUFFERS
SETZM ERABLK ;CLEAR BLOCK COUNTER
MOVE TE,ERAHDR ; SET UP "LOOKUP" PARAMETERS
MOVE TD,ERAHDR+1
SETZB TC,TB
LOOKUP ERA,TE ; FIND THE FILE
JRST KNOERA ; NOT THERE - SCREAM
POPJ PP,
;CANNOT FIND ERAFIL
KNOERA: OUTSTR [ASCIZ /ERAFIL not found
/]
JRST KILL
EXTERNAL ERABHI,ERABLK,ERADEV,ERAHDR,ERABUF
END