马上注册,结交更多好友,享用更多功能^_^
您需要 登录 才可以下载或查看,没有账号?立即注册
x
先把 源程序贴上,好长啊 。 问题放到自己的沙发上,这样看起来会清晰点。
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'
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 11452,14430,15257,17800
datasg ends
tablesg segment
db 21 dup ('year summ ne ?? ')
tablesg ends
codesg segment
start:
mov ax,datasg
mov ds,ax
mov si,0
mov ax,tablesg
mov es,ax
mov di,0
mov bx,0
mov cx,21
s: mov ax,ds:[si]
mov es:[di],ax
mov ax,ds:[si+2]
mov es:[di+2],ax
mov ax,ds:[si+54h]
mov es:[di+5],ax
mov dx,ds:[si+56h]
mov es:[di+7],dx
mov bx,ds:[si+0a8h]
mov es:[di+10],bx
div word ptr bx
mov es:[di+13],ax
add si,4
add di,16
loop s
mov ax,4c00h
int 21h
codesg ends
end start
|