software: Added more and more

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

diff --git a/sw/f4/FRTSRC/expir.ra b/sw/f4/FRTSRC/expir.ra
new file mode 100644 (file)
index 0000000..3167ba4
--- /dev/null
+++ b/sw/f4/FRTSRC/expir.ra
@@ -0,0 +1,19 @@
+/
+/ VERSION 5A 4-26-77 MH
+/
+       SECT    #EXPIR
+       BASE    0
+       EXTERN  EXP3
+       JA      .
+       FSTA    EXPON,0         /EXPONENT
+       FLDA    0               /BASE
+       FSTA    BASE,0
+       JSR     EXP3            /EXP3(BASE,EXPON)
+       JA      .+6
+       JA      BASE
+       JA      EXPON
+       JA      #EXPIR
+BASE,  F       0.0
+EXPON, F       0.0
+       END
+\f