Commit | Line | Data |
---|---|---|
7af5ad59 PH |
1 | / VERSION 5A 4-27-77 PT |
2 | / | |
3 | SECT IDINT | |
4 | JA #DINT | |
5 | DPCHK | |
6 | TEXT +DINT + | |
7 | DINTXR, SETX XRDINT | |
8 | SETB BPDINT | |
9 | BPDINT, F 0.0 | |
10 | F 0.0 | |
11 | XRDINT, 0;73;1 | |
12 | F 0.0 | |
13 | ORG 10*3+BPDINT | |
14 | FNOP | |
15 | JA DINTXR | |
16 | 0 | |
17 | #GOBAK, JA . | |
18 | BASE 0 | |
19 | #DINT, STARTD | |
20 | SETX XRDINT | |
21 | FLDA 10*3 | |
22 | FSTA #GOBAK,0 | |
23 | FLDA% 0,2 | |
24 | SETB BPDINT | |
25 | BASE BPDINT | |
26 | FSTA BPDINT | |
27 | STARTE | |
28 | FLDA% BPDINT | |
29 | JLT NEGFIX /NEGATIVE ARG | |
30 | ALN 1 /FIX POSITIVE ARG | |
31 | FNORM | |
32 | JA #GOBAK /RETURN | |
33 | NEGFIX, FNEG /FIRST MAKE POSITIVE | |
34 | ALN 1 /THEN FIX | |
35 | FNORM | |
36 | FNEG /THEN RE-NEGATE | |
37 | JA #GOBAK | |
38 | END | |
39 | \f |