bdf0e514efb5bd6e024c0bb00b2c80e4999ffdfa
[pdp8.git] / sw / f4 / FRTSRC / expdd.ra
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