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

	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_Lookup

Desk_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     Desk_SWI_MessageTrans_Lookup + Desk_XOS_Bit
        Desk_Error2_CheckV
        STR     r2, [r8]
        STR     r3, [r9]

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

        END
