I forgot what

This commit is contained in:
Nico 2021-06-04 16:27:35 +01:00
parent 3efa07272a
commit 9e48f3d71d
1 changed files with 7 additions and 1 deletions

View File

@ -104,7 +104,7 @@ RTN
.Playback/pattern-addr STZ2 ( store in pattern index )
RTN
@alloc-pattern ( index -- ) ( allocates a pattern in the table )
@alloc-pattern ( index -- ) ( allocates a pattern in the table )w
#02 MUL #00 SWP ( convert index to an index in the table )
;pattern_table ADD2 ( get the index in the table for this pattern )
;pattern_pointer LDA2 SWP2 STA2 ( store the current pointer in that place in the table )
@ -160,6 +160,7 @@ RTN
DUP #2b EQU ,&plus JCN
DUP #2d EQU ,&minus JCN
DUP #08 EQU ,&bksp JCN
DUP #72 EQU ,&rest JCN
POP
RTN
&plus
@ -182,6 +183,11 @@ RTN
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
RTN
&end
RTN