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