/*--------------------------------------------------------------------
 * FICHERO:  MmoAnota.c
 * OBJETIVO: Definir la funcin Mmo_Anota()
 * AUTOR:    Pedro Reina
 * FECHA:    X.12.7.1995
 *------------------------------------------------------------------*/

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

#include "Memo.h"

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

/*--------------------------------------------------------------------
 * FUNCION:  Mmo_Anota()
 * OBJETIVO: Grabar en memoria un octeto de un bloque
 * ENTRADAS: El objeto memo y el octeto
 * SALIDAS:  Lgica, que indica que todo ha ido bien
 * EJEMPLO:  Mmo_Anota ( Dato, 26 )
 * ALGORITMO:
 *      Escribir el octeto en el bloque
 *      Incrementar la posicin en el bloque
 *      Si el bloque est completo
 *        Grabar el bloque en el fichero
 *------------------------------------------------------------------*/
logico Mmo_Anota (Memo, Valor)
memo   Memo;
octeto Valor;
  {
  logico Respuesta=SI;
  
  (Mmo_Dato(Memo))[Mmo_Posicion(Memo)] = Valor;
  Mmo_IncrementaPosicion(Memo);

  if ( Mmo_Posicion(Memo) == MMO_TAMANOBLOQUE )
    { Respuesta = Mmo_EscribeBloque (Memo); }
    
  return ( Respuesta );
  }