Google
 

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