File: CHKEOF.RA of Tape: Sources/Fortran/os8-f4-3

(Source file text) 

---

/CALL CHKEOF(R) CHECK END-OF-FILE
/
/
/ VERSION 40A 23-MAY-80 WVDM
/
/
/CHECKS END OF FILE CONDITION.
/ZEROS PASSED VARIABLE + PASSES ITS ADDRESS TO #EOFSW
/FRTS DOES REST

	SECT	CHKEOF
	EXTERN	#EOFSW
	BASE	CHKBAS
	JA	CODE
NAME,	TEXT	+CHKEOF+
CHKBAS,	F 0.
CHKXR,	F 0.
	BASE	0
CODE,	STARTD
	FLDA	30
	FSTA	CHKRTN		/RETURN ADDR
	FLDA	0		/GET PTR TO VARIABLE LIST
	BASE	CHKBAS
	SETB	CHKBAS
	SETX	CHKXR
	FSTA	CHKBAS
	LDX	1,1
	FLDA%	CHKBAS,1	/HERES PTR TO VAR ADDR
	FSTA	CHKBAS
	JA	PART2
	ORG	10*3+CHKBAS
	FNOP
	JA	NAME+3
PART2,	FLDA	CHKBAS
	FSTA	#EOFSW		/PASS ADDR TO SYS
	STARTF
	FCLA
	FSTA%	CHKBAS		/ZERO VAR
CHKRTN,	JA	.

---