decihex　　segment
　　　　　　　 　assume 　cs:decihex

　　　; 程序的主要部分
　　　　　　　main 　　proc 　　　far
　　　repeat: call 　　decibin 　　　　　　　; 调用子程序decibin
　　　　　　　call 　　crlf 　　　　　　　　 ; 调用子程序crlf
　　　　　　　call 　　binihex 　　　　　　　; 调用子程序binihex
　　　　　　　call 　　crlf
　　　　　　　jmp 　　 repeat
　　　main 　 endp

　　; 子程序decibin
　　　　　　 decibin 　proc 　　　near
　　　　　　 mov 　　　bx,0
　　　newchar:
　　　　　　 mov 　　　ah,1
　　 　　　　int 　　　21h 　　　　　　　　　; 从键盘接收单个字符
　　; 非0～9之间的数退出
　　　　　　 sub 　　　al,30h
　　　　　　 jl 　　　 exit
　　　　　　 cmp 　　　al,9d
　　　　　　 jg 　　　 exit
　　　　　　 cbw 　　　　　　　　　　　　　　; al扩展到ax
　　; BX中的数乘以10
　　　　　　 xchg 　　 ax,bx
　　　　　　 mov 　　　cx,10d
　　　　　　 mul 　　　cx
　　　　　　 xchg 　　 ax,bx
　　; 把ax加到bx中
　　　　　　 add 　　　bx,ax
　　　　　　 jmp 　　　newchar 　　　　　　 ; 接收下一个字符
　　　　exit:
　　　　　　 ret
　　decibin　endp

　　; 子程序binihex
　　　　　　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

　　; 子程序crlf
　　　　　　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