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

reformatting

This commit is contained in:
Nico 2021-06-05 18:28:55 +01:00
parent e73660a042
commit e4234ece00
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
main.tal
View File

@ -170,30 +170,30 @@ RTN
POP
RTN
&plus
POP ( pop the key )
#00 .Edit/selection-x LDZ EQU ;get-selected-addr JSR2 LDA #6c EQU AND ,&end JCN ( if we're on a note and out of bounds, skip moving )
;get-selected-addr JSR2 LDA #00 EQU ,&initial JCN
;get-selected-addr JSR2 DUP2 STH2 ( stash selection address and keep another copy on the stack )
LDA #01 ADD STH2r STA
POP ( pop the key )
#00 .Edit/selection-x LDZ EQU ;get-selected-addr JSR2 LDA #6c EQU AND ,&end JCN ( if we're on a note and out of bounds, skip moving )
;get-selected-addr JSR2 LDA #00 EQU ,&initial JCN
;get-selected-addr JSR2 DUP2 STH2 ( stash selection address and keep another copy on the stack )
LDA #01 ADD STH2r STA
RTN
&initial
POP
;set-initial-value JSR2
POP
;set-initial-value JSR2
RTN
&minus
POP
#00 .Edit/selection-x LDZ EQU ;get-selected-addr JSR2 LDA #0c EQU AND ,&end JCN ( if we're on a note and out of bounds, skip moving )
;get-selected-addr JSR2 DUP2 STH2 ( stash selection address and keep another copy on the stack )
LDA #01 SUB STH2r STA
&minus
POP
#00 .Edit/selection-x LDZ EQU ;get-selected-addr JSR2 LDA #0c EQU AND ,&end JCN ( if we're on a note and out of bounds, skip moving )
;get-selected-addr JSR2 DUP2 STH2 ( stash selection address and keep another copy on the stack )
LDA #01 SUB STH2r STA
RTN
&bksp
POP
#00 ;get-selected-addr JSR2 STA
POP
#00 ;get-selected-addr JSR2 STA
RTN
&rest ( insterts a rest/notestop )
POP
#00 .Edit/selection-x LDZ NEQ ,&end JCN ( if we're not on a note, skip )
#ff ;get-selected-addr JSR2 STA
POP
#00 .Edit/selection-x LDZ NEQ ,&end JCN ( if we're not on a note, skip )
#ff ;get-selected-addr JSR2 STA
RTN
&end
RTN