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

Some bugfix. Pitch envelope more or less complete. Untested!

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2022-10-15 03:32:39 -04:00
parent dd4ac31e4c
commit dec5df0707
2 changed files with 26 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

29
mainmem.audio.s
View File

@ -464,6 +464,7 @@ GETENVADDR LDA #<ENVBUF0 ; Copy ENVBUF0 to A1L,A1H
DEY ; Decr envelopes remaining DEY ; Decr envelopes remaining
BRA :L1 ; Go again BRA :L1 ; Go again
:DONE RTS :DONE RTS
* Process pitch envelope * Process pitch envelope
* On entry: X is audio channel # * On entry: X is audio channel #
@ -517,8 +518,7 @@ PITCHENV LDA CHANENV,X ; Set envelope number
UPDPITCH CLC UPDPITCH CLC
ADC CURRPITCH,X ; Add change to current ADC CURRPITCH,X ; Add change to current
STA CURRPITCH,X ; Update STA CURRPITCH,X ; Update
* TODO: Update Ensoniq too! JSR ENSQFREQ ; Update Ensoniq regs
* Probably should have some ENSQxxx function for that
RTS RTS
@ -654,8 +654,31 @@ ENSQNOTE PHA
PLA PLA
RTS RTS
* Adjust frequency of note already playing
* On entry: Y - frequency to set
* Preserves X & Y
ENSQFREQ PHX
PHY ; Gonna need it again
LDA FREQLOW,Y
TAY ; Frequency value LS byte
LDA #$00 ; DOC register base $00 (Freq Lo)
JSR ADDOSC ; Actual register in X
JSR ENSQWRTDOC
PLY ; Get freq back
PHY
LDA FREQHIGH,Y
TAY ; Frequency value MS byte
LDA #$20 ; DOC register base $20 (Freq Hi)
JSR ADDOSC ; Actual register in X
JSR ENSQWRTDOC
PLY
PLX
RTS
* Add oscillator number to value in A, return sum in X * Add oscillator number to value in A, return sum in X
* Used by ENSQNOTE * Used by ENSQNOTE & ENSQFREQ
ADDOSC CLC ADDOSC CLC
ADC OSCNUM ADC OSCNUM
TAX TAX