VOLCADO DEL BUFFER CON LDI (II): INICIO Y LECTURA DEL TECLADO

Como ya he dicho, el programa se ejecuta desde la dirección 24000. Esto corresponde a la memoria contenida. Lo primero que hacemos es deshabilitar las interrupciones, ya que no las vamos a usar de momento y colocar la pila.


ORG 24000 DI LD SP, $FA00


Luego hay una serie de rutinas que sirven para crear las tablas que necesitamos para que el invento funcione y de momento no nos interesan.

A partir de la línea 102, tenemos lo siguiente:


XOR A OUT ($FE),A CALL BOREAL ;BORRA LA PANTALLA REAL LD HL,PANTVIR ;PINTA LAS RAYAS EN EL BUFFER LD DE,PANTVIR+1 LD (HL),1 LD BC,TAMPAN-1 LDIR JP INICIO

Con XOR A, ponemos A=0 y con OUT (FEh),A ponemos el borde negro.

Llamamos a la rutina que nos borra la pantalla real:


;;BORRA LA PANTALLA REAL BOREAL ;;BORRA LOS GRAFICOS LD HL,$4000 LD D,H LD E,L INC E LD (HL),0 LD BC,$1800-1 LDIR ;;BORRA LOS ATRIBUTOS LD HL,$5800 LD D,H LD E,L INC E LD (HL),6 ;PONE COLOR AMARILLO LD BC,$300-1 LDIR RET

Cargamos HL con el inicio de la pantalla real (4000h) y DE con HL+1 (4001h). Metemos en la primera dirección un cero y hacemos LDIR con BC igual al tamaño de la zona de los gráficos.

Para los atributos hacemos lo mismo desde el inicio de la zona de atributos, pero metemos un 6, con lo que pintamos la pantalla de amarillo.

Este método no es que sea muy optimizado, pero me da lo mismo, ya que aquí la velocidad no importa demasiado. Al borrar la pantalla real conviene hacer un HALT antes, para que el efecto sea más uniforme.

Después de esto, pintamos las rallas en el buffer y saltamos a INICIO que ya pertenece a la zona no contenida y que está en APRINCIPAL.ASM.

Para no liar mucho el asunto, voy a ir directamente a la lectura del teclado.


;;;;;;;;LECTURA DE TECLAS;;;;;;; ;;;LEO LOS PUERTOS NECESARIOS Y ACTUALIZO EL REGISTRO L;;; ;;;REGISTRO L: BIT 0=1 DERECHA PULSADA ;;;REGISTRO L: BIT 1=1 IZQUIERDA PULSADA ;;;REGISTRO L: BIT 2=1 DABAJO PULSADA ;;;REGISTRO L: BIT 3=1 ARRIBA PULSADA ;;;REGISTRO L: BIT 4=1 DISPARO PULSADO NOJOY1 LD L,0 NOJOY23 LD A,$7F ;PARA EL DISPARO IN A,($FE) TSAL AND 1 JP NZ, NOJOY2 SET 4,L NOJOY2 LD A,$DF ;TECLA IZQUIERDA IN A, ($FE) TIZ AND 2 JP NZ, MIRATD JIZ SET 1,L JP MIRATAR LEEJOY ;LEE EL JOYSTICK LD A,$FF IN A,(31) JP FINTE1 MIRATD DERE1 LD A, $DF ;TECLA DERECHA IN A, ($FE) TDER AND 1 JP NZ, MIRATAR SET 0,L MIRATAR NOJOY4 LD A, $FB ;TECLA DE ARRIBA IN A, ($FE) SALBT AND 1 JP NZ, MIRATAB SET 3,L JP FINTEC MIRATAB QUITO2 LD A, $FD ;TECLA ABAJO IN A, ($FE) TARR89 AND 1 JP NZ, FINTEC SET 2,L FINTEC LD A,L FINTE1 LD (JOY+1),A ;METO EL RESULTADO EN JOY+1

Todo lo concerniente a la teoría sobre la lectura del teclado lo puedes ver aquí.

Yo lo que hago es ir leyendo las letras que me interesan, OPQA y disparo y dependiendo de si están pulsadas o no, pongo a 1 un determinado bit del registro L. Ni que decir tiene que primero hay que poner L a cero...

REGISTRO L: BIT 0=1 DERECHA PULSADA REGISTRO L: BIT 1=1 IZQUIERDA PULSADA REGISTRO L: BIT 2=1 DABAJO PULSADA REGISTRO L: BIT 3=1 ARRIBA PULSADA REGISTRO L: BIT 4=1 DISPARO PULSADO

Por ejemplo, si pulsamos a la vez la tecla derecha, la de arriba y el disparo, L=00011001b

En FINTEC paso el valor resultante de L al registro A, y lo guardo en la dirección JOY+1.

He dejado por ahí un código que en este ejemplo no uso, y es la lectura del Joystick Kempston en LEEJOY. Lo usaré más adelante.

El valor que voy dando al registro L según la tecla que esté pulsada no es trivial. Coincide con el valor que resulta de leer el Joystick, por lo que así unifico el resultado independientemente de que el personaje se maneje con teclado o Joystick.