software: Added more and more

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

diff --git a/sw/f4/FRTSRC/dim.ra b/sw/f4/FRTSRC/dim.ra
new file mode 100644 (file)
index 0000000..88cf1c3
--- /dev/null
+++ b/sw/f4/FRTSRC/dim.ra
@@ -0,0 +1,32 @@
+/
+/ VERSION 5A 4-27-77  PT
+/
+       SECT    DIM
+       ENTRY   IDIM
+       JA      #ST
+#XR,   ORG     .+10
+#BASE, ORG     .+3
+A,     ORG     .+3
+B,     ORG     .+3
+       BASE    #BASE
+IDIM,
+#ST,   STARTD
+       0210
+       FSTA    #RTN,0
+       0200
+       SETX    #XR
+       SETB    #BASE
+       LDX     0,1
+       FSTA    #BASE
+       FLDA%   #BASE,1+
+       FSTA    A
+       FLDA%   #BASE,1+
+       FSTA    B
+       STARTF
+       FLDA%   A
+       FSUB%   B
+       JGE     #RTN
+       FCLA
+#RTN,  JA      .
+       END
+\f