git.gag.com Git - fw/sdcc/blob - sim/ucsim/s51.src/uc51r.cc

   1 /*
   2  * Simulator of microcontrollers (uc51r.cc)
   3  *
   4  * Copyright (C) 1999,99 Drotos Daniel, Talker Bt.
   5  *
   6  * To contact author send email to drdani@mazsola.iit.uni-miskolc.hu
   7  *
   8  */
   9
  10 /* This file is part of microcontroller simulator: ucsim.
  11
  12 UCSIM is free software; you can redistribute it and/or modify
  13 it under the terms of the GNU General Public License as published by
  14 the Free Software Foundation; either version 2 of the License, or
  15 (at your option) any later version.
  16
  17 UCSIM is distributed in the hope that it will be useful,
  18 but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 GNU General Public License for more details.
  21
  22 You should have received a copy of the GNU General Public License
  23 along with UCSIM; see the file COPYING.  If not, write to the Free
  24 Software Foundation, 59 Temple Place - Suite 330, Boston, MA
  25 02111-1307, USA. */
  26 /*@1@*/
  27
  28 #include "ddconfig.h"
  29
  30 #include <stdio.h>
  31
  32 // local
  33 #include "uc51rcl.h"
  34 #include "regs51.h"
  35 #include "types51.h"
  36 #include "wdtcl.h"
  37
  38
  39 /*
  40  * Making an 8051r CPU object
  41  */
  42
  43 t_uc51r::t_uc51r(int Itype, int Itech, class cl_sim *asim):
  44   t_uc52(Itype, Itech, asim)
  45 {
  46   int i;
  47
  48   for (i= 0; i < ERAM_SIZE; i++)
  49     ERAM[i]= 0;
  50   clock_out= 0;
  51 }
  52
  53
  54 void
  55 t_uc51r::mk_hw_elements(void)
  56 {
  57   class cl_hw *h;
  58
  59   t_uc52::mk_hw_elements();
  60   hws->add(h= new cl_wdt(this, 0x3fff));
  61   h->init();
  62 }
  63
  64
  65 /*
  66  * Resetting of the microcontroller
  67  *
  68  * Original method is extended with handling of WDT.
  69  */
  70
  71 void
  72 t_uc51r::reset(void)
  73 {
  74   t_uc52::reset();
  75   sfr->set(SADDR, 0);
  76   sfr->set(SADEN, 0);
  77 }
  78
  79
  80 /*
  81  * Copying ERAM to XRAM and vice versa
  82  *
  83  * This two methods are used by command interpreter to make ERAM and
  84  * beginning of XRAM to be equivalent.
  85  */
  86
  87 void
  88 t_uc51r::eram2xram(void)
  89 {
  90   int i;
  91
  92   for (i= 0; i < ERAM_SIZE; i++)
  93     set_mem(MEM_XRAM, i, ERAM[i]);
  94 }
  95
  96 void
  97 t_uc51r::xram2eram(void)
  98 {
  99   int i;
 100
 101   for (i= 0; i < ERAM_SIZE; i++)
 102     ERAM[i]= get_mem(MEM_XRAM, i);
 103 }
 104
 105
 106 void
 107 t_uc51r::received(int c)
 108 {
 109   t_mem br= sfr->get(SADDR) | sfr->get(SADEN);
 110   int scon= sfr->get(SCON);
 111
 112   if ((0 < scon >> 6) &&
 113       (scon & bmSM2))
 114     {
 115       if (/* Check for individual address */
 116           ((sfr->get(SADDR) & sfr->get(SADEN)) == (c & sfr->get(SADEN)))
 117           ||
 118           /* Check for broadcast address */
 119           (br == (br & c)))
 120         sfr->set_bit1(SCON, bmRI);
 121       return;
 122     }
 123   sfr->set_bit1(SCON, bmRI);
 124 }
 125
 126
 127 /*
 128  * 0xe0 1 24 MOVX A,@DPTR
 129  *____________________________________________________________________________
 130  *
 131  */
 132
 133 int
 134 t_uc51r::inst_movx_a_Sdptr(uchar code)
 135 {
 136   if ((sfr->get(AUXR) & bmEXTRAM) ||
 137       sfr->get(DPH))
 138     acc->write(read_mem(MEM_XRAM,
 139                         sfr->read(DPH)*256+
 140                         sfr->read(DPL)));
 141   else
 142     acc->write(ERAM[sfr->read(DPL)]);
 143   tick(1);
 144   return(resGO);
 145 }
 146
 147
 148 /*
 149  * 0xe2-0xe3 1 24 MOVX A,@Ri
 150  *____________________________________________________________________________
 151  *
 152  */
 153
 154 int
 155 t_uc51r::inst_movx_a_Sri(uchar code)
 156 {
 157   class cl_cell *cell;
 158   t_mem d= 0;
 159
 160   cell= iram->get_cell(get_reg(code & 0x01)->read());
 161   d= cell->read();
 162   if (sfr->get(AUXR) & bmEXTRAM)
 163     acc->write(read_mem(MEM_XRAM, sfr->read(P2)*256+d));
 164   else
 165     acc->write(ERAM[d]);
 166   tick(1);
 167   return(resGO);
 168 }
 169
 170
 171 /*
 172  * 0xf0 1 24 MOVX @DPTR,A
 173  *____________________________________________________________________________
 174  *
 175  */
 176
 177 int
 178 t_uc51r::inst_movx_Sdptr_a(uchar code)
 179 {
 180   if ((sfr->get(AUXR) & bmEXTRAM) ||
 181       sfr->get(DPH))
 182     write_mem(MEM_XRAM, sfr->read(DPH)*256 + sfr->read(DPL), acc->read());
 183   else
 184     ERAM[sfr->read(DPL)]= acc->read();
 185   return(resGO);
 186 }
 187
 188
 189 /*
 190  * 0xf2-0xf3 1 24 MOVX @Ri,A
 191  *____________________________________________________________________________
 192  *
 193  */
 194
 195 int
 196 t_uc51r::inst_movx_Sri_a(uchar code)
 197 {
 198   class cl_cell *cell;
 199   t_mem d= 0;
 200
 201   cell= iram->get_cell(get_reg(code & 0x01)->read());
 202   d= cell->read();
 203   if (sfr->get(AUXR) & bmEXTRAM)
 204     write_mem(MEM_XRAM, sfr->read(P2)*256 + d, acc->read());
 205   else
 206     ERAM[d]= acc->read();
 207   tick(1);
 208   return(resGO);
 209 }
 210
 211
 212 /* End of s51.src/uc51r.cc */