flamedriver/Flamedriver.asm at master · flamewing/flamedriver · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
; ===========================================================================
; ║                                                                         ║
; ║                             SONIC&K SOUND DRIVER                        ║
; ║                         Modified SMPS Z80 Type 2 DAC                    ║
; ║                                                                         ║
; ===========================================================================
; Disassembled by MarkeyJester
; Routines, pointers and stuff by Linncaki
; Thoroughly commented and improved (including optional bugfixes) by Flamewing
; ===========================================================================
; Permission to use, copy, modify, and/or distribute this software for any
; purpose with or without fee is hereby granted.
;
; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
; OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
; ===========================================================================
; ---------------------------------------------------------------------------
; Subroutine to load the sound driver
; ---------------------------------------------------------------------------
SoundDriverLoad:
SndDrvInit:
	zHaltZ80
	zReleaseZ80Reset
	lea	Snd_Driver(pc),a0
	lea	(Z80_RAM).l,a1
	jsr	(KosDec).w
	lea	(Z80_RAM+z80_stack).l,a1
	moveq	#0,d1
	move.w	#bytesToXcnt(zTracksStart-z80_stack, 8),d0

.loop:
	movep.l	d1,0(a1)
	movep.l	d1,1(a1)
	addq.w	#8,a1
	dbf	d0,.loop
	btst	#6,(Graphics_Flags).w
	beq.s	.not_pal
	move.b	#1,(Z80_RAM+zPalFlag).l		; set PAL mode flag

.not_pal:
	zResetZ80
	zStartZ80
	rts
; End of function SndDrvInit
; ===========================================================================
; The driver itself
Snd_Driver:
	include "Sound/Z80Driver.a80"
Snd_Driver_End:
; ---------------------------------------------------------------------------
; DAC, music, and SFX banks.
	include "Sound/DACBanks.asm"
	include "Sound/SFXBanks.asm"
	include "Sound/MusicBanks.asm"
; ---------------------------------------------------------------------------