请教汇编高手，一道题不会做，希望能给出代码

[allan0102]

最近遇到一题不会做，请高手给出代码：
十六（0～65535）进制到十进制数转换的程序实现
转换的数从键盘输入，转换后的数从屏幕显示，具备提示信息，能正常结束返回操作系统。
在这里感激不尽啊！！！

[citGenny]

;HEX2DEC.ASM

STACKSEG SEGMENT STACK 'STACK'

dw 200 dup (?)

STACKSEG ENDS

DATASTUFF SEGMENT PUBLIC 'DATA'
HexNum DW 5678H
DecNum DB ?,?,?,?,?,0Dh,0Ah,'$'
JM DW 10000,1000,100,10
DATASTUFF ENDS

CODESTUFF SEGMENT PUBLIC 'CODE'
ASSUME CS:CODESTUFF,DS:DATASTUFF
main proc far
start: push ds
sub ax,ax
push ax

mov ax, DATASTUFF
mov ds,ax

mov dx, hexNum
mov cx, 4
mov si, offset JM
mov di, offset DecNum
next: mov ax,dx
xor dx, dx
div word ptr [si]
inc si
inc si
add al,'0'
mov [di],al
inc di
loop next
add dl,'0'
mov [di],dl

mov ah,09h
mov dx, offset DecNum
int 21h

ret

main endp

CODESTUFF ENDS
END start



输入数据也只需调用DOS INT 21H,时间问题我有急事，马上要走，你自己先想想。