王爽 著《汇编语言》（第3版）：课程设计1

assume cs:code
data segment
	;第一段数据，偏移地址为0，本段一共4*21=84字节
	db '1975','1976','1977','1978','1979','1980','1981','1982','1983'
	db '1984','1985','1986','1987','1988','1989','1990','1991','1992'
	db '1993','1994','1995'
	
	;第二段数据，偏移地址为54H（前面有84字节），本段一共4*21=84字节
	dd 16,22,382,1356,2390,800,16000,24486,50065,97479,140417,197514
	dd 345980,590827,803530,1183000,1843000,2759000,3753000,4649000,593700
	
	;第三段数据，偏移地址为A8H（前面一共84+84字节）
	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

;人均收入计算结果
res segment
	dw 21 dup (0)
res ends

;32位除法计算结果临时存放空间
divtemp segment
	dw 8 dup (0)
divtemp ends

;处理显示字符串临时存放空间
strtemp segment
	db 16 dup (0)
strtemp ends

code segment
start:	mov ax,data
		mov ds,ax
		
		call mycls	;清屏
		call calres	;计算人均收入
		call show	;显示数据
		
		mov ax,4C00H
		int 21H

;清屏
mycls:	mov ax,0B800H
		mov es,ax
		mov cx,25	;屏幕显示共25行
		mov bx,0
		
c_s1:	push cx		;临时保存行偏移
		mov cx,80	;每行80个字符
		mov di,0
		
c_s2:	mov al,20H	;显示空格
		mov ah,07H	;黑底白字
		mov es:[bx+di],ax
		add di,2
		loop c_s1

		add bx,0A0H	;每行160个字节
		pop cx		;取回临时保存的行偏移
		loop c_s2:
		ret

;计算人均收入
calres:	mov ax,res
		mov es,ax
		mov cx,21
		mov si,0
		mov di,0

		;读取第二段数据作为被除数，第三段数据为除数
		;进行32位除法运算
cals:	mov ax,ds:[54H+di]		;低16位放ax
		mov dx,ds:[54H+2+di]	;高16位放dx
		mov bx,ds:[0A8H+si]		;除数
		div bx
		mov es:[si],ax			;商ax存入结果段，余数dx不采用
		
		add di,4				;dd数据段每次偏移+4
		add si,2				;dw数据段每次偏移+2
		loop cals
		ret

;处理数据并显示到屏幕
show:	mov ax,0B800H
		mov es,ax

		;年份
		mov cx,21
		mov si,0
		mov bx,0

ys1:	push cx
		mov cx,4
		mov di,0
		
		;读取第一段数据
ys2:	mov al,ds:[si]			;db类型数据，直接显示
		mov ah,07H				;控制背景颜色和字色
		mov es:[bx+4+di],ax		;控制显示位置，每行开始偏移2个字符的位置
		inc si
		add di,2
		loop ys2
		
		add bx,0A0H				;换行偏移0A0H，160个字节
		pop cx
		loop ys1

		;收入
		mov cx,21
		mov si,0
		mov bx,0
		
		;读取第二段数据
ins1:	push cx
		push si					;字符串偏移
		push bx					;行偏移
		mov ax,ds:[54H+si]		;偏移54H，低16位数据
		mov dx,ds:[54H+2+si]	;高16位数据
		call dtoc				;处理32位数据显示
		
		pop bx					;取回行偏移
		mov di,0
		mov si,0

ins2:	mov ax,strtemp			;存放显示数据的临时空间
		mov es,ax
		mov dl,es:[di]			;取出转化成字符的数据
		mov dh,07H
		inc di					;db类型偏移增加1
		mov cl,dl				;读取到00为结尾
		mov ch,0
		jcxz in_ok				;读取完毕执行
		
		mov ax,0B800H
		mov es,ax
		mov es:[bx+24+si],dx	;第二段数据显示偏移24字节	
		add si,2				;dw类型数据每次偏移增加2
		jmp ins2

in_ok:	add bx,0A0H			;换行偏移0A0H，160个字节
		pop si
		add si,4				;dd类型数据每次偏移增加4
		pop cx
		loop ins1

		call clear				;清一下strtemp中的数据

		;人数
		mov cx,21
		mov si,0
		mov bx,0
		
		;读取第三段数据
