music added:
Thanks to (Newcoleco)
still not sure if this is the correct method to do this however it works so im adding it Code
;COPS (Bad Boys) demo, ColecoVision version music by Daniel Bienvenu, 2010.
.org $8000
.dw $55AA,0,0,0,0,start
.dw 0,0,0,0,0,0,0,0,0,0
ret
jp nmi
.text "BAD BOYS/COPS!(DEMO)/2022"
nmi:
push hl
ld hl,$72FF
inc (hl)
pop hl
;;; UPDATE SOUND
call $1f61 ; play sounds
call $1ff4 ; update snd_addr with snd_areas
;;; READ VIDEO STATUS
in a,($bf)
retn
start:
;call $1f85 ; cv bios : mode_1
;call $1fd6 ; cv bios : turn off sound
;clear video ram
ld a,0
ld hl,0
ld de,$4000
call $1f82 ; cv bios : fill_vram
;color white (f) on blue (4)
ld a,$f4
ld hl,$2000
ld de,32
call $1f82 ; cv bios : fill_vram
call $1f7f ; cv bios : load_ascii
; print "helloworld!"
ld de,$1800
ld hl,helloworld
ld bc,14
call $1fdf ; cv bios :write_vram
ld de,$1820
ld hl,nextline
ld bc,27
call $1fdf ; cv bios :write_vram
ld de,$1840
ld hl,helloworld
ld bc,14
call $1fdf ; cv bios :write_vram
ld hl, snd_table
ld b,4
call $1fee
ld a,1
call playsound
ld a,2
call playsound
ld a,3
call playsound
ld a,4
call playsound
; screen on
ld bc,$01c2
ld bc,$01e2
call $1fd9 ; cv bios :write_register
helloworld:
.db "COPS! Bad Boys"
nextline:
.db "This is the Bad Boys (demo)"
; infinite loop
end:
jp end
.end
playsound:
ld b,a
jp $1ff1
snd_table:
.dw ch0,$702b ; = 1
.dw ch1,$702b+10 ; = 1
.dw ch2,$702b+20 ; = 1
.dw ch3,$702b+30 ; = 1
; DRUM + BASS (effect)
ch0:
.db $02,$53,$0a,$1a,$21
.db $02,$56,$0a,$25,$12
.db $2a
.db $02,$53,$0a,$1a,$21
.db $02,$55,$14,$1a,$21
.db $02,$53,$14,$1a,$32
.db $18
; BASS (frequencies)
ch3:
.db $c0,$44,$f0,$28
.db $c0,$5a,$f0,$28
.db $c0,$33,$f0,$14
.db $c0,$b5,$f0,$0a
.db $c0,$5a,$f0,$0a
.db $c0,$3c,$f0,$28
.db $d8
; Kinda melody support / extra percussion
ch1:
.db $42,$fc,$61,$0a,$18,$21
.db $6a
.db $42,$fc,$61,$0a,$18,$21
.db $42,$fc,$61,$0a,$18,$21
.db $74
.db $42,$fc,$61,$14,$18,$21
.db $42,$fc,$61,$0a,$18,$21
.db $6a
.db $42,$fc,$61,$0a,$18,$21
.db $42,$fc,$61,$0a,$18,$21
.db $74
.db $42,$fc,$61,$14,$18,$21
.db $42,$81,$62,$0a,$18,$21
.db $6a
.db $42,$53,$61,$0a,$18,$21
.db $42,$a7,$62,$0a,$18,$21
.db $74
.db $42,$53,$61,$14,$18,$21
.db $42,$fc,$61,$0a,$18,$21
.db $6a
.db $42,$fc,$61,$0a,$18,$21
.db $42,$fc,$61,$0a,$18,$21
.db $74
.db $42,$fc,$61,$14,$18,$21
.db $58
; Melody (voice)
ch2:
.db $82,$53,$41,$14,$1a,$32
.db $82,$fe,$40,$14,$1a,$32
.db $82,$53,$41,$14,$1a,$32
.db $b4
.db $82,$fe,$40,$0a,$1a,$22
.db $82,$fe,$40,$0a,$1a,$22
.db $82,$fe,$40,$0a,$1a,$22
.db $82,$fe,$40,$0a,$1a,$22
.db $82,$d6,$40,$14,$1a,$32
.db $b4
.db $82,$d6,$40,$0a,$1a,$22
.db $82,$d6,$40,$0a,$1a,$22
.db $82,$d6,$40,$0a,$1a,$22
.db $82,$d6,$40,$0a,$1a,$22
.db $82,$d6,$40,$14,$1a,$32
.db $82,$d6,$40,$0a,$1a,$22
.db $82,$be,$40,$0a,$1a,$22
.db $82,$fe,$40,$14,$1a,$32
.db $82,$fe,$40,$14,$1a,$32
.db $82,$fe,$40,$28,$1a,$43
.db $82,$53,$41,$14,$1a,$32
.db $82,$fe,$40,$14,$1a,$32
.db $82,$53,$41,$14,$1a,$32
.db $b4
.db $82,$fe,$40,$0a,$1a,$22
.db $82,$fe,$40,$0a,$1a,$22
.db $82,$fe,$40,$0a,$1a,$22
.db $82,$fe,$40,$0a,$1a,$22
.db $82,$d6,$40,$14,$1a,$32
.db $b4
.db $82,$d6,$40,$0a,$1a,$22
.db $82,$d6,$40,$0a,$1a,$22
.db $82,$d6,$40,$0a,$1a,$22
.db $82,$d6,$40,$0a,$1a,$22
.db $82,$d6,$40,$14,$1a,$32
.db $82,$8f,$40,$0a,$1a,$22
.db $82,$8f,$40,$0a,$1a,$22
.db $82,$7f,$40,$14,$1a,$32
.db $82,$7f,$40,$14,$1a,$32
.db $82,$7f,$40,$1e,$1a,$43
.db $82,$aa,$40,$0a,$1a,$22
.db $82,$aa,$40,$0a,$1a,$22
.db $82,$fe,$40,$0a,$1a,$22
.db $82,$fe,$40,$14,$1a,$32
.db $82,$fe,$40,$0a,$1a,$22
.db $82,$fe,$40,$14,$1a,$32
.db $82,$fe,$40,$0a,$1a,$22
.db $82,$d6,$40,$1e,$1a,$43
.db $b4,$b4
.db $82,$be,$40,$0a,$1a,$22
.db $82,$aa,$40,$0a,$1a,$22
.db $82,$fe,$40,$0a,$1a,$22
.db $82,$fe,$40,$14,$1a,$32
.db $82,$fe,$40,$0a,$1a,$22
.db $82,$fe,$40,$0a,$1a,$22
.db $82,$be,$40,$14,$1a,$32
.db $82,$d6,$40,$28,$1a,$43
.db $82,$be,$40,$1e,$1a,$43
.db $82,$be,$40,$0a,$1a,$22
.db $82,$aa,$40,$0a,$1a,$22
.db $82,$fe,$40,$0a,$1a,$22
.db $82,$fe,$40,$14,$1a,$32
.db $82,$fe,$40,$0a,$1a,$22
.db $82,$fe,$40,$14,$1a,$32
.db $82,$fe,$40,$0a,$1a,$22
.db $82,$d6,$40,$1e,$1a,$43
.db $b4,$b4
.db $82,$be,$40,$0a,$1a,$22
.db $82,$aa,$40,$0a,$1a,$22
.db $82,$fe,$40,$0a,$1a,$22
.db $82,$fe,$40,$14,$1a,$32
.db $82,$fe,$40,$0a,$1a,$22
.db $82,$fe,$40,$0a,$1a,$22
.db $82,$be,$40,$14,$1a,$32
.db $82,$d6,$40,$14,$1a,$32
.db $82,$aa,$40,$14,$1a,$32
.db $82,$aa,$40,$28,$1a,$43
.db $98
This post was edited by implite on Nov 27 2022 12:35pm