Выводит число задом наперед

[morhaint]

Помогите найти ошибку. Есть код перевода числа в различные системы счисления в графическом режиме. При выводе выводит число задом наперед, например, ввел 543, на выходе получается 345. Хотя вроде делал через стек и все должно быть нормально. В текстовом режиме работает правильно.

.model tiny
.code
org 100h
start:

mov ax,4F02h ; videoregim 640*480
mov bx,12h
int 10h

;ввод числа
mov si,10 ;работаем с десятичной нотацией
mov di,0
@aa:
; вводим число до нажатия клавиши "ВВОД"
mov ah,01h
int 21h
cmp al,13 ; проверяем нажатие клавиши "ВВОД"
jz a1 ; если клавиша нажата, то переходим на конец
; обработки ввода числа
; иначе выполняем следующие 8 пунктов

sub al,'0' ; из кода ASCII получаем цифру
xor ah,ah ; теперь значение ах равно значению al
mov cx,ax ; копируем ах в сх
mov ax,di ;записываем в ах введенное до текущей цифры число
mul si ;умножаем его на 10, переходя тем самым в текущий
;разряд
add ax,cx ;добавляем к числу текущую цифру
mov di,ax ;сохраняем текущее число в di
jmp @aa ; переходим на обработку следующего разряда
a1:
mov num,di ; сохраняем окончательное значение введенного числа
; в переменной "num"

mov ax,num
xor bx,bx
mov bx,32
call OutInt


ret
OutInt proc near

xor cx, cx
oi2:
xor dx,dx
div bx
push dx
inc cx
test ax, ax
jnz oi2
; Теперь приступим к выводу.
oi3:
mov ah, 09h
mov bl,1
mov bh,0

pop dx
mov al,dl
cmp al,9
jbe oi4
add al,7
oi4:
add al, '0'
int 10h
; Повторим ровно столько раз, сколько цифр насчитали.
loop oi3
ret
OutInt endp
; задание констант
num dw '0'
end start

[R71MT]

morhaint, скачиваешь отладчик, открываешь в нём свою программу и смотришь на регистры. Ошибки сразу на лицо.. Если лень возиться с отладчиком, то можешь использовать такие функции ввода/вывода чисел в различных системах счислений:

;*********************************************************************
ASC2HEX:                 ; Процедура переводит символы в число
   xor   cx,cx           ; Вход:  ВХ = система счисления
@@:                      ; Выход: СХ = число
   xor   ax,ax           ;
   int   16h             ; ждём ввод
   cmp   al,13           ; Enter заканчивает ввод
   jz    stop            ;
   cmp   al,'0'          ; фильтр цифр
   jb    @b              ;
   cmp   al,'9'          ;
   ja    @b              ;
   int   29h             ; покажем ввод на экране
   and   ax,0fh          ; перевод символа в число
   cmp   ax,bx           ; тест ввода с системой счисления
   jae   overlow         ; больше/равно - ошибка
   xchg  ax,cx           ;
   xor   dx,dx           ;
   mul   bx              ;
   add   cx,ax           ; иначе: число в СХ
   jmp   @b              ; сл.символ..
overlow:                 ;
   jmp   error           ; на обработчик ошибки
stop:                    ;
RET                      ;

;*********************************************************************
HEX2ASC:                 ; Функция переводит числа в символы
   pusha                 ; Вход:  АХ = число, BX = система счисления
   xor   cx,cx           ; счётчик разрядов числа
isDiv:                   ;
   xor   dx,dx           ;
   div   bx              ; делитель
   push  dx              ; остаток будет числом
   inc   cx              ;
   or    ax,ax           ;
   jnz   isDiv           ;
isOut:                   ;
   pop   ax              ; выводим его на экран
   cmp   al,9            ;
   jle   noHex           ;
   add   al,7            ;
noHex:                   ;
   add   al,30h          ;
   int   29h             ;
   loop  isOut           ;
   popa                  ;
RET                      ;