Commit | Line | Data |
---|---|---|
1 | / | |
2 | / VERSION 5A 4/26/77 MH | |
3 | / | |
4 | SECT #RFCV /READ FORMATTED COMPLEX VARIABLE | |
5 | ENTRY #WFCV | |
6 | EXTERN #RFSV | |
7 | EXTERN #WFSV | |
8 | JA START | |
9 | DPCHK | |
10 | TEXT "#CIO " | |
11 | RETN, FNOP | |
12 | FNOP | |
13 | SETB BP | |
14 | JA .+3 | |
15 | BP, 0;0;0 | |
16 | CVAL, 0;0;0;0;0;0 | |
17 | ORG BP+30 | |
18 | 0;JA RETN | |
19 | 0 | |
20 | GOBAK, JA . | |
21 | START, BASE 0 | |
22 | STARTD | |
23 | 0210 | |
24 | FSTA GOBAK,0 | |
25 | STARTF | |
26 | SETB BP | |
27 | BASE BP | |
28 | JSR #RFSV | |
29 | FSTA CVAL | |
30 | JSR #RFSV | |
31 | FSTA CVAL+3 | |
32 | STARTE | |
33 | FLDA CVAL | |
34 | JA GOBAK | |
35 | BASE 0 | |
36 | #WFCV, FSTA CVAL,0 | |
37 | STARTD | |
38 | 0210 | |
39 | FSTA GOBAK,0 | |
40 | SETB BP | |
41 | BASE BP | |
42 | STARTF | |
43 | FLDA CVAL | |
44 | JSR #WFSV | |
45 | FLDA CVAL+3 | |
46 | JSR #WFSV | |
47 | JA GOBAK | |
48 | END | |
49 | \f |