Найти числа, кратные X, на заданном интервале

_UCharToStr macro arg1, arg2
    lea bx, arg1
    push bx
    ifnb <arg2>
        mov al, arg2
    endif
    call UCharToStr
    mov byte ptr[bx], '$'
    pop bx
endm
 
print macro arg1
    push dx
    mov ah, 09h
    lea dx, arg1
    int 21h
    mov al, ' '
    int 29h
    pop dx
endm
 
codesg segment 'code'
    assume cs:codesg, ds:codesg, ss:codesg
    org 100h
    main: jmp begin
        n_min db 15
        n_max db 200
        x db 13
        buffer db 4 dup('$')
    begin:
        mov cl, n_max
        mov al, n_min
        mov dh, al
        sub cl, al
        mov dl, x
        _while: xor ah, ah
            div dl
            or ah, 0
            jnz Next
            _UCharToStr buffer, dh
            print buffer
            Next: inc dh
            mov al, dh
        loop _while
    int 20h
    
    ;вход в al-число в bx адрес буфера куда следует писать число
    UCharToStr proc
        push dx
        push cx
        xor dx, dx
        xor cx, cx
        mov dl, 10
        __while: xor ah, ah
            div dl
            inc cx
            add ah, '0'
            push ax
            or al, 0
            jz break
        jmp __while
        break: pop ax
            mov [bx], ah
            inc bx
        loop break
        pop cx
        pop dx
        ret
    UCharToStr endp
codesg ends
    end main

mov cl, n_max
        mov al, x
        shl al, 1
        sub cl, al
        mov dh, al
        mov dl, x
        _while: xor ah, ah