d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(amiga.tal) Fixed issue with clearing

This commit is contained in:
Devine Lu Linvega 2023-07-23 20:43:16 -07:00
parent 26bc456a1b
commit 737f4af8ab
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
projects/examples/demos/amiga.tal
View File

@ -76,12 +76,14 @@ JMP2r
( clear ) ( clear )
.ball/x LDZ2 .Screen/x DEO2 .ball/x LDZ2 .Screen/x DEO2
.ball/y LDZ2 .Screen/y DEO2 .ball/y LDZ2 .Screen/y DEO2
[ LIT2 76 -Screen/auto ] DEO ;fill-icn .Screen/addr DEO2
[ LIT2 71 -Screen/auto ] DEO
#f8 #f8
&loop-bg &loop-bg
[ LIT2 40 -Screen/sprite ] DEO [ LIT2 40 -Screen/sprite ] DEO
INC DUP ?&loop-bg INC DUP ?&loop-bg
POP POP
[ LIT2 76 -Screen/auto ] DEO
.ball/vx LDZ2k STH2k ROT STZ2 .ball/vx LDZ2k STH2k ROT STZ2
.ball/x LDZ2k STH2r ADD2 check-flip-vx ROT STZ2 .ball/x LDZ2k STH2r ADD2 check-flip-vx ROT STZ2
.timer LDZk INC DUP ROT STZ #06 EQU ?&pull .timer LDZk INC DUP ROT STZ #06 EQU ?&pull
@ -189,6 +191,8 @@ JMP2r
( (
@|assets ) @|assets )
@fill-icn
ffff ffff ffff ffff
@hor-icn @hor-icn
0000 0000 0000 00ff 0000 0000 0000 00ff
@ver-icn @ver-icn