aboutsummaryrefslogtreecommitdiff
path: root/sim/erc32/sis.c
diff options
context:
space:
mode:
Diffstat (limited to 'sim/erc32/sis.c')
-rw-r--r--sim/erc32/sis.c310
1 files changed, 310 insertions, 0 deletions
diff --git a/sim/erc32/sis.c b/sim/erc32/sis.c
new file mode 100644
index 0000000..7567881
--- /dev/null
+++ b/sim/erc32/sis.c
@@ -0,0 +1,310 @@
+/*
+ * This file is part of SIS.
+ *
+ * SIS, SPARC instruction simulator. Copyright (C) 1995 Jiri Gaisler, European
+ * Space Agency
+ *
+ * This program 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.
+ *
+ * This program 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
+ * this program; if not, write to the Free Software Foundation, Inc., 675
+ * Mass Ave, Cambridge, MA 02139, USA.
+ *
+ */
+
+#include "config.h"
+#include <signal.h>
+#include <string.h>
+#ifdef HAVE_STDLIB_H
+#include <stdlib.h>
+#endif
+#include <stdio.h>
+#include <time.h>
+#include <sys/fcntl.h>
+#include "sis.h"
+#include <dis-asm.h>
+#include "sim-config.h"
+
+#ifndef fprintf
+extern fprintf();
+#endif
+
+#define VAL(x) strtol(x,(char **)NULL,0)
+
+/* Structures and functions from readline library */
+
+typedef struct {
+ char *line;
+ char *data;
+} HIST_ENTRY;
+
+extern char * readline PARAMS ((char *prompt));
+extern void using_history PARAMS ((void));
+extern void add_history PARAMS ((char *string));
+extern HIST_ENTRY *remove_history PARAMS ((int which));
+
+
+
+/* Command history buffer length - MUST be binary */
+#define HIST_LEN 64
+
+extern struct disassemble_info dinfo;
+extern struct pstate sregs;
+extern struct estate ebase;
+
+extern int ctrl_c;
+extern int nfp;
+extern int ift;
+extern int wrp;
+extern int rom8;
+extern int uben;
+extern int sis_verbose;
+extern char *sis_version;
+extern struct estate ebase;
+extern struct evcell evbuf[];
+extern struct irqcell irqarr[];
+extern int irqpend, ext_irl;
+extern int termsave;
+extern int sparclite;
+extern int dumbio;
+extern char uart_dev1[];
+extern char uart_dev2[];
+extern uint32 last_load_addr;
+
+#ifdef ERA
+extern int era;
+#endif
+
+int
+run_sim(sregs, icount, dis)
+ struct pstate *sregs;
+ unsigned int icount;
+ int dis;
+{
+ int irq, mexc, deb, asi;
+
+ sregs->starttime = time(NULL);
+ init_stdio();
+ if (sregs->err_mode) icount = 0;
+ deb = dis || sregs->histlen || sregs->bptnum;
+ irq = 0;
+ while (icount > 0) {
+
+ if (sregs->psr & 0x080)
+ asi = 9;
+ else
+ asi = 8;
+ mexc = memory_read(asi, sregs->pc, &sregs->inst, 2, &sregs->hold);
+ sregs->icnt = 1;
+ if (sregs->annul) {
+ sregs->annul = 0;
+ sregs->pc = sregs->npc;
+ sregs->npc = sregs->npc + 4;
+ } else {
+ sregs->fhold = 0;
+ if (ext_irl) irq = check_interrupts(sregs);
+ if (!irq) {
+ if (mexc) {
+ sregs->trap = I_ACC_EXC;
+ } else {
+ if (deb) {
+ if ((sregs->bphit = check_bpt(sregs)) != 0) {
+ restore_stdio();
+ return (BPT_HIT);
+ }
+ if (sregs->histlen) {
+ sregs->histbuf[sregs->histind].addr = sregs->pc;
+ sregs->histbuf[sregs->histind].time = ebase.simtime;
+ sregs->histind++;
+ if (sregs->histind >= sregs->histlen)
+ sregs->histind = 0;
+ }
+ if (dis) {
+ printf(" %8u ", ebase.simtime);
+ dis_mem(sregs->pc, 1, &dinfo);
+ }
+ }
+ dispatch_instruction(sregs);
+ icount--;
+ }
+ }
+ if (sregs->trap) {
+ irq = 0;
+ sregs->err_mode = execute_trap(sregs);
+ if (sregs->err_mode) {
+ error_mode(sregs->pc);
+ icount = 0;
+ }
+ }
+ }
+ advance_time(sregs);
+ if (ctrl_c || (sregs->tlimit <= ebase.simtime)) {
+ icount = 0;
+ if (sregs->tlimit <= ebase.simtime) sregs->tlimit = -1;
+ }
+ }
+ sregs->tottime += time(NULL) - sregs->starttime;
+ restore_stdio();
+ if (sregs->err_mode)
+ return (ERROR);
+ if (ctrl_c) {
+ ctrl_c = 0;
+ return (CTRL_C);
+ }
+ return (TIME_OUT);
+}
+
+int
+main(argc, argv)
+ int argc;
+ char **argv;
+{
+
+ int cont = 1;
+ int stat = 1;
+ int freq = 14;
+ int copt = 0;
+
+ char *cfile, *bacmd;
+ char *cmdq[HIST_LEN];
+ int cmdi = 0;
+ int i;
+
+ cfile = 0;
+ for (i = 0; i < 64; i++)
+ cmdq[i] = 0;
+ printf("\n SIS - SPARC intruction simulator %s, copyright Jiri Gaisler 1995\n", sis_version);
+ printf(" Bug-reports to jgais@wd.estec.esa.nl\n\n");
+ while (stat < argc) {
+ if (argv[stat][0] == '-') {
+ if (strcmp(argv[stat], "-v") == 0) {
+ sis_verbose = 1;
+ } else if (strcmp(argv[stat], "-c") == 0) {
+ if ((stat + 1) < argc) {
+ copt = 1;
+ cfile = argv[++stat];
+ }
+ } else if (strcmp(argv[stat], "-nfp") == 0)
+ nfp = 1;
+ else if (strcmp(argv[stat], "-ift") == 0)
+ ift = 1;
+ else if (strcmp(argv[stat], "-wrp") == 0)
+ wrp = 1;
+ else if (strcmp(argv[stat], "-rom8") == 0)
+ rom8 = 1;
+ else if (strcmp(argv[stat], "-uben") == 0)
+ uben = 1;
+ else if (strcmp(argv[stat], "-uart1") == 0) {
+ if ((stat + 1) < argc)
+ strcpy(uart_dev1, argv[++stat]);
+ } else if (strcmp(argv[stat], "-uart2") == 0) {
+ if ((stat + 1) < argc)
+ strcpy(uart_dev2, argv[++stat]);
+ } else if (strcmp(argv[stat], "-freq") == 0) {
+ if ((stat + 1) < argc)
+ freq = VAL(argv[++stat]);
+ } else if (strcmp(argv[stat], "-sparclite") == 0) {
+ sparclite = 1;
+#ifdef ERA
+ } else if (strcmp(argv[stat], "-era") == 0) {
+ era = 1;
+#endif
+ } else if (strcmp(argv[stat], "-dumbio") == 0) {
+ dumbio = 1;
+ } else {
+ printf("unknown option %s\n", argv[stat]);
+ usage();
+ exit(1);
+ }
+ } else {
+ last_load_addr = bfd_load(argv[stat]);
+ }
+ stat++;
+ }
+ if (nfp)
+ printf("FPU disabled\n");
+#ifdef ERA
+ if (era)
+ printf("ERA ECC emulation enabled\n");
+#endif
+ sregs.freq = freq;
+
+ INIT_DISASSEMBLE_INFO(dinfo, stdout, (fprintf_ftype) fprintf);
+ dinfo.endian = BFD_ENDIAN_BIG;
+
+ termsave = fcntl(0, F_GETFL, 0);
+ using_history();
+ init_signals();
+ ebase.simtime = 0;
+ reset_all();
+ init_bpt(&sregs);
+ init_sim();
+#ifdef STAT
+ reset_stat(&sregs);
+#endif
+
+ if (copt) {
+ bacmd = (char *) malloc(256);
+ strcpy(bacmd, "batch ");
+ strcat(bacmd, cfile);
+ exec_cmd(&sregs, bacmd);
+ }
+ while (cont) {
+
+ if (cmdq[cmdi] != 0) {
+#if 0
+ remove_history(cmdq[cmdi]);
+#else
+ remove_history(cmdi);
+#endif
+ free(cmdq[cmdi]);
+ cmdq[cmdi] = 0;
+ }
+ cmdq[cmdi] = readline("sis> ");
+ if (cmdq[cmdi] && *cmdq[cmdi])
+ add_history(cmdq[cmdi]);
+ if (cmdq[cmdi])
+ stat = exec_cmd(&sregs, cmdq[cmdi]);
+ else {
+ puts("\n");
+ exit(0);
+ }
+ switch (stat) {
+ case OK:
+ break;
+ case CTRL_C:
+ printf("\b\bInterrupt!\n");
+ case TIME_OUT:
+ printf(" Stopped at time %d (%.3f ms)\n", ebase.simtime,
+ ((double) ebase.simtime / (double) sregs.freq) / 1000.0);
+ break;
+ case BPT_HIT:
+ printf("breakpoint at 0x%08x reached\n", sregs.pc);
+ sregs.bphit = 1;
+ break;
+ case ERROR:
+ printf("IU in error mode (%d)\n", sregs.trap);
+ stat = 0;
+ printf(" %8d ", ebase.simtime);
+ dis_mem(sregs.pc, 1, &dinfo);
+ break;
+ default:
+ break;
+ }
+ ctrl_c = 0;
+ stat = OK;
+
+ cmdi = (cmdi + 1) & (HIST_LEN - 1);
+
+ }
+ return 0;
+}
+
generated by cgit v1.1 at 2024-12-13 23:48:48 +0000