software: Added more and more

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

diff --git a/sw/f4/FRTSRC/alog10.ra b/sw/f4/FRTSRC/alog10.ra
new file mode 100644 (file)
index 0000000..1517ea7
--- /dev/null
+++ b/sw/f4/FRTSRC/alog10.ra
@@ -0,0 +1,48 @@
+/
+/
+/      A  L  O  G  1  0
+/      -  -  -  -  -  -
+/
+/ VERSION 5A 4-27-77  PT
+/
+/SUBROUTINE    ALOG10(X)
+       SECT    ALOG10
+       JA      #ALOG
+       TEXT    +ALOG10+
+LOGXR, SETX    XRLOG
+       SETB    BPLOG
+BPLOG, FNOP
+       0
+       0
+XRLOG, F 0.0
+LOG1,  F 0.0
+ALOG1C,        7777    /FUDGE CONSTANT
+       3362
+       6754
+       ORG     10*3+BPLOG
+       FNOP
+       JA      LOGXR
+       0
+LOGRTN,        JA      .
+       BASE    0
+#ALOG, STARTD
+       FLDA    10*3
+       FSTA    LOGRTN
+       FLDA    0
+       SETX    XRLOG
+       SETB    BPLOG
+       BASE    BPLOG
+       LDX     1,1
+       FSTA    BPLOG
+       FLDA%   BPLOG,1 /ADDR OF X
+       FSTA    BPLOG
+       STARTF
+       FLDA%   BPLOG   /GET X
+       FSTA    LOG1
+       EXTERN  ALOG
+       JSR     ALOG    /CALL ALOG
+       JA      .+4
+       JA      LOG1
+       FMUL    ALOG1C  /CORRECT FOR THE LOG BASE E.
+       JA      LOGRTN
+\f