... / ...
Commit | Line | Data |
| 1 | / |
| 2 | / VERSION 5A 4-26-77 MH |
| 3 | / |
| 4 | SECT #EXPID |
| 5 | DPCHK |
| 6 | BASE 0 |
| 7 | EXTERN EXPID2 |
| 8 | EXPID, JA . |
| 9 | FSTA EXPON,0 /EXPONENT |
| 10 | STARTF |
| 11 | FLDA 0 /BASE |
| 12 | FSTA BASE,0 |
| 13 | JSR EXPID2 |
| 14 | JA .+6 |
| 15 | JA BASE |
| 16 | JA EXPON |
| 17 | JA EXPID |
| 18 | BASE, F 0.0 |
| 19 | EXPON, F 0.0 |
| 20 | F 0.0 |
| 21 | END |
| 22 | \f |