急----十进制的加法计算--为什么和大于等于10就出错了？

地上跑

我的这段代码想实现任意两个十进制的数相加！
可是现在的问题是：结果如果大于或等于10的话，就会出现错误！
希望大家给改改，谢谢了！！！
能给注释的话最好，因为这段代码我看的也不是全懂，东找西凑的

程序代码如下：
DATA SEGMENT
X DB ?
Y DB ?
S DB ?
mess1 db "Input x=(0 quit)","$"
mess3 db 'Input y=','$'
mess2 db 'x+y=','$'
DATA ENDS
stack segment para stack 'stack'
dw 100 dup(?)
stack ends
CODE SEGMENT
ASSUME CS:CODE,DS:DATA,SS:stack
START: MOV AX,DATA
MOV DS,AX
l1: lea dx,mess1
mov ah,9
int 21h
MOV AH,1
INT 21H
cmp al,30h
je l2
MOV X,AL
call cr_lf
lea dx,mess3
mov ah,9
int 21h
MOV AH,1
INT 21H
MOV Y,AL
MOV AL,X
AND AL,0FH
MOV BL,Y
AND BL,0FH
ADD AL,BL
MOV S,AL
call cr_lf
push ax
mov dx,offset mess2
mov ah,9
int 21h
pop ax
OR AL,30H
MOV AH,2
MOV DL,AL
INT 21H
call cr_lf
jmp l1
l2: MOV AH,4CH
INT 21H
cr_lf proc
push ax
push dx
mov ah,2
mov dl,0ah
int 21h
mov ah,2
mov dl,0dh
int 21h
pop dx
pop ax
ret
cr_lf endp
CODE ENDS
END START

████

如果大于10,则or al,30h就显示的不是10进制数
比如al=11,or al,30h之后,al=3bh
所以要显示两位的十进制数,可以进行除法操作
如: mov di,0 ;计数,表示所求的数为几位十进制数
dtoasc: xor ah,ah
mov bl,10
div bl
push ax ;此时ah为个位
inc di
cmp al,0 ;看商是否为0
jz show ;如果是0,结束操作,去显示数据
jmp short dtoasc
show: mov di,cx
pop ax
mov dl,al
or dl,30h
mov ah,02h
int 21h
loop show
仅供参考.

①個亼de鈊痛

如果大于10,则or al,30h就显示的不是10进制数
比如al=11,or al,30h之后,al=3bh
所以要显示两位的十进制数,可以进行除法操作
如: mov di,0 ;计数,表示所求的数为几位十进制数
dtoasc: xor ah,ah
mov bl,10
div bl
push ax ;此时ah为个位
inc di
cmp al,0 ;看商是否为0
jz show ;如果是0,结束操作,去显示数据
jmp short dtoasc
show: mov cx,di //上个程序这里写错了
pop ax
mov dl,al
or dl,30h
mov ah,02h
int 21h
loop show
仅供参考.

████

我应该怎样做啊？

千年@之恋

我的意思就是怎么在这段代码中改呢？请多多指教！

月半弯

为什么没人改啊？郁闷！

孤独の浪子

DATA SEGMENT
X DB ?
Y DB ?
S DB ?
mess1 db "Input x=(0 quit)","$"
mess3 db 'Input y=','$'
mess2 db 'x+y=','$'
DATA ENDS
stack segment para stack 'stack'
dw 100 dup(?)
stack ends
CODE SEGMENT
ASSUME CS:CODE,DS:DATA,SS:stack
START: MOV AX,DATA
MOV DS,AX
l1: lea dx,mess1
mov ah,9
int 21h
MOV AH,1
INT 21H
cmp al,30h
je l2
MOV X,AL
call cr_lf
lea dx,mess3
mov ah,9
int 21h
MOV AH,1
INT 21H
MOV Y,AL
MOV AL,X
AND AL,0FH
MOV BL,Y
AND BL,0FH
ADD AL,BL
MOV S,AL
call cr_lf
push ax
mov dx,offset mess2
mov ah,9
int 21h
pop ax
call showdec
call cr_lf
jmp l1
l2: MOV AH,4CH
INT 21H
cr_lf proc
push ax
push dx
mov ah,2
mov dl,0ah
int 21h
mov ah,2
mov dl,0dh
int 21h
pop dx
pop ax
ret
cr_lf endp
showdec proc
push di
push bx
mov di,0 ;计数,表示所求的数为几位十进制数
dtoasc: xor ah,ah
mov bl,10
div bl
push ax ;此时ah为个位
inc di
cmp al,0 ;看商是否为0
jz show ;如果是0,结束操作,去显示数据
jmp short dtoasc
show: mov cx,di
pop ax
mov dl,al
or dl,30h
mov ah,02h
int 21h
loop show
pop bx
pop di
ret
showdec endp
CODE ENDS
END START

快乐小猪

这个程序的结果不对啊！而且遇到有些数时好象还是死循环，屏幕一直乱跳！！！
希望大家再给改改啊！谢谢了！~

羽衣独舞

为什么还是没人来改呢？

淡淡的烟草味

有答案了：

DATA SEGMENT
X DB ?
Y DB ?
S DB ?,?
mess1 db "Input x=(0 quit)","$"
mess3 db 'Input y=','$'
mess2 db 'x+y=$'
DATA ENDS
stack segment para stack 'stack'
dw 100 dup(?)
stack ends
CODE SEGMENT
ASSUME CS:CODE,DS:DATA,ss:stack
START: MOV AX,DATA
MOV DS,AX
l1: lea dx,mess1
mov ah,9
int 21h
MOV AH,1
INT 21H
cmp al,'0'
je l2
MOV X,AL
call cr_lf
lea dx,mess3
mov ah,9
int 21h
MOV AH,1
INT 21H
MOV Y,AL
MOV AL,X
AND AL,0FH
MOV BL,Y
AND BL,0FH
ADD AL,BL
cbw
mov bl,10
div bl
or al,30h
mov s,al
or ah,30h
mov [s+1],ah
call cr_lf
mov dx,offset mess2
mov ah,9
int 21h
MOV AH,2
MOV DL,s
INT 21H
mov ah,2
mov dl,[s+1]
int 21h
call cr_lf
jmp l1
l2: MOV AH,4CH
INT 21H
cr_lf proc
push ax
push dx
mov ah,2
mov dl,0ah
int 21h
mov ah,2
mov dl,0dh
int 21h
pop dx
pop ax
ret
cr_lf endp
CODE ENDS
END START