From df1b1668e33ac1d6d88636415937df8900bff21f Mon Sep 17 00:00:00 2001 From: Nihilazo Date: Fri, 12 Nov 2021 19:42:42 +0000 Subject: [PATCH] remove unneeded uxn files --- apps/plugins/varvara/uxnasm.c | 426 ----------------------- apps/plugins/varvara/uxncli.c | 211 ------------ apps/plugins/varvara/uxnemu.c | 624 ---------------------------------- 3 files changed, 1261 deletions(-) delete mode 100644 apps/plugins/varvara/uxnasm.c delete mode 100644 apps/plugins/varvara/uxncli.c delete mode 100644 apps/plugins/varvara/uxnemu.c diff --git a/apps/plugins/varvara/uxnasm.c b/apps/plugins/varvara/uxnasm.c deleted file mode 100644 index 26dce462c4..0000000000 --- a/apps/plugins/varvara/uxnasm.c +++ /dev/null @@ -1,426 +0,0 @@ -#include - -/* -Copyright (c) 2021 Devine Lu Linvega - -Permission to use, copy, modify, and distribute this software for any -purpose with or without fee is hereby granted, provided that the above -copyright notice and this permission notice appear in all copies. - -THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES -WITH REGARD TO THIS SOFTWARE. -*/ - -#define TRIM 0x0100 -#define LENGTH 0x10000 - -#define LABELS 512 -#define MACROS 256 - -typedef unsigned char Uint8; -typedef signed char Sint8; -typedef unsigned short Uint16; - -typedef struct { - char name[64], items[64][64]; - Uint8 len; -} Macro; - -typedef struct { - char name[64]; - Uint16 addr, refs; -} Label; - -typedef struct { - Uint8 data[LENGTH]; - Uint16 ptr, length, llen, mlen; - Label labels[LABELS]; - Macro macros[MACROS]; -} Program; - -Program p; -static Uint16 addr = 0; - -/* clang-format off */ - -static char ops[][4] = { - "LIT", "INC", "POP", "DUP", "NIP", "SWP", "OVR", "ROT", - "EQU", "NEQ", "GTH", "LTH", "JMP", "JCN", "JSR", "STH", - "LDZ", "STZ", "LDR", "STR", "LDA", "STA", "DEI", "DEO", - "ADD", "SUB", "MUL", "DIV", "AND", "ORA", "EOR", "SFT" -}; - -static int cpos(char *s, char a){ int i = 0; char c; while((c = s[i++])) if(c == a) return i; return -1; } -static int scmp(char *a, char *b, int len) { int i = 0; while(a[i] == b[i]) if(!a[i] || ++i >= len) return 1; return 0; } /* string compare */ -static int sihx(char *s) { int i = 0; char c; while((c = s[i++])) if(!(c >= '0' && c <= '9') && !(c >= 'a' && c <= 'f')) return 0; return i > 1; } /* string is hexadecimal */ -static int shex(char *s) { int n = 0, i = 0; char c; while((c = s[i++])) if(c >= '0' && c <= '9') n = n * 16 + (c - '0'); else if(c >= 'a' && c <= 'f') n = n * 16 + 10 + (c - 'a'); return n; } /* string to num */ -static int slen(char *s) { int i = 0; while(s[i]) ++i; return i; } /* string length */ -static char *scpy(char *src, char *dst, int len) { int i = 0; while((dst[i] = src[i]) && i < len - 2) i++; dst[i + 1] = '\0'; return dst; } /* string copy */ -static char *scat(char *dst, const char *src) { char *ptr = dst + slen(dst); while(*src) *ptr++ = *src++; *ptr = '\0'; return dst; } /* string cat */ - -#pragma mark - Helpers - -/* clang-format on */ - -#pragma mark - I/O - -static Macro * -findmacro(char *name) -{ - int i; - for(i = 0; i < p.mlen; ++i) - if(scmp(p.macros[i].name, name, 64)) - return &p.macros[i]; - return NULL; -} - -static Label * -findlabel(char *name) -{ - int i; - for(i = 0; i < p.llen; ++i) - if(scmp(p.labels[i].name, name, 64)) - return &p.labels[i]; - return NULL; -} - -static Uint8 -findopcode(char *s) -{ - int i; - for(i = 0; i < 0x20; ++i) { - int m = 0; - if(!scmp(ops[i], s, 3)) - continue; - while(s[3 + m]) { - if(s[3 + m] == '2') - i |= (1 << 5); /* mode: short */ - else if(s[3 + m] == 'r') - i |= (1 << 6); /* mode: return */ - else if(s[3 + m] == 'k') - i |= (1 << 7); /* mode: keep */ - else - return 0; /* failed to match */ - m++; - } - if(!i) i |= (1 << 7); /* force LIT nonzero (keep is ignored) */ - return i; - } - return 0; -} - -static void -pushbyte(Uint8 b, int lit) -{ - if(lit) pushbyte(findopcode("LIT"), 0); - p.data[p.ptr++] = b; - p.length = p.ptr; -} - -static void -pushshort(Uint16 s, int lit) -{ - if(lit) pushbyte(findopcode("LIT2"), 0); - pushbyte((s >> 8) & 0xff, 0); - pushbyte(s & 0xff, 0); -} - -static void -pushword(char *s) -{ - int i = 0; - char c; - while((c = s[i++])) pushbyte(c, 0); -} - -static char * -sublabel(char *src, char *scope, char *name) -{ - return scat(scat(scpy(scope, src, 64), "/"), name); -} - -#pragma mark - Parser - -static int -error(char *name, char *msg) -{ - fprintf(stderr, "%s: %s\n", name, msg); - return 0; -} - -static int -makemacro(char *name, FILE *f) -{ - Macro *m; - char word[64]; - if(findmacro(name)) - return error("Macro duplicate", name); - if(sihx(name) && slen(name) % 2 == 0) - return error("Macro name is hex number", name); - if(findopcode(name) || scmp(name, "BRK", 4) || !slen(name) || scmp(name, "include", 8)) - return error("Macro name is invalid", name); - if(p.mlen == MACROS) - return error("Too many macros", name); - m = &p.macros[p.mlen++]; - scpy(name, m->name, 64); - while(fscanf(f, "%63s", word) == 1) { - if(word[0] == '{') continue; - if(word[0] == '}') break; - if(m->len > 64) - return error("Macro too large", name); - scpy(word, m->items[m->len++], 64); - } - return 1; -} - -static int -makelabel(char *name) -{ - Label *l; - if(findlabel(name)) - return error("Label duplicate", name); - if(sihx(name) && slen(name) % 2 == 0) - return error("Label name is hex number", name); - if(findopcode(name) || scmp(name, "BRK", 4) || !slen(name)) - return error("Label name is invalid", name); - if(p.llen == LABELS) - return error("Too many labels", name); - l = &p.labels[p.llen++]; - l->addr = addr; - l->refs = 0; - scpy(name, l->name, 64); - return 1; -} - -static int -addref(Label *l, Uint8 rel) -{ - if(rel) { - int pos = cpos(l->name, '/'); - if(pos != -1) { - char parent[64]; - Label *rl = findlabel(scpy(l->name, parent, pos)); - if(rl) - ++rl->refs; - } - } - return ++l->refs; -} - -static int -skipblock(char *w, int *cap, char a, char b) -{ - if(w[0] == b) { - *cap = 0; - return 1; - } - if(w[0] == a) *cap = 1; - if(*cap) return 1; - return 0; -} - -static int -walktoken(char *w) -{ - Macro *m; - if(findopcode(w) || scmp(w, "BRK", 4)) - return 1; - switch(w[0]) { - case '[': return 0; - case ']': return 0; - case '\'': return 1; - case '.': return 2; /* zero-page: LIT addr-lb */ - case ',': return 2; /* relative: LIT addr-rel */ - case ':': return 2; /* absolute: addr-hb addr-lb */ - case ';': return 3; /* absolute: LIT addr-hb addr-lb */ - case '$': return shex(w + 1); - case '#': return slen(w + 1) == 4 ? 3 : 2; - case '"': return slen(w + 1); - } - if((m = findmacro(w))) { - int i, res = 0; - for(i = 0; i < m->len; ++i) - res += walktoken(m->items[i]); - return res; - } - if(sihx(w) && slen(w) == 2) - return 1; - else if(sihx(w) && slen(w) == 4) - return 2; - return error("Invalid token", w); -} - -static int -parsetoken(char *w) -{ - Label *l; - Macro *m; - if(w[0] == '.' && (l = findlabel(w + 1))) { /* zero-page */ - if(l->addr > 0xff) - return error("Address is not in zero page", w); - pushbyte(l->addr, 1); - return addref(l, 1); - } else if(w[0] == ',' && (l = findlabel(w + 1))) { /* relative */ - int off = l->addr - p.ptr - 3; - if(off < -126 || off > 126) - return error("Address is too far", w); - pushbyte((Sint8)off, 1); - return addref(l, 0); - } else if(w[0] == ':' && (l = findlabel(w + 1))) { /* raw */ - pushshort(l->addr, 0); - return addref(l, 1); - } else if(w[0] == ';' && (l = findlabel(w + 1))) { /* absolute */ - pushshort(l->addr, 1); - return addref(l, 1); - } else if(findopcode(w) || scmp(w, "BRK", 4)) { /* opcode */ - pushbyte(findopcode(w), 0); - return 1; - } else if(w[0] == '"') { /* string */ - pushword(w + 1); - return 1; - } else if(w[0] == '\'') { /* char */ - pushbyte((Uint8)w[1], 0); - return 1; - } else if(w[0] == '#') { /* immediate */ - if(slen(w + 1) == 1) - pushbyte((Uint8)w[1], 1); - if(sihx(w + 1) && slen(w + 1) == 2) - pushbyte(shex(w + 1), 1); - else if(sihx(w + 1) && slen(w + 1) == 4) - pushshort(shex(w + 1), 1); - else - return error("Invalid hexadecimal literal", w); - return 1; - } else if(sihx(w)) { /* raw */ - if(slen(w) == 2) - pushbyte(shex(w), 0); - else if(slen(w) == 4) - pushshort(shex(w), 0); - else - return error("Invalid hexadecimal value", w); - return 1; - } else if((m = findmacro(w))) { - int i; - for(i = 0; i < m->len; ++i) - if(!parsetoken(m->items[i])) - return error("Invalid macro", m->name); - return 1; - } - return error("Invalid token", w); -} - -static int -doinclude(FILE *f, int (*pass)(FILE *)) -{ - char word[64]; - FILE *finc; - int ret; - if(fscanf(f, "%63s", word) != 1) - return error("End of input", "include"); - if(!(finc = fopen(word, "r"))) - return error("Include failed to open", word); - ret = pass(finc); - fclose(finc); - return ret; -} - -static int -pass1(FILE *f) -{ - int ccmnt = 0; - char w[64], scope[64], subw[64]; - while(fscanf(f, "%63s", w) == 1) { - if(skipblock(w, &ccmnt, '(', ')')) continue; - if(slen(w) >= 63) - return error("Pass 1 - Invalid token", w); - if(w[0] == '|') { - if(!sihx(w + 1)) - return error("Pass 1 - Invalid padding", w); - addr = shex(w + 1); - } else if(w[0] == '%') { - if(!makemacro(w + 1, f)) - return error("Pass 1 - Invalid macro", w); - } else if(w[0] == '@') { - if(!makelabel(w + 1)) - return error("Pass 1 - Invalid label", w); - scpy(w + 1, scope, 64); - } else if(w[0] == '&') { - if(!makelabel(sublabel(subw, scope, w + 1))) - return error("Pass 1 - Invalid sublabel", w); - } else if(scmp(w, "include", 8)) { - if(!doinclude(f, pass1)) - return 0; - } else if(sihx(w)) - addr += slen(w) / 2; - else - addr += walktoken(w); - } - rewind(f); - return 1; -} - -static int -pass2(FILE *f) -{ - int ccmnt = 0, cmacr = 0; - char w[64], scope[64], subw[64]; - while(fscanf(f, "%63s", w) == 1) { - if(w[0] == '%') continue; - if(w[0] == '&') continue; - if(w[0] == '[') continue; - if(w[0] == ']') continue; - if(skipblock(w, &ccmnt, '(', ')')) continue; - if(skipblock(w, &cmacr, '{', '}')) continue; - if(w[0] == '|') { - if(p.length && (Uint16)shex(w + 1) < p.ptr) - return error("Pass 2 - Memory overwrite", w); - p.ptr = shex(w + 1); - continue; - } else if(w[0] == '$') { - if(p.length && (Uint16)(p.ptr + shex(w + 1)) < p.ptr) - return error("Pass 2 - Memory overwrite", w); - p.ptr += shex(w + 1); - continue; - } else if(w[0] == '@') { - scpy(w + 1, scope, 64); - continue; - } else if(scmp(w, "include", 8)) { - if(!doinclude(f, pass2)) - return 0; - continue; - } - if(w[1] == '&' && (w[0] == '.' || w[0] == ',' || w[0] == ';' || w[0] == ':')) - scpy(sublabel(subw, scope, w + 2), w + 1, 64); - if(!parsetoken(w)) - return error("Pass 2 - Unknown label", w); - } - return 1; -} - -static void -cleanup(char *filename) -{ - int i; - for(i = 0; i < p.llen; ++i) - if(p.labels[i].name[0] >= 'A' && p.labels[i].name[0] <= 'Z') - continue; /* Ignore capitalized labels(devices) */ - else if(!p.labels[i].refs) - fprintf(stderr, "--- Unused label: %s\n", p.labels[i].name); - fprintf(stderr, "Assembled %s in %.2fkb(%.2f%% used), %d labels, %d macros.\n", filename, (p.length - TRIM) / 1024.0, p.length / 652.80, p.llen, p.mlen); -} - -int -main(int argc, char *argv[]) -{ - FILE *f; - if(argc < 3) - return !error("usage", "input.tal output.rom"); - if(!(f = fopen(argv[1], "r"))) - return !error("Load", "Failed to open source."); - if(!pass1(f) || !pass2(f)) - return !error("Assembly", "Failed to assemble rom."); - fwrite(p.data + TRIM, p.length - TRIM, 1, fopen(argv[2], "wb")); - fclose(f); - cleanup(argv[2]); - return 0; -} diff --git a/apps/plugins/varvara/uxncli.c b/apps/plugins/varvara/uxncli.c deleted file mode 100644 index 87b75a7c9e..0000000000 --- a/apps/plugins/varvara/uxncli.c +++ /dev/null @@ -1,211 +0,0 @@ -#include -#include -#include -#include "uxn.h" - -/* -Copyright (c) 2021 Devine Lu Linvega - -Permission to use, copy, modify, and distribute this software for any -purpose with or without fee is hereby granted, provided that the above -copyright notice and this permission notice appear in all copies. - -THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES -WITH REGARD TO THIS SOFTWARE. -*/ - -#pragma mark - Core - -static Device *devsystem, *devconsole; - -static int -error(char *msg, const char *err) -{ - fprintf(stderr, "Error %s: %s\n", msg, err); - return 0; -} - -static void -inspect(Stack *s, char *name) -{ - Uint8 x, y; - fprintf(stderr, "\n%s\n", name); - for(y = 0; y < 0x04; ++y) { - for(x = 0; x < 0x08; ++x) { - Uint8 p = y * 0x08 + x; - fprintf(stderr, - p == s->ptr ? "[%02x]" : " %02x ", - s->dat[p]); - } - fprintf(stderr, "\n"); - } -} - -#pragma mark - Devices - -static int -system_talk(Device *d, Uint8 b0, Uint8 w) -{ - if(!w) { /* read */ - switch(b0) { - case 0x2: d->dat[0x2] = d->u->wst.ptr; break; - case 0x3: d->dat[0x3] = d->u->rst.ptr; break; - } - } else { /* write */ - switch(b0) { - case 0x2: d->u->wst.ptr = d->dat[0x2]; break; - case 0x3: d->u->rst.ptr = d->dat[0x3]; break; - case 0xe: - inspect(&d->u->wst, "Working-stack"); - inspect(&d->u->rst, "Return-stack"); - break; - case 0xf: return 0; - } - } - return 1; -} - -static int -console_talk(Device *d, Uint8 b0, Uint8 w) -{ - if(b0 == 0x1) - d->vector = peek16(d->dat, 0x0); - if(w && b0 > 0x7) - write(b0 - 0x7, (char *)&d->dat[b0], 1); - return 1; -} - -static int -file_talk(Device *d, Uint8 b0, Uint8 w) -{ - Uint8 read = b0 == 0xd; - if(w && (read || b0 == 0xf)) { - char *name = (char *)&d->mem[peek16(d->dat, 0x8)]; - Uint16 result = 0, length = peek16(d->dat, 0xa); - long offset = (peek16(d->dat, 0x4) << 16) + peek16(d->dat, 0x6); - Uint16 addr = peek16(d->dat, b0 - 1); - FILE *f = fopen(name, read ? "rb" : (offset ? "ab" : "wb")); - if(f) { - if(fseek(f, offset, SEEK_SET) != -1) - result = read ? fread(&d->mem[addr], 1, length, f) : fwrite(&d->mem[addr], 1, length, f); - fclose(f); - } - poke16(d->dat, 0x2, result); - } - return 1; -} - -static int -datetime_talk(Device *d, Uint8 b0, Uint8 w) -{ - time_t seconds = time(NULL); - struct tm *t = localtime(&seconds); - t->tm_year += 1900; - poke16(d->dat, 0x0, t->tm_year); - d->dat[0x2] = t->tm_mon; - d->dat[0x3] = t->tm_mday; - d->dat[0x4] = t->tm_hour; - d->dat[0x5] = t->tm_min; - d->dat[0x6] = t->tm_sec; - d->dat[0x7] = t->tm_wday; - poke16(d->dat, 0x08, t->tm_yday); - d->dat[0xa] = t->tm_isdst; - (void)b0; - (void)w; - return 1; -} - -static int -nil_talk(Device *d, Uint8 b0, Uint8 w) -{ - (void)d; - (void)b0; - (void)w; - return 1; -} - -#pragma mark - Generics - -static const char *errors[] = {"underflow", "overflow", "division by zero"}; - -int -uxn_halt(Uxn *u, Uint8 error, char *name, int id) -{ - fprintf(stderr, "Halted: %s %s#%04x, at 0x%04x\n", name, errors[error - 1], id, u->ram.ptr); - return 0; -} - -static int -console_input(Uxn *u, char c) -{ - devconsole->dat[0x2] = c; - return uxn_eval(u, devconsole->vector); -} - -static void -run(Uxn *u) -{ - Uint16 vec; - while((!u->dev[0].dat[0xf]) && (read(0, &devconsole->dat[0x2], 1) > 0)) { - vec = peek16(devconsole->dat, 0); - if(!vec) vec = u->ram.ptr; /* continue after last BRK */ - uxn_eval(u, vec); - } -} - -static int -load(Uxn *u, char *filepath) -{ - FILE *f; - if(!(f = fopen(filepath, "rb"))) - return 0; - fread(u->ram.dat + PAGE_PROGRAM, sizeof(u->ram.dat) - PAGE_PROGRAM, 1, f); - fprintf(stderr, "Loaded %s\n", filepath); - return 1; -} - -int -main(int argc, char **argv) -{ - Uxn u; - int i, loaded = 0; - - if(!uxn_boot(&u)) - return error("Boot", "Failed"); - - /* system */ devsystem = uxn_port(&u, 0x0, system_talk); - /* console */ devconsole = uxn_port(&u, 0x1, console_talk); - /* empty */ uxn_port(&u, 0x2, nil_talk); - /* empty */ uxn_port(&u, 0x3, nil_talk); - /* empty */ uxn_port(&u, 0x4, nil_talk); - /* empty */ uxn_port(&u, 0x5, nil_talk); - /* empty */ uxn_port(&u, 0x6, nil_talk); - /* empty */ uxn_port(&u, 0x7, nil_talk); - /* empty */ uxn_port(&u, 0x8, nil_talk); - /* empty */ uxn_port(&u, 0x9, nil_talk); - /* file */ uxn_port(&u, 0xa, file_talk); - /* datetime */ uxn_port(&u, 0xb, datetime_talk); - /* empty */ uxn_port(&u, 0xc, nil_talk); - /* empty */ uxn_port(&u, 0xd, nil_talk); - /* empty */ uxn_port(&u, 0xe, nil_talk); - /* empty */ uxn_port(&u, 0xf, nil_talk); - - for(i = 1; i < argc; ++i) { - if(!loaded++) { - if(!load(&u, argv[i])) - return error("Load", "Failed"); - if(!uxn_eval(&u, PAGE_PROGRAM)) - return error("Init", "Failed"); - } else { - char *p = argv[i]; - while(*p) console_input(&u, *p++); - console_input(&u, '\n'); - } - } - if(!loaded) - return error("Input", "Missing"); - - run(&u); - - return 0; -} diff --git a/apps/plugins/varvara/uxnemu.c b/apps/plugins/varvara/uxnemu.c deleted file mode 100644 index 6aae2dcf7a..0000000000 --- a/apps/plugins/varvara/uxnemu.c +++ /dev/null @@ -1,624 +0,0 @@ -#include -#include -#include -#include "uxn.h" - -#pragma GCC diagnostic push -#pragma GCC diagnostic ignored "-Wpedantic" -#include -#include "devices/ppu.h" -#include "devices/apu.h" -#pragma GCC diagnostic pop - -/* -Copyright (c) 2021 Devine Lu Linvega - -Permission to use, copy, modify, and distribute this software for any -purpose with or without fee is hereby granted, provided that the above -copyright notice and this permission notice appear in all copies. - -THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES -WITH REGARD TO THIS SOFTWARE. -*/ - -#define WIDTH 64 * 8 -#define HEIGHT 40 * 8 -#define PAD 4 -#define FIXED_SIZE 0 -#define POLYPHONY 4 -#define BENCH 0 - -static SDL_Window *gWindow; -static SDL_Texture *gTexture; -static SDL_Renderer *gRenderer; -static SDL_AudioDeviceID audio_id; -static SDL_Rect gRect; -/* devices */ -static Ppu ppu; -static Apu apu[POLYPHONY]; -static Device *devsystem, *devscreen, *devmouse, *devctrl, *devaudio0, *devconsole; -static Uint8 zoom = 1; -static Uint32 *ppu_screen, stdin_event, audio0_event, palette[16]; - -static Uint8 font[][8] = { - {0x00, 0x7c, 0x82, 0x82, 0x82, 0x82, 0x82, 0x7c}, - {0x00, 0x30, 0x10, 0x10, 0x10, 0x10, 0x10, 0x10}, - {0x00, 0x7c, 0x82, 0x02, 0x7c, 0x80, 0x80, 0xfe}, - {0x00, 0x7c, 0x82, 0x02, 0x1c, 0x02, 0x82, 0x7c}, - {0x00, 0x0c, 0x14, 0x24, 0x44, 0x84, 0xfe, 0x04}, - {0x00, 0xfe, 0x80, 0x80, 0x7c, 0x02, 0x82, 0x7c}, - {0x00, 0x7c, 0x82, 0x80, 0xfc, 0x82, 0x82, 0x7c}, - {0x00, 0x7c, 0x82, 0x02, 0x1e, 0x02, 0x02, 0x02}, - {0x00, 0x7c, 0x82, 0x82, 0x7c, 0x82, 0x82, 0x7c}, - {0x00, 0x7c, 0x82, 0x82, 0x7e, 0x02, 0x82, 0x7c}, - {0x00, 0x7c, 0x82, 0x02, 0x7e, 0x82, 0x82, 0x7e}, - {0x00, 0xfc, 0x82, 0x82, 0xfc, 0x82, 0x82, 0xfc}, - {0x00, 0x7c, 0x82, 0x80, 0x80, 0x80, 0x82, 0x7c}, - {0x00, 0xfc, 0x82, 0x82, 0x82, 0x82, 0x82, 0xfc}, - {0x00, 0x7c, 0x82, 0x80, 0xf0, 0x80, 0x82, 0x7c}, - {0x00, 0x7c, 0x82, 0x80, 0xf0, 0x80, 0x80, 0x80}}; - -static int -clamp(int val, int min, int max) -{ - return (val >= min) ? (val <= max) ? val : max : min; -} - -static int -error(char *msg, const char *err) -{ - fprintf(stderr, "%s: %s\n", msg, err); - return 0; -} - -#pragma mark - Generics - -static void -audio_callback(void *u, Uint8 *stream, int len) -{ - int i, running = 0; - Sint16 *samples = (Sint16 *)stream; - SDL_memset(stream, 0, len); - for(i = 0; i < POLYPHONY; ++i) - running += apu_render(&apu[i], samples, samples + len / 2); - if(!running) - SDL_PauseAudioDevice(audio_id, 1); - (void)u; -} - -void -apu_finished_handler(Apu *c) -{ - SDL_Event event; - event.type = audio0_event + (c - apu); - SDL_PushEvent(&event); -} - -static int -stdin_handler(void *p) -{ - SDL_Event event; - event.type = stdin_event; - while(read(0, &event.cbutton.button, 1) > 0) - SDL_PushEvent(&event); - return 0; - (void)p; -} - -void -set_palette(Uint8 *addr) -{ - int i; - for(i = 0; i < 4; ++i) { - Uint8 - r = (*(addr + i / 2) >> (!(i % 2) << 2)) & 0x0f, - g = (*(addr + 2 + i / 2) >> (!(i % 2) << 2)) & 0x0f, - b = (*(addr + 4 + i / 2) >> (!(i % 2) << 2)) & 0x0f; - palette[i] = 0xff000000 | (r << 20) | (r << 16) | (g << 12) | (g << 8) | (b << 4) | b; - } - for(i = 4; i < 16; ++i) - palette[i] = palette[i / 4]; - ppu.reqdraw = 1; -} - -static void -set_window_size(SDL_Window *window, int w, int h) -{ - SDL_Point win, win_old; - SDL_GetWindowPosition(window, &win.x, &win.y); - SDL_GetWindowSize(window, &win_old.x, &win_old.y); - SDL_SetWindowPosition(window, (win.x + win_old.x / 2) - w / 2, (win.y + win_old.y / 2) - h / 2); - SDL_SetWindowSize(window, w, h); -} - -static void -set_zoom(Uint8 scale) -{ - zoom = clamp(scale, 1, 3); - if(!gWindow) - return; - set_window_size(gWindow, (ppu.width + PAD * 2) * zoom, (ppu.height + PAD * 2) * zoom); - ppu.reqdraw = 1; -} - -static int -set_size(Uint16 width, Uint16 height, int is_resize) -{ - ppu_set_size(&ppu, width, height); - gRect.x = PAD; - gRect.y = PAD; - gRect.w = ppu.width; - gRect.h = ppu.height; - if(!(ppu_screen = realloc(ppu_screen, ppu.width * ppu.height * sizeof(Uint32)))) - return error("ppu_screen", "Memory failure"); - memset(ppu_screen, 0, ppu.width * ppu.height * sizeof(Uint32)); - if(gTexture != NULL) SDL_DestroyTexture(gTexture); - SDL_RenderSetLogicalSize(gRenderer, ppu.width + PAD * 2, ppu.height + PAD * 2); - gTexture = SDL_CreateTexture(gRenderer, SDL_PIXELFORMAT_ARGB8888, SDL_TEXTUREACCESS_STATIC, ppu.width + PAD * 2, ppu.height + PAD * 2); - if(gTexture == NULL || SDL_SetTextureBlendMode(gTexture, SDL_BLENDMODE_NONE)) - return error("gTexture", SDL_GetError()); - if(SDL_UpdateTexture(gTexture, NULL, ppu_screen, sizeof(Uint32)) != 0) - return error("SDL_UpdateTexture", SDL_GetError()); - if(is_resize) - set_window_size(gWindow, (ppu.width + PAD * 2) * zoom, (ppu.height + PAD * 2) * zoom); - ppu.reqdraw = 1; - return 1; -} - -static void -capture_screen(void) -{ - const Uint32 format = SDL_PIXELFORMAT_RGB24; - time_t t = time(NULL); - char fname[64]; - int w, h; - SDL_Surface *surface; - SDL_GetRendererOutputSize(gRenderer, &w, &h); - surface = SDL_CreateRGBSurfaceWithFormat(0, w, h, 24, format); - SDL_RenderReadPixels(gRenderer, NULL, format, surface->pixels, surface->pitch); - strftime(fname, sizeof(fname), "screenshot-%Y%m%d-%H%M%S.bmp", localtime(&t)); - SDL_SaveBMP(surface, fname); - SDL_FreeSurface(surface); - fprintf(stderr, "Saved %s\n", fname); -} - -static void -draw_inspect(Ppu *p, Uint8 *stack, Uint8 wptr, Uint8 rptr, Uint8 *memory) -{ - Uint8 i, x, y, b; - for(i = 0; i < 0x20; ++i) { - x = ((i % 8) * 3 + 1) * 8, y = (i / 8 + 1) * 8, b = stack[i]; - /* working stack */ - ppu_1bpp(p, 1, x, y, font[(b >> 4) & 0xf], 1 + (wptr == i) * 0x7, 0, 0); - ppu_1bpp(p, 1, x + 8, y, font[b & 0xf], 1 + (wptr == i) * 0x7, 0, 0); - y = 0x28 + (i / 8 + 1) * 8; - b = memory[i]; - /* return stack */ - ppu_1bpp(p, 1, x, y, font[(b >> 4) & 0xf], 3, 0, 0); - ppu_1bpp(p, 1, x + 8, y, font[b & 0xf], 3, 0, 0); - } - /* return pointer */ - ppu_1bpp(p, 1, 0x8, y + 0x10, font[(rptr >> 4) & 0xf], 0x2, 0, 0); - ppu_1bpp(p, 1, 0x10, y + 0x10, font[rptr & 0xf], 0x2, 0, 0); - /* guides */ - for(x = 0; x < 0x10; ++x) { - ppu_write(p, 1, x, p->height / 2, 2); - ppu_write(p, 1, p->width - x, p->height / 2, 2); - ppu_write(p, 1, p->width / 2, p->height - x, 2); - ppu_write(p, 1, p->width / 2, x, 2); - ppu_write(p, 1, p->width / 2 - 0x10 / 2 + x, p->height / 2, 2); - ppu_write(p, 1, p->width / 2, p->height / 2 - 0x10 / 2 + x, 2); - } -} - -static void -redraw(Uxn *u) -{ - Uint16 x, y; - if(devsystem->dat[0xe]) - draw_inspect(&ppu, u->wst.dat, u->wst.ptr, u->rst.ptr, u->ram.dat); - for(y = 0; y < ppu.height; ++y) - for(x = 0; x < ppu.width; ++x) - ppu_screen[x + y * ppu.width] = palette[ppu_read(&ppu, x, y)]; - if(SDL_UpdateTexture(gTexture, &gRect, ppu_screen, ppu.width * sizeof(Uint32)) != 0) - error("SDL_UpdateTexture", SDL_GetError()); - SDL_RenderClear(gRenderer); - SDL_RenderCopy(gRenderer, gTexture, NULL, NULL); - SDL_RenderPresent(gRenderer); - ppu.reqdraw = 0; -} - -static void -quit(void) -{ - if(audio_id) - SDL_CloseAudioDevice(audio_id); - SDL_DestroyTexture(gTexture); - gTexture = NULL; - SDL_DestroyRenderer(gRenderer); - gRenderer = NULL; - SDL_DestroyWindow(gWindow); - SDL_Quit(); - exit(0); -} - -static int -init(void) -{ - SDL_AudioSpec as; - SDL_zero(as); - as.freq = SAMPLE_FREQUENCY; - as.format = AUDIO_S16; - as.channels = 2; - as.callback = audio_callback; - as.samples = 512; - as.userdata = NULL; - if(SDL_Init(SDL_INIT_VIDEO | SDL_INIT_AUDIO) < 0) { - error("sdl", SDL_GetError()); - if(SDL_Init(SDL_INIT_VIDEO) < 0) - return error("sdl", SDL_GetError()); - } else { - audio_id = SDL_OpenAudioDevice(NULL, 0, &as, NULL, 0); - if(!audio_id) - error("sdl_audio", SDL_GetError()); - } - gWindow = SDL_CreateWindow("Uxn", SDL_WINDOWPOS_UNDEFINED, SDL_WINDOWPOS_UNDEFINED, (WIDTH + PAD * 2) * zoom, (HEIGHT + PAD * 2) * zoom, SDL_WINDOW_SHOWN); - if(gWindow == NULL) - return error("sdl_window", SDL_GetError()); - gRenderer = SDL_CreateRenderer(gWindow, -1, 0); - if(gRenderer == NULL) - return error("sdl_renderer", SDL_GetError()); - stdin_event = SDL_RegisterEvents(1); - audio0_event = SDL_RegisterEvents(POLYPHONY); - SDL_CreateThread(stdin_handler, "stdin", NULL); - SDL_StartTextInput(); - SDL_ShowCursor(SDL_DISABLE); - return 1; -} - -static void -domouse(SDL_Event *event) -{ - Uint8 flag = 0x00; - Uint16 x = clamp(event->motion.x - PAD, 0, ppu.width - 1); - Uint16 y = clamp(event->motion.y - PAD, 0, ppu.height - 1); - if(event->type == SDL_MOUSEWHEEL) { - devmouse->dat[7] = event->wheel.y; - return; - } - poke16(devmouse->dat, 0x2, x); - poke16(devmouse->dat, 0x4, y); - devmouse->dat[7] = 0x00; - switch(event->button.button) { - case SDL_BUTTON_LEFT: flag = 0x01; break; - case SDL_BUTTON_RIGHT: flag = 0x10; break; - } - switch(event->type) { - case SDL_MOUSEBUTTONDOWN: - devmouse->dat[6] |= flag; - break; - case SDL_MOUSEBUTTONUP: - devmouse->dat[6] &= (~flag); - break; - } -} - -static void -doctrl(SDL_Event *event, int z) -{ - Uint8 flag = 0x00; - SDL_Keymod mods = SDL_GetModState(); - devctrl->dat[2] &= 0xf8; - if(mods & KMOD_CTRL) devctrl->dat[2] |= 0x01; - if(mods & KMOD_ALT) devctrl->dat[2] |= 0x02; - if(mods & KMOD_SHIFT) devctrl->dat[2] |= 0x04; - /* clang-format off */ - switch(event->key.keysym.sym) { - case SDLK_ESCAPE: flag = 0x08; break; - case SDLK_UP: flag = 0x10; break; - case SDLK_DOWN: flag = 0x20; break; - case SDLK_LEFT: flag = 0x40; break; - case SDLK_RIGHT: flag = 0x80; break; - case SDLK_F1: if(z) set_zoom(zoom > 2 ? 1 : zoom + 1); break; - case SDLK_F2: if(z) devsystem->dat[0xe] = !devsystem->dat[0xe]; break; - case SDLK_F3: if(z) capture_screen(); break; - } - /* clang-format on */ - if(z) { - devctrl->dat[2] |= flag; - if(event->key.keysym.sym < 0x20 || event->key.keysym.sym == SDLK_DELETE) - devctrl->dat[3] = event->key.keysym.sym; - else if((mods & KMOD_CTRL) && event->key.keysym.sym >= SDLK_a && event->key.keysym.sym <= SDLK_z) - devctrl->dat[3] = event->key.keysym.sym - (mods & KMOD_SHIFT) * 0x20; - } else - devctrl->dat[2] &= ~flag; -} - -#pragma mark - Devices - -static int -system_talk(Device *d, Uint8 b0, Uint8 w) -{ - if(!w) { /* read */ - switch(b0) { - case 0x2: d->dat[0x2] = d->u->wst.ptr; break; - case 0x3: d->dat[0x3] = d->u->rst.ptr; break; - } - } else { /* write */ - switch(b0) { - case 0x2: d->u->wst.ptr = d->dat[0x2]; break; - case 0x3: d->u->rst.ptr = d->dat[0x3]; break; - case 0xf: return 0; - } - if(b0 > 0x7 && b0 < 0xe) - set_palette(&d->dat[0x8]); - } - return 1; -} - -static int -console_talk(Device *d, Uint8 b0, Uint8 w) -{ - if(w) { - if(b0 == 0x1) - d->vector = peek16(d->dat, 0x0); - if(b0 > 0x7) - write(b0 - 0x7, (char *)&d->dat[b0], 1); - } - return 1; -} - -static int -screen_talk(Device *d, Uint8 b0, Uint8 w) -{ - if(!w) switch(b0) { - case 0x2: d->dat[0x2] = ppu.width >> 8; break; - case 0x3: d->dat[0x3] = ppu.width; break; - case 0x4: d->dat[0x4] = ppu.height >> 8; break; - case 0x5: d->dat[0x5] = ppu.height; break; - } - else - switch(b0) { - case 0x1: d->vector = peek16(d->dat, 0x0); break; - case 0x5: - if(!FIXED_SIZE) return set_size(peek16(d->dat, 0x2), peek16(d->dat, 0x4), 1); - break; - case 0xe: { - Uint16 x = peek16(d->dat, 0x8); - Uint16 y = peek16(d->dat, 0xa); - Uint8 layer = d->dat[0xe] & 0x40; - ppu_write(&ppu, !!layer, x, y, d->dat[0xe] & 0x3); - if(d->dat[0x6] & 0x01) poke16(d->dat, 0x8, x + 1); /* auto x+1 */ - if(d->dat[0x6] & 0x02) poke16(d->dat, 0xa, y + 1); /* auto y+1 */ - break; - } - case 0xf: { - Uint16 x = peek16(d->dat, 0x8); - Uint16 y = peek16(d->dat, 0xa); - Uint8 layer = d->dat[0xf] & 0x40; - Uint8 *addr = &d->mem[peek16(d->dat, 0xc)]; - if(d->dat[0xf] & 0x80) { - ppu_2bpp(&ppu, !!layer, x, y, addr, d->dat[0xf] & 0xf, d->dat[0xf] & 0x10, d->dat[0xf] & 0x20); - if(d->dat[0x6] & 0x04) poke16(d->dat, 0xc, peek16(d->dat, 0xc) + 16); /* auto addr+16 */ - } else { - ppu_1bpp(&ppu, !!layer, x, y, addr, d->dat[0xf] & 0xf, d->dat[0xf] & 0x10, d->dat[0xf] & 0x20); - if(d->dat[0x6] & 0x04) poke16(d->dat, 0xc, peek16(d->dat, 0xc) + 8); /* auto addr+8 */ - } - if(d->dat[0x6] & 0x01) poke16(d->dat, 0x8, x + 8); /* auto x+8 */ - if(d->dat[0x6] & 0x02) poke16(d->dat, 0xa, y + 8); /* auto y+8 */ - break; - } - } - return 1; -} - -static int -file_talk(Device *d, Uint8 b0, Uint8 w) -{ - Uint8 read = b0 == 0xd; - if(w && (read || b0 == 0xf)) { - char *name = (char *)&d->mem[peek16(d->dat, 0x8)]; - Uint16 result = 0, length = peek16(d->dat, 0xa); - long offset = (peek16(d->dat, 0x4) << 16) + peek16(d->dat, 0x6); - Uint16 addr = peek16(d->dat, b0 - 1); - FILE *f = fopen(name, read ? "rb" : (offset ? "ab" : "wb")); - if(f) { - if(fseek(f, offset, SEEK_SET) != -1) - result = read ? fread(&d->mem[addr], 1, length, f) : fwrite(&d->mem[addr], 1, length, f); - fclose(f); - } - poke16(d->dat, 0x2, result); - } - return 1; -} - -static int -audio_talk(Device *d, Uint8 b0, Uint8 w) -{ - Apu *c = &apu[d - devaudio0]; - if(!audio_id) return 1; - if(!w) { - if(b0 == 0x2) - poke16(d->dat, 0x2, c->i); - else if(b0 == 0x4) - d->dat[0x4] = apu_get_vu(c); - } else if(b0 == 0xf) { - SDL_LockAudioDevice(audio_id); - c->len = peek16(d->dat, 0xa); - c->addr = &d->mem[peek16(d->dat, 0xc)]; - c->volume[0] = d->dat[0xe] >> 4; - c->volume[1] = d->dat[0xe] & 0xf; - c->repeat = !(d->dat[0xf] & 0x80); - apu_start(c, peek16(d->dat, 0x8), d->dat[0xf] & 0x7f); - SDL_UnlockAudioDevice(audio_id); - SDL_PauseAudioDevice(audio_id, 0); - } - return 1; -} - -static int -datetime_talk(Device *d, Uint8 b0, Uint8 w) -{ - time_t seconds = time(NULL); - struct tm *t = localtime(&seconds); - t->tm_year += 1900; - poke16(d->dat, 0x0, t->tm_year); - d->dat[0x2] = t->tm_mon; - d->dat[0x3] = t->tm_mday; - d->dat[0x4] = t->tm_hour; - d->dat[0x5] = t->tm_min; - d->dat[0x6] = t->tm_sec; - d->dat[0x7] = t->tm_wday; - poke16(d->dat, 0x08, t->tm_yday); - d->dat[0xa] = t->tm_isdst; - (void)b0; - (void)w; - return 1; -} - -static int -nil_talk(Device *d, Uint8 b0, Uint8 w) -{ - if(w && b0 == 0x1) - d->vector = peek16(d->dat, 0x0); - (void)d; - (void)b0; - (void)w; - return 1; -} - -static const char *errors[] = {"underflow", "overflow", "division by zero"}; - -int -uxn_halt(Uxn *u, Uint8 error, char *name, int id) -{ - fprintf(stderr, "Halted: %s %s#%04x, at 0x%04x\n", name, errors[error - 1], id, u->ram.ptr); - return 0; -} - -static int -console_input(Uxn *u, char c) -{ - devconsole->dat[0x2] = c; - return uxn_eval(u, devconsole->vector); -} - -static int -run(Uxn *u) -{ - redraw(u); - while(!devsystem->dat[0xf]) { - SDL_Event event; - double elapsed, start = 0; - if(!BENCH) - start = SDL_GetPerformanceCounter(); - while(SDL_PollEvent(&event) != 0) { - switch(event.type) { - case SDL_QUIT: - return error("Run", "Quit."); - case SDL_TEXTINPUT: - devctrl->dat[3] = event.text.text[0]; /* fall-thru */ - case SDL_KEYDOWN: - case SDL_KEYUP: - doctrl(&event, event.type == SDL_KEYDOWN); - uxn_eval(u, devctrl->vector); - devctrl->dat[3] = 0; - break; - case SDL_MOUSEWHEEL: - case SDL_MOUSEBUTTONUP: - case SDL_MOUSEBUTTONDOWN: - case SDL_MOUSEMOTION: - domouse(&event); - uxn_eval(u, devmouse->vector); - break; - case SDL_WINDOWEVENT: - if(event.window.event == SDL_WINDOWEVENT_EXPOSED) - redraw(u); - break; - default: - if(event.type == stdin_event) { - console_input(u, event.cbutton.button); - } else if(event.type >= audio0_event && event.type < audio0_event + POLYPHONY) - uxn_eval(u, peek16((devaudio0 + (event.type - audio0_event))->dat, 0)); - } - } - uxn_eval(u, devscreen->vector); - if(ppu.reqdraw || devsystem->dat[0xe]) - redraw(u); - if(!BENCH) { - elapsed = (SDL_GetPerformanceCounter() - start) / (double)SDL_GetPerformanceFrequency() * 1000.0f; - SDL_Delay(clamp(16.666f - elapsed, 0, 1000)); - } - } - return error("Run", "Ended."); -} - -static int -load(Uxn *u, char *filepath) -{ - FILE *f; - if(!(f = fopen(filepath, "rb"))) return 0; - fread(u->ram.dat + PAGE_PROGRAM, sizeof(u->ram.dat) - PAGE_PROGRAM, 1, f); - fprintf(stderr, "Loaded %s\n", filepath); - return 1; -} - -int -main(int argc, char **argv) -{ - SDL_DisplayMode DM; - Uxn u; - int i, loaded = 0; - - if(!uxn_boot(&u)) - return error("Boot", "Failed to start uxn."); - - /* system */ devsystem = uxn_port(&u, 0x0, system_talk); - /* console */ devconsole = uxn_port(&u, 0x1, console_talk); - /* screen */ devscreen = uxn_port(&u, 0x2, screen_talk); - /* audio0 */ devaudio0 = uxn_port(&u, 0x3, audio_talk); - /* audio1 */ uxn_port(&u, 0x4, audio_talk); - /* audio2 */ uxn_port(&u, 0x5, audio_talk); - /* audio3 */ uxn_port(&u, 0x6, audio_talk); - /* unused */ uxn_port(&u, 0x7, nil_talk); - /* control */ devctrl = uxn_port(&u, 0x8, nil_talk); - /* mouse */ devmouse = uxn_port(&u, 0x9, nil_talk); - /* file */ uxn_port(&u, 0xa, file_talk); - /* datetime */ uxn_port(&u, 0xb, datetime_talk); - /* unused */ uxn_port(&u, 0xc, nil_talk); - /* unused */ uxn_port(&u, 0xd, nil_talk); - /* unused */ uxn_port(&u, 0xe, nil_talk); - /* unused */ uxn_port(&u, 0xf, nil_talk); - - /* set default zoom */ - if(SDL_GetCurrentDisplayMode(0, &DM) == 0) - set_zoom(DM.w / 1280); - for(i = 1; i < argc; ++i) { - /* get default zoom from flags */ - if(strcmp(argv[i], "-s") == 0) { - if(i < argc - 1) - set_zoom(atoi(argv[++i])); - else - return error("Opt", "-s No scale provided."); - } else if(!loaded++) { - if(!load(&u, argv[i])) - return error("Load", "Failed to open rom."); - if(!init()) - return error("Init", "Failed to initialize emulator."); - if(!set_size(WIDTH, HEIGHT, 0)) - return error("Window", "Failed to set window size."); - if(!uxn_eval(&u, PAGE_PROGRAM)) - return error("Init", "Failed"); - } else { - char *p = argv[i]; - while(*p) console_input(&u, *p++); - console_input(&u, '\n'); - } - } - if(!loaded) - return error("usage", "uxnemu file.rom"); - - run(&u); - quit(); - return 0; -}