asm15output.js

function zero16(x) {
	x = x & 0xff;
	var p = x.toString(16).toUpperCase();
	p = "00".substr(0, 2 - p.length) + p;
	return p;
}
function zero2(x){
	var p=x.toString(2);
	p="00000000".substr(0,8-p.length)+p;
	return p;
}
function zero2w(x){
	var p=x.toString(2);
	p="0000000000000000".substr(0,16-p.length)+p;
	return p;
}
function m2b16(lines,outlist){
	var p,p0,p1;
	var bas="",i,line,out,nln;
	var skips={undefined:true,LABEL:true,COMMENT:true,NOTOPCODE:true};
	var lines2=[],linehex=[],lineadr=-1;

	nln=10;
	
	for(i=0; i<outlist.length; i++){
		out=outlist[i];
		l=out[0];
		a=out[1];
		p=out[2];
		line=lines[l];

		var flush = false;
		if(p==EMPTYLINE){
			continue;
		}else if(p===undefined||p===null||p===false||p>=NOTOPCODE){
			continue
		}else if(lineadr<0 || lineadr+linehex.length==a){
			if(lineadr<0){
				lineadr=a;
			}
			p0=p&0x0ff;
			p1=(p>>8)&0x0ff
			p0=zero16(p0);
			p1=zero16(p1);
			linehex.push("#"+p0);
			linehex.push("#"+p1);
		}else{
			flush = true;
			i--;
		}
		if(linehex.length>=8 || flush){
			lines2.push(""+nln.toString(10)+" POKE#"+lineadr.toString(16).toUpperCase()+
			","+linehex.join(","));
			linehex=[];
			nln+=10;
			lineadr=-1;
		}
	}
	if(linehex.length>0){
		lines2.push(""+nln.toString(10)+" POKE#"+lineadr.toString(16).toUpperCase()+
		","+linehex.join(","));
	}
	lines2.push("");

	bas=lines2.join("\n");
	return bas;
}
function m2b10(lines,outlist){
	var p,p0,p1;
	var bas="",i,line,out,nln;
	var skips={undefined:true,LABEL:true,COMMENT:true,NOTOPCODE:true};
	var lines2=[],linehex=[],lineadr=-1;

	nln = 10;
	
	for (i = 0; i < outlist.length; i++){
		out=outlist[i];
		l=out[0];
		a=out[1];
		p=out[2];
		line=lines[l];
		
		if (p==EMPTYLINE) {
			continue;
		} else if(p===undefined||p===null||p===false||p>=NOTOPCODE){
		 	continue
		} else {
			var flush = false;
			if(lineadr < 0 || lineadr+linehex.length==a){
				if (lineadr < 0) {
					lineadr = a;
				}
				p0 = p & 0x0ff;
				p1 = (p >> 8) & 0x0ff
				linehex.push(p0.toString(10));
				linehex.push(p1.toString(10));
			} else {
				flush = true;
				i--;
			}
			
			var ln = nln.toString(10) + " POKE#" + lineadr.toString(16).toUpperCase() + "," + linehex.join(",");
			if (ln.length > 200 - 8 || flush) {
//			if (linehex.length == 40) {
				lines2.push(ln);
				lineadr = -1;
				linehex=[];
				nln+=10;
			}
		}
	}
	if (linehex.length > 0) {
		lines2.push(nln.toString(10) + " POKE#" + lineadr.toString(16).toUpperCase() +","+linehex.join(","));
	}
	lines2.push("");

	bas=lines2.join("\n");
	return bas;
}
function m2b2(lines, outlist){
	var bas = "";
	var skips = { undefined: true, LABEL: true, COMMENT: true, NOTOPCODE:true };
	for (var i = 0; i < outlist.length; i++) {
		var out = outlist[i];
		var l = out[0];
		var a = out[1];
		var p = out[2];
		var line = lines[l];

		if (p==EMPTYLINE) {
			continue;
		} else if (p === undefined || p === null || p === false || p >= NOTOPCODE) {
			var nln = i * 10 + 10;
			bas += nln + "'" + line + "\n";
		} else {
			var p0 = p & 0x0ff;
			var p1 = (p >> 8) & 0x0ff;
			p0 = zero2(p0);
			p1 = zero2(p1);
			var nln = i * 10 + 10;
			bas += nln + " POKE#" + a.toString(16).toUpperCase() + ",`" + p0 + ",`" + p1+" :'" + line + "\n";
		}
	}
	return bas;
}
function m2bin(lines,outlist){
	var p,p0,p1;
	var bas="",i,line,out,nln;
	var skips={undefined:true,LABEL:true,COMMENT:true,NOTOPCODE:true};
	var paddr=-1;
	for(i=0; i<outlist.length; i++){
		out=outlist[i];
		l=out[0];
		a=out[1];
		p=out[2];
		line=lines[l];

		if(p==EMPTYLINE){
			continue;
		}else if(p===undefined||p===null||p===false||p>=NOTOPCODE){
		}else{
			if(paddr<0){
				paddr=a;
			} else if(paddr!=a){
				if ((a-paddr)%2!=0) {
					return "misalignment not supported in this format";
				}
				bas+="*** "+(a-paddr)+"-byte gap ***\n";
				paddr=a;
			}
			p0=p&0x0ff;
			p1=(p>>8)&0x0ff
			p0=zero2(p0);
			p1=zero2(p1);
			bas+=""+p1+p0+"\n";
			paddr+=2;
		}
	}
	return bas;
}
function m2ar2(lines,outlist){
	var p,p0,p1;
	var bas="",i,line,out,nln;
	var skips={undefined:true,LABEL:true,COMMENT:true,NOTOPCODE:true};
	var n = 0;
	var minaddr = 0;
	for (var i = 0; i < outlist.length; i++) {
		if (i == 0 || outlist[i][1] < minaddr) minaddr = outlist[i][1];
	}
	for (var i = 0; i < outlist.length; i++) {
		out=outlist[i];
		l=out[0];
		a=out[1];
		p=out[2];
		line=lines[l];

		if(p==EMPTYLINE){
			continue;
		} else if(p===undefined||p===null||p===false||p>=NOTOPCODE){
		} else {
			if ((a - minaddr) % 2 != 0) {
				return "misalignment not supported in this format";
			}
			n = (a - minaddr) >> 1;
//			bas += "[" + n + "]=`" + zero2w(p) + "\n";// + " '" + line + "\n";
			bas += "[" + n + "]=`" + zero2(p >> 8) + " " + zero2(p & 0xff) + " :'" + line + "\n";
		}
	}
	return bas;
}
function m2ar16(lines,outlist) {
	var p,p0,p1;
	var bas="",i,line,out;
	var skips={undefined:true,LABEL:true,COMMENT:true,NOTOPCODE:true};
	var n = 0;
	var linehex=[];
	var lineaddr = -1;
	var minaddr = 0;
	for (var i = 0; i < outlist.length; i++) {
		if (i == 0 || outlist[i][1] < minaddr) minaddr = outlist[i][1];
	}
	
	var limit = 30;
	var nln = 10;
	for (var i = 0; i < outlist.length; i++) {
		out=outlist[i];
		l=out[0];
		a=out[1];
		p=out[2];
		line=lines[l];

		if(p==EMPTYLINE) {
			continue;
		} else if(p===undefined||p===null||p===false||p>=NOTOPCODE){
		} else {
			var flush = false;
			if (lineaddr<0 || lineaddr+linehex.length*2==a){
				if (lineaddr<0) lineaddr=a;
				var hex = "000" + p.toString(16).toUpperCase();
				linehex.push("#" + hex.substring(hex.length - 4));
			} else {
				flush=true;
				i--;
			}
			
			if (linehex.length == limit || flush) {
				if ((lineaddr - minaddr) % 2 != 0) {
					return "misalignment not supported in this format";
				}
				n = (lineaddr - minaddr) >> 1;
				bas += nln + " LET[" + n + "]," + linehex.join(",") + "\n";
				nln += 10;
				linehex = [];
				lineaddr=-1;
			}
		}
	}
	if (linehex.length > 0) {
		if ((lineaddr - minaddr) % 2 != 0) {
			return "misalignment not supported in this format";
		}
		n = (lineaddr - minaddr) >> 1;
		bas += nln + " LET[" + n + "]," + linehex.join(",") + "\n";
	}
	return bas;
}
// from http://tagiyasoft.blog.jp/asm15.js
function m2js(lines,outlist){
	var p,p0,p1;
	var bas="",i,line,out;
	var skips={undefined:true,LABEL:true,COMMENT:true,NOTOPCODE:true};
	var lines2=[],linehex=[],lineadr=-1;
	var minaddr = 0;
	for (var i = 0; i < outlist.length; i++) {
		if (i == 0 || outlist[i][1] < minaddr) minaddr = outlist[i][1];
	}
	var supaddr = minaddr;
	
	for(i=0; i<outlist.length; i++){
		out=outlist[i];
		l=out[0];
		a=out[1];
		p=out[2];
		line=lines[l];

		var flush=false;
		if(p==EMPTYLINE){
			continue;
		}else if(p===undefined||p===null||p===false||p>=NOTOPCODE){
			continue
		}else if(lineadr<0 || lineadr+linehex.length==a){
			if(lineadr<0){
				lineadr=a;
			}
			p0=p&0x0ff;
			p1=(p>>8)&0x0ff
			linehex.push(p0);
			linehex.push(p1);
		}else {
			flush=true;
			i--;
		}
		if(linehex.length>=16 || flush){
			if (supaddr != lineadr) {
				lines2.push("\ta=a+"+(lineadr-supaddr));
			}
			lines2.push("\tmem(a,"
				+ linehex.join(",")
				+ ");a=a+"
				+ linehex.length
			);
			supaddr=lineadr+linehex.length;
			linehex=[];
			lineadr=-1;
		}
	}
	if (linehex.length>0) {
		if (supaddr != lineadr) {
			lines2.push("\ta=a+"+(lineadr-supaddr));
		}
		lines2.push("\tmem(a,"
			+ linehex.join(",")
//			+ ");a=a+"+ linehex.length
			+ ")"
		);

	}
	lines2.push("");

	bas = "function asm() {\n" 
		+ '\tvar a=mem(" ");\n'
		+ lines2.join( ";\n" )
		+ "\treturn mem();\n"
		+ "}\n";
	return bas;
}
// for C lang
function m2c(lines,outlist){
	var p,p0,p1;
	var bas="",i,line,out;
	var skips={undefined:true,LABEL:true,COMMENT:true,NOTOPCODE:true};
	var lines2=[],linehex=[],lineadr=-1;
	var minaddr = 0;
	for (var i = 0; i < outlist.length; i++) {
		if (i == 0 || outlist[i][1] < minaddr) minaddr = outlist[i][1];
	}
	var supaddr = minaddr;

	for (i=0; i<outlist.length; i++){
		out=outlist[i];
		l=out[0];
		a=out[1];
		p=out[2];
		line=lines[l];

		var flush=false;
		if(p==EMPTYLINE){
			continue;
		}else if(p===undefined||p===null||p===false||p>=NOTOPCODE){
			continue
		}else if(lineadr<0 || lineadr+linehex.length==a){
			if(lineadr<0){
				lineadr=a;
			}
			p0=p&0x0ff;
			p1=(p>>8)&0x0ff
			linehex.push("0x" + zero16(p0));
			linehex.push("0x" + zero16(p1));
		}else {
			flush=true;
			i--;
		}
		if(linehex.length>=16 || flush){
			var setaddr = "";
			if (lineadr != supaddr) setaddr = "[" + (lineadr - minaddr) + "] = ";
			lines2.push("\t" + setaddr + linehex.join(", ") + ",");
			supaddr = lineadr+linehex.length;
			linehex=[];
			lineadr=-1;
		}
	}
	if (linehex.length>0){
		var setaddr = "";
		if (lineadr != supaddr) setaddr = "[" + (lineadr - minaddr) + "] = ";
		lines2.push("\t" + setaddr + linehex.join(", "));
	}
	lines2.push("");

	bas = "__attribute__ ((aligned(2))) static const char ASM[] = {\n" 
		+ lines2.join("\n")
		+ "};\n";
	return bas;
}

