File: CHKEOF.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1
/CALL CHKEOF(R) CHECK END-OF-FILE
/
/
/ VERSION 50A 23-MAY-80 WVDM
/
/
/CHECKS END OF FILE CONDITION.
/ZEROS PASSED VARIABLE + PASSES ITS ADDRESS TO #EOFSW
/FRTS DOES REST
SECT CHKEOF
EXTERN #EOFSW
BASE CHKBAS
00000 1030 JA CODE
00001 0013
00002 0310 NAME, TEXT +CHKEOF+
00003 1305
00004 1706
00005 0000 CHKBAS, F 0.
00006 0000
00007 0000
00010 0000 CHKXR, F 0.
00011 0000
00012 0000
BASE 0
00013 0006 CODE, STARTD
00014 0210 FLDA 30
00015 6400 FSTA CHKRTN /RETURN ADDR
00016 0046
00017 0200 FLDA 0 /GET PTR TO VARIABLE LIST
BASE CHKBAS
00020 1110 SETB CHKBAS
00021 0005
00022 1100 SETX CHKXR
00023 0010
00024 6200 FSTA CHKBAS
00025 0101 LDX 1,1
00026 0001
00027 0610 FLDA% CHKBAS,1 /HERES PTR TO VAR ADDR
00030 6200 FSTA CHKBAS
00031 1030 JA PART2
00032 0040
ORG 10*3+CHKBAS
00035 0040 FNOP
00036 1030 JA NAME+3
00037 0005
00040 0200 PART2, FLDA CHKBAS
00041 6400 FSTA #EOFSW /PASS ADDR TO SYS
00042 0000
00043 0005 STARTF
00044 0002 FCLA
00045 6600 FSTA% CHKBAS /ZERO VAR
00046 1030 CHKRTN, JA .
00047 0046
RALF V50A 8-APR-92 PAGE 1-1
NO ERRORS
8 SYMBOLS, NO ABS REFS
# C 00000 #EOFSW X 00000 #MAIN S 00000 CHKBAS 00005
CHKEOF S 00050 CHKRTN 00046 CHKXR 00010 CODE 00013
NAME 00002 PART2 00040