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

(uxnasm) Report unknown mode

This commit is contained in:
Devine Lu Linvega 2024-04-03 19:37:16 -07:00
parent a74df86d06
commit 4331025178
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/uxnasm.c
View File

@ -45,7 +45,7 @@ static char *save(char *s, char c) { char *o = dictnext; while((*dictnext++ = *s
static char *join(char *a, char j, char *b) { char *res = dictnext; save(a, j), save(b, 0); return res; } /* join two str */ static char *join(char *a, char j, char *b) { char *res = dictnext; save(a, j), save(b, 0); return res; } /* join two str */
#define ishex(x) (shex(x) >= 0) #define ishex(x) (shex(x) >= 0)
#define isopc(x) (findopcode(x) || scmp(x, "BRK", 4)) #define isopc(x) (findopcode(x, ctx) || scmp(x, "BRK", 4))
#define isinvalid(x) (!x[0] || ishex(x) || isopc(x) || find(runes, x[0]) >= 0) #define isinvalid(x) (!x[0] || ishex(x) || isopc(x) || find(runes, x[0]) >= 0)
#define writeshort(x) (writebyte(x >> 8, ctx) && writebyte(x & 0xff, ctx)) #define writeshort(x) (writebyte(x >> 8, ctx) && writebyte(x & 0xff, ctx))
#define findlabel(x) finditem(x, labels, labels_len) #define findlabel(x) finditem(x, labels, labels_len)
@ -82,7 +82,7 @@ finditem(char *name, Item *list, int len)
} }
static Uint8 static Uint8
findopcode(char *s) findopcode(char *s, Context *ctx)
{ {
int i; int i;
for(i = 0; i < 0x20; i++) { for(i = 0; i < 0x20; i++) {
@ -97,7 +97,7 @@ findopcode(char *s)
else if(s[m] == 'k') else if(s[m] == 'k')
i |= (1 << 7); i |= (1 << 7);
else else
return 0; return error_asm("Opcode mode unknown");
m++; m++;
} }
return i; return i;
@ -261,7 +261,7 @@ static int
writehex(char *w, Context *ctx) writehex(char *w, Context *ctx)
{ {
if(*w == '#') if(*w == '#')
writebyte(findopcode("LIT") | !!(++w)[2] << 5, ctx); writebyte(findopcode("LIT", ctx) | !!(++w)[2] << 5, ctx);
if(w[1] && !w[2]) if(w[1] && !w[2])
return writebyte(shex(w), ctx); return writebyte(shex(w), ctx);
else if(w[3] && !w[4]) else if(w[3] && !w[4])
@ -299,6 +299,7 @@ parse(char *w, FILE *f, Context *ctx)
{ {
Item *m; Item *m;
switch(w[0]) { switch(w[0]) {
case 0x0: return 1;
case '(': return walkcomment(f, ctx); case '(': return walkcomment(f, ctx);
case '%': return makemacro(w + 1, f, ctx); case '%': return makemacro(w + 1, f, ctx);
case '@': return makelabel(w + 1, 1, ctx); case '@': return makelabel(w + 1, 1, ctx);
@ -306,12 +307,12 @@ parse(char *w, FILE *f, Context *ctx)
case '}': return makelabel(makelambda(lambda_stack[--lambda_ptr]), 0, ctx); case '}': return makelabel(makelambda(lambda_stack[--lambda_ptr]), 0, ctx);
case '#': return writehex(w, ctx); case '#': return writehex(w, ctx);
case '_': return makeref(w + 1, w[0], ptr) && writebyte(0xff, ctx); case '_': return makeref(w + 1, w[0], ptr) && writebyte(0xff, ctx);
case ',': return makeref(w + 1, w[0], ptr + 1) && writebyte(findopcode("LIT"), ctx) && writebyte(0xff, ctx); case ',': return makeref(w + 1, w[0], ptr + 1) && writebyte(findopcode("LIT", ctx), ctx) && writebyte(0xff, ctx);
case '-': return makeref(w + 1, w[0], ptr) && writebyte(0xff, ctx); case '-': return makeref(w + 1, w[0], ptr) && writebyte(0xff, ctx);
case '.': return makeref(w + 1, w[0], ptr + 1) && writebyte(findopcode("LIT"), ctx) && writebyte(0xff, ctx); case '.': return makeref(w + 1, w[0], ptr + 1) && writebyte(findopcode("LIT", ctx), ctx) && writebyte(0xff, ctx);
case ':': printf("Deprecated rune %s, use =%s\n", w, w + 1); /* fall-through */ case ':': printf("Deprecated rune %s, use =%s\n", w, w + 1); /* fall-through */
case '=': return makeref(w + 1, w[0], ptr) && writeshort(0xffff); case '=': return makeref(w + 1, w[0], ptr) && writeshort(0xffff);
case ';': return makeref(w + 1, w[0], ptr + 1) && writebyte(findopcode("LIT2"), ctx) && writeshort(0xffff); case ';': return makeref(w + 1, w[0], ptr + 1) && writebyte(findopcode("LIT2", ctx), ctx) && writeshort(0xffff);
case '?': return makeref(w + 1, w[0], ptr + 1) && writebyte(0x20, ctx) && writeshort(0xffff); case '?': return makeref(w + 1, w[0], ptr + 1) && writebyte(0x20, ctx) && writeshort(0xffff);
case '!': return makeref(w + 1, w[0], ptr + 1) && writebyte(0x40, ctx) && writeshort(0xffff); case '!': return makeref(w + 1, w[0], ptr + 1) && writebyte(0x40, ctx) && writeshort(0xffff);
case '"': return writestring(w + 1, ctx); case '"': return writestring(w + 1, ctx);
@ -322,7 +323,7 @@ parse(char *w, FILE *f, Context *ctx)
case ']': return 1; case ']': return 1;
} }
if(ishex(w)) return writehex(w, ctx); if(ishex(w)) return writehex(w, ctx);
if(isopc(w)) return writebyte(findopcode(w), ctx); if(isopc(w)) return writebyte(findopcode(w, ctx), ctx);
if((m = findmacro(w))) return walkmacro(m, ctx); if((m = findmacro(w))) return walkmacro(m, ctx);
return makeref(w, ' ', ptr + 1) && writebyte(0x60, ctx) && writeshort(0xffff); return makeref(w, ' ', ptr + 1) && writebyte(0x60, ctx) && writeshort(0xffff);
} }