assem / задачи на экзамен / 18

18. Написать процедуру нормализации значения, содержащегося в AX. Нормализация заключается в сдвиге содержимого AX влево до тех пор, пока старший из битов, имеющих значение 1, не попадет в 15-й разряд. Если же сразу (AX)=0 или 15-й разряд содержит 1, то процедура не должна выполняться. При выходе из процедуры регистр BX должен содержать число, равное количеству выполненных сдвигов.
model small
data_sg segment
x dw 2345h
.stack 100h
data_sg ends
code_sg segment
assume cs:code_sg, ds:data_sg
gulko proc
xor bx,bx
m1:
mov cx,ax
and cx,08000h
cmp cx,08000h
je m2
shl ax,1
inc bx
jmp m1
m2:
ret
gulko endp
start:
mov ax,data_sg
mov ds,ax
mov ax,x
cmp ax,0
je exit
mov cx,ax
and cx,08000h
cmp cx,08000h
je exit
call sergey
exit:
mov ax,4c00h
int 21h
ret
code_sg ends
end start