assume cs:code, ds:data, ds:table, ss:stack
data segment
db '1975','1976','1977','1978','1979','1980','1981','1982','1983','1984','1985','1986','1987','1988','1989','1990','1991','1992','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
data ends
table segment
db 21 dup ('year summ ne ?? ')
table ends
stack segment
db 15 dup (0h)
stack ends
code segment
start: mov ax, data
mov ds, ax
mov ax, table
mov es, ax
mov ax, stack
mov ss, ax
mov sp, ss:[10h]
mov bx, 0h
mov si, 0h
mov di, 0h
mov cx,21
s0:push cx
mov cx, 2h
s1:mov ax, ds:[si]
mov es:[bx + di], ax
mov ax, ds:[si + 54h]
mov es:[bx + di + 5h], ax
add si, 2h
add di, 2h
loop s1
add bx, 10h
mov di, 0h
pop cx
loop s0
mov si, 0h
mov bx, 0h
mov cx, 21
s2:mov ax, ds:[si + 0a8h]
mov es:[bx + 0ah], ax
mov ax, es:[bx + 5h]
mov dx, es:[bx + 7h]
div word ptr es:[bx + 0ah]
mov es:[bx + 0dh], ax
add si, 2h
add bx, 10h
loop s2
mov ax, 4c00h
int 21h
code ends
end start