/*--------------------------------------------------------------------
 * FICHERO:  MemEscCp.c
 * OBJETIVO: Definir la funcin Mem_EscribeContpos()
 * AUTOR:    Pedro Reina
 * FECHA:    L.24.7.1995
 *------------------------------------------------------------------*/

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

#include "Memoria.h"

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

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Mem_EscribeContpos()
 * OBJETIVO: Poner en una posicin de memoria un valor dado
 *           como contpos
 * ENTRADAS: La posicin de memoria, el modo de almacenamiento
 *           y el valor
 * SALIDAS:  El valor
 * EJEMPLO:  Mem_EscribeContpos (Memoria+10, MEM_INTEL, 40205)
 * ALGORITMO:
 *      Escribir el valor
 *      Si el modo no es el nativo del ordenador, se intercambian 
 *         los dos octetos
 *------------------------------------------------------------------*/
contpos Mem_EscribeContpos (Memoria, Modo, Valor)
memoria Memoria;
octeto  Modo;
contpos Valor;
  {
  * ((contpos *)Memoria) = Valor;
  
#ifdef OLIMPO_PC
  if ( Modo == MEM_MOTOROLA )
#endif
#ifdef OLIMPO_QL
  if ( Modo == MEM_INTEL )
#endif
    { Mem_Intercambia (Memoria,Memoria+1); }
  
  return ( Valor );
  }
