//-------------------------------
// Snakes of Atari Island
//
// Author: Jakub "JKR" Krzak
// Katowice, April 2012
//-------------------------------

   ORG $7FFA
CMCdata:
   ins 'include\snake_8000_85AA.cmc'
   
   ORG $8784
CMCplayer:
   ins 'include\player_878A_8F4B.rep'

CMCbase equ CMCplayer + 6

CMCplayer_ctrl 			equ CMCbase + 3
CMCplayer_tact 			equ CMCbase + 6
CMCplayer_vol0 			equ CMCbase + 9
CMCplayer_vol1 			equ CMCbase + 10
CMCplayer_vol2 			equ CMCbase + 11
CMCplayer_songLine 		equ CMCbase + 13


CMC_Init .proc
   lda #$70
   ldx #<(CMCData + 6)
   ldy #>(CMCData + 6)
   jsr CMCplayer_ctrl
   rts
.endp

CMC_PlaySong .proc
; x - song index
   lda #$00
   jsr CMCplayer_ctrl
   rts
.endp

CMC_PlaySongFrom .proc
; x - line index
   lda #$10
   jsr CMCplayer_ctrl
   rts
.endp

/*
CMC_SetTempo .proc
; x - tempo
   lda #$30
   jsr CMCplayer_ctrl
   rts
.endp
*/

CMC_Stop .proc
   lda #$40
   jsr CMCplayer_ctrl
   rts
.endp

CMC_StopFadeOut .proc
   lda #$50
   jsr CMCplayer_ctrl
   rts
.endp

/*
CMC_Continue .proc
   lda #$60
   jsr CMCplayer_ctrl
   rts
.endp
*/

CMC_PlayNote .proc
; a - channel
; x - note
; y - instrument
   clc
   adc #$20
   jsr CMCplayer_ctrl
   rts
.endp