菜鸟问题：编一个子程序

[shimj]

各位高手，请教这个程序怎么写：

编写一个子程序，使它能接收从键盘输入的4位十进制数，并转换成对应的二进制数存放在DX寄存器中，并给出主程序得调用方式。

请写出完整程序，谢谢！

[bamboorain]

decibin把十进制数转换成对应的二进制数存放在DX寄存器
show 把dx的数显示到屏幕
crlf 回车换行
程序如下：
decihex segment
assume cs:decihex
main proc far
call decibin
call crlf
call show
call crlf
mov ax,4c00h
int 21h
main endp
;=========================
decibin proc near
mov bx,0
mov cx,4
newchar:
mov ah,1
int 21h
sub al,30h
jl exit
cmp al,9d
jg exit
cbw
xchg ax,bx
mov dx,10d
mul dx
xchg ax,bx
add bx,ax
loop newchar
exit:
ret
decibin endp
;=========================
show proc near
mov cx,16
rotate:
rol bx,1
mov al,bl
and al,01h
add al,30h
mov dl,al
mov ah,2
int 21h
loop rotate
ret
show 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