data segment
szBuf db 'Hello$'
szBufTO db 'World$'
data ends
code segment
assume cs:code,ds:data
start:
main proc
mov ax,data
mov ds,ax
mov ah,4ch
int 21h
main endp
Strcat proc
push ax
push si
push di
mov dl,ds:[di]
mov dh,[si]
lab: mov cl,[dl]
inc cl
mov al '$'
cmp cl,al
jne lab
;lea dl,ds:[di]
;lea
call strcpy
ret
Strcat endp
code ends
szBuf db 'Hello$'
szBufTO db 'World$'
data ends
code segment
assume cs:code,ds:data
start:
main proc
mov ax,data
mov ds,ax
mov ah,4ch
int 21h
main endp
Strcat proc
push ax
push si
push di
mov dl,ds:[di]
mov dh,[si]
lab: mov cl,[dl]
inc cl
mov al '$'
cmp cl,al
jne lab
;lea dl,ds:[di]
;lea
call strcpy
ret
Strcat endp
code ends
end start
还没写完......