.MODEL  SMALL
    .DATA
           VAl1     DB      ?
           NL1      DB      0AH,0DH,'ENTER NO:','$'
           NL2      DB      0AH,0DH,'IT IS NOT PRIME','$'
           NL3      DB      0AH,0DH,'IT IS PRIME','$'
;se definen las cadenas de caracteres

           .CODE
    MAIN    PROC

            MOV AX,@DATA;se coloca la direccion de segmento de datos
            MOV DS,AX;se guarda la direccion del segmento de datos en ds

            LEA DX,NL1;se garda la direccion del puntero nl1
            MOV AH,09H;desplega en pantalla
            INT 21H;intrrupcion vuelve al dos
    
            MOV AH,01H;pide una entrada
            INT 21H;interrupcion  vuelve al dos
            SUB AL,30H;se le resta 30h para converti el caracter a un numero
            MOV VAL1,AL; copia el numero a la variable val1
            
           MOV AH,00; limpia a AH

            MOV CL,2;copia 2 en cl
            DIV CL;divide entre cl al
            MOV CL,AL;mueve el cociente de la vision entre 2

    LBL1:
            MOV AH,00;limpia ah
            MOV AL,VAL1;copia val1 en ah
            DIV CL;divide el nuero ente el valor de cl
            CMP AH,00;compara si el residuo es 0
            JZ LBL2;salta si la divisien entre 2 es entera
            DEC CL;decrementa el valor de cl
            CMP CL,1;compara cl con 1
            JNE LBL1;si cl no es 1 salta a LBL1
            JMP LBL3;si cl es 1 salta a LBL3
    
    LBL2:
    
            MOV AH,09H;funcion 09 para imprimir en pantalla
            LEA DX,NL2;mueve a dx la direccion de la cadena de caracteres a imprimir
            INT 21H; interrupcion al dos
            JMP EXIT ; salto a salida   
    
    LBL3:
            MOV AH,09H;funcion 09 para imprimir en pantalla
            LEA DX,NL3;mueve a dx la direccion de la cadena de caracteres a imprimir
            INT 21H;interrupcion al dos
    
    EXIT:
            MOV AH,4CH; 4Ch es la función del DOS para terminar la
			; ejecución de un programa
            INT 21H; interrupcion al dos
    
    MAIN    ENDP;termina el programa
            END     MAIN;fin del main