home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 05 / leser / asm_move.pas next >
Encoding:
Pascal/Delphi Source File  |  1991-04-03  |  1.2 KB  |  23 lines
  1. (* ------------------------------------------------------ *)
  2. (*                   ASM_MOVE.PAS                         *)
  3. (* ------------------------------------------------------ *)
  4.  
  5.   PROCEDURE Move(VAR Quelle; VAR Ziel; Groesse : WORD);
  6.   INLINE (
  7.           $FC/              { CLD                          }
  8.           $8C/$DA/          { MOV  DX, DS                  }
  9.           $59/              { POP  CX     ; Groesse        }
  10.           $5F/              { POP  DI     ; Offset Ziel    }
  11.           $07/              { POP  ES     ; Segment Ziel   }
  12.           $5E/              { POP  SI     ; Offset  Quelle }
  13.           $1F/              { POP  DS     ; Segment Quelle }
  14.           $D1/$E9/          { SHR  CX, 1  ; Anzahl Words   }
  15.           $73/$01/          { JNC  @@gerade                }
  16.           $A4/              { MOVSB                        }
  17.                             { @@gerade:                    }
  18.           $F3/$A5/          { REP  MOVSW                   }
  19.           $8E/$DA);         { MOV  DS, DX                  }
  20.  
  21. (* ------------------------------------------------------ *)
  22. (*               Ende von ASM_MOVE.PAS                    *)
  23.