/
/
/
/
/
/
/
/
/
/
/COPYRIGHT  (C)		1978,1979 BY DIGITAL EQUIPMENT CORPORATION
/
/
/
/
/
/
/
/
/
/
/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
/CORPORATION.  DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
/
/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
/
/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
/DIGITAL.
/
/
/
/
/
/
/
/
/
/VERSION=1
/
	.TITLE FETCH-RECORD FETCHING ROUTINE
/THIS SERVICE ROUTINE FETCHES THE RECORD PASSED IN CQUES BY THE
/CALLER IF AC IS ZERO OR GET THE NEXT RECORD IF AC IS NON-ZERO

	.ENTRY FET
	.FSECT FETCH
	.EXTERNAL GETR,CQUES,LOGNUM,PAGEFG,TABLE1,IFLAG,EREC
	.EXTERNAL OVRPTR,RECLOC,UNP1,TOVER,TQUES,DIRLOC

/CALLING SEQUENCE:
/
/	CDF	.FLD
/	CIF	FET
/	JMS I	SUB
/	.
/	.
/
/	.
/SUB,FET
/
/WHERE:
/	AC-0	BRANCH TO RECORD
/	AC-1	GET NEXT RECORD IN SEQUENTIAL FASHION
/


FET,	0
	DCA	FET1
			/SAVE ARGUMENT
	TAD	F1
	RDF
	DCA	FET20
			/SETUP FOR RETURN
	CDF	TABLE1
	TAD	FET1
	SZA CLA
			/CHECK FOR NON-ZERO ARGUMENT
	JMP	FET3
			/YES. GET NEXT
	STA
	DCA I	F5
			/INITIALIZE PHASE TO START OF RECORDS
	TAD	F2
	DCA I	F6
			/INITIALIZE PHASE
	TAD	F15
	TAD	F16
	DCA I	F13
			/ENSURE THAT RECORD NOT FOUND WITHOUT TREC OVERLAY
	ISZ I	F7
			/SET THE BRANCH FLAG
FET3,	CDF	.FLD
	CIF	GETR
	JMS I	F4
			/OVERLAY RECORD INTO TOVER
	CDF	TABLE1
	CLA
	TAD I	F11
	TAD I	F12
	DCA	FET4
			/GET START OF OS/8 PACKED RECORD IN TOVER
	CDF	.FLD
	CIF	UNP1
	JMS I	F10
FET4,	TOVER-1
	TQUES-1
	50		/NO PASSES=40 (DECIMAL)
FET20,	0
	JMP I	FET

F1,	CDF CIF		/CDF-CIF LITERAL
F2,200		/1 PAGE LENGTH
F4,GETR		/LINK TO GETR ROUTINE
F5,LOGNUM
F6,PAGEFG
F7,IFLAG
FET1,0			/STORAGE FOR ARGUMENT
F10,UNP1
F11,OVRPTR
F12,RECLOC
F13,DIRLOC		/DIRECTORY POINTER
F15,EREC
F16,11