[Efir]

число, у которого первая тетрада, тобишь первые 4 бита, равны нулю, кратно 16. Алгоритм основан на циклической проверке первых 4 бит. Я не программист, посему кто шарит пусть поправляет, если что-то не так.

Код:

fun proc val:WORD   ; процедура fun и входящий параметр val размером в слово.

    mov ax, val          ; пишем входящее число в регистр ax
    mov cx, 4            ; в cx пишем кол-во прогонов цикла
    mov bx, 1            ; в bx записываем маску с которой будем сравнивать
       
cxloop:
    
    test ax, bx          ; проверяем бит числа на текущее значение маски
    jnz false            ; если не 0, выходим т.к. число не делится на 16
    shl bx, 1            ; если 0,  готовим маску для проверки следующего бита, то есть сдвигаем на 1 разряд влево
    loop cxloop          ; уменьшаем кол-во проходов на один, если CX=0, то выходим, если нет выполняем цикл снова
             

true:
    mov ax, 1
    jmp return

false:
    mov ax, 0

return:
    ret

fun endp

end

[CyberDaemon]

число, у которого первая тетрада, тобишь первые 4 бита равны нулю »

Т.е. если число AND 0x0Fh равно нулю - то первые четыре бита числа были равны нулю

[Moustap]

EFIR,благодарю)

[Efir]

CyberDaemon, всмысле можно сразу проверить на 4 бита и негородить огород со сдвигом?

Moustap, процедура задачу выполняет, только однозначно не оптимальным способом, но думаю вам сойдет)

[Efir]

поправил первый код, и вот еще один, куда проще

Код:

fun proc val:WORD        ; процедура fun и входящий параметр val размером в слово.

    mov ax, val          ; пишем входящее число в регистр ax
    test al, 00001111B   ; любой из младших 4 бит равен единице?
    jnz false            ; если да, то число не кратно 16, false
    
true:
    mov ax, 1
    jmp return

false:
    mov ax, 0           

return:
    ret

fun endp