实验十——三个子程序

火竹

assume cs:code,ds:data,ss:stack

data segment
        db '000000'
data ends
stack segment
        dw 32 dup(0)
stack ends


code segment

start:        mov ax,data       
                mov ds,ax
                mov ax,stack
                mov ss,ax
                mov sp,32
               
                mov ax,0ffffh
                mov dx,0
                mov cx,2
                call divdw
               
                mov si,0
                call dtoc
               
                mov dl,37
                mov dh,12
                mov cl,00000010b
                mov ax,data       
                mov ds,ax
                mov si,0
                call show_str
               
                mov ax,4c00h
                int 21h
               


               
               
                ;数据：ax
                ;字符串地址：ds:si
dtoc:        mov cx,0
                push cx
cle2:        mov dx,0
                mov cx,10               
                call divdw
                add cx,30h
                push cx
                mov cx,ax       
                jcxz cle3
                jmp cle2
               
cle3:        pop cx
                mov ds:[si],cl
                jcxz cle4
                inc si               
                jmp cle3
cle4:        ret

               
                ;被除数：ax低八位 dx高八位
                ;除数：cx
                ;商：ax低八位 dx高八位
                ;余数：cx
        s:        dw 0,0
divdw:        mov di,offset s
                mov bx,0
                mov cs:[di],ax ;将低八位暂存在cs:[di]中
                mov ax,dx
                mov dx,0
                div cx
                mov cs:[di+2],ax;将高八位除以除数的结果暂存在cs:[dx+2]中
                mov ax,cs:[di]
                div cx
                mov cx,dx
                mov dx,cs:[di+2]
                ret
                               
                ;di 行 1~25 第一行显示不出来刷新没了
                ;dh        列 1~80
                ;cl        属性        7闪烁  654背景红绿蓝   3高亮   210前景红绿蓝
                ;si        字符串偏移地址ds:si
show_str:       
                mov ax,0b800h       
                mov es,ax               
                mov bx,0
                mov al,dh
                sub al,1
                mov ch,160
                mul ch
                mov bx,ax
                mov al,dl
                sub al,1
                mov ch,2
                mul ch
                add bx,ax
                mov al,cl
                mov cx,0
                mov di,0
cle:        mov cl,ds:[si]
                jcxz sss               
                mov es:[bx+di],cl
                mov es:[bx+di+1],al
                add si,1
                add di,2
                loop cle
sss:        ret
               
               
               
       
               
code ends
end start
       

FishC

原程序存在一些语法错误和逻辑问题，下面我将逐一分析并给出修正后的代码，同时保持原有的功能结构。

• divdw 子程序的问题：原程序使用 cs: 直接存储数据是错误的，应使用堆栈或数据段变量。这里采用堆栈保存中间结果。
• dtoc 子程序的问题：在将数字转换为字符串时，dx 被错误清零，导致只处理了16位数。同时，字符串存储顺序是反的（先低位后高位），需要正序存储。
• show_str 子程序的问题：使用 ds: 和 es: 时未指定偏移地址，且循环指令 loop 与字符判断冲突。
  

修正后的完整程序如下：

1. 
   
2. assume cs:code, ds:data, ss:stack
   
3. 
   
4. data segment
   
5.     db '0000000000'        ; 预留10字节存储字符串
   
6. data ends
   
7. 
   
8. stack segment
   
9.     dw 32 dup(0)
   
10. stack ends
    
11. 
    
12. code segment
    
13. 
    
14. start:
    
15.     mov ax, data
    
16.     mov ds, ax
    
17.     mov ax, stack
    
18.     mov ss, ax
    
19.     mov sp, 32
    
20. 
    
21.     ; 计算 0FFFFh / 2
    
22.     mov ax, 0FFFFh
    
23.     mov dx, 0
    
24.     mov cx, 2
    
25.     call divdw            ; 结果：dx:ax=7FFFh, cx=余数
    
26. 
    
27.     ; 将结果转换为字符串
    
28.     mov si, 0
    
29.     call dtoc
    
30. 
    
31.     ; 在屏幕第12行第37列显示字符串
    
32.     mov dl, 37            ; 列号
    
33.     mov dh, 12            ; 行号
    
34.     mov cl, 00000010b     ; 属性（绿色）
    
35.     mov ax, data
    
36.     mov ds, ax
    
37.     mov si, 0
    
38.     call show_str
    
39. 
    
40.     ; 程序退出
    
41.     mov ax, 4C00h
    
42.     int 21h
    
43. 
    
44. ;===============================================
    
45. ; 子程序：divdw
    
46. ; 功能：32位除以16位的不溢出除法
    
47. ; 输入：dx:ax = 被除数（32位），cx = 除数（16位）
    
48. ; 输出：dx:ax = 商（32位），cx = 余数（16位）
    
49. ;===============================================
    
50. divdw:
    
51.     push bx               ; 保存 bx
    
52.     mov bx, ax            ; 暂存低16位
    
53.     mov ax, dx            ; 高16位移到 ax
    
