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