.model small
.stack 100h
.data                 

a db 10,13,'Enter a number: $'  
b db 10,13,'This number is odd $'
c db 10,13,'This number is even  $'
d db 10,13,'its not a number $' 

.code 
main proc
    mov ax,@data
    mov ds,ax
    
    mov ah,9
    lea dx,a
    int 21h 
    
    mov ah,1
    int 21h
    *** al,48
    jl no
    *** al,57
    jg no  
    
    mov ah,0
    mov dl,2
    div dl
    
    *** ah,0
    jne odd
    
    even:
    mov ah,9
    lea dx,c
    int 21h
    jmp exit 
    
    odd:
    mov ah,9
    lea dx,b
    int 21h 
    jmp exit
    
    
    no:
    mov ah,9
    lea dx,d
    int 21h
    
    exit:
    mov ah,4ch
    int 21h
    main endp 

end main