Ассемблер. Вывод числа, хранящегося в регистре.

[Lost7070]

Доброго времени суток. Есть код программы, которая выводит число, хранящееся в регистре.

org 100h
mov ax,2e4ah;заносим в регистр число
mov cx,4;количество повторов цикла для loop
pv:;метка
rol ax,4;сдвигаем влево исходное число
mov di,ax;сохраняем исходные цифры
and ax,000fh;помещаем в регистр ax число 000fh
;Вывод на экран
cmp al,10;сравниваем с 10, чтобы знать буква это или цифра от 0-9
jb dig;Переход на метку если не равно 10
add al,7;прибавляем 7 к регистру al
dig:
add al,30h;прибавляем 30
mov ah,2
mov dl,al 
int 21h
mov ax,di;достаём изначальный код
loop pv;переход на метку pv что бы данный кусок повторялся
mov ah,0;эти 2-е последние строчки для ожидания нажатия на клавишу
int 16h
ret

Я не силён в ассемблере, но мне кажется, это очень запутанный код(хотя возможно я ошибаюсь).
Подскажите пожалуйста, возможно ли как-нибудь рациональней реализовать эту задачу или это и есть самый оптимальный метод ?
Заранее благодарен.