projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 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 |