54.     mov dx, 0             ; 清零 dx，形成 0:高16位
    
55.     div cx                ; ax = int(H/N), dx = rem(H/N)
    
56.     push ax               ; 保存 int(H/N)
    
57.     mov ax, bx            ; 恢复低16位
    
58.     div cx                ; ax = 商的低16位, dx = 余数
    
59.     mov cx, dx            ; 余数存入 cx
    
60.     pop dx                ; 恢复 int(H/N) 作为商的高16位
    
61.     pop bx                ; 恢复 bx
    
62.     ret
    
63. 
    
64. ;===============================================
    
65. ; 子程序：dtoc
    
66. ; 功能：将32位无符号数转换为十进制字符串
    
67. ; 输入：dx:ax = 要转换的数字，ds:si 指向存储位置
    
68. ; 输出：在 ds:si 处存放以0结尾的字符串
    
69. ;===============================================
    
70. dtoc:
    
71.     push ax
    
72.     push dx
    
73.     push cx
    
74.     push si
    
75.     push bx
    
76. 
    
77.     mov bx, si            ; 保存字符串起始位置
    
78.     jmp dtoc_entry
    
79. 
    
80. dtoc_loop:
    
81.     mov cx, 10            ; 除数为10
    
82.     call divdw            ; 除以10，余数在 cx
    
83.     add cx, 30h           ; 余数转ASCII字符
    
84.     push cx               ; 字符压栈（低位先入）
    
85. 
    
86. dtoc_entry:
    
87.     ; 判断商（dx:ax）是否为0
    
88.     mov cx, dx
    
89.     or cx, ax
    
90.     jnz dtoc_loop         ; 不为0则继续循环
    
91. 
    
92.     ; 商为0，压入结束标志0
    
93.     mov cx, 0
    
94.     push cx
    
95. 
    
96.     ; 从栈中弹出字符，正序存入数据段
    
97.     mov si, bx            ; 恢复字符串起始位置
    
98. dtoc_pop:
    
99.     pop cx
    
100.     mov [si], cl          ; 存储字符
     
101.     inc si
     
102.     jcxz dtoc_done        ; 遇到0则结束
     
103.     jmp dtoc_pop
     
104. 
     
105. dtoc_done:
     
106.     pop bx
     
107.     pop si
     
108.     pop cx
     
109.     pop dx
     
110.     pop ax
     
111.     ret
     
112. 
     
113. ;===============================================
     
114. ; 子程序：show_str
     
115. ; 功能：在屏幕指定位置显示字符串
     
116. ; 输入：dh = 行号（0-24），dl = 列号（0-79）
     
117. ;       cl = 属性，ds:si 指向字符串首地址
     
118. ; 输出：无
     
119. ;===============================================
     
120. show_str:
     
121.     push ax
     
122.     push bx
     
123.     push cx
     
124.     push dx
     
125.     push si
     
126.     push di
     
127.     push es
     
128. 
     
129.     mov ax, 0B800h        ; 显存段地址
     
130.     mov es, ax
     
131. 
     
132.     ; 计算行偏移：行号 * 160
     
133.     mov al, 160
     
134.     mul dh                ; 结果在 ax
     
135.     mov bx, ax
     
136. 
     
137.     ; 计算列偏移：列号 * 2
     
138.     mov al, 2
     
139.     mul dl                ; 结果在 ax
     
140.     add bx, ax            ; bx = 显存中的起始偏移
     
141. 
     
142.     mov al, cl            ; 保存属性到 al
     
143.     mov di, 0             ; 显存索引
     
144. 
     
145. show_str_loop:
     
146.     mov cl, [si]          ; 取字符
     
147.     mov ch, 0             ; 设置 ch=0，用于判断字符是否为0
     
148.     jcxz show_str_end     ; 字符为0则结束
     
149.     mov es:[bx+di], cl    ; 写入字符
     
150.     mov es:[bx+di+1], al  ; 写入属性
     
151.     inc si
     
152.     add di, 2
     
153.     jmp show_str_loop
     
154. 
     
155. show_str_end:
     
156.     pop es
     
157.     pop di
     
158.     pop si
     
159.     pop dx
     
160.     pop cx
     
161.     pop bx
     
162.     pop ax
     
163.     ret
     
164. 
     
165. code ends
     
166. end start
     

复制代码

主要修改说明：

• divdw 子程序：采用标准的不溢出除法算法，使用堆栈暂存中间结果，避免直接操作代码段。
• dtoc 子程序：修正了 dx 被错误清零的问题，确保处理32位数。通过栈实现从低位到高位的转换，再正序存储字符串。
• show_str 子程序：显存写入时指定完整地址 es:[bx+di]，循环改用 jmp 避免与 cx 冲突。
• 数据段：预留10字节空间，确保足够存储转换后的字符串。
  

程序运行逻辑：计算 0FFFFh ÷ 2 = 7FFFh（32767），转换为字符串 "32767"，在屏幕第12行第37列以绿色显示。

以上回复来自 FishC AI 小助理，如未能正确解答您的问题，请继续追问。