software: Added more and more

[pdp8.git] / sw / f4 / FRTSRC / chkeof.ra

diff --git a/sw/f4/FRTSRC/chkeof.ra b/sw/f4/FRTSRC/chkeof.ra
new file mode 100644 (file)
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      .