// for hex file
function m2hex(lines,outlist){
	var p,p0,p1;
	var bas="",i,line,out;
	var skips={undefined:true,LABEL:true,COMMENT:true,NOTOPCODE:true};
	var lines2=[],linehex=[],lineadr=-1;
	
	var chk = 0;
	for (i=0; i<outlist.length; i++){
		out=outlist[i];
		l=out[0];
		a=out[1];
		p=out[2];
		line=lines[l];

		var flush=false;
		if(p==EMPTYLINE){
			continue;
		}else if(p===undefined||p===null||p===false||p>=NOTOPCODE){
			continue
		}else if(lineadr<0 || lineadr+linehex.length==a){
			if(lineadr<0){
				lineadr=a;
			}
			p0=p&0x0ff;
			p1=(p>>8)&0x0ff
			linehex.push(zero16(p0));
			linehex.push(zero16(p1));
			chk -= p0 + p1;
		}else {
			flush=true;
			i--;
		}
		if (linehex.length>=16 || flush){
			var ad1 = lineadr >> 8;
			var ad2 = lineadr & 0xff;
			chk -= linehex.length + ad1 + ad2;
			lines2.push(":" + zero16(linehex.length) + zero16(ad1) + zero16(ad2) + "00" + linehex.join("") + zero16(chk & 0xff));
			chk = 0;
			linehex=[];
			lineadr=-1;
		}
	}
	if (linehex.length > 0) {
		var ad1 = lineadr >> 8;
		var ad2 = lineadr & 0xff;
		chk -= linehex.length + ad1 + ad2;
		lines2.push(":" + zero16(linehex.length) + zero16(ad1) + zero16(ad2) + "00" + linehex.join("") + zero16(chk & 0xff));
	}
	lines2.push("");

	bas = lines2.join("\n") + ":00000001FF\n";
	return bas;
}

