| 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 . |