;
;       Title                  : Wimp Block Copy.
;       System                 : Wimp Library
;       Version                : 1.0
;       Copyright              : (C) John Winters
;       Date                   : 12th January, 1990
;       Author                 : John H. Winters
;
;       Function               : Copies a block.
;
;
;       Modification history.
;
;       Version                : (Reflect in header IDENT)
;       Date                   :
;       Author                 :
;       Changes                :
;
;
;============================================================================
;
;  Include files.
;
;============================================================================
;
        GET     Desk.sh.regdefs
        GET     h.swinos
        GET     Desk.sh.macros
;
;============================================================================
;
;  Code.
;
;============================================================================
;
        PREAMBLE
        STARTCODE Desk_Wimp_BlockCopy
;
        STMFD   sp!, {v1, v2, v3, lr}
        MOV     v2,  a3
        MOV     v3,  a4
        LDMFD   a2,  {a2, a3, a4, v1}
        SWI     Desk_SWI_Wimp_BlockCopy + Desk_XOS_Bit
	Desk_Error2_CheckV
        LDMFD   sp!, {v1, v2, v3, pc}^
;
        END
