实验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