实验7，不知道有没有问题

flyue

assume cs:codesg
data segment
db '1975','1976','1977','1978','1979','1980','1981','1982','1983'
db '1984','1985','1986','1987','1988','1989','1990','1991','1982'
db '1993','1994','1995'
dd 16,22,382,1356,2390,8000,16000,24486,50065,97497,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
ss1 segment
db 16 dup (0)
ss1 ends
codesg segment
start:mov ax,data
      mov es,ax
   mov ax,table
   mov ds,ax
   mov ax,ss1
   mov ss,ax
   mov sp,160h
   mov bx,0
   mov si,0
   mov cx,21
  s:  push cx
   mov cx,4
  s0: mov al,es:[bx]
      mov ds:[si],al
   inc si
      inc bx
   loop s0  
     mov bx,0
     mov ax,es:[bx+84]
  mov [bx+si+1],ax
  mov ax,es:[bx+86]
  mov [bx+si+3],ax
     mov ax,[bx+168]
     mov [bx+si+6],ax  
  mov ax,[bx+si+1]
  mov dx,[bx+si+3]
  div word ptr [bx+si+6]
  mov [bx+si+10],ax
   add si,16
   pop cx
   loop s
codesg  ends
end start