第三版 第8章 实验7

andyup

assume cs:codesg

data segment
   db '1975','1976','1977','1978','1979','1980','1981','1982','1983'
   db '1984','1985','1986','1987','1988','1989','1990','1991','1992'
   db '1993','1994','1995'
   
   dd 16,22,382,1356,2390,8000,16000,24486,50065,97479,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

codesg segment
start:mov ax,data
      mov ds,ax
          mov ax,table
          mov es,ax
          mov si,0
          mov di,168
          mov bx,0
          mov cx,21
          l:mov ax,[si];复制年份
            mov dx,[si+2]
                mov es:[bx],ax;写入年份
                mov es:[bx+2],dx
               
                mov ax,[di];复制雇员数
                mov es:[bx+10],ax;写入雇员数

                mov ax,[si+84];复制收入
                mov dx,[si+86]
                mov es:[bx+5],ax;写入收入
                mov es:[bx+7],dx
               
                div word ptr es:[bx+10];求人均收入
                mov es:[bx+13],ax
               
                add si,4
                add di,2
                add bx,16

      loop l

          mov ax,4c00h
          int 21h
codesg ends
end start

laozibuaiyuc

结果一样，不过我是竖着来的

1. assume cs:codesg,ds:data,ss:table
   
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.        
   
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. codesg segment
    
20. start:        mov ax,data
    
21.                 mov ds,ax
    
22.                 mov bx,0
    
23.                 mov ax,table
    
24.                 mov ss,ax
    
25.                 mov sp,0              ;存放cx
    
26.                 mov bp,0
    
27.                
    
28.                 mov cx,21
    
29.         s:  push cx
    
30.                 mov si,0
    
31.                 mov di,0
    
32.                
    
33.                 mov cx,4
    
34.         s0:        mov dl,ds:[bx][si]      ;转移年份
    
35.                 mov ss:[bp][di],dl
    
36.                 mov dh,ds:54H[bx][si]                ;转移收入
    
37.                 mov ss:5[bp][di],dh
    
38.                 inc si
    
39.                 inc di
    
40.                 loop s0
    
41.                 add bp,10H
    
42.                 add bx,4
    
43.                 pop cx
    
44.                 loop s
    
45.                
    
46.                 mov bx,0
    
47.                 mov bp,0
    
48.                 mov si,0
    
49.                 mov di,0
    
50.                 mov cx,21
    
51.         s1:        mov dx,ds:0A8H[bx][si]      ;转移雇员数
    
52.                 mov ss:0AH[bp][di],dx
    
53.                 add di,10H
    
54.                 add si,2
    
55.                 loop s1
    
56.                
    
57.                 mov bx,0
    
58.                 mov bp,0
    
59.                 mov si,2
    
60.                 mov di,0
    
61.                 mov cx,21
    
62.         s2:        mov dx,ds:54H[bx][si]            ;读取收入以作为被除数
    
63.                 mov ax,ds:54H[bx][si-2]
    
64.                 add si,4
    
65.                
    
66.                 div word ptr ds:0A8H[bx][di]        ;得到结果
    
67.                 add di,2
    
68.                
    
69.                 mov ss:0DH[bp],ax             ;得到人均收入，转存
    
70.                 add bp,10H
    
71.                 loop s2
    
72.                
    
73.                 mov ax,4c00H
    
74.                 int 21H
    
75. codesg ends
    
76. end start

复制代码