sw/os8/v3d/sources/fortran/dectapes/dectape2/chkeof.ra

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