section .data
    prompt db "Ingresar un digito de (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
    globlal _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

    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