asm80/asm.min.js

ASM80 stand-alone assembler

var ASM={},Parser=require("./parser.js").Parser,btoa=require("btoa"),atob=require("atob");!function(e,n){"undefined"!=typeof module?(module.exports=n(),ASM=module.exports):"function"==typeof define&&"object"==typeof define.amd?define(n):this.ASM=n()}(0,function(){"use strict";var e=null,n=null,r={},o=!1,a=function(e){return btoa(unescape(encodeURIComponent(e)))},t=function(e){return decodeURIComponent(escape(atob(e)))},l=function(e,n){n=void 0===n||n;var r=e<0,o=r?-e:e;if(n&&e==Math.floor(e)&&e>=-65535&&e<=65535)return o=r?65536+e:e,[0,r?255:0,255&o,o>>8&255,0];var a,t=Math.floor(Math.log2(o)+1);if(t>127)throw new Error("Overflow");if(t<-127)return[0,0,0,0,0];if(t<0)for(a=0;a<-t;a++)o*=2;else for(a=0;a<t;a++)o/=2;var l=function(e,n){for(var r="",o=[],a=0;a<32;a++){var t="0";(e*=2)>=1&&(e-=1,t="1"),n&&0===a&&(t="1"),n||0!==a||(t="0"),r+=t,a%8==7&&(o.push(parseInt(r,2)),r="")}return o}(o,r);return[t+128,l[0],l[1],l[2],l[3]]},s=function(e){return e.map(function(e){var n=e.line;for(n=(n=n.replace("&lt;","<")).replace("&gt;",">");" "==n[n.length-1];)n=n.substr(0,n.length-1);if(e.line=n," "!=n[0])return e;for(;" "==n[0];)n=n.substr(1);return e.line=" "+n,e})},i=function(e){return e.filter(function(e){for(var n=e.line;" "==n[0];)n=n.substr(1);return!!n.length})},p=function(e){return e.map(function(e){for(var n=e.line,r={addr:0,line:";;;EMPTYLINE",numline:e.numline};" "==n[0];)n=n.substr(1);return n.length?e:r})},c=function(e){var n=1;return e.map(function(e){return{line:e,numline:n++,addr:null,bytes:0}})},f=function(e){return e.replace(/^\s+|\s+$/g,"")},d=function(n,r,o,l){var s=n.line,i=s.match(/^\s*(\@{0,1}[a-zA-Z0-9-_]+):\s*(.*)/);i&&(n.label=i[1].toUpperCase(),s=i[2]),n._dp=0,n.params=[];var p=s.match(/^\s*(\=)\s*(.*)/);if(p?(n.opcode=p[1].toUpperCase(),s=p[2]):(p=s.match(/^\s*([\.a-zA-Z0-9-_]+)\s*(.*)/))&&(n.opcode=p[1].toUpperCase(),s=p[2]),s){for(;s.match(/\"(.*?)\"/g);)s=s.replace(/\"(.*?)\"/g,function(e){return"00ss"+a(e)+"!"});for(;s.match(/\'(.*?)\'/g);)s=s.replace(/\'(.*?)\'/g,function(e){return"00ss"+a('"'+e.substr(1,e.length-2)+'"')+"!"});for(;s.match(/\{(.*?)\}/g);)s=s.replace(/\{(.*?)\}/g,function(e){return"00bb"+a(e.substr(1,e.length-2))});for(;s.match(/"(.*?);(.*?)"/g);)s=s.replace(/"(.*?);(.*?)"/g,'"$1§$2"');for(;s.match(/'(.*?);(.*?)'/g);)s=s.replace(/'(.*?);(.*?)'/g,'"$1§$2"');var c=s.match(/^\s*([^;]*)(.*)/);if(c&&c[1].length){n.paramstring=c[1];for(var u=c[1];u.match(/"(.*?),(.*?)"/g);)u=u.replace(/"(.*?),(.*?)"/g,'"$1€$2"');for(;u.match(/'(.*?),(.*?)'/g);)u=u.replace(/'(.*?),(.*?)'/g,'"$1€$2"');var h=u.match(/([0-9]+)\s*DUP\s*\((.*)\)/i);if(h){for(var m=parseInt(h[1]),g="",v=0;v<m;v++)g+=h[2]+",";u=g.substring(0,g.length-1)}var E=u.split(/\s*,\s*/);n.params=E.map(function(e){var n=f(e.replace(/€/g,",").replace(/§/g,";"));return n.replace(/00ss(.*?)\!/g,function(e){return t(e.substr(4,e.length-5))})}),s=c[2].replace(/§/g,";")}}if(s){var b=s.match(/^\s*;*(.*)/);b&&(n.remark=b[1].replace(/00ss(.*?)\!/g,function(e){return t(e.substr(4,e.length-5))}),n.remark||(n.remark=" "),s="")}if(n.notparsed=s,"ORG"===n.opcode&&(n.opcode=".ORG"),".ERROR"===n.opcode)return n.paramstring=n.paramstring.replace(/00ss(.*?)\!/g,function(e){return t(e.substr(4,e.length-5))}),n;if(".EQU"===n.opcode&&(n.opcode="EQU"),".FILL"===n.opcode&&(n.opcode="FILL"),".ORG"===n.opcode)try{return n}catch(e){throw{msg:e.message,s:n}}if("DEFB"===n.opcode)return n.opcode="DB",n;if(".BYTE"===n.opcode)return n.opcode="DB",n;if(".DB"===n.opcode)return n.opcode="DB",n;if(".WORD"===n.opcode)return n.opcode="DW",n;if(".DW"===n.opcode)return n.opcode="DW",n;if("DEFW"===n.opcode)return n.opcode="DW",n;if(".DD"===n.opcode)return n.opcode="DD",n;if(".DF"===n.opcode)return n.opcode="DF",n;if(".DFZXS"===n.opcode)return n.opcode="DFZXS",n;if(".DFF"===n.opcode)return n.opcode="DFF",n;if("DEFS"===n.opcode)return n.opcode="DS",n;if(".RES"===n.opcode)return n.opcode="DS",n;if("DEFM"===n.opcode)return n.opcode="DS",n;if(".ALIGN"===n.opcode)return n.opcode="ALIGN",n;if(".IF"===n.opcode)return n.opcode="IF",n;if(".ELSE"===n.opcode)return n.opcode="ELSE",n;if(".ENDIF"===n.opcode)return n.opcode="ENDIF",n;if(".PRAGMA"===n.opcode)return ASM.PRAGMAS=ASM.PRAGMAS||[],ASM.PRAGMAS.push(n.params[0].toUpperCase()),n;if("EQU"===n.opcode||"="===n.opcode||".SET"===n.opcode||"IF"===n.opcode||"IFN"===n.opcode||"ELSE"===n.opcode||"ENDIF"===n.opcode||".ERROR"===n.opcode||".INCLUDE"===n.opcode||".INCBIN"===n.opcode||".MACRO"===n.opcode||".ENDM"===n.opcode||".BLOCK"===n.opcode||".ENDBLOCK"===n.opcode||".REPT"===n.opcode||".CPU"===n.opcode||".ENT"===n.opcode||".BINFROM"===n.opcode||".BINTO"===n.opcode||".ENGINE"===n.opcode||".PRAGMA"===n.opcode||"END"===n.opcode||".END"===n.opcode||"BSZ"===n.opcode||"FCB"===n.opcode||"FCC"===n.opcode||"FDB"===n.opcode||"FILL"===n.opcode||"RMB"===n.opcode||"ZMB"===n.opcode||"SETDP"===n.opcode||".M8"===n.opcode||".X8"===n.opcode||".M16"===n.opcode||".X16"===n.opcode||".PHASE"===n.opcode||".DEPHASE"===n.opcode||".SETPHASE"===n.opcode||"ALIGN"===n.opcode||".CSTR"===n.opcode||".ISTR"===n.opcode||".PSTR"===n.opcode||".CSEG"===n.opcode||".DSEG"===n.opcode||".ESEG"===n.opcode||".BSSEG"===n.opcode||"DB"===n.opcode||"DW"===n.opcode||"DD"===n.opcode||"DF"===n.opcode||"DFF"===n.opcode||"DFZXS"===n.opcode||"DS"===n.opcode)return n;if(".DEBUGINFO"===n.opcode||".MACPACK"===n.opcode||".FEATURE"===n.opcode||".ZEROPAGE"===n.opcode||".SEGMENT"===n.opcode||".SETCPU"===n.opcode)return n.opcode="",n;if(!n.opcode&&n.label)return n;try{var S=e.parseOpcode(n)}catch(e){throw{msg:e,s:n}}if(null!==S)return S;if(r[n.opcode])return n.macro=n.opcode,n;if(!n.label&&!o){var A=JSON.parse(JSON.stringify(n));if(A.addr=null,A.bytes=0,n.remark&&!n.opcode)return n;if(!n.params||0===n.params.length)throw{msg:"Unrecognized instruction "+n.opcode,s:n};if(!n.opcode)throw{msg:"Unrecognized instruction "+n.opcode,s:n};0===n.params[0].indexOf(":=")&&(n.params[0]=".SET"+n.params[0].substr(2)),A.line=n.opcode+": "+n.params.join(),n.remark&&(A.line+=" ;"+n.remark);var M=d(A,r,!0,n);if(!M.opcode)throw{msg:"Unrecognized instruction "+n.opcode,s:n};return M}if(o)throw{msg:"Unrecognized instruction "+l.opcode,s:n};throw{msg:"Unrecognized instruction "+n.opcode,s:n}},u=function(e,n){if(!n)return e;for(var r=[],o=null,a=0;a<e.length;a++){var t=e[a],l=d(t,{});if(o&&r.push(t),".ENDBLOCK"==l.opcode){if(o)return r}else if(".BLOCK"==l.opcode){if(o)return r;l.params[0].toUpperCase()==n.toUpperCase()&&(r.push(t),o=!0)}}throw{msg:"Cannot find block "+n+" in included file"}},h=function(e,o,a){var t,l,p=null;o=o||{};for(var d={},m=null,g=null,v=[],E=0,b=e.length;E<b;E++){var S=(t=e[E].line).match(/\s*(.)/);if(S&&";"===S[1])v.push(e[E]);else if(l=t.match(/\s*(\.[^\s]+)(.*)/)){var A=l[1].toUpperCase(),M=l[2].match(/^\s*([^;]*)(.*)/);if(M&&M[1].length?(M[1],p=(B=M[1].split(/\s*,\s*/)).map(f)):p=null,".INCLUDE"!==A||!o.noinclude)if(".INCLUDE"!==A)if(".ENDM"!==A)if(".MACRO"!==A)if(".REPT"!==A)m?d[m].push(e[E]):v.push(e[E]);else{if(!p[0])throw{msg:"No repeat count given",s:e[E]};if(!(g=Parser.evaluate(p[0])))throw{msg:"Bad repeat count given",s:e[E]};if(m="*REPT"+e[E].numline,d[m])throw{msg:"Macro redefinition at line "+e[E].numline,s:e[E]};d[m]=[]}else{if(";"===t[0])continue;var y=null,C=t.match(/^(\S+)\s+\.MACRO/i);if(C?y=C[1]:p&&p[0]&&(y=p.shift()),!y)throw{msg:"Bad macro name at line "+e[E].numline,s:e[E]};if(":"===y[y.length-1]&&(y=y.substr(0,y.length-1)),m=y.toUpperCase(),d[m])throw{msg:"Macro "+m+" redefinition at line "+e[E].numline,s:e[E]};d[m]=[p]}else{if(!m)throw{msg:"ENDM without MACRO at line "+e[E].numline,s:e[E]};if(g){v.push({numline:e[E].numline,line:";rept unroll",addr:null,bytes:0,remark:"REPT unroll"});for(var P=0;P<g;P++)for(var D=0;D<d[m].length;D++){var N=d[m][D].line;v.push({numline:e[P].numline,line:N,addr:null,bytes:0})}}else{var F=d[m][0]||[];v.push({numline:e[E].numline,line:";Macro define "+m,addr:null,bytes:0,listing:".macro "+m+(F?",":"")+F.join(",")});for(var I=d[m],R=0;R<I.length;R++)I[R]&&v.push({line:";",listing:I[R].line});v.push({line:";",listing:".endm"}),v.push({line:";",listing:" "})}m=null,g=null}else{var w="";if(p[0].indexOf(":")>=0){var B=p[0].split(":");if(p[0]=B[0],w=B[1],3==B.length)w=B[2];else if(r["*"+B[0].toUpperCase()+":"+w.toUpperCase()])continue;r["*"+B[0].toUpperCase()+":"+w.toUpperCase()]="used"}if(!p||!p[0])throw{msg:"No file name given",s:e[E]};if("THIS"==p[0].toUpperCase()&&w)T=u(a,w);else{var G=n(p[0].replace(/\"/g,""));if(!G)throw{msg:"File "+p[0]+" not found",s:e[E]};var T=c(G.split(/\n/));T=i(T);var L=T=s(T);T=u(T,w)}var U=h(T,{},L);for(R=0;R<U[0].length;R++)U[0][R].includedFile=p[0].replace(/\"/g,""),U[0][R].includedFileAtLine=e[E].numline,v.push(U[0][R]);for(R in U[1])d[R]=U[1][R];r[p[0].replace(/\"/g,"")]=G}}else{if(m){d[m].push(e[E]);continue}v.push(e[E])}}if(m)throw{msg:"MACRO "+m+" has no appropriate ENDM",s:e[E]};return[v,d]},m=function(e,n,r,o,a){var l={line:e.line,addr:e.addr,macro:e.macro,numline:e.numline};n=n||[];var s=o||[];if(s&&s.length>n.length)throw l.numline=a,{msg:"Too few parameters for macro unrolling",s:l};for(var i=n.length-1;i>=0;i--){var p=n[i];0===p.indexOf("00bb")&&(p=t(p.substr(4))),l.line=l.line.replace("%%"+(i+1),p),s&&s[i]&&(l.line=l.line.replace(s[i],p))}return l.line=l.line.replace("%%M","M_"+r),l.line=l.line.replace("%%m","M_"+r),l},g=function(e,n){for(var r=[],o=0;o<e.length;o++){var a=e[o];if(a.macro){var t=n[a.macro],l=t[0];r.push({remark:"*Macro unroll: "+a.line});for(var s=0;s<t.length;s++)if(0!==s){var i=m(t[s],a.params,o,l,a.numline);i.bytes=0;var p=d(i,n);if(p.macro)for(var c=g([p],n),f=0;f<c.length;f++)r.push(c[f]);else a.label&&(p.label=a.label),a.label="",p.remark=a.remark,p.macro=a.macro,a.macro=null,a.remark="",r.push(p)}}else r.push(a)}return r},v={},E=function(e,n){for(var r=e.toString(16);r.length<n;)r="0"+r;return r.toUpperCase()},b=function(e){return E(255&e,2)},S=function(e){return E(e,4)},A=function(e){return E(e,6)},M=function(e){if(ASM.PRAGMAS.RELAX)return"string"==typeof e?255&e.charCodeAt(0):255&e;if("string"==typeof e){if(1!=e.length)throw"String parameter too long ("+e+")";return 255&e.charCodeAt(0)}if(e>255)throw"Param out of bound ("+e+")";if(e<-128)throw"Param out of bound ("+e+")";return 255&e},y=function(e,n){var r=":",o=n.length,a=0;r+=b(o),r+=S(e),r+="00",a=o+Math.floor(e/256)+Math.floor(e%256);for(var t=0;t<n.length;t++)r+=b(n[t]),a+=n[t];return r+b(256-a%256)},C=function(e,n,r){var o=0,a=[],t=16;r>1&&(t=r);for(var l="",s=0;s<n.length;s++)a.push(n[s]),++o===t&&(l+=y(e,a)+"\n",a=[],o=0,e+=t);return a.length&&(l+=y(e,a)+"\n"),l},P=function(e,n){var r="S1",o=n.length,a=0;r+=b(o+3),r+=S(e),a=o+3+Math.floor(e/256)+Math.floor(e%256);for(var t=0;t<n.length;t++)r+=b(n[t]),a+=n[t];return r+b(256-a%256)},D=function(e,n){for(var r=0,o=[],a="",t=0;t<n.length;t++)o.push(n[t]),16==++r&&(a+=P(e,o)+"\n",o=[],r=0,e+=16);return o.length&&(a+=P(e,o)+"\n"),a},N=function(e,n){var r="S2",o=n.length,a=0;r+=b(o+4),r+=A(e),a=o+4+Math.floor(e/65536)+Math.floor(e/256)%256+Math.floor(e%256);for(var t=0;t<n.length;t++)r+=b(n[t]),a+=n[t];return r+b(255-a%256)},F=function(e,n){for(var r=0,o=[],a="",t=0;t<n.length;t++)o.push(n[t]),16==++r&&(a+=N(e,o)+"\n",o=[],r=0,e+=16);return o.length&&(a+=N(e,o)+"\n"),a};return{parse:function(n,a){e=a,a.endian&&(o=a.endian),r={};var t=c(n.split(/\n/));t=i(t),t=s(t);var l=h(t);return t=l[0].map(function(e){return d(e,l[1])}),g(t,l[1])},pass1:function(r,o){var a="CSEG",t=function(){if("BSSEG"===a)throw d.opcode+" is not allowed in BSSEG"},l={},s=0,i={};o&&(i=o);for(var p,c,f,d=null,u=0,h=0,m=[],g=[],E=0,b=0,S=0,A=r.length;S<A;S++)if(d=r[S],ASM.WLINE=r[S],d.pass=1,d.segment=a,d.addr=s,d._dp=b,i._PC=s,0!==E&&(d.phase=E),"ENDIF"!==d.opcode)if("ELSE"!==d.opcode)if("IF"!==d.opcode)if("IFN"!==d.opcode)if(u)d.ifskip=!0;else if(".BLOCK"!==d.opcode)if(".ENDBLOCK"!==d.opcode){if(d.label){var M=d.label,y=!1;if("@"===M[0]&&(y=!0,M=M.substr(1),d.label=M,d.beGlobal=!0),d.beGlobal&&(y=!0),g.length>0&&(M=g.join("/")+"/"+M,i["__"+g.join("/")].push(d.label)),!o&&(i[M+"$"]||y&&void 0!==i[d.label])&&".SET"!==d.opcode&&":="!==d.opcode)throw{msg:"Redefine label "+d.label+" at line "+d.numline,s:d};i[d.label]?i[M]=i[d.label]:y&&(i[M]=s),v[d.label]={defined:{line:d.numline,file:d.includedFile||"*main*"},value:s},i[M+"$"]=s,i[d.label]=s,y&&(i[M]=s)}try{if(".ORG"===d.opcode){s=Parser.evaluate(d.params[0],i),d.addr=s,l[a]=s;continue}if(".CSEG"===d.opcode&&(l[a]=s,a="CSEG",d.segment=a,s=l[a]||0,d.addr=s),".DSEG"===d.opcode&&(l[a]=s,a="DSEG",d.segment=a,s=l[a]||0,d.addr=s),".ESEG"===d.opcode&&(l[a]=s,a="ESEG",d.segment=a,s=l[a]||0,d.addr=s),".BSSEG"===d.opcode&&(l[a]=s,a="BSSEG",d.segment=a,s=l[a]||0,d.addr=s),".PHASE"===d.opcode){if(E)throw{message:"PHASE cannot be nested"};var C=Parser.evaluate(d.params[0],i);d.addr=s,E=C-s,s=C;continue}if(".DEPHASE"===d.opcode){d.addr=s,s-=E,E=0;continue}if("EQU"===d.opcode){try{i[d.label]=Parser.evaluate(d.params[0],i)}catch(e){i[d.label]=null}v[d.label]={defined:{line:d.numline,file:d.includedFile||"*main*"},value:i[d.label]};continue}if("="===d.opcode||":="===d.opcode||".SET"===d.opcode){i[d.label]=Parser.evaluate(d.params[0],i),v[d.label]={defined:{line:d.numline,file:d.includedFile||"*main*"},value:i[d.label]};continue}}catch(e){throw{msg:e.message,s:d}}if("DB"===d.opcode||"FCB"===d.opcode)for(t(),d.bytes=0,c=0;c<d.params.length;c++)try{if("number"==typeof(p=Parser.evaluate(d.params[c],i))){d.bytes++;continue}if("string"==typeof p){d.bytes+=p.length;continue}}catch(e){d.bytes++}if("FCC"===d.opcode)for(t(),d.bytes=0,c=0;c<d.params.length;c++){var P=d.params[c].trim(),D=P[0];if(P[P.length-1]!==D)throw{msg:"Delimiters does not match",s:d};d.bytes+=P.length-2}if(".CSTR"===d.opcode||".PSTR"===d.opcode||".ISTR"===d.opcode){for(t(),d.bytes=0,c=0;c<d.params.length;c++)try{if("number"==typeof(p=Parser.evaluate(d.params[c],i))){d.bytes++;continue}if("string"==typeof p){d.bytes+=p.length;continue}}catch(e){d.bytes++}".CSTR"!==d.opcode&&".PSTR"!==d.opcode||d.bytes++}if("DS"!==d.opcode&&"RMB"!==d.opcode)if("ALIGN"!==d.opcode)if("SETDP"!==d.opcode)if("FILL"!==d.opcode)if("BSZ"!==d.opcode&&"ZMB"!==d.opcode){if("DW"===d.opcode||"FDB"===d.opcode)for(t(),d.bytes=0,c=0;c<d.params.length;c++)try{if("number"==typeof(p=Parser.evaluate(d.params[c],i))){d.bytes+=2;continue}}catch(e){d.bytes+=2}if("DD"===d.opcode||"DF"===d.opcode)for(t(),d.bytes=0,c=0;c<d.params.length;c++)try{if("number"==typeof(p=Parser.evaluate(d.params[c],i))){d.bytes+=4;continue}}catch(e){d.bytes+=4}if("DFF"===d.opcode)for(t(),d.bytes=0,c=0;c<d.params.length;c++)try{if("number"==typeof(p=Parser.evaluate(d.params[c],i))){d.bytes+=8;continue}}catch(e){d.bytes+=8}if("DFZXS"===d.opcode)for(t(),d.bytes=0,c=0;c<d.params.length;c++)try{if("number"==typeof(p=Parser.evaluate(d.params[c],i))){d.bytes+=5;continue}}catch(e){d.bytes+=5}if(".INCBIN"!==d.opcode)if(".M16"!==d.opcode)if(".M8"!==d.opcode)if(".X16"!==d.opcode)if(".X8"!==d.opcode){var N=e.parseOpcode(r[S],i);if(N&&(t(),d=N),void 0===d.bytes&&(d.bytes=0),s+=d.bytes,d.params&&d.params.length&&!d.opcode)throw{msg:"No opcode, possible missing",s:d}}else i.__MX=8;else i.__MX=16;else i.__AX=8;else i.__AX=16;else{if(t(),!d.params[0])throw{msg:"No file name given at line "+d.numline,s:d};var F=n(d.params[0],!0);if(!F)throw{msg:"Cannot find file "+d.params[0]+" for incbin",s:d};for(d.bytes=0,d.lens=[],B=0;B<F.length;B++){var I=F.charCodeAt(B);I>255&&(d.lens[d.bytes++]=I>>8),d.lens[d.bytes++]=I%256}s+=d.bytes}}else{for(t(),R=Parser.evaluate(d.params[0],i),d.bytes=R,d.lens=[],B=0;B<R;B++)d.lens[B]=0;s+=R}else{t();var R=Parser.evaluate(d.params[1],i);for("string"==typeof(p=Parser.evaluate(d.params[0],i))&&(p=p.charCodeAt(0)),d.bytes=R,d.lens=[],B=0;B<R;B++)d.lens[B]=p;s+=R}else b=Parser.evaluate(d.params[0],i);else{var w=Parser.evaluate(d.params[0],i);s+=s%w>0?w-s%w:0}else{if("number"!=typeof(R=Parser.evaluate(d.params[0],i)))throw{msg:"DS / RMB needs a numerical parameter",s:d};if(2==d.params.length){"string"==typeof(p=Parser.evaluate(d.params[1],i))&&(p=p.charCodeAt(0)),d.bytes=R,d.lens=[];for(var B=0;B<R;B++)d.lens[B]=p}s+=R}}else{for(var G=i["__"+g.join("/")],T=0;T<G.length;T++)i[G[T]]=i[g.join("/")+"/"+G[T]],delete i[g.join("/")+"/"+G[T]];g.pop(),i.__blocks=JSON.stringify(g)}else{d.includedFileAtLine?g.push(d.numline+"@"+d.includedFileAtLine):g.push(d.numline);var L=g.join("/");i["__"+L]=[]}else{try{f=Parser.evaluate(d.params[0],i)}catch(e){}f&&(u=1),h=1,m.push(u)}else{try{f=Parser.evaluate(d.params[0],i)}catch(e){}f||(u=1),h=1,m.push(u)}else{if(!h)throw{msg:"ELSE without IF",s:d};u=(u=m.pop())?0:1,m.filter(function(e){return 1==e}).length&&(u=1),m.push(u)}else{if(!h)throw{msg:"ENDIF without IF",s:d};u=m.pop(),m.length?h=1:(h=0,u=0)}return[r,i]},pass2:function(e){for(var n,r,a=e[0],t=e[1],s=null,i=null,p=[],c=0,f=0,d=a.length;f<d;f++)try{if(s=a[f],s.pass=2,"ENDIF"===s.opcode){c=0;continue}if("ELSE"===s.opcode){c=c?0:1;continue}if(c)continue;if(".ERROR"===s.opcode)throw{msg:s.paramstring,s:s};if("IF"===s.opcode){Parser.evaluate(s.params[0],t);try{Parser.evaluate(s.params[0],t)||(c=1)}catch(e){throw{message:"IF condition mismatched"}}continue}if("IFN"===s.opcode){try{Parser.evaluate(s.params[0],t)&&(c=1)}catch(e){throw{message:"IF condition mismatched"}}continue}t._PC=s.addr;try{for(var u=Parser.usage(s.params[0].toUpperCase(),t),h=0;h<u.length;h++)v[u[h]].usage||(v[u[h]].usage=[]),v[u[h]].usage.push({line:s.numline,file:s.includedFile||"*main*"})}catch(e){}try{for(u=Parser.usage(s.params[1].toUpperCase(),t),h=0;h<u.length;h++)v[u[h]].usage||(v[u[h]].usage=[]),v[u[h]].usage.push({line:s.numline,file:s.includedFile||"*main*"})}catch(e){}if(".BLOCK"===s.opcode){s.includedFileAtLine?p.push(s.numline+"@"+s.includedFileAtLine):p.push(s.numline);for(var m=t["__"+p.join("/")],g=0;g<m.length;g++)t[p.join("/")+"/"+m[g]]=t[m[g]],t[m[g]]=t[p.join("/")+"/"+m[g]+"$"];continue}if(".ENDBLOCK"===s.opcode){for(m=t["__"+p.join("/")],g=0;g<m.length;g++)t[m[g]]=t[p.join("/")+"/"+m[g]],void 0===t[m[g]]&&delete t[m[g]],t[p.join("/")+"/"+m[g]]=null;p.pop();continue}if(".ENT"===s.opcode){ASM.ENT=Parser.evaluate(s.params[0],t);continue}if(".BINFROM"===s.opcode){ASM.BINFROM=Parser.evaluate(s.params[0],t);continue}if(".BINTO"===s.opcode){ASM.BINTO=Parser.evaluate(s.params[0],t);continue}if(".SETPHASE"===s.opcode){ASM.PHASES||(ASM.PHASES={}),ASM.PHASES[s.addr]=s.params[0];continue}if(".ENGINE"===s.opcode){ASM.ENGINE=s.params[0];continue}if("EQU"===s.opcode){if(!s.label)throw{msg:"EQU without label",s:s};t[s.label]=Parser.evaluate(s.params[0],t);continue}if(".SET"===s.opcode||":="===s.opcode){t[s.label]=Parser.evaluate(s.params[0],t);continue}if("DB"===s.opcode||"FCB"===s.opcode){for(n=0,s.lens=[],r=0;r<s.params.length;r++)if("number"!=typeof(b=Parser.evaluate(s.params[r],t)))if("string"!=typeof b);else for(S=0;S<b.length;S++)s.lens[n++]=b.charCodeAt(S);else s.lens[n++]=Math.floor(b%256);continue}if("FCC"===s.opcode){for(n=0,s.lens=[],r=0;r<s.params.length;r++)for(var E=s.params[r].trim(),b=(E[0],E.substr(1,E.length-2)),S=0;S<b.length;S++)s.lens[n++]=b.charCodeAt(S);continue}if(".CSTR"===s.opcode){for(n=0,s.lens=[],r=0;r<s.params.length;r++)if("number"!=typeof(b=Parser.evaluate(s.params[r],t)))if("string"!=typeof b);else for(S=0;S<b.length;S++)s.lens[n++]=b.charCodeAt(S);else s.lens[n++]=Math.floor(b%256);s.lens[n++]=0;continue}if(".PSTR"===s.opcode){for(n=1,s.lens=[],r=0;r<s.params.length;r++)if("number"!=typeof(b=Parser.evaluate(s.params[r],t)))if("string"!=typeof b);else for(S=0;S<b.length;S++)s.lens[n++]=b.charCodeAt(S);else s.lens[n++]=Math.floor(b%256);s.lens[0]=n-1;continue}if(".ISTR"===s.opcode){for(n=0,s.lens=[],r=0;r<s.params.length;r++)if("number"!=typeof(b=Parser.evaluate(s.params[r],t)))if("string"!=typeof b);else for(S=0;S<b.length;S++)s.lens[n++]=127&b.charCodeAt(S);else s.lens[n++]=Math.floor(b%128);s.lens[n-1]=128|s.lens[n-1];continue}if("DW"===s.opcode||"FDB"===s.opcode){for(n=0,s.lens=[],r=0;r<s.params.length;r++)"number"!=typeof(b=Parser.evaluate(s.params[r],t))||(o?(s.lens[n++]=Math.floor(b/256),s.lens[n++]=Math.floor(b%256)):(s.lens[n++]=Math.floor(b%256),s.lens[n++]=Math.floor(b/256)));continue}if("DD"===s.opcode){for(n=0,s.lens=[],r=0;r<s.params.length;r++)"number"!=typeof(b=Parser.evaluate(s.params[r],t))||(A=new ArrayBuffer(4),(y=new Int32Array(A))[0]=b,C=new Uint8Array(A),o?(s.lens[n++]=C[3],s.lens[n++]=C[2],s.lens[n++]=C[1],s.lens[n++]=C[0]):(s.lens[n++]=C[0],s.lens[n++]=C[1],s.lens[n++]=C[2],s.lens[n++]=C[3]));continue}if("DF"===s.opcode){for(n=0,s.lens=[],r=0;r<s.params.length;r++)"number"!=typeof(b=Parser.evaluate(s.params[r],t))||(A=new ArrayBuffer(4),(y=new Float32Array(A))[0]=b,C=new Uint8Array(A),o?(s.lens[n++]=C[3],s.lens[n++]=C[2],s.lens[n++]=C[1],s.lens[n++]=C[0]):(s.lens[n++]=C[0],s.lens[n++]=C[1],s.lens[n++]=C[2],s.lens[n++]=C[3]));continue}if("DFF"===s.opcode){for(n=0,s.lens=[],r=0;r<s.params.length;r++)if("number"!=typeof(b=Parser.evaluate(s.params[r],t)));else{var A=new ArrayBuffer(8),y=new Float64Array(A);y[0]=b,C=new Uint8Array(A),o?(s.lens[n++]=C[7],s.lens[n++]=C[6],s.lens[n++]=C[5],s.lens[n++]=C[4],s.lens[n++]=C[3],s.lens[n++]=C[2],s.lens[n++]=C[1],s.lens[n++]=C[0]):(s.lens[n++]=C[0],s.lens[n++]=C[1],s.lens[n++]=C[2],s.lens[n++]=C[3],s.lens[n++]=C[4],s.lens[n++]=C[5],s.lens[n++]=C[6],s.lens[n++]=C[7])}continue}if("DFZXS"===s.opcode){for(n=0,s.lens=[],r=0;r<s.params.length;r++)if("number"!=typeof(b=Parser.evaluate(s.params[r],t)));else{var C=l(b,!1);o?(s.lens[n++]=C[4],s.lens[n++]=C[3],s.lens[n++]=C[2],s.lens[n++]=C[1],s.lens[n++]=C[0]):(s.lens[n++]=C[0],s.lens[n++]=C[1],s.lens[n++]=C[2],s.lens[n++]=C[3],s.lens[n++]=C[4])}continue}if(s.lens&&s.lens[1]&&"function"==typeof s.lens[1]&&("addr24"===s.lens[2]?(i=s.lens[1](t),o?(s.lens[3]=Math.floor(i%256),s.lens[2]=Math.floor((i>>8)%256),s.lens[1]=Math.floor(i>>16&255)):(s.lens[1]=Math.floor(i%256),s.lens[2]=Math.floor((i>>8)%256),s.lens[3]=Math.floor(i>>16&255))):"addr32"===s.lens[2]?(i=s.lens[1](t),o?(s.lens[4]=Math.floor(i%256),s.lens[3]=Math.floor((i>>8)%256),s.lens[2]=Math.floor(i>>16&255),s.lens[1]=Math.floor(i>>24&255)):(s.lens[1]=Math.floor(i%256),s.lens[2]=Math.floor((i>>8)%256),s.lens[3]=Math.floor(i>>16&255),s.lens[4]=Math.floor(i>>24&255))):null===s.lens[2]?"string"==typeof(i=s.lens[1](t))?o?(s.lens[1]=255&i.charCodeAt(0),s.lens[2]=255&i.charCodeAt(1)):(s.lens[2]=255&i.charCodeAt(0),s.lens[1]=255&i.charCodeAt(1)):o?(s.lens[2]=Math.floor(i%256),s.lens[1]=Math.floor(i/256)):(s.lens[1]=Math.floor(i%256),s.lens[2]=Math.floor(i/256)):(i=s.lens[1](t),s.lens[1]=M(i))),s.lens&&s.lens.length>2&&"function"==typeof s.lens[2]&&(i=s.lens[2](t),null===s.lens[3]?"string"==typeof(i=s.lens[2](t))?o?(s.lens[2]=255&i.charCodeAt(0),s.lens[3]=255&i.charCodeAt(1)):(s.lens[3]=255&i.charCodeAt(0),s.lens[2]=255&i.charCodeAt(1)):o?(s.lens[3]=255&i,s.lens[2]=i>>8):(s.lens[2]=255&i,s.lens[3]=i>>8):s.lens[2]=M(i)),s.lens&&s.lens.length>3&&"function"==typeof s.lens[3]&&(i=s.lens[3](t),null===s.lens[4]?"string"==typeof(i=s.lens[3](t))?o?(s.lens[3]=255&i.charCodeAt(0),s.lens[4]=255&i.charCodeAt(1)):(s.lens[4]=255&i.charCodeAt(0),s.lens[3]=255&i.charCodeAt(1)):o?(s.lens[4]=255&i,s.lens[3]=i>>8):(s.lens[3]=255&i,s.lens[4]=i>>8):s.lens[3]=M(i)),s.lens&&s.lens.length>1){if("string"==typeof s.lens[1]&&(s.lens[1]=s.lens[1].charCodeAt(0)),isNaN(s.lens[1]))throw{message:"param out of bounds, NaN"};if((s.lens[1]>255||s.lens[1]<-128)&&2==s.lens.length)throw{message:"param out of bounds - "+s.lens[1]};s.lens[1]<0&&(s.lens[1]=256+s.lens[1])}}catch(e){throw{msg:e.message,s:s,e:e}}return[a,t]},parseLine:d,ENT:null,WLINE:null,compile:function(e,n){try{ASM.ENT=null,ASM.BINFROM=null,ASM.BINTO=null,ASM.ENGINE=null,ASM.PRAGMAS=[];var r=ASM.parse(e,n);v={};var o=ASM.pass1(r);return o=ASM.pass1(o[0],o[1]),o=ASM.pass1(o[0],o[1]),o=ASM.pass1(o[0],o[1]),o=ASM.pass1(o[0],o[1]),o=ASM.pass1(o[0],o[1]),o=ASM.pass1(o[0],o[1]),o[1].__PRAGMAS=ASM.PRAGMAS,o=ASM.pass2(o),[null,o,v]}catch(e){console.log(e);var a=e.s||"Internal error";return e.e&&(e="object"==typeof e.e?e.e:{msg:e.e,s:e.s}),!e.msg&&e.message&&(e.msg=e.message),e.msg?(e.s||(e.s=a),[e,null]):["Cannot evaluate line "+ASM.WLINE.numline+", there is some unspecified error (e.g. reserved world as label etc.)",null]}},compileAsync:function(e,n,r){try{var o=ASM.parse(e,n),a=ASM.pass1(o);a=ASM.pass2(a),r(null,a)}catch(e){r(e,null)}},lst:function(e,n,r,o,a){var t,l,s="";void 0===o&&(o=!1);for(var i=0,p=e.length;i<p;i++){if(l=e[i],t="",l.macro,void 0===l.addr||l.ifskip||(t+=S(l.addr),l.phase&&(t+=" @"+S(l.addr-l.phase)),t+=o?" ":"   "),l.lens&&!l.ifskip)for(var c=0;c<l.lens.length;c++)t+=b(l.lens[c])+" ";if(!o)for(;t.length<20;)t+=" ";if(o)for(;t.length<15;)t+=" ";if(l.listing)s+=t+l.listing+"\n";else{if(l.label&&(t+=l.label+":   "),!o)for(;t.length<30;)t+=" ";if(o)for(;t.length<22;)t+=" ";l.opcode&&(t+=l.opcode+(o?" ":"   ")),l.bandPar&&(t+=l.bandPar+","),l.aimPar&&(t+=l.aimPar+","),l.params&&(t+=l.params+(o?" ":"   ")),l.remark&&(t+=";"+l.remark),s+=t+"\n"}}if(r)return s;for(var f in s+="\n\n",v)if(null!==v[f]&&("_"!=f[0]||"_"!=f[1])&&"$"!==f[f.length-1]){for(t="",t+=f+": ";t.length<20;)t+=" ";if(t+=S(v[f].value),t+=" DEFINED AT LINE "+v[f].defined.line,"*main*"!=v[f].defined.file&&(t+=" IN "+v[f].defined.file),s+=t+"\n",v[f].usage)for(p=0;p<v[f].usage.length;p++)s+="                    > USED AT LINE "+v[f].usage[p].line,"*main*"!=v[f].usage[p].file&&(s+=" IN "+v[f].usage[p].file),s+="\n"}return s},html:function(e,n,r,o){var a,t,l="<html><head><meta charset=utf-8><body><table>";void 0===o&&(o=!1);for(var s=0,i=e.length;s<i;s++){if(t=e[s],a='<tr id="ln'+t.numline+'">',t.macro,void 0!==t.addr?(a+='<td><a name="ADDR'+S(t.addr)+'">'+S(t.addr)+"</a>",t.phase?a+="</td><td>"+S(t.addr-t.phase):a+="</td><td>",a+="</td>"):a+="<td></td><td></td>",t.lens){a+="<td>";for(var p=0;p<t.lens.length;p++)a+=b(t.lens[p])+" ";a+="</td>"}else a+="<td></td>";t.label?a+='<td><a name="LBL'+t.label+'">'+t.label+"</a></td>":a+="<td></td>",t.opcode?a+="<td>"+t.opcode+"</td>":a+="<td></td>",t.params?a+="<td>"+t.params.map(function(e){for(var r in e+="",n)if(null!==n[r]&&("_"!=r[0]||"_"!=r[1])&&"$"!==r[r.length-1]){var o=new RegExp("^"+r+"$","i");if(e.match(o))return'<a href="#LBL'+r+'">'+e+"</a>"}return e})+"</td>":a+="<td></td>",t.remark?a+="<td>;"+t.remark+"</td>":a+="<td></td>",l+=a+"</tr>\n"}return l+"</table>"},hex:function(e,n){for(var r,o=null,a=0,t=[],l="",s=!1,i=16,p=0,c=e.length;p<c;p++)if(".PRAGMA"===(r=e[p]).opcode&&(2==r.params.length&&"HEXLEN"==r.params[0].toUpperCase()&&((i=parseInt(r.params[1]))<1||i>64)&&(i=16),1==r.params.length&&"SEGMENT"==r.params[0].toUpperCase()&&(s=!0)),!(r.ifskip||s&&(n||(n="CSEG"),r.segment!=n))){var f=r.addr;if(r.phase&&(f-=r.phase),void 0!==f&&0===a&&(o=f),f!=o+a&&(a&&(l+=C(o,t,i)),o=f,a=0,t=[]),r.lens){for(var d=0;d<r.lens.length;d++)t.push(r.lens[d]);a+=r.lens.length}}return t.length&&(l+=C(o,t,i)),l+":00000001FF"},srec:function(e,n){for(var r,o=null,a=0,t=!1,l=[],s="",i=0,p=e.length;i<p;i++)if(".PRAGMA"===(r=e[i]).opcode&&1==r.params.length&&"SEGMENT"==r.params[0].toUpperCase()&&(t=!0),!(r.ifskip||t&&(n||(n="CSEG"),r.segment!=n))){var c=r.addr;if(r.phase&&(c-=r.phase),void 0!==c&&0===a&&(o=c),c!=o+a&&(a&&(s+=D(o,l)),o=c,a=0,l=[]),r.lens){for(var f=0;f<r.lens.length;f++)l.push(r.lens[f]);a+=r.lens.length}}l.length&&(s+=D(o,l));var d=ASM.ENT||0,u=3+Math.floor(d/256)+Math.floor(d%256);return s+"S903"+S(d)+b(255-u%256)},srec28:function(e,n){for(var r,o=null,a=0,t=!1,l=[],s="",i=0,p=e.length;i<p;i++)if(".PRAGMA"===(r=e[i]).opcode&&1==r.params.length&&"SEGMENT"==r.params[0].toUpperCase()&&(t=!0),!t||(n||(n="CSEG"),r.segment==n)){var c=r.addr;if(r.phase&&(c-=r.phase),void 0!==c&&0===a&&(o=c),c!=o+a&&(a&&(s+=F(o,l)),o=c,a=0,l=[]),r.lens){for(var f=0;f<r.lens.length;f++)l.push(r.lens[f]);a+=r.lens.length}}l.length&&(s+=F(o,l));var d=ASM.ENT||0,u=3+Math.floor(d/256)+Math.floor(d%256);return s+"S804"+A(d)+b(255-u%256)+"\n"},linemap:function(e){for(var n,r=[],o=null,a=0,t=e.length;a<t;a++)if(".PHASE"!==(n=e[a]).opcode||""===n.label)if(".DEPHASE"!==n.opcode){if(n.lens)for(var l=0;l<n.lens.length;l++)o?r[n.addr+l]?r[n.addr+l][o]=a+1:(r[n.addr+l]={},r[n.addr+l][o]=a+1):r[n.addr+l]=a+1}else o=null;else o=n.label;return r},beautify:function(n,r){e=r;var o=c(n.split(/\n/));o=p(o),o=i(o),o=s(o);var a=h(o,{noinclude:!0});o=o.map(function(e){return d(e,a[1])});for(var t,l,f="",u=0;u<o.length;u++)if(t=o[u],l="","EMPTYLINE"!=t.remark)if(t.label||t.opcode||!t.remark){for(t.label&&(l+=t.label,"EQU"!=t.opcode&&"="!=t.opcode&&".SET"!=t.opcode&&(l+=":"),l+=" ");l.length<12;)l+=" ";for(t.opcode&&(l+=t.opcode+" ");l.length<20;)l+=" ";t.params&&(l+=t.params+" "),t.remark&&(l+=";"+t.remark),f+=l+"\n"}else f+=";"+t.remark+"\n";else f+="\n";return f},buff:function(e){for(var n,r,o=new Uint8Array(65536),a=0,t=e.length;a<t;a++)if(n=e[a],r=n.addr,n.lens)for(var l=0;l<n.lens.length;l++)o[r++]=n.lens[l];return o},fileGet:function(e){n=e}}});