peos1:	push cx
		push si
		push bx
		
		mov ax,ds:[0A80H+si]	;偏移A80H
		mov dx,0				;处理32位数据显示，由于第三段数据是dw类型，所以高16位都是0
		call dtoc
		pop bx
		mov di,0
		mov si,0

peos2:	mov ax,strtemp
		mov es,ax
		mov dl,es:[di]
		mov dh,07H
		inc di
		mov cl,dl
		mov ch,0
		jcxz peo_ok
	
		mov ax,0B800H
		mov es,ax
		mov es:[bx+44+si],dx
		add si,2
		jmp peos2

peo_ok:	add bx,0A0H
		pop si
		add si,2
		pop cx
		loop peos1

		call clear
		
		;人均收入
		mov cx,21
		mov si,0
		mov bx,0
		mov ax,res		;读取计算结果段
		mov ds,ax
		
avers1：push cx
		push si
		push bx

		mov ax,ds:[si]
		mov dx,0
		call dtoc
		pop bx
		mov di,0
		mov si,0

avers2:	mov ax,strtemp
		mov es,ax
		mov dl,es:[di]
		mov dh,07H
		inc di
		mov cl,dl
		mov ch,0
		jcxz aver_ok
		
		mov ax,0B800H
		mov es,ax
		mov es:[bx+64+si],dx
		add si,2
		jmp avers2

aver_ok:add bx,0A0H
		pop si
		add si,2
		pop cx
		loop avers1
		ret

;处理显示数据
dtoc:	mov di,0
dts:	jcxz dt_ok
		;mov ax,ax
		;mov dx,dx
		mov cx,0AH
		call divdw

		add cx,30H		;显示ASCII字符加30H
		push cx
		inc di
		mov cx,ax
		jmp dts

dt_ok:	mov cx,di
		mov ax,strtemp
		mov es,ax
		mov di,0

dt_oks:	pop ax
		mov es:[di],al
		inc di
		loop dt_oks
		ret

;不会产生溢出的除法运算
;X/N=int(H/N)*65536+(rem(H/N)*65536+L)/N
;L被除数低16位
;H被除数高16位
divdw:	push ax		;被除数低16位，栈地址偏移[bp+6]，L
		push dx		;被除数高16位，栈地址偏移[bp+4]，H
		push cx		;除数，栈地址偏移[bp+2]，N
		push bp
		mov bp,sp
		
		mov ax,divtemp
		mov es,ax
		
		;H/N进行32位除法运算，高16位放0
		mov ax,[bp+4];H
		mov dx,0
		mov bx,[bp+2];N
		div bx
		
		;商在ax，余数在dx
		;ax（dx）*65536相当于ax（dx）放高16位，低16位为0
		mov word ptr es:[0],0		;int(H/N)*65536的结果的低16位
		mov es:[2],ax				;int(H/N)*65536的结果的高16位
		mov word ptr es:[4],0		;rem(H/N)*65536的结果的低16位
		mov es:[6],dx				;rem(H/N)*65536的结果的的高16位

		;rem(H/N)*65536的结果+L,即rem(H/N)*65536的结果的低16位+L
		;由于rem(H/N)*65536的结果的低16位为0,只需要mov L即可
		mov ax,[bp+6]
		mov es:[4],ax
		
		;计算(rem(H/N)*65536+L)/N，32位除法
		mov ax,es:[4]		;低16位
		mov ds,es:[6]		;高16位
		mov bx,[bp+2]		;N
		div bx
		;处理计算结果
		mob cx,dx;余数放cx
		add es:[0],ax		;商（16位）与int(H/N)*65536的结果相加
		mov dx,es:[2]		;最终结果的高16位放dx
		mov ax,es:[0]		;最终结果的低16位放ax
		pop bp
		pop bx
		pop bx
		pop bx				;清空传入栈的数据，有没有更好的办法？
		ret

;清空strtemp
clear:	mov ax,strtemp
		mov es,ax
		mov cx,16
		mov di,0
cles:	mov byte ptr es:[di],0
		inc di
		loop cles
		ret

code ends
end start

问题：
1.显示数据的年份、收入、人数、人均四个段的代码类似，应该考虑用个通用的方法解决。循环？

2.栈中数据使用完后的处理方法。