sw/rescue/lab8e_goettingen/disk1_im6100/rka/paroff/chkeof.ra

   1         SECT    CHKEOF
   2 /CHECKS END OF FILE CONDITION.
   3 /ZEROS PASSED VARIABLE + PASSES ITS ADDRESS TO #EOFSW
   4 /FRTS DOES REST
   5         EXTERN  #EOFSW
   6         BASE    CHKBAS
   7         JA      CODE
   8 NAME,   TEXT    +CHKEOF+
   9 CHKBAS, F 0.
  10 CHKXR,  F 0.
  11         BASE    0
  12 CODE,   STARTD
  13         FLDA    30
  14         FSTA    CHKRTN          /RETURN ADDR
  15         FLDA    0               /GET PTR TO VARIABLE LIST
  16         BASE    CHKBAS
  17         SETB    CHKBAS
  18         SETX    CHKXR
  19         FSTA    CHKBAS
  20         LDX     1,1
  21         FLDA%   CHKBAS,1                /HERES PTR TO VAR ADDR
  22         FSTA    CHKBAS
  23         JA      PART2
  24         ORG     10*3+CHKBAS
  25         FNOP
  26         JA      NAME+3
  27 PART2,  FLDA    CHKBAS
  28         FSTA    #EOFSW          /PASS ADDR TO SYS
  29         STARTF
  30         FCLA
  31         FSTA%   CHKBAS          /ZERO VAR
  32 CHKRTN, JA      .
  33 \1a