汇编语言 我的试验七 解答答案

无限幻想

assume cs: codesg, ds: data, ss: table
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,24886,50065,97179,140417,197514
dd 345980,590827,803530,118300,184300,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,15527,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 ss, ax
   
    mov bx, 0
    mov bp, 0
    mov si, 0
    mov di, 0
    mov cx, 21
  s:
    push cx ; 将cx值压栈
    mov cx, 4 ;确定内循环次数
s0:
    mov al,[bx+si]
    mov [bp+si], al
    inc si
    loop s0 ;此循环将年份放至指定位置
   
    mov ax, [bx+84]
    mov dx, [bx+86]
    mov ss:[bp+5], ax
    mov ss:[bp+7], dx  ;此步骤将收入放至指定位置
   
    mov ax, [di+168]
    mov ss:[bp+0ah], ax ;此步骤将雇员数放至指定位置
   
    mov ax, [bx+84]
    mov dx, [bx+86]
    div word ptr ds:[di+168]
    mov ss:[bp+0dh], ax ;此步骤将收入与雇员数相除后把商放至指定位置
   
    add bx, 4
    mov si, 0
    add bp, 10h
    add di, 2
    pop cx ;外循环cx值出栈，恢复外循环cx值
    loop s
    mov ax, 4c00h
    int 21h
codesg ends
end start

里面的有一个cx循环压栈，我没有设置栈顶，不知会压到那里，但能够出栈，而程序DEBUG正常，大家讨论下

lukelqz

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,11430,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 ss,ax
mov bx,0
mov bp,0
mov di,0

mov cx,21
s: mov ax,[bx]
mov [bp],ax
mov ax,2[bx]
mov 2[bp],ax ;写入年份

mov ax,84[bx]
mov 5[bp],ax
mov dx,86[bx]
mov 7[bp],dx ;写入收入

div word ptr 168[di]
mov 0dh[bp],ax ;写入人均收入

mov ax,168[di]
mov 0ah[bp],ax ;写入雇员数

add bx,4
add di,2
add bp,10h
loop s

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

寄存器基本和你用的一样。不过写入年份的那个循环可以不要，所以少用个si，就和收入的写法一样。你把人均收入调到雇员数前面，

mov ax, [bx+84]
mov dx, [bx+86]

这一步也可以省了

hyjuncheng888

assume cs:codesg,ds:data,ds:table
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'
        ;以上是表示21年的21个字符串
        dd 16,22,382,1356,2390,8000,16000,24486,50065,97479,140417,197514
        dd 345980,590827,803530,1183000,1843000,2759000,3753000,4649000,5937000
        ;以上是表示21年公司总收入的21个word型数据
        dw 3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5635,8226
        dw 11542,14430,15257,17800
        ;以上是表示21年公司雇员人数的21个word型数据
data ends

table segment
        db 21 dup ('year sume ne ?? ')
table ends

codesg segment
start:        mov ax,data
                        mov ds,ax
                        mov dx,table
                        mov es,dx
                       
                        mov bx,0
                        mov bp,0
                        mov cx,21
        s:                mov ax,ds:[bx]
                        mov es:[bp],ax
                        mov ax,ds:[54h+bx]
                        mov es:[bp+5],ax
                        mov ax,ds:[0a8h+bx]
                        mov es:[bp+0ah],ax
                        add bx,2
                        mov ax,ds:[bx]
                        mov es:[bp+2],ax
                        mov ax,ds:[54h+bx]
                        mov es:[bp+7],ax
                        add bx,2       
                        add bp,0010h
                        loop s
                        mov cx,21
                        mov bx,0
                        mov bp,0
        s1:        mov dx,es:[bp+07h]
                        mov ax,es:[bp+5h]
                        mov bx,es:[bp+0ah]
                        div bx
                        mov es:[bp+0dh],ax
                        add bp,0010h
                        loop s1
                       
                        mov ax,4c00h
                        inc 21h
                        codesg ends
end start

hyjuncheng888

谁帮我再精简一下,下面那个其实可以精简的