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

Bumped up date to 2022-10-15.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2022-10-15 20:07:41 -04:00
parent cb001e3947
commit 55cca2ea25
3 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

2
auxmem.init.s
View File

@ -209,7 +209,7 @@ BYTE00 BEQ BYTE00A ; OSBYTE 0,0 - generate error
RTS ; %000x1xxx host type, 'A'pple RTS ; %000x1xxx host type, 'A'pple
BYTE00A BRK BYTE00A BRK
DB $F7 DB $F7
HELLO ASC 'Applecorn MOS 2022-10-14-SYS' HELLO ASC 'Applecorn MOS 2022-10-15'
DB $00 ; Unify MOS messages DB $00 ; Unify MOS messages
GSSPEED DB $00 ; $80 if GS is fast, $00 for slow GSSPEED DB $00 ; $80 if GS is fast, $00 for slow

9
mainmem.audio.s
View File

@ -61,10 +61,10 @@ CHANTIMES DB $00
DB $00 DB $00
* Envelope number for current note. $FF if no envelope. * Envelope number for current note. $FF if no envelope.
CHANENV DB $00 CHANENV DB $FF
DB $00 DB $FF
DB $00 DB $FF
DB $00 DB $FF
* Envelope step counter for current note. * Envelope step counter for current note.
* This is used in order to invoke the envelope processing at the requested * This is used in order to invoke the envelope processing at the requested
@ -388,6 +388,7 @@ ENSQISR INC COUNTER+0 ; Increment centisecond timer
STZ PITCHSECT,X ; Start on pitch section 0 STZ PITCHSECT,X ; Start on pitch section 0
STZ PITCHSTEP,X ; Start on step 0 STZ PITCHSTEP,X ; Start on step 0
LDA #$00 ; Initial amplitude is zero LDA #$00 ; Initial amplitude is zero
LDA #$80 ; TEMPORARY HACK!!!
PHA ; Zero amplitude to stack PHA ; Zero amplitude to stack
:S2 JSR REMAUDIO ; Remove byte from queue :S2 JSR REMAUDIO ; Remove byte from queue