实验七

x-Aaron

1. ;实验七
   
2. assume cs:codesg
   
3. 
   
4. data segment
   
5.         db '1975', '1976', '1977', '1978', '1979', '1980', '1981', '1982', '1983'
   
6.         db '1984', '1985', '1986', '1987', '1988', '1989', '1990', '1991', '1992'
   
7.         db '1993', '1994', '1995'
   
8.        
   
9.         dd 16, 22, 382, 1356, 2390, 8000, 16000, 24486, 50065, 97479, 140417, 197524
   
10.         dd 345980, 590827, 803530, 1183000, 1843000, 2759000, 3753000, 4649000, 5937000
    
11.        
    
12.         dw 3, 7, 9, 13, 28, 38, 130, 220, 476, 778, 1001, 1442, 2258, 2793, 4037, 5635, 8226
    
13.         dw 11542, 14430, 15257, 17800
    
14. data ends
    
15. 
    
16. table segment
    
17.         db 21 dup ('year summ ne ?? ')
    
18. table ends
    
19. 
    
20. codesg segment
    
21. start:
    
22.                 mov ax, data
    
23.                 mov ds, ax
    
24.                
    
25.                 mov ax, table
    
26.                 mov es, ax
    
27.                
    
28.                 ;循环初始值
    
29.                 mov cx, 21
    
30.                 mov bx, 0
    
31.                 mov si, 0
    
32.                 mov di, 0
    
33.                
    
34. s:
    
35.                 ;年份
    
36.                 mov ax, 0[si]
    
37.                 mov dx, 2[si]
    
38.                
    
39.                 mov es:[bx + 0], ax
    
40.                 mov es:[bx + 2], dx
    
41.                 mov byte ptr es:[bx + 4], ' '
    
42.                
    
43.                 ;收入
    
44.                 mov ax, 54H[si]
    
45.                 mov dx, 56H[si]
    
46.                
    
47.                 mov es:[bx + 5], ax
    
48.                 mov es:[bx + 7], dx
    
49.                 mov byte ptr es:[bx + 9], ' '
    
50. 
    
51.                
    
52.                 ;人数
    
53.                 mov ax, 0A8H[di]
    
54.                
    
55.                 mov es:[bx + 10], ax
    
56.                 mov byte ptr es:[bx + 12], ' '
    
57.                
    
58.                 ;平均值
    
59.                 mov ax, 54H[si]
    
60.                 mov dx, 56H[si]
    
61.                
    
62.                 div word ptr 0A8H[di]
    
63.                 mov es:[bx + 13], ax
    
64.                 mov byte ptr es:[bx + 15], ' '
    
65.                
    
66.                 ;循环条件
    
67.                 add si, 4
    
68.                 add di, 2
    
69.                 add bx, 10H
    
70.                 loop s
    
71. 
    
72.                 mov ax, 4c00H
    
73.                 int 21H
    
74. codesg ends
    
75. end start

复制代码