[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