nihilazo
/
kalama-sin
Archived
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fix ugly stack side effects

This commit is contained in:
Nico 2022-03-02 15:39:25 +00:00
parent 7af938606a
commit 6eb06d4d68
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tracker.tal
View File

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