From e4234ece001dd6afb747a2475ec3e8578fc85894 Mon Sep 17 00:00:00 2001 From: Nihilazo Date: Sat, 5 Jun 2021 18:28:55 +0100 Subject: [PATCH] reformatting --- main.tal | 34 +++++++++++++++++----------------- 1 file changed, 17 insertions(+), 17 deletions(-) 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