software: Added more and more

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

diff --git a/sw/f4/FRTSRC/sign.ra b/sw/f4/FRTSRC/sign.ra
new file mode 100644 (file)
index 0000000..50137b1
--- /dev/null
+++ b/sw/f4/FRTSRC/sign.ra
@@ -0,0 +1,40 @@
+/
+/ VERSION 5A 4-27-77  PT
+/
+       SECT    SIGN
+       ENTRY   ISIGN
+       JA      #ST
+#XR,   ORG     .+10
+       TEXT    'SIGN  '
+#BASE, ORG     .+3
+A,     ORG     .+3
+B,     ORG     .+3
+       ORG     #BASE+31
+       JA      #BASE
+GOBACK,        0;0;0
+       BASE    #BASE
+ISIGN,
+#ST,   STARTD
+       0210
+       FSTA    GOBACK+1,0
+       0200
+       SETX    #XR
+       SETB    #BASE
+       LDX     0,1
+       FSTA    #BASE
+       FLDA%   #BASE,1+
+       FSTA    A
+       FLDA%   #BASE,1+
+       FSTA    B
+       STARTF
+       FLDA%   B
+       JLT     #50
+       FLDA%   A
+       JLT     #100
+       JA      GOBACK+1
+#50,   FLDA%   A
+       JLT     GOBACK+1
+#100,  FNEG
+       JA      GOBACK+1
+       END
+\f