Commit | Line | Data |
---|---|---|
7af5ad59 PH |
1 | / |
2 | / VERSION 5A 4-27-77 PT | |
3 | / | |
4 | SECT IFIX | |
5 | ENTRY AINT | |
6 | ENTRY INT | |
7 | BASE 0 | |
8 | AINT, | |
9 | INT, FLDA 0 /ADDRESS OF CALL | |
10 | STARTD | |
11 | FSTA RETRN /SAVE RERN | |
12 | FADD TWO /INCR BY TWO | |
13 | FSTA 3 /GIVES ADDRESS OF ARG POINTER | |
14 | FLDA% 3 /GET ADDR OF ARG | |
15 | FSTA 3 | |
16 | STARTF | |
17 | FLDA% 3 /GET ARG | |
18 | JAL RETRN /LEAVE BIGGIES ALONE | |
19 | JLT NEGFIX /NEGATIVE ARG | |
20 | ALN 0 /FIX POSITIVE ARG | |
21 | FNORM | |
22 | JA RETRN /RETURN | |
23 | NEGFIX, FNEG /FIRST MAKE POSITIVE | |
24 | ALN 0 /THEN FIX | |
25 | FNORM | |
26 | FNEG /THEN RE-NEGATE | |
27 | RETRN, JA . | |
28 | TWO, 0;2 | |
29 | END | |
30 | \f |