teclado.c

//------------------------------------------------------------------------------
// Teclado_GNU.c
//
//  Fichero que proporciona la función para leer una tecla de teclado
//
// Autores: Juan Manuel Montero y Rubén San Segundo.
// Adaptado a C por: Javier Guillén Álvarez
// Retocado: Mª Dolores Priego Porcuna e Ines Fernández Yuste
//------------------------------------------------------------------------------
#include "m5272lib.c"
#include "m5272gpio.c"
#include "MT-10.h"

#define NUM_FILAS 4
#define NUM_COLS 4
#define EXCIT 1




//------------------------------------------------------
// char teclado(void)
//
// Descripción:
//   Explora el teclado matricial y devuelve la tecla
//   pulsada
//------------------------------------------------------
char teclado(void)
{
  //char tecla;
  //static UWORD puerto_S=0;
  BYTE fila, columna, fila_mask;
  static char teclas[4][4] = {{"123C"},
                              {"456D"},
                              {"789E"},
                              {"A0BF"}};
  // Bucle de exploración del teclado
  while(TRUE){

    // Excitamos una columna
    for(columna = NUM_COLS - 1; columna >= 0; columna--){
      //set16_puertoS(EXCIT << columna);
      puerto_S = puerto_S & 0xFFF0;
      puerto_S= (EXCIT << columna) | puerto_S;
      set16_puertoS(puerto_S);		// Se envía la excitación de columna
      retardo(1150);				// Esperamos respuesta de optoacopladores

      // Exploramos las filas en busca de respuesta
      for(fila = NUM_FILAS - 1; fila >= 0; fila--){
        fila_mask = EXCIT << fila;		// Máscara para leer el bit de la fila actual
        if(lee16_puertoE() & fila_mask){		// Si encuentra tecla pulsada,
          while(lee16_puertoE() & fila_mask);	//   Esperamos a que se suelte
          retardo(1150);			//   Retardo antirrebotes
          return teclas[fila][columna];	//   Devolvemos la tecla pulsada
        }
      }
      // Siguiente columna
    }
    // Exploración finalizada sin encontrar una tecla pulsada
  }
  // Reiniciamos exploración
}