ادغام دو آرایه

[dada_vahid]

سلام دوستان من می خوام 2 تا ارایه را به ادغام کنم هر کاری می کنم نمی تونم اکه می شه من رو راهنمایی کنید دو ارایه رو از کاربر بگیره بعد ارایه دوومی رو بعد ار ارایه اولی نشان بده

[tdkhakpur]

کد زیر یک نمونه برای ادغام دو آرایه از نوع رشته هست


stacksg segment para stack 'stack'
stacksg ends
datasg segment para 'data'
s1 db "str1$ "; ÇÕáÇÍ
s2 db "str2$"
datasg ends
codes segment para 'code'
main proc far
assume ss:stacksg, ds:datasg, cs:codes
mov ax, datasg
mov ds, ax
;------------ ur programm
lea bp, s1
label1:
mov dl, byte ptr [bp]
inc bp
cmp dl,'$'
jne label1
lea bx, s2
dec bp
label2:
mov dl, byte ptr [bx] ;bx reshte 2
mov byte ptr [bp], dl ;bp reshte 1
inc bp
inc bx
cmp dl, '$'
jne label2
;print s1+s2
lea dx,s1
mov ah,9h
int 21h
;------------ end of program
mov ax, 4c00h
int 21h
main endp
codes ends
end main