software: Added more and more
[pdp8.git] / sw / f4 / FRTSRC / ifix.ra
... / ...
CommitLineData
1/
2/ VERSION 5A 4-27-77 PT
3/
4 SECT IFIX
5 ENTRY AINT
6 ENTRY INT
7 BASE 0
8AINT,
9INT, 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
23NEGFIX, FNEG /FIRST MAKE POSITIVE
24 ALN 0 /THEN FIX
25 FNORM
26 FNEG /THEN RE-NEGATE
27RETRN, JA .
28TWO, 0;2
29 END
30\f