projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Add README.md
[pdp8.git]
/
fortran
/
all
/
dble.ra
1
/ SUBROUTINE DBLE - REAL TO DBL PREC
2
/
3
/ VERSION 5A 4-27-77 PT
4
/
5
SECT DBLE
6
BASE 0
7
DPCHK
8
FLDA 0
9
STARTD
10
FSTA RETRN /SAVE RETURN
11
FADD TWO /ADDR OF ARG POINTER
12
FSTA 3
13
FLDA% 3 /ADDR OF ARG
14
FSTA 3
15
STARTF
16
FLDA% 3 /GET ARG
17
FSTA DTEMP
18
FCLA
19
FSTA DTEMP+3 /0 FOR LAST 3 WORDS
20
STARTE
21
FLDA DTEMP
22
RETRN, 0;0 /FLOAT IS A NOP
23
TWO, 0;2
24
DTEMP, F 0.0
25
F 0.0
26
END
27
\f