Category : Pascal Source Code
Archive   : MOVES.ZIP
Filename : MOVES.PAS

{ =========================================================================== }
{ Moves.pas - Unit for 16-bit move transfers ver 1.0, 07-12-88 }
{ }
{ Move16 - replacement for TP move; twice as fast }
{ Move16n - for intersegment moves which normalizes the pointers first. }
{ }
{ The NumOfBytes at which these routine surpass the TP move routine for speed }
{ is 6 and 56 bytes respectively, after which, both get to be twice as fast. }
{ }
{ Only 112 bytes of code for both procedures. }
{ by James H. LeMay (CIS: 76011,217) }
{ =========================================================================== }

{$R-,S-,I-,D+,T-,F-,V-,B-,N-,L+ }

UNIT Moves;

INTERFACE

procedure Move16 (VAR Source,Dest; NumOfBytes: word);
procedure Move16n (VAR Source,Dest; NumOfBytes: word);

IMPLEMENTATION

{$L Moves.obj }
procedure Move16; external;
procedure Move16n; external;

END.