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

(amiga.tal) Tiny refactoring

This commit is contained in:
Devine Lu Linvega 2023-05-04 17:15:27 -07:00
parent 204805b586
commit 1fdb91ecb8
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -84,10 +84,9 @@ JMP2r
POP POP
.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 LDZ INC .timer STZ !&pass
.timer LDZ #05 EQU ?&pull !&pass
&pull #00 .timer STZ .ball/vy LDZ2k INC2 STH2k ROT STZ2 !&end &pull #00 .timer STZ .ball/vy LDZ2k INC2 STH2k ROT STZ2 !&end
&pass .ball/vy LDZ2k STH2k ROT STZ2 !&end &pass .ball/vy LDZ2k STH2k ROT STZ2 !&end
&end .ball/y LDZ2k STH2r ADD2 check-flip-vy ROT STZ2 &end .ball/y LDZ2k STH2r ADD2 check-flip-vy ROT STZ2