; Copyright 2000 Pace Micro Technology plc
;
; Licensed under the Apache License, Version 2.0 (the "License");
; you may not use this file except in compliance with the License.
; You may obtain a copy of the License at
;
;     http://www.apache.org/licenses/LICENSE-2.0
;
; Unless required by applicable law or agreed to in writing, software
; distributed under the License is distributed on an "AS IS" BASIS,
; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
; See the License for the specific language governing permissions and
; limitations under the License.
;
	AREA	Fred,CODE,READONLY
        EXPORT init_unwind
init_unwind
        STR     fp,[a1,#6*4]
        STR     pc,[a1,#8*4]
        STR     sl,[a1,#9*4]
        MOVS    pc,lr

        EXPORT  get_extfp
get_extfp
        LDFE    f0,[a1]
        MOVS    pc,lr

        END