.MODEL SMALL
.STACK
.DATA  
   
caracter db "8" ; Ejercicio 9 Modificado
digito db ?
texto1 DB "Ingreso un numero", "$"      
texto2 DB "No ingreso un numero","$"

.CODE
inicio: 
   mov ax,@data ; Inicializar el segmento de datos
   mov ds, ax
    
   mov dl,caracter
   
   cmp dl,"0"
   jl noesNumero     
   
   cmp dl, "9"
   jg noesNumero
   
   mov dx, offset texto1  ;Si es un numero lo
   mov ah, 09h            ;imprime por pantalla
   int 21h
   
   jmp final
   
   noesNumero:  
      mov dx, offset texto2  ;Si no es un numero
      mov ah, 09h            ;lo imprime por pantalla
      int 21h
     
   final:
   
   mov ax,4C00h ; Terminar
   int 21h
   
END inicio