/*--------------------------------------------------------------------
 * FICHERO:  TecFijMa.c
 * OBJETIVO: Definir la funcin Tec_FijadoMayus()
 * AUTOR:    Pedro Reina
 * FECHA:    J.20.4.1995
 *------------------------------------------------------------------*/

/*--------------------------------------------------------------------
 * Ficheros de cabecera
 *------------------------------------------------------------------*/

#include "Tecla.h"

#ifdef OLIMPO_PC
#include <bios.h>               /*  bioskey()                       */
#endif

/*--------------------------------------------------------------------
 * Definicin de funciones
 *------------------------------------------------------------------*/

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Tec_FijadoMayus()
 * OBJETIVO: Decir si est activado el sujeta-maysculas
 * ENTRADAS: Ninguna, se lee del sistema
 * SALIDAS:  Lgica
 * EJEMPLO:  Tec_FijadoMayus()
 *------------------------------------------------------------------*/
                        
#ifdef OLIMPO_PC
/*--------------------------------------------------------------------
 * NOTA:     La funcin bioskey(2) devuelve -1 cuando no se pulsa nada,
 *           luego he tenido que sortearlo.
 *------------------------------------------------------------------*/
logico Tec_FijadoMayus()
  {
  int    Estado;
  logico Respuesta;

  Estado = bioskey(2);
  if ( Estado == -1 )
    { Respuesta = NO; }
  else
    {
    if ( Estado & 64 ) { Respuesta = SI; }
    else               { Respuesta = NO; }
    }
  return ( Respuesta );
  }
#endif

#ifdef OLIMPO_QL
/*--------------------------------------------------------------------
 * NOTA: Habra que comprobar si esta rutina funciona igual en todas las
 *       versiones de QDOS
 * ALGORITMO:
 *     Leer la posicin de memoria 163976
 *     Si es 0, devolver NO
 *     Si no, devolver SI
 *------------------------------------------------------------------*/
logico Tec_FijadoMayus()
  {
  octeto *Ojo;

  Ojo = 163976;

  return ( *Ojo != 0 );
  }
#endif