Block transfer with sum

mov si,2000h
mov cx,[4000h]
mov di,3000h
mov al,00h
l1:mov bl,[si]
add al,bl
mov [di],bl
inc si
inc di
loop l1
mov [3500h],al
hlt