uxn

commit 9e663250bf9841a33a3358982fa7aac533483186
parent 60080d8fe835f9a19227f3f2e32ed4b332a551f4
Author: Devine Lu Linvega <aliceffekt@gmail.com>
Date:   Wed, 22 Feb 2023 12:45:06 -0800

(amiga.tal) Optimizations

Diffstat:
M
projects/examples/demos/amiga.tal
 | 
61
+++++++++++++++++++++++++++++--------------------------------

1 file changed, 29 insertions(+), 32 deletions(-)
diff --git a/projects/examples/demos/amiga.tal b/projects/examples/demos/amiga.tal
@@ -40,7 +40,7 @@ BRK
 	( every 4th frame )
 	.timer LDZ INC .timer STZk POP #03 EQU JMP [ BRK ]
 	( reset timer )
-	#00 .timer STZ
+	[ LIT2 00 -timer ] STZ
 	( 12 frames animation )
 	.frame LDZ INC DUP #0c NEQ MUL .frame STZ
 	move-ball
@@ -53,7 +53,7 @@ BRK
 @check-flip-vx ( x -- x )
 
 	( left ) DUP2 #0010 LTH2 ?&flip 
-	( right ) DUP2 .Screen/width DEI2 #0050 SUB2 GTH2 ?&flip ,&else JMP
+	( right ) DUP2 .Screen/width DEI2 #0050 SUB2 GTH2 ?&flip !&else
 	&flip .ball/vx LDZ2k #ffff EOR2 ( INC2 ) ROT STZ2
 	&else
 
@@ -61,7 +61,7 @@ JMP2r
 
 @check-flip-vy ( y -- y )
 
-	( bottom ) DUP2 .Screen/height DEI2 #0050 SUB2 GTH2 ?&flip ,&else JMP
+	( bottom ) DUP2 .Screen/height DEI2 #0050 SUB2 GTH2 ?&flip !&else
 	&flip .ball/vy LDZ2k #ffff EOR2 ( INC2 ) ROT STZ2
 	&else
 
@@ -72,13 +72,12 @@ JMP2r
 	( clear )
 	.ball/x LDZ2 .Screen/x DEO2
 	.ball/y LDZ2 .Screen/y DEO2
-	#76 .Screen/auto DEO
-	#0800
+	[ LIT2 76 -Screen/auto ] DEO
+	#f8
 	&loop-bg
-		#40 .Screen/sprite DEO
-		INC GTHk ?&loop-bg
-	POP2
-
+		[ LIT2 40 -Screen/sprite ] DEO
+		INC DUP ?&loop-bg
+	POP
 	.ball/vx LDZ2k STH2k ROT STZ2
 	.ball/x LDZ2k STH2r ADD2 check-flip-vx ROT STZ2
 	.ball/vy LDZ2k INC2 STH2k ROT STZ2
@@ -90,44 +89,42 @@ JMP2r
 	.ball/x LDZ2 #0008 ADD2 .Screen/x DEO2
 	.ball/y LDZ2 #0008 ADD2 .Screen/y DEO2
 	;shadow .Screen/addr DEO2
-	#66 .Screen/auto DEO
-	#0700
+	[ LIT2 66 -Screen/auto ] DEO
+	#f9
 	&loop-shadow
-		#4f .Screen/sprite DEO
-		INC GTHk ?&loop-shadow
-	POP2
+		[ LIT2 4f -Screen/sprite ] DEO
+		INC DUP ?&loop-shadow
+	POP
 	.frame LDZ
 	( bg )
-	DUP #06 DIV INC #05 MUL #40 ADD STH
+	DUP #06 DIV INC #05 MUL #40 ADD ,&bg STR
 	.ball/x LDZ2 .Screen/x DEO2
 	.ball/y LDZ2 .Screen/y DEO2
 	;bg .Screen/addr DEO2
-	#66 .Screen/auto DEO
-	#0700
+	[ LIT2 66 -Screen/auto ] DEO
+	#f9
 	&loop-bg
-		STHkr .Screen/sprite DEO
-		INC GTHk ?&loop-bg
-	POP2
-	POPr
+		[ LIT2 &bg $1 -Screen/sprite ] DEO
+		INC DUP ?&loop-bg
+	POP
 	( fg )
-	DUP #06 DIV #00 EQU INC #05 MUL #40 ADD STH
+	DUP #06 DIV #00 EQU INC #05 MUL #40 ADD ,&fg STR
 	.ball/x LDZ2 .Screen/x DEO2
 	.ball/y LDZ2 .Screen/y DEO2
 	#06 DIVk MUL SUB #00 SWP #0188 MUL2 ;ball-icn ADD2 .Screen/addr DEO2
-	#66 .Screen/auto DEO
-	#0700
+	[ LIT2 66 -Screen/auto ] DEO
+	#f9
 	&loop-fg
-		STHkr .Screen/sprite DEO
-		INC GTHk ?&loop-fg
-	POP2
-	POPr
+		[ LIT2 &fg $1 -Screen/sprite ] DEO
+		INC DUP ?&loop-fg
+	POP
 
 JMP2r
 
 @draw-background ( -- )
 
 	( hor lines )
-	#01 .Screen/auto DEO
+	[ LIT2 01 -Screen/auto ] DEO
 	;hor-icn .Screen/addr DEO2
 	.Screen/height DEI2 #04 SFT2 NIP #04 SUB #00
 	&horver
@@ -135,13 +132,13 @@ JMP2r
 		#00 OVR #40 SFT2 #0020 ADD2 .Screen/y DEO2
 		.Screen/width DEI2 #03 SFT2 NIP #08 SUB #00
 		&horhor
-			#0f .Screen/sprite DEO
+			[ LIT2 0f -Screen/sprite ] DEO
 			INC GTHk ?&horhor
 		POP2
 		INC GTHk ?&horver
 	POP2
 	( ver lines )
-	#02 .Screen/auto DEO
+	[ LIT2 02 -Screen/auto ] DEO
 	;ver-icn .Screen/addr DEO2
 	.Screen/width DEI2 #04 SFT2 NIP #03 SUB #00
 	&verver
@@ -149,7 +146,7 @@ JMP2r
 		#00 OVR #40 SFT2 #0019 ADD2 .Screen/x DEO2
 		.Screen/height DEI2 #03 SFT2 NIP #0a SUB #00
 		&verhor
-			#0f .Screen/sprite DEO
+			[ LIT2 0f -Screen/sprite ] DEO
 			INC GTHk ?&verhor
 		POP2
 		INC GTHk ?&verver