汇编语言的实验7

3-3

试了一下，可以运行，但是自己还是有一些疑问，需要看书慢慢消化。

1. assume cs:codesg,ds:data,es:table
   
2. data segment
   
3. db '1975','1976','1977','1978','1979','1980','1981','1982','1983'
   
4. db '1984','1985','1986','1987','1988','1989','1990','1991','1992'
   
5. db '1993','1994','1995'
   
6. ; data:
   
7. 
   
8. dd 16,22,382,1356,2390,8000,16000,24486,50065,97479,140417,197514
   
9. dd 345980,590827,803530,1183000,1843000,2759000,3753000,5659000,5937000
   
10. 
    
11. dw 3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5635
    
12. dw 8226,11542,14430,15257,17800
    
13. 
    
14. data ends
    
15. 
    
16. 
    
17. 
    
18. table segment
    
19. db 21 dup ('year summ ne ?? ')
    
20. table ends
    
21. 
    
22. codesg segment
    
23. 
    
24. start:   
    
25.         mov ax,data
    
26.         mov ds,ax
    
27.         mov ax,table
    
28.         mov es,ax       
    
29.         mov bx,0
    
30.         mov bp,0
    
31.         mov di,0
    
32.         mov cx,21
    
33.        
    
34. s0:       
    
35.         push cx
    
36.         mov si,0
    
37.         mov cx,4
    
38. s1:
    
39.         mov al,ds:[bx+si]       
    
40.         mov es:[bp+0+si],al
    
41.        
    
42.         inc si
    
43.         loop s1
    
44. ;        上面的小循环是将年份的四个字符分别输入进去       
    
45.         mov ax,ds:[168+di]
    
46.         mov es:[bp+10],ax
    
47. ;        上面的语句是将雇员人数输入至数据中
    
48.         mov ax,ds:[84+bx]
    
49.         mov es:[bp+5+0],ax
    
50.         mov dx,ds:[86+bx]
    
51.         mov es:[bp+7+0],dx
    
52. ;        上面的语句是将收入输入至数据中， 将收入与雇员顺序进行颠倒的原因在于在下面除法的过程中，由于数据超过65535，要用到AX、DX，因此顺序颠倒能使语句减少。
    
53.         div word ptr es:[bp+10]
    
54.         mov es:[bp+13],ax
    
55. ;        得出人均收入
    
56.                
    
57.         add di,2
    
58.         add bx,4
    
59.         add bp,16
    
60.         pop cx
    
61.         loop s0
    
62.        
    
63.        
    
64.         mov ax,4c00h
    
65.         int 21h
    
66.        
    
67.        
    
68.        
    
69. codesg ends
    
70. end start

复制代码