// for mot file
function m2mot(lines, outlist) {
	var p,p0,p1;
	var bas="",i,line,out;
	var skips={undefined:true,LABEL:true,COMMENT:true,NOTOPCODE:true};
	var lines2=[],linehex=[],lineadr=-1;
	var startadr = -1;
	
	var chk = 0;
	for (i = 0; i < outlist.length; i++) {
		out=outlist[i];
		l=out[0];
		a=out[1];
		p=out[2];
		line=lines[l];

		var flush=false;
		if (p==EMPTYLINE) {
			continue;
		} else if (p===undefined||p===null||p===false||p>=NOTOPCODE) {
			continue
		} else if(lineadr < 0 || lineadr+linehex.length==a){
			if (lineadr < 0) {
				if (startadr < 0)
					startadr = a;
				lineadr = a;
			}
			p0=p&0x0ff;
			p1=(p>>8)&0x0ff
			linehex.push(zero16(p0));
			linehex.push(zero16(p1));
			chk += p0 + p1;
		} else {
			flush=true;
			i--;
		}
		if (linehex.length >= 16 || flush) {
			var ad1 = (lineadr >> 24) & 0xff;
			var ad2 = (lineadr >> 16) & 0xff;
			var ad3 = (lineadr >> 8) & 0xff;
			var ad4 = lineadr & 0xff;
			chk += linehex.length + ad1 + ad2 + ad3 + ad4;
			var len = linehex.length + 5;
			lines2.push("S3" + zero16(len) + zero16(ad1) + zero16(ad2) + zero16(ad3) + zero16(ad4) + linehex.join("") + zero16(~chk));
			chk = 0;
			linehex=[];
			lineadr=-1;
		}
	}
	if (linehex.length > 0) {
		var ad1 = (lineadr >> 24) & 0xff;
		var ad2 = (lineadr >> 16) & 0xff;
		var ad3 = (lineadr >> 8) & 0xff;
		var ad4 = lineadr & 0xff;
		chk += linehex.length + ad1 + ad2 + ad3 + ad4;
		var len = linehex.length + 5;
		lines2.push("S3" + zero16(len) + zero16(ad1) + zero16(ad2) + zero16(ad3) + zero16(ad4) + linehex.join("") + zero16(~chk));
	}
	var ad1 = (startadr >> 24) & 0xff;
	var ad2 = (startadr >> 16) & 0xff;
	var ad3 = (startadr >> 8) & 0xff;
	var ad4 = startadr & 0xff;
	var chk = 4 + ad1 + ad2 + ad3 + ad4; // dummy
	lines2.push("S704" + zero16(ad1) + zero16(ad2) + zero16(ad3) + zero16(ad4) + zero16(~chk));
	lines2.push("");

	bas = lines2.join("\n");
	return bas;
}

var fmt_dict = {
	"bas2": m2b2, "bas16": m2b16, "bas10": m2b10, "basar2": m2ar2, "basar16": m2ar16, "bin": m2bin, "latte": m2js, "c": m2c, "hex": m2hex, "mot": m2mot
};