home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
progm
/
dpl.zip
/
_SCONCAT.D
< prev
next >
Wrap
Text File
|
1988-07-11
|
640b
|
32 lines
; Doug's Programming Language -- DPL, Version 2.22
; Copyright (c) 1988 Douglas S. Cody, All rights reserved.
;--------------------------------
; _ S C O N C A T - CONCATENATE A STRING
;
; ENTRY CONDITIONS:
; SI CONTAINS THE OFFSET TO THE SOURCE STRING
; DI CONTAINS THE OFFSET TO THE TARGET STRING
; EXIT CONDITIONS:
; SI,DI,AX MODIFIED
;
SUBPGM _SCONCAT
BEGIN _SCONCAT
;
PUSH ES
PUSH DS
POP ES
SUB AL,AL
;
SLOOP:
MOV AL,[SI]
MOVSB
OR AL,AL
JNZ SLOOP
DEC DI
;
POP ES
RET
ENDPGM _SCONCAT
;