assume cs:codesg
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,118300,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 sumn ne ??‘)
table ends

codesg segment
start:mov ax,data
      mov ds,ax

      mov ax,table
      mov es,ax

      mov bx,168
      mov si,0
      mov di,0
      mov cx,21

    s:mov ax,[si]
      mov es:[di],ax
      mov ax,[si+2]
      mov es:[di+2],ax

      mov ax,[bx]
      mov es:[di+2],ax

      mov ax,[si+84]
      mov es:[di+5],ax
      mov dx,[si+86]
      mov es:[di+7],dx

      div word ptr es:[di+10]
      mov es:[di+13],ax

      add bx,2
      add si,4
      add di,16
      loop s

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