.model small
.stack 100h
.data
sir1 db ‘trec la ’, 10dup(?)
lung1 dw 7
sir2 db ‘AA si poo’, 10dup(?)
lung2 dw 9
start:
mov ax,@data
mov ds,ax
mov es,ax
lea di,sir1
lea si,sir2
call concat
mov ax,4C00h
int21h

concat proc
push bp
mov bp,sp
mov si,[bp+4]
mov di,[bp+6]
mov es,[bp+8]
mov ds,[bp+10]
add di,lung1
rep movsb sir1,sir2
mov al,'$'
stos sir1
lea dx,sir1
int21h
pop bp
ret 8
concat endp