Add README.md
[pdp8.git] / sw / f4 / FRTSRC / chkeof.ra
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 .