DATA SEGMENT
input db 'please input(0-9): $'
tab dw 0,1,8,27,64,125,216,343,512,729
inerror db 0dh,0ah,'input error! $'
x db ?
xxx dw ?
data ends
code segment
assume cs:code,ds:data
main proc far
push ds
sub ax,ax
push ax
mov ax,data
mov ds,ax
mov dx,offset input
mov ah,9
int 21h
mov ah,1
cmp al,'0'
jb error
cmp al,'9'
ja error

and al,0fh
mov x,al
mov bl,al

mov bh,0
add bx,bx
mov ax,tab[bx]
mov xxx,ax
exit: ret
error: mov dx,offset inerror
mov ah,9
int 21h
jmp exit
code ends
end main

高手帮俺看看,不对怎么不能输入数字!只能显示:please input (0-9):
input error:
怎么回事啊!

对了:mov ah,1 后面,少打了一个int 21h
虽然这样,也是读不出来:立方值啊...快考试了,急啊!求版主帮个忙!谢求了!

DATA SEGMENT
input db 'please input(0-9): $'
tab dw 0,1,8,27,64,125,216,343,512,729
inerror db 0dh,0ah,'input error! $'
x db ?
xxx dw ?
data ends
code segment
assume cs:code,ds:data
main proc far
start:
push ds
sub ax,ax
push ax
mov ax,data
mov ds,ax
mov dx,offset input
mov ah,9
int 21h
mov ah,1
int 21h
cmp al,'0'
jb error
cmp al,'9'
ja error

and al,0fh
mov x,al
mov bl,al
mov bh,0
add bx,bx
mov ax,tab[bx]
mov xxx,ax
exit: ret
error: mov dx,offset inerror
mov ah,9
int 21h
jmp exit
main endp
code ends
end start
;这样就可以拉

谢谢,,不过...还是不行,我试过了.......

不知道哪里有错误，但能输入结果
data segment
input db 'please input(0-9): $'
tab dw 0,1,8,27,64,125,216,343,512,729
inerror db 0dh,0ah,'input error! $'
divjm db 100,10,1
xxx dw ?
data ends
code segment
assume cs:code,ds:data
main: mov ax,data
mov ds,ax
mov dx,offset input
mov ah,9
int 21h
mov ah,1
int 21h
cmp al,'0'
jb error
cmp al,'9'
ja error
call newline

sub al,30h
mov bl,al
mov bh,0
add bl,bl
mov ax,tab[bx]
call change

exit: mov ah,4ch
int 21h
error: mov dx,offset inerror
mov ah,9
int 21h
jmp exit

change proc
lea di, divjm
mov cx,3
next: mov bl,[di]
inc di
div bl
add al,30h
mov bh,ah
mov dl,al
mov ah,2
int 21h
mov al,bh
and ax,0fh
loop next
ret
change endp

newline proc
push dx
push ax
mov dl,0dh
mov ah,2
int 21h
mov dl,0ah
mov ah,2
int 21h
pop ax
pop dx
ret
newline endp
code ends
end main

请哪位高手帮我看看上面那个程序吧

data segment
input db 'please input(0-9): $'
tab dw 0,1,8,27,64,125,216,343,512,729
tab1 dw 0,1,8,4,6,5,16,3,2,7
inerror db 0dh,0ah,'input error! $'
divjm db 100,10,1
data ends
code segment
assume cs:code,ds:data
main: mov ax,data
mov ds,ax
mov dx,offset input
mov ah,9
int 21h
mov ah,1
int 21h
cmp al,'0'
jb error
cmp al,'9'
ja error
call newline

sub al,30h
xor ah,ah
add ax,ax
mov bx,ax
mov ax,tab[bx]
call change

exit: mov ah,4ch
int 21h
error: mov dx,offset inerror
mov ah,9
int 21h
jmp exit

change proc;入口参数AX
lea di, divjm
mov cx,3
next: mov bl,[di]
inc di
div bl
add al,30h
mov bh,ah
mov dl,al
mov ah,2
int 21h
mov al,bh
and ax,00ffh
loop next
ret
change endp

newline proc
push dx
push ax
mov dl,0dh
mov ah,2
int 21h
mov dl,0ah
mov ah,2
int 21h
pop ax
pop dx
ret
newline endp
code ends
end main
可以了一个小错误害得我调试了好久 change 中的and ax,0fh 应该是and ax,0ffh