I forgot what
This commit is contained in:
parent
3efa07272a
commit
9e48f3d71d
8
main.usm
8
main.usm
|
@ -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
|
||||
|
||||
|
|
Reference in New Issue