实验7 自己写的，各位多多指教

lsgo

1. assume cs:code
   
2. 
   
3. data segment
   
4.   db '1975','1976','1977','1978','1979','1980','1981','1982'
   
5.   db '1983','1984','1985','1986','1987','1988','1989','1990'
   
6.   db '1991','1992','1993','1994','1995'
   
7. 
   
8.   dd 16,22,382,1356,2390,8000,16000,24486,50065,97479,140417,197514
   
9.   dd 345980,590827,803530,1183000,1843000,2759000,3753000,4649000,5937000
   
10. 
    
11.   dw 3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5635,8226
    
12.   dw 11542,14430,15257,17800
    
13. data ends
    
14. 
    
15. table segment
    
16.   db 21 dup ('year summ ne ?? ')
    
17. table ends
    
18. 
    
19. code segment
    
20. start:
    
21.   mov ax,data
    
22.   mov ds,ax        ;设置data段地址
    
23.   
    
24.   mov ax,table
    
25.   mov ss,ax        ;设置table段地址
    
26.   
    
27.   mov bx,54H
    
28.   mov bp,0
    
29.   mov si,0
    
30.   mov di,0        ;设置寻址寄存器
    
31. 
    
32.   mov cx,21
    
33. s:
    
34.   mov ax,[si]
    
35.   mov dx,[si+2]
    
36.   mov [bp],ax
    
37.   mov [bp+2],dx        ;年份传送
    
38. 
    
39.   mov ax,[bx+si]
    
40.   mov dx,[bx+si+2]
    
41.   mov [bp+5],ax
    
42.   mov [bp+7],dx ;收入传送
    
43. 
    
44.   mov ax,[bx+di+54H]
    
45.   mov [bp+10],ax ;雇员传送
    
46. 
    
47.   mov ax,[bx+si]
    
48.   mov dx,[bx+si+2];为求思路清淅，此处不做精简
    
49.   
    
50.   div word ptr [bx+di+54H]
    
51.   mov [bp+13],ax ;计算机人均收入（求整）
    
52. 
    
53.   add si,4
    
54.   add di,2
    
55.   add bp,16
    
56. loop   s
    
57.   mov ax,4c00h
    
58.   int 21h
    
59. code ends
    
60. end start

复制代码