software: Added more and more
[pdp8.git] / sw / f4 / FRTSRC / ifix.ra
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