Dave Lowe: AssemPro For Development Amiga Driver

home *** CD-ROM | disk | FTP | other *** search

/ Dave Lowe: AssemPro For Development Amiga Driver / Lowe_AssemProForDevelopmentAmigaDriver.adf / ikplus.asm < prev next >

Wrap

Assembly Source File | 1987-06-04 | 35.2 KB | 1,063 lines

;IK PLUS DATA SONG1: defl patt8e,patt2 defl patt1,patt1,patt1,patt1 defl patt1,patt1,patt1,patt1 defl patt1,patt1,patt1,patt1 defl patt1,patt1,patt1,patt1 defl patt1,patt1,patt1,patt1 defl patt1,patt1,patt1,patt1 defl patt4,patt4,patt4,patt4 defl patt4,patt4,patt4,patt4 defl patt6,patt6,patt6,patt6 defl patt6,patt6,patt6,patt6 defl patt4,patt4,patt4,patt4 defl patt6,patt6,patt6,patt6 defl patt4,patt4,patt4,patt4 defl patt9,patt9,patt9,patt9 defl patt10,patt10,patt10,patt10 defl patt6,patt6,patt6,patt6 defl patt10,patt10,patt9,patt9 defl patt10,patt10,patt6,patt6 defl patt10,patt10,patt9,patt9 defl patt10,patt10,patt6,patt6 defl patt4,patt4,patt6,patt6 defl patt4,patt4,patt6,patt6 defl patt8c defl patt4,patt4,patt6,patt6 defl patt4,patt4,patt6,patt6 defl patt8des defl patt8d,patt8d,patt8d defl patt10,patt20a,patt8d,patt8d defl patt8e,patt10,patt20a,patt8c defl patt8c,patt8c,patt8c,patt8c defl patt10,patt10,patt10,patt10 defl patt8e,patt8c,pattr,patt23 defl patt8c,patt8c,pattr,pattr defl patt25,patt8c,patt8c,patt25 defl patt25,patt8c,patt8c,patt8c,patt8c defl patt6,patt6,patt6,patt6 defl patt1,patt1,patt29,patt29 defl patt1,patt1,patt29,patt29 defl patt4,patt4,patt4,patt4 defl patt6,patt6,patt6,patt6 defl patt4,patt4,patt4,patt4 defl patt6,patt6,patt10,patt10 defl patt4,patt4,patt4,patt4 defl patt6,patt6,patt10,patt10 defl patt4,patt4,patt4,patt4 defl patt6,patt6,patt10,patt10 defl patt4,patt4,patt4,patt4 defl patt6,patt6,patt10,patt10 defl patt4,patt4,patt4,patt4 defl patt6,patt6,patt10,patt10 defl patt4,patt4,patt4,patt4 defl patt6,patt6,patt10,patt10 defl patt8ff defl end_song align.w song2: defl pattr,pattr,patt2o,patt2ao defl patt2o,patt2ao, defl patt2o,patt2at defl patt2o defl patt5,patt8d defl patt5,pattrfill1 defl patt7,patt8e defl pattpatt7,patt8d defl patt5,patt5,patt7,patt7 defl patt11,pattrfill1 defl patt12,patt8d defl patt13,patt8e defl patt14,patt14,patt14,patt14 defl patt15,pattr defl patt16,pattr defl patt15,pattr defl patt17,patt8d defl patt15,pattr,patt16 defl pattr,patt15,patt17,patt17 defl patt18,patt19,patt18,patt19 defl pattrfill1 defl patt18a,patt19a,patt18a,patt19a defl patt8c,patt8c,patt8c,patt8c defl patt8f,patt20 defl patt8c,patt8c,patt8c defl pattr,patt20 defl pattr,patt21,patt21 defl patt21,patt21,patt21 defl patt8d,patt8d defl patt20,pattr,pattr,pattr defl patt20,pattr,patt8d defl patt22,patt24,pattr,pattr defl patt8d,patt20,pattrfill1 defl pattr,pattr,pattr,patt8d defl patt26,pattr,pattr,pattr,pattr defl patt27,patt8d defl patt27,patt8d defl patt28,pattr,patt2 defl patt31,pattr,patt30 defl patt32,patt32 defl patt33,patt33,patt34 defl patt33,patt33,patt34 defl patt32,patt32 defl pattr_MOD defl end_song align.w Song3: defl patt3,patt3x1,patt2odd,patt3x2 defl patt3x10 defl patt3x10 defl patt3x1,patt8 defl patt3x10 defl patt3x10 defl patt3x3 defl patt8 defl patt3x10 defl patt3x4 defl patt8,patt8 defl patt3x10 defl patt3x10 defl patt3x10 defl patt3x3 defl patt8 defl patt3x5 defl patt3x2 defl patt8 defl patt3x10 defl patt8 defl patt3x3 defl patt3x5 defl patt8 defl patt3x5 defl patt3x4 defl pattr,pattr,pattr defl patt3x4 defl pattr,pattr defl patt3,patt3x4 defl patt3x defl patt3x defl patt3x210,patt3x10 defl patt8 defl patt3x,patt3x4 defl patt3x4 defl patt8 defl patt3x10 defl patt3x10 defl patt3x3 defl patt8 defl patt3x10 defl patt3x10 defl patt3x4 defl pattr defb end_song align.w start_patt: defb 254,0 start_song: defl $ffffffff ndata: patt1: ;main bass defb m,new_env defl bass_env defw bb01,sq,bb01,sq,bb01,sq,bb01,sq defb m,new_env defl off_beat defb m,pbend,down,75 defw c01,1 defw eb03,q defw m,pbendoff defw m,new_env defl bass_env defw eb01,sq,f01,q,fo1,sq defw ab01,q defb m,new_env defl off_beat defb m,pbend,down,75 defw c01,1 defw eb03,q defb m,pbendoff defb m,new_env defl bass_env defw ab01,sq,ab01,sq defb m,end_patt patt2o: :tune 1 defb m,new_env defl harm_env :sharp_env defw db05,q,bbo4,cr,bb04,cr*3 defw eb05,q,db05,cr*2 defw db05,sq,db05,sq,db05,sq,db05,sq defw dbo5,q,bb04,cr,bb04,cr+q defw bb04,q,db05,q,eb05,q,eb05,q,db05,cr*3 defw db05,q,bb04,cr,bb04,cr*2+q defw eb05,q,db05,q,eb05,q,db05,sq defw ab04,cr+sq defw bb04,sq,bb04,sq,bb04,sq,bb04,sq defb m,end_patt align.w align.w patt2odd: ;tune 1 defb m,new_env defl sharp_env defw 15,q,b,cr,8,cr*3 defw 15,q,8,cr*2 defw 12,sq,12,sq,8,sq,1,sq defw 15,q,1,cr,1,cr+q defw 8,q,5,q,12,q,16,q,14,cr*3 defw 15,q,2,cr,1,cr*2+q defw 1'2,q,1,q,5,q,14,sq defw 1,cr+sq defw 5,sq,12,sq,16,sq,12,sq defb m,end_patt align.w patt_stop: defb 254,new_sound patt2: ;tune 1 defb m,new_env defl harm_env ;sharp_env defb m,modon,1,1 ;1,1 defw 1,1,2 ;1,1,2 defw gb05,q,eb05,cr,eb05,cr*3 defw ab05,q,gb05,cr*2 defw gb05,sq,gb05,sq,gb05,sq,gb05,sq defw gb05,q,eb05,cr,eb05,cr+q defw eb05,q,gb05,q,ab05,q,ab05,q,gb05,cr*3 defw gb05,q,eb05,cr,eb05,cr*2+q defw ab05,q,gb05,q,ab05,q,gb05,sq defw db05,cr+sq defb m,new_env defl rota defb m,pbend,down,20 defw c01,1 defw eb04,sq,eb04,sq,eb04,sq,eb04,sq defb m,pbendoff defb m,end_patt align.w align.w patt2fill: ;tune 1 defb m,new_env defl sharp_env defb m,modon,1,1 defw 3,3,2 defw gb04,q,eb04,cr,eb04,cr*3 defw ab04,q,gb04,cr*2 defw gb04,sq,gb04,sq,gb04,sq,gb04,sq defw gb04,q,eb04,cr,eb04,cr+q+cr defb m,end_patt patt2b: ;tune 1 defb m,new_env defl sharp_env defb m,modon,1,1 defw 1,1,2 defw gb05,q,eb05,cr,eb05,cr*3 defw ab05,q,gb05,cr*2 defw gb05,sq,gb05,sq,gb05,sq,gb05,sq defw gb05,q,ebo5,cr,eb05,cr+q defw eb05,q,gb05,q,ab05,q,ab05,q,gb05,cr*3 defw gb05,q,eb05,cr,eb05,cr*2+q defw ab05,q,gb05,q,ab05,q,gb05,sq defw gb05,cr+sq defw eb05,sq,eb05,sq,eb05,sq,eb05,sq defb m,end_patt align.w patt2ao: defw db05,q,bb04,cr,bb04,cr*2+q defw rest,cr*4 defb m,end_patt align.w patt2a: defw gb04,4,db05,q-4,eb04,4,bb04,cr-4 defw eb04,4,bb04,cr*2+q-4 defw rest,cr*4 defb m,end_patt pattstrot: defb m,new_env defl rota defb m,pbend,down,20 defw c01,1 defw db05,q,bb04,cr,bb04,cr*2+q defw c01,1 defw db05,q,bb04,cr,bb04,cr*2+q defb m,end_patt patt2at: defw db05,q,bb04,cr,bb04,cr*2+q defb m,new_env defl rota defb m,pbend,down,20 defw c01,1 defw bb04,sq,bb04,sq,bb04,sq,bb04,sq,ab04,sq defw ab04,sq,ab04,sq,ab04,sq,f04,sq,f04,sq defw f04,sq,f04,sq,eb04,sq,eb04,sq defw eb04,sq,eb04,sq defb m,pbendoff defb m,end_patt align.w patt3: ;drums(pah!!) defb m,new_env defl percenv defw 1,sq defw 1,sq defw 15,sq defw 1,sq defw 15,sq defw 15,sq defw 1,sq defw 1,sq defw 8,sq defw 15,sq defw 1,sq defw 1,sq defw 15,sq defw 15,sq defw 1,sq defw 12,sq defb m,end_patt patt3x10: defw 1,sq,1,sq,15,sq,1,sq,15,sq,15,sq,1,sq,1 defw sq,8,sq,15,sq,1,sq,1,sq,15,sq,15,sq,1,sq,12,sq patt3x9: defw 1,sq,1,sq,15,sq,1,sq,15,sq,15,sq,1,sq,1 defw sq,8,sq,15,sq,1,sq,1,sq,15,sq,15,sq,1,sq,12,sq patt3x8: defw 1,sq,1,sq,15,sq,1,sq,15,sq,15,sq,1,sq,1 defw sq,8,sq,15,sq,1,sq,1,sq,15,sq,15,sq,1,sq,12,sq patt3x7: defw 1,sq,1,sq,15,sq,1,sq,15,sq,15,sq,1,sq,1 defw sq,8,sq,15,sq,1,sq,1,sq,15,sq,15,sq,1,sq,12,sq patt3x6: defw 1,sq,1,sq,15,sq,1,sq,15,sq,15,sq,1,sq,1 defw sq,8,sq,15,sq,1,sq,1,sq,15,sq,15,sq,1,sq,12,sq patt3x5: defw 1,sq,1,sq,15,sq,1,sq,15,sq,15,sq,1,sq,1 defw sq,8,sq,15,sq,1,sq,1,sq,15,sq,15,sq,1,sq,12,sq patt3x4: defw 1,sq,1,sq,15,sq,1,sq,15,sq,15,sq,1,sq,1 defw sq,8,sq,15,sq,1,sq,1,sq,15,sq,15,sq,1,sq,12,sq patt3x3: defw 1,sq,1,sq,15,sq,1,sq,15,sq,15,sq,1,sq,1 defw sq,8,sq,15,sq,1,sq,1,sq,15,sq,15,sq,1,sq,12,sq patt3x2: defw 1,sq,1,sq,15,sq,1,sq,15,sq,15,sq,1,sq,1 defw sq,8,sq,15,sq,1,sq,1,sq,15,sq,15,sq,1,sq,12,sq patt2x1: defw 1,sq,1,sq,15,sq,1,sq,15,sq,15,sq,1,sq,1 defw sq,8,sq,15,sq,1,sq,1,sq,15,sq,15,sq,1,sq,12,sq defb m,end_patt patt3x defw 1,sq defw 1,sq defw 15,sq defw 1,sq defw 15,sq defw 15,sq defw 1,sq defw 1,sq defw 8,sq defw 15,sq defw 1,sq defw 1,sq defw 15,sq defw 15,sq defw 1,sq defw 12,sq defb m,end_patt pattr defw rest,cr*4 ;rest 1 bar defb m,end_patt align.w pattr_mod: defb m,modoff defw rest,cr*4 ;rest 1 bar defb m,end_patt align.w pattra: defw rest,cr*4-2 ;rest 1 bar-2 defb m,end_patt align.w pattrb: defw rest,2 ;rest-2 defb m,end_patt align.w patt8: ;drum phil defb m,new_env defl percenv defw 8,sq,8,sq,8,sq,8,sq defw 8,sq,8,sq,8,sq,8,sq defw 8,sq,8,sq,8,sq,8,sq defw 8,sq,8,sq,8,sq,8,sq defb m,end_patt align.W patt8C: ;congas defb m,end_env defl congae defb m,pbend,down,20 defw c01,1 defw bb03,q,bb03,q,f02,q,f02,sq,bb03,q, defw bb03,q,bb03,sq,fo2,q,f02,sq,f02,sq defw bb03,q,bb03,sq,bb03,sq,f02,q defw f02,sq,bb03,q,bb03,sq defw bb03,sq,bb03,sq,f02,sq,f02,sq defw bb03,sq defb m,pbendoff defw f02,sq defb m,end_patt align.w patt8e: ;rota-toms defb m,new_env ;2 bars defl rota defb m,pbend,down,20 defw c01,1 defw bb04,q,ab04,cr,fo4,cr,eb04,cr,bb03,q, defw bb04,sq,bb04,sq,bb04,sq,bb04,sq,ab04,sq defw ab04,sq,ab04,sq,ab04,sq,f04,sq,f04,sq defw f04,sq,f04,sq,eb04,sq,eb04,sq defw eb04,sq,eb04,sq defb m,pbendoff defb m,end_patt patt8des: ;rota-toms defb m,new_env ; 2 bars defl long_sus defb m,modon,1,1 defw 100,100,90 defb m,pbend,down,10 defw c01,1 defw go4,sb+sb defb m,modoff defb m,pbendoff defb m,end_patt align.w pattrfill1: ;rota-toms defb m,new_env ;2 bars defl rota defb m,pbend,down,20 defw c01,1 defw bb04,sq,bb04,sq,bb04,sq,bb04,sq defw ab04,q,ab04,q,f04,q,f04,q,ab04,cr defw bb04,sq,bb04,sq,bb04,sq,bb04,sq,ab04,sq defw ab04,sq,ab04,sq,ab04,sq,f04,sq,f04,sq defw f04,sq,f04,sq,eb04,sq,eb04,sq defw eb04,sq,eb04,sq defb m,pbendoff defb m,end_patt patt8f: ;rota-toms defb m,new_env ; 1 bar defl rota defb m,pbend,down,20 defw c01,1 defw bb04,sq,bb04,sq,bb04,sq,bb04,sq,ab04,sq defw ab04,sq,ab04,sq,ab04,sq,f04,sq,f04,sq defw f04,sq,f04,sq,eb04,sq,eb04,sq defw eb04,sq,eb04,sq defb m,pbendoff defb m,end_patt align.w patt8F: ;rota-toms defb m,new_env ; 1 bar defl rota defb m,pbend,down,20 defw c01,1 defw bb04,sq,bb04,sq,bb04,sq,bb04,sq,ab04,sq defw ab04,sq,ab04,sq,ab04,sq,f04,sq,f04,sq defw f04,sq,f04,sq,eb04,sq,eb04,sq defw eb04,sq,eb04,sq defb m,pbendoff defb m,end_patt align.w patt8d: ;rota toms defb m,new_env ; 2 bars defl rota defb m,pbend,down,20 defw c01,1 defw bb04,cr+Q<f04,cr,eb04,cr,bb03,q defw bb04,sq,bb04,sq,bb04,sq,bb04,sq,ab04,sq defw ab04,sq,ab04,sq,ab03,q,f04,sq defw f04,sq,f04,sq,eb04,sq,eb04,sq defw eb04,sq,eb04,sq defb m,pbendoff defb m,end_patt align.w patt4: ;c bass defb m,new_env defl bass_env defw c02,sq,c02,sq,c02,sq,c02,sq defb m,new_env defl off_beat defb m,pbend,down,75 defw c01,1 defw eb03,q defb m,pbendoff defb m,new_env defl bass_env defw f01,sq,g01,q,g01,sq defw bb01,q defb m,new_env defl off_beat defb m,pbend,down,75 defw c01,1 defw eb03,q defb m,pbendoff defb m,end_env defl bass_env defw bb01,sq,bb01,sq defb m,end_patt align.w patt9: ; d bass defb m,new_env defl bass_env defw do2,sq,do2,sq,do2,sq,do2,sq defb m,new_env defl off_beat defb m,pbend,down,75 defw c01,1 defw eb03,q defb m,pbendoff defb m,new_env defl bass_evn defw go1,sq,a01,q,a01,sq defw c02,q defb m,new_env defl off_beat defb m,pbend,down,75 defw c01,1 defw eb03,q defb m,pbendoff defb m,new_env defl bass_env defw c01,sq,c01,sq defb m,end_patt align.w patt10: ; f bass defb m,new_env defl bass_env defw f02,sq,f02,sq,f02,sq,f02,sq defb m,new_env defl off_beat defb m,pbend,down,75 defw c01,1 defw eb03,q defb m,pbendoff defb m,new_env defl bass_env defw bb01,sq,c02,q,c02,sq defw eb02,q defb m,new_env defl off-beat defb m,pbend,down,75 defw c01,1 defw eb03,q defb m,pbendoff defb m,new_env defl bass_env defw eb02,sq,eb02,sq defb m,end_patt align.w patt6: ;g bass defb m,new_env defl short_env defw g02,sq,g02,sq,g02,sq,g02,sq defb m,new_env defl off_beat defb m,pbend,down,75 defw c01,1 defw eb03,q defb m,pbendoff defb m,new_env defl bass_env defw c02,sq,d02,q,d02,sq defw f02,q defb m,new_env defl off_beat depb m,pbend,down,75 defw c01,1 defw eb03,q defb m,pbendoff defb m,new_env defl bass_env defw f02,sq,f02,sq defb m,end_patt align.w patt5: ; tune 2 defb m,new_env defl blip_env defb m,modon,0,0 defw 1,1,1 ;1,1,2 defw bb04,sq,c05,sq,c05,q,c05,q defw c05,sq,bb04,sq,c05,q,c05,sq,bb04,sq defw c05,sq,eb05,sq,c05,q defw bb04,sq,c05,sq,c05,q,c05,q defw bb04,sq,c05,sq defw g04,min defb m,end_patt align.w patt7: ; tune 3 defb m,new_env defl blip_env defw f05,sq,g05,sq,g05,q,g05,q defw g05,sq,f05,sq,g05,sq,bb05,sq defw g05,sq,f05,sq,g05,q,f05,q defw d05,sq,f05,sq,d05,sq,c05,sq defw d05,q,c05,q,d05,min defb m,end_patt align.w patt11: defb m,new_env defl dist_env defw c04,dq,bb03,dq,c04,cr defb m,new_env defl short_env defw f05,sq,eb05,sq,f05,sq,f05,sq,eb05,q defb m,new_env defl dist_env defw c04,dq,bb03,dq,c04,cr defb m,new_env defl short_env defw bb05,sq,bb05,sq,c06,sq,c06,sq,bb05,q defb m,end_patt align.w patt12: defb m,new_env defl dist_env defw d04,dq,c04,dq,d04,cr defb m,new_env defl short_env defw f05,sq.g05,sq,f05,sq,g05,sq defw f05,sq,g05,sq defb m,new_env defl dist_env defw d04,dq,c04,dq,d04,dq defb m,new_env defl short_env defw a03,sq,c04,sq,a03,sq,c04,sq defw d04,sq,d04,sq,d04,sq defb m,end_patt align.w patt13: defb m,new_env defl dist_env defw f04,q,eb04,sq,f04,q,eb04,sq,f04,dq defb m,new_env defl short_env defw f04,sq,ab04,sq,f04,sq,bb04,sq,ab04,sq defw bb04,sq,ab04.sq defb m,new_env defl dist_env defw f04,q,eb04,sq,f04,q,eb04,sq,f04,cr defb m,new_env defl short_env defw f04,sq,eb04,sq,f04,sq,f04.,sq defw eb04,sq,c04,sq defb m,end_patt align.w patt14: defb m,new_env defl dist_env defw g04,q,f04,sq,g04,q,f04,sq,g04,cr defb m,new_env defl short_env defw g04,sq,f04,sq,g04,sq,g04,sq defw f04,sq,g04,sq defb m,end_patt align.w patt15: defb m,new_env defl long_sus3 defb m,modon,1,1 ;1,1 defb 3,3,2 ;2,2,2 defw c05,sq,f05,sq,d05,sq,bb04,sq defw d05,sq,c05,sq,d05,sq,c05,sq defw d05,sq,bb04,sq defb m,modon,1,1 ;1,1 defw 4,4,4 ;3,3,6 defw c05,dcr defb m,modon,1,1 defw 1,1,2 defb m,end_patt align.w patt16: defb m,new_env defl long_sus3 defb m,modon,1,1 defw 2,2,2 ;2,2,2 defw a04,sq,d05,sq,c05,sq,a04,sq defw c05,sq,a04,sq,g04,sq,f04,sq defw g04,sq,f04,sq defb m,modon,1,1 defw 4,4,4 ;3,3,6 defw d04,dcr defb m,modon,1,1 defw 2,2,2 ;2,2,2 defb m,end_patt align.w patt17: defb m,new_env defl long_sus3 defw d05,cr,d05,sq,f05,sq,d05,sq,c05,sq defw d05,cr,d05,sq,f05,sq,d05,sq,c05,sq defb m,end_patt align.w patt18: defb m,new_env defl hot_env defw eb04,sq,c04,sq,eb04,sq,c04,sq defb m,new_env defl long_sus2 defb m,modon,1,1 defw 4,4,2 defw eb04,q defw f04,q,g04,q,bb04,q,g04,q,f04,q defb m,new_env defl hot_env defb m,modoff defw eb04,sq,c04,sq,eb04,sq,c04,sq defb m,new_env defl long_sus2 defb m,modon,1,1 defw 4,4,2 defw eb04,q defw f04,q,g04,q,f04,q,eb04,q,c04,q defb m,modoff defb m,end_patt align.w patt19: defb m,new_env defl hot_env ;long_sus defw d04,sq,f04,sq,d04,sq,f04,sq defb 254,new_env defl long_sus2 defb m,modon,1,1 defw 4,4,2 defw d04,q defw f04,q,g04,q,f04,q,d04,q,f04,q defb m,new_env defl hot_env defb m,modoff defw d04,sq,f04,sq,d04,sq,f04,sq defb m,new_env defl long_sus2 defb m,modon,1,1 defw 4,4,2 defw d04,q defw f04,q,d04,q,c04,q,bb03,q,g03,q defb m,modoff defb m,end_patt align.w patt18a: defb m,new_env defl hot_env defw eb05,sq,c05,sq,eb05,sq,c05,sq defb m,new_env defl long_sus2 defb m,modon,1,1 defw 2,2,1 defw eb05,q defw f05,q,g05,q,bb05,q,g05,q,f05,q defb m,new_env defl hot_env defb m,modoff defw eb05,sq,c05,sq,eb05,sq,c05,sq defb m,new_env defl long_sus2 defb m,modon,1,1 defw 2,2,1 defw eb05,q defw f05,q,g05,q,f05,q,eb05,q,c05,q defb m,modoff defb m.end_patt align.w patt19a: defb m,new_env defl hot_env ;long_sus defw d05,sq,f05,sq,d05,sq,f05,sq defb m,new_env defl long_sus2 defb m,modon,1,1 defw 2,2,1 defw d05,q defw f05,q,g05,q,f05,q,d05,q,f05,q defw m,new_env defl hot_env defb m,modoff defw d05,sq,f05,sq,d05,sq,f05,sq defb m,new_env defl long_sus2 defb m,modon,1,1 defw 2,2,1 defw d05,q defw f05,q,d05,q,c05,q,bb04,q defb m,modoff defw g04,q defb m,end_patt align.w patt20: defb m,new_env defl harm_env ;sharp_env defw c05,sq,c05,sq,c05,sq,c05,sq,bb04,q defw bb04,q,g04,q,g04,q,bb04,cr defb m,end_patt align.w patt20a: defb m,new_env defl harm_env ;sharp_env defw g05,sq,g05,sq,g05,sq,g05,sq,f05,q defw f05,q,d05,q,d05,q,f05,cr defb m.end_patt align.w patt21: defb m,new_env defl piano_env defw rest,sq,bb04,dq defw bb04,q,eb04,sq,f04,dq defw ab04,q,bb04,sq,bb04,sq,rest,q defb m,end_patt align.W patt22: ;piano defb m,new_env defl piano_env defw e04,q,f04,q,a04,q,b04,q defw e05,q,f05,q,a05,q,b05,q defb m,end_patt align.w patt23: ;main bass defb m.new_env defl long_sus defb m,modon,1,1 ;1,1 defw 10,10,4 ' ;10,10,2 defw e02,sb+sb+sb ;e03 defb m,end_patt align.w patt24: ;flutey bits defb m,new_env defl flute_env defb m,nodon,2,2 ;1,1 defw 4,4,q ;2,2 defw e04,dcr,d04,q,e04,dm,d04,cr defw g04,cr,a04,cr defw e04,dcr,d04,q,e04,min defb m,end_patt align.w patt25: ;bass bends defb m,new_env defl long_sus2 defb m,pbend,up,47 defw e03,dcr defw e02,min+dcr defb m,pbend,down,47 defw e02,0 defw e03,sb+q defb m,end_patt align.w patt26: ;main bass defb m,new_env defl short_env defw d06,q,b05,q,a05,q,f05,q defw e05,q,b05,q,a04,q,f04,q,e04,sq defw a06,dcr-sq,g06,q,a06,dm defw g06,cr,a06,cr,b06,cr defw a06,q,d06,q,e06,dm defb m,end_patt align.w patt27: defb m,new_env defl short_env defw d06,sq,f06,sq,d06,sq,f06,sq,d06,q defw f06,q,g06,q,f06,q,d06,q,f06,q defw d06,sq,f06,sq,d06,sq,f06,sq,d06,q defw f06,q,d06,q,c06,q,bb05,q,g05,q defb m,end_patt align.w patt28: defb m,new_env defl short_env defw db05,q,bb04,cr,bb04,dcr,rest,cr defb m,end_patt align.w patt29: ;main bass defb m,new_env defl bass_env defw eb02,sq,eb02,sq,eb02,sq,eb02,sq defb m,new_env defl off_beat defb m,pbend,down,75 defw c01,1 defw eb03,q defb m,pbendoff defb m,new_env defl bass_env defw ab01,sq,bb01,q,bb01,sq defw db02,q defb m,new_env defl off_beat defb m,pbend,down,75 defw c01,1 defw eb03,q defb m,pbendoff defb m,new_env defl bass_env defw db02,sq,db02,sq defb m,end_patt align.w patt30: ;tune 1 defb m,new_env defl harm_env ;short env defw eb05,q,c05,cr,c05,cr,rest,cr*2 defw f05,q,eb05,cr,rest,cr defw eb05,sq,eb05,sq,eb05,sq,eb05,sq defw eb05,q,c05,cr,c05,cr,rest,q defw c05,q,eb05,q,f05,q,f05,q,eb05,cr defw rest,cr*2 defw eb05,q,c05,cr,c05,cr,rest,cr+q defw f05,q,eb05,q,f05,q,eb05,sq defw bb04,cr+sq defw c05,sq,c05,sq,c05,sq,c05,sq defb m,end_patt align.w patt31: defw eb05,q,c05,cr,c05,dcr,rest,cr defb m.end_patt align.w patt32: defb m,new_env defl long_sus3 defb m,modon,1,1 defw 6,6,30 defb m,pbend,up,8 defw eb04,0 defw bb03,dcr,q,rest,cr,bb03,sq,c04,dq defw rest,min defb m,pbend,up,8 defw eb04,0 defw bb03,dq,rest,sq,f04,dq,rest,sq defb m,pbend,up,8 defw eb04,0 defw bb03,dcr,d04,q,rest,cr,f04,sq,eb04,dq defw rest,min,bb03,dq,rest,sq,c04,dq,rest,sq defb m,pbend,up,8 defw eb04,0 defw bb03,dcr,d04,q,rest,cr,bb03,sq,c04,dq defw rest,cr,c04,sq,d04,dq,rest,cr defw c04,q,bb03,min defb m,pbend,up,8 defw eb04,0 defw bb03,min defb m,pbend,up,6 defw ab04,0 defw eb04,min defb m,pbend,up,2 defw bb04,0 defw ab04,min+q defb m,end_patt align.w patt33: defw rest,cr defb m,pbend,up,8 defw eb04,0 defw bb03,cr,d04,cr,bb03,q,g03,q defw bb03,q,c04,q,rest,cr defw d04,q,eb04,q,f04,q,g04,sq,c04,sq defb m.end_patt align.w patt34: defw rest,cr defb m,pbend,up,7 defw g04,0 defw d04,cr,f04,cr,eb04,q,d04,q defw rest,cr defb m.pbend,up,8 defw f04,0 defw c04,cr,eb04,cr,bb03,q,c04,cr defw eb04,cr,f04,cr+dcr defb m,pbend,up,4 defw ab04,0 defw f04,min defb m,pbend,up,2 defw bb04,0 defw ab04,cr defw c05,q,g04,q defb m,end_patt align.w