uxn

commit 774dd27a53e88d811320576f7ab6bdfa61d3afab
parent 0932e4165bf22ffb7f6cb5a86af53304882f8e43
Author: DeltaF1 <delyaerricson@gmail.com>
Date:   Sat, 22 Jan 2022 18:49:32 -0500

Remove memory copying from wireworld

- Store two world buffers and swap between them each update

Diffstat:
M
projects/examples/demos/wireworld.tal
 | 
33
+++++++++++++++------------------

1 file changed, 15 insertions(+), 18 deletions(-)
diff --git a/projects/examples/demos/wireworld.tal b/projects/examples/demos/wireworld.tal
@@ -64,6 +64,10 @@
 	( setup )
 	#01 .timer/play STZ
 	#01 .color STZ
+
+	;world-a ;get-addr/current STA2
+	LENGTH ;run/future-offset STA2
+
 	;redraw JSR2
 
 BRK
@@ -74,8 +78,13 @@ BRK
 	( every 4th )
 	.timer/frame LDZk 
 		#03 AND ,&no-run JCN 
-			;run JSR2 
-			;past-world LENGTH ++ ;past-world LENGTH ;mcpy JSR2
+			;run JSR2
+
+			( Swap worlds )
+			;get-addr/current LDA2k ;run/future-offset LDA2 STH2k ( ;current current* offest* )
+			++ SWP2 STA2 ( Set new current page )
+			#0000 STH2r -- ;run/future-offset STA2 ( Invert offest )
+
 			;redraw JSR2
 			&no-run
 		LDZk INC SWP STZ
@@ -148,8 +157,8 @@ RTN
 		WIDTH #00
 		&hor
 			( x,y ) DUP STHkr 
-			( cell ) DUP2 ,get-addr JSR STH2k LDA 
-			( transform ) ,transform JSR STH2r ( future ) LENGTH ++ STA
+			( cell ) DUP2 ,get-addr JSR STH2k LDA
+			( transform ) ,transform JSR STH2r ( future ) LIT2 &future-offset 0000 ++ STA
 			INC GTHk ,&hor JCN
 		POP2
 		POPr
@@ -160,7 +169,7 @@ RTN
 
 @get-addr ( x y -- addr* )
 
-	TOS [ #00 WIDTH ] ** ROT TOS ++ ;past-world ++
+	TOS [ #00 WIDTH ] ** ROT TOS ++ LIT2 &current 0000 ++
 
 RTN
 
@@ -190,18 +199,6 @@ RTN
 
 RTN
 
-@mcpy ( src* dst* len* -- )
-
-	SWP2 STH2
-	OVR2 ++ SWP2
-	&loop
-		LDAk STH2kr STA INC2r
-		INC2 GTH2k ,&loop JCN
-	POP2 POP2
-	POP2r
-
-JMP2r
-
 @mclr ( addr* len* -- )
 
 	OVR2 ++ SWP2
@@ -223,4 +220,4 @@ JMP2r
 	What do I do? 
 	How do I find peace? )
 
-@past-world 
+@world-a