Browse code

(move.tal) Minor optimizations

neauoire authored on 28/10/2023 17:17:10
Showing 1 changed files
... ...
@@ -17,15 +17,15 @@
17 17
 	#c0f7 .System/b DEO2
18 18
 	( | vectors )
19 19
 	;on-frame .Screen/vector DEO2
20
-	(| set origin ) .Screen/width DEI2 #01 SFT2 .hello/x STZ2
20
+	( | set origin ) .Screen/width DEI2 #01 SFT2 .hello/x STZ2
21 21
 	.Screen/height DEI2 #01 SFT2 .hello/y STZ2
22
-	#16 .Screen/auto DEO
22
+	[ LIT2 16 -Screen/auto ] DEO
23 23
 	#00 on-frame/draw BRK
24 24
 
25 25
 @on-frame ( -> )
26 26
 	.Controller/button DEI DUP ?{ POP BRK }
27 27
 	( | clear )
28
-	#40 .Screen/sprite DEO
28
+	[ LIT2 40 -Screen/sprite ] DEO
29 29
 	( | movement )
30 30
 	DUP #10 AND #00 EQU ?{
31 31
 		.hello/y LDZ2k #0001 SUB2 ROT STZ2 }
... ...
@@ -39,7 +39,7 @@
39 39
 		.hello/x LDZ2 STH2k .Screen/x DEO2
40 40
 		.hello/y LDZ2 STH2k .Screen/y DEO2
41 41
 		;hello-chr .Screen/addr DEO2
42
-		#c1 .Screen/sprite DEOk
42
+		[ LIT2 c1 -Screen/sprite ] DEOk
43 43
 		DEO
44 44
 		( draw slime ) STH2r .Screen/y DEO2
45 45
 		STH2r .Screen/x DEO2