d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Raised label limit in uxnasm

This commit is contained in:
neauoire 2022-04-11 15:34:53 -07:00
parent 4c59498f14
commit 60315ff3dc
1 changed files with 34 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
src/uxnasm.c
View File

@ -19,17 +19,17 @@ typedef signed char Sint8;
typedef unsigned short Uint16; typedef unsigned short Uint16;
typedef struct { typedef struct {
char name[64], items[64][64]; char name[0x40], items[0x40][0x40];
Uint8 len; Uint8 len;
} Macro; } Macro;
typedef struct { typedef struct {
char name[64]; char name[0x40];
Uint16 addr, refs; Uint16 addr, refs;
} Label; } Label;
typedef struct { typedef struct {
char name[64], rune; char name[0x40], rune;
Uint16 addr; Uint16 addr;
} Reference; } Reference;
@ -37,10 +37,10 @@ typedef struct {
Uint8 data[LENGTH]; Uint8 data[LENGTH];
unsigned int ptr, length; unsigned int ptr, length;
Uint16 llen, mlen, rlen; Uint16 llen, mlen, rlen;
Label labels[512]; Label labels[0x400];
Macro macros[256]; Macro macros[0x100];
Reference refs[2048]; Reference refs[0x800];
char scope[64]; char scope[0x40];
} Program; } Program;
Program p; Program p;
@ -54,6 +54,8 @@ static char ops[][4] = {
"LDZ", "STZ", "LDR", "STR", "LDA", "STA", "DEI", "DEO", "LDZ", "STZ", "LDR", "STR", "LDA", "STA", "DEI", "DEO",
"ADD", "SUB", "MUL", "DIV", "AND", "ORA", "EOR", "SFT" "ADD", "SUB", "MUL", "DIV", "AND", "ORA", "EOR", "SFT"
}; };
static char sym_glyph[] = {'?', '!', '>', '<', '+', '-', '*', '/'};
static Uint8 sym_value[] = {0x08, 0x09, 0x0a, 0x1b, 0x18, 0x19, 0x1a, 0x1b};
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 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 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 */
@ -76,7 +78,7 @@ error(const char *name, const char *msg)
static char * static char *
sublabel(char *src, char *scope, char *name) sublabel(char *src, char *scope, char *name)
{ {
return scat(scat(scpy(scope, src, 64), "/"), name); return scat(scat(scpy(scope, src, 0x40), "/"), name);
} }
static Macro * static Macro *
@ -84,7 +86,7 @@ findmacro(char *name)
{ {
int i; int i;
for(i = 0; i < p.mlen; i++) for(i = 0; i < p.mlen; i++)
if(scmp(p.macros[i].name, name, 64)) if(scmp(p.macros[i].name, name, 0x40))
return &p.macros[i]; return &p.macros[i];
return NULL; return NULL;
} }
@ -94,7 +96,7 @@ findlabel(char *name)
{ {
int i; int i;
for(i = 0; i < p.llen; i++) for(i = 0; i < p.llen; i++)
if(scmp(p.labels[i].name, name, 64)) if(scmp(p.labels[i].name, name, 0x40))
return &p.labels[i]; return &p.labels[i];
return NULL; return NULL;
} }
@ -128,25 +130,25 @@ static int
makemacro(char *name, FILE *f) makemacro(char *name, FILE *f)
{ {
Macro *m; Macro *m;
char word[64]; char word[0x40];
if(findmacro(name)) if(findmacro(name))
return error("Macro duplicate", name); return error("Macro duplicate", name);
if(sihx(name) && slen(name) % 2 == 0) if(sihx(name) && slen(name) % 2 == 0)
return error("Macro name is hex number", name); return error("Macro name is hex number", name);
if(findopcode(name) || scmp(name, "BRK", 4) || !slen(name)) if(findopcode(name) || scmp(name, "BRK", 4) || !slen(name))
return error("Macro name is invalid", name); return error("Macro name is invalid", name);
if(p.mlen == 256) if(p.mlen == 0x100)
return error("Macros limit exceeded", name); return error("Macros limit exceeded", name);
m = &p.macros[p.mlen++]; m = &p.macros[p.mlen++];
scpy(name, m->name, 64); scpy(name, m->name, 0x40);
while(fscanf(f, "%63s", word) == 1) { while(fscanf(f, "%63s", word) == 1) {
if(word[0] == '{') continue; if(word[0] == '{') continue;
if(word[0] == '}') break; if(word[0] == '}') break;
if(word[0] == '%') if(word[0] == '%')
return error("Macro error", name); return error("Macro error", name);
if(m->len >= 64) if(m->len >= 0x40)
return error("Macro size exceeded", name); return error("Macro size exceeded", name);
scpy(word, m->items[m->len++], 64); scpy(word, m->items[m->len++], 0x40);
} }
return 1; return 1;
} }
@ -161,27 +163,27 @@ makelabel(char *name)
return error("Label name is hex number", name); return error("Label name is hex number", name);
if(findopcode(name) || scmp(name, "BRK", 4) || !slen(name)) if(findopcode(name) || scmp(name, "BRK", 4) || !slen(name))
return error("Label name is invalid", name); return error("Label name is invalid", name);
if(p.llen == 512) if(p.llen == 0x400)
return error("Labels limit exceeded", name); return error("Labels limit exceeded", name);
l = &p.labels[p.llen++]; l = &p.labels[p.llen++];
l->addr = p.ptr; l->addr = p.ptr;
l->refs = 0; l->refs = 0;
scpy(name, l->name, 64); scpy(name, l->name, 0x40);
return 1; return 1;
} }
static int static int
makereference(char *scope, char *label, Uint16 addr) makereference(char *scope, char *label, Uint16 addr)
{ {
char subw[64]; char subw[0x40];
Reference *r; Reference *r;
if(p.rlen == 2048) if(p.rlen == 0x800)
return error("References limit exceeded", label); return error("References limit exceeded", label);
r = &p.refs[p.rlen++]; r = &p.refs[p.rlen++];
if(label[1] == '&') if(label[1] == '&')
scpy(sublabel(subw, scope, label + 2), r->name, 64); scpy(sublabel(subw, scope, label + 2), r->name, 0x40);
else else
scpy(label + 1, r->name, 64); scpy(label + 1, r->name, 0x40);
r->rune = label[0]; r->rune = label[0];
r->addr = addr; r->addr = addr;
return 1; return 1;
@ -190,16 +192,12 @@ makereference(char *scope, char *label, Uint16 addr)
static int static int
writebyte(Uint8 b) writebyte(Uint8 b)
{ {
if(p.ptr < TRIM) { if(p.ptr < TRIM)
fprintf(stderr, "-- Writing in zero-page: %02x\n", b); return error("Writing in zero-page", "");
return 0; else if(p.ptr > 0xffff)
} else if(p.ptr > 0xffff) { return error("Writing after the end of RAM", "");
fprintf(stderr, "-- Writing after the end of RAM: %02x\n", b); else if(p.ptr < p.length)
return 0; return error("Memory overwrite", "");
} else if(p.ptr < p.length) {
fprintf(stderr, "-- Memory overwrite: %04x -> %04x\n", p.length, p.ptr);
return 0;
}
p.data[p.ptr++] = b; p.data[p.ptr++] = b;
p.length = p.ptr; p.length = p.ptr;
litlast = 0; litlast = 0;
@ -233,7 +231,7 @@ static int
doinclude(const char *filename) doinclude(const char *filename)
{ {
FILE *f; FILE *f;
char w[64]; char w[0x40];
if(!(f = fopen(filename, "r"))) if(!(f = fopen(filename, "r")))
return error("Include missing", filename); return error("Include missing", filename);
while(fscanf(f, "%63s", w) == 1) while(fscanf(f, "%63s", w) == 1)
@ -247,7 +245,7 @@ static int
parse(char *w, FILE *f) parse(char *w, FILE *f)
{ {
int i; int i;
char word[64], subw[64], c; char word[0x40], subw[0x40], c;
Macro *m; Macro *m;
if(slen(w) >= 63) if(slen(w) >= 63)
return error("Invalid token", w); return error("Invalid token", w);
@ -287,7 +285,7 @@ parse(char *w, FILE *f)
case '@': /* label */ case '@': /* label */
if(!makelabel(w + 1)) if(!makelabel(w + 1))
return error("Invalid label", w); return error("Invalid label", w);
scpy(w + 1, p.scope, 64); scpy(w + 1, p.scope, 0x40);
litlast = 0; litlast = 0;
break; break;
case '&': /* sublabel */ case '&': /* sublabel */
@ -401,8 +399,8 @@ resolve(void)
static int static int
assemble(FILE *f) assemble(FILE *f)
{ {
char w[64]; char w[0x40];
scpy("on-reset", p.scope, 64); scpy("on-reset", p.scope, 0x40);
while(fscanf(f, "%63s", w) == 1) while(fscanf(f, "%63s", w) == 1)
if(!parse(w, f)) if(!parse(w, f))
return error("Unknown token", w); return error("Unknown token", w);