实验7 答案 小甲鱼版本
本帖最后由 Mr.HO 于 2019-6-5 23:28 编辑assume cs:codesg,ds:datasg,es:tablesg
datasg 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'
;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
;54H-A7H
dw 3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5635,8226
dw 11542,14430,15257,17800
;A8H-D1H
datasg ends
tablesg segment
db 21 dup ('year summ ne ?? ')
tablesg ends
codesg segment
start:mov ax,datasg
mov ds,ax
mov ax,tablesg
mov es,ax
mov bx,0;bx定位DW数据类型
mov si,0;si定位W数据类型
mov di,0
mov cx,21
s:mov al,
mov es:,al
mov al,
mov es:,al
mov al,
mov es:,al
mov al,
mov es:,al;复制年份
mov ax,
mov dx,
mov es:,ax
mov es:,dx;复制收入
mov ax,
mov es:,ax;复制雇员
mov ax,
mov dx,
div word ptr ds:
mov es:,ax;复制人均收入
add bx,4H
add si,2H
add di,10H
loop s
mov ax,4C00H
int 21H
codesg ends
end start
后面是压缩过的代码
assume cs:codesg,ds:datasg,es:tablesg
datasg 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'
;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
;54H-A7H
dw 3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5635,8226
dw 11542,14430,15257,17800
;A8H-D1H
datasg ends
tablesg segment
db 21 dup ('year summ ne ?? ')
tablesg ends
codesg segment
start:mov ax,datasg
mov ds,ax
mov ax,tablesg
mov es,ax
mov bx,0;bx定位DW数据类型
mov si,0;si定位W数据类型
mov di,0
mov cx,21
s:mov ax,
mov es:,ax
mov ax,
mov es:,ax;复制年费
mov ax,
mov dx,
mov es:,ax
mov es:,dx;复制收入
div word ptr ds:
mov es:,ax;复制人均收入
mov ax,
mov es:,ax;复制雇员
add bx,4H
add si,2H
add di,10H
loop s
mov ax,4C00H
int 21H
codesg ends
end start
页:
[1]