sw/f4/FRTSRC/expir.ra

   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
  16 BASE,   F       0.0
  17 EXPON,  F       0.0
  18         END
  19 \f