Trailing-Edge
-
PDP-10 Archives
-
BB-H506D-SM_1983
-
cobol/source/getera.mac
There are 7 other files named getera.mac in the archive. Click here to see a list.
TITLE GETERA FOR COBOL V12B
SUBTTL READ IN AN ERAFIL WORD AL BLACKINGTON/CAM
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1974, 1981 BY DIGITAL EQUIPMENT CORPORATION
SEARCH P
%%P==:%%P
;EDITS
;V10*****************
;NAME DATE COMMENTS
;********************
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 ;SET JOBFF TO A BUFFER AREA
MOVEM TA,.JBFF##
INBUF ERA,2 ;GRAB 2 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--CATASTROPHE
POPJ PP,
;CANNOT FIND ERAFIL
KNOERA: TTCALL 3,[ASCIZ "ERAFIL NOT FOUND
"]
JRST KILL
EXTERNAL ERABHI,ERABLK,ERADEV,ERAHDR,ERABUF
END