A large commit.

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

diff --git a/sw/os8/v3d/sources/fortran/all/expir.ra b/sw/os8/v3d/sources/fortran/all/expir.ra
new file mode 100644 (file)
index 0000000..3167ba4
--- /dev/null
+++ b/sw/os8/v3d/sources/fortran/all/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