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