TEXT    fscale(SB), $0
       FMOVED  a+0(FP), F0
       FSCALEL x+8(FP), F0
       RTS