как число которое в шестнатсетиричной системе распечатать в деситичной

Код

text segment byte assume cs:text,ds:text org 100h begin: ; Пусть в ax будет число, которое надо вывести как десятичное  mov  ax,0666 ; Форматируем его, результат записываем в строку  mov  cx,10000; Начальный делитель  mov  di,offset DecNum; Адрес приемника  cld  ; Флаг направления для команды stosb @@GetDec:  xor  dx,dx  div  cx; dx:ax / cx -> ax, остаток в dx  add  al,'0'; Приводим к ASCII  stosb; Записываем в выходную строку  push dx; Запоминаем остаток  xor  dx,dx  mov  ax,cx  mov  cx,10  div  cx  ; Делим делитель на 10  mov  cx,ax  pop  ax; Вспоминаем делимое  test cx,cx; Делитель стал равен 0 ?  jnz  @@GetDec ; Выводим результат  mov  ah,09h  mov  dx,offset DecNum  int  21h  ret DecNum db '??',13,10,'$' text ends end begin

Спасибо за помощь.
Кстати я тут вчера сам тоже допетрил как ето сделать. Я просто решил сделать это для многоразового пользования и сделать macro и вот что у меня получилось:


OutNum macro  Scr
local   next, out_chr
push    ax
push    bx
push    cx
push    dx
mov     ax,Scr
mov     bx,10
mov     cx,0
next:
mov     dx,0
div     bx
push    dx
inc     cx
cmp     ax,0
jne     next
mov     ax,0200h
out_chr:
pop     dx
add     dl,'0'
int     21h
loop    out_chr
pop     dx
pop     cx
pop     bx
pop     ax
     endm


Потом в коде просто пишешь

OutNum <число>

и готово!  


P.S.  For integers only...