|
主题 : : 刚写好试验7程序,编译连接都没问题,大家帮忙改进一下? [待解决] |
回复[ 1次 ]
点击[ 441次 ] | |
荣誉值:0
信誉值:0
注册日期:2008-06-16 12:59 |
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"
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
codesg segment
start:mov ax,data
mov ds,ax
mov ax,table
mov es,ax
mov cx,21
mov bx,0
mov si,0
mov di,0
s:mov ax,[bx]
mov es:[si],ax
mov ax,[bx+2]
mov es:[si+2],ax
mov ax,[bx+54h]
mov es:[si+5],ax
mov dx,[bx+54h+2]
mov es:[si+7],dx
div word ptr [di+0a8h]
mov es:[si+13],ax
mov ax,[di+0a8h]
mov es:[si+10],ax
add bx,4
add di,2
add si,10h
loop s
mov ax,4c00h
int 21h
codesg ends
end start | | |