X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Fos8%2Fv3d%2Fsources%2Ffortran%2Fall%2Fchkeof.ra;fp=sw%2Fos8%2Fv3d%2Fsources%2Ffortran%2Fall%2Fchkeof.ra;h=18416a076b626bcf296e53317a5b718f5bc2c5d7;hb=81e70d488b71bf995c459ca3a02c025993460ffa;hp=0000000000000000000000000000000000000000;hpb=07ec0278333ed187ac242dedcff13c56cf1b0b91;p=pdp8.git

diff --git a/sw/os8/v3d/sources/fortran/all/chkeof.ra b/sw/os8/v3d/sources/fortran/all/chkeof.ra
new file mode 100644
index 0000000..18416a0
--- /dev/null
+++ b/sw/os8/v3d/sources/fortran/all/chkeof.ra
@@ -0,0 +1,35 @@
+/
+/ VERSION 5A 4-26-77 MH
+/
+	SECT	CHKEOF
+/CHECKS END OF FILE CONDITION.
+/ZEROS PASSED VARIABLE + PASSES ITS ADDRESS TO #EOFSW
+/FRTS DOES REST
+	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	.