Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-03-04 03:29:29 +00:00
Code Issues Projects Releases Wiki Activity

If prev note hasn't decayed, use residual amplitude

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2022-10-30 17:54:22 -04:00
parent c407ce0d6b
commit f3ee7bfef2
2 changed files with 2 additions and 2 deletions

BIN
applecorn.po

Binary file not shown.

4
mainmem.audio.s

@ -442,7 +442,6 @@ ENSQISR INC COUNTER+0 ; Increment centisecond timer
STA CHANTIMES,X
PLA ; Recover frequency
STA CURRPITCH,X ; Store for pitch envelope
STZ CURRAMP,X ; Amp envelope starts at zero
PLY ; Recover amplitude
JSR ENSQNOTE ; Start note playing
:NEXT DEX
@ -469,7 +468,8 @@ ENSQISR INC COUNTER+0 ; Increment centisecond timer
* On entry: X is audio channel #
NONOTE LDA CHANENV,X ; See if envelope is in effect
CMP #$FF
BNE :RELEASE ; Has envelope, start release phase
BNE :RELEASE ; If envelope -> start rel phase
STZ CURRAMP,X ; Next env will start at zero vol
LDY #$00 ; Zero volume
LDA #$00 ; Zero freq
JSR ENSQNOTE ; Silence channel Y