proadd proc far
push bp
mov bp,sp
push ax
push cx
push si
push di
mov si,[bp].par1_addr
mov di,[bp].par1_addr
mov cx,[di]
mov di,[bp].par3_addr
xor ax,ax
next:
add ax,[si]
add si,2
loop next
mov [di],ax
pop di
pop si
pop cx
pop ax
pop bp
ret 6
proadd endp
code2 ends
end start