实验7

无名似名

没有看答案自己先写的，跑完后看了看内存数据，应该没问题

1. assume cs:codesg
   
2. 
   
3. data segment
   
4.     db '1975','1976','1977','1978','1979','1980','1981','1982','1983'
   
5.     db '1984','1985','1986','1987','1988','1989','1990','1991','1992'
   
6.     db '1993','1994','1995'
   
7.     ;21个年份
   
8.     dd 16,22,382,1356,2390,8000,16000,24486,50065,97479,140417,197514
   
9.     dd 34980,590827,803530,1183000,1843000,2759000,3753000,4649000,5937000
   
10.     ;21年收入
    
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.     ;21年雇员人数
    
14. data ends
    
15. 
    
16. table segment
    
17.     db 21 dup ('year sunm ne ?? ')
    
18. table ends
    
19. 
    
20. 
    
21. codesg segment
    
22. 
    
23. start:
    
24.     mov ax,data  
    
25.     mov ds,ax
    
26. 
    
27.     mov ax,table
    
28.     mov es,ax
    
29. 
    
30.     mov si,0    ;4字节索引
    
31.     mov di,0    ;2字节索引
    
32. 
    
33.     mov bx,0    ;table行索引
    
34. 
    
35.     mov cx,21
    
36. s:
    
37.    
    
38.     ; 年存储
    
39.     mov ax, ds:0[si]
    
40.     mov es:[bx+0], ax
    
41.     mov ax, ds:0[si+2]
    
42.     mov es:[bx+2], ax
    
43. 
    
44.     mov byte ptr es:[bx+4], 20h ;空格
    
45.     ; 雇员人数
    
46.     mov ax, ds:168[di]
    
47.     mov es:[bx+10],ax
    
48.     mov byte ptr es:[bx+12], 20h ;空格
    
49. 
    
50. 
    
51.     ;收入存储
    
52.     mov ax, ds:84[si]
    
53.     mov es:[bx+5],ax
    
54.     mov dx, ds:84[si+2]
    
55.     mov es:[bx+7], dx
    
56. 
    
57.     mov byte ptr es:[bx+9], 20h ;空格
    
58. 
    
59.     ; 除法计算人均收入并写入
    
60.     div word ptr es:[bx+10]
    
61.     mov es:[bx+13],ax
    
62. 
    
63.     mov byte ptr es:[bx+15], 20h ;空格
    
64. 
    
65. 
    
66.     add bx,16
    
67.     add si,4
    
68.     add di,2
    
69.     loop s
    
70. 
    
71.     mov ax,4c00h
    
72.     int 21h
    
73. 
    
74. codesg ends
    
75. 
    
76. end start
    

复制代码