Initial version

2021-10-11 22:27:00 +02:00 · 2021-10-11 22:27:00 +02:00 · 6f405265a5
commit 6f405265a5
102 changed files with 14486 additions and 0 deletions
--- a/code/bin/main.c
+++ b/code/bin/main.c
@ -0,0 +1,167 @@
+/*
+ Copyright (c) 1992-1993 The Regents of the University of California.
+ All rights reserved.  See copyright.h for copyright notice and limitation 
+ of liability and disclaimer of warranty provisions.
+ */
+
+#include "copyright.h"
+
+/* MIPS instruction interpreter */
+
+#include <stdio.h>
+#include <filehdr.h>
+#include <scnhdr.h>
+#include <syms.h>
+#include <ldfcn.h>
+#include "int.h"
+
+static FILE *fp;
+static LDFILE *ldptr;
+static SCNHDR texthead, rdatahead, datahead, sdatahead, sbsshead, bsshead;
+
+static char filename[1000] = "a.out";	/* default a.out file */
+static char self[256];			/* name of invoking program */
+
+char mem[MEMSIZE];		/* main memory. use malloc later */
+int TRACE, Traptrace, Regtrace;
+int NROWS=64, ASSOC=1, LINESIZE=4, RAND=0, LRD=0;
+
+extern char *strcpy();
+
+main(argc, argv)
+int argc;
+char *argv[];
+{
+	register char *s;
+	char *fakeargv[3];
+
+	strcpy(self, argv[0]);
+	while  ( argc > 1  &&  argv[1][0] == '-' )
+	{
+		--argc; ++argv;
+		for  ( s=argv[0]+1; *s != '\0'; ++s )
+			switch  ( *s )
+			{
+				case 't':  TRACE = 1; break;
+				case 'T':  Traptrace = 1; break;
+				case 'r':  Regtrace = 1; break;
+				case 'm':
+					NROWS = atoi(*++argv);
+					ASSOC = atoi(*++argv);
+					LINESIZE = atoi(*++argv);
+					RAND = ((*++argv)[0] == 'r');
+					LRD = ((*argv)[0] == 'l')
+					   && ((*argv)[1] == 'r')
+					   && ((*argv)[2] == 'd');
+					argc -= 4;
+					break;
+			}
+	}
+
+	if (argc >= 2)
+		strcpy(filename, argv[1]);
+	fp = fopen(filename, "r");
+	if (fp == NULL)
+	{
+		fprintf(stderr, "%s: Could not open '%s'\n", self, filename);
+		exit(0);
+	}
+	fclose(fp);
+	load_program(filename);
+	if  ( argv[1] == NULL )
+	{
+		fakeargv[1] = "a.out";
+		fakeargv[2] = NULL;
+		argv = fakeargv;
+		++argc;
+	}
+	runprogram(memoffset, argc-1, argv+1); /* where things normally start */
+}
+
+char *string(s)
+char *s;
+{
+	char *p;
+	extern char *malloc();
+
+	p = malloc((unsigned) strlen(s)+1);
+	strcpy(p, s);
+	return p;
+}
+
+load_program(filename)
+char *filename;
+{
+	register int pc, i, j, strindex, stl;
+	char str[1111];
+	int rc1, rc2;
+
+	ldptr = ldopen(filename, NULL);
+	if  ( ldptr == NULL )
+	{
+		fprintf(stderr, "%s: Load read error on %s\n", self, filename);
+		exit(0);
+	}
+	if  ( TYPE(ldptr) != 0x162 )
+	{
+		fprintf(stderr,
+			"big-endian object file (little-endian interp)\n");
+		exit(0);
+	}
+
+#define LOADSECTION(head)	\
+	if  ( head.s_scnptr != 0 ) \
+	{ \
+		/* printf("loading %s\n", head.s_name); /* */ \
+		pc = head.s_vaddr; \
+		FSEEK(ldptr, head.s_scnptr, 0); \
+		for  ( i=0; i<head.s_size; ++i ) \
+			*(char *) ((mem-memoffset)+pc++) = getc(fp); \
+		if (pc-memoffset >= MEMSIZE) \
+			{ printf("MEMSIZE too small. Fix and recompile.\n"); \
+			exit(1); } \
+	}
+
+	if  ( ldnshread(ldptr, ".text", &texthead) != 1 )
+		printf("text section header missing\n");
+	else
+		LOADSECTION(texthead)
+
+	if  ( ldnshread(ldptr, ".rdata", &rdatahead) != 1 )
+		printf("rdata section header missing\n");
+	else
+		LOADSECTION(rdatahead)
+
+	if  ( ldnshread(ldptr, ".data", &datahead) != 1 )
+		printf("data section header missing\n");
+	else
+		LOADSECTION(datahead)
+
+	if  ( ldnshread(ldptr, ".sdata", &sdatahead) != 1 )
+		printf("sdata section header missing\n");
+	else
+		LOADSECTION(sdatahead)
+
+	if  ( ldnshread(ldptr, ".sbss", &sbsshead) != 1 )
+		printf("sbss section header missing\n");
+	else
+		LOADSECTION(sbsshead)
+
+	if  ( ldnshread(ldptr, ".bss", &bsshead) != 1 )
+		printf("bss section header missing\n");
+	else
+		LOADSECTION(bsshead)
+
+	/* BSS is already zeroed (statically-allocated mem) */
+	/* this version ignores relocation info */
+}
+
+
+int *m_alloc(n)
+int n;
+{
+	extern char *malloc();
+
+	return (int *) (int) malloc((unsigned) n);
+}
+