X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Ff4%2FFRTSRC%2Fchkeof.ra;fp=sw%2Ff4%2FFRTSRC%2Fchkeof.ra;h=18416a076b626bcf296e53317a5b718f5bc2c5d7;hb=7af5ad59491ddf2066641aef1e0025a337c0f247;hp=0000000000000000000000000000000000000000;hpb=919757fd611e482003ce51f366f6783cab73dea3;p=pdp8.git

diff --git a/sw/f4/FRTSRC/chkeof.ra b/sw/f4/FRTSRC/chkeof.ra
new file mode 100644
index 0000000..18416a0
--- /dev/null
+++ b/sw/f4/FRTSRC/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	.