home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turbo Toolbox
/
Turbo_Toolbox.iso
/
1990
/
06
/
tricks
/
mem_move.inc
< prev
next >
Wrap
Text File
|
1990-03-08
|
2KB
|
37 lines
'* ------------------------------------------------------- *
'* MEM-MOVE.INC *
'* Speicherbereiche verschieben *
'* (C) Borland International *
'* *
'* Array%[0] = Quellsegment *
'* Array%[1] = Quelloffset *
'* Array%[2] = Zielsegment *
'* Array%[3] = Zieloffset *
'* Array%[4] = Länge *
'* *
'* CALL MemMove (Array%()) *
REM ------------------------------------------------------ *
SUB MemMove INLINE
$INLINE &H55 ' PUSH BP
$INLINE &H89, &HE5 ' MOV BP,SP
$INLINE &H1E ' PUSH DS
$INLINE &H06 ' PUSH ES
$INLINE &H8E, &H5E, &H06 ' MOV DS,[BP+06]
$INLINE &HA1, &H00, &H00 ' MOV AX,[0000]
$INLINE &H8B, &H36, &H02, &H00 ' MOV SI,[0002]
$INLINE &H8E, &H06, &H04, &H00 ' MOV ES,[0004]
$INLINE &H8B, &H3E, &H06, &H00 ' MOV DI,[0006]
$INLINE &H8B, &H0E, &H08, &H00 ' MOV CX,[0008]
$INLINE &H8E, &HD8 ' MOV DS,AX
$INLINE &HFC ' CLD
$INLINE &HF3 ' REPZ
$INLINE &HA4 ' MOVSB
$INLINE &H07 ' POP ES
$INLINE &H1F ' POP DS
$INLINE &H5D ' POP BP
END SUB
'* ------------------------------------------------------- *
'* Ende von MEM-MOVE.INC *