software: Added more and more
[pdp8.git] / sw / f4 / FRTSRC / expir.ra
... / ...
CommitLineData
1/
2/ VERSION 5A 4-26-77 MH
3/
4 SECT #EXPIR
5 BASE 0
6 EXTERN EXP3
7 JA .
8 FSTA EXPON,0 /EXPONENT
9 FLDA 0 /BASE
10 FSTA BASE,0
11 JSR EXP3 /EXP3(BASE,EXPON)
12 JA .+6
13 JA BASE
14 JA EXPON
15 JA #EXPIR
16BASE, F 0.0
17EXPON, F 0.0
18 END
19\f