Subversion Repositories or1k

/* memory support for Z8KSIM

   Copyright (C) 1987, 1992 Free Software Foundation, Inc.

This file is part of Z8KSIM

Z8KSIM is free software; you can redistribute it and/or modify

it under the terms of the GNU General Public License as published by

the Free Software Foundation; either version 2, or (at your option)

any later version.

Z8KSIM is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

GNU General Public License for more details.

You should have received a copy of the GNU General Public License

along with Z8KZIM; if not, write to the Free Software

Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */

#include "config.h"

#include <ansidecl.h>

#ifdef HAVE_STDLIB_H

#include <stdlib.h>

#endif

#include "tm.h"

#include "mem.h"

#include "sim.h"

#define INLINE

static

long

sitoptr (si)

long si;

{

  return ((si & 0xff000000) >> 8) | (si & 0xffff);

}

static

unsigned short *

get_page_and_offset (context, where, offset_ptr)

     sim_state_type *context;

     sim_phys_addr_type where;

     int *offset_ptr;

{

  /* Is the page allocated ? */

  if (context->memory == 0)

    {

      /* Must allocate 16MB in order to run Z8001 programs.  */

      context->memory  = (unsigned short *)calloc(64*1024*64,4);

    }

  *offset_ptr = sitoptr(where);

  return context->memory;

}

void

sim_write_byte (context, where, what)

     sim_state_type *context;

     sim_phys_addr_type where;

     int what;

{

  unsigned int offset;

  char *ptr = (char *)get_page_and_offset (context, where, &offset);

  ptr[offset] = what;

}

void

sim_write_short (context, where, what)

     sim_state_type *context;

     sim_phys_addr_type where;

     int what;

{

  int offset;

  char *ptr = (char *)get_page_and_offset (context, where, &offset);

  ptr[offset] = what >> 8;

  ptr[offset + 1] = what;

}

void

sim_write_long (context, where, what)

     sim_state_type *context;

     sim_phys_addr_type where;

     int what;

{

  int offset;

  char *ptr = (char *)get_page_and_offset (context, where, &offset);

  ptr[offset] = what >> 24;

  ptr[offset + 1] = what >> 16;

  ptr[offset + 3] = what >> 8;

  ptr[offset + 4] = what;

}

int

sim_read_byte (context, where)

     sim_state_type *context;

     sim_phys_addr_type where;

{

  int offset;

  char *ptr = (char *)get_page_and_offset (context, where, &offset);

 return ptr[offset];

}

unsigned

sim_read_short (context, where)

     sim_state_type *context;

     sim_phys_addr_type where;

{

  int what;

  int offset;

  char *ptr = (char *)get_page_and_offset (context, where, &offset);

  what = (ptr[offset] << 8) | ptr[offset + 1];

  return what;

}