;exercise 3-2


.model small


startadr EQU 3000h
interadr EQU 1000h
span1    EQU 7FFh				;i.e. FFEh / 2
span2    EQU 512


data segment
  
data ends


code segment

	assume cs:code, ds:data
	
start:
	mov ax,data
	mov ds,ax
	
	mov ax, 0
	mov bx,0
	mov cx, span1
loop1:
	mov startadr[bx],ax
	inc ax
	inc bx
	inc bx
	loop loop1
	
	mov ds:[interadr], startadr
	
	mov si, ds:[interadr]
	mov ax, 0
	mov dx, 0
	mov cx, span2
loop2:
	add ax, [si]
	jnc cont
	inc dx
cont:
	inc si
	inc si
	loop loop2
		
	mov ax,4c00h
	int 21h

code ends


end start