home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
wunderki.zip
/
VARH.ASM
< prev
next >
Wrap
Assembly Source File
|
1993-08-16
|
615b
|
40 lines
; *******************************************************
; * *
; * Turbo Pascal Run-time Library *
; * Variable Support Routines *
; * *
; * Copyright (c) 1988,92 Borland International *
; * *
; *******************************************************
TITLE VARH
INCLUDE SE.ASM
CODE SEGMENT BYTE PUBLIC
ASSUME CS:CODE
; Publics
PUBLIC BlockMove
; Move standard procedure
BlockMove:
MOV BX,SP
MOV DX,DS
LDS SI,SS:[BX+10]
LES DI,SS:[BX+6]
MOV CX,SS:[BX+4]
CLD
REP MOVSB
MOV DS,DX
RETF 10
CODE ENDS
END