reformatting
This commit is contained in:
parent
e73660a042
commit
e4234ece00
34
main.tal
34
main.tal
|
@ -170,30 +170,30 @@ RTN
|
||||||
POP
|
POP
|
||||||
RTN
|
RTN
|
||||||
&plus
|
&plus
|
||||||
POP ( pop the key )
|
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 )
|
#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 LDA #00 EQU ,&initial JCN
|
||||||
;get-selected-addr JSR2 DUP2 STH2 ( stash selection address and keep another copy on the stack )
|
;get-selected-addr JSR2 DUP2 STH2 ( stash selection address and keep another copy on the stack )
|
||||||
LDA #01 ADD STH2r STA
|
LDA #01 ADD STH2r STA
|
||||||
RTN
|
RTN
|
||||||
&initial
|
&initial
|
||||||
POP
|
POP
|
||||||
;set-initial-value JSR2
|
;set-initial-value JSR2
|
||||||
RTN
|
RTN
|
||||||
&minus
|
&minus
|
||||||
POP
|
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 )
|
#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 )
|
;get-selected-addr JSR2 DUP2 STH2 ( stash selection address and keep another copy on the stack )
|
||||||
LDA #01 SUB STH2r STA
|
LDA #01 SUB STH2r STA
|
||||||
RTN
|
RTN
|
||||||
&bksp
|
&bksp
|
||||||
POP
|
POP
|
||||||
#00 ;get-selected-addr JSR2 STA
|
#00 ;get-selected-addr JSR2 STA
|
||||||
RTN
|
RTN
|
||||||
&rest ( insterts a rest/notestop )
|
&rest ( insterts a rest/notestop )
|
||||||
POP
|
POP
|
||||||
#00 .Edit/selection-x LDZ NEQ ,&end JCN ( if we're not on a note, skip )
|
#00 .Edit/selection-x LDZ NEQ ,&end JCN ( if we're not on a note, skip )
|
||||||
#ff ;get-selected-addr JSR2 STA
|
#ff ;get-selected-addr JSR2 STA
|
||||||
RTN
|
RTN
|
||||||
&end
|
&end
|
||||||
RTN
|
RTN
|
||||||
|
|
Reference in New Issue