标题:[求助]高手们进来看看 这个程序怎么弄
只看楼主
zyzy257
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2005-1-6
 问题点数:0 回复次数:1 
[求助]高手们进来看看 这个程序怎么弄

我是刚学的

这个程序要实现16进制输入一个多项式又以16进制输出结果

我写的程序如下 我调试后看见buf1的内容竟然存在kaitou的中间了 这是为什么?

我只写到了 计算那步 后来10进制换回16进制的代码还没写

data segment buf2 db ? kaitou db 'please input a expression ',0dh,0ah, '$' buf1 db 7 dup(0) xuanze db ' input 0 out,input 1 continue ',0dh,0ah,'$' jieshu db ' Thanks for your useing!$' data ends code segment assume cs:code,ds:data,es:data start: mov ax,data mov ds,ax mov es,ax enter: lea dx,kaitou mov ah,9 int 21h mov cx,7 lea di,buf1 mov ah,10 int 21h rep stosb mov cx,7 lea di,buf1 xor ax,ax

sz: mov al,[di] cmp al,'+' je lop cmp al,'-' je lop cmp al,'*' je lop jmp h_b mov cx,7 lea si,buf1

j_s: mov al,[si] cmp al,'*' je cf cmp al,'+' je jf1 cmp al,'-' je jf2 inc si loop j_s mov dl,buf2 mov ah,2 int 21h mov ah,4ch int 21h

lop: inc di loop sz

jf1: mov al,[si-1] add al,[si+1] mov [si+1],al inc si mov buf2,al loop j_s jf2: mov al,[si-1] sub al,[si+1] mov [si+1],al inc si mov buf2,al loop j_s cf: mov al,[si-1] mov dl,[si+1] mul dl inc si mov buf2,al loop j_s

h_b: mov bx,0 sub al,30H jl lop cmp al,10d jl add_to sub al,27h cmp al,0ah jl lop cmp al,10h jge lop

add_t push cx mov cl,4 shl bx,cl mov ah,0 add bx,ax

b_d: mov cx,10000d call dec_d mov cx,1000d call dec_d mov cx,100d call dec_d mov cx,10d call dec_d mov cx,1d call dec_d pop cx jmp lop

dec_d proc near mov ax,bx mov dx,0 div cx mov bx,dx mov dl,al add dl,30H ret dec_d endp

code ends end start

搜索更多相关主题的帖子: 计算 expression continue please 
2005-01-06 15:44
qianggengqiang
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2005-4-23
得分:0 
assume cs:code,ds:data,es:data start: mov ax,data mov ds,ax mov es,ax enter: lea dx,kaitou mov ah,9 int 21h mov cx,7 lea di,buf1 mov ah,10 int 21h //调用本身只能在DOS下运行WINDOWS......都不能正确运行,你会发现它大部分时间是正确的,缓冲区可能没法关闭.使用它是很危险的 rep stosb mov cx,7 lea di,buf1 xor ax,ax
2005-04-24 11:48



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-10768-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.014226 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved