a1      RN 0
a2      RN 1
a3      RN 2
a4      RN 3
v1      RN 4
v2      RN 5
v3      RN 6
sl      RN 10
fp      RN 11
ip      RN 12
sp      RN 13
lr      RN 14
pc      RN 15

        GET     hdr.apcs

        IMPORT  __rt_stkovf_split_small
        IMPORT  fgetc
        IMPORT  fget32

        AREA    |fget80$$Code|,CODE,READONLY

        EXPORT  fget80
fget80
        MOV     ip,sp
        STMFD   sp!,{v1,fp,ip,lr,pc}
        SUB     fp,ip,#4
        CMP     sp,sl
        BLLT    __rt_stkovf_split_small
        SUB     sp,sp,#12
        MOV     v1,a1
        BL      fgetc
        AND     ip,a1,#&80
        STRB    ip,[sp,#3]
        MOV     ip,#0
        STRB    ip,[sp,#2]
        BIC     ip,a1,#&80
        STRB    ip,[sp,#1]
        MOV     a1,v1
        BL      fgetc
        STRB    a1,[sp,#0]
        MOV     a1,v1
        BL      fget32
        STR     a1,[sp,#4]
        MOV     a1,v1
        BL      fget32
        STRB    a1,[sp,#8]
        LDFE    f0,[sp],#12
        Return  "v1",fpbased

 [ {FALSE}
        EXPORT  powf
powf
        STMFD   sp!,{a1,a2}
        LDFS    f0,[sp],#4
        LDFS    f1,[sp],#4
        POWS    f0,f0,f1
        Return  ,LinkNotStacked
 ]

        END
