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

Added support for repeating pitch envelopes.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2022-10-16 00:09:15 -04:00
parent 9442600894
commit 7cea322407
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

8
mainmem.audio.s
View File

@ -511,7 +511,13 @@ PITCHENV LDA CHANENV,X ; Set envelope number
:NXTSECT INC PITCHSECT,X ; Next section
STZ PITCHSTEP,X ; Back to step 0 of section
RTS
:LASTSECT BRA :NXTSECT ; TODO: HANDLE REPEATING PITCH ENVELOPES
:LASTSECT LDY #ENVT ; Parm: length/step + autorepeat
LDA (A1L),Y ; Get value of parm
AND #$80 ; MSB is auto-repeat flag
BEQ :NXTSECT ; Not repeating
STZ PITCHSECT,X ; Go back to section 1
STZ PITCHSTEP,X ; Back to step 0 of section
RTS
* Update pitch value. Called by PITCHENV.