| 1 | SECT CHKEOF\r |
| 2 | /CHECKS END OF FILE CONDITION.\r |
| 3 | /ZEROS PASSED VARIABLE + PASSES ITS ADDRESS TO #EOFSW\r |
| 4 | /FRTS DOES REST\r |
| 5 | EXTERN #EOFSW\r |
| 6 | BASE CHKBAS\r |
| 7 | JA CODE\r |
| 8 | NAME, TEXT +CHKEOF+\r |
| 9 | CHKBAS, F 0.\r |
| 10 | CHKXR, F 0.\r |
| 11 | BASE 0\r |
| 12 | CODE, STARTD\r |
| 13 | FLDA 30\r |
| 14 | FSTA CHKRTN /RETURN ADDR\r |
| 15 | FLDA 0 /GET PTR TO VARIABLE LIST\r |
| 16 | BASE CHKBAS\r |
| 17 | SETB CHKBAS\r |
| 18 | SETX CHKXR\r |
| 19 | FSTA CHKBAS\r |
| 20 | LDX 1,1\r |
| 21 | FLDA% CHKBAS,1 /HERES PTR TO VAR ADDR\r |
| 22 | FSTA CHKBAS\r |
| 23 | JA PART2\r |
| 24 | ORG 10*3+CHKBAS\r |
| 25 | FNOP\r |
| 26 | JA NAME+3\r |
| 27 | PART2, FLDA CHKBAS\r |
| 28 | FSTA #EOFSW /PASS ADDR TO SYS\r |
| 29 | STARTF\r |
| 30 | FCLA\r |
| 31 | FSTA% CHKBAS /ZERO VAR\r |
| 32 | CHKRTN, JA .\r |
| 33 | \1a\0\184& 3f67&5~i} >|{r\17@.z%r(/z@\ezy\e\12|5v$`/%X.xf\16 5b\ew)XxipvruX\1exp\16wt\19@azsf\1e|rY\0$b(qy\ 1Hop\0\1e)+&()&'(&&'&%&&5h/on9dri5@/[5"\10`n4\10/^4&r\10\14S4" nyml)kj9k7<$[\ 1\0\0\r$P\ 1j\0\3\ 4@ |
| 34 | 7LW:LqWD:QD\12\0\f\ 1]=P|OE\0\1d\18\1c |