/*
	memwriter.js
	blah 2018

	This will take a machine state and enter it into Důvěřivý. It should be run
	in Reasoning Realm.

	Enter the assembled program into the inputprog variable below, between the
	quotation marks:
*/
inputprog="";
/*
	Then go into Reasoning Realm and run the entire script; I would do this by
	pressing ctrl+shift+K and entering it into the console. That might not work
	on all browsers.

	Also, you have to use it right at the beginning of a CPU cycle; I'd
	recommend using it after loading the computer, before running it at all.
*/

savecode = inputprog.split(",");
for(iat=0;iat<savecode.length;iat++){
	currentSection = savecode[iat].split("=");
	if(currentSection[0]=="ram"){
		bytes=currentSection[1].split(' ');
		for(xat=0;xat<256;xat++){
			for(yat=0;yat<8;yat++){
				putCell(47+(xat*3),3+(yat*10),1);
			}
		}
		locat=0;
		for(ind=0;ind<bytes.length;ind++){
			if(bytes[ind].length==3){
				locat=parseInt(bytes[ind].substr(0,2),16)-1;
			} else {
				bytes[ind]=("00000000" + parseInt(bytes[ind],16).toString(2)).substr(-8,8);
				for(bat=0;bat<8;bat++){
					newCell = 2;
					if(bytes[ind].charAt(bat)=='0'){newCell=1}
					putCell(47+(locat*3),3+(bat*10),newCell);
				}
			}
			locat++;
		}
	} else if(currentSection[0]=="pc"){
		currentSection[1]=("00000000" + parseInt(currentSection[1],16).toString(2)).substr(-8,8).split("").reverse().join("");
		newCell = 2;
		if(currentSection[1].charAt(0)=='0'){newCell=1}
		putCell(20,210,newCell);
		for(bat=1;bat<8;bat++){
			newCell = 2;
			if(currentSection[1].charAt(bat)=='0'){newCell=1}
			putCell(20+(bat*2),208+(bat*4),newCell);
		}
	} else if(currentSection[0]=="flag"){
		if(currentSection[1] == "1"){
			putCell(315,365,9);
			putCell(316,365,1);
			putCell(315,366,4);
			putCell(316,366,10);
			putCell(315,367,2);
			putCell(316,367,3);
			putCell(316,372,2);
		} else {
			putCell(315,365,3);
			putCell(316,365,2);
			putCell(315,366,10);
			putCell(316,366,4);
			putCell(315,367,1);
			putCell(316,367,9);
			putCell(316,372,1);
		}
	} else if(currentSection[0]=="vram"){
		bytes=currentSection[1].split(' ');
		for(rowat=0;rowat<8;rowat++){
			bytes[rowat]=("00000000" + parseInt(bytes[rowat],16).toString(2)).substr(-8,8);
			for(colat=0;colat<8;colat++){
				newCell=2;
				if(bytes[rowat].charAt(colat)=='0'){
					newCell=1;
				}
				putCell(482+(colat*39),152+(rowat*35),newCell);
			}
		}
	}
}