21,459
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
KILLUSER 2007-06-04
- 打赏
- 举报
lsd 好强哦
我汗~~~
看来自己要努力点才行
我汗~~~
看来自己要努力点才行
江南书童 2007-06-03
- 打赏
- 举报
今晚我再编译了一下,果真有错,以下已做了修正!应该没有问题了!
data segment
temp dw ?
data ends
decihex segment
assume cs:decihex,ds:data
main proc far
nexts:
call decibin
mov temp,bx
call decibin
mov ax,temp
add bx,ax
call hexibin
call crlf
call binihex
call crlf
jmp nexts
main endp
;-----------------------------------------------------------------------
hexibin proc near
mov ax, bx
mov cx, 1h ;set 1 into cx as initial
xor bx, bx ;set result into bx
loop2:
mov dl, 10d ;set 10d to bl
div dl ;ax div bl
mov dl, ah ;save the remainder in dl
xor ah, ah ;set ah to 00h
cbw ;change al(quotient) to type word
mov temp, ax
xor ax, ax
mov al,dl ;save the remainder back to al
cbw ;change it to word
mul cx ;mul cx
add bx, ax ;add it to old remainder
mov ax, cx ; make cx mul by 10h
mov dx, 10h
mul dx
mov cx, ax
mov ax, temp
cmp ax, 0d ;compare with zero
je exit2 ; if equ zero then exit
jne loop2 ;else save it back to the stack
exit2:
ret
hexibin endp
;-----------------------------------------------------------------------
binihex proc near
mov ch, 4
rotate: mov cl, 4
rol bx, cl
mov al, bl
and al, 0fh
add al, 30h
cmp al, 3ah
jl printit
add al, 7h
printit:
mov dl, al
mov ah, 2
int 21h
dec ch
jnz rotate
ret
binihex endp
;-----------------------------------------------------------------------
decibin proc near
mov bx,0
newchar:
mov ah,1
int 21h
sub al,30h
jl exit
cmp al,9d
jg exit
cbw
xchg ax,bx
mov cx,10d
mul cx
xchg ax,bx
add bx,ax
jmp newchar
exit:
ret
decibin endp
;-----------------------------------------------------------------------
crlf proc near
mov dl,0dh
mov ah,2
int 21h
mov dl,0ah
mov ah,2
int 21h
ret
crlf endp
decihex ends
end main
data segment
temp dw ?
data ends
decihex segment
assume cs:decihex,ds:data
main proc far
nexts:
call decibin
mov temp,bx
call decibin
mov ax,temp
add bx,ax
call hexibin
call crlf
call binihex
call crlf
jmp nexts
main endp
;-----------------------------------------------------------------------
hexibin proc near
mov ax, bx
mov cx, 1h ;set 1 into cx as initial
xor bx, bx ;set result into bx
loop2:
mov dl, 10d ;set 10d to bl
div dl ;ax div bl
mov dl, ah ;save the remainder in dl
xor ah, ah ;set ah to 00h
cbw ;change al(quotient) to type word
mov temp, ax
xor ax, ax
mov al,dl ;save the remainder back to al
cbw ;change it to word
mul cx ;mul cx
add bx, ax ;add it to old remainder
mov ax, cx ; make cx mul by 10h
mov dx, 10h
mul dx
mov cx, ax
mov ax, temp
cmp ax, 0d ;compare with zero
je exit2 ; if equ zero then exit
jne loop2 ;else save it back to the stack
exit2:
ret
hexibin endp
;-----------------------------------------------------------------------
binihex proc near
mov ch, 4
rotate: mov cl, 4
rol bx, cl
mov al, bl
and al, 0fh
add al, 30h
cmp al, 3ah
jl printit
add al, 7h
printit:
mov dl, al
mov ah, 2
int 21h
dec ch
jnz rotate
ret
binihex endp
;-----------------------------------------------------------------------
decibin proc near
mov bx,0
newchar:
mov ah,1
int 21h
sub al,30h
jl exit
cmp al,9d
jg exit
cbw
xchg ax,bx
mov cx,10d
mul cx
xchg ax,bx
add bx,ax
jmp newchar
exit:
ret
decibin endp
;-----------------------------------------------------------------------
crlf proc near
mov dl,0dh
mov ah,2
int 21h
mov dl,0ah
mov ah,2
int 21h
ret
crlf endp
decihex ends
end main
江南书童 2007-06-03
- 打赏
- 举报
hexibin proc near
mov ax,bx ;the paramenter is in bx
push ax
mov cx,1h ;set 1 into cx
xor ax,ax
mov dx,ax ;set result into dx
repeat: pop ax ;get ax
mov bl,10d ;set 10d to bl
div bl ;ax div bl
mov bl,ah ;save the remainder in bl
xor ah,ah ;set ah to 00h
cbw ;change al(quotient) to type word
push ax ;push the quotient into stack
mov al,bl ;save the remainder back to al
cbw ;change it to word
mul cx ;mul cx
mov bx,dx ;add it to old remainder
add ax,bx ;
mov dx,ax ;
pop ax ; pop the quotient from stack
cmp ax,0d ;compare with zero
je exit2 ; if equ then exit
push ax ;else save it back to the stack
mov ax,cx ;make cx mul by 10h
mov cx,10h
mul cx
mov cx,ax
jmp repeat
exit2:
mov bx,dx
ret
hexibin endp
江南书童 2007-06-03
- 打赏
- 举报
注释写错了! 你把单引号都改成分号,再编译一下! 我的EXE文件都编译出来了,结果也是正确的!
大熊猫侯佩 2007-06-02
- 打赏
- 举报
搜我以前用hla写的代码
paullbm 2007-06-02
- 打赏
- 举报
4.將結果進行純數字到數學字符串的轉換並輸出顯示
改為:
4.將結果進行純數字到數字字符串的轉換並輸出顯示
改為:
4.將結果進行純數字到數字字符串的轉換並輸出顯示
paullbm 2007-06-02
- 打赏
- 举报
1.調用DOS中斷10號子功能
2.將緩沖區中的數字字符串轉換成相應的數字（如：‘123’轉換成123）
3.將兩個數字相加
4.將結果進行純數字到數學字符串的轉換並輸出顯示
（如：結果為678，則轉換為‘678’，轉換時利用棧機制容易實現）
2.將緩沖區中的數字字符串轉換成相應的數字（如：‘123’轉換成123）
3.將兩個數字相加
4.將結果進行純數字到數學字符串的轉換並輸出顯示
（如：結果為678，則轉換為‘678’，轉換時利用棧機制容易實現）
javaors 2007-06-02
- 打赏
- 举报
回复：qinzhenzhou(小P)
=========================
repeat: pop ax 'get ax
jmp repeat
这两条语句有问题
=========================
repeat: pop ax 'get ax
jmp repeat
这两条语句有问题
江南书童 2007-06-02
- 打赏
- 举报
以上代码为本人,随手用masm写的,不足之处,自己改进,
江南书童 2007-06-02
- 打赏
- 举报
晕!
data segment
temp dw ?
data ends
decihex segment
assume cs:decihex,ds:data
main proc far
loop1:
call decibin
mov temp ,bx
call decibin
mov ax,temp
add ax,bx
mov bx,ax
call hexibin
call crlf
call binihex
call crlf
jmp loop1
main endp
hexibin proc near
mov ax,bx 'the paramenter is in bx
push ax
mov cx,1h 'set 1 into cx
xor ax,ax
mov dx,ax 'set result into dx
repeat: pop ax 'get ax
mov bl,10d 'set 10d to bl
div bl 'ax div bl
mov bl,ah 'save the remainder in bl
xor ah,ah 'set ah to 00h
cbw 'change al(quotient) to type word
push ax 'push the quotient into stack
mov al,bl 'save the remainder back to al
cbw 'change it to word
mul cx 'mul cx
mov bx,dx 'add it to old remainder
add ax,bx '
mov dx,ax '
pop ax ' pop the quotient from stack
cmp ax,0d 'compare with zero
je exit2 ' if equ then exit
push ax 'else save it back to the stack
mov ax,cx ' make cx mul by 10h
mov cx,10h
mul cx
mov cx,ax
jmp repeat
exit2:
mov bx,dx
ret
hexibin endp
binihex proc near
mov ch,4
rotate: mov cl,4
rol bx,cl
mov al,bl
and al,0fh
add al,30h
cmp al,3ah
jl printit
add al,7h
printit:
mov dl,al
mov ah,2
int 21h
dec ch
jnz rotate
ret
binihex endp
decibin proc near
mov bx,0
newchar:
mov ah,1
int 21h
sub al,30h
jl exit
cmp al,9d
jg exit
cbw
xchg ax,bx
mov cx,10d
mul cx
xchg ax,bx
add bx,ax
jmp newchar
exit:
ret
decibin endp
crlf proc near
mov dl,0dh
mov ah,2
int 21h
mov dl,0ah
mov ah,2
int 21h
ret
crlf endp
decihex ends
end main
data segment
temp dw ?
data ends
decihex segment
assume cs:decihex,ds:data
main proc far
loop1:
call decibin
mov temp ,bx
call decibin
mov ax,temp
add ax,bx
mov bx,ax
call hexibin
call crlf
call binihex
call crlf
jmp loop1
main endp
hexibin proc near
mov ax,bx 'the paramenter is in bx
push ax
mov cx,1h 'set 1 into cx
xor ax,ax
mov dx,ax 'set result into dx
repeat: pop ax 'get ax
mov bl,10d 'set 10d to bl
div bl 'ax div bl
mov bl,ah 'save the remainder in bl
xor ah,ah 'set ah to 00h
cbw 'change al(quotient) to type word
push ax 'push the quotient into stack
mov al,bl 'save the remainder back to al
cbw 'change it to word
mul cx 'mul cx
mov bx,dx 'add it to old remainder
add ax,bx '
mov dx,ax '
pop ax ' pop the quotient from stack
cmp ax,0d 'compare with zero
je exit2 ' if equ then exit
push ax 'else save it back to the stack
mov ax,cx ' make cx mul by 10h
mov cx,10h
mul cx
mov cx,ax
jmp repeat
exit2:
mov bx,dx
ret
hexibin endp
binihex proc near
mov ch,4
rotate: mov cl,4
rol bx,cl
mov al,bl
and al,0fh
add al,30h
cmp al,3ah
jl printit
add al,7h
printit:
mov dl,al
mov ah,2
int 21h
dec ch
jnz rotate
ret
binihex endp
decibin proc near
mov bx,0
newchar:
mov ah,1
int 21h
sub al,30h
jl exit
cmp al,9d
jg exit
cbw
xchg ax,bx
mov cx,10d
mul cx
xchg ax,bx
add bx,ax
jmp newchar
exit:
ret
decibin endp
crlf proc near
mov dl,0dh
mov ah,2
int 21h
mov dl,0ah
mov ah,2
int 21h
ret
crlf endp
decihex ends
end main
