projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 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 |