software: Added more and more

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

diff --git a/sw/f4/FRTSRC/dble.ra b/sw/f4/FRTSRC/dble.ra
new file mode 100644 (file)
index 0000000..46c42e8
--- /dev/null
+++ b/sw/f4/FRTSRC/dble.ra
@@ -0,0 +1,27 @@
+/      SUBROUTINE DBLE - REAL TO DBL PREC
+/
+/ VERSION 5A 4-27-77  PT
+/
+       SECT    DBLE
+       BASE    0
+       DPCHK
+       FLDA    0
+       STARTD
+       FSTA    RETRN           /SAVE RETURN
+       FADD    TWO             /ADDR OF ARG POINTER
+       FSTA    3
+       FLDA%   3               /ADDR OF ARG
+       FSTA    3
+       STARTF
+       FLDA%   3               /GET ARG
+       FSTA    DTEMP
+       FCLA
+       FSTA    DTEMP+3         /0 FOR LAST 3 WORDS
+       STARTE
+       FLDA    DTEMP
+RETRN, 0;0                     /FLOAT IS A NOP
+TWO,   0;2
+DTEMP, F 0.0
+       F 0.0
+       END
+\f