|
#2
zklhp2012-08-14 19:41
|
俺想了半日 还是不能独立完成 只好去参考答案了
不过经过数次参详 貌似理解了不少 发现王哥真是牛人啊
但是还是有几个地方不甚理解 而且我原原本本的copy上答案的代码后MASMPlus 和 debug调试
都无法显示最终效果
[local]1[/local]
下面是程序的源代码 比较长 不过程序都有比较多的注释 而且两个子函数基本可以不看
程序代码：assume cs:code,ds:data,es:table
table 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,2795000,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
dw 5,3,42,104,85,210,123,111,105,125,140,136,153,211,199,209,224,239
dw 260,304,333
table ends
data segment
db 32 dup (0)
data ends
code segment
start: mov ax,data
mov ds,ax
mov ax,table
mov es,ax
mov bx,0
mov si,0
mov di,0
mov cx,21
mov dh,2
mov dl,30
g: push cx
push dx
mov ax,es:[bx]
mov [si],ax
mov ax,es:[bx].2
mov [si].2,ax ;年份入ds:si
add si,6
mov ax,es:[bx].84
mov dx,es:[bx].86
call dtoc2 ;收入转成十进制字符入ds:si
add si,10
mov ax,es:[di].168
mov dx,0
call dtoc2 ;人员数转成十进制字符入ds:si
add si,6
mov ax,es:[di].210
mov dx,0
call dtoc2 ;人均收入转成十进制字符入ds:si
mov si,0 ;设置ds:si指向需显示字符首地址
b: mov cx,29 这里有个问题 b：应该是多余的吧 程序里没有对他的跳转
c: push cx 为什么我在MASMPlus里使用c做一个段不行 ？改成其他的就可以比如n
mov cl,[si] 即便是该了以后 程序能运行但是无法在屏幕上显示想要的效果?
jcxz f ;(ds:si)=0转到f执行
d: inc si
pop cx
loop c
inc si
mov al,0
mov [si],al ;设置结尾符0
mov si,0 ;设置ds:si指向需显示字符首地址
pop dx
mov cl,2
call show_str
add bx,4 ;dword数据指向下一数据单元
add di,2 ;word数据指向下一数据单元
add dh,1 ;指向显存下一行
pop cx
loop g
mov ax,4c00h
int 21h
f: mov al,20h
mov [si],al ;(ds:si)=0的数据改成空格
jmp d
;名称：dtoc2
;功能：将dword型数据转变为表示十进制的字符串，字符串以0为结尾符。
;参数：(ax)=dword型数据的低16位；
; (dx)=dword型数据的高16位；
; ds:si指向字符串首地址。
;返回：无。
dtoc2:
push ax
push bx
push cx
push dx
push si
push di
mov di,0
d20: mov cx,10 ;除数为10
call divdw
add cx,30h ;余数+30h，转为字符
push cx ;字符入栈
inc di ;记录字符个数
mov cx,ax
jcxz d21 ;低位商=0时，转到d21检测高位商
jmp d20
d21: mov cx,dx
jcxz d22 ;高低位商全=0时，转到d22执行
jmp d20
d22: mov cx,di
d23: pop ax ;字符出栈
mov [si],al
inc si ;ds:si指向下一单元
loop d23
mov al,0
mov [si],al ;设置结尾符0
pop di
pop si
pop dx
pop cx
pop bx
pop ax
ret
;名称：divdw
;功能：进行不会产生溢出的除法运算，被除数为dword型，除数为word型，结果为dword型。
;参数：(ax)=dword型数据的低16位；
; (dx)=dword型数据的高16位；
; (cx)=除数。
;返回：(dx)=结果的高16位；
; (ax)=结果的低16位；
; (cx)=余数。
divdw:
push si
push bx
push ax
mov ax,dx
mov dx,0
div cx ;被除数的高位/cx
mov si,ax
pop ax
div cx ;(被除数高位的商+低位)/cx
mov cx,dx ;余数入cx
mov dx,si ;高位的商入dx
pop bx
pop si
ret
;名称：show_str
;功能：在指定的位置，用指定的颜色，显示一个用0结束的字符串。
;参数：(dh)=行号(取值范围0~24)；
; (dl)=列号(取值范围0~79)；
; (cl)=颜色；
; ds:si指向字符串的首地址。
;返回：无。
show_str:
push ax
push bx
push es
push si
mov ax,0b800h
mov es,ax
mov ax,160
mul dh
mov bx,ax ;bx=160*dh
mov ax,2
mul dl ;ax=dl*2
add bx,ax ;mov bx,(160*dh+dl*2)设置es:bx指向显存首地址
mov al,cl ;把颜色cl赋值al
mov cl,0
show0:
mov ch,[si]
jcxz show1 ;(ds:si)=0时，转到show1执行
mov es:[bx],ch
mov es:[bx].1,al
inc si ;ds:si指向下一个字符地址
add bx,2 ;es:bx指向下一个显存地址
jmp show0
show1:
pop si
pop es
pop bx
pop ax
ret
code ends
end start
// 话说论坛的字体变色有很大的改进啊table 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,2795000,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
dw 5,3,42,104,85,210,123,111,105,125,140,136,153,211,199,209,224,239
dw 260,304,333
table ends
data segment
db 32 dup (0)
data ends
code segment
start: mov ax,data
mov ds,ax
mov ax,table
mov es,ax
mov bx,0
mov si,0
mov di,0
mov cx,21
mov dh,2
mov dl,30
g: push cx
push dx
mov ax,es:[bx]
mov [si],ax
mov ax,es:[bx].2
mov [si].2,ax ;年份入ds:si
add si,6
mov ax,es:[bx].84
mov dx,es:[bx].86
call dtoc2 ;收入转成十进制字符入ds:si
add si,10
mov ax,es:[di].168
mov dx,0
call dtoc2 ;人员数转成十进制字符入ds:si
add si,6
mov ax,es:[di].210
mov dx,0
call dtoc2 ;人均收入转成十进制字符入ds:si
mov si,0 ;设置ds:si指向需显示字符首地址
b: mov cx,29 这里有个问题 b：应该是多余的吧 程序里没有对他的跳转
c: push cx 为什么我在MASMPlus里使用c做一个段不行 ？改成其他的就可以比如n
mov cl,[si] 即便是该了以后 程序能运行但是无法在屏幕上显示想要的效果?
jcxz f ;(ds:si)=0转到f执行
d: inc si
pop cx
loop c
inc si
mov al,0
mov [si],al ;设置结尾符0
mov si,0 ;设置ds:si指向需显示字符首地址
pop dx
mov cl,2
call show_str
add bx,4 ;dword数据指向下一数据单元
add di,2 ;word数据指向下一数据单元
add dh,1 ;指向显存下一行
pop cx
loop g
mov ax,4c00h
int 21h
f: mov al,20h
mov [si],al ;(ds:si)=0的数据改成空格
jmp d
;名称：dtoc2
;功能：将dword型数据转变为表示十进制的字符串，字符串以0为结尾符。
;参数：(ax)=dword型数据的低16位；
; (dx)=dword型数据的高16位；
; ds:si指向字符串首地址。
;返回：无。
dtoc2:
push ax
push bx
push cx
push dx
push si
push di
mov di,0
d20: mov cx,10 ;除数为10
call divdw
add cx,30h ;余数+30h，转为字符
push cx ;字符入栈
inc di ;记录字符个数
mov cx,ax
jcxz d21 ;低位商=0时，转到d21检测高位商
jmp d20
d21: mov cx,dx
jcxz d22 ;高低位商全=0时，转到d22执行
jmp d20
d22: mov cx,di
d23: pop ax ;字符出栈
mov [si],al
inc si ;ds:si指向下一单元
loop d23
mov al,0
mov [si],al ;设置结尾符0
pop di
pop si
pop dx
pop cx
pop bx
pop ax
ret
;名称：divdw
;功能：进行不会产生溢出的除法运算，被除数为dword型，除数为word型，结果为dword型。
;参数：(ax)=dword型数据的低16位；
; (dx)=dword型数据的高16位；
; (cx)=除数。
;返回：(dx)=结果的高16位；
; (ax)=结果的低16位；
; (cx)=余数。
divdw:
push si
push bx
push ax
mov ax,dx
mov dx,0
div cx ;被除数的高位/cx
mov si,ax
pop ax
div cx ;(被除数高位的商+低位)/cx
mov cx,dx ;余数入cx
mov dx,si ;高位的商入dx
pop bx
pop si
ret
;名称：show_str
;功能：在指定的位置，用指定的颜色，显示一个用0结束的字符串。
;参数：(dh)=行号(取值范围0~24)；
; (dl)=列号(取值范围0~79)；
; (cl)=颜色；
; ds:si指向字符串的首地址。
;返回：无。
show_str:
push ax
push bx
push es
push si
mov ax,0b800h
mov es,ax
mov ax,160
mul dh
mov bx,ax ;bx=160*dh
mov ax,2
mul dl ;ax=dl*2
add bx,ax ;mov bx,(160*dh+dl*2)设置es:bx指向显存首地址
mov al,cl ;把颜色cl赋值al
mov cl,0
show0:
mov ch,[si]
jcxz show1 ;(ds:si)=0时，转到show1执行
mov es:[bx],ch
mov es:[bx].1,al
inc si ;ds:si指向下一个字符地址
add bx,2 ;es:bx指向下一个显存地址
jmp show0
show1:
pop si
pop es
pop bx
pop ax
ret
code ends
end start
看官们看下 我的编译错误 放在沙发上吧 这里貌似传不了了
[local]1[/local]
[ 本帖最后由 有容就大 于 2012-8-14 19:53 编辑 ]
