home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / memory.swg / 0015_Fast MOVE Replacement.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-29  |  852 b   |  33 lines
  1. {$S-,R-,V-,I-,N-,B-,F-}
  2.  
  3. {$IFNDEF Ver40}
  4.   {Allow overlays}
  5.   {$F+,O-,X+,A-}
  6. {$ENDIF}
  7.  
  8. UNIT FastMove;
  9.  
  10. INTERFACE
  11.  
  12. (* This routine will move a block of data from a source to a destination.  It
  13.    replaces Turbo Pascal's Move routine.                                     *)
  14.  
  15. PROCEDURE FastMover (VAR source;
  16.                     VAR dest;
  17.                     numToMove : WORD);
  18.  
  19.  
  20. IMPLEMENTATION
  21.  
  22. PROCEDURE FastMover (VAR source;
  23.                     VAR dest;
  24.                     numToMove : WORD);
  25.  
  26.     BEGIN
  27.     INLINE ($8C / $DA / $C5 / $B6 / > SOURCE / $C4 / $BE / > DEST / $8B / $8E / > NUMTOMOVE);
  28.     INLINE ($39 / $FE / $72 / $08 / $FC / $D1 / $E9 / $73 / $11 / $A4 / $EB / $0E / $FD / $01 / $CE);
  29.     INLINE ($4E / $01 / $CF / $4F / $D1 / $E9 / $73 / $01 / $A4 / $4E / $4F / $F2 / $A5 / $8E / $DA);
  30.     END;
  31.  
  32. END.
  33.