nabaztag_hack_kit 0.0.2

data/ext/mtl/vinterp.c

@@ -0,0 +1,1349 @@
+// VLISP Virtual Machine - 2006 - by Sylvain Huet
+// Lowcost IS Powerfull
+
+#include"vmem.h"
+#include"vloader.h"
+#include"vinterp.h"
+#include"vlog.h"
+#include"vaudio.h"
+#ifdef VSIMU
+#include<stdio.h>
+#include<string.h>
+#include"simunet.h"
+#else
+#include "common.h"
+#endif
+#include"vnet.h"
+
+/*
+#include"vbc_str.h"
+
+void displaybc(int off,int base)
+{
+	int v;
+	char *p=bytecode+off;
+	char* spaces="         ";
+	int ind=off;
+	int i=*p;
+	printf("%4d]",base);
+	if ((i<0)||(i>=MaxOpcode)) printf("%4d   ??\n",ind);
+	else if ((i==OPint))
+	{
+		p++;
+		v=(p[0]&255)+((p[1]&255)<<8)+((p[2]&255)<<16)+((p[3]&255)<<24);
+		printf("%4d   %s%s %d\n",ind,strbytecod[i],spaces+strlen(strbytecod[i]),v);
+		ind+=4;
+		p+=3;
+	}
+	else if ((i==OPgoto)||(i==OPelse))
+	{
+		p++;
+		v=(p[0]&255)+((p[1]&255)<<8);
+		printf("%4d   %s%s %d\n",ind,strbytecod[i],spaces+strlen(strbytecod[i]),v);
+		ind+=2;
+		p+=1;
+	}
+	else if ((i==OPgetlocalb)||(i==OPgetglobalb)||(i==OPfetchb)||(i==OPdeftabb)||(i==OPsetlocalb)||
+		(i==OPmktabb)||(i==OPsetstructb)||(i==OPcallrb)||(i==OPintb))
+	{
+		p++;
+		v=p[0]&255;
+		printf("%4d   %s%s %d\n",ind,strbytecod[i],spaces+strlen(strbytecod[i]),v);
+		ind++;
+	}
+	else if (i==OPret)
+	{
+		printf("%4d   %s%s\n",ind,strbytecod[i],spaces+strlen(strbytecod[i]));
+		return;
+	}
+	else printf("%4d   %s%s\n",ind,strbytecod[i],spaces+strlen(strbytecod[i]));
+}
+*/
+
+// test si dernier appel ?
+int TFCtest(int p,int pbase)
+{
+	int i;
+	while(bytecode[p]!=OPret)
+	{
+		if (bytecode[p]==OPgoto)
+		{
+			p++;
+			i=(bytecode[p]&255)+((bytecode[p+1]&255)<<8);
+			p=pbase+i;
+		}
+		else return 0;
+	}
+	return 1;
+}
+
+
+int currentop=-1;
+int tron=0;
+
+// execute une fonction
+// la pile doit contenir la liste d'argument, puis la fonction
+// la fonction est soit un num�ro, soit un tuple [num�ro liste]
+// on distingue le cas selon le fait que la valeur empil�e est un pointeur ou un entier
+void interpGo()
+{
+	int pc=-1;
+	int pcbase=-1;
+	int callstack=1;
+	int callstackres=1;
+	int op=OPexec;
+	int cont;
+	if (tron)
+	{
+		consolestr("go:");
+		consoleint(VSTACKGET(0));consolestr(".");
+		consoleint(vmem_stack);consolestr("/");
+	}
+	
+	if (vmem_broken) return;
+	while(1)
+	{
+		do
+		{
+			cont=0;
+			currentop=op;
+			if (tron)
+			{
+//				displaybc(pc-1,pcbase);
+/*
+				consoleint(pc);consolestr(":");
+				consoleint(op);
+				if (op) {consolestr(":");consoleint(255&bytecode[pc]);}
+				consolestr("\n");
+*/
+				//				if (bytecode[0x2450]==0) tron=0;
+				//                          dump(&bytecode[0x2440],32);
+			}
+                        CLR_WDT;
+			switch(op)
+			{
+			case OPexec:
+				{
+					int p,npc,narg,nloc,i,fun;
+					p=VSTACKGET(0);
+					if (ISVALPNT(p))
+					{
+						p=VALTOPNT(p);
+						fun=VALTOINT(VFETCH(p,0));
+						VSTACKSET(0,VFETCH(p,1));
+						while(VSTACKGET(0)!=NIL)
+						{
+							VPUSH(VFETCH(VALTOPNT(VSTACKGET(0)),1));
+							VSTACKSET(1,VFETCH(VALTOPNT(VSTACKGET(1)),0));
+						}
+						//					VPULL();
+					}
+					else fun=VALTOINT(p);
+					VPULL();
+					if (fun<0)
+					{
+						op=-fun;
+						cont=1;
+						break;
+					}
+					npc=loaderFunstart(fun);
+					narg=bytecode[npc];
+					nloc=loaderGetShort(bytecode+npc+1);
+					npc+=3;
+					
+					if (callstack<=0)
+					{
+						if (TFCtest(pc,pcbase))
+						{
+							int ncall;
+							pc=VALTOINT(VCALLSTACKGET(callstackres,-3));
+							pcbase=VALTOINT(VCALLSTACKGET(callstackres,-2));
+							ncall=VALTOINT(VCALLSTACKGET(callstackres,-1));
+							callstackres=VALTOINT(VCALLSTACKGET(callstackres,0));
+							for(i=0;i<narg;i++)	VCALLSTACKSET(callstack,i,VSTACKGET(narg-i-1));
+							vmem_stack=callstack-narg+1;
+							callstack=ncall;
+						}
+					}
+					
+					for(i=0;i<nloc;i++)VPUSH(NIL);
+					VPUSH(INTTOVAL(pc));
+					VPUSH(INTTOVAL(pcbase));
+					VPUSH(INTTOVAL(callstack));
+					VPUSH(INTTOVAL(callstackres));
+					callstack=vmem_stack+3+nloc+narg;
+					callstackres=vmem_stack;
+					pcbase=pc=npc;
+				}
+				break;
+			case OPret:
+				{
+					int ncall;
+					pc=VALTOINT(VSTACKGET(4));
+					pcbase=VALTOINT(VSTACKGET(3));
+					ncall=VALTOINT(VSTACKGET(2));
+					callstackres=VALTOINT(VSTACKGET(1));
+					VCALLSTACKSET(callstack,0,VSTACKGET(0));	// recopie le r�sultat
+					vmem_stack=callstack;
+					callstack=ncall;
+				}
+				break;
+			case OPintb:
+				VPUSH(INTTOVAL(255&bytecode[pc++]));
+				//                                if (VSTACKGET(0)==INTTOVAL(0xd5)) tron=1;
+				break;
+			case OPint:
+				VPUSH(INTTOVAL(loaderGetInt(&bytecode[pc])));
+				pc+=4;
+				break;
+			case OPnil:
+				VPUSH(NIL);
+				break;
+			case OPdrop:
+				VDROPN(1);
+				break;
+			case OPdup:
+				VPUSH(VSTACKGET(0));
+				break;
+			case OPgetlocalb:
+				VPUSH(VCALLSTACKGET(callstack,255&bytecode[pc++]));
+				break;
+			case OPgetlocal:
+				VSTACKSET(0,VCALLSTACKGET(callstack,VALTOINT(VSTACKGET(0))));
+				break;
+			case OPadd:
+				VSTACKSET(1,INTTOVAL(VALTOINT(VSTACKGET(1))+VALTOINT(VSTACKGET(0))));
+				VDROPN(1);
+				break;
+			case OPsub:
+				VSTACKSET(1,INTTOVAL(VALTOINT(VSTACKGET(1))-VALTOINT(VSTACKGET(0))));
+				VDROPN(1);
+				break;
+			case OPmul:
+				VSTACKSET(1,INTTOVAL(VALTOINT(VSTACKGET(1))*VALTOINT(VSTACKGET(0))));
+				VDROPN(1);
+				break;
+			case OPdiv:
+				VSTACKSET(1,INTTOVAL(VALTOINT(VSTACKGET(1))/VALTOINT(VSTACKGET(0))));
+				VDROPN(1);
+				break;
+			case OPmod:
+				VSTACKSET(1,INTTOVAL(VALTOINT(VSTACKGET(1))%VALTOINT(VSTACKGET(0))));
+				VDROPN(1);
+				break;
+			case OPand:
+				VSTACKSET(1,INTTOVAL(VALTOINT(VSTACKGET(1))&VALTOINT(VSTACKGET(0))));
+				VDROPN(1);
+				break;
+			case OPor:
+				VSTACKSET(1,INTTOVAL(VALTOINT(VSTACKGET(1))|VALTOINT(VSTACKGET(0))));
+				VDROPN(1);
+				break;
+			case OPeor:
+				VSTACKSET(1,INTTOVAL(VALTOINT(VSTACKGET(1))^VALTOINT(VSTACKGET(0))));
+				VDROPN(1);
+				break;
+			case OPshl:
+				VSTACKSET(1,INTTOVAL(VALTOINT(VSTACKGET(1))<<VALTOINT(VSTACKGET(0))));
+				VDROPN(1);
+				break;
+			case OPshr:
+				VSTACKSET(1,INTTOVAL(VALTOINT(VSTACKGET(1))>>VALTOINT(VSTACKGET(0))));
+				VDROPN(1);
+				break;
+			case OPneg:
+				VSTACKSET(0,INTTOVAL(-VALTOINT(VSTACKGET(0))));
+				break;
+			case OPnot:
+				VSTACKSET(0,INTTOVAL(~VALTOINT(VSTACKGET(0))));
+				break;
+			case OPnon:
+				VSTACKSET(0,INTTOVAL(VALTOINT(VSTACKGET(0))?0:1));
+				break;
+			case OPeq:
+				VSTACKSET(1,INTTOVAL((VSTACKGET(1)==VSTACKGET(0))?1:0));
+				VDROPN(1);
+				break;
+			case OPne:
+				VSTACKSET(1,INTTOVAL((VSTACKGET(1)!=VSTACKGET(0))?1:0));
+				VDROPN(1);
+				break;
+			case OPlt:
+				VSTACKSET(1,INTTOVAL((VALTOINT(VSTACKGET(1))<VALTOINT(VSTACKGET(0)))?1:0));
+				VDROPN(1);
+				break;
+			case OPgt:
+				VSTACKSET(1,INTTOVAL((VALTOINT(VSTACKGET(1))>VALTOINT(VSTACKGET(0)))?1:0));
+				VDROPN(1);
+				break;
+			case OPle:
+				VSTACKSET(1,INTTOVAL((VALTOINT(VSTACKGET(1))<=VALTOINT(VSTACKGET(0)))?1:0));
+				VDROPN(1);
+				break;
+			case OPge:
+				VSTACKSET(1,INTTOVAL((VALTOINT(VSTACKGET(1))>=VALTOINT(VSTACKGET(0)))?1:0));
+				VDROPN(1);
+				break;
+			case OPgoto:
+				pc=pcbase+loaderGetShort(&bytecode[pc]);
+				break;
+			case OPelse:
+				if (!VPULL()) pc=pcbase+loaderGetShort(&bytecode[pc]);
+				else pc+=2;
+				break;
+			case OPmktabb:
+				VPUSH(PNTTOVAL(VMALLOCCLEAR(255&bytecode[pc++])));
+				break;
+			case OPmktab:
+				VPUSH(PNTTOVAL(VMALLOCCLEAR(VALTOINT(VPULL()))));
+				break;
+			case OPdeftabb:
+				VMKTAB(255&bytecode[pc++]);
+				break;
+			case OPdeftab:
+				VMKTAB(VALTOINT(VPULL()));
+				break;
+			case OPfetchb:
+				{
+					int i=255&bytecode[pc++];
+					int p=VSTACKGET(0);
+					if (p!=NIL) VSTACKSET(0,VFETCH(VALTOPNT(p),i));
+				}
+				break;
+			case OPfetch:
+				{
+					int i=VPULL();
+					int p=VSTACKGET(0);
+					if ((p==NIL)||(i==NIL)) VSTACKSET(0,NIL);
+					else
+					{
+						i=VALTOINT(i);
+						p=VALTOPNT(p);
+						if ((i<0)||(i>=VSIZE(p))) VSTACKSET(0,NIL);
+						else VSTACKSET(0,VFETCH(p,i));
+					}
+				}
+				break;
+			case OPgetglobalb:
+				VPUSH(VCALLSTACKGET(global_start,255&bytecode[pc++]));
+				break;
+			case OPgetglobal:
+				VSTACKSET(0,VCALLSTACKGET(global_start,VALTOINT(VSTACKGET(0))));
+				break;
+			case OPSecho:
+				logSecho(VSTACKGET(0),0);
+				break;
+			case OPIecho:
+				logIecho(VSTACKGET(0),0);
+				break;
+			case OPsetlocalb:
+				VCALLSTACKSET(callstack,255&bytecode[pc++],VPULL());
+				break;
+			case OPsetlocal:
+				{
+					int v=VALTOINT(VPULL());
+					VCALLSTACKSET(callstack,v,VPULL());
+				}
+				break;
+			case OPsetglobal:
+				VCALLSTACKSET(global_start,VALTOINT(VSTACKGET(1)),VSTACKGET(0));
+				VSTACKSET(1,VSTACKGET(0));
+				VPULL();
+				break;
+			case OPsetstructb:
+				{
+					int i=255&bytecode[pc++];
+					int v=VPULL();
+					int p=VSTACKGET(0);
+					if ((p!=NIL)&&(i!=NIL))
+					{
+						p=VALTOPNT(p);
+						if ((i>=0)||(i<VSIZE(p))) VSTORE(p,i,v);
+					}
+				}
+				break;
+			case OPsetstruct:
+				{
+					int i=VPULL();
+					int v=VPULL();
+					int p=VSTACKGET(0);
+					if ((p!=NIL)&&(i!=NIL))
+					{
+						i=VALTOINT(i);
+						p=VALTOPNT(p);
+						if ((i>=0)||(i<VSIZE(p))) VSTORE(p,i,v);
+					}
+				}
+				break;
+			case OPhd:
+				{
+					int p=VSTACKGET(0);
+					if (p!=NIL) VSTACKSET(0,VFETCH(VALTOPNT(p),0));
+				}
+				break;
+			case OPtl:
+				{
+					int p=VSTACKGET(0);
+					if (p!=NIL) VSTACKSET(0,VFETCH(VALTOPNT(p),1));
+				}
+				break;
+			case OPsetlocal2:
+				VCALLSTACKSET(callstack,VALTOINT(VSTACKGET(1)),VSTACKGET(0));
+				VSTACKSET(1,VSTACKGET(0));
+				VPULL();
+				break;
+			case OPstore:
+				{
+					int v=VPULL();
+					int i=VPULL();
+					int p=VSTACKGET(0);
+					if ((p!=NIL)&&(i!=NIL))
+					{
+						i=VALTOINT(i);
+						p=VALTOPNT(p);
+						if ((i>=0)||(i<VSIZE(p))) VSTORE(p,i,v);
+					}
+					VSTACKSET(0,v);
+				}
+				break;
+			case OPcall:
+				{
+					int p=VSTACKGET(0);
+					if (p==NIL)
+					{
+						VSTACKSET(1,NIL);
+						VPULL();
+					}
+					else
+					{
+						int n;
+						n=VSIZE(VALTOPNT(p));
+						if (n==0) VPULL();
+						else
+						{
+							int i;
+							for(i=1;i<n;i++) VPUSH(NIL);
+							p=VALTOPNT(VSTACKGET(n-1));
+							for(i=0;i<n;i++) VSTACKSET(n-1-i,VFETCH(p,i));
+						}
+						VPUSH(INTTOVAL(n));
+						op=OPcallr;
+						cont=1;
+					}
+				}
+				break;
+			case OPcallrb:
+				{
+					int n=255&bytecode[pc++];
+					int valn=VSTACKGET(n);
+					if (valn==NIL) VDROPN(n);
+					else
+					{
+						int i;
+						for(i=n;i>0;i--) VSTACKSET(i,VSTACKGET(i-1));
+						VSTACKSET(0,valn);
+						op=OPexec;
+						cont=1;
+					}
+				}
+				break;
+			case OPcallr:
+				{
+					int n=VALTOINT(VPULL());
+					int valn=VSTACKGET(n);
+					if (valn==NIL) VDROPN(n);
+					else
+					{
+						int i;
+						for(i=n;i>0;i--) VSTACKSET(i,VSTACKGET(i-1));
+						VSTACKSET(0,valn);
+						op=OPexec;
+						cont=1;
+					}
+				}
+				break;
+			case OPfirst:
+				{
+					int p=VSTACKGET(0);
+					if (p!=NIL) VPUSH(VFETCH(VALTOPNT(p),0));
+					else VPUSH(NIL);
+				}
+				break;
+			case OPtime_ms:
+				VPUSH(INTTOVAL(sysTimems()));
+				break;
+			case OPtabnew:
+				{
+					int v=VPULL();
+					if (v==NIL) VSTACKSET(0,NIL);
+					else
+					{
+						int p,i,v0;
+						v=VALTOINT(v);
+						p=VMALLOC(v);
+						v0=VSTACKGET(0);
+						for(i=0;i<v;i++) VSTORE(p,i,v0);
+						VSTACKSET(0,PNTTOVAL(p));
+					}
+				}
+				break;
+			case OPfixarg:
+				{
+					int v=VSTACKGET(1);
+					if (v==NIL) VPULL();
+					else
+					{
+						if (ISVALPNT(v))
+						{
+							VPUSH(VFETCH(VALTOPNT(v),1));
+							VSTACKSET(2,VFETCH(VALTOPNT(VSTACKGET(2)),0));
+						}
+						else VPUSH(NIL);
+						VMKTAB(2);
+						VMKTAB(2);
+					}
+				}
+				break;
+			case OPabs:
+				{
+					int v=VALTOINT(VSTACKGET(0));
+					if (v<0) v=-v;
+					VSTACKSET(0,INTTOVAL(v));
+				}
+				break;
+			case OPmax:
+				{
+					int v=VALTOINT(VPULL());
+					int w=VALTOINT(VSTACKGET(0));
+					VSTACKSET(0,INTTOVAL(v<w?w:v));
+				}
+				break;
+			case OPmin:
+				{
+					int v=VALTOINT(VPULL());
+					int w=VALTOINT(VSTACKGET(0));
+					VSTACKSET(0,INTTOVAL(v>w?w:v));
+				}
+				break;
+			case OPrand:
+				VPUSH(INTTOVAL(sysRand()));
+				break;
+			case OPsrand:
+				sysSrand(VALTOINT(VSTACKGET(0)));
+				break;
+			case OPtime:
+				VPUSH(INTTOVAL(sysTime()));
+				break;
+			case OPstrnew:
+				{
+					int n=VALTOINT(VSTACKGET(0));
+					if (n<0) VSTACKSET(0,NIL);
+					else VSTACKSET(0,PNTTOVAL(VMALLOCBIN(n)));
+				}
+				break;
+			case OPstrset:
+				{
+					int v=VALTOINT(VPULL());
+					int n=VALTOINT(VPULL());
+					int p=VALTOPNT(VSTACKGET(0));
+					if ((p!=NIL)&&(n>=0)&&(n<VSIZEBIN(p)))
+						(VSTARTBIN(p))[n]=v;
+				}
+				break;
+			case OPstrcpy:
+				{
+					int len=VPULL();
+					int start=VALTOINT(VPULL());
+					int q=VALTOPNT(VPULL());
+					int index=VALTOINT(VPULL());
+					int p=VALTOPNT(VSTACKGET(0));
+					if ((p!=NIL)&&(q!=NIL))
+					{
+						if (len==NIL) len=VSIZEBIN(q)-start; else len=VALTOINT(len);
+						sysCpy(VSTARTBIN(p),index,VSIZEBIN(p),VSTARTBIN(q),start,VSIZEBIN(q),len);
+					}
+				}
+				break;
+			case OPvstrcmp:
+				{
+					int len=VPULL();
+					int start=VALTOINT(VPULL());
+					int q=VALTOPNT(VPULL());
+					int index=VALTOINT(VPULL());
+					int p=VALTOPNT(VSTACKGET(0));
+					if ((p!=NIL)&&(q!=NIL))
+					{
+						if (len==NIL)
+						{
+							len=VSIZEBIN(q)-start;
+							if (len<VSIZEBIN(p)-index) len=VSIZEBIN(p)-index;
+						}
+						else len=VALTOINT(len);
+						VSTACKSET(0,INTTOVAL(sysCmp(VSTARTBIN(p),index,VSIZEBIN(p),VSTARTBIN(q),start,VSIZEBIN(q),len)));
+					}
+					else VSTACKSET(0,INTTOVAL((p!=NIL)?1:(q!=NIL)?-1:0));
+				}
+				break;
+			case OPstrfind:
+				{
+					int len=VPULL();
+					int start=VALTOINT(VPULL());
+					int q=VALTOPNT(VPULL());
+					int index=VALTOINT(VPULL());
+					int p=VALTOPNT(VSTACKGET(0));
+					if ((p!=NIL)&&(q!=NIL))
+					{
+						if (len==NIL) len=VSIZEBIN(q)-start; else len=VALTOINT(len);
+						VSTACKSET(0,sysFind(VSTARTBIN(p),index,VSIZEBIN(p),VSTARTBIN(q),start,VSIZEBIN(q),len));
+					}
+					else VSTACKSET(0,NIL);
+				}
+				break;
+			case OPstrfindrev:
+				{
+					int len=VPULL();
+					int start=VALTOINT(VPULL());
+					int q=VALTOPNT(VPULL());
+					int index=VPULL();
+					int p=VALTOPNT(VSTACKGET(0));
+					if ((p!=NIL)&&(q!=NIL))
+					{
+						if (len==NIL) len=VSIZEBIN(q)-start; else len=VALTOINT(len);
+						if (index==NIL) index=VSIZEBIN(p)-1; else index=VALTOINT(index);
+						VSTACKSET(0,sysFindrev(VSTARTBIN(p),index,VSIZEBIN(p),VSTARTBIN(q),start,VSIZEBIN(q),len));
+					}
+					else VSTACKSET(0,NIL);
+				}
+				break;
+			case OPstrlen:
+				{
+					int p=VALTOPNT(VSTACKGET(0));
+					if (p!=NIL) VSTACKSET(0,INTTOVAL(VSIZEBIN(p)));
+				}
+				break;
+			case OPstrget:
+				{
+					int n=VALTOINT(VPULL());
+					int p=VALTOPNT(VSTACKGET(0));
+					if ((p==NIL)||(n<0)||(n>=VSIZEBIN(p))) VSTACKSET(0,NIL);
+					else VSTACKSET(0,INTTOVAL(((VSTARTBIN(p))[n]&255)));
+				}
+				break;
+			case OPstrsub:
+				//				vmemDump();
+				{
+					int len=VPULL();
+					int start=VALTOINT(VPULL());
+					int q=VALTOPNT(VSTACKGET(0));
+					if (q!=NIL)
+					{
+						if (len==NIL) len=VSIZEBIN(q)-start; else len=VALTOINT(len);
+						if (start+len>VSIZEBIN(q)) len=VSIZEBIN(q)-start;
+						if ((start>=0)&&(len>=0))
+						{
+							int p=VMALLOCBIN(len);
+							mystrcpy(VSTARTBIN(p),VSTARTBIN(VALTOPNT(VSTACKGET(0)))+start,len);
+							VSTACKSET(0,PNTTOVAL(p));
+						}
+						else VSTACKSET(0,NIL);
+					}
+					else VSTACKSET(0,NIL);
+				}
+				//				vmemDump();
+				break;
+			case OPstrcat:
+				{
+					int r;
+					int len=0;
+					int q=VALTOPNT(VSTACKGET(0));
+					int p=VALTOPNT(VSTACKGET(1));
+					if (p!=NIL) len+=VSIZEBIN(p);
+					if (q!=NIL) len+=VSIZEBIN(q);
+					r=VMALLOCBIN(len);
+					len=0;
+					q=VALTOPNT(VPULL());
+					p=VALTOPNT(VSTACKGET(0));
+					if (p!=NIL)
+					{
+						len=VSIZEBIN(p);
+						mystrcpy(VSTARTBIN(r),VSTARTBIN(p),len);
+					}
+					if (q!=NIL)	mystrcpy(VSTARTBIN(r)+len,VSTARTBIN(q),VSIZEBIN(q));
+					VSTACKSET(0,PNTTOVAL(r));
+				}
+				break;
+			case OPtablen:
+				{
+					int p=VALTOPNT(VSTACKGET(0));
+					if (p!=NIL) VSTACKSET(0,INTTOVAL(VSIZE(p)));
+				}
+				break;
+			case OPstrcatlist:
+				{
+					int r,q;
+					int len=0;
+					int p=VALTOPNT(VSTACKGET(0));
+					while(p!=NIL)
+					{
+						q=VALTOPNT(VFETCH(p,0));
+						if (q!=NIL) len+=VSIZEBIN(q);
+						p=VALTOPNT(VFETCH(p,1));
+					}
+					r=VMALLOCBIN(len);
+					if (r<0) return;
+					len=0;
+					p=VALTOPNT(VSTACKGET(0));
+					while(p!=NIL)
+					{
+						q=VALTOPNT(VFETCH(p,0));
+						if (q!=NIL)
+						{
+							mystrcpy(VSTARTBIN(r)+len,VSTARTBIN(q),VSIZEBIN(q));
+							len+=VSIZEBIN(q);
+						}
+						p=VALTOPNT(VFETCH(p,1));
+					}
+					VSTACKSET(0,PNTTOVAL(r));
+				}
+				break;
+			case OPled:
+				sysLed(VALTOINT(VSTACKGET(1)),VALTOINT(VSTACKGET(0)));
+				VPULL();
+				break;
+			case OPmotorset:
+				sysMotorset(VALTOINT(VSTACKGET(1)),VALTOINT(VSTACKGET(0)));
+				VPULL();
+				break;
+			case OPmotorget:
+				VSTACKSET(0,INTTOVAL(sysMotorget(VALTOINT(VSTACKGET(0)))));
+				break;
+			case OPbutton2:
+				VPUSH(INTTOVAL(sysButton2()));
+				break;
+			case OPbutton3:
+				VPUSH(INTTOVAL(sysButton3()));
+				break;
+			case OPplayStart:
+				{
+					int k;
+                                        VCALLSTACKSET(sys_start,SYS_CBPLAY,VPULL());
+                                        k=VALTOINT(VPULL());
+					VPUSH(INTTOVAL(0));
+					audioPlayStart(44100,16,2,k);
+				}
+				break;
+			case OPplayFeed:
+				{
+					int len=VPULL();
+					int start=VALTOINT(VPULL());
+					int q=VALTOPNT(VSTACKGET(0));
+					if (q!=NIL)
+					{
+						if (len==NIL) len=VSIZEBIN(q)-start; else len=VALTOINT(len);
+						if (start+len>VSIZEBIN(q)) len=VSIZEBIN(q)-start;
+						if ((start>=0)&&(len>=0))
+						{
+							len=audioPlayFeed(VSTARTBIN(q)+start,len);
+							VSTACKSET(0,INTTOVAL(len));
+						}
+						else VSTACKSET(0,NIL);
+					}
+					else
+					{
+						audioPlayFeed(NULL,0);
+						VSTACKSET(0,NIL);
+					}
+				}
+				break;
+			case OPplayStop:
+				audioPlayStop();
+				VPUSH(INTTOVAL(0));
+				break;
+			case OPrecStart:
+				{
+					int freq,gain;
+					VCALLSTACKSET(sys_start,SYS_CBREC,VPULL());
+					gain=VALTOINT(VPULL());
+					freq=VALTOINT(VPULL());
+					VPUSH(INTTOVAL(0));
+					audioRecStart(freq,gain);
+				}
+				break;
+			case OPrecStop:
+				audioRecStop();
+				VPUSH(INTTOVAL(0));
+				break;
+			case OPrecVol:
+				{
+					int start=VALTOINT(VPULL());
+					int q=VALTOPNT(VSTACKGET(0));
+					if (q!=NIL)
+					{
+						VSTACKSET(0,INTTOVAL(audioRecVol((unsigned char*)VSTARTBIN(q),VSIZEBIN(q),start)));
+					}
+				}
+				break;
+			case OPload:
+				{
+					int len=VPULL();
+					int start=VALTOINT(VPULL());
+					int q=VALTOPNT(VPULL());
+					int index=VALTOINT(VPULL());
+					int p=VALTOPNT(VSTACKGET(0));
+					if ((p!=NIL)&&(q!=NIL))
+					{
+						if (len==NIL) len=VSIZEBIN(p)-index; else len=VALTOINT(len);
+						len=sysLoad(VSTARTBIN(p),index,VSIZEBIN(p),VSTARTBIN(q),start,len);
+						VSTACKSET(0,INTTOVAL(len));
+					}
+					else VSTACKSET(0,NIL);
+				}
+				break;
+			case OPgc:
+				vmemGC();
+				VPUSH(INTTOVAL((vmem_heapindex-vmem_stack)*100/VMEM_LENGTH));
+				break;
+			case OPsave:
+				{
+					int len=VPULL();
+					int start=VALTOINT(VPULL());
+					int q=VALTOPNT(VPULL());
+					int index=VALTOINT(VPULL());
+					int p=VALTOPNT(VSTACKGET(0));
+					if ((p!=NIL)&&(q!=NIL))
+					{
+						if (len==NIL) len=VSIZEBIN(p)-index; else len=VALTOINT(len);
+						len=sysSave(VSTARTBIN(p),index,VSIZEBIN(p),VSTARTBIN(q),start,len);
+						VSTACKSET(0,INTTOVAL(len));
+					}
+					else VSTACKSET(0,NIL);
+				}
+				break;
+			case OPbytecode:
+				consolestr("#################### OPbytecode"ENDLINE);
+				if (VSTACKGET(0)!=NIL)
+				{
+					char* q;
+					int env=-1;
+					int p=VALTOPNT(VCALLSTACKGET(sys_start,SYS_ENV));
+					audioPlayStop();
+					audioRecStop();
+					if (p!=NIL)
+					{
+						env=VSIZEBIN(p);
+						memcpy(audioFifoPlay,VSTARTBIN(p),env);
+					}
+					
+					q=VSTARTBIN(VALTOPNT(VSTACKGET(0)));
+					//                                        dump(q+0x2df0,128);
+					
+					loaderInit(q);
+					//                          dump(&bytecode[0x2440],32);
+					
+					if (env>=0)
+					{
+						//                                          dump(audioFifoPlay,env);
+						VCALLSTACKSET(sys_start,SYS_ENV,
+							PNTTOVAL(VMALLOCSTR(audioFifoPlay,env)));
+					}
+					VPUSH(INTTOVAL(0));
+					//                                     tron=1;
+					interpGo();
+					//					VPULL();
+					consolestr("#################### OPbytecode done"ENDLINE);
+					//                                        tron=0;
+//					tron=1;
+
+					return;
+				}
+				break;
+			case OPloopcb:
+				VCALLSTACKSET(sys_start,SYS_CBLOOP,VSTACKGET(0));
+				break;
+#ifdef VSIMU
+			case OPudpStart:
+				VSTACKSET(0,INTTOVAL(udpcreate(VALTOINT(VSTACKGET(0)))));
+				break;
+			case OPudpCb:
+				VCALLSTACKSET(sys_start,SYS_CBUDP,VSTACKGET(0));
+				break;
+			case OPudpStop:
+				VSTACKSET(0,INTTOVAL(udpclose(VALTOINT(VSTACKGET(0)))));
+				break;
+			case OPudpSend:
+				{
+					int len=VPULL();
+					int start=VALTOINT(VPULL());
+					int q=VALTOPNT(VPULL());
+					int dstport=VALTOINT(VPULL());
+					int p=VALTOPNT(VPULL());
+					int localport=VALTOINT(VSTACKGET(0));
+					if ((p!=NIL)&&(q!=NIL))
+					{
+						if (len==NIL) len=VSIZEBIN(q)-start; else len=VALTOINT(len);
+						if (start+len>VSIZEBIN(q)) len=VSIZEBIN(q)-start;
+						if ((start>=0)&&(len>=0))
+						{
+							int k=udpsend(localport,VSTARTBIN(p),dstport,VSTARTBIN(q)+start,len);
+							VSTACKSET(0,INTTOVAL(k));
+						}
+						else VSTACKSET(0,NIL);
+					}
+					else VSTACKSET(0,NIL);
+					
+				}
+				break;
+			case OPtcpOpen:
+				{
+					int port=VALTOINT(VPULL());
+					int p=VALTOPNT(VSTACKGET(0));
+					if (p!=NIL) VSTACKSET(0,INTTOVAL(tcpopen(VSTARTBIN(p),port)));
+				}
+				break;
+			case OPtcpClose:
+				VSTACKSET(0,INTTOVAL(tcpclose(VALTOINT(VSTACKGET(0)))));
+				break;
+			case OPtcpSend:
+				{
+					int len=VPULL();
+					int start=VPULL();
+					int q=VALTOPNT(VPULL());
+					int tcp=VALTOINT(VSTACKGET(0));
+					if (start==NIL) start=0;
+					else start=VALTOINT(start);
+					if (q!=NIL)
+					{
+						if (len==NIL) len=VSIZEBIN(q)-start; else len=VALTOINT(len);
+						if (start+len>VSIZEBIN(q)) len=VSIZEBIN(q)-start;
+						if ((start>=0)&&(len>=0))
+						{
+							int k;
+							k=tcpsend(tcp,VSTARTBIN(q)+start,len);
+							if (k>=0) start+=k;
+							VSTACKSET(0,INTTOVAL(start));
+						}
+						else VSTACKSET(0,NIL);
+					}
+					else VSTACKSET(0,NIL);
+				}
+				break;
+			case OPtcpCb:
+				VCALLSTACKSET(sys_start,SYS_CBTCP,VSTACKGET(0));
+				break;
+			case OPtcpListen:
+				{
+					int port=VALTOINT(VSTACKGET(0));
+					VSTACKSET(0,INTTOVAL(tcpservercreate(port)));
+				}
+				break;
+			case OPtcpEnable:
+				{
+					int enable=VALTOINT(VPULL());
+					tcpenable(VALTOINT(VSTACKGET(0)),enable);
+				}
+				break;
+#endif
+			case OPSecholn:
+				logSecho(VSTACKGET(0),1);
+				//                          if (tron)dump(&bytecode[0x2440],32);
+				break;
+			case OPIecholn:
+				logIecho(VSTACKGET(0),1);
+				break;
+			case OPenvget:
+				VPUSH(VCALLSTACKGET(sys_start,SYS_ENV));
+				break;
+			case OPenvset:
+				VCALLSTACKSET(sys_start,SYS_ENV,VSTACKGET(0));
+				break;
+			case OPsndVol:
+				audioVol(VALTOINT(VSTACKGET(0)));
+				break;
+			case OPrfidGet:
+				{
+					char *p;
+					p=sysRfidget();
+					if (!p) VPUSH(NIL);
+					else VPUSH(PNTTOVAL(VMALLOCSTR(p,8)));
+				}
+				break;
+			case OPplayTime:
+				VPUSH(INTTOVAL(audioPlayTime()));
+				break;
+			case OPnetCb:
+				VCALLSTACKSET(sys_start,SYS_CBTCP,VSTACKGET(0));
+				break;
+			case OPnetSend:
+				{
+					int speed=VALTOINT(VPULL());
+					int indmac=VALTOINT(VPULL());
+					int q=VALTOPNT(VPULL());
+					int len=VPULL();
+					int index=VALTOINT(VPULL());
+					int p=VALTOPNT(VSTACKGET(0));
+					if ((p!=NIL)&&(q!=NIL))
+					{
+						if (len==NIL) len=VSIZEBIN(p)-index; else len=VALTOINT(len);
+						VSTACKSET(0,INTTOVAL(netSend(VSTARTBIN(p),index,len,VSIZEBIN(p),VSTARTBIN(q),indmac,VSIZEBIN(q),speed)));
+					}
+					else VSTACKSET(0,NIL);
+				}
+				break;
+			case OPnetState:
+				VPUSH(INTTOVAL(netState()));
+				break;
+			case OPnetMac:
+				VPUSH(PNTTOVAL(VMALLOCSTR(netMac(),6)));
+				break;
+			case OPnetChk:
+				{
+					int val=VALTOINT(VPULL());
+					int len=VPULL();
+					int index=VALTOINT(VPULL());
+					int p=VALTOPNT(VSTACKGET(0));
+					if (p!=NIL)
+					{
+						if (len==NIL) len=VSIZEBIN(p)-index; else len=VALTOINT(len);
+						VSTACKSET(0,INTTOVAL(netChk(VSTARTBIN(p),index,len,VSIZEBIN(p),val)));
+					}
+					else VSTACKSET(0,INTTOVAL(val));
+				}
+				break;
+			case OPnetSetmode:
+				{
+					int chn=VALTOINT(VPULL());
+					int p=VALTOPNT(VPULL());
+					int md=VALTOINT(VSTACKGET(0));
+					char* ssid=(p==NIL)?NULL:VSTARTBIN(p);
+					netSetmode(md,ssid,chn);
+				}
+				break;
+			case OPnetScan:
+				{
+					int p=VALTOPNT(VPULL());
+					char* ssid=(p==NIL)?NULL:VSTARTBIN(p);
+					netScan(ssid);
+				}
+				break;
+			case OPnetAuth:
+				{
+					int key=VALTOPNT(VPULL());
+					int encrypt=VALTOINT(VPULL());
+					int authmode=VALTOINT(VPULL());
+					int scan=VALTOPNT(VSTACKGET(0));
+					if (scan!=NIL)
+					{
+						int ssid=VALTOPNT(VFETCH(scan,0));
+						int mac=VALTOPNT(VFETCH(scan,1));
+						int bssid=VALTOPNT(VFETCH(scan,2));
+						int chn=VALTOINT(VFETCH(scan,4));
+						int rate=VALTOINT(VFETCH(scan,5));
+						if ((mac!=NIL)&&(bssid!=NIL))
+						{
+							netAuth((ssid==NIL)?NULL:VSTARTBIN(ssid),VSTARTBIN(mac),
+								VSTARTBIN(bssid),chn,rate,authmode,
+								encrypt,(key==NIL)?NULL:VSTARTBIN(key));
+						}
+					}
+				}
+				break;
+			case OPnetSeqAdd:
+				{
+					int inc=VALTOINT(VPULL());
+					int seq=VALTOPNT(VPULL());
+					if ((seq==NIL)||(VSIZEBIN(seq)<4)) VPUSH(NIL);
+					else netSeqAdd((unsigned char*)VSTARTBIN(seq),inc);
+				}
+				break;
+			case OPstrgetword:
+				{
+					int ind=VALTOINT(VPULL());
+					int src=VALTOPNT(VSTACKGET(0));
+					if (src!=NIL) VSTACKSET(0,INTTOVAL(sysStrgetword((unsigned char*)VSTARTBIN(src),VSIZEBIN(src),ind)));
+				}
+				break;
+			case OPstrputword:
+				{
+					int val=VALTOINT(VPULL());
+					int ind=VALTOINT(VPULL());
+					int src=VALTOPNT(VSTACKGET(0));
+					if (src!=NIL) sysStrputword((unsigned char*)VSTARTBIN(src),VSIZEBIN(src),ind,val);
+				}
+				break;
+			case OPatoi:
+				{
+					int src=VALTOPNT(VSTACKGET(0));
+					if (src!=NIL) VSTACKSET(0,INTTOVAL(sysAtoi(VSTARTBIN(src))));
+				}
+				break;
+			case OPhtoi:
+				{
+					int src=VALTOPNT(VSTACKGET(0));
+					if (src!=NIL)
+					{
+						VSTACKSET(0,INTTOVAL(sysHtoi(VSTARTBIN(src))));
+					}
+				}
+				break;
+			case OPitoa:
+				sysItoa(VALTOINT(VPULL()));
+				break;
+			case OPctoa:
+				{
+					int val=VALTOINT(VPULL());
+					sysCtoa(val);
+				}
+				break;
+			case OPitoh:
+				sysItoh(VALTOINT(VPULL()));
+				break;
+			case OPctoh:
+				sysCtoh(VALTOINT(VPULL()));
+				break;
+			case OPitobin2:
+				sysItobin2(VALTOINT(VPULL()));
+				break;
+			case OPlistswitch:
+				{
+					int key=VPULL();
+					int p=VALTOPNT(VSTACKGET(0));
+					VSTACKSET(0,sysListswitch(p,key));
+				}
+				break;
+			case OPlistswitchstr:
+				{
+					int key=VPULL();
+					int p=VALTOPNT(VSTACKGET(0));
+					if (key==NIL) VSTACKSET(0,sysListswitch(p,key));
+					else VSTACKSET(0,sysListswitchstr(p,VSTARTBIN(VALTOPNT(key))));
+				}
+				break;
+			case OPsndRefresh:
+				audioRefresh();
+				VPUSH(NIL);
+				break;
+			case OPsndWrite:
+				{
+					int val=VALTOINT(VPULL());
+					audioWrite(VALTOINT(VSTACKGET(0)),val);
+				}
+				break;
+			case OPsndRead:
+				VSTACKSET(0,INTTOVAL(audioRead(VALTOINT(VSTACKGET(0)))));
+				break;
+			case OPsndFeed:
+				{
+					int len=VPULL();
+					int start=VPULL();
+					int q=VALTOPNT(VSTACKGET(0));
+					if (start==NIL) start=0;
+					else start=VALTOINT(start);
+					if (q!=NIL)
+					{
+						if (len==NIL) len=VSIZEBIN(q)-start; else len=VALTOINT(len);
+						if (start+len>VSIZEBIN(q)) len=VSIZEBIN(q)-start;
+						if ((start>=0)&&(len>=0))
+						{
+							int k=audioFeed(VSTARTBIN(q)+start,len);
+							VSTACKSET(0,INTTOVAL(k));
+						}
+						else VSTACKSET(0,NIL);
+					}
+					else VSTACKSET(0,NIL);
+				}
+				break;
+			case OPsndAmpli:
+				audioAmpli(VALTOINT(VSTACKGET(0)));
+				break;
+			case OPcorePP:
+				VPUSH(INTTOVAL(vmem_stack));
+				break;
+			case OPcorePush:
+				VPUSH(VSTACKGET(0));
+				break;
+			case OPcorePull:
+				VSTACKSET(1,VSTACKGET(0));
+				VPULL();
+				break;
+			case OPcoreBit0:
+				{
+					int v=VALTOINT(VPULL());
+					VSTACKSET(0,(VSTACKGET(0)&0xfffffffe)|(v&1));
+				}
+				break;
+			case OPreboot:
+				{
+					int w=VALTOINT(VPULL());
+					int v=VALTOINT(VSTACKGET(0));
+					consolestr("reboot ");
+					consolehx(v);
+					consolestr(".");
+					consolehx(w);
+					consolestr("\n");
+					if ((v==0x0407FE58)&&(w==0x13fb6754))
+					{
+						consolestr("************REBOOT NOW");
+						sysReboot();
+					}
+				}
+				break;
+			case OPstrcmp:
+				{
+					int q=VALTOPNT(VPULL());
+					int p=VALTOPNT(VSTACKGET(0));
+					if ((p!=NIL)&&(q!=NIL))
+					{
+						int pl=VSIZEBIN(p);
+						int ql=VSIZEBIN(q);
+
+						VSTACKSET(0,INTTOVAL(memcmp(VSTARTBIN(p),VSTARTBIN(q),(pl>ql)?pl:ql)));
+					}
+					else VSTACKSET(0,INTTOVAL((p!=NIL)?1:(q!=NIL)?-1:0));
+				}
+				break;
+			case OPadp2wav:
+				{
+					int len=VPULL();
+					int start=VALTOINT(VPULL());
+					int q=VALTOPNT(VPULL());
+					int index=VALTOINT(VPULL());
+					int p=VALTOPNT(VSTACKGET(0));
+					if ((p!=NIL)&&(q!=NIL))
+					{
+						if (len==NIL) len=VSIZEBIN(q)-start; else len=VALTOINT(len);
+						AudioAdp2wav(VSTARTBIN(p),index,VSIZEBIN(p),VSTARTBIN(q),start,VSIZEBIN(q),len);
+					}
+				}
+				break;
+			case OPwav2adp:
+				{
+					int len=VPULL();
+					int start=VALTOINT(VPULL());
+					int q=VALTOPNT(VPULL());
+					int index=VALTOINT(VPULL());
+					int p=VALTOPNT(VSTACKGET(0));
+					if ((p!=NIL)&&(q!=NIL))
+					{
+						if (len==NIL) len=VSIZEBIN(q)-start; else len=VALTOINT(len);
+						AudioWav2adp(VSTARTBIN(p),index,VSIZEBIN(p),VSTARTBIN(q),start,VSIZEBIN(q),len);
+					}
+				}
+				break;
+			case OPalaw2wav:
+				{
+					int mu=VALTOINT(VPULL());
+					int len=VPULL();
+					int start=VALTOINT(VPULL());
+					int q=VALTOPNT(VPULL());
+					int index=VALTOINT(VPULL());
+					int p=VALTOPNT(VSTACKGET(0));
+					if ((p!=NIL)&&(q!=NIL))
+					{
+						if (len==NIL) len=VSIZEBIN(q)-start; else len=VALTOINT(len);
+						AudioAlaw2wav(VSTARTBIN(p),index,VSIZEBIN(p),VSTARTBIN(q),start,VSIZEBIN(q),len,mu);
+					}
+				}
+				break;
+			case OPwav2alaw:
+				{
+					int mu=VALTOINT(VPULL());
+					int len=VPULL();
+					int start=VALTOINT(VPULL());
+					int q=VALTOPNT(VPULL());
+					int index=VALTOINT(VPULL());
+					int p=VALTOPNT(VSTACKGET(0));
+					if ((p!=NIL)&&(q!=NIL))
+					{
+						if (len==NIL) len=VSIZEBIN(q)-start; else len=VALTOINT(len);
+						AudioWav2alaw(VSTARTBIN(p),index,VSIZEBIN(p),VSTARTBIN(q),start,VSIZEBIN(q),len,mu);
+					}
+				}
+				break;
+			case OPnetPmk:
+				{
+					int key=VALTOPNT(VPULL());
+					int ssid=VALTOPNT(VPULL());
+					if ((key==NIL)||(ssid==NIL)) VPUSH(NIL);
+					else
+					{
+						char pmk[32];
+						netPmk(VSTARTBIN(ssid),VSTARTBIN(key),pmk);
+						VPUSH(PNTTOVAL(VMALLOCSTR(pmk,32)));
+					}
+				}
+				break;
+			case OPflashFirmware:
+				{
+					int w=VALTOINT(VPULL());
+					int v=VALTOINT(VPULL());
+					int firmware=VALTOPNT(VSTACKGET(0));
+					consolestr("flash firmware ");
+					consolehx(v);
+					consolestr(".");
+					consolehx(w);
+					consolestr("\n");
+					if ((firmware!=NIL)&&(v==0x13fb6754)&&(w==0x0407FE58))
+					{
+						consolestr("************FLASH AND REBOOT NOW");
+						sysFlash(VSTARTBIN(firmware),VSIZEBIN(firmware));
+					}
+				}
+				break;
+			case OPcrypt:
+				{
+					int alpha=VALTOINT(VPULL());
+					int key=VALTOINT(VPULL());
+					int len=VPULL();
+					int index=VALTOINT(VPULL());
+					int p=VALTOPNT(VSTACKGET(0));
+					if (p!=NIL)
+					{
+						if (len==NIL) len=VSIZEBIN(p)-index; else len=VALTOINT(len);
+						VSTACKSET(0,INTTOVAL(sysCrypt(VSTARTBIN(p),index,len,VSIZEBIN(p),key,alpha)));
+					}
+					else VSTACKSET(0,NIL);
+				}
+				break;
+			case OPuncrypt:
+				{
+					int alpha=VALTOINT(VPULL());
+					int key=VALTOINT(VPULL());
+					int len=VPULL();
+					int index=VALTOINT(VPULL());
+					int p=VALTOPNT(VSTACKGET(0));
+					if (p!=NIL)
+					{
+						if (len==NIL) len=VSIZEBIN(p)-index; else len=VALTOINT(len);
+						VSTACKSET(0,INTTOVAL(sysUncrypt(VSTARTBIN(p),index,len,VSIZEBIN(p),key,alpha)));
+					}
+					else VSTACKSET(0,NIL);
+				}
+				break;
+			case OPnetRssi:
+				VPUSH(INTTOVAL(netRssi()));
+				break;
+			default:
+				consolestr("unknown opcode ");consoleint(op);
+				consolestr(" at ");consoleint(pc-1);consolestr("\n");
+				//                                dump(bytecode,256);
+				return;
+			}
+			/*                        if (bytecode[8]==0x48)
+			{
+			consolestr("bytecode erase ");consoleint(op);
+			consolestr(" at ");consoleint(pc-1);consolestr("\n");
+			dump(bytecode,256);
+			}
+			*/		}while(cont);
+			currentop=-1;
+			if (callstack>0)return;
+			if(pc>=0)
+			{
+				//			vmemDumpStack();
+				//			displaybc(pc);
+				
+				//			getchar();
+			}
+			op=255&bytecode[pc++];
+	}
+}