|
|
?PLM=1 ; PASCAL Calling convention is DEFAULT?WIN=0 ; Windows calling conventionPMODE=1
.xlistinclude cmacros.incinclude windows.inc.list
externA __WinFlags ; in KERNEL externA __AHINCR ; in KERNEL externA __AHSHIFT ; in KERNEL
; The following structure should be used to access high and low; words of a DWORD. This means that "word ptr foo[2]" -> "foo.hi".
LONG struclo dw ?hi dw ?LONG ends
FARPOINTER strucoff dw ?sel dw ?FARPOINTER ends
; Manually perform "push" dword register instruction to remove warningPUSHD macro reg db 66h push regendm
; Manually perform "pop" dword register instruction to remove warningPOPD macro reg db 66h pop regendm
; -------------------------------------------------------; DATA SEGMENT DECLARATIONS; -------------------------------------------------------
ifndef SEGNAME SEGNAME equ <_TEXT>endif
createSeg %SEGNAME, CodeSeg, word, public, CODE
sBegin DatasEnd Data
sBegin CodeSeg assumes cs,CodeSeg assumes ds,DATA
;---------------------------Public-Routine------------------------------;; MemCopy;; copy memory;; Entry:; lpSrc HPSTR to copy from; lpDst HPSTR to copy to; cbMem DWORD count of bytes to move;; Returns:; destination pointer; Error Returns:; None; Registers Preserved:; BP,DS,SI,DI; Registers Destroyed:; AX,BX,CX,DX,FLAGS; Calls:; nothing;-----------------------------------------------------------------------;
cProc MemCopy,<NEAR,PASCAL,PUBLIC>,<ds> ParmD lpDst ParmD lpSrc ParmD cbMemcBegin .386 PUSHD di ; push edi PUSHD si ; push esi cld
mov ecx,cbMem jecxz mc386_exit
movzx edi,di movzx esi,si lds si,lpSrc les di,lpDst
mov ebx,ecx shr ecx,2 ; get count in DWORDs rep movs dword ptr es:[edi], dword ptr ds:[esi] mov ecx,ebx and ecx,3 rep movs byte ptr es:[edi], byte ptr ds:[esi]
mc386_exit: cld POPD si : pop esi POPD di ; pop edi .286cEnd
sEnd CodeSegend
|
