实验7 答案小甲鱼版本

Mr.HO · 发表于 2019-6-5 23:06:48

马上注册，结交更多好友，享用更多功能^_^

您需要登录才可以下载或查看，没有账号？立即注册

x

本帖最后由 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,[bx]
   mov es:[di],al
   mov al,[bx+1H]
   mov es:[di+1H],al
   mov al,[bx+2H]
   mov es:[di+2H],al
   mov al,[bx+3H]
   mov es:[di+3H],al;复制年份

   mov ax,[bx+54H]
   mov dx,[bx+56H]

   mov es:[di+5H],ax
   mov es:[di+7H],dx;复制收入

   mov ax,[si+0A8H]

   mov es:[di+0AH],ax;复制雇员

   mov ax,[bx+54H]
   mov dx,[bx+56H]

   div word ptr ds:[si+0A8H]
      mov es:[di+0DH],ax;复制人均收入

   add bx,4H
   add si,2H
   add di,10H

   loop s

      mov ax,4C00H
   int 21H
codesg ends
end start

Mr.HO · 发表于 2019-6-5 23:29:35

后面是压缩过的代码
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,[bx]
   mov es:[di],ax
   mov ax,[bx+2H]
   mov es:[di+2H],ax;复制年费

   mov ax,[bx+54H]
   mov dx,[bx+56H]

   mov es:[di+5H],ax
   mov es:[di+7H],dx;复制收入

   div word ptr ds:[si+0A8H]
   mov es:[di+0DH],ax;复制人均收入

   mov ax,[si+0A8H]
   mov es:[di+0AH],ax;复制雇员

   add bx,4H
   add si,2H
   add di,10H

   loop s

   mov ax,4C00H
   int 21H
codesg ends
end start

账号		自动登录	找回密码
密码			立即注册

[汇编作业] 实验7 答案 小甲鱼版本

马上注册，结交更多好友，享用更多功能^_^

[汇编作业] 实验7 答案小甲鱼版本