projects
/
pdp8.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
A large commit.
[pdp8.git]
/
sw
/
os8
/
v3d
/
sources
/
fortran
/
dectapes
/
dectape2
/
sngl.ra
diff --git a/sw/os8/v3d/sources/fortran/dectapes/dectape2/sngl.ra
b/sw/os8/v3d/sources/fortran/dectapes/dectape2/sngl.ra
new file mode 100644
(file)
index 0000000..
dc24e71
--- /dev/null
+++ b/
sw/os8/v3d/sources/fortran/dectapes/dectape2/sngl.ra
@@ -0,0
+1,21
@@
+/ SUBROUTINE SNGL - DBL PREC TO REAL
+/
+/ VERSION 5A 4-26-77 MH
+/
+ SECT SNGL
+ DPCHK
+ BASE 0
+ FLDA 0
+ STARTD
+ FSTA RETRN
+ FADD TWO
+ FSTA 3
+ FLDA% 3
+ FSTA 3
+ STARTE
+ FLDA% 3
+ STARTF
+ JA RETRN
+RETRN, 0;0
+TWO, 0;2
+
\f