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

Pitch envelope fix.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2022-11-07 19:28:43 -05:00
parent 5e5dc22b08
commit 8b16504299
2 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

23
mainmem.audio.s
View File

@ -570,31 +570,34 @@ PITCHENV LDA CHANENV,X ; Get envelope number
CMP #$02 CMP #$02
BEQ :SECT3 ; Section 3, encoded as 2 BEQ :SECT3 ; Section 3, encoded as 2
RTS ; Other section, do nothing RTS ; Other section, do nothing
:SECT1 LDY #ENVPI1 ; Parm: change pitch/step section 1 :SECT1
LDA (A1L),Y ; Get value of parm
JSR UPDPITCH ; Update the pitch
LDY #ENVPN1 ; Parm: num steps in section 1 LDY #ENVPN1 ; Parm: num steps in section 1
LDA (A1L),Y ; Get value of parm LDA (A1L),Y ; Get value of parm
CMP PITCHSTEP,X ; Are we there yet? CMP PITCHSTEP,X ; Are we there yet?
BEQ :NXTSECT ; Yes! BEQ :NXTSECT ; Yes!
INC PITCHSTEP,X ; One more step LDY #ENVPI1 ; Parm: change pitch/step section 1
RTS
:SECT2 LDY #ENVPI2 ; Parm: change pitch/step section 2
LDA (A1L),Y ; Get value of parm LDA (A1L),Y ; Get value of parm
JSR UPDPITCH ; Update the pitch JSR UPDPITCH ; Update the pitch
INC PITCHSTEP,X ; One more step
RTS
:SECT2
LDY #ENVPN2 ; Parm: num steps in section 2 LDY #ENVPN2 ; Parm: num steps in section 2
LDA (A1L),Y ; Get value of parm LDA (A1L),Y ; Get value of parm
CMP PITCHSTEP,X ; Are we there yet? CMP PITCHSTEP,X ; Are we there yet?
BEQ :NXTSECT ; Yes! BEQ :NXTSECT ; Yes!
INC PITCHSTEP,X ; One more step LDY #ENVPI2 ; Parm: change pitch/step section 2
RTS
:SECT3 LDY #ENVPI3 ; Parm: change pitch/step section 3
LDA (A1L),Y ; Get value of parm LDA (A1L),Y ; Get value of parm
JSR UPDPITCH ; Update the pitch JSR UPDPITCH ; Update the pitch
INC PITCHSTEP,X ; One more step
RTS
:SECT3
LDY #ENVPN3 ; Parm: num steps in section 3 LDY #ENVPN3 ; Parm: num steps in section 3
LDA (A1L),Y ; Get value of parm LDA (A1L),Y ; Get value of parm
CMP PITCHSTEP,X ; Are we there yet? CMP PITCHSTEP,X ; Are we there yet?
BEQ :LASTSECT ; Yes! BEQ :LASTSECT ; Yes!
LDY #ENVPI3 ; Parm: change pitch/step section 3
LDA (A1L),Y ; Get value of parm
JSR UPDPITCH ; Update the pitch
INC PITCHSTEP,X ; One more step INC PITCHSTEP,X ; One more step
RTS RTS
:NXTSECT INC PITCHSECT,X ; Next section :NXTSECT INC PITCHSECT,X ; Next section
@ -603,7 +606,7 @@ PITCHENV LDA CHANENV,X ; Get envelope number
:LASTSECT LDY #ENVT ; Parm: length/step + autorepeat :LASTSECT LDY #ENVT ; Parm: length/step + autorepeat
LDA (A1L),Y ; Get value of parm LDA (A1L),Y ; Get value of parm
AND #$80 ; MSB is auto-repeat flag AND #$80 ; MSB is auto-repeat flag
BEQ :NXTSECT ; Not repeating BNE :NXTSECT ; Not repeating
STZ PITCHSECT,X ; Go back to section 1 STZ PITCHSECT,X ; Go back to section 1
STZ PITCHSTEP,X ; Back to step 0 of section STZ PITCHSTEP,X ; Back to step 0 of section
RTS RTS