software: Added more and more

[pdp8.git] / sw / f4 / FRTSRC / idint.ra

diff --git a/sw/f4/FRTSRC/idint.ra b/sw/f4/FRTSRC/idint.ra
new file mode 100644 (file)
index 0000000..08d9b9c
--- /dev/null
+++ b/sw/f4/FRTSRC/idint.ra
@@ -0,0 +1,39 @@
+/ VERSION 5A 4-27-77  PT
+/
+       SECT    IDINT
+       JA      #DINT
+       DPCHK
+       TEXT    +DINT  +
+DINTXR,        SETX    XRDINT
+       SETB    BPDINT
+BPDINT,        F 0.0
+       F 0.0
+XRDINT,        0;73;1
+       F 0.0
+       ORG     10*3+BPDINT
+       FNOP
+       JA      DINTXR
+       0
+#GOBAK,        JA      .
+       BASE    0
+#DINT, STARTD
+       SETX    XRDINT
+       FLDA    10*3
+       FSTA    #GOBAK,0
+       FLDA%   0,2
+       SETB    BPDINT
+       BASE    BPDINT
+       FSTA    BPDINT
+       STARTE
+       FLDA%   BPDINT
+       JLT     NEGFIX          /NEGATIVE ARG
+       ALN     1               /FIX POSITIVE ARG
+       FNORM
+       JA      #GOBAK          /RETURN
+NEGFIX,        FNEG                    /FIRST MAKE POSITIVE
+       ALN     1               /THEN FIX
+       FNORM
+       FNEG                    /THEN RE-NEGATE
+       JA      #GOBAK
+       END
+\f