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