mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2024-09-28 07:55:27 +00:00
Maintain hold nybble when releasing note
This commit is contained in:
parent
38cb7cd1b4
commit
c407ce0d6b
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
@ -264,8 +264,9 @@ RELNOTE PHX ; Preserve X
|
|||||||
JSR GETBUFADDR ; Buffer address into A1L,A1H
|
JSR GETBUFADDR ; Buffer address into A1L,A1H
|
||||||
LDA STARTINDICES,X ; Output pointer for buf X
|
LDA STARTINDICES,X ; Output pointer for buf X
|
||||||
TAY
|
TAY
|
||||||
LDA #$00 ; Release note ..
|
LDA (A1L),Y ; Obtain Hold/Sync byte
|
||||||
STA (A1L),Y ; .. by overwriting seq # with zero
|
AND #$F0 ; Set sync nybble to zero ..
|
||||||
|
STA (A1L),Y ; .. to release the note
|
||||||
PLX ; Recover original X
|
PLX ; Recover original X
|
||||||
:RTS RTS
|
:RTS RTS
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user