程序有两个报错。不太懂，求思路
;数据段datarea segment
mesg1 db 'Please input a number(1,2,3,4,5,,6,7,8) to select style:',13,10
db '1.small letter to capital letter',13,10
db '2.capital letter to small letter',13,10
db '3.bin to hex',13,10
db '4.hex to bin',13,10
db '5.dec to bin',13,10
db '6.bin to dec',13,10
db '7.hex to dec',13,10
db '8.dec to hex',13,10,'$'
mesg2 db 'You have input a invalid number!Please select again:',13,10,'$'
mesg3 db 'Please input a small letter:',13,10,'$'
mesg4 db 'Its capital letter is',13,10,'$'
mesg5 db 'Please input a capital letter:',13,10,'$'
mesg6 db 'Its small letter is',13,10,'$'
mesg7 db 'Please input a bin number:',13,10,'$'
mesg8 db 'Please input a dec number:',13,10,'$'
mesg9 db 'please input a hex number:',13,10,'$'
mesg10 db 'Its bin number is',13,10,'$'
mesg11 db 'Its dec number is',13,10,'$'
mesg12 db 'Its hex number is',13,10,'$'
datarea ends
prognam segment
main proc far
assume cs:prognam,ds:datarea
start:
push ds
xor ax,ax
push ax
mov ax,datarea
mov ds,ax
again:
lea dx,mesg1
mov ah,09h
int 21h
repeat:
mov ah,01h
int 21h
cmp al,31h
je L1
cmp al,32h
je L2
cmp al,33h
je L3
cmp al,34h
je L4
cmp al,35h
je L5
cmp al,36h
je L6
cmp al,37h
je L7
cmp al,38h
je L8
lea dx,mesg2
mov ah,9
int 21h
jmp repeat
L1:
call small_capital
call crlf
jmp again
L2:
call capital_small
call crlf
jmp again
L3:
call binhex
call crlf
jmp again
L4:
call hexbin
call crlf
jmp again
L5:
call decbin
call crlf
jmp again
L6:
call bindec
call crlf
jmp again
L7:
call hexdec
call crlf
jmp again
L8:
call dechex
call crlf
jmp again
ret
main endp
small_capital proc near
xor ax,ax
lea dx,mesg3
mov ah,9
int 21h
mov ah,1
int 21h
sub al,20h
push ax
lea dx,mesg4
mov ah,9
int 21h
pop ax
mov dl,al
mov ah,2
int 21h
ret
small_capital endp
capital_small proc near
xor ax,ax
lea dx,mesg5
mov ah,9
int 21h
mov ah,1
int 21h
add al,20h
push ax
lea dx,mesg6
mov ah,9
int 21h
pop ax
mov dl,al
mov ah,2
int 21h
ret
capital_small endp
binhex proc near
xor ax,ax
mov bx,ax
lea dx,mesg7
mov ah,9
int 21h
mov si,4
newchar1:
mov ah,1
int 21h
sub al,30h
jl rotate1
cmp al,10d
jl add_to1
jmp rotate1
add_to1: ;save bin to bx
mov cl,1
shl bx,cl
mov ah,0
add bx,ax
jmp newchar1
rotate1:
lea dx,mesg12
mov ah,9
int 21h
rotate1_1:
mov cl,4
rol bx,cl
mov al,bl
and al,0fh
add al,30h
cmp al,3ah
jl print1
add al,7h
print1:
mov dl,al
mov ah,2
int 21h
dec si
jnz rotate1_1
ret
binhex endp
hexbin proc near
mov bx,0
lea dx,mesg9
mov ah,9
int 21h
mov si,16
newchar2:
mov ah,1
int 21h
sub al,30h
jl print2
cmp al,10d
jl add_to2
sub al,27h
cmp al,0ah
jl print2
cmp al,10h
jge print2
add_to2:
mov cl,4
shl bx,cl
mov ah,0
add bx,ax
jmp newchar2
lea dx,mesg10
mov ah,9
int 21h
print2:
rol bx,1
mov al,bl
and al,1h
add al,30h
mov dl,al
mov ah,2
int 21h
dec si
jnz print2
ret
hexbin endp
decbin proc near
lea dx,mesg8
mov ah,9
int 21h
mov bx,0
newchar3:
mov ah,1
int 21h
sub al,30h
jl print3
cmp al,9d
jg print3
cbw
xchg ax,bx
mov cx ,10d
mul cx
xchg ax,bx
add bx,ax
jmp newchar3
print3:
lea dx,mesg10
mov ah,9
int 21h
rol bx,1
mov al,bl
and al,1h
add al,30h
mov dl,al
mov ah,2
int 21h
dec si
jnz print3
ret
decbin endp
bindec proc near
lea dx,mesg7
mov ah,9
int 21h
newchar4:
mov ah,1
int 21h
sub al,30h
jl print4
cmp al,10d
jl add_to4
jmp print4
add_to4:
mov cl,1
shl bx,cl
mov ah,0
add bx,ax
jmp newchar4
print4:
lea dx,mesg11
mov ah,9
int 21h ;display dec
mov cx,10000d
call dec_div4
mov cx,1000
call dec_div4
mov cx,100
call dec_div4
mov cx,10
call dec_div4
mov cx,1
call dec_div4
ret
dec_div4 proc near
mov ax,bx
mov dx,0
div cx
mov bx,dx
mov dl,al
add dl,30h
mov ah,2
int 21h
ret
dec_div4 endp
bindec endp
hexdec proc near
lea dx,mesg9
mov ah,9
int 21h
mov bx,0
newchar5:
mov ah,1
int 21h
sub al,30h
jl next5
cmp al,10d
jl add_to5
sub al,27h
cmp al,0ah
jl next5
cmp al,10h
jge next5
add_to5:
mov cl,4
shl bx,cl
mov ah,0
add bx,ax
jmp newchar5
next5:
lea dx,mesg11
mov ah,9
int 21h ;display dec
mov cx,10000d
call dec_div5
mov cx,1000d
call dec_div5
mov cx,100d
call dec_div5
mov cx,10d
call dec_div5
mov cx,1d
call dec_div5
ret
hexdec endp
dec_div5 proc near
mov ax,bx
mov dx,0
div cx
mov bx,dx
mov dl,al
add dl,30h
mov ah,2
int 21h
ret
dec_div5 endp
dechex proc near
lea dx,mesg11
mov ah,9
int 21h
mov bx,0
newchar6:
mov ah,1
int 21h
sub al,30h
jl next6
cmp al,9d
jg next6
cbw
xchg ax,bx
mov cx,10d
mul cx
xchg ax,bx
add bx,ax
jmp newchar6
next6:
mov si,4
lea dx,mesg12
mov ah,9
int 21h
rotate6:
mov cl,4
rol bx,cl
mov al,bl
and al,0fh
add al,30h
cmp al,3ah
jl print6
add al,7h
print6:
mov dl,al
mov ah,2
int 21h
dec ch
jnz rotate6
ret
dechex endp
crlf proc near
mov dl,13
mov ah,2
int 21h
mov dl,10
mov ah,2
int 21h
ret
crlf endp
prognam ends
end start
一个是在repeat那里。一个是在程序最后。
我检查了好久，发现没错误吧。。。
页:
[1]