今天完成实验七,两天啊,眼睛都花了

wxlOS

assume cs:codesg

data segment
        db '1975','1976','1977','1978','1979','1980','1981','1982','1983','1984','1985','1986'
        db '1987','1988','1989','1990','1991','1992','1993','1994','1995'
        ;以上是21的21个字符串 0-53H
        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个dword型数据 54H-0A7H
        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型数据 0A8H-0D0H
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 ;第二个数据段可用es额外段寄存器
               
                mov bx, 0
                mov si, 0
                mov di, 0
                mov cx, 21 ;因为循环21次
               
s:                mov ax, ds:0A8H+[si]
                mov es:[di+10], ax ;雇员人数
               
                mov ax, 54H+[bx]
                mov dx, 54H+[bx+2]
                mov es:[di+5], ax
                mov es:[di+7], dx ;每年的总收入
               
                div word ptr ds:0A8H+[si]
                mov es:[di+13], ax
                add si, 2 ;人均收入
               
                ;这样除了年份以外的数据都已经复制好了
                mov al, [bx]
                mov es:[di+0], al
                inc bx
                mov al, [bx]
                mov es:[di+1], al
                inc bx
                mov al, [bx]
                mov es:[di+2], al
                inc bx
                mov al, [bx]
                mov es:[di+3], al
                inc bx ;年份
               
                add di, 16
               
                loop s
               
                mov ax, 4C00H
                int 21H
codesg ends
end start

wxlOS

昨天半夜突然有这个想法。所以尝试下。想了两天。打了几张草稿纸，总有靠自己搞定了。。我是反着覆盖的。先雇员。再平均值，再总收入。最后才是年份

yzsqz001

半夜起来，真佩服楼主的学习精神