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

f0 FN 0
f1 FN 1
f2 FN 2
f3 FN 3
f4 FN 4
f5 FN 5
f6 FN 6
f7 FN 7

	GET	Desk.sh.macros

Desk_XOS_Bit                         EQU &020000

Desk_SWI_MessageTrans_FileInfo       EQU &041500
Desk_SWI_MessageTrans_OpenFile       EQU &041501
Desk_SWI_MessageTrans_Lookup         EQU &041502
Desk_SWI_MessageTrans_CloseFile      EQU &041504

        AREA |D$$code|, CODE, READONLY

        EXPORT Desk_MessageTrans_FileInfo

Desk_MessageTrans_FileInfo

        STMFD   sp!, {v1, v2, lr}

        MOV     v1, a2
        MOV     v2, a3
        MOV     a2, a1
        SWI     Desk_SWI_MessageTrans_FileInfo + Desk_XOS_Bit
        Desk_Error2_CheckV
        STR     a1, [v1]
        STR     a3, [v2]

        ;MOVVC   a1, #0
        LDMFD   sp!, {v1, v2, pc}^

        END


