Implementing better macros
This commit is contained in:
parent
e865be5d88
commit
fd883dc4c8
83
assembler.c
83
assembler.c
|
@ -24,17 +24,17 @@ typedef struct {
|
|||
typedef struct {
|
||||
Uint8 len, length[16], size, refs;
|
||||
char name[64], params[16][64];
|
||||
} Macro;
|
||||
} Template;
|
||||
|
||||
typedef struct {
|
||||
Uint8 len, offset, refs;
|
||||
Uint16 addr;
|
||||
char name[64];
|
||||
Macro *macro;
|
||||
Template *template;
|
||||
} Label;
|
||||
|
||||
int macroslen;
|
||||
Macro macros[256];
|
||||
int templateslen;
|
||||
Template templates[256];
|
||||
|
||||
int labelslen;
|
||||
Label labels[256];
|
||||
|
@ -91,13 +91,13 @@ pushtext(char *s, int lit)
|
|||
pushbyte(c, 0);
|
||||
}
|
||||
|
||||
Macro *
|
||||
findmacro(char *s)
|
||||
Template *
|
||||
findtemplate(char *s)
|
||||
{
|
||||
int i;
|
||||
for(i = 0; i < macroslen; ++i)
|
||||
if(scmp(macros[i].name, s, 64))
|
||||
return ¯os[i];
|
||||
for(i = 0; i < templateslen; ++i)
|
||||
if(scmp(templates[i].name, s, 64))
|
||||
return &templates[i];
|
||||
return NULL;
|
||||
}
|
||||
|
||||
|
@ -122,12 +122,12 @@ findlabeladdr(char *s)
|
|||
if(scin(s, '.') < 1)
|
||||
return l->addr;
|
||||
param = s + scin(s, '.') + 1;
|
||||
for(i = 0; i < l->macro->len; ++i) {
|
||||
if(scmp(l->macro->params[i], param, 64))
|
||||
for(i = 0; i < l->template->len; ++i) {
|
||||
if(scmp(l->template->params[i], param, 64))
|
||||
return l->addr + o;
|
||||
o += l->macro->length[i];
|
||||
o += l->template->length[i];
|
||||
}
|
||||
printf("!!! Warning %s.%s[%s]\n", l->name, param, l->macro->name);
|
||||
printf("!!! Warning %s.%s[%s]\n", l->name, param, l->template->name);
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
@ -140,10 +140,10 @@ findlabellen(char *s)
|
|||
if(scin(s, '.') < 1)
|
||||
return l->len;
|
||||
param = s + scin(s, '.') + 1;
|
||||
for(i = 0; i < l->macro->len; ++i)
|
||||
if(scmp(l->macro->params[i], param, 64))
|
||||
return l->macro->length[i];
|
||||
printf("!!! Warning %s.%s[%s]\n", l->name, param, l->macro->name);
|
||||
for(i = 0; i < l->template->len; ++i)
|
||||
if(scmp(l->template->params[i], param, 64))
|
||||
return l->template->length[i];
|
||||
printf("!!! Warning %s.%s[%s]\n", l->name, param, l->template->name);
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
@ -186,18 +186,18 @@ error(char *name, char *id)
|
|||
}
|
||||
|
||||
int
|
||||
makemacro(char *name, FILE *f)
|
||||
maketemplate(char *name, FILE *f)
|
||||
{
|
||||
Uint8 mode = 0;
|
||||
Macro *m;
|
||||
Template *m;
|
||||
char wv[64];
|
||||
if(findmacro(name))
|
||||
return error("Macro duplicate", name);
|
||||
if(findtemplate(name))
|
||||
return error("Template duplicate", name);
|
||||
if(sihx(name) && slen(name) % 2 == 0)
|
||||
return error("Macro name is hex number", name);
|
||||
return error("Template name is hex number", name);
|
||||
if(findopcode(name))
|
||||
return error("Macro name is invalid", name);
|
||||
m = ¯os[macroslen++];
|
||||
return error("Template name is invalid", name);
|
||||
m = &templates[templateslen++];
|
||||
scpy(name, m->name, 64);
|
||||
while(fscanf(f, "%s", wv)) {
|
||||
if(wv[0] == '{')
|
||||
|
@ -213,12 +213,12 @@ makemacro(char *name, FILE *f)
|
|||
}
|
||||
mode = !mode;
|
||||
}
|
||||
printf("New macro: %s[%d:%d]\n", name, m->len, m->size);
|
||||
printf("New template: %s[%d:%d]\n", name, m->len, m->size);
|
||||
return 1;
|
||||
}
|
||||
|
||||
int
|
||||
makelabel(char *name, Uint16 addr, Uint8 len, Macro *m)
|
||||
makelabel(char *name, Uint16 addr, Uint8 len, Template *m)
|
||||
{
|
||||
Label *l;
|
||||
if(findlabel(name))
|
||||
|
@ -233,35 +233,27 @@ makelabel(char *name, Uint16 addr, Uint8 len, Macro *m)
|
|||
l->refs = 0;
|
||||
scpy(name, l->name, 64);
|
||||
if(m)
|
||||
l->macro = m;
|
||||
l->template = m;
|
||||
printf("New label: %s, at 0x%04x[%d]\n", l->name, l->addr, l->len);
|
||||
return 1;
|
||||
}
|
||||
|
||||
int
|
||||
makeconst(char *id, FILE *f)
|
||||
{
|
||||
char wv[64];
|
||||
fscanf(f, "%s", wv);
|
||||
return makelabel(id, shex(wv), 1, 0);
|
||||
}
|
||||
|
||||
int
|
||||
makevariable(char *id, Uint16 *addr, FILE *f)
|
||||
{
|
||||
char wv[64];
|
||||
Uint16 origin;
|
||||
Uint8 len;
|
||||
Macro *m = NULL;
|
||||
Template *m = NULL;
|
||||
fscanf(f, "%s", wv);
|
||||
origin = *addr;
|
||||
if(sihx(wv))
|
||||
len = shex(wv);
|
||||
else if((m = findmacro(wv))) {
|
||||
else if((m = findtemplate(wv))) {
|
||||
len = m->size;
|
||||
m->refs++;
|
||||
} else
|
||||
return error("Invalid macro", wv);
|
||||
return error("Invalid template", wv);
|
||||
*addr += len;
|
||||
return makelabel(id, origin, len, m);
|
||||
}
|
||||
|
@ -305,10 +297,7 @@ pass1(FILE *f)
|
|||
if(!makevariable(w + 1, &addr, f))
|
||||
return error("Pass1 failed", w);
|
||||
} else if(w[0] == '&') {
|
||||
if(!makemacro(w + 1, f))
|
||||
return error("Pass1 failed", w);
|
||||
} else if(w[0] == ':') {
|
||||
if(!makeconst(w + 1, f))
|
||||
if(!maketemplate(w + 1, f))
|
||||
return error("Pass1 failed", w);
|
||||
} else if(findopcode(w) || scmp(w, "BRK", 4))
|
||||
addr += 1;
|
||||
|
@ -338,7 +327,7 @@ pass1(FILE *f)
|
|||
int
|
||||
pass2(FILE *f)
|
||||
{
|
||||
int ccmnt = 0, cbits = 0, cmacro = 0;
|
||||
int ccmnt = 0, cbits = 0, ctemplate = 0;
|
||||
char w[64], scope[64], subw[64];
|
||||
printf("Pass 2\n");
|
||||
while(fscanf(f, "%s", w) == 1) {
|
||||
|
@ -355,7 +344,7 @@ pass2(FILE *f)
|
|||
scpy(subw, w + 1, 64);
|
||||
}
|
||||
if(skipblock(w, &ccmnt, '(', ')')) continue;
|
||||
if(skipblock(w, &cmacro, '{', '}')) continue;
|
||||
if(skipblock(w, &ctemplate, '{', '}')) continue;
|
||||
/* clang-format off */
|
||||
if(skipblock(w, &cbits, '[', ']')) {
|
||||
if(w[0] == '[' || w[0] == ']') { continue; }
|
||||
|
@ -395,9 +384,9 @@ cleanup(void)
|
|||
for(i = 0; i < labelslen; ++i)
|
||||
if(!labels[i].refs)
|
||||
printf("--- Unused label: %s\n", labels[i].name);
|
||||
for(i = 0; i < macroslen; ++i)
|
||||
if(!macros[i].refs)
|
||||
printf("--- Unused macro: %s\n", macros[i].name);
|
||||
for(i = 0; i < templateslen; ++i)
|
||||
if(!templates[i].refs)
|
||||
printf("--- Unused template: %s\n", templates[i].name);
|
||||
}
|
||||
|
||||
int
|
||||
|
|
2
build.sh
2
build.sh
|
@ -21,4 +21,4 @@ cc -std=c89 -DDEBUG -Wall -Wno-unknown-pragmas -Wpedantic -Wshadow -Wextra -Werr
|
|||
|
||||
# run
|
||||
./bin/assembler projects/software/left.usm bin/boot.rom
|
||||
./bin/emulator bin/boot.rom
|
||||
# ./bin/emulator bin/boot.rom
|
||||
|
|
|
@ -6,6 +6,9 @@
|
|||
- Double-click select word
|
||||
- Right-click find next instance of selection
|
||||
- Draw tab characters
|
||||
- Don't redraw if nothing has changed
|
||||
- Input on selection should erase selection range
|
||||
- Erase on selection should erase selection range
|
||||
- Scrollbar
|
||||
- Don't scroll past oef
|
||||
- Hor scroll
|
||||
|
@ -33,7 +36,6 @@
|
|||
;i 2 ;j 2 ;k 1 ;l 1 ;addr 2
|
||||
|
||||
;selection Range2d ;position Point2d ;scroll Point2d
|
||||
|
||||
;pt Point2d ;mouse Point2d ;touch Touch2d
|
||||
;textarea Textarea2d
|
||||
;label Label2d ( remove )
|
||||
|
@ -42,7 +44,6 @@
|
|||
|
||||
( load file )
|
||||
,filepath ,load-file JSR2
|
||||
|
||||
( place textarea )
|
||||
#0018 =textarea.x1 ~SCRN.height #0008 SUB2 =textarea.y2
|
||||
|
||||
|
@ -72,11 +73,11 @@ BRK
|
|||
,no-ctrl-left ~CTRL #40 NEQ JMP2? POP2
|
||||
( clamp ) ,no-ctrl-left ~selection.from ,document.body EQU2 JMP2? POP2
|
||||
~selection.from #0001 SUB2 DUP2 =selection.from #0001 ADD2 =selection.to
|
||||
,clamp-selection JSR2,follow-selection JSR2 ,redraw JSR2 ,ctrl-end JMP2
|
||||
,clamp-selection JSR2 ,follow-selection JSR2 ,redraw JSR2 ,ctrl-end JMP2
|
||||
@no-ctrl-left
|
||||
,no-ctrl-right ~CTRL #80 NEQ JMP2? POP2
|
||||
~selection.from #0001 ADD2 DUP2 =selection.from #0001 ADD2 =selection.to
|
||||
,clamp-selection JSR2,follow-selection JSR2 ,redraw JSR2 ,ctrl-end JMP2
|
||||
,clamp-selection JSR2 ,follow-selection JSR2 ,redraw JSR2 ,ctrl-end JMP2
|
||||
@no-ctrl-right
|
||||
( alt )
|
||||
,no-alt ~CTRL #0f AND #02 NEQ JMP2? POP2
|
||||
|
@ -119,27 +120,33 @@ BRK
|
|||
|
||||
( keys )
|
||||
|
||||
,keys-end ~KEYS #00 EQU JMP2? POP2
|
||||
,no-keys ~KEYS #00 EQU JMP2? POP2
|
||||
|
||||
,no-backspace ~KEYS #08 NEQ JMP2? POP2
|
||||
,$no-backspace ~KEYS #08 NEQ JMP2? POP2
|
||||
( erase )
|
||||
,$erase-multiple ~selection.to ~selection.from SUB2 #0001 NEQ2 JMP2? POP2
|
||||
$erase-single
|
||||
~selection.to ~selection.from SUB2 ,shift-left JSR2
|
||||
,$erase-end JMP2
|
||||
$erase-multiple
|
||||
~selection.from #0001 ADD2 =selection.from
|
||||
~selection.to ~selection.from SUB2 #0001 ADD2 ,shift-left JSR2
|
||||
$erase-end
|
||||
~selection.from #0001 SUB2 =selection.from
|
||||
~selection.from #0001 ADD2 =selection.to
|
||||
( release ) #00 =KEYS
|
||||
,redraw JSR2
|
||||
,keys-end JMP2
|
||||
@no-backspace
|
||||
,$keys-end JMP2
|
||||
$no-backspace
|
||||
|
||||
( insert )
|
||||
~selection.to ~selection.from SUB2 ,shift-right JSR2
|
||||
~KEYS ~selection.from STR
|
||||
~selection.from #0001 ADD2 =selection.from
|
||||
|
||||
$keys-end
|
||||
~selection.from #0001 ADD2 =selection.to
|
||||
( release ) #00 =KEYS
|
||||
,redraw JSR2
|
||||
|
||||
@keys-end
|
||||
@no-keys
|
||||
|
||||
( mouse )
|
||||
|
||||
|
@ -532,7 +539,7 @@ RTS
|
|||
( draw ) #01
|
||||
~i ~selection.from #0001 SUB2 GTH2
|
||||
~i ~selection.to LTH2 #0101 EQU2
|
||||
#05 MUL ADD =SPRT.color
|
||||
#05 MUL ADD ~i ~selection.from EQU2 ADD =SPRT.color
|
||||
|
||||
,$no-linebreak ~i LDR #0a NEQ ~i LDR #0d NEQ #0101 EQU2 JMP2? POP2
|
||||
( draw linebreak )
|
||||
|
@ -578,10 +585,10 @@ RTS
|
|||
#0000 =SPRT.y
|
||||
,scrollbar_bg =SPRT.addr
|
||||
|
||||
$loop
|
||||
$loop NOP
|
||||
( draw ) #08 =SPRT.color
|
||||
( incr ) ~SPRT.y #0008 ADD2 =SPRT.y
|
||||
,$loop ~SPRT.y ~SCRN.height LTH2 JMP2? POP2
|
||||
~SPRT.y ~SCRN.height LTH2 ^$loop MUL JMPS
|
||||
|
||||
#0000 =SPRT.y
|
||||
,arrowup_icn =SPRT.addr
|
||||
|
|
Loading…
Reference in New Issue