assume cs:code,ds:data,es:tabledata 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,45257,17800data endstable segment db 21 dup('year summ ne ?? ')table endscode segmentstart:mov ax,datamov ds,axsub bx,bxsub si,sisub di,dimov ax,tablemov es,axmov cx,21s:mov ax,[bx]mov es:[si],axmov ax,[bx+2]mov es:[si+2],axmov ax,[bx+84]mov dx,[bx+86]mov es:[si+5],axmov es:[si+7],dxdiv word ptr [di+168]mov es:[si+13],axmov ax,[di+168]mov es:[si+10],axadd bx,4add si,16add di,2loop smov ax,4c00hint 21hcode endsend start
