Apple-2gs-SW/BuGS
1
0
Fork 0
mirror of https://github.com/jeremysrand/BuGS.git synced 2024-06-07 19:29:26 +00:00
Code Issues Projects Releases Wiki Activity
2f3b04b306
BuGS/BuGS/gameSound.s

592 lines
11 KiB
ArmAsm
Raw Normal View History

Move the sound code into a gameSound.s file. This is the first step towards going around the sound toolset for playing sounds.
2020-12-16 17:00:56 +00:00
;
; gameSound.s
; BuGS
;
; Created by Jeremy Rand on 2020-12-16.
;Copyright © 2020 Jeremy Rand. All rights reserved.
;
case on
mcopy gameSound.macros
keep gameSound
gameSound start
using globalData
using tileData
Directly control the Ensoniq sound chip by writing to its registers to play sounds rather than using the free form synthesizer functions in the sound toolbox.
2020-12-17 05:35:56 +00:00
SOUND_REG_FREQ_LOW equ $0000
SOUND_REG_FREQ_HIGH equ $0020
SOUND_REG_VOLUME equ $0040
SOUND_REG_POINTER equ $0080
SOUND_REG_CONTROL equ $00a0
SOUND_REG_SIZE equ $00c0
SOUND_HALTED equ 1
SOUND_STARTED equ 0
SPIDER_SOUND_ADDR equ $0000
Add the segment, spider and extra life sounds. Add some more information about the mysterious crash.
2020-12-18 05:50:01 +00:00
SPIDER_OSC_NUM equ 8
SPIDER_FREQ_HIGH equ 0
SPIDER_FREQ_LOW equ 214
SPIDER_VOLUME equ 255
SPIDER_CONTROL equ 6
SPIDER_SIZE equ $36
Directly control the Ensoniq sound chip by writing to its registers to play sounds rather than using the free form synthesizer functions in the sound toolbox.
2020-12-17 05:35:56 +00:00
DEATH_SOUND_ADDR equ $4000
DEATH_OSC_NUM equ 5
DEATH_FREQ_HIGH equ 0
DEATH_FREQ_LOW equ 214
DEATH_VOLUME equ 255
DEATH_CONTROL equ 2
DEATH_SIZE equ $36
SEGMENTS_SOUND_ADDR equ $7000
Add the segment, spider and extra life sounds. Add some more information about the mysterious crash.
2020-12-18 05:50:01 +00:00
SEGMENTS_OSC_NUM equ 6
SEGMENTS_FREQ_HIGH equ 0
SEGMENTS_FREQ_LOW equ 214
SEGMENTS_VOLUME equ 255
SEGMENTS_CONTROL equ 6
SEGMENTS_SIZE equ $24
EXTRA_LIFE_SOUND_ADDR equ $8000
EXTRA_LIFE_OSC_NUM equ 10
EXTRA_LIFE_FREQ_HIGH equ 0
EXTRA_LIFE_FREQ_LOW equ 107
EXTRA_LIFE_VOLUME equ 255
EXTRA_LIFE_CONTROL equ 2
EXTRA_LIFE_SIZE equ $36
BONUS_SOUND_ADDR equ $b000
Directly control the Ensoniq sound chip by writing to its registers to play sounds rather than using the free form synthesizer functions in the sound toolbox.
2020-12-17 05:35:56 +00:00
BONUS_OSC_NUM equ 0
BONUS_FREQ_HIGH equ 0
BONUS_FREQ_LOW equ 214
BONUS_VOLUME equ 255
BONUS_CONTROL equ 2
BONUS_SIZE equ $24
Add the segment, spider and extra life sounds. Add some more information about the mysterious crash.
2020-12-18 05:50:01 +00:00
KILL_SOUND_ADDR equ $c000
Directly control the Ensoniq sound chip by writing to its registers to play sounds rather than using the free form synthesizer functions in the sound toolbox.
2020-12-17 05:35:56 +00:00
KILL_OSC_NUM equ 4
KILL_FREQ_HIGH equ 0
KILL_FREQ_LOW equ 214
KILL_VOLUME equ 255
KILL_CONTROL equ 2
KILL_SIZE equ $24
Add the segment, spider and extra life sounds. Add some more information about the mysterious crash.
2020-12-18 05:50:01 +00:00
FIRE_SOUND_ADDR equ $d000
Directly control the Ensoniq sound chip by writing to its registers to play sounds rather than using the free form synthesizer functions in the sound toolbox.
2020-12-17 05:35:56 +00:00
FIRE_OSC_NUM equ 3
FIRE_FREQ_HIGH equ 0
FIRE_FREQ_LOW equ 214
FIRE_VOLUME equ 255
FIRE_CONTROL equ 2
FIRE_SIZE equ $1b
; X register has the address of the register to read
; Accumulator contains the result of the read
readSoundReg entry
short m
readSoundReg_jslInst anop
jsl readSoundReg
long m
and #$ff
rtl
; X register has the address of the register to write
; Accumulator has the value to write
writeSoundReg entry
and #$ff
short m
writeSoundReg_jslInst anop
jsl writeSoundReg
long m
rtl
Move the sound code into a gameSound.s file. This is the first step towards going around the sound toolset for playing sounds.
2020-12-16 17:00:56 +00:00
soundInit entry
Directly control the Ensoniq sound chip by writing to its registers to play sounds rather than using the free form synthesizer functions in the sound toolbox.
2020-12-17 05:35:56 +00:00
; jsl loadSounds
pha
pha
~GetTableAddress
pla
sta soundInit_readRegLow+1
inc a
inc a
sta soundInit_readRegHigh+1
inc a
inc a
sta soundInit_writeRegLow+1
inc a
inc a
sta soundInit_writeRegHigh+1
pla
and #$ff
short m
sta soundTableAddr+2
sta soundInit_readRegLow+3
sta soundInit_readRegHigh+3
sta soundInit_writeRegLow+3
sta soundInit_writeRegHigh+3
soundInit_readRegHigh anop
lda >soundInit
sta readSoundReg_jslInst+3
soundInit_writeRegHigh anop
lda >soundInit
sta writeSoundReg_jslInst+3
long m
soundInit_readRegLow anop
lda >soundInit
sta readSoundReg_jslInst+1
soundInit_writeRegLow anop
lda >soundInit
sta writeSoundReg_jslInst+1
; Spider sound
pea SPIDER_SOUND_ADDR
jsl loadSpiderSound
Add the segment, spider and extra life sounds. Add some more information about the mysterious crash.
2020-12-18 05:50:01 +00:00
lda #SPIDER_FREQ_LOW
ldx #SOUND_REG_FREQ_LOW+SPIDER_OSC_NUM
jsl writeSoundReg
lda #SPIDER_FREQ_HIGH
ldx #SOUND_REG_FREQ_HIGH+SPIDER_OSC_NUM
jsl writeSoundReg
lda #SPIDER_VOLUME
ldx #SOUND_REG_VOLUME+SPIDER_OSC_NUM
jsl writeSoundReg
lda #SPIDER_SIZE
ldx #SOUND_REG_SIZE+SPIDER_OSC_NUM
jsl writeSoundReg
lda #SPIDER_SOUND_ADDR/256
ldx #SOUND_REG_POINTER+SPIDER_OSC_NUM
jsl writeSoundReg
lda #SPIDER_CONTROL+SOUND_HALTED
ldx #SOUND_REG_CONTROL+SPIDER_OSC_NUM
jsl writeSoundReg
lda #SPIDER_FREQ_LOW
ldx #SOUND_REG_FREQ_LOW+SPIDER_OSC_NUM+1
jsl writeSoundReg
lda #SPIDER_FREQ_HIGH
ldx #SOUND_REG_FREQ_HIGH+SPIDER_OSC_NUM+1
jsl writeSoundReg
lda #SPIDER_VOLUME
ldx #SOUND_REG_VOLUME+SPIDER_OSC_NUM+1
jsl writeSoundReg
lda #SPIDER_SIZE
ldx #SOUND_REG_SIZE+SPIDER_OSC_NUM+1
jsl writeSoundReg
lda #SPIDER_SOUND_ADDR/256
ldx #SOUND_REG_POINTER+SPIDER_OSC_NUM+1
jsl writeSoundReg
lda #SPIDER_CONTROL+SOUND_HALTED
ldx #SOUND_REG_CONTROL+SPIDER_OSC_NUM+1
jsl writeSoundReg
Directly control the Ensoniq sound chip by writing to its registers to play sounds rather than using the free form synthesizer functions in the sound toolbox.
2020-12-17 05:35:56 +00:00
; Death sound
pea DEATH_SOUND_ADDR
jsl loadDeathSound
lda #DEATH_FREQ_LOW
ldx #SOUND_REG_FREQ_LOW+DEATH_OSC_NUM
jsl writeSoundReg
lda #DEATH_FREQ_HIGH
ldx #SOUND_REG_FREQ_HIGH+DEATH_OSC_NUM
jsl writeSoundReg
lda #DEATH_VOLUME
ldx #SOUND_REG_VOLUME+DEATH_OSC_NUM
jsl writeSoundReg
lda #DEATH_SIZE
ldx #SOUND_REG_SIZE+DEATH_OSC_NUM
jsl writeSoundReg
lda #DEATH_SOUND_ADDR/256
ldx #SOUND_REG_POINTER+DEATH_OSC_NUM
jsl writeSoundReg
lda #DEATH_CONTROL+SOUND_HALTED
ldx #SOUND_REG_CONTROL+DEATH_OSC_NUM
jsl writeSoundReg
; Segments sound
pea SEGMENTS_SOUND_ADDR
jsl loadSegmentsSound
Add the segment, spider and extra life sounds. Add some more information about the mysterious crash.
2020-12-18 05:50:01 +00:00
lda #SEGMENTS_FREQ_LOW
ldx #SOUND_REG_FREQ_LOW+SEGMENTS_OSC_NUM
jsl writeSoundReg
lda #SEGMENTS_FREQ_HIGH
ldx #SOUND_REG_FREQ_HIGH+SEGMENTS_OSC_NUM
jsl writeSoundReg
lda #SEGMENTS_VOLUME
ldx #SOUND_REG_VOLUME+SEGMENTS_OSC_NUM
jsl writeSoundReg
lda #SEGMENTS_SIZE
ldx #SOUND_REG_SIZE+SEGMENTS_OSC_NUM
jsl writeSoundReg
lda #SEGMENTS_SOUND_ADDR/256
ldx #SOUND_REG_POINTER+SEGMENTS_OSC_NUM
jsl writeSoundReg
lda #SEGMENTS_CONTROL+SOUND_HALTED
ldx #SOUND_REG_CONTROL+SEGMENTS_OSC_NUM
jsl writeSoundReg
lda #SEGMENTS_FREQ_LOW
ldx #SOUND_REG_FREQ_LOW+SEGMENTS_OSC_NUM+1
jsl writeSoundReg
lda #SEGMENTS_FREQ_HIGH
ldx #SOUND_REG_FREQ_HIGH+SEGMENTS_OSC_NUM+1
jsl writeSoundReg
lda #SEGMENTS_VOLUME
ldx #SOUND_REG_VOLUME+SEGMENTS_OSC_NUM+1
jsl writeSoundReg
lda #SEGMENTS_SIZE
ldx #SOUND_REG_SIZE+SEGMENTS_OSC_NUM+1
jsl writeSoundReg
lda #SEGMENTS_SOUND_ADDR/256
ldx #SOUND_REG_POINTER+SEGMENTS_OSC_NUM+1
jsl writeSoundReg
lda #SEGMENTS_CONTROL+SOUND_HALTED
ldx #SOUND_REG_CONTROL+SEGMENTS_OSC_NUM+1
jsl writeSoundReg
Directly control the Ensoniq sound chip by writing to its registers to play sounds rather than using the free form synthesizer functions in the sound toolbox.
2020-12-17 05:35:56 +00:00
; Bonus sound
pea BONUS_SOUND_ADDR
jsl loadBonusSound
lda #BONUS_FREQ_LOW
ldx #SOUND_REG_FREQ_LOW+BONUS_OSC_NUM
jsl writeSoundReg
lda #BONUS_FREQ_HIGH
ldx #SOUND_REG_FREQ_HIGH+BONUS_OSC_NUM
jsl writeSoundReg
lda #BONUS_VOLUME
ldx #SOUND_REG_VOLUME+BONUS_OSC_NUM
jsl writeSoundReg
lda #BONUS_SIZE
ldx #SOUND_REG_SIZE+BONUS_OSC_NUM
jsl writeSoundReg
lda #BONUS_SOUND_ADDR/256
ldx #SOUND_REG_POINTER+BONUS_OSC_NUM
jsl writeSoundReg
lda #BONUS_CONTROL+SOUND_HALTED
ldx #SOUND_REG_CONTROL+BONUS_OSC_NUM
jsl writeSoundReg
lda #BONUS_FREQ_LOW
ldx #SOUND_REG_FREQ_LOW+BONUS_OSC_NUM+1
jsl writeSoundReg
lda #BONUS_FREQ_HIGH
ldx #SOUND_REG_FREQ_HIGH+BONUS_OSC_NUM+1
jsl writeSoundReg
lda #BONUS_VOLUME
ldx #SOUND_REG_VOLUME+BONUS_OSC_NUM+1
jsl writeSoundReg
lda #BONUS_SIZE
ldx #SOUND_REG_SIZE+BONUS_OSC_NUM+1
jsl writeSoundReg
lda #BONUS_SOUND_ADDR/256
ldx #SOUND_REG_POINTER+BONUS_OSC_NUM+1
jsl writeSoundReg
lda #BONUS_CONTROL+SOUND_HALTED
ldx #SOUND_REG_CONTROL+BONUS_OSC_NUM+1
jsl writeSoundReg
lda #BONUS_FREQ_LOW
ldx #SOUND_REG_FREQ_LOW+BONUS_OSC_NUM+2
jsl writeSoundReg
lda #BONUS_FREQ_HIGH
ldx #SOUND_REG_FREQ_HIGH+BONUS_OSC_NUM+2
jsl writeSoundReg
lda #BONUS_VOLUME
ldx #SOUND_REG_VOLUME+BONUS_OSC_NUM+2
jsl writeSoundReg
lda #BONUS_SIZE
ldx #SOUND_REG_SIZE+BONUS_OSC_NUM+2
jsl writeSoundReg
lda #BONUS_SOUND_ADDR/256
ldx #SOUND_REG_POINTER+BONUS_OSC_NUM+2
jsl writeSoundReg
lda #BONUS_CONTROL+SOUND_HALTED
ldx #SOUND_REG_CONTROL+BONUS_OSC_NUM+2
jsl writeSoundReg
; Kill sound
pea KILL_SOUND_ADDR
jsl loadKillSound
lda #KILL_FREQ_LOW
ldx #SOUND_REG_FREQ_LOW+KILL_OSC_NUM
jsl writeSoundReg
lda #KILL_FREQ_HIGH
ldx #SOUND_REG_FREQ_HIGH+KILL_OSC_NUM
jsl writeSoundReg
lda #KILL_VOLUME
ldx #SOUND_REG_VOLUME+KILL_OSC_NUM
jsl writeSoundReg
lda #KILL_SIZE
ldx #SOUND_REG_SIZE+KILL_OSC_NUM
jsl writeSoundReg
lda #KILL_SOUND_ADDR/256
ldx #SOUND_REG_POINTER+KILL_OSC_NUM
jsl writeSoundReg
lda #KILL_CONTROL+SOUND_HALTED
ldx #SOUND_REG_CONTROL+KILL_OSC_NUM
jsl writeSoundReg
; Fire sound
pea FIRE_SOUND_ADDR
jsl loadFireSound
lda #FIRE_FREQ_LOW
ldx #SOUND_REG_FREQ_LOW+FIRE_OSC_NUM
jsl writeSoundReg
lda #FIRE_FREQ_HIGH
ldx #SOUND_REG_FREQ_HIGH+FIRE_OSC_NUM
jsl writeSoundReg
lda #FIRE_VOLUME
ldx #SOUND_REG_VOLUME+FIRE_OSC_NUM
jsl writeSoundReg
lda #FIRE_SIZE
ldx #SOUND_REG_SIZE+FIRE_OSC_NUM
jsl writeSoundReg
lda #FIRE_SOUND_ADDR/256
ldx #SOUND_REG_POINTER+FIRE_OSC_NUM
jsl writeSoundReg
lda #FIRE_CONTROL+SOUND_HALTED
ldx #SOUND_REG_CONTROL+FIRE_OSC_NUM
jsl writeSoundReg
Add the segment, spider and extra life sounds. Add some more information about the mysterious crash.
2020-12-18 05:50:01 +00:00
; Extra life sound
pea EXTRA_LIFE_SOUND_ADDR
jsl loadExtraLifeSound
lda #EXTRA_LIFE_FREQ_LOW
ldx #SOUND_REG_FREQ_LOW+EXTRA_LIFE_OSC_NUM
jsl writeSoundReg
lda #EXTRA_LIFE_FREQ_HIGH
ldx #SOUND_REG_FREQ_HIGH+EXTRA_LIFE_OSC_NUM
jsl writeSoundReg
lda #EXTRA_LIFE_VOLUME
ldx #SOUND_REG_VOLUME+EXTRA_LIFE_OSC_NUM
jsl writeSoundReg
lda #EXTRA_LIFE_SIZE
ldx #SOUND_REG_SIZE+EXTRA_LIFE_OSC_NUM
jsl writeSoundReg
lda #EXTRA_LIFE_SOUND_ADDR/256
ldx #SOUND_REG_POINTER+EXTRA_LIFE_OSC_NUM
jsl writeSoundReg
lda #EXTRA_LIFE_CONTROL+SOUND_HALTED
ldx #SOUND_REG_CONTROL+EXTRA_LIFE_OSC_NUM
jsl writeSoundReg
Move the sound code into a gameSound.s file. This is the first step towards going around the sound toolset for playing sounds.
2020-12-16 17:00:56 +00:00
rtl
Directly control the Ensoniq sound chip by writing to its registers to play sounds rather than using the free form synthesizer functions in the sound toolbox.
2020-12-17 05:35:56 +00:00
Move the sound code into a gameSound.s file. This is the first step towards going around the sound toolset for playing sounds.
2020-12-16 17:00:56 +00:00
updateSounds entry
; Write this code...
rtl
playBonusSound entry
Directly control the Ensoniq sound chip by writing to its registers to play sounds rather than using the free form synthesizer functions in the sound toolbox.
2020-12-17 05:35:56 +00:00
lda #BONUS_CONTROL+SOUND_HALTED
ldx bonusSoundOscReg
jsl writeSoundReg
lda #BONUS_CONTROL
ldx bonusSoundOscReg
jsl writeSoundReg
lda bonusSoundOscReg
inc a
cmp #SOUND_REG_CONTROL+BONUS_OSC_NUM+3
blt playBonusSound_noWrap
lda #SOUND_REG_CONTROL+BONUS_OSC_NUM
playBonusSound_noWrap anop
sta bonusSoundOscReg
Move the sound code into a gameSound.s file. This is the first step towards going around the sound toolset for playing sounds.
2020-12-16 17:00:56 +00:00
rtl
playDeathSound entry
Add the segment, spider and extra life sounds. Add some more information about the mysterious crash.
2020-12-18 05:50:01 +00:00
jsl stopSpiderSound
jsl stopFleaSound
jsl stopScorpionSound
jsl stopSegmentSound
Directly control the Ensoniq sound chip by writing to its registers to play sounds rather than using the free form synthesizer functions in the sound toolbox.
2020-12-17 05:35:56 +00:00
lda #DEATH_CONTROL+SOUND_HALTED
ldx #SOUND_REG_CONTROL+DEATH_OSC_NUM
jsl writeSoundReg
lda #DEATH_CONTROL
ldx #SOUND_REG_CONTROL+DEATH_OSC_NUM
jsl writeSoundReg
Move the sound code into a gameSound.s file. This is the first step towards going around the sound toolset for playing sounds.
2020-12-16 17:00:56 +00:00
rtl
playKillSound entry
Directly control the Ensoniq sound chip by writing to its registers to play sounds rather than using the free form synthesizer functions in the sound toolbox.
2020-12-17 05:35:56 +00:00
lda #KILL_CONTROL+SOUND_HALTED
ldx #SOUND_REG_CONTROL+KILL_OSC_NUM
jsl writeSoundReg
lda #KILL_CONTROL
ldx #SOUND_REG_CONTROL+KILL_OSC_NUM
jsl writeSoundReg
Move the sound code into a gameSound.s file. This is the first step towards going around the sound toolset for playing sounds.
2020-12-16 17:00:56 +00:00
rtl
playFireSound entry
Directly control the Ensoniq sound chip by writing to its registers to play sounds rather than using the free form synthesizer functions in the sound toolbox.
2020-12-17 05:35:56 +00:00
lda #FIRE_CONTROL+SOUND_HALTED
ldx #SOUND_REG_CONTROL+FIRE_OSC_NUM
jsl writeSoundReg
lda #FIRE_CONTROL
ldx #SOUND_REG_CONTROL+FIRE_OSC_NUM
jsl writeSoundReg
Move the sound code into a gameSound.s file. This is the first step towards going around the sound toolset for playing sounds.
2020-12-16 17:00:56 +00:00
rtl
Add the segment, spider and extra life sounds. Add some more information about the mysterious crash.
2020-12-18 05:50:01 +00:00
Move the sound code into a gameSound.s file. This is the first step towards going around the sound toolset for playing sounds.
2020-12-16 17:00:56 +00:00
Add the segment, spider and extra life sounds. Add some more information about the mysterious crash.
2020-12-18 05:50:01 +00:00
playExtraLifeSound entry
lda #EXTRA_LIFE_CONTROL+SOUND_HALTED
ldx #SOUND_REG_CONTROL+EXTRA_LIFE_OSC_NUM
jsl writeSoundReg
Move the sound code into a gameSound.s file. This is the first step towards going around the sound toolset for playing sounds.
2020-12-16 17:00:56 +00:00
Add the segment, spider and extra life sounds. Add some more information about the mysterious crash.
2020-12-18 05:50:01 +00:00
lda #EXTRA_LIFE_CONTROL
ldx #SOUND_REG_CONTROL+EXTRA_LIFE_OSC_NUM
jsl writeSoundReg
rtl
startSegmentSound entry
jsl stopSegmentSound
lda #SEGMENTS_CONTROL
ldx #SOUND_REG_CONTROL+SEGMENTS_OSC_NUM
jsl writeSoundReg
rtl
stopSegmentSound entry
lda #SEGMENTS_CONTROL+SOUND_HALTED
ldx #SOUND_REG_CONTROL+SEGMENTS_OSC_NUM
jsl writeSoundReg
lda #SEGMENTS_CONTROL+SOUND_HALTED
ldx #SOUND_REG_CONTROL+SEGMENTS_OSC_NUM+1
jsl writeSoundReg
rtl
Move the sound code into a gameSound.s file. This is the first step towards going around the sound toolset for playing sounds.
2020-12-16 17:00:56 +00:00
startSpiderSound entry
Add the segment, spider and extra life sounds. Add some more information about the mysterious crash.
2020-12-18 05:50:01 +00:00
jsl stopSpiderSound
lda #SPIDER_CONTROL
ldx #SOUND_REG_CONTROL+SPIDER_OSC_NUM
jsl writeSoundReg
Move the sound code into a gameSound.s file. This is the first step towards going around the sound toolset for playing sounds.
2020-12-16 17:00:56 +00:00
rtl
stopSpiderSound entry
Add the segment, spider and extra life sounds. Add some more information about the mysterious crash.
2020-12-18 05:50:01 +00:00
lda #SPIDER_CONTROL+SOUND_HALTED
ldx #SOUND_REG_CONTROL+SPIDER_OSC_NUM
jsl writeSoundReg
lda #SPIDER_CONTROL+SOUND_HALTED
ldx #SOUND_REG_CONTROL+SPIDER_OSC_NUM+1
jsl writeSoundReg
Move the sound code into a gameSound.s file. This is the first step towards going around the sound toolset for playing sounds.
2020-12-16 17:00:56 +00:00
rtl
startScorpionSound entry
; Write this code...
rtl
stopScorpionSound entry
; Write this code...
rtl
startFleaSound entry
; Write this code...
rtl
stopFleaSound entry
; Write this code...
rtl
Directly control the Ensoniq sound chip by writing to its registers to play sounds rather than using the free form synthesizer functions in the sound toolbox.
2020-12-17 05:35:56 +00:00
bonusSoundOscReg dc i2'SOUND_REG_CONTROL+BONUS_OSC_NUM'
soundTableAddr dc i4'0'
Move the sound code into a gameSound.s file. This is the first step towards going around the sound toolset for playing sounds.
2020-12-16 17:00:56 +00:00
end
Reference in New Issue Copy Permalink