Commit | Line | Data |
---|---|---|
7af5ad59 PH |
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 |