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


XOS_Bit                         EQU &020000

SWI_MessageTrans_FileInfo       EQU &041500
SWI_MessageTrans_OpenFile       EQU &041501
SWI_MessageTrans_Lookup         EQU &041502
SWI_MessageTrans_CloseFile      EQU &041504

        AREA |D$$code|, CODE, READONLY

        EXPORT MessageTrans_FileInfo

MessageTrans_FileInfo

        STMFD   sp!,{v1,v2,lr}

        MOV     v1,a2
        MOV     v2,a3
        MOV     a2,a1
        SWI     SWI_MessageTrans_FileInfo + XOS_Bit
        STR     a1,[v1]
        STR     a3,[v2]

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

        END


