Merge branch 'master' of https://github.com/cpcepower/CPCMix

ASM/Cowboy Kidz (1990)(Byte Back)()().asm

@@ -0,0 +1,338 @@
+; Music of Cowboy Kidz (1990)(Byte Back)()()
+; Ripped by Megachur the 14/01/2015
+; $VER 1.5
+
+IFDEF FILENAME_WRITE
+	write "COWBOYKI.BIN"
+ENDIF
+
+MUSIC_DATE_RIP_DAY		equ 14
+MUSIC_DATE_RIP_MONTH	equ 01
+MUSIC_DATE_RIP_YEAR		equ 2015
+music_adr				equ #9288
+
+	read "music_header.asm"
+
+;
+.real_play_music
+.l9288
+;
+	ld a,(l92a8); play
+	dec a
+	ld (l92a8),a
+	cp #02
+	ld c,#08
+	jp z,l9345
+	cp #01
+	ld c,#06
+	jp z,l9345
+	ld a,#03
+	ld (l92a8),a
+	call l92cc
+	jp l92e6
+.l92a8
+	db #01
+;
+.init_music
+.l92a9
+;
+	ld hl,l944e
+	ld (l93a7),hl
+	ld a,#0c
+	ld c,#0f
+	call l93a9
+	ld a,#0b
+	ld c,#00
+	call l93a9
+	ld a,#08
+	ld c,#10
+	call l93a9
+	ld a,#09
+	ld c,#10
+	call l93a9
+	ret
+.l92cc
+	ld hl,(l92fd)
+	inc hl
+	ld (l92fd),hl
+	ld a,(hl)
+	cp #ff
+	jr nz,l92df
+	ld hl,l92ff
+	ld (l92fd),hl
+	ld a,(hl)
+.l92df
+	ld c,a
+	ld a,#06
+	call l93a9
+	ret
+.l92e6
+	ld de,(l93a7)
+	ld a,(de)
+	cp #29
+	jr nz,l9304
+	inc de
+	ld a,(de)
+	cp #29
+	jr nz,l9304
+	inc de
+	ld (l93a7),de
+	jp l933c
+.l92ff equ $ + 2
+.l92fd
+	db #01,#93,#05,#11,#1e,#00,#ff
+.l9304
+	ld de,(l93a7)
+	ld a,(de)
+	call l934b
+	ld a,#00
+	ld c,l
+	call l93a9
+	ld a,#01
+	ld c,h
+	call l93a9
+	inc de
+	ld a,(de)
+	call l934b
+	ld a,#02
+	ld c,l
+	call l93a9
+	ld a,#03
+	ld c,h
+	call l93a9
+	inc de
+	ld (l93a7),de
+	inc de
+	ld a,(de)
+	cp #40
+	call z,l92a9
+	ld a,#0d
+	ld c,#09
+	call l93a9
+.l933c
+	ld c,#1c
+	ld a,#07
+	call l93a9
+	ld c,#0c
+.l9345
+	ld a,#0a
+	call l93a9
+	ret
+.l934b
+	cp #29
+	ld hl,#0000
+	ret z
+	add a
+	ld c,a
+	ld b,#00
+	ld hl,l9361
+	add hl,bc
+	ld c,(hl)
+	inc hl
+	ld b,(hl)
+	ld h,b
+	ld l,c
+	ret
+.l9361 equ $ + 2
+	db #bc,#03,#86,#03,#53,#03,#24,#03
+	db #f6,#02,#cc,#02,#a4,#02,#7e,#02
+	db #5a,#02,#38,#02,#18,#02,#fa,#01
+	db #de,#01,#c3,#01,#aa,#01,#92,#01
+	db #7b,#01,#66,#01,#52,#01,#3f,#01
+	db #2d,#01,#1c,#01,#0c,#01,#fd,#00
+	db #ef,#00,#e1,#00,#d5,#00,#c9,#00
+	db #be,#00,#b3,#00,#a9,#00,#9f,#00
+	db #96,#00,#8e,#00,#86,#00,#7f,#00
+.l93a7
+	dw l944e
+.l93a9
+	ld b,#f4
+	out (c),a
+	ld b,#f6
+	in a,(c)
+	or #c0
+	out (c),a
+	and #3f
+	out (c),a
+	ld b,#f4
+	out (c),c
+	ld b,#f6
+	ld c,a
+	or #80
+	out (c),a
+	out (c),c
+	ret
+	db #00,#00,#00,#00,#00,#00,#00,#00
+	db #00,#00,#00,#00,#00,#00,#00,#00
+	db #00,#00,#00,#00,#00,#00,#00,#00
+	db #00,#00,#00,#00,#00,#00,#00,#00
+	db #00,#00,#00,#00,#00,#00,#00,#00
+	db #00,#00,#00,#00,#00,#00,#00,#00
+	db #00,#00,#00,#00,#00,#00,#00,#00
+	db #00,#00,#00,#00,#00,#00,#00,#00
+	db #00,#00,#00,#00,#00,#00,#00,#00
+	db #00,#00,#00,#00,#00,#00,#00,#00
+	db #00,#00,#00,#00,#00,#00,#00,#00
+	db #00,#00,#00,#00,#00,#00,#00,#00
+	db #00,#00,#00,#00,#00,#00,#00,#00
+	db #00,#00,#00,#00,#00,#00,#00,#00
+	db #00,#00,#00,#00,#00,#00,#00,#00
+	db #00,#00,#00,#00,#00,#00,#00,#00
+	db #00,#00,#00,#00,#00,#00,#00
+.l944e
+	db #29,#04,#29,#09,#09,#09,#29,#09
+	db #29,#0b,#29,#0c,#0c,#0c,#29,#0c
+	db #29,#09,#29,#07,#07,#07,#29,#07
+	db #29,#04,#29,#07,#07,#07,#29,#29
+	db #29,#04,#29,#09,#09,#09,#29,#09
+	db #29,#0b,#29,#0c,#0c,#0c,#29,#0c
+	db #29,#0e,#29,#10,#10,#10,#29,#10
+	db #29,#0c,#29,#10,#10,#10,#29,#29
+	db #29,#10,#29,#10,#29,#15,#29,#15
+	db #29,#15,#29,#15,#29,#10,#29,#10
+	db #29,#10,#29,#10,#29,#10,#29,#0e
+	db #29,#0c,#29,#09,#09,#29,#29,#29
+	db #29,#07,#29,#05,#05,#05,#29,#05
+	db #29,#05,#29,#0c,#29,#0c,#29,#29
+	db #29,#29,#29,#29,#29,#29,#29,#29
+	db #29,#29,#29,#29,#29,#29,#29,#29
+	db #29,#0c,#29,#0c,#29,#09,#09,#09
+	db #29,#07,#29,#09,#29,#29,#29,#29
+	db #29,#29,#29,#29,#29,#29,#29,#29
+	db #29,#29,#29,#29,#29,#04,#29,#09
+	db #09,#09,#29,#09,#29,#0b,#29,#0c
+	db #0c,#0c,#29,#0c,#29,#09,#29,#07
+	db #07,#07,#29,#07,#29,#04,#29,#07
+	db #07,#07,#29,#29,#29,#04,#29,#09
+	db #09,#09,#29,#09,#29,#0b,#29,#0c
+	db #0c,#0c,#29,#0c,#29,#0e,#29,#10
+	db #10,#10,#29,#10,#29,#0c,#29,#10
+	db #10,#10,#29,#29,#29,#10,#29,#10
+	db #29,#15,#29,#15,#29,#15,#29,#15
+	db #29,#10,#29,#10,#29,#10,#29,#10
+	db #29,#10,#29,#0e,#29,#0c,#29,#09
+	db #09,#29,#29,#29,#29,#07,#29,#05
+	db #05,#05,#29,#05,#29,#05,#29,#0c
+	db #29,#0c,#29,#29,#29,#29,#29,#29
+	db #29,#29,#29,#29,#29,#29,#29,#29
+	db #29,#29,#29,#29,#29,#0c,#29,#0c
+	db #29,#09,#09,#09,#29,#07,#29,#09
+	db #29,#29,#29,#29,#29,#29,#29,#29
+	db #29,#29,#29,#29,#29,#29,#29,#29
+	db #10,#10,#10,#10,#10,#10,#10,#10
+	db #13,#13,#13,#13,#13,#13,#13,#13
+	db #13,#13,#13,#13,#13,#13,#13,#13
+	db #0e,#0e,#0e,#0e,#0e,#0e,#15,#15
+	db #15,#15,#15,#15,#15,#15,#15,#15
+	db #13,#13,#10,#10,#10,#10,#10,#10
+	db #10,#10,#10,#10,#10,#10,#10,#10
+	db #10,#10,#10,#10,#10,#10,#10,#10
+	db #10,#10,#07,#29,#05,#29,#05,#05
+	db #05,#29,#05,#29,#0c,#29,#0c,#29
+	db #29,#29,#29,#29,#29,#29,#29,#29
+	db #29,#29,#29,#29,#29,#29,#29,#29
+	db #29,#29,#0c,#29,#0c,#29,#09,#09
+	db #09,#29,#07,#29,#09,#29,#29,#29
+	db #29,#29,#29,#29,#29,#29,#29,#29
+	db #29,#29,#29,#29,#29,#29,#29,#29
+	db #29,#29,#29,#29,#04,#04,#04,#04
+	db #04,#04,#04,#04,#07,#07,#07,#07
+	db #07,#07,#07,#07,#07,#07,#07,#07
+	db #07,#07,#07,#07,#02,#02,#02,#02
+	db #02,#02,#09,#09,#09,#09,#09,#09
+	db #09,#09,#09,#09,#07,#07,#04,#04
+	db #04,#04,#04,#04,#04,#04,#04,#04
+	db #04,#04,#04,#04,#04,#04,#04,#04
+	db #04,#04,#04,#04,#04,#04,#07,#29
+	db #05,#29,#05,#05,#05,#29,#05,#29
+	db #0c,#29,#0c,#29,#29,#29,#29,#29
+	db #29,#29,#29,#29,#29,#29,#29,#29
+	db #29,#29,#29,#29,#29,#29,#0c,#29
+	db #0c,#29,#09,#09,#09,#29,#07,#29
+	db #09,#29,#29,#29,#29,#29,#29,#29
+	db #29,#29,#29,#29,#29,#29,#29,#29
+	db #29,#29,#29,#29,#29,#29,#29,#29
+	db #29,#29,#09,#10,#15,#10,#09,#10
+	db #15,#10,#09,#10,#15,#10,#09,#10
+	db #15,#10,#04,#0e,#13,#0e,#04,#0e
+	db #13,#0e,#04,#0e,#13,#0e,#04,#0e
+	db #13,#0e,#09,#10,#15,#10,#09,#10
+	db #15,#10,#09,#10,#15,#10,#09,#10
+	db #15,#10,#09,#10,#15,#10,#09,#10
+	db #15,#10,#09,#10,#15,#10,#09,#10
+	db #15,#10,#09,#10,#15,#10,#09,#10
+	db #15,#10,#09,#10,#15,#10,#09,#10
+	db #15,#10,#09,#10,#15,#10,#09,#10
+	db #15,#10,#09,#10,#15,#10,#09,#10
+	db #15,#10,#04,#0c,#11,#0c,#04,#0c
+	db #11,#0c,#04,#0c,#11,#0c,#04,#0c
+	db #11,#0c,#04,#0c,#11,#0c,#04,#0c
+	db #11,#0c,#04,#0c,#11,#0c,#04,#0c
+	db #11,#0c,#09,#10,#15,#10,#09,#10
+	db #15,#10,#09,#10,#15,#10,#09,#10
+	db #15,#10,#09,#10,#15,#10,#09,#10
+	db #15,#10,#09,#10,#15,#10,#09,#10
+	db #15,#10,#09,#10,#15,#10,#09,#10
+	db #15,#10,#09,#10,#15,#10,#09,#10
+	db #15,#10,#04,#0e,#13,#0e,#04,#0e
+	db #13,#0e,#04,#0e,#13,#0e,#04,#0e
+	db #13,#0e,#09,#10,#15,#10,#09,#10
+	db #15,#10,#09,#10,#15,#10,#09,#10
+	db #15,#10,#09,#10,#15,#10,#09,#10
+	db #15,#10,#09,#10,#15,#10,#09,#10
+	db #15,#10,#09,#10,#15,#10,#09,#10
+	db #15,#10,#09,#10,#15,#10,#09,#10
+	db #15,#10,#09,#10,#15,#10,#09,#10
+	db #15,#10,#09,#10,#15,#10,#09,#10
+	db #15,#10,#04,#0c,#11,#0c,#04,#0c
+	db #11,#0c,#04,#0c,#11,#0c,#04,#0c
+	db #11,#0c,#04,#0c,#11,#0c,#04,#0c
+	db #11,#0c,#04,#0c,#11,#0c,#04,#0c
+	db #11,#0c,#09,#10,#15,#10,#09,#10
+	db #15,#10,#09,#10,#15,#10,#09,#10
+	db #15,#10,#09,#10,#15,#10,#09,#10
+	db #15,#10,#09,#10,#15,#10,#09,#10
+	db #40,#40
+	ld (hl),#fb
+	inc hl
+	ld (hl),#f3
+	inc hl
+	ld (hl),#f3
+	inc hl
+	ld (hl),#f7
+	ex de,hl
+	ld (hl),#b7
+	inc hl
+	ld (hl),#f3
+	inc hl
+	ld (hl),#7b
+	inc hl
+	ld (hl),#7b
+	ret
+	ld b,#f5
+.l97ea
+	in a,(c)
+	rra
+	jr nc,l97ea
+	ret
+;
+; #046d
+; ld a,#01
+; call #92a9 ; init
+;
+.play_music		; added by Megachur
+;
+	ld hl,play_music_tempo
+	dec (hl)
+	ret nz
+	ld (hl),#03
+	jp real_play_music
+
+play_music_tempo
+	db #03
+;
+.music_info
+	db "Cowboy Kidz (1990)(Byte Back)()",0
+	db "",0
+
+	read "music_end.asm"