ibnjs

ibniz.js (24916B)

/* This program is free software. It comes without any warranty, to
 * the extent permitted by applicable law. You can redistribute it
 * and/or modify it under the terms of the Do What The Fuck You Want
 * To Public License, Version 2, as published by Sam Hocevar. See
 * http://sam.zoy.org/wtfpl/COPYING for more details. */
Array.prototype.clear = function(){
	this.length=0;
}
Array.prototype.exchange = function(){
	if(this.length<2) return -1;
	var temp = this[this.length-1];
	this[this.length-1]=this[this.length-2];
	this[this.length-2]=temp;
}
Array.prototype.trirot = function(){
	if(this.length<3) return -1;
	var temp = this[this.length-1];
	this[this.length-1]=this[this.length-3];
	this[this.length-3]=this[this.length-2];
	this[this.length-2]=temp;
}
Array.prototype.trirot2 = function(){
	if(this.length<3) return -1;
	var temp = this[this.length-2];
	this[this.length-2]=this[this.length-3];
	this[this.length-3]=this[this.length-1];
	this[this.length-1]=temp;
}
Array.prototype.get = function(addr) {
	return this[addr];
}
Array.prototype.gettop = function(addr) {
	return this[this.length-1+addr];
}
Array.prototype.put = function(addr,v) {
	this[addr]=v|0;
}
Array.prototype.puttop = function(addr,v) {
	this[this.length-1+addr]=v|0;
}
Array.prototype.dup = function(){
	this.push(this[this.length-1]);
}
Array.prototype.dpush = function(v){
	this.push(v|0);
}
function Parser(simpleGetPut,useAudio)
{
	this.code = "";
	this.parsedCode = new Array();
	this.ip = 0;
	this.t = 0;
	this.x = 0;
	this.y = 0;
	this.xy = 0;
	this.mode = 0;
	this.terminate = 0;
	this.stackmode = 0;
	this.videoout = 0;
	this.audioout = 0;
	this.stacka = new Array();
	this.rstacka = new Array();
	this.mem = new Array(1048576);
	// 0xC8000-0xCFFFF - return stacks
	// 0xD0000-0xFFFFF - stacks
	this.shl = function(a,b){
		var steps = (a>>16)&63;
		return steps<32 ? b<<steps : b>>(steps-32);
	}
	this.rol = function(a,b){
		var steps = (a>>16)&31;
		return ((b<<steps)|(b>>>(32-steps)));
	}
	this.ror = function(a,b){
		var steps = (a>>16)&31;
		return ((b>>>steps)|(b<<(32-steps)));
	}
	this.config = function(simpleGetPut,useAudio,recalcAudio)
	{
		this.useAudio=useAudio;
		this.recalcAudio=recalcAudio;
		if(simpleGetPut)
		{
			this.get = function(addr) { return this.mem[addr]; }
			this.put = function(addr,val) { this.mem[addr]=val; }
		}
		else
		{
			this.get = function(addr,val){
				switch(addr>>15)
				{
					case 0:
					case 1:
					case 2:
					case 3:
					case 4:
					case 5:
					case 6:
					case 7:
					case 8:
					case 9:
					case 10:
					case 11:
					case 12:
					case 13:
					case 14:
					case 15:
					case 16:
					case 17:
					case 18:
					case 19:
					case 20:
					case 21:
					case 22:
					case 23:
					case 24:
						return this.mem[addr];
						break;
					case 25:
						return this.rstacka[addr&0x3FFF];
						break;
					case 26:
					case 27:
						return this.stacka[addr&0xFFFF];
						break;
					case 28:
					case 29:
					case 30:
					case 31:
						return this.stacka[addr&0x1FFFF];
						break;
				}
			}
			this.put = function(addr,val){
				switch(addr>>15)
				{
					case 0:
					case 1:
					case 2:
					case 3:
					case 4:
					case 5:
					case 6:
					case 7:
					case 8:
					case 9:
					case 10:
					case 11:
					case 12:
					case 13:
					case 14:
					case 15:
					case 16:
					case 17:
					case 18:
					case 19:
					case 20:
					case 21:
					case 22:
					case 23:
					case 24:
						this.mem[addr] = val;
						break;
					case 25:
						this.rstacka.put(addr&0x3FFF,val);
						break;
					case 26:
					case 27:
						this.stacka.put(addr&0xFFFF,val);
						break;
					case 28:
					case 29:
					case 30:
					case 31:
						this.stacka.put(addr&0x1FFFF,val);
						break;
				}
			}
		}
	}
	this.config(simpleGetPut,useAudio);
	this.load = function(c)
	{
		this.code=c;
		this.parsedCode = new Array();
		this.compile();
		this.configureStackmode();
	}
	this.rol16 = function(b){
		return ((b<<16)|(b>>>16));
	}
	this.compiledpm = function(x,y){}
	this.pm0 = function() { this.stacka.push(this.t<<16,0,0); };
	this.pushmedia = function(x,y)
	{
		if(this.mode==0) this.compiledpm(x,y);
		else this.stacka.push(this.t<<16 | (y<<8) | x);
	}
	this.pmaudio = function(x,y)
	{
		this.stacka.push(this.t*65536 + (y<<8) + x);
	}
	this.compilepushmedia = function()
	{
		switch(this.stackmode)
		{
			case 0:
				this.compiledpm = function(x,y) { this.stacka.push(this.t<<16,(y<<9)-65536,(x<<9)-65536); };
				break;
			case 1:
				this.compiledpm = function(x,y) { this.stacka.push(this.t<<16 | (y<<8) | x); };
				break;
		}
	}
	this.run = function(x,y)
	{
		// reset the machine
		this.mode = 0;
		this.terminate = 0;
		this.stacka.length=0;
		this.ip = 0;
		// push media context
		this.compiledpm(x,y);
		// loop
		this.mediaSwitch=true;
		this.exec(x,y);
		if(this.mode==0)
		{
			// run audio, too
			this.videoout = this.stacka.pop();
			if((this.useFFAudio || this.useChromeAudio) && this.useAudio) 
			{
				if(this.stackmode==1 && !this.recalcAudio)
					this.audioout=this.videoout; // same stack data, skip the processing bulk
				else if((x%128)==0 && this.recalcAudio)
				{
					this.mode=1;
					this.terminate = 0;
					this.stacka.length=0;
					this.ip = 0;
					this.pmaudio(x,y);
					this.exec(x,y);
				}
			}
		}
		if((this.useFFAudio || this.useChromeAudio) && this.useAudio && this.mode==1) this.audioout = this.stacka.pop();
	}
	this.isLimm = function(ci)
	{
		// is 0-9? A-F? .?
		return ((ci>=48 && ci<=57) || (ci>=65 && ci<=70) || (ci==46));
	}
	this.isImmop = function(ci)
	{
		return ((ci>=112 && ci<=115)||ci==43||ci==45||ci==42||ci==47||ci==37||ci==38||ci==124||ci==94||ci==108||ci==126||ci==97||ci==100||ci==40||ci==41||ci==74||ci==33||ci==64||ci==86||ci==88||ci==80||ci==123);
	}
	this.isOpcode = function(ci)
	{
		return (this.isImmop(ci) || this.isLimm(ci) || ci==77||(ci>=118&&ci<=120)||ci==63||ci==58||ci==59||ci==82||ci==84||ci==105||ci==106||ci==91||ci==93||ci==76||ci==125);
	}
	this.parse = function()
	{
		var i = 0;
		var j = 0;
		while(i<this.code.length)
		{
			var a = this.code[i].charCodeAt(0);
			if(this.isLimm(a))
			{
				// Loadimm!
				var imm1 = 0; // number
				var imm2 = 0; // fraction
				var imm2_c = 12;
				var mode = 0; // number/fraction time?
				while(this.isLimm(a) && i<this.code.length)
				{
					if(a==46) mode=1; // dot, time to switch modes!
					else {
						if(mode==0)
						{
							if(a>=48 && a<=57) imm1=(imm1<<4)|(a-48); // number, 0-9
							else imm1=(imm1<<4)|(a-55); // fraction, A-F
						}
						else if(imm2_c>0)
						{
							if(a>=48 && a<=57) imm2=imm2|((a-48)<<imm2_c); // fraction, 0-9
							else imm2=imm2|((a-55)<<imm2_c); // fraction, A-F
							imm2_c-=4;
						}
					}
					i++; // increment IP
					if(i<this.code.length) a = this.code[i].charCodeAt(0); // char->int (checks for ip overrun)
				}
				if(i<this.code.length) a = this.code[i].charCodeAt(0);
				else a=0;
				var out = ((imm1&65535)<<16)|(imm2&65535);
				if(this.isImmop(a))
				{
					switch(a)
					{
						case 115:
							this.parsedCode[j] = new Array(2,Math.sin(out*(Math.PI/32768))*65536); 
							break;
						case 113:
							this.parsedCode[j] = new Array(2,0 > out ? 0 : 65536 * Math.sqrt(out / 65536)); 
							break;
						case 126:
							this.parsedCode[j] = new Array(2,~out); 
							break;
						case 123:
							this.parsedCode[j] = new Array(5,this.rol16(out)&1048575,123,0);
							break;
						case 40:
						case 41:
							this.parsedCode[j] = new Array(3,0-this.rol16(out),a);
							break;
						case 74:
						case 86:
							this.parsedCode[j] = new Array(3,this.rol16(out),a);
							break;
						case 64:
							var addr = this.rol16(out)&1048575;
							if(addr<0xC8000) this.parsedCode[j] = new Array(3,addr,128);
							else this.parsedCode[j] = new Array(3,addr,a);
							break;
						case 33:
							var addr = this.rol16(out)&1048575;
							if(addr<0xC8000) this.parsedCode[j] = new Array(3,addr,129);
							else this.parsedCode[j] = new Array(3,addr,a);
							break;
						default:
							this.parsedCode[j] = new Array(3,out,a);
							break;
					}
					i++;
				}
				else this.parsedCode[j] = new Array(2,out);
				j++;
			}
			else if(this.isOpcode(a))
			{
				switch(a)
				{
					case 125:
						var t = j;
						var chr = 0;
						while(chr!=123 && t>=0)
						{
							t--;
							if(this.parsedCode[t] && this.parsedCode[t][0]==1) chr = this.parsedCode[t][1];
							else if(this.parsedCode[t] && this.parsedCode[t][0]==5) chr = this.parsedCode[t][2];
						}
						if(t>=0)
						{
							if(this.parsedCode[t] && this.parsedCode[t][0]==5)
								this.parsedCode[t] = new Array(5,this.parsedCode[t][1],chr,j);
							else this.parsedCode[t] = new Array(4,chr,j);
						}
						this.parsedCode[j] = new Array(1,a);
						break;
					case 58:
						var t = j;
						var chr = 0;
						while(chr!=63 && t>=0)
						{
							t--;
							if(this.parsedCode[t] && this.parsedCode[t][0]==1) chr = this.parsedCode[t][1];
						}
						if(t>=0) this.parsedCode[t] = new Array(4,chr,j);
						this.parsedCode[j] = new Array(1,a);
						break;
					case 59:
						var t = j;
						var chr = 0;
						while(chr!=58 && t>=0)
						{
							t--;
							if(this.parsedCode[t] && this.parsedCode[t][0]==1) chr = this.parsedCode[t][1];
						}
						if(t>=0) this.parsedCode[t] = new Array(4,chr,j);
						this.parsedCode[j] = new Array(1,a);
						break;
					case 118:
						this.parsedCode[j] = new Array(1,a);
						if(i+1<this.code.length)
						{
							var b = this.code[i+1].charCodeAt(0);
							if(b==118)
							{
								this.parsedCode[j] = new Array(1,128);
								i++;
							}
						}
						break;
					default:
						this.parsedCode[j] = new Array(1,a);
						break;
				}
				i++;
				j++;
			}
			else i++;
		}
	}
	this.compile = function()
	{
// TODO: fix parse ip settings
/*
		var i = 0;
		var oldCode = this.code;
		this.evals = new Array();
		this.evals[0] = function(){};
		while(i<oldCode.length)
		{
			this.parse();
			this.evaluate();
			this.evals[i] = this.evalCode;
			this.code = this.code.substr(1);
			this.parsedCode = new Array();
			i++;
		}
*/
		var i = 0;
		var oldCode = this.parsedCode;
		this.parse();
		this.evals = new Array();
		this.evals[0] = function(){};
		while(i<oldCode.length)
		{
			this.evaluate(i);
			this.evals[i] = this.evalCode;
			//this.parsedCode = this.parsedCode.slice(1);
			i++;
		}
		this.parsedCode = oldCode;
	}
	this.evalRol16 = function(a)
	{
		return "((" + a + "<<16)|(" + a + ">>>16))";
	}
	this.evaluate = function(startIP)
	{
		var tempCode = "";
		var cmd;
		var a;
		tempCode += "var a; var stacka = me.stacka; var steps;";
		for(this.ip=startIP; this.ip<this.parsedCode.length; this.ip++)
		{
			cmd = this.parsedCode[this.ip];
			switch(cmd[0])
			{
				case 1: // op
					switch(cmd[1])
					{
						// Math!
						case 43:
							tempCode += "stacka.push((stacka.pop()+stacka.pop())|0);";
							break;
						case 45:
							tempCode += "a = stacka.pop(); stacka.push((stacka.pop()-a)|0);";
							break;
						case 42:
							tempCode += "stacka.push((stacka.pop()*stacka.pop()/65536)|0);";
							break;
						case 47:
							tempCode += "a = stacka.pop(); stacka.push((stacka.pop()*65536/a)|0);";
							break;
						case 37:
							tempCode += "a = stacka.pop(); stacka.push(stacka.pop()%a);";
							break;
						case 38:
							tempCode += "stacka.push(stacka.pop()&stacka.pop());";
							break;
						case 124:
							tempCode += "stacka.push(stacka.pop()|stacka.pop());";
							break;
						case 94:
							tempCode += "stacka.push(stacka.pop()^stacka.pop());";
							break;
						case 108:
							tempCode += "steps = (stacka.pop()>>16)&63; a = stacka.pop(); stacka.push(steps<32 ? a<<steps : a>>(steps-32));";
							break;
						case 114:
							tempCode += "steps = (stacka.pop()>>16)&31; a = stacka.pop(); stacka.push((a>>>steps)|(a<<(32-steps)));";
							break;
						case 97:
							tempCode += "stacka.push((Math.atan2(stacka.pop(),stacka.pop())*"+(65536/(2*Math.PI))+")|0);";
							break;
						case 115:
							tempCode += "stacka.push((Math.sin(stacka.pop()*"+(2*Math.PI/65536)+")*65536)|0);";
							break;
						case 113:
							tempCode += "a = stacka.pop(); stacka.push(0 > a ? 0 : (65536 * Math.sqrt(a / 65536))|0);";
							break;
						case 60:
							tempCode += "a = stacka.pop(); stacka.push(0 > a ? a : 0);";
							break;
						case 62:
							tempCode += "a = stacka.pop(); stacka.push(0 < a ? a : 0);";
							break;
						case 61:
							tempCode += "stacka.push(stacka.pop()==0);";
							break;
						case 126:
							tempCode += "stacka.push(~stacka.pop());";
							break;
						// Exterior!
						case 77: // media context switch
							tempCode += "if(!me.mediaSwitch || !me.useAudio) return -15498; ";
							tempCode += "else{me.mode=1; me.videoout = stacka.pop(); stacka.length=0;";
							tempCode +=	"me.pmaudio(x,y);}";
							break;
						case 119: // where am I? well, where are you
							tempCode +=	"me.pushmedia(x,y);";
							break;
						case 84:
							tempCode +=	"return -15498;";
							break;
						// Stack!
						case 100:
							tempCode +=	"stacka.dup();";
							break;
						case 120:
							tempCode +=	"stacka.exchange();";
							break;
						case 118:
							tempCode +=	"stacka.trirot();";
							break;
						case 112:
							tempCode +=	"stacka.pop();";
							break;
						case 41:
							tempCode +=	"stacka.push(stacka.gettop(0-me.rol16(stacka.pop())));";
							break;
						case 40:
							tempCode +=	"a = 0-me.rol16(stacka.pop()); stacka.puttop(a,stacka.pop());";
							break;
						// Memory!
						case 64:
							tempCode +=	"stacka.push(me.get(me.rol16(stacka.pop())&1048575));";
							break;
						case 33:
							tempCode +=	"a = me.rol16(stacka.pop()); me.put(a&1048575,stacka.pop());";
							break;
						// Return stack manipulation	
						case 82:
							tempCode +=	"stacka.push(me.rstacka.pop());";
							break;
						case 80:
							tempCode +=	"me.rstacka.push(stacka.pop());";
							break;
						// Loops
						case 105:
							tempCode +=	"stacka.push(me.rstacka.gettop(-1));";
							break;
						case 106:
							tempCode +=	"stacka.push(me.rstacka.gettop(-3));";
							break;
						case 74:
							tempCode +=	"return me.rol16(stacka.pop())-1;";
							break;
						case 91:
							tempCode +=	"me.rstacka.push("+this.rol16(this.ip+1)+");";
							break;
						case 93:
							tempCode +=	"if(stacka.pop()!=0) return me.rol16(me.rstacka.gettop(0))-1; ";
							tempCode += "else me.rstacka.pop();";
							break;
						case 88:
							tempCode += "me.rstacka.push(stacka.pop());";
							tempCode += "me.rstacka.push("+this.rol16(this.ip+1)+");";
							break;
						case 76:
							tempCode +=	"a=me.rstacka.gettop(-1)-(1<<16);";
							tempCode +=	"me.rstacka.puttop(-1,a);";
							tempCode +=	"if(a) return me.rol16(me.rstacka.gettop(0))-1;";
							tempCode +=	"else { me.rstacka.pop(); me.rstacka.pop(); }";
							break;
						// Subroutines
						case 125:
							tempCode +=	"return me.rol16(me.rstacka.pop())-1;";
							break;
						case 86:
							tempCode += "me.rstacka.push("+this.rol16(this.ip+1)+");";
							tempCode += "return me.rol16(me.get(me.rol16(stacka.pop())&1048575))-1;";
							break;
						// Special
						case 128: // Double trirot
							tempCode += "stacka.trirot2();";
							break;
						default:
							break;
					}
					break;
				case 5: // imm+op+nextip
					switch(cmd[2])
					{
						case 123:
							tempCode += "me.put(" + cmd[1] + ","+this.rol16(this.ip+1)+");";
							this.ip=cmd[3];
							break;
					}
					break;
				case 4: // op+nextip
					switch(cmd[1])
					{
						case 123:
							tempCode += "me.put(me.rol16(stacka.pop())&1048575,"+this.rol16(this.ip+1)+");";
							this.ip=cmd[2];
							break;
						case 63:
							tempCode += "if(stacka.pop()==0) return " + cmd[2] + ";";
							break;
						case 58:
							this.ip=cmd[2];
							break;
					}
					break;
				case 3: // imm+op
					switch(cmd[2])
					{
						case 43:
							tempCode += "stacka.push(("+cmd[1]+"+stacka.pop())|0);";
							break;
						case 45:
							tempCode += "stacka.push((stacka.pop()-"+cmd[1]+")|0);";
							break;
						case 42:
							tempCode += "stacka.push((("+cmd[1]+"*stacka.pop())/65536)|0);";
							break;
						case 47:
							tempCode += "stacka.push(((stacka.pop()*65536)/"+cmd[1]+")|0);"; 
							break;
						case 37:
							tempCode += "stacka.push(stacka.pop()%"+cmd[1]+");";
							break;
						case 38:
							tempCode += "stacka.push("+cmd[1]+"&stacka.pop());";
							break;
						case 124:
							tempCode += "stacka.push("+cmd[1]+"|stacka.pop());"; 
							break;
						case 94:
							tempCode += "stacka.push("+cmd[1]+"^stacka.pop());";
							break;
						case 108:
							tempCode += "stacka.push(me.shl("+cmd[1]+",stacka.pop()));";
							break;
						case 114:
							tempCode += "stacka.push(me.ror("+cmd[1]+",stacka.pop()));"; 
							break;
						/*
						case 108:
							tempCode += "steps = "+((cmd[1]>>16)&63)+"; a = stacka.pop(); stacka.push(steps<32 ? a<<steps : a>>(steps-32));";
							break;
						case 114:
							tempCode += "steps = "+((cmd[1]>>16)&31)+"; a = stacka.pop(); stacka.push((a>>>steps)|(a<<(32-steps)));";
						*/
							break;
						case 97:
							tempCode += "stacka.push((Math.atan2("+cmd[1]+",stacka.pop())*"+(65536/(2*Math.PI))+")|0);"; 
							break;
						case 115:
							tempCode += "stacka.push("+((Math.sin(cmd[1]*(Math.PI/32768))*65536)|0)+");"; 
							break;
						case 113:
							tempCode += "stacka.push("+(0 > cmd[1] ? 0 : (65536 * Math.sqrt(cmd[1] / 65536))|0)+");";
							break;
						case 126:
							tempCode += "stacka.push("+(~cmd[1])+");"; 
							break;
						case 100:
							tempCode += "stacka.push("+cmd[1]+","+cmd[1]+");";
							break;
						case 40:
							tempCode += "stacka.puttop("+cmd[1]+",stacka.pop());";
							break;
						case 41:
							tempCode += "stacka.push(stacka.gettop("+cmd[1]+"));";
							break;
						case 74:
							tempCode += "return "+cmd[1]+";";
							break;
						case 64:
							tempCode += "stacka.push(me.get("+cmd[1]+"));";
							break;
						case 33:
							tempCode += "me.put("+cmd[1]+",stacka.pop());";
							break;
						case 86:
							tempCode += "me.rstacka.push("+this.rol16(this.ip+1)+");";
							tempCode += "return me.rol16(me.get("+cmd[1]+"))-1;";
							break;
						case 88:
							tempCode += "me.rstacka.push("+cmd[1]+");";
							tempCode += "me.rstacka.push("+this.rol16(this.ip+1)+");";
							break;
						case 80:
							tempCode += "me.rstacka.push("+cmd[1]+");";
							break;
						case 112:
							break;
						// special
						case 128: // direct load
							tempCode += "stacka.push(me.mem["+cmd[1]+"]);";
							break;
						case 129: // direct store
							tempCode += "me.mem["+cmd[1]+"]=stacka.pop();";
							break;
					}
					break;
				case 2: // imm
					tempCode += "stacka.push("+cmd[1]+");";
					break;
				default:
					break;
			}
		}
		eval("this.evalCode = function(me,x,y) {" + tempCode + " return -15498;};");
	}
	this.mediaSwitch=true;
	this.configureStackmode = function()
	{
		// reset the machine
		this.mode = 0;
		this.stackmode = 0;
		this.terminate = 0;
		this.stacka.length=0;
		this.ip = 0;
		// push media context
		this.pm0();
		// loop
		this.mediaSwitch=false;
		this.exec(0,0);
		if(this.stacka.length>1) this.stackmode = 1;
		this.compilepushmedia();
	}
	this.getOp = function(ip)
	{
		var cmd = this.parsedCode[this.ip];
		if(cmd[0]==1 || cmd[0]==4) return cmd[1];
		else if(cmd[0]==3) return cmd[2];
		else return 0;
	}
	this.exec = function(x,y)
	{
		while(this.ip>=0 && this.ip<this.parsedCode.length)
			this.ip = this.evals[this.ip](this,x,y)+1;
	}
	this.useFFAudio = false;
	this.useChromeAudio = false;
	this.recalcAudio = false;
	this.buffer = new Array(512);
	if(typeof Audio !== 'undefined')
	{
		this.audioOut = new Audio();
		if(this.audioOut.mozSetup)
		{
			this.audioOut.mozSetup(1,512*60);
			this.useFFAudio = true;
			this.buffer = new Float32Array(512);
		}
	}
	if(typeof AudioContext !== 'undefined')
	{
		this.audioCtx = new AudioContext();
		this.audioSR = this.audioCtx.sampleRate/60;
		this.useChromeAudio = true;
		this.buffer = new Float32Array(512);
	}
	this.render = function(c)
	{
		var idd = c.createImageData(256,256);
		var id = idd.data;
		var imgpos = 0;
		var cy = 0;
		var cu = 0;
		var cv = 0;
		for(var y=0;y<256;y++)
		{
			for(var x=0;x<256;x++)
			{
				this.run(x,y);
				cy = (p.videoout>>>8)&255;
				cu = (((p.videoout>>>16)&255)^0x80)-128;
				cv = ((p.videoout>>>24)^0x80)-128;
				id[imgpos++] = (298*cy + 409*cv + 128)>>8;
				id[imgpos++] = (298*cy - 100*cu - 208*cv + 128)>>8;
				id[imgpos++] = (298*cy + 516*cu + 128)>>8;
				id[imgpos++] = 255;
				this.buffer[(y<<1)] = (((this.audioout&65535)^32768)-32768)/32768;
			}
		}
		c.putImageData(idd,0,0);
		this.renderAudio();
	}
	this.render2 = function(c)
	{
		var idd = c.createImageData(128,128);
		var id = idd.data;
		var imgpos = 0;
		var cy = 0;
		var cu = 0;
		var cv = 0;
		for(var y=0;y<256;y+=2)
		{
			for(var x=0;x<256;x+=2)
			{
				this.run(x,y);
				cy = (p.videoout>>>8)&255;
				cu = (((p.videoout>>>16)&255)^0x80)-128;
				cv = ((p.videoout>>>24)^0x80)-128;
				id[imgpos++] = (298*cy + 409*cv + 128)>>8;
				id[imgpos++] = (298*cy - 100*cu - 208*cv + 128)>>8;
				id[imgpos++] = (298*cy + 516*cu + 128)>>8;
				id[imgpos++] = 255;
				this.buffer[(y<<1)] = (((this.audioout&65535)^32768)-32768)/32768;
			}
		}
		c.putImageData(idd,0,0);
		this.renderAudio();
	}
	this.renderAudio = function()
	{
		if(this.useFFAudio) this.audioOut.mozWriteAudio(this.buffer);
		else if(this.useChromeAudio)
		{
			if(this.audioOut.noteOff) this.audioOut.noteOff(0);
			this.fixbuffer = new Float32Array(this.audioSR);
			for(var i=0;i<this.audioSR;i++)
			{
				var t1 = i*512/this.audioSR;
				var t2 = t1-Math.floor(t1);
				this.fixbuffer[i]=this.buffer[Math.floor(t1)]*(1-t2)+this.buffer[Math.ceil(t1)]*t2;
			}
			this.aBuffer = this.audioCtx.createBuffer(1,this.audioSR,this.audioSR*60);
			this.aBuffer.getChannelData(0).set(this.fixbuffer);
			this.audioOut = this.audioCtx.createBufferSource();
			this.audioOut.buffer=this.aBuffer;
			this.audioOut.connect(this.audioCtx.destination);
			if(this.audioOut.noteOn) this.audioOut.noteOn(0);
			this.audioOut.loop = true;
		}
	}
	this.delayAudio = function(a)
	{
		if(this.useFFAudio) for(var b=0; b<a; b++) this.audioOut.mozWriteAudio(this.buffer);
	}
}
var p = new Parser(false,false);
var oldloop = new Date;
var cc = document.getElementById("ibniz");
var c = cc.getContext("2d");
var runningCode = " ";
p.load(runningCode);
p.t=0;
var codeEdit = document.getElementById("code");
var fpsField = document.getElementById("fps");
var tField = document.getElementById("t");
var pause = document.getElementById("pause");
var simpleGetPut = document.getElementById("simpleGetPut");
var useAudio = document.getElementById("useAudio");
var recalcAudio = document.getElementById("recalcAudio");
var exampleApps = document.getElementById("example_apps");
var exampleAppID = -1;
var halfRes = document.getElementById("halfRes");
var cc2 = document.createElement("canvas");
cc2.width = 256;
cc2.height = 256;
var c2 = cc2.getContext("2d");
function derp()
{
	if(!pause.checked)
	{
		if(halfRes.checked)
		{
			p.render2(c2);
			c.drawImage(cc2,0,0,128,128,0,0,256,256);
		}
		else p.render(c);
		var newloop = new Date;
		var fps = 1000 / (newloop - oldloop);
		oldloop=newloop;
		p.t+=60/fps;
		p.delayAudio(Math.round(60/fps));
		p.configureStackmode();
		p.config(simpleGetPut.checked,useAudio.checked,recalcAudio.checked);
		//fpsField.childNodes[1].nodeValue=fps.toFixed(2) + " (about " + (fps*65536*p.parsedCode.length).toFixed(0) + " cycles)";
		fpsField.childNodes[1].nodeValue=fps.toFixed(2);
		tField.childNodes[1].nodeValue=p.t.toFixed(2);
		if(exampleApps.selectedIndex!=exampleAppID)
		{
			exampleAppID=exampleApps.selectedIndex;
			codeEdit.value = exampleApps.options[exampleAppID].value;
		}
		if(runningCode!=codeEdit.value)
		{
			p.t=0;
			runningCode=codeEdit.value;
			p.load(runningCode);
			console.log("NEW CODE LOADED");
		}
	}
	setTimeout("derp()",1); // give the browser time to not lag the whole computer
}
function loadFileURL()
{
	var url = prompt("Please input an URL","");
	var http = createRequestObject();
	function createRequestObject() { // http://www.openhosting.co.uk/articles/webdev/5899/
		var objAjax;
		var browser = navigator.appName;
		if(browser == "Microsoft Internet Explorer"){
			objAjax = new ActiveXObject("Microsoft.XMLHTTP");
		}else{
			objAjax = new XMLHttpRequest();
		}
		return objAjax;
	}
	function updateFileURL() {
		if(http.readyState == 4)
			codeEdit.value=http.responseText;
	}
	http.open('get',url);
	http.onreadystatechange = updateFileURL;
	http.send(null);
}
derp();