.model small
.stack 100h
.data
msg1 db "Number is Prime$"
msg2 db "Number is not Prime$"
input db "Enter Number : $"
new db 0ah,0dh,"$"
.code
main proc
    mov ax,@data
    mov ds,ax
    mov ah,9
    lea dx,input
    int 21h

    mov ah,1   ;number input nibe
    int 21h
    mov bl,al

    mov ah,9
    lea dx,new
    int 21h
    cmp bl,31h    ;number 1 kina check korbe
    je prime
    cmp bl,32h    ;number 2 kina check korbe
    je prime
    cmp bl,33h    ;number 3 kina check korbe
    je prime
    cmp bl,35h    ;number 5 kina check korbe
    je prime
    cmp bl,37h    ;number 7 kina check korbe
    je prime


    lea dx,msg2
    int 21h      ;kono number er sathe match na korle
    jmp exit     ;prime hobe na..tai not prime print korbe

    prime:
    lea dx,msg1
    int 21h

    exit:
    mov ah,4ch
    int 21h

    main endp
end main