Apple-2-SW
/
dos33fsprogs
mirror of https://github.com/deater/dos33fsprogs.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

peasant: update ssi sound, also fix problem with stereo 

music stopped being stereo in ending as we weren't resetting
the 6522s enough after doing text
This commit is contained in:
Vince Weaver 2021-10-03 23:03:49 -04:00
parent acb14b5f7f
commit b1eac20e68
2 changed files with 36 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
games/peasant/ending.s
View File

@ -38,6 +38,9 @@ ending:
and #SOUND_MOCKINGBOARD and #SOUND_MOCKINGBOARD
beq skip_end_music beq skip_end_music
jsr mockingboard_init
jsr reset_ay_both
jsr mockingboard_setup_interrupt jsr mockingboard_setup_interrupt
lda #$09 ; don't end after 4 lda #$09 ; don't end after 4

45
games/peasant/ssi263_simple_speech.s
View File

@ -52,24 +52,24 @@ ssi263_speech_init:
; set defaults ; set defaults
; filter frequency ; filter frequency
lda #$E9 ; lda #$E9
ldx #SSI263_F ; ldx #SSI263_F
jsr ssi263_write_chip ; jsr ssi263_write_chip
; control / articulation/ amplitude ; control / articulation/ amplitude
lda #$5C ; lda #$5C
ldx #SSI263_CAA ; ldx #SSI263_CAA
jsr ssi263_write_chip ; jsr ssi263_write_chip
; rate/inflection ; rate/inflection
lda #$A8 ; lda #$A8
ldx #SSI263_RI ; ldx #SSI263_RI
jsr ssi263_write_chip ; jsr ssi263_write_chip
; inflection ; inflection
lda #$50 ; lda #$50
ldx #SSI263_I ; ldx #SSI263_I
jsr ssi263_write_chip ; jsr ssi263_write_chip
cli ; enable interrupts cli ; enable interrupts
@ -186,6 +186,27 @@ not_end:
ldx #SSI263_DRP ; duration/phoneme ldx #SSI263_DRP ; duration/phoneme
jsr ssi263_write_chip jsr ssi263_write_chip
; filter frequency
lda #$E9
ldx #SSI263_F
jsr ssi263_write_chip
; control / articulation/ amplitude
lda #$5C
ldx #SSI263_CAA
jsr ssi263_write_chip
; rate/inflection
lda #$A8
ldx #SSI263_RI
jsr ssi263_write_chip
; inflection
lda #$50
ldx #SSI263_I
jsr ssi263_write_chip
; Next data (inc 16 bit) ; Next data (inc 16 bit)
inc SPEECH_PTRL inc SPEECH_PTRL
bne no_oflo bne no_oflo