sdcc-3.9.0 fork implementing GNU assembler syntax

This fork aims to provide better support for stm8-binutils

1 files changed, 228 insertions, 0 deletions

diff --git a/sim/ucsim/sim.src/itsrc.cc b/sim/ucsim/sim.src/itsrc.cc
new file mode 100644
index 0000000..5ee9fbe
--- /dev/null
+++ b/sim/ucsim/sim.src/itsrc.cc
@@ -0,0 +1,228 @@
+/*
+ * Simulator of microcontrollers (itsrc.cc)
+ *
+ * Copyright (C) 1999,99 Drotos Daniel, Talker Bt.
+ * 
+ * To contact author send email to drdani@mazsola.iit.uni-miskolc.hu
+ *
+ */
+
+/* This file is part of microcontroller simulator: ucsim.
+
+UCSIM 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 of the License, or
+(at your option) any later version.
+
+UCSIM 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 UCSIM; see the file COPYING.  If not, write to the Free
+Software Foundation, 59 Temple Place - Suite 330, Boston, MA
+02111-1307, USA. */
+/*@1@*/
+
+#include "ddconfig.h"
+
+#include <stdio.h>
+#include <stdlib.h>
+#include "i_string.h"
+
+#include "itsrccl.h"
+#include "pobjcl.h"
+#include "stypes.h"
+#include "memcl.h"
+
+
+/*
+ * Interrupt source
+ ******************************************************************************
+ */
+
+cl_it_src::cl_it_src(cl_uc  *Iuc,
+		     int    Inuof,
+		     class  cl_memory_cell *Iie_cell,
+		     t_mem  Iie_mask,
+		     class  cl_memory_cell *Isrc_cell,
+		     t_mem  Isrc_mask,
+		     t_addr Iaddr,
+		     bool   Iclr_bit,
+		     bool   Iindirect,
+		     const  char *Iname,
+		     int    apoll_priority):
+	  /*cl_base()*/
+	  cl_hw(Iuc, HW_INTERRUPT, 100+Inuof, chars("", "itsrc_%d", Inuof))
+{
+  uc= Iuc;
+  poll_priority= apoll_priority;
+  nuof    = Inuof;
+  ie_cell = Iie_cell;
+  ie_mask = Iie_mask;
+  src_cell= Isrc_cell;
+  src_mask= Isrc_mask;
+  addr    = Iaddr;
+  clr_bit = Iclr_bit;
+  indirect= Iindirect;
+  if (Iname != NULL)
+    set_name(Iname);
+  else
+    set_name("unknown");
+  active= true;
+}
+
+cl_it_src::~cl_it_src(void) {}
+
+int
+cl_it_src::init(void)
+{
+  register_cell(ie_cell);
+  register_cell(src_cell);
+  return 0;
+}
+
+bool
+cl_it_src::is_active(void)
+{
+  return(active);
+}
+
+void
+cl_it_src::set_active_status(bool Aactive)
+{
+  active= Aactive;
+}
+
+void
+cl_it_src::activate(void)
+{
+  set_active_status(true);
+}
+
+void
+cl_it_src::deactivate(void)
+{
+  set_active_status(false);
+}
+
+
+bool
+cl_it_src::enabled(void)
+{
+  if (!ie_cell)
+    return false;
+  t_mem e= ie_cell->get();
+  e&= ie_mask;
+  return e != 0;
+}
+
+bool
+cl_it_src::pending(void)
+{
+  if (!src_cell)
+    return false;
+  t_mem s= src_cell->get();
+  s&= src_mask;
+  return s != 0;
+}
+
+void
+cl_it_src::clear(void)
+{
+  if (clr_bit)
+    src_cell->set_bit0(src_mask);
+}
+
+void
+cl_it_src::write(class cl_memory_cell *cell, t_mem *val)
+{
+  t_mem iev= ie_cell->get();
+  t_mem srcv= src_cell->get();
+  t_mem ier, srcr;
+  
+  if (cell == ie_cell)
+    {
+      //printf("ITSRC ie=%x\n", *val);
+      iev= *val;
+    }
+  if (cell == src_cell)
+    {
+      //printf("ITSRC src=%x\n", *val);
+      srcv= *val;
+    }
+  ier= iev&ie_mask;
+  srcr= srcv&src_mask;
+  /*
+  printf("%2d iev =%x & %x = %x\n", nuof, iev, ie_mask, ier);
+  printf("%2d srcv=%x & %x = %x\n", nuof, srcv, src_mask, srcr);
+  printf("%2d ie=%s src=%s req=%s\n", nuof,
+	 ier?"true":"false",
+	 srcr?"true":"false",
+	 (ier&&srcr)?"TRUE":"FALSE");
+  */
+  if (ier)
+    {
+      if (srcr)
+	{
+	  //printf("%2d IRQ\n", nuof);
+	  uc->irq= true;
+	}
+    }
+}
+
+t_mem
+cl_it_src::read(class cl_memory_cell *cell)
+{
+  return cell->get();
+}
+
+
+/*
+ *  Sorted list of IRQ sources
+ */
+
+cl_irqs::cl_irqs(t_index alimit, t_index adelta):
+  cl_sorted_list(alimit, adelta, "irqs")
+{
+  Duplicates= true;
+}
+
+void *
+cl_irqs::key_of(void *item)
+{
+  class cl_it_src *itsrc= (class cl_it_src *)item;
+  return(&itsrc->poll_priority);
+}
+
+int
+cl_irqs::compare(void *key1, void *key2)
+{
+  int *k1= (int*)key1, *k2= (int*)key2;
+
+  if (*k1 == *k2)
+    return(0);
+  else if (*k1 < *k2)
+    return(-1);
+  return(1);
+}
+
+
+/*
+ * Interrupt level
+ ******************************************************************************
+ */
+
+it_level::it_level(int alevel, uint aaddr, uint aPC, class cl_it_src *is):
+  cl_base()
+{
+  level = alevel;
+  addr  = aaddr;
+  PC    = aPC;
+  source= is;
+}
+
+
+
+/* End of itsrc.cc */