ORG &4000

LD A,1      ;CARGAMOS EN EL ACUMULADOR EL DECIMAL "1"
CALL &BC0E  ;ESTABLECE EL MODO DE PANTALLA EN EL QUE ESTÉ EL ACUMULADOR (0,1,2)

LD H,&05
LD L,&07
CALL &BB75  ;POSICIONA EL CURSOR EN (L,H)

.INICIAL
CALL &BB18  ;RECOJE UNA PULSACIÓN Y GUARDA SU ASCII EN EL ACUMULADOR
CP 65       ;COMPARA LA RESTA DEL NÚMERO 65 CON LA DEL ACUMULADOR
JP C,INICIAL    ;SI HUBO CARRY (ASCII<65) LLAMA A "INICIO"
CP 123      ;COMPARA LA RESTA DEL NÚMERO 123 CON LA DEL ACUMULADOR
JP NC,INICIAL   ;SI NO HUBO CARRY (ASCII>=123) LLAMA A "INICIO"
CP 97       ;COMPARA LA RESTA DEL NÚMERO 97 CON LA DEL ACUMULADOR
JR NC,SIGUE ;SI NO HUBO CARRY (ASCII>=97) CONTINUA EN "SIGUE"
CP 91       ;COMPARA LA RESTA DEL NUMERO 91 CON LA DEL ACUMULADOR
JP NC,INICIAL   ;SI NO HUBO CARRY (ASCII>=91) LLAMA A "INICIO"

.SIGUE
RES 5,A     ;PONE A 0 EL BIT 5 DEL ACUMULADOR. o SEA, EN MAYÚSCULA
CALL &BB5A  ;ESCRIBE EN PANTALLA LO QUE ESTÁ EN EL ACUMULADOR

.RESTO
LD B,80     ;CARGA B CON 80. NUESTRA PALABRA TENDRÁ COMO MÁXIMO 81 LETRAS.

.BUCLE
CALL &BB18  ;RECOJE UNA PULSACIÓN Y GUARDA SU ASCII EN EL ACUMULADOR
CP 13       ;COMPARA 13 CON EL ACUMULADOR
RET Z       ;SI SE HABÍA PULSADO "RETURN" (Z=1), RETORNA
CP 65       ;COMPARA 65 CON EL ACUMULADOR
JP C,BUCLE  ;SI HUBO CARRY (ASCII<65) LLAMAMOS A "BUCLE"
CP 123      ;COMPARA LA RESTA DEL NÚMERO 123 CON LA DEL ACUMULADOR
JP NC,BUCLE ;SI NO HUBO CARRY (ASCII>=123) LLAMA A "BUCLE"
CP 97       ;COMPARA LA RESTA DEL NÚMERO 97 CON LA DEL ACUMULADOR
JR NC,SIGUE2    ;SI NO HUBO CARRY (ASCII>=97) CONTINUA EN "SIGUE2"
CP 91       ;COMPARA LA RESTA DEL NUMERO 91 CON LA DEL ACUMULADOR
JP NC,BUCLE ;SI NO HUBO CARRY (ASCII>=91) LLAMA A "BUCLE"

.SIGUE2
SET 5,A     ;PONE A 1 EL BIT 5 DEL ACUMULADOR (MINÚSCULA)
CALL &BB5A  ;ESCRIBE POR PANTALLA LO QUE ESTÁ EN EL ACUMULADOR
DJNZ BUCLE  ;DECREMENTA "B" Y SI NO HAY "ZERO" SALTA A BUCLE

RET