Commit | Line | Data |
---|---|---|
81e70d48 PH |
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 |