#define _POSIX_SOURCE 1 /* Song length: 94 seconds (89 seconds of loop). */
/* This source was optimized with Findbest of the Bisqwit's Midtools pack */
/*/echo "$0 is not an executable but a C source file. Compiling it now..."
n=`basename $0`;gcc -O2 -Wall -W -pedantic -o /tmp/$n "$0";/tmp/$n $*;exit; */
static char*Title="NES-S3M player for /dev/audio (8-bit, µ-law)\n"
"This file has been compiled from a file created with intgen.";
typedef unsigned char by;char*A,*In,*tmp="nesmusa.$$$",*a0;
static by*z=(by*)"1v;FLTehJaWk1``f2:dwP2J3l>XEAKRn<eAJSl>YECkoF=LdSRWk@ioFXve"
"SdWkHtoF@we3iWkPwoFhwe3vWkPwoFhwe3vWkPwoFhwe3vWkPwoFhwe3vWkPwoFhwe3vWkPwoFhw"
"e3vWkPwoFhwe3vWkPwoFhwe3vWkPwoFhwe3vWkPwoFhwe3vWkPwoFhwe3vWkPwoFhwe3vWkPwoFh"
"we3vWkPwoFhwe3vWkPwoFhwe3vWkPwoFhwe3vWkPwoFhwe3vWkPwoFhwe3vWkPwoFhwe3vWkPwoF"
"hwe3vWkPwoFhwe3vWkPwoFhwe3vWkPw_nLPwLGn30BZWk=`aF=ve3]WkABYlSu0PLjoV1TdCQWk@"
"ioV\\LFuHG08_veO0?kLhoFLve?9=kPwoFuweCW?kdLafwCd_0=kPjoFoveSaDkl_bF=ve3]WkDb"
"aFuYdCQWk@ioFSTd3vWklwGmCZXLAnYwRUNZHow9nCPBZWMGZVLuXjAmgu2\\H_0=nWPRU:d<k9n"
"Cd_HGaveOP2OGfVTuhjamgu2\\H_0=fve?0=k@Aaf?LdC>]JGn30BeWk>AafN8dCPRHwnI\\RUP:"
"3k1n3d?HG`veOP2NGdVHu`jQmgu2LDkaV0@^uKG0:n[dRUL@H_0=dve_J=kb@afALd[=2k<X0ngu"
"X[H_]Vn1jgUPvKGj<nYgRu2hH_2fXVd?0<Lwn3PRU:XHO1UnCPRUVdHw8:n1gdULtK_Dg]Vd?0\\"
"Bwn;PSU:tK?:wnS\\RU`wK_?wnaSXU`wK_vwnYgSUNZHow9nCPRU@uK_KwnaH^UjCI_2wnQbgU>i"
"H_vLnY`gUXtK_AFn1wgUjwK_vFnIYRUw_HG1:YvMuXjAmSZ?Mwn;@RU2LHw1:nY`Bd_HGaVRu<ko"
"V1:TuhjamS[?Own;@RU2LhjoV0Ld3==kV@aFILZuHG08mveK<=kJQ`F1:RuK_A:n1ZDd?HG`VPu0"
"koV1:Hu`jQm3[?Nwn;@ad?k10Ingu0XHgb:nA1QU2L`joVZMd;3=k>AafN8dCP2HwnSfRUNjI?Xw"
"n1jguXCH_v:n;PSU:hRjaV0@@uKG0:nYPRU=lIG1:niaBY?k1@Zlgu2hH_2fnEORu<XH?VuUVd?0"
"\\FAn3@B_Wkl_`F1:BuwiaV0@vtgjaV0@Nu3jaV0@0ucjaV0@Huwiicc__GAn3@a_Wk@9aV2Ld3="
"C@APRd3=?khi`F@we3LMk1X`FMAeCW:knDaV2LBuwjYM<[8MAZveOP2OGdRN=]::mgu2L`jIMLZ8"
"LAXveOPRMGYR@=U:jlgu2LTjilcY_CAn3@aYWktMaV0Ld[V=k\\QbFuMdc8Gk:`aV1LdCQWk@ioV"
"\\Ld3vw0wn3PBZ[LOYfBe]joV1BBe]J;mNZgLWnWPRU:d@jRl=Y;BK\\n8eAJSl?YGBwn3PRU:@H"
"g0>niQD[;NOdfHeaJSm>[ENWdvHugjJmmZ[MK[nNeeJKmoZgMwnYPRu0XH?LtnQ2]UoXHG0:nm_R"
"u0XH?""=LnO0]UWAHg0:nA^QU:@UjjlmY[CK_nFeUJkloYgCwn3PRU@aK?:LnoRRUYAI?t:`fPU1"
"k2n>dEHK`nPu1k3nwd[IOcf^eEKKnndeIWcv^u;kBn]d;IKbn\\e9KCn_dGIWbv\\E:KLnXdAI_b"
"F]U:kLnZdMI[bN]u:kMn[dOIcb^]uK?:kbveC>]JOmfZUMK[nNeeJKmvZuMkoV0Ld3VVkl_`V1Dd"
"c3IktMafjMd3I:kPRoFhieS2:k;Pbfg8dO0=k8c`F=XFUUjjlmYeCK_nFeUjkloYWk1@aFXhe3=:"
"kKAaflXd3V=HO`fPU1K3n>dEHK`vPu1kWnmd[IOcn^eEKKnndgIWcv]U9kBn]dEIKbn\\e9kCn_d"
"GIWb>]E:KLnXdCI_bF]U:KMnZdMI[bV]u:kMn[dIIcbve3]UIwn9SBe[JOmfZeMK[nNeeJWmvZuK"
"G0=mfd?08kUP`F1TZuIG0Am>e?P_Jwcfd?0\\Iwhfd?08TKhn`uK_DCn]QRuUPDKKn^uEAH?""=A"
"n3PRUIDIO0@cv^uEkKnodWkDBaFojZu3kbV0@Pu?kbV0@RuK_2:dfd?0<Nwn3PRU:XH_?:nUcYU]"
"jI?Xwn1:_UKVJ_0:n1jRUcAAkbV0@XuKG0:nYPRUGXTkbV0@fuckbV0PheIG0@tveSn2k=8avUEd"
"C1ZLOn30BZWk1@av3:dCQ2kt@nvkMTUIG08fvegU=k1@aFXhe3=:kfAaV0Ld[G=k1@aF:Xdg0:ki"
"Z`V1BdSD3kLPJm]u0PdjoV0Ld3:Vk@QbvNLdkJDk2o`FWM^UIG08cv]UIG0@bnd?P=IwnQbfdWUO"
"n30RfWVOn302gWk1@aFhiewv2klg`FG\\ecO=kZOaF\\Yd3:VkP_oF:Xdg0:kiZ`V1BdSD3kLPJm"
"]u0PdjoV0Ld3:Vk@QbFYadSK3kbMIn]u0PDkOn]u009KcV0R\\u9kCn_dGIwnmbfdWUOn30RfWVO"
"n302gWk1XXn]u0tK?8=mveoD=TOn302fEk181ogUb\\LKcV0Bd;3]IKn3@bdWkXPbV0Ld;SYIWn3"
"@bdAk18IngudZH?GCmvd?P\\JwncgBd;k109nguG[HwuLnYPRuSCIoEUm>e?P\\J_n3@BeMk18aF"
"@we3LFkJFaV2@e3l=k^SRn]u0P@koV0LdC1=kV@in]u0PTkoV0VBUIG08Yve?0=kL@af?LFUIG08"
"_ve;S\\LKn3@BZWkcNam]u0PhJcV0BTuK_2LnSV2[Ek18QmwZ;k10Im^u0\\djoF=BNuKG0:ncgR"
"U=XHG0:nY0]uGXH?:wnEB\\UPvK?Xwn1ZXuKZHOhCnev2Y;k10^lgu0tK?8Kni8QuRBHg0>YnBe]"
"J;mOZGkG@aF=N8UAjRl=YEBK\\n8eAjSl_U>eH_2<n;PQUV8KoY?dvHuI?t<n9:aZgMW[veC1=kw"
"OaFXZ3t_j8mAZSL;YNBe\\J9mCZ_LwdFHU`jPm2[Wk=8Qm2[=N;dVHuHw1:nY`RUIXHG0:nE2Qu2"
"HH_?b`FPU0k0n2d=H;`NPu0k1ng[3O?fFTehJamR[=OGfVTuK_2:n3PRU@aK?:LnUSRu0XHOW:n3"
"PRUL@IW1Lnu=Qu2XH?I>nY0mZSM?[FNedJImbZ]MG[VNuKG0:n1=gUX@I_lHnMgQUiZDkHnadSI;"
"cN^eDKIncd_IwbF\\U8k@nRd=I;bN\\u8kAnSd?ICb^\\E9KBn]d;IObf\\e9KCn^dEIWbv\\u9k"
"CnXdAIwnQbfdWk1@inaeSK?oNfeTKinbe_KGovaUPk0o1f=T;hN`ePk1o3fWk1@aFhieCW2k=``F"
"G\\ecO=kZOaF\\Yd3:VkP_oF:Xdg0:kvR`V1LdSD3kLPJmaZSM?[NNedJImbZ_MG[ve?0=kPRoFL"
"XdCJDkhn`fTM^UDkHnad]I;cN^eDkIncdWI?bF\\U8KAnRd=I;bV\\u8kAnSd9ICb^\\E9kBn]d;"
"IObn\\e9KCn^dGIWbv\\u9KLnXdWk@IOngu0XHoE:mFd?0_J;n3`Ce?k1hYn\\u0tLkbV0:ZuGk`"
"V0@^uSk`V0T`ePK1o2f=Twn9c\\UIXHW?"">ni?QU>AMkoV0Ld;S9k<PInSu0TDkoFSLdcefJw`F"
"d?0<HwaFd?0\\HwnYP2[3k10aFhOdC1=kt@afKFe[LGk0uoF@idKcCkv<Inld9k0UafiXXUHG08l"
"ve?0=kL@af?LfUHG08oviUHG0FtNd?P?VGn3`1gWB3n3`<Y?k1PRl^u0<AjOlPu0P8jwlPu08Ujg"
"lPu08MjofK^8uK?""=_ne<:YEBK\\n8UJG0>n1mgU@a1J`V0^0uHG0LPnd?P3@wn]A2XWknLaF1M"
"vDHG0CWVd?0ZGKn30m_Ck10jcWZ1k109mgu0XH_2:`>d?0<Hwc>d?0\\Iwb>d?P9IGn30RdWk@IO"
"ngu0XHoE:m>d?PYJGn30MeEk1hXngUIDMkoFL^ZuKG0:h>d?P9TGn302fWV3n302gWU3n30RfWkb"
"81owe1k10ingUMUJ?Lwn1]\\U>YH?LCno^RUMYHG1;oVd?0YKwn]n\\UPfHoQ9nC`2g?k10af8Md"
"_0=kD2mFVNdkMvL3n30BZWk1@aF=LPEHG08`ve;O=I3n30RdWk1@aF\\_dKUgJGmVZeIG0LmFe?0"
"3kPWaf^Ydce9kbMaV2Ldc8ZJwn3PRUIDEKHnSu08EkoFoF[uK_]:a>d?0\\Hwn1Z2[1k10Qmgu0X"
"H_2:nA;]U]fK?Xwn1:_UKVFkIncdEk1h`F@OdKF:J3n302eWk1@aF=Ldk1]K3n30beWV3n3`<g?k"
"10QogUljIo`:[>d?0\\MwnmTRu<X`joF>ud3v<k9@afjMd_0=Hwf>d?09OwnMPRu0XHow:n=YRu0"
"XH_2LnwPRUXtKo8An1jgUPvK?XRngYRUQGIoj;Y>d?PYLGn30MZEk1h8mgu0tK?8AYFBU\\j8mBZ"
"]L;YNBu\\j9mG[3N?dFHe`joV1BHe`JQm2[?NGnWPRU:dHO>:nERSu2HH_?b`FPU0k0n2d=H;`NP"
"u0k1ng[3O?fFTehJamR[=OGfVTuK_2:nwgRU@M3",
o[256],w[256][64],NN[8],s[5][65536],l[299999],
sn[32]="DrWily Alpha by NESMusa";
#include <stdio.h>
#include <unistd.h>
static int ss,m,IN,IV[99],IP[256],PP[100],b,M,I,D[99],Bxx,Cxx,B,Ss,CP,
At[256][64],Np=0,S=SEEK_SET,h,OF,PN,d,p=1,r,k,i,a,c,CO,j,x,T=250,f=8000,LS=0,
P[12],H[99],IL[99];FILE*fo,*fi;
#define rw(a) a=fgetc(fi),a|=fgetc(fi)<<8
static int Out(int v){int e=0,s=1,f=0;if(OF)v=128+v/30;else for((s=(v<0))?v=-v
:0;e<8;e++)if((f=((v+32)>>(e+1))-16)<16)break;return fputc(OF?v:~((s<<7)|(e<<4
)|f),fo);}void gn(void){for(f=0;A[1]>='0'&&A[1]<='9';f=f*10+*++A-'0');}int
G(int n){while((k=1<<n)>p)d+=p*(by)((*z++^4)-52),p*=64;PN=d&(k-1);d/=k,p/=k;
return PN;}int main(int C,char**V){
if(V)fi=stdin,a0=*V;for(P[CO=a=i=C?0:(fseek(fo,0,SEEK_END),r=ftell(fo)/8,rewind(fo),
fread(l,8,r,fo),fclose(fo),remove(tmp),z=(by*)In,main(-1,0))]=907;++i<12;P[i
]=P[i-1]*89/84);if(C<0){if(isatty(fileno(fo=stdout)))fo=fopen(A=OF?"/dev/dsp":
"/dev/audio","wb");if(!fo){perror(A);exit(-1);}a=c=i=sn[29]=0;
for(fprintf(stderr,"Playing %s (%s)...\n",*z-'*'?z:z+1,sn);;
i<3?i++:((c?c--^Out(S/9):++a>=r?a=LS:(c=f*5/T)),i=S=0)){
x=l[a*8+4+i],j=i?i-1:0;H[i] += (D[j]?D[j]*P[x%12]/14500:P[x%12])<<x/12;
if(IL[j])S += (s[j][((unsigned)H[i]/f)%IL[j]]-128)*l[a*8+i];}}
while(--C)if(*(A=*++V)-'-')In=A;else if(A[1])while(*A&&A[1])
*++A=='r'?gn(),0:*A=='d'?OF=1:*A=='h'?h=1:0;else In="*stdin";
if(!In){fprintf(stderr,"%s\n\nUsage:\t %s [options] nesfile.s3m\n"
"Example: %s mman3_d2.s3m\n\t %s -dr22050 cv2b.s3m|esdcat "
"-b -m -r 22050\nOptions:\n"
"\t -d\tPlay in linear format instead & use /dev/dsp if not piped\n"
"\t -r#\tSelect sampling rate in Hz\n\t -h\tThis help\n\n",Title,a0,a0,a0);
if(h)exit(0);for(r=4704,LS=224,c=4;c--;)for(a=0;a<r;)if((S=G(7))-118)
l[c+8*a+4]=S,l[c+8*a++]=G(6)^63;else for(i=G(9),S=G(6);S--;a++)
l[a*8+4+c]=l[(a-i)*8+4+c],l[a*8+c]=l[(a-i)*8+c];
for(i=IL[0]=IL[1]=32;--i>=0;s[0][i]=(i&24)?170:20)s[1][i]=16*(i<16?i:31-i);
for(i=IL[2]=999;--i>=0;s[2][i]=(a=a*999+1)%200);z=(by*)"built-in song";
main(i,0);}if(*In-'*')fi=fopen(In,"rb");if(!fi||!(fo=fopen(tmp,"wb+")))
{perror(fi?tmp:In);return-1;}fread(sn,1,32,fi);rw(m);rw(IN);
rw(PN);fseek(fi,49,S);x=fgetc(fi);T=fgetc(fi)*2;fseek(fi,0x60,S);
fread(o,m,1,fi);for(i=0;i<IN;i++)rw(IP[i]);for(i=0;i<PN;i++)rw(PP[i]);
for(i=0;i<IN;i++)fseek(fi,IP[i]*16+13,S),fgetc(fi),rw(LS),rw(IL[i]),rw(j),
fseek(fi,8,SEEK_CUR),IV[i]=fgetc(fi),fseek(fi,3,SEEK_CUR),
rw(D[i]),fseek(fi,LS*16,S),fread(s[i],1,IL[i],fi);
for(;;){if(CO>=m)main(0,V);if((CP=o[CO])-254){fseek(fi,PP[CP]*16,S);
rw(i);if(!i)PP[CP]=0;if(PP[CP])fread(z=s[4],i-=2,1,fi);for(r=0;r<64;r++){if(!r)ss=1;
a?0:w[CO][r]?(LS=At[CO][r]),main(0,V):(At[CO][r]=ftell(fo)/8,(w[CO][r]=1));
Bxx=Cxx=-1,Ss=ss,j=B=ss=0;if(PP[CP])while((b=*z++)-(M=I=0)){
if(b&32){if(!a){if(*z<254)NN[(b&3)+4]=*z%16+12*(*z/16);else
if(*z==254)NN[b&3]=0;if(z[1]&&*z!=254)NN[b&3]=IV[z[1]-1];}z+=2;}
if(b&64){if(!a)NN[b&3]=*z;z++;}if(b&128){M=*z++;I=*z++;}
if(M==1&&!a)x=I;M==2?Bxx=I:M==3?Cxx=I:M==4?ss=1:0;
if(M==19){if(I/16==11)*((B=I&15)?&ss:&Ss)=1;if(I/16==14)j=I&15;}}if(a)
a--;else{if(Ss)Np=ftell(fo);for(i=(j+1)*x;i;i--)fwrite(NN,1,8,fo);
if(B){c=ftell(fo)-Np;fseek(fo,Np,S);fread(l,1,c,fo);
fseek(fo,Np+c,S);for(i=B;i;i--)fwrite(l,1,c,fo);}
if(Bxx>=0){CO=Bxx-1;if(Cxx<0)break;}
if(Cxx>=0){a=(Cxx&15)+10*(Cxx/16);break;}}}}CO++;}}