[Back to MEMORY SWAG index] [Back to Main SWAG index] [Original]

    {$S-,R-,V-,I-,N-,B-,F-}

    {$IFNDEF Ver40}
      {Allow overlays}
      {$F+,O-,X+,A-}
    {$ENDIF}

    UNIT FastMove;

    INTERFACE

    (* This routine will move a block of data from a source to a destination.  It
       replaces Turbo Pascal's Move routine.                                     *)

    PROCEDURE FastMover (VAR source;
                        VAR dest;
                        numToMove : WORD);

    IMPLEMENTATION

    PROCEDURE FastMover (VAR source;
                        VAR dest;
                        numToMove : WORD);

        BEGIN
        INLINE ($8C / $DA / $C5 / $B6 / > SOURCE / $C4 / $BE / > DEST / $8B / $8E / > NUMTOMOVE);
        INLINE ($39 / $FE / $72 / $08 / $FC / $D1 / $E9 / $73 / $11 / $A4 / $EB / $0E / $FD / $01 / $CE);
        INLINE ($4E / $01 / $CF / $4F / $D1 / $E9 / $73 / $01 / $A4 / $4E / $4F / $F2 / $A5 / $8E / $DA);
        END;

    END.

[Back to MEMORY SWAG index] [Back to Main SWAG index] [Original]