projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
1 | / |
| 2 | / VERSION 5A 4-26-77 MH | |
| 3 | / | |
| 4 | SECT #EXPDR | |
| 5 | DPCHK | |
| 6 | BASE 0 | |
| 7 | EXTERN DEXP3 | |
| 8 | JA . | |
| 9 | FSTA EXPON,0 /EXPONENT | |
| 10 | FCLA | |
| 11 | FSTA EXPON+3 /MUST BE 6 WDS | |
| 12 | STARTE | |
| 13 | FLDA 0 /BASE | |
| 14 | FSTA BASE,0 | |
| 15 | JSR DEXP3 /EXP3(BASE,EXPON) | |
| 16 | JA .+6 | |
| 17 | JA BASE | |
| 18 | JA EXPON | |
| 19 | JA #EXPDR | |
| 20 | BASE, F 0.0 | |
| 21 | F 0.0 | |
| 22 | EXPON, F 0.0 | |
| 23 | F 0.0 | |
| 24 | END | |
| 25 | \f |