usim

/* misc.c --- random utilities
 */

#include <errno.h>
#include <ctype.h>
#include <err.h>
#include <stdbool.h>
#include <stdio.h>
#include <string.h>

#include "misc.h"

ssize_t
xgetline(char **l, size_t *n, FILE *f)
{
	int old_errno = errno;
	size_t ret;
	
	old_errno = errno;
	errno = 0;
	ret = getline (l, n, f);
	if (!feof (f) && ferror (f)) {
		perror("getline failed");
		exit(EXIT_FAILURE);
	}
	errno = old_errno;
	return ret;
}

bool
streq(const char *a, const char *b)
{
	return strcmp(a, b) == 0;
}

#pragma once

#include <stdbool.h>
#include <stdint.h>
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>

#ifndef O_BINARY
#define O_BINARY 0
#endif

#define BLOCKSZ (256 * 4)

#define _STRINGIFY(s) #s
#define STRINGIFY(s) _STRINGIFY(s)

#define NELEM(x) (sizeof(x)/sizeof(*x))

extern ssize_t xgetline(char **, size_t *, FILE *);

extern bool streq(const char *, const char *);
extern char *strlwr(char *);

extern void dumpmem(char *, int);

extern uint16_t read16le(int);

/* sdl2.c --- SDL2 routines used by the TV and KBD interfaces
 */

#include <signal.h>

#include <SDL.h>

#include "tv.h"
#include "kbd.h"
#include "cadet.h"
#include "knight.h"
#include "mouse.h"
#include "utrace.h"
#include "idle.h"
#include "misc.h"

#include <X11/keysym.h>		// for XK_FOO  meh
#include <X11/X.h>		// for FOOMapIndex  meh

SDL_Window *window;
SDL_Renderer *renderer;
SDL_Texture *texture;

		return res;
	case 025:
		DEBUG(TRACE_MICROCODE, "reading pdl[%o] -> %o\n", mfmem[014], pdl[mfmem[014]]);
		res = pdl[mfmem[014]];
		trace_pdlptr_read(mdata);
		return res;
	}
	err(1, "unknown MF register (%o) read\n", addr);
}

void
mfwrite(int dest, uint64_t data)
{
	switch (dest >> 5) {
	case 1:		/* LOCATION-COUNTER LC (location counter) 26 bits. */

		break;
	case 033:		/* MEMORY-DATA-WRITE-MAP MD register, write map (like 23). */
		mfmem[030] = data;
		DEBUG(TRACE_UCODE, "memory-data-write-map md=%o, vma=%o (addr %o)\n", mfmem[030], mfmem[020], mfmem[030] >> 13);
		mapWrite();
		break;
	}
	err(1, "unknown MF register (%o) write (%lo)\n", dest, data);
}

/*
 * Write value to decoded destination.
 */
void
writeDest(int dest)

	case 6:
		DEBUG(TRACE_MICROCODE, "jump i|pf|sb\n");	/* pgf.or.int.sb */
		return page_fault_flag | (interrupt_control & (1 << 27) ? interrupt_pending_flag : 0) | (interrupt_control & (1 << 26));
	case 7:
		return 1;
	}
	err(1, "unknown jump (%lo) condition", ir(0, 4));
}

void
jmp(void)
{
	int target = ir(12, 14);
	int r = ir(9, 1);

/* syms.c --- routines for handling CADRLP symbol tables
 */

#include <sys/queue.h>

#include <err.h>
#include <stdint.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <strings.h>

#include "ucode.h"
#include "misc.h"

static void
sym_add(symtab_t *tab, int memory, char *name, uint32_t v)
{
	sym_t *s;

	s = malloc(sizeof(sym_t));

	f = fopen(filename, "r");
	if (f == NULL) {
		warn("failed to open: %s", filename);
		return -1;
	}
	LIST_INIT(&tab->symbols);
	tab->name = strdup(filename);
	xgetline(&l, &lsz, f);
	xgetline(&l, &lsz, f);	/* -4 assembler state info. */
	if (strcmp(l, "-4 \n") != 0)
		errx(1, "sym_read_file: failed to find assembler state info section (-4)");
	xgetline(&l, &lsz, f);
	xgetline(&l, &lsz, f);	/* -2 symbol dump start. */
	/*
	 * First symbol is handled specially, since directly after the
	 * -2 marker the symbol, type and address follows.
	 */
	n = sscanf(l, "-2 %s %s %o \n", sym, symtype, &loc);
	if (n != 3)
		errx(1, "sym_read_file: failed to find symbol dump section (-2)");
	sym_add(tab, sym_typeno(symtype), sym, loc);
	while (xgetline(&l, &lsz, f) != -1) {
		if (strcmp(l, "-1 ") == 0) {	/* -1 EOF. */
			fclose(f);
			return 0;
		}
		n = sscanf(l, "%s %s %o \n", sym, symtype, &loc);
		if (n != 3)
			continue;
		sym_add(tab, sym_typeno(symtype), sym, loc);
	}
	fclose(f);
	warnx("sym_read_file: failed to eof section marker (-1)");
	return 1;
}