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 $10000 ; Tempo dc.b 0,8,1,8,2,8,3,8,4,8,5,8,6,8,7,8,8,8,9,8,10,8,11,8,12,8 dc.b 13,8,14,8,15,8,16,8,17,8,18,8,19,8,20,8,21,8,22,8,23,8,24,8 dc.b 25,8,26,8,27,8,28,8,29,8,30,8,31,8,32,8,33,8,34,8,35,8,36,8 dc.b 37,8,38,8,39,8,40,8,41,8,42,8,43,8,44,8,45,8,46,8,47,8,48,8 dc.b 49,8,50,8,51,8,52,8,53,8,54,8,55,8,56,8,57,8,58,8,59,8,60,8 dc.b 61,8,62,8,63,8,64,8,65,8,66,8,67,8,68,8,69,8,70,8,71,8,255 _comment dc.b "Cromatic Scale - §Steven Filoso§",0 ;*************** End of Fargo program **************** end