Google
 

Trailing-Edge - PDP-10 Archives - BB-H506E-SM - 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 V12C
SUBTTL	READ IN AN ERAFIL WORD		AL BLACKINGTON/CAM



	SEARCH	COPYRT
	SALL

;COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1974, 1985
;ALL RIGHTS RESERVED.
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH LICENSE.

	SEARCH	P
	%%P==:%%P

;EDITS
;V10*****************
;NAME	DATE		COMMENTS
;********************


TWOSEG
	.COPYRIGHT		;Put COPYRIGHT statement in .REL file.

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