Browse code

(amiga.tal) Fixed issue with clearing

Devine Lu Linvega authored on 24/07/2023 03:43:16
Showing 1 changed files
... ...
@@ -76,12 +76,14 @@ JMP2r
76 76
 	( clear )
77 77
 	.ball/x LDZ2 .Screen/x DEO2
78 78
 	.ball/y LDZ2 .Screen/y DEO2
79
-	[ LIT2 76 -Screen/auto ] DEO
79
+	;fill-icn .Screen/addr DEO2
80
+	[ LIT2 71 -Screen/auto ] DEO
80 81
 	#f8
81 82
 	&loop-bg
82 83
 		[ LIT2 40 -Screen/sprite ] DEO
83 84
 		INC DUP ?&loop-bg
84 85
 	POP
86
+	[ LIT2 76 -Screen/auto ] DEO
85 87
 	.ball/vx LDZ2k STH2k ROT STZ2
86 88
 	.ball/x LDZ2k STH2r ADD2 check-flip-vx ROT STZ2
87 89
 	.timer LDZk INC DUP ROT STZ #06 EQU ?&pull
... ...
@@ -189,6 +191,8 @@ JMP2r
189 191
 (
190 192
 @|assets )
191 193
 
194
+@fill-icn
195
+	ffff ffff ffff ffff
192 196
 @hor-icn
193 197
 	0000 0000 0000 00ff
194 198
 @ver-icn