assume cs:codesg,ss:stacksg

data segment
        db '1975','1976','1977','1978','1979','1980','1981','1982','1983'
        db '1984','1985','1986','1987','1988','1989','1990','1991','1992'
        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

data ends

table segment
        db 21 dup ('year summ ne ?? ')
table ends

stacksg segment
        db 0,0,0,0,0,0,0,0
stacksg ends

codesg segment

start:  mov dx,data
        mov ds,dx

        mov dx,table
        mov es,dx

        mov dx,stacksg
        mov ss,dx
        mov sp,08h
        mov cx,21
        mov di,0
        mov ax,0
        mov bx,0
        mov si,54h
        mov bp,0a8h
        

    s:  push cx
        mov cx,4

    s1: mov al,ds:[bx]
        mov es:[di],al
        inc di
        inc bx
        loop s1

       
        mov ax,ds:[si]
        mov es:[5],ax
        mov ax,ds:[si+2]
        mov es:[7],ax
        
        mov ax,ds:[bp]
        mov es:[0ah],ax
        
        mov ax,ds:[si]
        mov dx,ds:[si+2]
        div word ptr ds:[bp]
        mov es:[0dh],ax

        add si,4
        add bp,2
        mov di,0
        pop cx
        mov ax,es
        inc ax
        mov es,ax
        loop s

        mov ax,4c00h
        int 21h
codesg ends
end start