Здравствуйте, Trivi.
и далее сами вопросы. Если пользователь вносит в AX число, то использовать его уже нельзя чтобы не "испортить", т.е. надо воспользоваться push и pop, насколько я понимаю? - обычно хорощо когда процедура не портит регистры, но в данном случае программист решает что сохранить что нет.
- она не обнуляет (обнулит xor)
она выставит флаги в соответствии со значением в ax, будут там ноль, поднимет флаг ZF
в логике кода вроде все верно (если поменять std на cld), только число будет задом наперед

Здравствуйте, Trivi.
Программа в приложении

Если пользователь вносит в AX число, то использовать его уже нельзя чтобы не "испортить", т.е. надо воспользоваться push и pop, насколько я понимаю?

Вы правы. Чтобы сохранить содержимое регистра, можно воспользоваься push pop.

Следующее это цикл. строка "or ax,ax" была написана с расчетом того, что она будет сравнивать AX нулем и далее если не равно, то запускать цикл заново. как мне объяснили, она не проверяет, а обнуляет?

Все правильно написано. Только команда не сравнивает с нулем, а делает логическое ИЛИ содержимого регистра AX самого с собой, при этом устанавливаются флаги результата. В итоге, переход на метку Repeat будет, если в AX не 0. (Хотя внешне получается, что сравнивается с 0). С той же целью можно было использовать AND или TEST. Вы перепутали с командой XOR, которая, действительно, обнуляет.

Удачи в освоении ассемблера!

Приложение:
.model tiny

color equ 0bh ;цвет выводимых символов

.code
org 100h ;для СОМ-файла
start:
mov ax,3 ;под ХР для прямого вывода на экран
int 10h ;необходимо переустановить видеорежим

mov ax,0B800h ;сегмент видеобуфера
mov es,ax

mov di,4*2 ;адрес правого (младшего) символа числа
;максимум 5 символов, на каждый 2 байта (сам символ и арибут)
std ;автодекремент адреса

mov ax,1234 ;выводимое число
call print ;рисуем на экране

mov ah,0 ;ждем нажатие на клавишу
int 16h

mov ax,4c00h ;выход в ДОС
int 21h

print proc ;процедура вывода на экран
push ax cx dx di ;сохраним используемые регистры в стеке
mov cx,10 ;делим на 10
Repeat:
xor dx,dx ;подготавлим деление
div cx ;dx:ax / cx
xchg ax,dx ;в ax остаток, в dx частное
add al,'0' ;0-9 в '0'-'9'
mov ah,color ;добавим атрибут
stosw ;выведем, di = di - 2
xchg ax,dx ;в ax частное
or ax,ax ;проверим на 0 (xor ax,ax обнуляет регистр)
jne Repeat ;если не 0, то повторим
pop di dx cx ax ;восстановим регистры из стека
ret
print endp
end start