;       Flat Real/Real Big mode
;       Example 2
;       (for use with Turbo Pascal 5.5 and above)

code    segment public

        assume  cs:code
        
        public  FLAT_copy

FLAT_copy       proc    
        
.386
        push    bp
        mov     bp,sp
        push    ds
        lds     esi,ss:[bp+14]
        les     edi,ss:[bp+8]
        mov     ecx,ss:[bp+4]
        shr     ecx,2
        rep     movs dword ptr es:[edi],ds:[esi]
        pop     ds
        pop     bp
        ret     16

FLAT_copy       endp

code    ends
        end