王爽汇编语言-实验7(仅使用内存寻址版本)
1.题目
2.代码
assume cs:code,ds:data,ss:stack
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,14430,15257,17800
data ends
table segment
db 21 dup('year summ ne ?? ')
table ends
stack segment
dw 4 dup(0)
dw 4 dup(0)
dw 4 dup(0)
dw 4 dup(0)
stack ends
code segment
start: mov dx,data
mov ds,dx
mov dx,stack
mov ss,dx
mov sp,32
mov dx,table
mov es,dx
mov cx,21
mov bx,0
mov di,21*4*2
mov bp,0
mov si,0
copyData: push cx
;Copy year
push ds:[bx].0
pop es:[bp].0[si]
push ds:[bx].2
add si,2
pop es:[bp].0[si]
;Copy summ
mov ax,ds:[bx+21*4].0
mov dx,ds:[bx+21*4].2
mov si,0
mov es:[bp].5[si],ax
add si,2
mov es:[bp].5[si],dx
;Copy ne
push ds:[di].0
mov si,0
pop es:[bp].10[si]
;Calculate average income
div word ptr ds:[di]
mov es:[bp].13[si],ax
;variant increase
add bx,4
add di,2
add bp,16
pop cx
loop copyData
mov ax,4c00H
int 21H
code ends
end start