; Desk_Wimp_ReportErrorR
; - a version of Desk_Wimp_ReportError that actually returns the value (which
;   button was clicked) that the SWI call returns.
;   Jason Williams 1993

        GET     Desk.sh.regdefs
        GET     h.swinos
        GET     Desk.sh.macros
;
        PREAMBLE
        STARTCODE Desk_Wimp_ReportErrorR
;
;        STMFD   sp!, {lr}
        MOV     ip, lr

        SWI     Desk_SWI_Wimp_ReportError + Desk_XOS_Bit
	Desk_Error2_CheckV
        MOV     a1, a2

        MOVS    pc, ip
;        LDMFD   sp!, {pc}^
;
        END
