home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 2
/
ctrom_ii_b.zip
/
ctrom_ii_b
/
PROGRAM
/
PASCAL
/
MOVEASM
/
MOVEASM.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1992-04-13
|
1KB
|
30 lines
{ =========================================================================== }
{ 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+,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.