projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 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 . |