; 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
;