From 6eb06d4d688158ff8b09dee87acf008250a809ec Mon Sep 17 00:00:00 2001
From: nihilazo <nico@itwont.work>
Date: Wed, 2 Mar 2022 15:39:25 +0000
Subject: [PATCH] fix ugly stack side effects

---
 tracker.tal | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/tracker.tal b/tracker.tal
index d265b05..70c936a 100644
--- a/tracker.tal
+++ b/tracker.tal
@@ -1,5 +1,5 @@
 ( a blank file )
-( TODO fix ugly stack effects )
+( TODO fix ugly stack effects, add bounds-checking for pattern movemenv )
 %+  { ADD }  %-  { SUB }  %*  { MUL }  %/  { DIV }
 %<  { LTH }  %>  { GTH }  %=  { EQU }  %!  { NEQ }
 %++ { ADD2 } %-- { SUB2 } %** { MUL2 } %// { DIV2 }
@@ -77,7 +77,7 @@ BRK
   #0080 .Screen/x DEO2
   ;get-selected-song-line-address JSR2 ;draw-patterns JSR2
   
-BRK
+RTN
 
 @on-input ( -> )
   .Controller/button DEI
@@ -85,6 +85,7 @@ BRK
   #20 AND ,&down JCN
   BRK
   &up
+    POP
     .tracker/selected-pattern LDZ #01 SUB .tracker/selected-pattern STZ
     ,&end JMP
   &down