assume ss:stack,cs:code,ds:datastack segment stack db 16 dup(0)stack endsdata 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,17800data endstable segment db 21 dup('year summ ne ?? ')table endscode segmentstart: mov ax,stack mov ss,ax mov sp,10h mov ax,data mov ds,ax mov ax,0 mov si,ax mov ax,table mov es,ax mov ax,0 mov di,ax mov bx,0 mov cx,15h s1: push cx mov cx,4h mov ax,0 mov di,ax s: mov al,[si] mov es:[bx+di],al inc di inc si loop s mov ax,[21*4] add bx,10h pop cx loop s1 mov cx,15h mov bx,0 s3: mov ax,[si] mov es:[bx+5],ax add si,2 mov ax,[si] mov es:[bx+7],ax add si,2 add bx,10h loop s3 mov cx,15h mov bx,0 s4: mov ax,[si] mov es:[bx+10],ax add si,2 add bx,10h loop s4 mov cx,15h mov bx,0 s5: mov ax,es:[bx+5] mov dx,es:[bx+7] div word ptr es:[bx+10] mov es:[bx+13],ax add bx,10h loop s5 nop mov ax,4c00h int 21hcode endsend start
