TEXT    exp(SB),$0
       FETOXD  a+0(FP),F0
       RTS