	opt	forwardrefmax
#include	coco\main_lib.txt
#include	coco\disk_lib.txt
#include	coco\cg3_display.txt
#include	coco\sid_mml.txt
#include	coco\cg3_font.txt


#memstart	28672	;starts at 7000
	org	$4000	;mem start?
start

; prep the irq for a simple mml player

	init_sidmml()
; channel 1-3 , instrument 1-8 , playback 1=once 2=loop  ,  playback speed 0-20 , #mmlmusic
	playsid_mml(#1,#5,#2,#2,#music1_1)
;	playsid_mml(#2,#2,#2,#2,#music1_2) only one channel for bomberman

	cls(#0,#1)
	print(#0,#1,#0, #mytext)
doloop

	lbra	doloop

;MML Programming info
; instrument change   I0 - I8
;INSTRUMENT	1=TRIANGLE
;		2=SAWTOOTH
;		3=TRI+SAW
;		4=PULSE
;		5=PULSE+TRI
;		6=PULSE+SAW
;		7=TRI+SAW+PULSE
;		8=NOISE
; this value gets shifted lslb 4 times into xxxx0000 on the sid

;all notes and commands must be capitals no spaces

; notes   C,D,E,F,G,A,B
; C# , C-   for sharp and flat
; volume  V0 - V15
; octave  O0-O7
; length  
;	L32 = 32nd note
;	L16 = 16th note
;	L8 = 1/8th
;	L4 = 1/4 note
;	L2 = 1/2 note
;	L1 = 1 note
;	L1. = 1.5 note

; pauses work the same

;	P32 = 32nd note
;	P16 = 16th note
;	P8 = 1/8th
;	P4 = 1/4 note
;	P2 = 1/2 note
;	P1 = 1 note
;	P1. = 1.5 note

; tempo  T0-T9





music1_1
	FCC	"O3L8BP8O4BO3BO4DP8F#A-AP8AP8A-P4.O3AP8O4AO3AO4C#P8E"
	FCC	"F#GP8F#GO3AA-AP8F#P8O4F#O3F#O4EP8E-EO3F#P8O4F#P8O3F#P4.F#P8O4F#"
	FCN	"O3F#O4EP8E-EO3F#P8O4F#P8O3F#P8A-B-"




mytext	fcn	'1 CHANNEL SID MML DEMO'


; end of program
cocoromend

	end	start







