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