TRACKERS MB SRC EN EXAMPDAT
From MSX MUSIC WIKI
*q-,u+ db 0feh dw start dw einde dw start org 08000h start: ; pattern / position data's xpos: db 01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16 db 17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32 db 33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48 db 49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64 db 65,66,67,68,69,70,71,72,73,74,75,76,1,1,1,1 db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 db 1,1,1,1,1,1,1,1 ; last position xleng: db 0 ; user code # 1 xuser1: dw 157 ;1 xor 156 ; instrument data xmmvoc: db 060h,020h,011h,080h,0f3h,0f3h,024h,035h,00ah db 060h,020h,011h,080h,0f3h,0f3h,024h,035h,00ah db 060h,020h,011h,080h,0f3h,0f3h,024h,035h,00ah db 060h,020h,011h,080h,0f3h,0f3h,024h,035h,00ah db 060h,020h,011h,080h,0f3h,0f3h,024h,035h,00ah db 060h,020h,011h,080h,0f3h,0f3h,024h,035h,00ah db 060h,020h,011h,080h,0f3h,0f3h,024h,035h,00ah db 060h,020h,011h,080h,0f3h,0f3h,024h,035h,00ah db 060h,020h,011h,080h,0f3h,0f3h,024h,035h,00ah db 060h,020h,011h,080h,0f3h,0f3h,024h,035h,00ah db 060h,020h,011h,080h,0f3h,0f3h,024h,035h,00ah db 060h,020h,011h,080h,0f3h,0f3h,024h,035h,00ah db 060h,020h,011h,080h,0f3h,0f3h,024h,035h,00ah db 060h,020h,011h,080h,0f3h,0f3h,024h,035h,00ah db 060h,020h,011h,080h,0f3h,0f3h,024h,035h,00ah db 060h,020h,011h,080h,0f3h,0f3h,024h,035h,00ah ; instrument-numbers module xmmsti: db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 ; instrument-numbers pac + volumes xpasti: db 1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0 ; stereo settings xstpr: db 3,3,3,3,3,3,1,1,1,3 ; initial tempo xtempo: db 6 ; sustain mode xsust: db 00100000b ; naam song xnaam: db "MoonBlaster v1.4. Coding by R.Schrijvers" ; preferred chip xchip: db 2 ; initial instrument module xbegvm: db 1,1,1,1,1,1,1,1,1 ; initial instrument pac xbegvp: db 1,1,1,1,1,1,1,1,1 ; original data's pac xorgp1: db 060h,020h,011h,085h,0f3h,0f3h,024h,035h db 060h,020h,011h,085h,0f3h,0f3h,024h,035h db 060h,020h,011h,085h,0f3h,0f3h,024h,035h db 060h,020h,011h,085h,0f3h,0f3h,024h,035h db 060h,020h,011h,085h,0f3h,0f3h,024h,035h db 060h,020h,011h,085h,0f3h,0f3h,024h,035h ; instrument number's originals xorgnr: db 1,1,1,1,1,1 ;samplekit name xsmpkt: db "NONE " ; drum block xdrblk: db 010000b ;bassdrum db 01000b ;snare db 0100b ;tom db 010b ;cymbal db 01b ;hi-hat db 011000b ;bassdrum+snare db 010100b ;bassdrum+tom db 010010b ;bassdrum+cymbal db 010001b ;bassdrum+hi-hat db 01100b ;snaredrum+tom db 01010b ;snaredrum+cymbal db 01001b ;snaredrum+hi-hat db 0110b ;tom+cymbal db 0101b ;tom+hi-hat db 011b ;cymbal+hi-hat ; msx music drums volumes xdrvol: db 000h,042h,024h ; msx music drums frequencies xdrfrq: db 020h,005h,050h,005h,0c0h,001h db 020h,005h,050h,005h,0c0h,001h db 020h,005h,050h,005h,0c0h,001h ; user code # 2 (=1,but coded in another way) xuser2: dw 668 ;1 xor 669 ; reverberation xrever: db 0,0,0,0,0,0,0,0,0 ; repeat position xloop: db 0ffh einde: end ������������������������������������������������������������������������������������������������������������������������������
