[已解决]程序设计一,字符写入问题,求大神告知下

泡泡吧

问题: 程序设计一,为何在指定长度写入的数据还会导致文字错乱? 代码如下:

1. assume cs:codesg ,ss:data,ds:table
   
2. 
   
3. data segment   
   
4.    db '1975','1976','1977','1978','1979','1980','1981','1982','1983'   
   
5.    db '1984','1985','1986','1987','1988','1989','1990','1991','1992'   
   
6.    db '1993','1994','1995'
   
7.    ;数组格式存放
   
8.    dd 16,22,382,1356,2390,8000,16000,24486,50065,97479,140417,197514   
   
9.    dd 345980,590827,803530,1183000,1843000,2759000,3753000,4649000,5937000     
   
10.    ;数组格式存放        
    
11.    dw 3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5635,8226   
    
12.    dw 11452,14430,15257,17800  
    
13.    ;数组格式存放  
    
14. data ends
    
15. 
    
16. table segment
    
17.   db 42 dup (0)
    
18. table ends
    
19. 
    
20. 
    
21. codesg segment       
    
22. start:        mov bx,0
    
23.                 mov di,0
    
24.                 mov dx,0
    
25.                 mov cx,15h
    
26.                 mov ax,table
    
27.                 mov ds,ax
    
28.                 mov ax,data
    
29.                 mov ss,ax
    
30. s:                mov si,0
    
31.                 mov ax,word ptr ss:[bx]               
    
32.                 mov word ptr ds:[si],ax
    
33.                
    
34.                 mov ax,word ptr ss:[bx].2
    
35.                 mov word ptr ds:[si].2,ax ;年份装入ds:si中
    
36.                 add si,6
    
37.                
    
38.                 push dx
    
39.                 mov ax, word ptr ss:[bx].54h
    
40.                 push ax
    
41.                 mov ax, word ptr ss:[bx].56h
    
42.                 push ax
    
43.                 mov ax,0ah
    
44.                 push ax
    
45.                 call dtoc ;收入转入ds:si
    
46.                 add si,6
    
47.                
    
48.                 mov ax,word ptr ss:[di].0a8h
    
49.                 push ax
    
50.                 mov ax,0
    
51.                 push ax
    
52.                 mov ax, 0ah
    
53.                 push ax
    
54.                 call dtoc ;人员转入ds:si中
    
55.                 add si,6
    
56.                
    
57.                
    
58.                 push cx
    
59.                 mov ax, word ptr ss:[bx].54h
    
60.                 push ax
    
61.                 mov ax, word ptr ss: [bx].56h
    
62.                 push ax
    
63.                 mov ax,word ptr ss:[di].0a8h
    
64.                 push ax
    
65.                 call divdw  ;平均收入转入ds:si中
    
66.                 pop cx
    
67.                 push ax
    
68.                 push dx
    
69.                 mov ax,0ah
    
70.                 push ax
    
71.                 call dtoc
    
72.                 add si,6
    
73.                
    
74.                
    
75.                 mov si,0
    
76.                 mov ax,24h
    
77.                 push ax
    
78.                 call dtoc1 ;将ds:si中的字符串0转为空格
    
79.                
    
80.                 pop dx
    
81.                 mov ax,ds
    
82.                 push ax
    
83.                 mov ax,02
    
84.                 push ax
    
85.                 push dx
    
86.                 mov ax,0
    
87.                 push ax
    
88.                 call show1; 将数值显示在屏幕上               
    
89.                
    
90.                
    
91.                 inc dx
    
92.                 add di,2
    
93.                 add bx,4
    
94.                
    
95.                 loop s
    
96.                
    
97.                        
    
98.                 mov ax,4c00h
    
99.                 int 21h       
    
100.                
     
101. 
     
102. ;功能名: dtoc1
     
103. ;说明: 将指定长度ds:si中的字符串0转为空格
     
104. ;参数: ax=长度,ds:si指向字符串首地址
     
105. ;结果: (ds:si)指向字符串的首地址,字符串以0结尾               
     
106. ;源码始
     
107. dtoc1:        mov bp,sp
     
108.                 push cx
     
109.                 mov cx,[bp+2]
     
110. e:                push cx
     
111.                 mov cl,ds:[si]
     
112.                 jcxz b
     
113. c:                inc si
     
114.                 pop cx
     
115.                 loop e
     
116.                 mov al,0
     
117.                 mov ds:[si],al
     
118.                 pop cx
     
119.                 ret 2
     
120.                
     
121. b:                mov al,20h
     
122.                 mov ds:[si],al
     
123.                 jmp short c
     
124. ;源码终
     
125. ;功能名: dtoc
     
126. ;说明: 将word型数据转变为表示十进制数的字串符,字符串以0结尾,最大转换15byte字符
     
127. ;参数: ax=dword型数据低16位
     
128. ;参数: dx=dword型数据高16位
     
129. ;参数: bx=word型数据,如果除数为0表示求(dx)(ax)/0ah十进制数的字串符,非0表示进行divdw转变为十进制数的字串符
     
130. ;结果: (ds:si)指向字符串的首地址
     
131. ;源码始
     
132. dtoc:        push dx
     
133.                 push di
     
134.                 push cx               
     
135.                 mov bp,sp
     
136.                 mov di,0
     
137.                 mov ax,[bp+0ch] ;(ax)
     
138.                 mov dx,[bp+0ah] ;(dx)
     
139. dtocs:        mov cx,[bp+8] ;型数据,如果除数为0表示求(dx)(ax)/0ah十进制数的字串符,非0表示进行divdw转变为十进制数的字串符
     
140.                 jcxz dtocz
     
141.                 push ax     ;非0表示进行divdw转变为十进制数的字串符
     
142.                 push dx
     
143.                 push cx
     
144. dtocc:        call divdw
     
145.                 jmp short dtoce
     
146. dtocz:        push ax
     
147.                 push dx
     
148.                 mov cx,0ah
     
149.                 push cx
     
150.                 jmp short dtocc
     
151. dtoce:        add cl,30h
     
152.                 mov ch,0               
     
153.                 push cx
     
154.                 inc di
     
155.                 mov cx,dx
     
156.                 jcxz dtocr  ;如果 余数为0  
     
157. dtocr:        mov cx,ax
     
158.                 jcxz dout
     
159.                 jmp short dtocs ;如果商不为零继续除
     
160.                
     
161. dout:         mov cx,di
     
162. dtoct:        pop ax
     
163.                 mov byte ptr ds:[si],al ;写入[ds:si]中
     
164.                 inc si
     
165.                 loop dtoct
     
166.                 pop cx       
     
167.                 pop di
     
168.                 pop dx
     
169.                 ret 6
     
170. ;源码终
     
171. ;功能名: divdw
     
172. ;说明: 进行不会产生溢出的除法运算,被除数为dword型,除数为word型,结果为dword型
     
173. ;参数: push ax=dword型数据低16位
     
174. ;参数: push dx=dword型数据高16位
     
175. ;返回: dx=结果的高16位,ax=结果的低16位 cx=余数
     
176. ;源码始
     
177. divdw:  
     
178.                 push si
     
179.                 mov bp,sp
     
180.                 mov ax,[bp+6] ;高16位数据
     
181.                 mov dx,0
     
182.                 mov cx,[bp+4]
     
183.                 div cx      
     
184.                 mov si,ax
     
185.                 mov ax,[bp+8]
     
186.                 div cx       
     
187.                 mov cx,dx
     
188.                 mov dx,si
     
189.                 pop si
     
190.                
     
191.                 ret        6                       
     
192. ;源码终
     
193. 
     
194. ;功能名: show1
     
195. ;说明: 向屏幕显示文本,以零结尾文本
     
196. ;参数: push ax 文本,以零结尾
     
197. ;参数: push ax 文本颜色,
     
198. ;参数: push ax 行,从零开始 范围(0-24)
     
199. ;参数: push ax 列,从零开始 范围(0-80),偶数递增
     
200. ;结果: 向指定行显示指定文本
     
201. ;源码始:
     
202. show1:  push di
     
203.                 push bx
     
204.                 push cx
     
205.                 push si
     
206.                 push dx
     
207.                 mov bp,sp
     
208.                 mov ax,[bp+12h]
     
209.                 mov ds,ax
     
210.                 mov ax,0b800h  ;屏幕显示地址
     
211.         mov es,ax
     
212.                 mov ax,[bp+0eh] ;行
     
213.                
     
214.                 add ax,4
     
215.         mov bx,160   ;第一行4*160
     
216.                 mul bx
     
217.         mov bx,ax       
     
218.         mov si,[bp+0ch]
     
219.                 mov di,0
     
220. show_s1:mov cl,ds:[di]     ;ds:[di]指向文本byte单元                 
     
221.                 mov ch,0  
     
222.         jcxz show_s0;如果=0直接返回
     
223.                 mov ch,[bp+10h]      ;颜色
     
224.         mov es:[bx][si],cx ;显示
     
225.         add si,2
     
226.                 inc di
     
227.        
     
228.                
     
229.         loop show_s1
     
230. show_s0:pop dx
     
231.                 pop si
     
232.                 pop cx
     
233.                 pop bx
     
234.                 pop di
     
235.                 ret 8
     
236. ;源码终
     
237. 
     
238. 
     
239. 
     
240. codesg ends
     
241. end  start

复制代码

最佳答案

月排行榜 / 总排行榜

泡泡吧

2017-1-10 07:05:45

泡泡吧 发表于 2017-1-10 05:46
自己解决了,终于知道问题出现在哪里了.dtoc 中

;功能名: dtoc

精简后代码如下:

1. assume cs:codesg ,ss:data,ds:table
   
2. 
   
3. data segment   
   
4.    db '1975','1976','1977','1978','1979','1980','1981','1982','1983'   
   
5.    db '1984','1985','1986','1987','1988','1989','1990','1991','1992'   
   
6.    db '1993','1994','1995'
   
7.    ;年份字符串数组
   
8.    dd 16,22,382,1356,2390,8000,16000,24486,50065,97479,140417,197514   
   
9.    dd 345980,590827,803530,1183000,1843000,2759000,3753000,4649000,5937000     
   
10.    ;年总收入数组        
    
11.    dw 3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5635,8226   
    
12.    dw 11452,14430,15257,17800  
    
13.    ;年人总数数组
    
14. data ends
    
15. 
    
16. table segment
    
17.   db 42 dup (0)
    
18. table ends
    
19. 
    
20. 
    
21. codesg segment       
    
22. start:        mov bx,0
    
23.                 mov di,0
    
24.                 mov dx,0
    
25.                 mov cx,15h
    
26.                 mov ax,table
    
27.                 mov ds,ax
    
28.                 mov ax,data
    
29.                 mov ss,ax
    
30. s:                mov si,0
    
31.                 mov ax,word ptr ss:[bx]               
    
32.                 mov word ptr ds:[si],ax
    
33.                
    
34.                 mov ax,word ptr ss:[bx].2
    
35.                 mov word ptr ds:[si].2,ax ;年份装入ds:si中
    
36.                 add si,6
    
37.                
    
38.                 push dx ;入栈显示行
    
39.                 mov ax, word ptr ss:[bx].54h
    
40.                 push ax
    
41.                 mov ax, word ptr ss:[bx].56h
    
42.                 push ax
    
43.                 call dtoc ;收入转入ds:si
    
44.                 add si,8
    
45.                
    
46.                 mov ax,word ptr ss:[di].0a8h
    
47.                 push ax
    
48.                 mov ax,0
    
49.                 push ax
    
50.                 call dtoc ;人员转入ds:si中
    
51.                 add si,4
    
52.                
    
53.                
    
54.                 push cx ;入栈cx,保存循环次数
    
55.                 mov ax, word ptr ss:[bx].54h
    
56.                 push ax
    
57.                 mov ax, word ptr ss: [bx].56h
    
58.                 push ax
    
59.                 mov cx,word ptr ss:[di].0a8h
    
60.                 call divdw  ;平均收入转入ds:si中
    
61.                 pop cx   ;出栈cx,取出循环次数
    
62.                 push ax
    
63.                 push dx
    
64.                 call dtoc
    
65.                                
    
66.                 mov si,0
    
67.                 mov ax,24h
    
68.                 push ax
    
69.                 call dtoc1 ;将ds:si中的字符串0转为空格
    
70.                
    
71.                 pop dx
    
72.                 mov ax,02 ;颜色
    
73.                 push ax   ;颜色
    
74.                 push dx   ;行
    
75.                 mov ax,0
    
76.                 push ax
    
77.                 call show1; 将数值显示在屏幕上               
    
78.                
    
79.                
    
80.                 inc dx
    
81.                 add di,2
    
82.                 add bx,4
    
83.                
    
84.                 loop s
    
85.                
    
86.                        
    
87.                 mov ax,4c00h
    
88.                 int 21h       
    
89.                
    
90. 
    
91. ;功能名: dtoc1
    
92. ;说明: 将指定长度ds:si中的字符串0转为空格
    
93. ;参数: ax=长度,ds:si指向字符串首地址
    
94. ;结果: (ds:si)指向字符串的首地址,字符串以0结尾               
    
95. ;源码始
    
96. dtoc1:        mov bp,sp
    
97.                 push cx
    
98.                 mov cx,[bp+2] ;将长度赋值给cx
    
99. e:                push cx  ;保存长度
    
100.                 mov cl,ds:[si]  ;获取ds:si字符
     
101.                 jcxz b   ;是否为零,如果为零调到b,进行转为空格
     
102. c:                inc si   ;不为零,ds:si 指向下一个字符
     
103.                 pop cx   ;取出cx,
     
104.                 loop e
     
105.                 mov al,0
     
106.                 mov ds:[si],al;字符串以0结尾
     
107.                 pop cx
     
108.                 ret 2               
     
109. b:                mov al,20h
     
110.                 mov ds:[si],al
     
111.                 jmp short c
     
112. ;源码终
     
113. ;功能名: dtoc
     
114. ;说明: 将word型数据转变为表示十进制数的字串符,字符串以0结尾,最大转换15byte字符
     
115. ;参数: ax=dword型数据低16位
     
116. ;参数: dx=dword型数据高16位
     
117. ;结果: (ds:si)指向字符串的首地址
     
118. ;源码始
     
119. dtoc:        push dx
     
120.                 push di
     
121.                 push cx
     
122.                 mov bp,sp
     
123.                 mov di,0
     
124.                 mov ax,[bp+0ah] ;(ax)
     
125.                 mov dx,[bp+08h] ;(dx)
     
126. dtocz:        push ax
     
127.                 push dx
     
128.                 mov cx,0ah
     
129.                 call divdw  ;进行除法               
     
130.                 add cl,30h  ;余数转为字符串
     
131.                 mov ch,0        ;高位=0       
     
132.                 push cx     ;入栈字符串
     
133.                 inc di      ;记录字符个数
     
134.                 mov cx,dx   
     
135.                 jcxz dtocr  ;如果 余数为0  
     
136. dtocr:        mov cx,ax   ;如果商为零,跳到dtoct ,跳出循环,
     
137.                 jcxz dout
     
138.                 mov cx,bx; 将被除数赋值给cx
     
139.                 jmp short dtocz ;如果商不为零继续除               
     
140. dout:         mov cx,di
     
141. dtoct:        pop ax
     
142.                 mov byte ptr ds:[si],al ;写入[ds:si]中
     
143.                 inc si
     
144.                 loop dtoct
     
145.                 pop cx       
     
146.                 pop di
     
147.                 pop dx
     
148.                 ret 4
     
149. ;源码终
     
150. ;功能名: divdw
     
151. ;说明: 进行不会产生溢出的除法运算,被除数为dword型,除数为word型,结果为dword型
     
152. ;参数: push ax=dword型数据低16位
     
153. ;参数: push dx=dword型数据高16位
     
154. ;参数: cx=word型数据被除数
     
155. ;返回: dx=结果的高16位,ax=结果的低16位 cx=余数
     
156. ;源码始
     
157. divdw:  
     
158.                 push si
     
159.                 mov bp,sp
     
160.                 mov ax,[bp+4] ;高16位数据
     
161.                 mov dx,0
     
162.                 div cx      
     
163.                 mov si,ax  ;保存高位商
     
164.                 mov ax,[bp+6] ;低16位数据
     
165.                 div cx       
     
166.                 mov cx,dx
     
167.                 mov dx,si  ;赋值给dx,高位商
     
168.                 pop si
     
169.                 ret        4                       
     
170. ;源码终
     
171. 
     
172. ;功能名: show1
     
173. ;说明: 向屏幕显示文本,以零结尾文本
     
174. ;参数: push ax 文本,以零结尾
     
175. ;参数: push ax 文本颜色,
     
176. ;参数: push ax 行,从零开始 范围(0-24)
     
177. ;参数: push ax 列,从零开始 范围(0-80),偶数递增
     
178. ;结果: 向指定行显示指定文本
     
179. ;源码始:
     
180. show1:  push di
     
181.                 push bx
     
182.                 push cx
     
183.                 push si
     
184.                 push dx
     
185.                 mov bp,sp
     
186.                 mov ax,0b800h  ;屏幕显示地址
     
187.         mov es,ax
     
188.                 mov ax,[bp+0eh] ;行               
     
189.                 add ax,4
     
190.         mov bx,160   ;第一行4*160
     
191.                 mul bx
     
192.         mov bx,ax       
     
193.         mov si,[bp+0ch] ;列
     
194.                 mov di,0
     
195. show_s1:mov cl,ds:[di]     ;ds:[di]指向文本byte单元                 
     
196.                 mov ch,0  
     
197.         jcxz show_s0;如果=0直接返回
     
198.                 mov ch,[bp+10h]      ;颜色
     
199.         mov es:[bx][si],cx ;显示
     
200.                 mov al,0
     
201.                 mov ds:[di],al;显示后清除数据以免错乱
     
202.         add si,2
     
203.                 inc di
     
204.                
     
205.         loop show_s1
     
206. show_s0:pop dx
     
207.                 pop si
     
208.                 pop cx
     
209.                 pop bx
     
210.                 pop di
     
211.                 ret 6
     
212. ;源码终
     
213. 
     
214. 
     
215. 
     
216. codesg ends
     
217. end  start

复制代码

跳转到最佳答案楼层

泡泡吧

自己解决了,终于知道问题出现在哪里了.dtoc 中

;功能名: dtoc
;说明: 将word型数据转变为表示十进制数的字串符,字符串以0结尾,最大转换15byte字符
;参数: ax=dword型数据低16位
;参数: dx=dword型数据高16位
;参数: bx=word型数据,如果除数为0表示求(dx)(ax)/0ah十进制数的字串符,非0表示进行divdw转变为十进制数的字串符
;结果: (ds:si)指向字符串的首地址
;源码始
dtoc:        push dx
                push di
                push cx               
                mov bp,sp
                mov di,0
                mov ax,[bp+0ch] ;(ax)
                mov dx,[bp+0ah] ;(dx)
dtocs:        mov cx,[bp+8] ;型数据,如果除数为0表示求(dx)(ax)/0ah十进制数的字串符,非0表示进行divdw转变为十进制数的字串符
                jcxz dtocz
                push ax     ;非0表示进行divdw转变为十进制数的字串符
                push dx
                push cx
dtocc:        call divdw
                jmp short dtoce
dtocz:        push ax
                push dx
                mov cx,0ah
                push cx   ;这里进行push 导致 mov cx,[bp+8],错位了.用另外一个寄存器保存下被除数就好了.
                jmp short dtocc
dtoce:        add cl,30h
                mov ch,0               
                push cx
                inc di
                mov cx,dx
                jcxz dtocr  ;如果 余数为0  
dtocr:        mov cx,ax
                jcxz dout
                jmp short dtocs ;如果商不为零继续除
               
dout:         mov cx,di
dtoct:        pop ax
                mov byte ptr ds:[si],al ;写入[ds:si]中
                inc si
                loop dtoct
                pop cx        
                pop di
                pop dx
                ret 6
;源码终

泡泡吧

泡泡吧 发表于 2017-1-10 05:46
自己解决了,终于知道问题出现在哪里了.dtoc 中

;功能名: dtoc

精简后代码如下:

1. assume cs:codesg ,ss:data,ds:table
   
2. 
   
3. data segment   
   
4.    db '1975','1976','1977','1978','1979','1980','1981','1982','1983'   
   
5.    db '1984','1985','1986','1987','1988','1989','1990','1991','1992'   
   
6.    db '1993','1994','1995'
   
7.    ;年份字符串数组
   
8.    dd 16,22,382,1356,2390,8000,16000,24486,50065,97479,140417,197514   
   
9.    dd 345980,590827,803530,1183000,1843000,2759000,3753000,4649000,5937000     
   
10.    ;年总收入数组        
    
11.    dw 3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5635,8226   
    
12.    dw 11452,14430,15257,17800  
    
13.    ;年人总数数组
    
14. data ends
    
15. 
    
16. table segment
    
17.   db 42 dup (0)
    
18. table ends
    
19. 
    
20. 
    
21. codesg segment       
    
22. start:        mov bx,0
    
23.                 mov di,0
    
24.                 mov dx,0
    
25.                 mov cx,15h
    
26.                 mov ax,table
    
27.                 mov ds,ax
    
28.                 mov ax,data
    
29.                 mov ss,ax
    
30. s:                mov si,0
    
31.                 mov ax,word ptr ss:[bx]               
    
32.                 mov word ptr ds:[si],ax
    
33.                
    
34.                 mov ax,word ptr ss:[bx].2
    
35.                 mov word ptr ds:[si].2,ax ;年份装入ds:si中
    
36.                 add si,6
    
37.                
    
38.                 push dx ;入栈显示行
    
39.                 mov ax, word ptr ss:[bx].54h
    
40.                 push ax
    
41.                 mov ax, word ptr ss:[bx].56h
    
42.                 push ax
    
43.                 call dtoc ;收入转入ds:si
    
44.                 add si,8
    
45.                
    
46.                 mov ax,word ptr ss:[di].0a8h
    
47.                 push ax
    
48.                 mov ax,0
    
49.                 push ax
    
50.                 call dtoc ;人员转入ds:si中
    
51.                 add si,4
    
52.                
    
53.                
    
54.                 push cx ;入栈cx,保存循环次数
    
55.                 mov ax, word ptr ss:[bx].54h
    
56.                 push ax
    
57.                 mov ax, word ptr ss: [bx].56h
    
58.                 push ax
    
59.                 mov cx,word ptr ss:[di].0a8h
    
60.                 call divdw  ;平均收入转入ds:si中
    
61.                 pop cx   ;出栈cx,取出循环次数
    
62.                 push ax
    
63.                 push dx
    
64.                 call dtoc
    
65.                                
    
66.                 mov si,0
    
67.                 mov ax,24h
    
68.                 push ax
    
69.                 call dtoc1 ;将ds:si中的字符串0转为空格
    
70.                
    
71.                 pop dx
    
72.                 mov ax,02 ;颜色
    
73.                 push ax   ;颜色
    
74.                 push dx   ;行
    
75.                 mov ax,0
    
76.                 push ax
    
77.                 call show1; 将数值显示在屏幕上               
    
78.                
    
79.                
    
80.                 inc dx
    
81.                 add di,2
    
82.                 add bx,4
    
83.                
    
84.                 loop s
    
85.                
    
86.                        
    
87.                 mov ax,4c00h
    
88.                 int 21h       
    
89.                
    
90. 
    
91. ;功能名: dtoc1
    
92. ;说明: 将指定长度ds:si中的字符串0转为空格
    
93. ;参数: ax=长度,ds:si指向字符串首地址
    
94. ;结果: (ds:si)指向字符串的首地址,字符串以0结尾               
    
95. ;源码始
    
96. dtoc1:        mov bp,sp
    
97.                 push cx
    
98.                 mov cx,[bp+2] ;将长度赋值给cx
    
99. e:                push cx  ;保存长度
    
100.                 mov cl,ds:[si]  ;获取ds:si字符
     
101.                 jcxz b   ;是否为零,如果为零调到b,进行转为空格
     
102. c:                inc si   ;不为零,ds:si 指向下一个字符
     
103.                 pop cx   ;取出cx,
     
104.                 loop e
     
105.                 mov al,0
     
106.                 mov ds:[si],al;字符串以0结尾
     
107.                 pop cx
     
108.                 ret 2               
     
109. b:                mov al,20h
     
110.                 mov ds:[si],al
     
111.                 jmp short c
     
112. ;源码终
     
113. ;功能名: dtoc
     
114. ;说明: 将word型数据转变为表示十进制数的字串符,字符串以0结尾,最大转换15byte字符
     
115. ;参数: ax=dword型数据低16位
     
116. ;参数: dx=dword型数据高16位
     
117. ;结果: (ds:si)指向字符串的首地址
     
118. ;源码始
     
119. dtoc:        push dx
     
120.                 push di
     
121.                 push cx
     
122.                 mov bp,sp
     
123.                 mov di,0
     
124.                 mov ax,[bp+0ah] ;(ax)
     
125.                 mov dx,[bp+08h] ;(dx)
     
126. dtocz:        push ax
     
127.                 push dx
     
128.                 mov cx,0ah
     
129.                 call divdw  ;进行除法               
     
130.                 add cl,30h  ;余数转为字符串
     
131.                 mov ch,0        ;高位=0       
     
132.                 push cx     ;入栈字符串
     
133.                 inc di      ;记录字符个数
     
134.                 mov cx,dx   
     
135.                 jcxz dtocr  ;如果 余数为0  
     
136. dtocr:        mov cx,ax   ;如果商为零,跳到dtoct ,跳出循环,
     
137.                 jcxz dout
     
138.                 mov cx,bx; 将被除数赋值给cx
     
139.                 jmp short dtocz ;如果商不为零继续除               
     
140. dout:         mov cx,di
     
141. dtoct:        pop ax
     
142.                 mov byte ptr ds:[si],al ;写入[ds:si]中
     
143.                 inc si
     
144.                 loop dtoct
     
145.                 pop cx       
     
146.                 pop di
     
147.                 pop dx
     
148.                 ret 4
     
149. ;源码终
     
150. ;功能名: divdw
     
151. ;说明: 进行不会产生溢出的除法运算,被除数为dword型,除数为word型,结果为dword型
     
152. ;参数: push ax=dword型数据低16位
     
153. ;参数: push dx=dword型数据高16位
     
154. ;参数: cx=word型数据被除数
     
155. ;返回: dx=结果的高16位,ax=结果的低16位 cx=余数
     
156. ;源码始
     
157. divdw:  
     
158.                 push si
     
159.                 mov bp,sp
     
160.                 mov ax,[bp+4] ;高16位数据
     
161.                 mov dx,0
     
162.                 div cx      
     
163.                 mov si,ax  ;保存高位商
     
164.                 mov ax,[bp+6] ;低16位数据
     
165.                 div cx       
     
166.                 mov cx,dx
     
167.                 mov dx,si  ;赋值给dx,高位商
     
168.                 pop si
     
169.                 ret        4                       
     
170. ;源码终
     
171. 
     
172. ;功能名: show1
     
173. ;说明: 向屏幕显示文本,以零结尾文本
     
174. ;参数: push ax 文本,以零结尾
     
175. ;参数: push ax 文本颜色,
     
176. ;参数: push ax 行,从零开始 范围(0-24)
     
177. ;参数: push ax 列,从零开始 范围(0-80),偶数递增
     
178. ;结果: 向指定行显示指定文本
     
179. ;源码始:
     
180. show1:  push di
     
181.                 push bx
     
182.                 push cx
     
183.                 push si
     
184.                 push dx
     
185.                 mov bp,sp
     
186.                 mov ax,0b800h  ;屏幕显示地址
     
187.         mov es,ax
     
188.                 mov ax,[bp+0eh] ;行               
     
189.                 add ax,4
     
190.         mov bx,160   ;第一行4*160
     
191.                 mul bx
     
192.         mov bx,ax       
     
193.         mov si,[bp+0ch] ;列
     
194.                 mov di,0
     
195. show_s1:mov cl,ds:[di]     ;ds:[di]指向文本byte单元                 
     
196.                 mov ch,0  
     
197.         jcxz show_s0;如果=0直接返回
     
198.                 mov ch,[bp+10h]      ;颜色
     
199.         mov es:[bx][si],cx ;显示
     
200.                 mov al,0
     
201.                 mov ds:[di],al;显示后清除数据以免错乱
     
202.         add si,2
     
203.                 inc di
     
204.                
     
205.         loop show_s1
     
206. show_s0:pop dx
     
207.                 pop si
     
208.                 pop cx
     
209.                 pop bx
     
210.                 pop di
     
211.                 ret 6
     
212. ;源码终
     
213. 
     
214. 
     
215. 
     
216. codesg ends
     
217. end  start

复制代码