知道这个论坛时已经学到了第十章，后面会把以前做的整理出来，有的程序是写在书上的


assume cs:codesg,ds:data,es:table

data segment
db '1975','1976','1977','1978','1979','1980','1981','1982','1983','1984'
db '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,14420,15257,17800

data ends

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

codesg segment
start:mov ax,data
      mov ds,ax
      mov ax,table
      mov es,ax
      mov bx,0
      mov cx,21
      mov si,0
s1:mov ax,ds:[si]
   mov di,0
   mov es:[bx+di],ax
   add si,2
   add di,2
   mov ax,ds:[si]
   mov es:[di+bx],ax
   add bx,10h
   add si ,2
   loop s1

   mov cx,21
   mov di,0
   mov bx,0
s2:mov ax,ds:[si]
   mov es:[bx+di+5],ax
   add si,2
   mov ax,ds:[si]
   mov es:[bx+di+7],ax
   add bx,10h
   add si,2
   loop s2

   mov di,0
   mov bx,0
   mov cx,21
s3:mov ax,ds:[si]
   mov es:[di+10+bx],ax
   add bx,10h
   add si,2
   loop s3

   mov cx,21
   mov di,0
   mov bx,0
s4:mov ax,es:[5+bx+di]
   mov dx,es:[7+bx+di]
   div word ptr es:[di+10+bx]
   mov es:[di+13+bx],ax
   add bx,10h
   loop s4

   mov ax,4c00h
   int 21h

codesg ends
end start