home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 06 / tricks / mem_move.inc < prev    next >
Text File  |  1990-03-08  |  2KB  |  37 lines
  1. '* ------------------------------------------------------- *
  2. '*                  MEM-MOVE.INC                           *
  3. '*           Speicherbereiche verschieben                  *
  4. '*             (C) Borland International                   *
  5. '*                                                         *
  6. '*  Array%[0] = Quellsegment                               *
  7. '*  Array%[1] = Quelloffset                                *
  8. '*  Array%[2] = Zielsegment                                *
  9. '*  Array%[3] = Zieloffset                                 *
  10. '*  Array%[4] = Länge                                      *
  11. '*                                                         *
  12. '*  CALL MemMove (Array%())                                *
  13. REM ------------------------------------------------------ *
  14.  
  15. SUB MemMove INLINE
  16.    $INLINE &H55                   ' PUSH BP
  17.    $INLINE &H89, &HE5             ' MOV  BP,SP
  18.    $INLINE &H1E                   ' PUSH DS
  19.    $INLINE &H06                   ' PUSH ES
  20.    $INLINE &H8E, &H5E, &H06       ' MOV  DS,[BP+06]
  21.    $INLINE &HA1, &H00, &H00       ' MOV  AX,[0000]
  22.    $INLINE &H8B, &H36, &H02, &H00 ' MOV  SI,[0002]
  23.    $INLINE &H8E, &H06, &H04, &H00 ' MOV  ES,[0004]
  24.    $INLINE &H8B, &H3E, &H06, &H00 ' MOV  DI,[0006]
  25.    $INLINE &H8B, &H0E, &H08, &H00 ' MOV  CX,[0008]
  26.    $INLINE &H8E, &HD8             ' MOV  DS,AX
  27.    $INLINE &HFC                   ' CLD
  28.    $INLINE &HF3                   ' REPZ
  29.    $INLINE &HA4                   ' MOVSB
  30.    $INLINE &H07                   ' POP  ES
  31.    $INLINE &H1F                   ' POP  DS
  32.    $INLINE &H5D                   ' POP  BP
  33. END SUB
  34. '* ------------------------------------------------------- *
  35. '*              Ende von MEM-MOVE.INC                      *
  36.  
  37.