Commit | Line | Data |
---|---|---|
7af5ad59 PH |
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 . |