POINT Software Programming/PPROG1.ISO/pascal/swag/memory.swg/0032_Moving Memory 2 Memory.pas

Pascal/Delphi Source File | 1994-05-26 | 298 b | 17 lines

{This copies NumBytes from SourceOfs to DestOfs:}

Procedure MoveGfxMem(NumBytes, SourceOfs, DestOfs : Word); Assembler;
 Asm
  push  ds
  mov   ax,0a000h
  mov   ds,ax
  mov   es,ax
  mov   si,SourceOfs
  mov   di,DestOfs
  mov   cx,NumBytes
  cld
  rep   movsb
  pop   ds
 End;