home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 02 / tricks / memcopy.inc < prev    next >
Encoding:
Text File  |  1988-11-21  |  1.7 KB  |  43 lines
  1. REM -------------------------------------------------------
  2. REM                    MEMCOPY.INC
  3. REM         Kopieren beliebiger Speicherbereiche
  4. REM -------------------------------------------------------
  5. REM  (c) 1988 by HEIMSOETH Software / Technical Support
  6. REM             veröffentlicht in TOOLBOX 2/89
  7. REM -------------------------------------------------------
  8. REM            Compiler: Turbo Basic V1.01e
  9. REM -------------------------------------------------------
  10.  
  11. SUB MoveASM INLINE
  12.   $INLINE &H55                      'PUSH  BP
  13.   $INLINE &H89, $HE5                'MOV   BP, SP
  14.   $INLINE &H1E                      'PUSH  DS
  15.   $INLINE &H06                      'PUSH  ES
  16.   $INLINE &H8E, &H5E, &H06          'MOV   DS,[BP+06]
  17.   $INLINE &HA1, &H00, &H00          'MOV   AX,[0000]
  18.   $INLINE &H8B, &H36, &H02, &H00    'MOV   SI,[0002]
  19.   $INLINE &H8E, &H06, &H04, &H00    'MOV   ES,[0004]
  20.   $INLINE &H8B, &H3E, &H06, &H00    'MOV   DI,[0006]
  21.   $INLINE &H8B, &H0E, &H08, &H00    'MOV   CX,[0008]
  22.   $INLINE &H8E, &HD8                'MOV   DS, AX
  23.   $INLINE &HFC                      'CLD
  24.   $INLINE &HF3                      'REPZ
  25.   $INLINE &HA4                      'MOVSB
  26.   $INLINE &H07                      'POP   ES
  27.   $INLINE &H1F                      'POP   DS
  28.   $INLINE &H5D                      'POP   BP
  29. END SUB
  30.  
  31. SUB Move(Quellsegment%, Quelloffset%, Zielsegment%,_
  32.          Zieloffset%, Laenge%)
  33. LOCAL RegPack%()
  34.   RegPack%(0) = Quellsegment%
  35.   RegPack%(1) = Quelloffset%
  36.   RegPack%(2) = Zielsegment%
  37.   RegPack%(3) = Zieloffset%
  38.   RegPack%(4) = Laenge%
  39.   CALL MoveASM(RegPack%())
  40. END SUB
  41.  
  42. REM -------------------------------------------------------
  43.