实验7 寻址方式在结构化数据访问中的应用

PS：呼~ :搞了1个多小时。

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 sumn ne ??')
tablesg ends
codesg segment
start: mov ax,datasg
mov ds,ax
mov ax,tablesg
mov es,ax

mov bx,0
mov si,84
mov di,168
mov bp,0;
mov cx,21
s: mov ax,ds:[bp]
mov es:[bx],ax
mov ax,ds:[bp+2]
mov es:[bx+2],ax

add bx,4

inc bx

mov ax,[si]
mov dx,[si+2]
mov es:[bx],ax
add bx,2
mov es:[bx],dx
add bx,2

inc bx

push ax
mov ax,[di]
mov es:[bx],ax
pop ax
add bx,2

inc bx

div word ptr [di]
mov es:[bx],ax
add bx,2

add bp,4
add si,4
add di,2
loop s

mov ax,4c00h
int 21h
codesg ends
end start