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'
;以上是表示21年的21个字符串,一共84个字节
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型的数据,一共84个字节
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型的数据,一共42个字节
data ends
table segment
db 21 dup ('year summ ne ?? ')
table ends
codesg segment
start: mov ax,data
mov ds,ax ;数据段给ds,0为年份的起始地址,84为公司总收入的起始地址,168为公司雇员人数的起始地址
mov ax,table
mov es,ax ;表格段给es
mov bx,0 ;把bx视为table每行起点的偏移量,一共21行,每行16给字节,bx+16就是下一行
mov bp,0 ;把bp视为data段中年份的字节个数记录,每+4就是下一年
mov di,0 ;把di视为data段中公司总收入的字节个数记录,每+4就是下一年总收入
mov si,0 ;把si视为data段中公司雇员人数的字节个数记录,每+2就是下一年公司雇员人数
mov cx,21 ;21行所以外层循环21次
s1:push cx ;外层循环次数入栈被保护
mov al,ds:[bp] ;年份依次转移
mov es:[bx+0],al
inc bp
mov al,ds:[bp] ;年份依次转移
mov es:[bx+1],al
inc bp
mov al,ds:[bp] ;年份依次转移
mov es:[bx+2],al
inc bp
mov al,ds:[bp] ;年份依次转移
mov es:[bx+3],al
inc bp
mov al,0 ;制造空格
mov es:[bx+4],al
mov al,ds:[84+di] ;公司总收入依次转移
mov es:[bx+5],al
inc di
mov al,ds:[84+di] ;公司总收入依次转移
mov es:[bx+6],al
inc di
mov al,ds:[84+di] ;公司总收入依次转移
mov es:[bx+7],al
inc di
mov al,ds:[84+di] ;公司总收入依次转移
mov es:[bx+8],al
inc di
mov al,0 ;制造空格
mov es:[bx+9],al
mov al,ds:[168+si] ;公司雇员人数依次转移
mov es:[bx+0ah],al
inc si
mov al,ds:[168+si] ;公司雇员人数依次转移
mov es:[bx+0bh],al
inc si
mov al,0 ;制造空格
mov es:[bx+0ch],al
;计算公司人均收入,因为被除数是34个字节,除数是2个字节,用ax和dx一起
mov ax,es:[bx+5] ;低八位数据给ax
mov dx,es:[bx+7] ;高八位数据给dx
div word ptr es:[bx+0ah];除数是2个字节用word ptr
mov es:[bx+0dh],ax ;把商,也就是人均收入转移进表
mov al,0 ;制造空格
mov es:[bx+0eh],al
add bx,16 ;bx+16到下一行
pop cx ;外层循环次数出栈被检查
dec cx
jcxz s2
jmp s1
s2: mov ax,4c00h
int 21h
codesg ends
end start
由于我发不了图片,我就不打字了,太多了。但是,我验算了前两行,答案都是对的。acsll表只能把年份这个字符串翻译出来,后面的数字是以18进制存储在内存单元里面,只能用小甲鱼老师教的计算器发验证(计算机???我自己验算我自己