display 　　　equ 　　　2h 　　　　; 显示单个字符的功能号是2
　　　key_in 　　　 equ 　　　1h 　　　　; 键盘输入单个字符的功能号是1
　　　doscall 　　　equ 　　　21h 　　　 ; DOS中断号

　　hexidec 　　　　segment
　　　main 　　　　 proc 　　 far
　　　assume 　　　 cs:hexidec
　start:
　　　push 　　　　 ds
　　　sub 　　　　　ax,ax
　　　push 　　　　 ax

　　　call 　　　　 hexibin 　　　　　　; 十六进制转换成二进制
　　　call 　　　　 crlf 　　　　　　　 ; 显示回车和换行
　　　call 　　　　 binidec 　　　　　　; 二进制转换成十进制
　　　call 　　　　 crlf
　　　……
　　　ret
　　　main 　　　　 endp

　　　; 定义子程序hexibin(十六进制转换成二进制,结果在bx中)
　　　hexibin 　　　proc 　　　　near
　　　mov　　　　　 bx,0
　newchar:
　　　mov 　　　　　ah,key_in
　　　int 　　　　　doscall 　　　　　　; 键盘输入单个字符
　　　sub 　　　　　al,30h
　　　jl 　　　　　 exit
　　　cmp 　　　　　al,10d
　　　jl 　　　　　 add_to 　　　　　　 ; 0～9之间转add_to
　　; 判断是否a～f之间('a'的ASCII码为61h)
　　　sub 　　　　　al,27h
　　　cmp 　　　　　al,0ah
　　　jl 　　　　　 exit
　　　cmp 　　　　　al,10h
　　　jge 　　　　　exit
　　; 0～9或a～f
　add_to:
　　　mov 　　　　　cl,4
　　　shl 　　　　　bx,cl 　　　　　　　; (bx)*16
　　　mov 　　　　　ah,0
　　　add 　　　　　bx,ax
　　　jmp 　　　　　newchar
　　exit:
　　　ret
　　　hexibin 　　　endp

　　; 定义子程序binidec(二进制转换成十进制)
　　　binidec 　　　proc 　　　near
　　　mov 　　　　　cx,10000d
　　　call 　　　　 dec_div 　　　　　　; bx被10000除
　　　mov 　　　　　cx,1000d
　　　call 　　　　 dec_div 　　　　　　; bx被1000除
　　　mov 　　　　　cx,100d
　　　call 　　　　 dec_div 　　　　　　; bx被100除
　　　mov　　　　　 cx,10d
　　　call 　　　　 dec_div 　　　　　　; bx被10除
　　　mov 　　　　　cx,1d
　　　call 　　　　 dec_div 　　　　　　; bx被1除
　　　ret
　　　; 定义子程序dec_div(十进制除)
　　　dec_div 　　　proc 　　　near
　　　mov 　　　　　ax,bx
　　　mov 　　　　　dx,0 　　　　　　　 ; 被除数在dx:ax中
　　　div 　　　　　cx
　　　mov 　　　　　bx,dx 　　　　　　　; 余数送bx
　　　mov 　　　　　dl,al 　　　　　　　; 商送dl

　　　add 　　　　　dl,30h
　　　mov 　　　　　ah,display
　　　int 　　　　　doscall 　　　　　　; 显示单个字符
　　　ret
　　　dec_div 　　　endp
　　　binidec 　　　endp

　　　crlf 　　　　 proc 　　　near
　　　mov 　　　　　dl,0ah
　　　mov 　　　　　ah,display
　　　int 　　　　　doscall

　　　mov 　　　　　dl,0dh
　　　mov 　　　　　ah,display
　　　int 　　　　　doscall
　　　ret
　　　crlf 　　　　 endp

　　　hexidec 　　　ends
　　　end 　　　　　start