section .data
    prompt db "Ingresa un digito (0-9): "
    prompt_len equ $-prompt

    msg_par db "El numero es PAR"
    msg_par_len equ $-msg_par

    msg_impar db "El numero es IMPAR"
    msg_impar_len equ $-msg_impar

    num times 2 db 0

 section .text
    global _start 

 _start:
     ; Mostramos mensaje de solicitud 
     mov rax, 1
     mov rdi, 1
     mov rsi, prompt
     mov rdx, prompt_len
     syscall

     ; Leemos el digito
    mov rax, 0
    mov rdi, 0
    mov rsi, num
    mov rdx, 2
    syscall

    mov al, [num]
    sub al, "0"

 verificar:
    cmp al, 0
    je es_par 
    cmp al, 1
    je es_impar

    sub al, 2
    jmp verificar

es_par:
    mov rax, 1
    mov rdi, 1
    mov rsi, msg_par
    mov rdx, msg_par_len
    syscall
    jmp salir

es_impar:
    mov rax, 1
    mov rdi, 1
    mov rsi, msg_impar
    mov rdx, msg_impar_len
    syscall

salir:
mov rax, 60
mov rdi, 0
syscall