uxn

commit dcc2015eb468a0a8169469b48c623d8489d44b5c
parent 0cbe996f45751b4257b5a6ba013d0b3232bea714
Author: neauoire <aliceffekt@gmail.com>
Date:   Mon,  8 Mar 2021 10:55:57 -0800

Very naive insert

Diffstat:
M
assembler.c
 | 
4
++--
M
projects/software/left.usm
 | 
17
++++++++++++++---

2 files changed, 16 insertions(+), 5 deletions(-)
diff --git a/assembler.c b/assembler.c
@@ -127,7 +127,7 @@ findlabeladdr(char *s)
 			return l->addr + o;
 		o += l->macro->length[i];
 	}
-	printf("Warning %s.%s[%s]\n", l->name, param, l->macro->name);
+	printf("!!! Warning %s.%s[%s]\n", l->name, param, l->macro->name);
 	return 0;
 }
 
@@ -143,7 +143,7 @@ findlabellen(char *s)
 	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);
+	printf("!!! Warning %s.%s[%s]\n", l->name, param, l->macro->name);
 	return 0;
 }
 
diff --git a/projects/software/left.usm b/projects/software/left.usm
@@ -65,7 +65,18 @@ BRK
 
 	,no-keys ~dev/key #00 EQU JMP? POP2
 
+		( insert )
+		~document.eof #0001 ADD2 =document.eof
+
+		~document.eof =j ( end -> start )
+
+		@insert-loop
+		~j #0001 SUB2 LDR ~j STR
+		( decr ) ~j #0001 SUB2 =j
+		,insert-loop ~j ~selection.from GTH2 JMP? POP2
+
 		~dev/key ~selection.from STR
+		~position.x #0001 ADD2 =position.x ,select JSR
 		( release ) #00 =dev/key
 		,redraw JSR
 
@@ -154,7 +165,7 @@ RTS
 				RTS
 		@no-reached
 
-		,no-space ~j LDR #0a NEQ JMP? POP2
+		,no-space ~j LDR #0a NEQ ~j LDR #0d NEQ #0101 EQU2 JMP? POP2
 			( incr ) ~pt.y #0001 ADD2 =pt.y
 			#0000 =pt.x
 		@no-space
@@ -258,7 +269,7 @@ RTS
 	#0000 =j ( j is linebreaks )
 	@find-scroll-offset
 		,find-scroll-offset-end ~scroll.y ~j EQU2 JMP? POP2
-		,no-break ~textarea.addr LDR #0a NEQ JMP? POP2
+		,no-break ~textarea.addr LDR #0a ~textarea.addr LDR #0d NEQ #0101 EQU2 JMP? POP2
 			( incr ) ~j #0001 ADD2 =j
 		@no-break
 		( incr ) ~textarea.addr #0001 ADD2 =textarea.addr
@@ -273,7 +284,7 @@ RTS
 
 	@draw-textarea-loop
 
-		,no-linebreak ~j LDR #0a NEQ JMP? POP2
+		,no-linebreak ~j LDR #0a NEQ ~j LDR #0d NEQ #0101 EQU2 JMP? POP2
 			( fill clear )
 			@fill-clear
 				( incr ) ~dev/sprite.x #0008 ADD2 =dev/sprite.x