uxn

Varvara Ordinator, written in ANSI C(SDL2)
git clone https://git.eamoncaddigan.net/uxn.git
Log | Files | Refs | README | LICENSE

commit c63a8fa882aef1caff3c97bcaf3ef6415d6a68e1
parent 912afb678fa5e68ced134cd07bce5256c1f30eb9
Author: Devine Lu Linvega <aliceffekt@gmail.com>
Date:   Thu, 11 Nov 2021 09:22:07 -0500

(snake.rom) Minor optimizations

Diffstat:
Mprojects/examples/demos/snake.tal | 4++--
1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/projects/examples/demos/snake.tal b/projects/examples/demos/snake.tal @@ -143,7 +143,7 @@ RTN POP ( detect collision with apple ) - .snake/x LDZ2 .apple/x LDZ2 [ ROT = ROT ROT = #0101 !! ] ,&no-collision-apple JCN + .snake/x LDZ2 .apple/x LDZ2 NEQ2 ,&no-collision-apple JCN #00 ;draw-apple JSR2 .snake/length LDZ INC .snake/length STZ ;add-apple JSR2 @@ -153,7 +153,7 @@ RTN .snake/length LDZ #01 &loop-body ( pop ) DUP 2* .snake/tail + LDZ2 - .snake/x LDZ2 [ ROT = ROT ROT = #0101 !! ] ,&no-collision-body JCN + .snake/x LDZ2 NEQ2 ,&no-collision-body JCN #01 .snake/dead STZ #03 ;draw-snake JSR2 &no-collision-body