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