ADDITION DE 2 TABLEAUX,MISE DU RESULTAT DANS UN 3° TABLEAU,CALCUL DE LA SOMME DES ELEMENTS DU TABLEAU RESULTANT ET PUIS AFFICHAGE D'UN MESSAGE

PILE segment
	db 50 dup (0)
PILE ends

data segment
	tab1 db 5 dup (10,20,30,40,50)
	tab2 db 5 dup (1,2,3,4,5)
	tabsom db 5 dup (0)
	msg db 'transfert  et somme terminés'
	somme dw 0
data ends

code_proc segment
assume ds:data
assume ss:pile
assume cs:code_proc
	transfert proc near
		lea si,tab2
		lea di,tabsom
		mov cx,5
tab_transfer:
mov al,[si]
mov [di],al
inc si
inc di
loop tab_transfer
	ret
transfert endp

add_tab proc near
	lea si,tab1
	lea di,tabsom
	mov cx,5
add_trans:
mov al,[si]
mov [di],al
inc si
inc di
loop add_trans
	ret
add_tab endp

somme_tab proc near
	lea si,tabsom
	mov cx,5
	mov ah,0
addition:
mov al,[si]
add somme,ax
inc si
loop addition
	ret
somme_tab endp

show_msg proc near
	mov cx,length msg
	mov ax,offset msg
affich:
mov dl,[ax]
mov ah,6h
int 21h
inc ax
loop affich
	ret
show_msg endp

main proc near
	mov ax,data
	mov ds,ax
	mov ax,pile
	mov ss,ax
call transfert
call add_tab
call som_tab
call shox_msg
	mov ah,4ch
	int 21h
main endp
code_proc endp

end main