ejercicio19.txt

;;; 5.19.- Dado un vector formado por caracteres ASCII, del que se conocen la 
;;; dirección de su primer elemento y la cantidad de elementos, obtener otro 
;;; vector en el que solamente se incluyan aquellos caracteres del primero que 
;;; representen letras y/o números. 

ROM                 EQU         $C000
RWM                 EQU         $0000
RESET               EQU         $FFFE

                    ORG         RWM
dirIni              RMB         2
dirIniNuevo         RMB         2
cantidad            RMB         1
auxCant             EQU         0
minNum              EQU         48
maxNum              EQU         57
minCaracMAYUS       EQU         65
maxCaracMAYUS       EQU         90
minCaracMinuscula   EQU         97
maxCaracMinuscula   EQU         122
            
;;; Codigo ASCII: 
;;;     48 al 57  (NUMEROS DEL 0 al 9)
;;;     65 al 90  (Caracteres MAYUSCULA)
;;;     97 al 122 (Caracteres minuscula)

                    ORG         ROM
                    LDX         #dirIni                 ;;; MODO INMEDIATO
                    LDY         #dirIniNuevo            ;;; MODO INMEDIATO
Loop:            
                    LDAA        0,X                     ;;; MODO INDEXADO
                    CMPA        minNum                  ;;; MODO ABSOLUTO DIRECTO
                    BLO         NoEsNada                ;;; MODO RELATIVO
                    CMPA        maxNum                  ;;; MODO ABSOLUTO DIRECTO
                    BLO         EsValido                ;;; MODO RELATIVO
                    CMPA        minCaracMAYUS           ;;; MODO ABSOLUTO DIRECTO
                    BLO         NoEsNada                ;;; MODO RELATIVO
                    CMPA        maxCaracMAYUS           ;;; MODO ABSOLUTO DIRECTO
                    BLO         EsValido                ;;; MODO RELATIVO
                    CMPA        minCaracMinuscula       ;;; MODO ABSOLUTO DIRECTO
                    BLO         NoEsNada                ;;; MODO RELATIVO
                    CMPA        maxCaracMinuscula       ;;; MODO ABSOLUTO DIRECTO
                    BLO         EsValido                ;;; MODO RELATIVO
Continuar:
                    INX                                 ;;; MODO REGISTRO DIRECTO
                    INC         auxCant                 ;;; MODO ABSOLUTO DIRECTO
                    BRA         Loop                    ;;; MODO RELATIVO
fin                 BRA         fin                     ;;; MODO RELATIVO

NoEsNada:
                    LDAB        auxCant                 ;;; MODO ABSOLUTO DIRECTO
                    CMPB        cantidad                ;;; MODO ABSOLUTO DIRECTO
                    BEQ         fin                     ;;; MODO RELATIVO
                    BRA         Continuar               ;;; MODO RELATIVO
EsValido:
                    STAA        0,Y                     ;;; MODO INDEXADO
                    INY                                 ;;; MODO REGISTRO DIRECTO
                    LDAB        auxCant                 ;;; MODO ABSOLUTO DIRECTO
                    CMPB        cantidad                ;;; MODO ABSOLUTO DIRECTO
                    BEQ         fin                     ;;; MODO RELATIVO
                    BRA         Continuar               ;;; MODO RELATIVO




            ORG         RESET
            DW          ROM