include "sndlib.h"
	include "tios.h"
	include "util.h"
	xdef _main
	xdef _comment
	xdef _ti89


;************** Start of Fargo program ***************

_main:
	lea		song(PC),a0		; Load song
	jsr		sndlib::PlaySong	; Call the player
	rts					; Exit

;*****************************************************


song		dc.l	$990000		; Tempo
		dc.b 	26,8,34,8,36,8,38,8,38,8,38,8,38,8,38,8,38,8,38,8,36,8,34,8,34,8
		dc.b 	34,8,34,8,34,8,34,8,34,8,33,8,31,8,31,8,31,8,31,8,31,8,33,8,34,8
		dc.b 	31,8,29,8,29,8,29,8,29,8,29,4,99,8,29,8,31,8,31,8,31,8,31,8,34,4
		dc.b 	34,4,38,2,34,4,99,4,29,8,29,8,29,8,29,8,29,4,31,8,36,8,34,2,34,8
		dc.b 	99,8,29,4,34,4,34,4,34,4,36,4,34,2,99,4,34,8,36,8,38,4,38,4,38,4
		dc.b 	39,4,38,2,38,4,36,4,34,3,34,8,34,8,34,8,33,8,31,8,29,2,29,4,29,4
		dc.b 	34,4,34,4,34,8,34,8,33,8,34,8,36,2,99,4,29,4,34,4,34,4,34,4,36,4
		dc.b 	34,2,99,4,34,8,36,8,38,4,38,4,38,4,39,4,38,2,38,4,36,4,34,3,34,8
		dc.b 	34,8,34,8,33,8,31,8,29,2,29,4,29,4,34,4,34,4,34,8,34,8,36,8,36,8
		dc.b 	34,2,34,4,99,4,31,8,31,8,31,8,31,8,31,4,31,8,33,8,34,3,31,8,31,4
		dc.b 	29,4,34,8,34,8,34,8,34,8,34,4,33,8,34,8,36,2,36,4,99,4,37,8,37,8
		dc.b 	37,8,37,8,37,4,36,8,37,8,40,3,36,8,35,4,32,4,37,4,37,4,37,4,39,4
		dc.b 	39,4,39,4,43,2,43,4,29,4,34,4,34,4,34,4,36,4,34,2,99,4,34,8,36,8
		dc.b 	38,4,38,4,38,4,39,4,38,2,38,4,36,4,34,3,34,8,34,8,34,8,33,8,31,8
		dc.b 	29,2,29,4,29,4,34,4,34,4,34,8,34,8,36,8,36,8,34,2,34,8,99,8,29,4
		dc.b 	31,4,34,4,36,4,39,4,41,1,41,4,99,4,255


_comment	dc.b	"Petit Papa Noël par Tino ROSSI",0

;*************** End of Fargo program ****************

	
	end