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

r0  RN 0
r1  RN 1
r2  RN 2
r3  RN 3
r4  RN 4
r5  RN 5
r6  RN 6
r7  RN 7
r8  RN 8
r9  RN 9

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_Lookup

MessageTrans_Lookup

        MOV     ip,sp
        STMFD   sp!,{v1,v2,v3,v4,v5,v6,lr}

        MOV     r8,r2
        MOV     r9,r3
        LDR     r2,[r8]
        LDR     r3,[r9]
        LDMIA   ip,{r4,r5,r6,r7}
        SWI     SWI_MessageTrans_Lookup + XOS_Bit
        STR     r2,[r8]
        STR     r3,[r9]

        MOVVC   a1,#0
        LDMFD   sp!,{v1,v2,v3,v4,v5,v6,pc}

        END
