diff --git a/main.tal b/main.tal index e8d25a6..8f0816f 100644 --- a/main.tal +++ b/main.tal @@ -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