software: Added more and more

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

diff --git a/sw/f4/FRTSRC/expid.ra b/sw/f4/FRTSRC/expid.ra
new file mode 100644 (file)
index 0000000..e37ee9e
--- /dev/null
+++ b/sw/f4/FRTSRC/expid.ra
@@ -0,0 +1,22 @@
+/
+/ VERSION 5A 4-26-77 MH
+/
+       SECT    #EXPID
+       DPCHK
+       BASE    0
+       EXTERN  EXPID2
+EXPID, JA      .
+       FSTA    EXPON,0         /EXPONENT
+       STARTF
+       FLDA    0               /BASE
+       FSTA    BASE,0
+       JSR     EXPID2
+       JA      .+6
+       JA      BASE
+       JA      EXPON
+       JA      EXPID
+BASE,  F       0.0
+EXPON, F       0.0
+       F 0.0
+       END
+\f