@@ -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 &macros[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 = &macros[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

@@ -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 )

-			~selection.to ~selection.from SUB2 ,shift-left JSR2

+			,$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

-		~selection.from #0001 ADD2 =selection.to

-		( release ) #00 =KEYS

-		,redraw JSR2

-	@keys-end

+		$keys-end

+			~selection.from #0001 ADD2 =selection.to

+			( release ) #00 =KEYS

+			,redraw JSR2

+

+	@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