assume cs:codeseg,ds:dataseg,ss:stackseg
stackseg segment
dw 0,0,0,0,0,0,0,0
stackseg ends
dataseg segment
db '1975','1976','1977','1978','1979','1980','1981','1982','1983'
db '1984','1985','1986','1987','1987','1988','1989','1990','1991'
db '1993','1994','1995'
dd 16,22,382,1356,2390,8000,16000,24486,50065,97479,140417,197514
dd 345980,590827,803530,1183000,1843000,2759000,3753000,4649000,5937000
dw 3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5635,8226
dw 11542,14430,15257,17800
dataseg ends
table segment
db 21 dup ('year summ ne ?? ')
table ends
codeseg segment
start: mov ax,table
mov ds,ax
mov bx,0
mov ax,dataseg
mov es, ax
mov ax,stackseg
mov ss,ax
mov di,0
mov si,0
mov cx,21
s:mov ax,es:[di]
mov [bx+0],ax
mov ax,es:[di+2]
mov [bx+2],ax
mov ax,es:[di+84]
mov [bx+5],ax
mov ax,es:[di+86]
mov [bx+7],ax
mov ax,es:[si+168]
mov [bx+10],ax
mov ax,[bx+5]
mov dx,[bx+7]
div word ptr[bx+10]
mov [bx+13],ax
add si,2
add di,4
add bx,16
loop s
mov ax,4c00h
int 21h
codeseg ends
end start