A-Z

.model small
.data

msg1 db  0dh,0ah,"Enter a Value :  $"
msg2 db  0dh,0ah,"The value is Upper Case $"
msg3 db  0dh,0ah,"The value isn't  upperCase $"

x db ?

main proc
    mov ax,@data
    mov ds,ax

    mov ah,9
    lea dx,msg1
    int 21h  ;print string

    mov ah,1
    int 21h   ;take input
    mov x,al  ;move input to variable

    CMP x,65   ;compare with 65
    JL level   ; if value less than 65 execute level

    CMP x,90   ;compare with 90
    JG level   ; if value greater than 90 execute leve


    mov ah,9   ;if not the execute this partr
    lea dx,msg2
    int 21h

    JMP exit    ;goto exit


    level:       ;value are same
    mov ah,9
    lea dx,msg3
    int 21h


    exit:
    main endp
end main