-
Notifications
You must be signed in to change notification settings - Fork 1
/
pg7fx.a80
46 lines (36 loc) · 890 Bytes
/
pg7fx.a80
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
device zxspectrum128
org #C000
define isFX 7
display "Composing bank ",/D,isFX
@_fxpage = #17
@_fxpage_start
VRAM2 block #1800,0
block #0300,0
;;-----------------------------------------------------------------------------
ds #0200 ; gap
MUSIC.buffer dw 0, 0, 0
db 0, #3F ; mixer
db 0, 0, 0
dw 0
db -1
dw 0
align 256
define OUT2BUFFER
include "music/sqt.a80"
MUSIC.page = _fxpage
MUSIC.init = sq_init
MUSIC.play = sq_play
MUSIC.out = sq_send
;;-----------------------------------------------------------------------------
if $ > #10000
display "Too long! ",/D,($-#10000)," bytes out!"
end
endif
align 16384,0
savebin "bank7",(_fxpage_start),$-(_fxpage_start)
;;-----------------------------------------------------------------------------
export MUSIC.page
export MUSIC.buffer
export MUSIC.init
export MUSIC.play
export MUSIC.out