A large commit.

[pdp8.git] / sw / os8 / v3d / sources / fortran / all / dsign.ra

diff --git a/sw/os8/v3d/sources/fortran/all/dsign.ra b/sw/os8/v3d/sources/fortran/all/dsign.ra
new file mode 100644 (file)
index 0000000..a84de31
--- /dev/null
+++ b/sw/os8/v3d/sources/fortran/all/dsign.ra
@@ -0,0 +1,39 @@
+/
+/ VERSION 5A 4-27-77  PT
+/
+       SECT    DSIGN
+       JA      #ST
+#XR,   ORG     .+10
+       TEXT    'DSIGN '
+#BASE, ORG     .+6
+A,     ORG     .+6
+B,     ORG     .+6
+       ORG     #BASE+31
+       JA      #BASE
+GOBACK,        0;0;0
+       BASE    #BASE
+       DPCHK
+#ST,   STARTD
+       0210                    /FLDA 10
+       FSTA    GOBACK+1,0
+       0200
+       SETX    #XR
+       SETB    #BASE
+       LDX     0,1
+       FSTA    #BASE
+       FLDA%   #BASE,1+
+       FSTA    A
+       FLDA%   #BASE,1+
+       FSTA    B
+       STARTE
+       FLDA%   B               /NEG?
+       JLT     #50             /B POS
+       FLDA%   A
+       JLT     #100
+       JA      GOBACK+1        /A+,B+
+#50,   FLDA%   A
+       JLT     GOBACK+1        /A-,B-
+#100,  FNEG                    /OPP. SIGNS
+       JA      GOBACK+1
+       END
+\f