Quixe=function(){function quixe_prepare(image,all_options){game_image=image;var ls=game_image.slice(0,64);var ix,val;for(ix=0;ix<ls.length;ix++){val=ls[ix].toString(16);if(val.length<2){val="0"+val}ls[ix]=val}game_signature=ls.join("");if(all_options){opt_rethrow_exceptions=all_options.rethrow_exceptions}}function quixe_init(){if(vm_started){Glk.fatal_error("Quixe was inited twice!");return}try{setup_bytestring_table();setup_operandlist_table();setup_vm();execute_loop()}catch(ex){Glk.fatal_error("Quixe init: "+show_exception(ex));if(opt_rethrow_exceptions){throw ex}}}function quixe_resume(){try{done_executing=vm_stopped;execute_loop()}catch(ex){Glk.fatal_error("Quixe run: "+show_exception(ex));if(opt_rethrow_exceptions){throw ex}}}function show_exception(ex){if(typeof(ex)=="string"){return ex}var res=ex.toString();if(ex.message){res=res+" "+ex.message}if(ex.fileName){res=res+" "+ex.fileName}if(ex.lineNumber){res=res+" line:"+ex.lineNumber}if(ex.name){res=res+" "+ex.name}if(ex.number){res=res+" "+ex.number}re
turn res}function qlog(msg){if(window.console&&console.log){console.log(msg)}else{if(window.opera&&opera.postError){opera.postError(msg)}}}function qobjdump(obj,depth){var key,proplist;if(obj instanceof Array){if(depth){depth--}var ls=obj.map(function(v){return qobjdump(v,depth)});return("["+ls.join(",")+"]")}if(!(obj instanceof Object)){return(""+obj)}proplist=[];for(key in obj){var val=obj[key];if(depth&&val instanceof Object){val=qobjdump(val,depth-1)}proplist.push(key+":"+val)}return"{ "+proplist.join(", ")+" }"}var bytestring_table=Array(256);var quotechar_table=Array(256);function setup_bytestring_table(){var ix,val;for(ix=0;ix<256;ix++){val=ix.toString(16);if(ix<16){val="0"+val}bytestring_table[ix]=val}for(ix=0;ix<256;ix++){if(ix>=32&&ix<127){if(ix==34||ix==39||ix==92){val="\\"+String.fromCharCode(ix)}else{val=String.fromCharCode(ix)}}else{if(ix==10){val="\\n"}else{val="\\x"+bytestring_table[ix]}}quotechar_table[ix]=val}}function ByteRead4(arr,addr){return(arr[addr]*16777216)+(arr[addr+1]*65536)+(arr[
addr+2]*256)+(arr[addr+3])}function ByteRead2(arr,addr){return(arr[addr]*256)+(arr[addr+1])}function ByteRead1(arr,addr){return arr[addr]}function Mem1(addr){return memmap[addr]}function Mem2(addr){return(memmap[addr]*256)+(memmap[addr+1])}function Mem4(addr){return(memmap[addr]*16777216)+(memmap[addr+1]*65536)+(memmap[addr+2]*256)+(memmap[addr+3])}function MemW1(addr,val){memmap[addr]=val&255}function MemW2(addr,val){memmap[addr]=(val>>8)&255;memmap[addr+1]=val&255}function MemW4(addr,val){memmap[addr]=(val>>24)&255;memmap[addr+1]=(val>>16)&255;memmap[addr+2]=(val>>8)&255;memmap[addr+3]=val&255}function BytePushString(arr,str){for(var ix=0;ix<str.length;ix++){arr.push(str.charCodeAt(ix))}}function BytePush4(arr,val){arr.push((val>>24)&255);arr.push((val>>16)&255);arr.push((val>>8)&255);arr.push(val&255)}function BytePush2(arr,val){arr.push((val>>8)&255);arr.push(val&255)}function BytePush1(arr,val){arr.push(val&255)}function ByteWrite4(arr,addr,val){arr[addr]=(val>>24)&255;arr[addr+1]=(val>>16)&255;arr[addr
+2]=(val>>8)&255;arr[addr+3]=val&255}function ByteReadString(arr,addr,len){return String.fromCharCode.apply(this,arr.slice(addr,addr+len))}function QuoteMem1(addr){if(memmap[addr]>=128){return"0xffffff"+bytestring_table[memmap[addr]]}return"0x"+bytestring_table[memmap[addr]]}function QuoteMem2(addr){if(memmap[addr]>=128){return"0xffff"+bytestring_table[memmap[addr]]+bytestring_table[memmap[addr+1]]}if(memmap[addr]){return"0x"+bytestring_table[memmap[addr]]+bytestring_table[memmap[addr+1]]}return"0x"+bytestring_table[memmap[addr+1]]}function QuoteMem4(addr){if(memmap[addr]){return"0x"+bytestring_table[memmap[addr]]+bytestring_table[memmap[addr+1]]+bytestring_table[memmap[addr+2]]+bytestring_table[memmap[addr+3]]}if(memmap[addr+1]){return"0x"+bytestring_table[memmap[addr+1]]+bytestring_table[memmap[addr+2]]+bytestring_table[memmap[addr+3]]}if(memmap[addr+2]){return"0x"+bytestring_table[memmap[addr+2]]+bytestring_table[memmap[addr+3]]}return"0x"+bytestring_table[memmap[addr+3]]}function ReadArgByte(addr){if(add
r==4294967295){return frame.valstack.pop()&255}else{return Mem1(addr)}}function WriteArgByte(addr,val){if(addr==4294967295){frame.valstack.push(val&255)}else{MemW1(addr,val)}}function ReadArgWord(addr){if(addr==4294967295){return frame.valstack.pop()}else{return Mem4(addr)}}function WriteArgWord(addr,val){if(addr==4294967295){frame.valstack.push(val)}else{MemW4(addr,val)}}function ReadStructField(addr,fieldnum){if(addr==4294967295){return frame.valstack.pop()}else{return Mem4(addr+4*fieldnum)}}function WriteStructField(addr,fieldnum,val){if(addr==4294967295){frame.valstack.push(val)}else{MemW4(addr+4*fieldnum,val)}}function SetResumeStore(val){resumevalue=val}function CharToString(val){if(val<65536){return String.fromCharCode(val)}else{val-=65536;return String.fromCharCode(55296+(val>>10),56320+(val&1023))}}function QuoteCharToString(val){if(val<256){return quotechar_table[val]}else{if(val<65536){val=val.toString(16);while(val.length<4){val="0"+val}return("\\u"+val)}else{var val2;val-=65536;val2=55296+(val>>
10);val=56320+(val&1023);return("\\u"+val2.toString(16)+"\\u"+val.toString(16))}}}function QuoteStr1ToString(val){return QuoteCharToString(val.charCodeAt(0))}var regexp_string_unsafe=/[^a-zA-Z0-9 .,;:?!=_+()-]/g;function QuoteEscapeString(val){val=val.replace(regexp_string_unsafe,QuoteStr1ToString);return'"'+val+'"'}function fatal_error(msg){var ix,val;if(arguments.length>1){msg+=" (";for(ix=1;ix<arguments.length;ix++){val=arguments[ix];if(typeof(val)=="number"){val=val.toString(16)}else{val=""+val}if(ix!=1){msg+=" "}msg+=val}msg+=")"}qlog(msg);throw (msg)}function make_code(val,arg){if(arg===undefined){eval("function _func() {\n"+val+"\n}")}else{eval("function _func("+arg+") {\n"+val+"\n}")}return _func}function VMFunc(funcaddr,startpc,localsformat,rawformat){this.funcaddr=funcaddr;this.startpc=startpc;this.functype=Mem1(funcaddr);this.pathaddrs={};this[0]={};this[1]={};this[2]={};this.locallen=null;this.localsformat=localsformat;this.rawformat=rawformat;this.localsindex=[];var ix,jx;var locallen=0;for(ix=0
;ix<this.localsformat.length;ix++){var form=this.localsformat[ix];if(form.size==4){while(locallen&3){locallen++}}else{if(form.size==2){while(locallen&1){locallen++}}}for(jx=0;jx<form.count;jx++){this.localsindex.push({size:form.size,pos:locallen});locallen+=form.size}}while(locallen&3){locallen++}this.locallen=locallen}function StackFrame(vmfunc){var ix;this.vmfunc=vmfunc;this.depth=null;this.framestart=null;this.framelen=null;this.valstack=[];this.localspos=null;this.localsindex=vmfunc.localsindex;this.locals=[];for(ix=0;ix<this.localsindex.length;ix++){var form=this.localsindex[ix];this.locals[form.pos]=0}this.framelen=8+vmfunc.rawformat.length+vmfunc.locallen}function clone_stackframe(frame){var other=new StackFrame(frame.vmfunc);other.depth=frame.depth;other.framestart=frame.framestart;other.framelen=frame.framelen;other.valstack=frame.valstack.slice(0);other.localspos=frame.localspos;other.locals=frame.locals.slice(0);other.framelen=frame.framelen;return other}function push_serialized_stackframe(frame,a
rr){BytePush4(arr,frame.framelen);var rawformat=frame.vmfunc.rawformat;BytePush4(arr,8+rawformat.length);for(var i=0;i<rawformat.length;i++){arr.push(rawformat[i])}for(var i=0;i<frame.vmfunc.localsindex.length;i++){var form=frame.vmfunc.localsindex[i];if(form.size==4){while(arr.length&3){arr.push(0)}BytePush4(arr,frame.locals[form.pos])}else{if(form.size==2){while(arr.length&1){arr.push(0)}BytePush2(arr,frame.locals[form.pos])}else{BytePush1(arr,frame.locals[form.pos])}}}while(arr.length&3){arr.push(0)}for(var i=0;i<frame.valstack.length;i++){BytePush4(arr,frame.valstack[i])}}function pop_deserialized_stackframe(arr,vmfunc){var frameptr=ByteRead4(arr,arr.length-4);if(frameptr<0||frameptr>=arr.length){qlog("Bad frameptr in serialized stack frame");return undefined}arr=arr.splice(frameptr,arr.length);var framelen=ByteRead4(arr,0);var localspos=ByteRead4(arr,4);if(localspos!=(8+vmfunc.rawformat.length)){qlog("LocalsPos in save file ("+localspos+") doesn't match game image ("+(8+vmfunc.rawformat.length)+")");ret
urn undefined}if(framelen!=(localspos+vmfunc.locallen)){qlog("FrameLen in save file ("+framelen+") doesn't match game image ("+(localspos+vmfunc.locallen)+")");return undefined}var frame=new StackFrame(vmfunc);frame.framestart=frameptr;for(var i=0;i<frame.vmfunc.localsindex.length;i++){var form=frame.vmfunc.localsindex[i];if(form.size==4){frame.locals[form.pos]=ByteRead4(arr,4+localspos+form.pos)}else{if(form.size==2){frame.locals[form.pos]=ByteRead2(arr,4+localspos+form.pos)}else{frame.locals[form.pos]=ByteRead1(arr,4+localspos+form.pos)}}}for(var pos=framelen;pos<arr.length;pos+=4){frame.valstack.push(ByteRead4(arr,pos))}return frame}function VMTextEnv(addr,dectab){if(addr==0){fatal_error("Tried to create a VMTextEnv for address zero.")}this.addr=addr;this.cacheable=(dectab!==undefined);this.decoding_tree=dectab;this.vmstring_tables=[];if(this.cacheable){this.vmstring_tables[0]={};this.vmstring_tables[1]={};this.vmstring_tables[2]={}}}var operandlist_table=null;function setup_operandlist_table(){function O
perandList(formlist,argsize){this.argsize=(argsize?argsize:4);this.numops=formlist.length;var ls=[];for(var ix=0;ix<formlist.length;ix++){ls.push(formlist.charAt(ix))}this.formlist=ls}var list_none=new OperandList("");var list_L=new OperandList("L");var list_LL=new OperandList("LL");var list_LLL=new OperandList("LLL");var list_LLLL=new OperandList("LLLL");var list_LS=new OperandList("LS");var list_LLS=new OperandList("LLS");var list_LLLLLLS=new OperandList("LLLLLLS");var list_LLLLLLLS=new OperandList("LLLLLLLS");var list_LLSS=new OperandList("LLSS");var list_LC=new OperandList("LC");var list_LLC=new OperandList("LLC");var list_LLLC=new OperandList("LLLC");var list_LLLLC=new OperandList("LLLLC");var list_ES=new OperandList("ES");var list_LES=new OperandList("LES");var list_EES=new OperandList("EES");var list_F=new OperandList("F");var list_LF=new OperandList("LF");var list_LLF=new OperandList("LLF");var list_EF=new OperandList("EF");var list_1EF=new OperandList("EF",1);var list_2EF=new OperandList("EF",2);var
list_S=new OperandList("S");var list_SS=new OperandList("SS");var list_CL=new OperandList("CL");var list_C=new OperandList("C");operandlist_table={0:list_none,16:list_EES,17:list_LES,18:list_LLS,19:list_LLS,20:list_LLS,21:list_ES,24:list_EES,25:list_EES,26:list_EES,27:list_ES,28:list_LLS,29:list_LLS,30:list_LLS,32:list_L,34:list_LL,35:list_LL,36:list_LLL,37:list_LLL,38:list_LLL,39:list_LLL,40:list_LLL,41:list_LLL,42:list_LLL,43:list_LLL,44:list_LLL,45:list_LLL,48:list_LLC,49:list_L,50:list_CL,51:list_LL,52:list_LL,64:list_EF,65:list_2EF,66:list_1EF,68:list_LS,69:list_LS,72:list_LLS,73:list_LLS,74:list_LLS,75:list_LLS,76:list_LLL,77:list_LLL,78:list_LLL,79:list_LLL,80:list_F,81:list_LF,82:list_none,83:list_LL,84:list_L,112:list_L,113:list_L,114:list_L,115:list_L,256:list_LLS,257:list_L,258:list_S,259:list_LS,260:list_L,272:list_LS,273:list_L,288:list_none,289:list_S,290:list_none,291:list_LC,292:list_LS,293:list_C,294:list_S,295:list_LL,304:list_LLF,320:list_S,321:list_L,328:list_SS,329:list_LL,336:list_LLLL
LLLS,337:list_LLLLLLLS,338:list_LLLLLLS,352:list_LC,353:list_LLC,354:list_LLLC,355:list_LLLLC,368:list_LL,369:list_LLL,376:list_LS,377:list_L,384:list_LL,385:list_LL,400:list_LS,401:list_LS,402:list_LS,408:list_LS,409:list_LS,416:list_LLS,417:list_LLS,418:list_LLS,419:list_LLS,420:list_LLSS,424:list_LS,425:list_LS,426:list_LS,427:list_LLS,432:list_LS,433:list_LS,434:list_LS,435:list_LS,436:list_LS,437:list_LS,438:list_LLS,448:list_LLLL,449:list_LLLL,450:list_LLL,451:list_LLL,452:list_LLL,453:list_LLL,456:list_LL,457:list_LL}}var funcop_cache={};function oputil_record_funcop(funcop){if(funcop.mode==0){return"null"}var key="m"+funcop.mode;if(funcop.argsize!=null){key=key+"s"+funcop.argsize}if(funcop.addr!=null){key=key+"a"+funcop.addr}if(funcop_cache.key){return"funcop_cache."+key}var obj={key:key,mode:funcop.mode,argsize:funcop.argsize,addr:funcop.addr};funcop_cache[key]=obj;return"funcop_cache."+key}function oputil_store(context,funcop,operand){switch(funcop.mode){case 8:if(quot_isconstant(operand)&&funcop.a
rgsize==4){context.offstack.push(operand)}else{holdvar=alloc_holdvar(context,true);context.offstack.push(holdvar);if(funcop.argsize==4){context.code.push(holdvar+"=("+operand+");")}else{if(funcop.argsize==2){context.code.push(holdvar+"=0xffff&("+operand+");")}else{context.code.push(holdvar+"=0xff&("+operand+");")}}}return;case 0:context.code.push("("+operand+");");return;case 11:if(funcop.argsize==4){context.code.push("frame.locals["+funcop.addr+"]=("+operand+");")}else{if(funcop.argsize==2){context.code.push("frame.locals["+funcop.addr+"]=(0xffff &"+operand+");")}else{context.code.push("frame.locals["+funcop.addr+"]=(0xff &"+operand+");")}}return;case 15:if(funcop.argsize==4){context.code.push("MemW4("+funcop.addr+","+operand+");")}else{if(funcop.argsize==2){context.code.push("MemW2("+funcop.addr+","+operand+");")}else{context.code.push("MemW1("+funcop.addr+","+operand+");")}}return;default:fatal_error("Unknown addressing mode in store func operand.")}}function oputil_push_callstub(context,operand,addr){if(
addr===undefined){addr=context.cp}context.code.push("frame.valstack.push("+operand+","+addr+",frame.framestart);")}function oputil_push_substring_callstub(context){context.code.push("if (!substring) { substring=true;");context.code.push("frame.valstack.push(0x11,0,nextcp,frame.framestart);");context.code.push("}")}function oputil_unload_offstack(context,keepstack){if(context.offstack.length){context.code.push("frame.valstack.push("+context.offstack.join(",")+");");if(!keepstack){var holdvar;while(context.offstack.length){holdvar=context.offstack.pop();if(context.holduse[holdvar]!==undefined){context.holduse[holdvar]=false}}}}}function oputil_flush_string(context){if(context.buffer.length==0){return}var str=context.buffer.join("");context.buffer.length=0;context.code.push("Glk.glk_put_jstring("+QuoteEscapeString(str)+");")}function oputil_signify_operand(context,operand,hold){var val;if(quot_isconstant(operand)){val=Number(operand);if(val&2147483648){return""+(val-4294967296)}else{return operand}}val="("+oper
and+"&0xffffffff)";if(hold){var holdvar=alloc_holdvar(context);context.code.push(holdvar+"="+val+";");return holdvar}else{return val}}function oputil_decode_float(context,operand,hold){var val;if(quot_isconstant(operand)){val=Number(operand);if(val==2147483648){return"-0"}return""+decode_float(val)}val="decode_float("+operand+")";if(hold){var holdvar=alloc_holdvar(context);context.code.push(holdvar+"="+val+";");return holdvar}else{return val}}function oputil_perform_jump(context,operand,unconditional){if(quot_isconstant(operand)){var val=Number(operand);if(val==0||val==1){if(unconditional){context.offstack.length=0}else{}context.code.push("leave_function();");context.code.push("pop_callstub("+val+");")}else{oputil_unload_offstack(context,!unconditional);var newpc=(context.cp+val-2)>>>0;context.code.push("pc = "+newpc+";");context.vmfunc.pathaddrs[newpc]=true}}else{oputil_unload_offstack(context,!unconditional);context.code.push("if (("+operand+")==0 || ("+operand+")==1) {");context.code.push("leave_function(
);");context.code.push("pop_callstub("+operand+");");context.code.push("}");context.code.push("else {");context.code.push("pc = ("+context.cp+"+("+operand+")-2) >>>0;");context.code.push("}")}context.code.push("return;")}var opcode_table={0:function(context,operands){},16:function(context,operands){context.code.push(operands[2]+"(("+operands[0]+")+("+operands[1]+")) >>>0);")},17:function(context,operands){context.code.push(operands[2]+"(("+operands[0]+")-("+operands[1]+")) >>>0);")},18:function(context,operands){var sign0=oputil_signify_operand(context,operands[0]);var sign1=oputil_signify_operand(context,operands[1]);context.code.push(operands[2]+"(("+sign0+")*("+sign1+")) >>>0);")},19:function(context,operands){var sign0=oputil_signify_operand(context,operands[0]);var sign1=oputil_signify_operand(context,operands[1]);var holdvar=alloc_holdvar(context);context.code.push(holdvar+"=(("+sign0+")/("+sign1+"));");context.code.push("if (!isFinite("+holdvar+")) fatal_error('Division by zero.');");context.code.push
(operands[2]+"("+holdvar+">=0)?Math.floor("+holdvar+"):(-Math.floor(-"+holdvar+") >>>0));")},20:function(context,operands){var sign0=oputil_signify_operand(context,operands[0]);var sign1=oputil_signify_operand(context,operands[1]);var holdvar=alloc_holdvar(context);context.code.push(holdvar+"=(("+sign0+")%("+sign1+"));");context.code.push("if (!isFinite("+holdvar+")) fatal_error('Modulo division by zero.');");context.code.push(operands[2]+holdvar+" >>>0);")},21:function(context,operands){context.code.push(operands[1]+"(-("+operands[0]+")) >>>0);")},24:function(context,operands){context.code.push(operands[2]+"(("+operands[0]+")&("+operands[1]+")) >>>0);")},25:function(context,operands){context.code.push(operands[2]+"(("+operands[0]+")|("+operands[1]+")) >>>0);")},26:function(context,operands){context.code.push(operands[2]+"(("+operands[0]+")^("+operands[1]+")) >>>0);")},27:function(context,operands){context.code.push(operands[1]+"(~("+operands[0]+")) >>>0);")},28:function(context,operands){if(quot_isconstant(
operands[1])){var val=Number(operands[1]);if(val<32){context.code.push(operands[2]+"(("+operands[0]+")<<"+val+") >>>0);")}else{context.code.push(operands[2]+"0);")}}else{context.code.push(operands[2]+"("+operands[1]+"<32) ? (("+operands[0]+"<<"+operands[1]+") >>>0) : 0);")}},29:function(context,operands){if(quot_isconstant(operands[1])){var val=Number(operands[1]);if(val<32){context.code.push(operands[2]+"(("+operands[0]+")>>"+val+") >>>0);")}else{context.code.push(operands[2]+"(("+operands[0]+")&0x80000000) ? 0xffffffff : 0);")}}else{context.code.push("if ("+operands[0]+" & 0x80000000) {");context.code.push(operands[2]+"("+operands[1]+"<32) ? (("+operands[0]+">>"+operands[1]+") >>>0) : 0xffffffff);");context.code.push("} else {");context.code.push(operands[2]+"("+operands[1]+"<32) ? (("+operands[0]+">>"+operands[1]+") >>>0) : 0);");context.code.push("}")}},30:function(context,operands){if(quot_isconstant(operands[1])){var val=Number(operands[1]);if(val<32){context.code.push(operands[2]+"("+operands[0]+")>>>
"+val+");")}else{context.code.push(operands[2]+"0);")}}else{context.code.push(operands[2]+"("+operands[1]+"<32) ? ("+operands[0]+">>>"+operands[1]+") : 0);")}},32:function(context,operands){oputil_perform_jump(context,operands[0],true);context.path_ends=true},260:function(context,operands){if(quot_isconstant(operands[0])){var newpc=Number(operands[0]);context.code.push("pc = "+newpc+";");context.vmfunc.pathaddrs[newpc]=true}else{context.code.push("pc = "+operands[0]+";")}oputil_unload_offstack(context);context.code.push("return;");context.path_ends=true},34:function(context,operands){context.code.push("if (("+operands[0]+")==0) {");oputil_perform_jump(context,operands[1]);context.code.push("}")},35:function(context,operands){context.code.push("if (("+operands[0]+")!=0) {");oputil_perform_jump(context,operands[1]);context.code.push("}")},36:function(context,operands){context.code.push("if (("+operands[0]+")==("+operands[1]+")) {");oputil_perform_jump(context,operands[2]);context.code.push("}")},37:function(co
ntext,operands){context.code.push("if (("+operands[0]+")!=("+operands[1]+")) {");oputil_perform_jump(context,operands[2]);context.code.push("}")},38:function(context,operands){var sign0=oputil_signify_operand(context,operands[0]);var sign1=oputil_signify_operand(context,operands[1]);context.code.push("if (("+sign0+")<("+sign1+")) {");oputil_perform_jump(context,operands[2]);context.code.push("}")},39:function(context,operands){var sign0=oputil_signify_operand(context,operands[0]);var sign1=oputil_signify_operand(context,operands[1]);context.code.push("if (("+sign0+")>=("+sign1+")) {");oputil_perform_jump(context,operands[2]);context.code.push("}")},40:function(context,operands){var sign0=oputil_signify_operand(context,operands[0]);var sign1=oputil_signify_operand(context,operands[1]);context.code.push("if (("+sign0+")>("+sign1+")) {");oputil_perform_jump(context,operands[2]);context.code.push("}")},41:function(context,operands){var sign0=oputil_signify_operand(context,operands[0]);var sign1=oputil_signify_op
erand(context,operands[1]);context.code.push("if (("+sign0+")<=("+sign1+")) {");oputil_perform_jump(context,operands[2]);context.code.push("}")},42:function(context,operands){context.code.push("if (("+operands[0]+")<("+operands[1]+")) {");oputil_perform_jump(context,operands[2]);context.code.push("}")},43:function(context,operands){context.code.push("if (("+operands[0]+")>=("+operands[1]+")) {");oputil_perform_jump(context,operands[2]);context.code.push("}")},44:function(context,operands){context.code.push("if (("+operands[0]+")>("+operands[1]+")) {");oputil_perform_jump(context,operands[2]);context.code.push("}")},45:function(context,operands){context.code.push("if (("+operands[0]+")<=("+operands[1]+")) {");oputil_perform_jump(context,operands[2]);context.code.push("}")},48:function(context,operands){if(quot_isconstant(operands[1])){var ix;var argc=Number(operands[1]);for(ix=0;ix<argc;ix++){if(context.offstack.length){var holdvar=pop_offstack_holdvar(context);context.code.push("tempcallargs["+ix+"]="+holdva
r+";")}else{context.code.push("tempcallargs["+ix+"]=frame.valstack.pop();")}}oputil_unload_offstack(context)}else{context.varsused.ix=true;oputil_unload_offstack(context);context.code.push("for (ix=0; ix<"+operands[1]+"; ix++) { tempcallargs[ix]=frame.valstack.pop(); }")}oputil_push_callstub(context,operands[2]);context.code.push("enter_function("+operands[0]+", "+operands[1]+");");context.code.push("return;");context.path_ends=true},52:function(context,operands){if(quot_isconstant(operands[1])){var ix;var argc=Number(operands[1]);for(ix=0;ix<argc;ix++){if(context.offstack.length){var holdvar=pop_offstack_holdvar(context);context.code.push("tempcallargs["+ix+"]="+holdvar+";")}else{context.code.push("tempcallargs["+ix+"]=frame.valstack.pop();")}}oputil_unload_offstack(context)}else{context.varsused.ix=true;oputil_unload_offstack(context);context.code.push("for (ix=0; ix<"+operands[1]+"; ix++) { tempcallargs[ix]=frame.valstack.pop(); }")}context.code.push("leave_function();");context.code.push("enter_function(
"+operands[0]+", "+operands[1]+");");context.code.push("return;");context.path_ends=true},352:function(context,operands){oputil_unload_offstack(context);oputil_push_callstub(context,operands[1]);context.code.push("enter_function("+operands[0]+", 0);");context.code.push("return;");context.path_ends=true},353:function(context,operands){oputil_unload_offstack(context);context.code.push("tempcallargs[0]=("+operands[1]+");");oputil_push_callstub(context,operands[2]);context.code.push("enter_function("+operands[0]+", 1);");context.code.push("return;");context.path_ends=true},354:function(context,operands){oputil_unload_offstack(context);context.code.push("tempcallargs[0]=("+operands[1]+");");context.code.push("tempcallargs[1]=("+operands[2]+");");oputil_push_callstub(context,operands[3]);context.code.push("enter_function("+operands[0]+", 2);");context.code.push("return;");context.path_ends=true},355:function(context,operands){oputil_unload_offstack(context);context.code.push("tempcallargs[0]=("+operands[1]+");");c
ontext.code.push("tempcallargs[1]=("+operands[2]+");");context.code.push("tempcallargs[2]=("+operands[3]+");");oputil_push_callstub(context,operands[4]);context.code.push("enter_function("+operands[0]+", 3);");context.code.push("return;");context.path_ends=true},49:function(context,operands){context.offstack.length=0;context.code.push("leave_function();");context.code.push("pop_callstub("+operands[0]+");");context.code.push("return;");context.path_ends=true},50:function(context,operands){oputil_unload_offstack(context);oputil_push_callstub(context,operands[0]);context.code.push("store_operand("+operands[0]+",frame.framestart+frame.framelen+4*frame.valstack.length);");oputil_perform_jump(context,operands[1],true);context.path_ends=true},51:function(context,operands){context.offstack.length=0;context.code.push("pop_stack_to("+operands[1]+");");context.code.push("pop_callstub("+operands[0]+");");context.code.push("return;");context.path_ends=true},64:function(context,operands){oputil_store(context,operands[1],o
perands[0])},65:function(context,operands){oputil_store(context,operands[1],operands[0])},66:function(context,operands){oputil_store(context,operands[1],operands[0])},68:function(context,operands){var val;if(quot_isconstant(operands[0])){val=Number(operands[0]);val=(val&32768)?((val|4294901760)>>>0):(val&65535);context.code.push(operands[1]+val+");")}else{context.code.push(operands[1]+"("+operands[0]+" & 0x8000) ? (("+operands[0]+" | 0xffff0000) >>> 0) : ("+operands[0]+" & 0xffff));")}},69:function(context,operands){var val;if(quot_isconstant(operands[0])){val=Number(operands[0]);val=(val&128)?((val|4294967040)>>>0):(val&255);context.code.push(operands[1]+val+");")}else{context.code.push(operands[1]+"("+operands[0]+" & 0x80) ? (("+operands[0]+" | 0xffffff00) >>> 0) : ("+operands[0]+" & 0xff));")}},72:function(context,operands){var val,addr;if(quot_isconstant(operands[1])){if(quot_isconstant(operands[0])){addr=Number(operands[0])+Number(operands[1])*4;val="Mem4("+(addr>>>0)+")"}else{var addr=Number(operands[1
])*4;if(addr){val="Mem4(("+operands[0]+"+"+addr+") >>>0)"}else{val="Mem4("+operands[0]+")"}}}else{val="Mem4(("+operands[0]+"+4*"+operands[1]+") >>>0)"}context.code.push(operands[2]+val+");")},73:function(context,operands){var val,addr;if(quot_isconstant(operands[1])){if(quot_isconstant(operands[0])){addr=Number(operands[0])+Number(operands[1])*2;val="Mem2("+(addr>>>0)+")"}else{var addr=Number(operands[1])*2;if(addr){val="Mem2(("+operands[0]+"+"+addr+") >>>0)"}else{val="Mem2("+operands[0]+")"}}}else{val="Mem2(("+operands[0]+"+2*"+operands[1]+") >>>0)"}context.code.push(operands[2]+val+");")},74:function(context,operands){var val,addr;if(quot_isconstant(operands[1])){if(quot_isconstant(operands[0])){addr=Number(operands[0])+Number(operands[1]);val="Mem1("+(addr>>>0)+")"}else{var addr=Number(operands[1]);if(addr){val="Mem1(("+operands[0]+"+"+addr+") >>>0)"}else{val="Mem1("+operands[0]+")"}}}else{val="Mem1(("+operands[0]+"+"+operands[1]+") >>>0)"}context.code.push(operands[2]+val+");")},76:function(context,opera
nds){var val,addr;if(quot_isconstant(operands[1])){if(quot_isconstant(operands[0])){addr=Number(operands[0])+Number(operands[1])*4;val=(addr>>>0)+","}else{var addr=Number(operands[1])*4;if(addr){val="("+operands[0]+"+"+addr+") >>>0,"}else{val=operands[0]+","}}}else{val="("+operands[0]+"+4*"+operands[1]+") >>>0,"}context.code.push("MemW4("+val+operands[2]+");")},77:function(context,operands){var val,addr;if(quot_isconstant(operands[1])){if(quot_isconstant(operands[0])){addr=Number(operands[0])+Number(operands[1])*2;val=(addr>>>0)+","}else{var addr=Number(operands[1])*2;if(addr){val="("+operands[0]+"+"+addr+") >>>0,"}else{val=operands[0]+","}}}else{val="("+operands[0]+"+2*"+operands[1]+") >>>0,"}context.code.push("MemW2("+val+operands[2]+");")},78:function(context,operands){var val,addr;if(quot_isconstant(operands[1])){if(quot_isconstant(operands[0])){addr=Number(operands[0])+Number(operands[1]);val=(addr>>>0)+","}else{var addr=Number(operands[1]);if(addr){val="("+operands[0]+"+"+addr+") >>>0,"}else{val=operan
ds[0]+","}}}else{val="("+operands[0]+"+"+operands[1]+") >>>0,"}context.code.push("MemW1("+val+operands[2]+");")},75:function(context,operands){if(quot_isconstant(operands[1])){var bitx,addrx,bitnum;bitnum=Number(operands[1])&4294967295;bitx=bitnum&7;if(quot_isconstant(operands[0])){addrx=Number(operands[0]);if(bitnum>=0){addrx+=(bitnum>>3)}else{addrx-=(1+((-1-bitnum)>>3))}}else{if(bitnum>=0){if(bitnum<=7){addrx=operands[0]}else{addrx=(operands[0]+"+"+(bitnum>>3))}}else{addrx=(operands[0]+"-"+(1+((-1-bitnum)>>3)))}}context.code.push(operands[2]+"(Mem1("+addrx+") & "+(1<<bitx)+")?1:0);")}else{context.varsused.bitx=true;context.varsused.addrx=true;var sign1=oputil_signify_operand(context,operands[1],true);context.code.push("bitx = "+sign1+"&7;");context.code.push("if ("+sign1+">=0) addrx = "+operands[0]+" + ("+sign1+">>3);");context.code.push("else addrx = "+operands[0]+" - (1+((-1-("+sign1+"))>>3));");context.code.push(operands[2]+"(Mem1(addrx) & (1<<bitx))?1:0);")}},79:function(context,operands){var bitx,addr
x,mask,bitnum;if(quot_isconstant(operands[1])){bitnum=Number(operands[1])&4294967295;bitx=bitnum&7;if(quot_isconstant(operands[0])){addrx=Number(operands[0]);if(bitnum>=0){addrx+=(bitnum>>3)}else{addrx-=(1+((-1-bitnum)>>3))}}else{if(bitnum>=0){if(bitnum<=7){addrx=operands[0]}else{addrx=(operands[0]+"+"+(bitnum>>3))}}else{addrx=(operands[0]+"-"+(1+((-1-bitnum)>>3)))}}mask=(1<<bitx)}else{context.varsused.bitx=true;context.varsused.addrx=true;var sign1=oputil_signify_operand(context,operands[1],true);context.code.push("bitx = "+sign1+"&7;");context.code.push("if ("+sign1+">=0) addrx = "+operands[0]+" + ("+sign1+">>3);");context.code.push("else addrx = "+operands[0]+" - (1+((-1-("+sign1+"))>>3));");addrx="addrx";mask="(1<<bitx)"}if(quot_isconstant(operands[2])){if(Number(operands[2])){context.code.push("MemW1("+addrx+", Mem1("+addrx+") | "+mask+");")}else{context.code.push("MemW1("+addrx+", Mem1("+addrx+") & ~("+mask+"));")}}else{context.code.push("if ("+operands[2]+") MemW1("+addrx+", Mem1("+addrx+") | "+mask+"
);");context.code.push("else MemW1("+addrx+", Mem1("+addrx+") & ~("+mask+"));")}},80:function(context,operands){var val;var count=context.offstack.length;if(count){val="frame.valstack.length+"+count}else{val="frame.valstack.length"}oputil_store(context,operands[0],val)},81:function(context,operands){var val;if(quot_isconstant(operands[0])){var pos=Number(operands[0]);if(pos<context.offstack.length){val=context.offstack[context.offstack.length-(pos+1)]}else{val="frame.valstack[frame.valstack.length-"+((pos+1)-context.offstack.length)+"]"}}else{oputil_unload_offstack(context);val="frame.valstack[frame.valstack.length-("+operands[0]+"+1)]"}oputil_store(context,operands[1],val)},82:function(context,operands){var temp,len;if(context.offstack.length<2){transfer_to_offstack(context,2)}len=context.offstack.length;temp=context.offstack[len-1];context.offstack[len-1]=context.offstack[len-2];context.offstack[len-2]=temp},83:function(context,operands){oputil_unload_offstack(context);context.varsused.ix=true;context.vars
used.pos=true;context.varsused.roll=true;context.varsused.vals1=true;var sign0=oputil_signify_operand(context,operands[0],true);var sign1=oputil_signify_operand(context,operands[1],true);context.code.push("if ("+sign0+" > 0) {");context.code.push("if ("+sign1+" > 0) {");context.code.push("vals1 = "+sign1+" % "+sign0+";");context.code.push("} else {");context.code.push("vals1 = "+sign0+" - (-("+sign1+")) % "+sign0+";");context.code.push("}");context.code.push("if (vals1) {");context.code.push("pos = frame.valstack.length - "+sign0+";");context.code.push("roll = frame.valstack.slice(frame.valstack.length-vals1, frame.valstack.length).concat(frame.valstack.slice(pos, frame.valstack.length-vals1));");context.code.push("for (ix=0; ix<"+sign0+"; ix++) { frame.valstack[pos+ix] = roll[ix]; }");context.code.push("roll = undefined;");context.code.push("}");context.code.push("}")},84:function(context,operands){oputil_unload_offstack(context);if(quot_isconstant(operands[0])){var ix,holdvar;var pos=Number(operands[0]);fo
r(ix=0;ix<pos;ix++){holdvar=alloc_holdvar(context,true);context.offstack.push(holdvar);context.code.push(holdvar+"=frame.valstack[frame.valstack.length-"+(pos-ix)+"];")}}else{context.varsused.ix=true;context.varsused.jx=true;context.code.push("jx = frame.valstack.length-("+operands[0]+");");context.code.push("for (ix=0; ix<"+operands[0]+"; ix++) { frame.valstack.push(frame.valstack[jx+ix]); }")}},256:function(context,operands){var expr="do_gestalt(("+operands[0]+"),("+operands[1]+"))";context.code.push(operands[2]+expr+");")},257:function(context,operands){context.code.push("fatal_error('User debugtrap encountered.', "+operands[0]+");")},258:function(context,operands){context.code.push(operands[0]+"endmem);")},259:function(context,operands){context.code.push("change_memsize("+operands[0]+",false);");context.code.push(operands[1]+"0);")},272:function(context,operands){var expr;if(quot_isconstant(operands[0])){var val=Number(operands[0])&4294967295;if(val==0){expr="(Math.floor(random_func() * 0x10000) | (Math.
floor(random_func() * 0x10000) << 16)) >>>0"}else{if(val>0){expr="Math.floor(random_func() * "+val+")"}else{expr="-Math.floor(random_func() * "+(-val)+")"}}}else{var sign0=oputil_signify_operand(context,operands[0],true);var holdvar=alloc_holdvar(context);expr=holdvar;context.code.push("if ("+sign0+" > 0)");context.code.push(holdvar+" = Math.floor(random_func() * "+sign0+");");context.code.push("else if ("+sign0+" < 0)");context.code.push(holdvar+" = -Math.floor(random_func() * -"+sign0+");");context.code.push("else");context.code.push(holdvar+" = (Math.floor(random_func() * 0x10000) | (Math.floor(random_func() * 0x10000) << 16)) >>>0;")}context.code.push(operands[1]+expr+");")},273:function(context,operands){context.code.push("set_random("+operands[0]+");")},288:function(context,operands){context.offstack.length=0;context.code.push("done_executing = true; vm_stopped = true;");context.code.push("return;");context.path_ends=true},289:function(context,operands){context.code.push(operands[0]+"perform_verify());
")},290:function(context,operands){context.code.push("vm_restart();");context.code.push("return;");context.path_ends=true},291:function(context,operands){oputil_unload_offstack(context);context.varsused.ix=true;oputil_push_callstub(context,operands[1]);context.code.push("ix = vm_save("+operands[0]+");");context.code.push("pop_callstub(ix ? 0 : 1);");context.code.push("return;");context.path_ends=true},292:function(context,operands){oputil_unload_offstack(context);context.code.push("if (vm_restore("+operands[0]+")) {");context.code.push("pop_callstub((-1)>>>0);");context.code.push("} else {");context.code.push(operands[1]+"1);");context.code.push("pc = "+context.cp+";");context.code.push("}");context.code.push("return;");context.path_ends=true},293:function(context,operands){oputil_unload_offstack(context);oputil_push_callstub(context,operands[0]);context.code.push("vm_saveundo();");context.code.push("pop_callstub(0);");context.code.push("return;");context.path_ends=true},294:function(context,operands){oputil
_unload_offstack(context);context.code.push("if (vm_restoreundo()) {");context.code.push("pop_callstub((-1)>>>0);");context.code.push("} else {");context.code.push(operands[0]+"1);");context.code.push("pc = "+context.cp+";");context.code.push("}");context.code.push("return;");context.path_ends=true},295:function(context,operands){context.code.push("protectstart="+operands[0]+";");context.code.push("protectend=protectstart+("+operands[1]+");");context.code.push("if (protectstart==protectend) {");context.code.push("  protectstart=0; protectend=0;");context.code.push("}")},368:function(context,operands){context.varsused.maddr=true;context.varsused.mlen=true;context.varsused.ix=true;context.code.push("mlen="+operands[0]+";");context.code.push("maddr="+operands[1]+";");context.code.push("for (ix=0; ix<mlen; ix++, maddr++) MemW1(maddr, 0);")},369:function(context,operands){context.varsused.msrc=true;context.varsused.mdest=true;context.varsused.mlen=true;context.varsused.ix=true;context.code.push("mlen="+operands[0
]+";");context.code.push("msrc="+operands[1]+";");context.code.push("mdest="+operands[2]+";");context.code.push("if (mdest < msrc) {");context.code.push("for (ix=0; ix<mlen; ix++, msrc++, mdest++) MemW1(mdest, Mem1(msrc));");context.code.push("} else {");context.code.push("msrc += (mlen-1); mdest += (mlen-1);");context.code.push("for (ix=0; ix<mlen; ix++, msrc--, mdest--) MemW1(mdest, Mem1(msrc));");context.code.push("}")},376:function(context,operands){var expr="heap_malloc("+operands[0]+")";context.code.push(operands[1]+expr+");")},377:function(context,operands){context.code.push("heap_free("+operands[0]+");")},384:function(context,operands){},385:function(context,operands){},336:function(context,operands){var expr="linear_search(("+operands[0]+"),("+operands[1]+"),("+operands[2]+"),("+operands[3]+"),("+operands[4]+"),("+operands[5]+"),("+operands[6]+"))";context.code.push(operands[7]+expr+");")},337:function(context,operands){var expr="binary_search(("+operands[0]+"),("+operands[1]+"),("+operands[2]+"),("
+operands[3]+"),("+operands[4]+"),("+operands[5]+"),("+operands[6]+"))";context.code.push(operands[7]+expr+");")},338:function(context,operands){var expr="linked_search(("+operands[0]+"),("+operands[1]+"),("+operands[2]+"),("+operands[3]+"),("+operands[4]+"),("+operands[5]+"))";context.code.push(operands[6]+expr+");")},112:function(context,operands){switch(context.curiosys){case 2:if(quot_isconstant(operands[0])){var val=Number(operands[0])&255;context.code.push("Glk.glk_put_char("+val+");")}else{context.code.push("Glk.glk_put_char(("+operands[0]+")&0xff);")}break;case 1:oputil_unload_offstack(context);context.code.push("tempcallargs[0]=(("+operands[0]+")&0xff);");oputil_push_callstub(context,"0,0");context.code.push("enter_function(iosysrock, 1);");context.code.push("return;");context.path_ends=true;break;case 0:break}},113:function(context,operands){switch(context.curiosys){case 2:var sign0=oputil_signify_operand(context,operands[0]);if(quot_isconstant(operands[0])){var val=Number(sign0).toString(10);conte
xt.code.push("Glk.glk_put_jstring("+QuoteEscapeString(val)+", true);")}else{context.code.push("Glk.glk_put_jstring(("+sign0+").toString(10), true);")}break;case 1:oputil_unload_offstack(context);context.code.push("stream_num("+context.cp+","+operands[0]+", false, 0);");context.code.push("return;");context.path_ends=true;break;case 0:break}},114:function(context,operands){oputil_unload_offstack(context);context.code.push("if (stream_string("+context.cp+","+operands[0]+", 0, 0)) return;")},115:function(context,operands){switch(context.curiosys){case 2:if(quot_isconstant(operands[0])){var val=Number(operands[0]);context.code.push("Glk.glk_put_char_uni("+val+");")}else{context.code.push("Glk.glk_put_char_uni("+operands[0]+");")}break;case 1:oputil_unload_offstack(context);context.code.push("tempcallargs[0]=("+operands[0]+");");oputil_push_callstub(context,"0,0");context.code.push("enter_function(iosysrock, 1);");context.code.push("return;");context.path_ends=true;break;case 0:break}},320:function(context,operand
s){context.code.push(operands[0]+"stringtable)")},321:function(context,operands){context.code.push("set_string_table("+operands[0]+");")},328:function(context,operands){context.code.push(operands[0]+"iosysmode)");context.code.push(operands[1]+"iosysrock)")},329:function(context,operands){context.code.push("set_iosys("+operands[0]+","+operands[1]+");");if(quot_isconstant(operands[0])){var val=Number(operands[0]);context.curiosys=val}else{oputil_unload_offstack(context);context.code.push("pc = "+context.cp+";");context.code.push("return;");context.path_ends=true}},400:function(context,operands){var sign0=oputil_signify_operand(context,operands[0]);if(quot_isconstant(operands[0])){var val=Number(sign0);context.code.push(operands[1]+encode_float(val)+");")}else{context.code.push(operands[1]+"encode_float("+sign0+"));")}},401:function(context,operands){context.varsused.valf=true;context.varsused.res=true;context.code.push("valf = "+oputil_decode_float(context,operands[0])+";");context.code.push("if (!("+operands[
0]+" & 0x80000000)) {");context.code.push("  if (isNaN(valf) || !isFinite(valf) || (valf > 0x7fffffff))");context.code.push("    res = 0x7fffffff;");context.code.push("  else");context.code.push("    res = Math.floor(valf);");context.code.push("} else {");context.code.push("  if (isNaN(valf) || !isFinite(valf) || (valf < -0x80000000))");context.code.push("    res = -0x80000000;");context.code.push("  else");context.code.push("    res = Math.ceil(valf);");context.code.push("}");context.code.push(operands[1]+"res>>>0);")},402:function(context,operands){context.varsused.valf=true;context.varsused.res=true;context.code.push("valf = "+oputil_decode_float(context,operands[0])+";");context.code.push("if (!("+operands[0]+" & 0x80000000)) {");context.code.push("  if (isNaN(valf) || !isFinite(valf))");context.code.push("    res = 0x7fffffff;");context.code.push("  else");context.code.push("    res = Math.round(valf);");context.code.push("  if (res > 0x7fffffff) res = 0x7fffffff;");context.code.push("} else {");context
code.push("  if (isNaN(valf) || !isFinite(valf))");context.code.push("    res = -0x80000000;");context.code.push("  else");context.code.push("    res = Math.round(valf);");context.code.push("  if (res < -0x80000000) res = -0x80000000;");context.code.push("}");context.code.push(operands[1]+"res>>>0);")},408:function(context,operands){var valf=oputil_decode_float(context,operands[0]);context.code.push(operands[1]+"encode_float(Math.ceil("+valf+")));")},409:function(context,operands){var valf=oputil_decode_float(context,operands[0]);context.code.push(operands[1]+"encode_float(Math.floor("+valf+")));")},416:function(context,operands){var valf0=oputil_decode_float(context,operands[0]);var valf1=oputil_decode_float(context,operands[1]);context.code.push(operands[2]+"encode_float("+valf0+" + "+valf1+"));")},417:function(context,operands){var valf0=oputil_decode_float(context,operands[0]);var valf1=oputil_decode_float(context,operands[1]);context.code.push(operands[2]+"encode_float("+valf0+" - "+valf1+"));")},418:f
unction(context,operands){var valf0=oputil_decode_float(context,operands[0]);var valf1=oputil_decode_float(context,operands[1]);context.code.push(operands[2]+"encode_float("+valf0+" * "+valf1+"));")},419:function(context,operands){var valf0=oputil_decode_float(context,operands[0]);var valf1=oputil_decode_float(context,operands[1]);context.code.push(operands[2]+"encode_float("+valf0+" / "+valf1+"));")},420:function(context,operands){var valf0=oputil_decode_float(context,operands[0],true);var valf1=oputil_decode_float(context,operands[1],true);context.varsused.modv=true;context.varsused.quov=true;context.code.push("modv=("+valf0+" % "+valf1+");");context.code.push("quov=encode_float(("+valf0+" - modv) / "+valf1+");");context.code.push("if (quov == 0x0 || quov == 0x80000000) {");context.code.push("  quov = (("+operands[0]+" ^ "+operands[1]+") & 0x80000000) >>>0;");context.code.push("}");context.code.push(operands[2]+"encode_float(modv));");context.code.push(operands[3]+"quov);")},424:function(context,operands){
var valf=oputil_decode_float(context,operands[0]);context.code.push(operands[1]+"encode_float(Math.sqrt("+valf+")));")},425:function(context,operands){var valf=oputil_decode_float(context,operands[0]);context.code.push(operands[1]+"encode_float(Math.exp("+valf+")));")},426:function(context,operands){var valf=oputil_decode_float(context,operands[0]);context.code.push(operands[1]+"encode_float(Math.log("+valf+")));")},427:function(context,operands){context.varsused.valf=true;var valf0=oputil_decode_float(context,operands[0],true);var valf1=oputil_decode_float(context,operands[1],true);context.code.push("if ("+operands[0]+" == 0x3f800000) {");context.code.push("  valf = 0x3f800000;");context.code.push("} else if ("+operands[0]+" == 0xbf800000 && ("+operands[1]+" == 0xff800000 || "+operands[1]+" == 0x7f800000)) {");context.code.push("  valf = 0x3f800000;");context.code.push("} else {");context.code.push("  valf=encode_float(Math.pow("+valf0+", "+valf1+"));");context.code.push("}");context.code.push(operands[2]+"
valf);")},432:function(context,operands){var valf=oputil_decode_float(context,operands[0]);context.code.push(operands[1]+"encode_float(Math.sin("+valf+")));")},433:function(context,operands){var valf=oputil_decode_float(context,operands[0]);context.code.push(operands[1]+"encode_float(Math.cos("+valf+")));")},434:function(context,operands){var valf=oputil_decode_float(context,operands[0]);context.code.push(operands[1]+"encode_float(Math.tan("+valf+")));")},435:function(context,operands){var valf=oputil_decode_float(context,operands[0]);context.code.push(operands[1]+"encode_float(Math.asin("+valf+")));")},436:function(context,operands){var valf=oputil_decode_float(context,operands[0]);context.code.push(operands[1]+"encode_float(Math.acos("+valf+")));")},437:function(context,operands){var valf=oputil_decode_float(context,operands[0]);context.code.push(operands[1]+"encode_float(Math.atan("+valf+")));")},438:function(context,operands){var valf0=oputil_decode_float(context,operands[0]);var valf1=oputil_decode_floa
t(context,operands[1]);context.code.push(operands[2]+"encode_float(Math.atan2("+valf0+", "+valf1+")));")},448:function(context,operands){var val,valf0,valf1,valf2;context.varsused.fequal=true;context.varsused.fdiff=true;context.code.push("if (("+operands[2]+" & 0x7f800000) == 0x7f800000 && ("+operands[2]+" & 0x007fffff) != 0) {");context.code.push("  fequal = 0;");context.code.push("} else if (("+operands[0]+" == 0xff800000 || "+operands[0]+" == 0x7f800000) && ("+operands[1]+" == 0xff800000 || "+operands[1]+" == 0x7f800000)) {");context.code.push("  fequal = ("+operands[0]+" == "+operands[1]+");");context.code.push("} else {");if(quot_isconstant(operands[2])){val=Number(operands[2]);valf2=""+decode_float(val&2147483647)}else{val="decode_float(("+operands[2]+") & 0x7fffffff)";valf2=alloc_holdvar(context);context.code.push(valf2+"="+val+";")}valf0=oputil_decode_float(context,operands[0]);valf1=oputil_decode_float(context,operands[1]);context.code.push("  fdiff = "+valf1+" - "+valf0+";");context.code.push("  fe
qual = (fdiff <= "+valf2+" && fdiff >= -("+valf2+"));");context.code.push("}");context.code.push("if (fequal) {");oputil_perform_jump(context,operands[3]);context.code.push("}")},449:function(context,operands){var val,valf0,valf1,valf2;context.varsused.fequal=true;context.varsused.fdiff=true;context.code.push("if (("+operands[2]+" & 0x7f800000) == 0x7f800000 && ("+operands[2]+" & 0x007fffff) != 0) {");context.code.push("  fequal = 0;");context.code.push("} else if (("+operands[0]+" == 0xff800000 || "+operands[0]+" == 0x7f800000) && ("+operands[1]+" == 0xff800000 || "+operands[1]+" == 0x7f800000)) {");context.code.push("  fequal = ("+operands[0]+" == "+operands[1]+");");context.code.push("} else {");if(quot_isconstant(operands[2])){val=Number(operands[2]);valf2=""+decode_float(val&2147483647)}else{val="decode_float(("+operands[2]+") & 0x7fffffff)";valf2=alloc_holdvar(context);context.code.push(valf2+"="+val+";")}valf0=oputil_decode_float(context,operands[0]);valf1=oputil_decode_float(context,operands[1]);cont
ext.code.push("  fdiff = "+valf1+" - "+valf0+";");context.code.push("  fequal = (fdiff <= "+valf2+" && fdiff >= -("+valf2+"));");context.code.push("}");context.code.push("if (!fequal) {");oputil_perform_jump(context,operands[3]);context.code.push("}")},450:function(context,operands){valf0=oputil_decode_float(context,operands[0]);valf1=oputil_decode_float(context,operands[1]);context.code.push("if ("+valf0+" < "+valf1+") {");oputil_perform_jump(context,operands[2]);context.code.push("}")},451:function(context,operands){valf0=oputil_decode_float(context,operands[0]);valf1=oputil_decode_float(context,operands[1]);context.code.push("if ("+valf0+" <= "+valf1+") {");oputil_perform_jump(context,operands[2]);context.code.push("}")},452:function(context,operands){valf0=oputil_decode_float(context,operands[0]);valf1=oputil_decode_float(context,operands[1]);context.code.push("if ("+valf0+" > "+valf1+") {");oputil_perform_jump(context,operands[2]);context.code.push("}")},453:function(context,operands){valf0=oputil_decod
e_float(context,operands[0]);valf1=oputil_decode_float(context,operands[1]);context.code.push("if ("+valf0+" >= "+valf1+") {");oputil_perform_jump(context,operands[2]);context.code.push("}")},456:function(context,operands){context.code.push("if (("+operands[0]+" & 0x7f800000) == 0x7f800000 && ("+operands[0]+" & 0x007fffff) != 0) {");oputil_perform_jump(context,operands[1]);context.code.push("}")},457:function(context,operands){context.code.push("if ("+operands[0]+" == 0xff800000 || "+operands[0]+" == 0x7f800000) {");oputil_perform_jump(context,operands[1]);context.code.push("}")},304:function(context,operands){var mayblock;if(quot_isconstant(operands[0])){mayblock=Glk.call_may_not_return(Number(operands[0]))}else{mayblock=true}context.code.push("tempglkargs.length = "+operands[1]+";");if(quot_isconstant(operands[1])){var ix;var argc=Number(operands[1]);for(ix=0;ix<argc;ix++){if(context.offstack.length){var holdvar=pop_offstack_holdvar(context);context.code.push("tempglkargs["+ix+"]="+holdvar+";")}else{contex
t.code.push("tempglkargs["+ix+"]=frame.valstack.pop();")}}oputil_unload_offstack(context)}else{context.varsused.ix=true;oputil_unload_offstack(context);context.code.push("for (ix=0; ix<"+operands[1]+"; ix++) { tempglkargs[ix]=frame.valstack.pop(); }")}context.varsused.glkret=true;context.code.push("glkret = GiDispa.get_function("+operands[0]+")(tempglkargs);");if(mayblock){context.code.push("if (glkret === Glk.DidNotReturn) {");context.code.push("  resumefuncop = "+oputil_record_funcop(operands[2])+";");context.code.push("  resumevalue = 0;");context.code.push("  pc = "+context.cp+";");context.code.push("  done_executing = true;");context.code.push("  return;");context.code.push("}")}oputil_store(context,operands[2],"glkret")}};function alloc_holdvar(context,use){var ix=0;var key;while(true){key="_hold"+ix;if(!context.holduse[key]){context.holduse[key]=(use?1:true);return key}ix++}}function pop_offstack_holdvar(context){var holdvar=context.offstack.pop();if(quot_isconstant(holdvar)){return holdvar}var use=co
ntext.holduse[holdvar];use--;if(use==0){use=true}context.holduse[holdvar]=use;return holdvar}function transfer_to_offstack(context,count){var holdvar;while(context.offstack.length<count){holdvar=alloc_holdvar(context,true);context.offstack.unshift(holdvar);context.code.push(holdvar+"=frame.valstack.pop();")}}function quot_isconstant(val){return(val[0]==="0")}function parse_operands(context,cp,oplist,operands){var modeaddr;var ix,modeval,mode;var value,addr;var holdvar;operands.desttype=0;operands.numops=oplist.numops;modeaddr=cp;cp+=((oplist.numops+1)>>1);for(ix=0;ix<oplist.numops;ix++){if((ix&1)==0){modeval=Mem1(modeaddr);mode=(modeval&15)}else{mode=((modeval>>4)&15);modeaddr++}var optype=oplist.formlist[ix];if(optype=="L"){switch(mode){case 8:if(context.offstack.length){operands[ix]=pop_offstack_holdvar(context)}else{holdvar=alloc_holdvar(context);context.code.push(holdvar+"=frame.valstack.pop();");operands[ix]=holdvar}continue;case 0:operands[ix]="0";continue;case 1:value=QuoteMem1(cp);cp++;operands[ix]=v
alue;continue;case 2:value=QuoteMem2(cp);cp+=2;operands[ix]=value;continue;case 3:value=QuoteMem4(cp);cp+=4;operands[ix]=value;continue}if(mode>=9&&mode<=11){if(mode==9){addr=Mem1(cp);cp++}else{if(mode==10){addr=Mem2(cp);cp+=2}else{if(mode==11){addr=Mem4(cp);cp+=4}}}if(oplist.argsize==4){value="frame.locals["+addr+"]"}else{if(oplist.argsize==2){value="frame.locals["+addr+"] & 0xffff"}else{value="frame.locals["+addr+"] & 0xff"}}holdvar=alloc_holdvar(context);context.code.push(holdvar+"=("+value+");");operands[ix]=holdvar;continue}switch(mode){case 15:addr=Mem4(cp)+ramstart;cp+=4;break;case 14:addr=Mem2(cp)+ramstart;cp+=2;break;case 13:addr=Mem1(cp)+ramstart;cp++;break;case 7:addr=Mem4(cp);cp+=4;break;case 6:addr=Mem2(cp);cp+=2;break;case 5:addr=Mem1(cp);cp++;break;default:fatal_error("Unknown addressing mode in load operand.")}if(oplist.argsize==4){value="Mem4("+addr+")"}else{if(oplist.argsize==2){value="Mem2("+addr+")"}else{value="Mem1("+addr+")"}}holdvar=alloc_holdvar(context);context.code.push(holdvar+"=("
+value+");");operands[ix]=holdvar;continue}else{if(optype=="E"){switch(mode){case 8:if(context.offstack.length){operands[ix]=pop_offstack_holdvar(context)}else{operands[ix]="frame.valstack.pop()"}continue;case 0:operands[ix]="0";continue;case 1:value=QuoteMem1(cp);cp++;operands[ix]=value;continue;case 2:value=QuoteMem2(cp);cp+=2;operands[ix]=value;continue;case 3:value=QuoteMem4(cp);cp+=4;operands[ix]=value;continue}if(mode>=9&&mode<=11){if(mode==9){addr=Mem1(cp);cp++}else{if(mode==10){addr=Mem2(cp);cp+=2}else{if(mode==11){addr=Mem4(cp);cp+=4}}}if(oplist.argsize==4){operands[ix]="frame.locals["+addr+"]"}else{if(oplist.argsize==2){operands[ix]="frame.locals["+addr+"] & 0xffff"}else{operands[ix]="frame.locals["+addr+"] & 0xff"}}continue}switch(mode){case 15:addr=Mem4(cp)+ramstart;cp+=4;break;case 14:addr=Mem2(cp)+ramstart;cp+=2;break;case 13:addr=Mem1(cp)+ramstart;cp++;break;case 7:addr=Mem4(cp);cp+=4;break;case 6:addr=Mem2(cp);cp+=2;break;case 5:addr=Mem1(cp);cp++;break;default:fatal_error("Unknown addressing
mode in load operand.")}if(oplist.argsize==4){value="Mem4("+addr+")"}else{if(oplist.argsize==2){value="Mem2("+addr+")"}else{value="Mem1("+addr+")"}}operands[ix]=value;continue}else{if(optype=="S"){switch(mode){case 8:holdvar=alloc_holdvar(context,true);context.offstack.push(holdvar);operands[ix]=holdvar+"=(";continue;case 0:operands[ix]="(";continue}if(mode>=9&&mode<=11){if(mode==9){addr=Mem1(cp);cp++}else{if(mode==10){addr=Mem2(cp);cp+=2}else{if(mode==11){addr=Mem4(cp);cp+=4}}}if(oplist.argsize==4){operands[ix]="frame.locals["+addr+"]=("}else{if(oplist.argsize==2){operands[ix]="frame.locals["+addr+"]=(0xffff &"}else{operands[ix]="frame.locals["+addr+"]=(0xff &"}}continue}switch(mode){case 15:addr=Mem4(cp)+ramstart;cp+=4;break;case 14:addr=Mem2(cp)+ramstart;cp+=2;break;case 13:addr=Mem1(cp)+ramstart;cp++;break;case 7:addr=Mem4(cp);cp+=4;break;case 6:addr=Mem2(cp);cp+=2;break;case 5:addr=Mem1(cp);cp++;break;default:fatal_error("Unknown addressing mode in store operand.")}if(oplist.argsize==4){value="MemW4("+
addr+","}else{if(oplist.argsize==2){value="MemW2("+addr+","}else{value="MemW1("+addr+","}}operands[ix]=value;continue}else{if(optype=="F"){var funcop=operands.func_store;switch(mode){case 8:funcop.mode=8;funcop.argsize=oplist.argsize;operands[ix]=funcop;continue;case 0:funcop.mode=0;funcop.argsize=oplist.argsize;operands[ix]=funcop;continue}if(mode>=9&&mode<=11){if(mode==9){addr=Mem1(cp);cp++}else{if(mode==10){addr=Mem2(cp);cp+=2}else{if(mode==11){addr=Mem4(cp);cp+=4}}}funcop.mode=11;funcop.addr=addr;funcop.argsize=oplist.argsize;operands[ix]=funcop;continue}switch(mode){case 15:addr=Mem4(cp)+ramstart;cp+=4;break;case 14:addr=Mem2(cp)+ramstart;cp+=2;break;case 13:addr=Mem1(cp)+ramstart;cp++;break;case 7:addr=Mem4(cp);cp+=4;break;case 6:addr=Mem2(cp);cp+=2;break;case 5:addr=Mem1(cp);cp++;break;default:fatal_error("Unknown addressing mode in store operand.")}funcop.mode=15;funcop.addr=addr;funcop.argsize=oplist.argsize;operands[ix]=funcop;continue}else{if(optype=="C"){switch(mode){case 8:operands[ix]="3,0";con
tinue;case 0:operands[ix]="0,0";continue}if(mode>=9&&mode<=11){if(mode==9){addr=Mem1(cp);cp++}else{if(mode==10){addr=Mem2(cp);cp+=2}else{if(mode==11){addr=Mem4(cp);cp+=4}}}operands[ix]="2,"+addr;continue}switch(mode){case 15:addr=Mem4(cp)+ramstart;cp+=4;break;case 14:addr=Mem2(cp)+ramstart;cp+=2;break;case 13:addr=Mem1(cp)+ramstart;cp++;break;case 7:addr=Mem4(cp);cp+=4;break;case 6:addr=Mem2(cp);cp+=2;break;case 5:addr=Mem1(cp);cp++;break;default:fatal_error("Unknown addressing mode in store operand.")}operands[ix]="1,"+addr;continue}else{fatal_error("Unknown operand type.",optype)}}}}}}return cp}function compile_func(funcaddr){var addr=funcaddr;var functype=Mem1(addr);if(functype!=192&&functype!=193){if(functype>=192&&functype<=223){fatal_error("Call to unknown type of function.",addr)}else{fatal_error("Call to non-function.",addr)}}addr++;var localsformat=[];var rawstart=addr;var ix=0;while(1){var loctype=Mem1(addr);addr++;var locnum=Mem1(addr);addr++;if(loctype==0){break}if(loctype!=1&&loctype!=2&&loctype
!=4){fatal_error("Invalid local variable size in function header.",loctype)}localsformat.push({size:loctype,count:locnum})}var rawformat=memmap.slice(rawstart,addr);while(rawformat.length%4){rawformat.push(0)}return new VMFunc(funcaddr,addr,localsformat,rawformat)}function compile_path(vmfunc,startaddr,startiosys){var cp=startaddr;var opcode;var opcodecp;var key;var context={vmfunc:vmfunc,cp:null,curiosys:startiosys,code:[],holduse:{},varsused:{},offstack:[],path_ends:false};var operands={};operands.func_store={};context.code.push("");while(!context.path_ends){opcodecp=cp;opcode=Mem1(cp);if(opcode===undefined){fatal_error("Tried to compile nonexistent address",cp)}cp++;if(opcode&128){if(opcode&64){opcode&=63;opcode=(opcode*256)|Mem1(cp);cp++;opcode=(opcode*256)|Mem1(cp);cp++;opcode=(opcode*256)|Mem1(cp);cp++}else{opcode&=127;opcode=(opcode*256)|Mem1(cp);cp++}}var oplist=operandlist_table[opcode];if(!oplist){fatal_error("Encountered unknown opcode.",opcode)}cp=parse_operands(context,cp,oplist,operands);contex
t.cp=cp;var ophandler=opcode_table[opcode];if(!ophandler){fatal_error("Encountered unhandled opcode.",opcode)}ophandler(context,operands);for(key in context.holduse){if(context.holduse[key]===true){context.holduse[key]=false}}if(vmfunc.pathaddrs[cp]&&!context.path_ends){context.code.push("pc="+cp+";");oputil_unload_offstack(context);context.code.push("return;");context.path_ends=true}}if(context.offstack.length){fatal_error("Path compilation ended with nonempty offstack.",context.offstack.length)}var ls=[];for(key in context.holduse){ls.push(key)}for(key in context.varsused){ls.push(key)}if(ls.length){context.code[0]="var "+ls.join(",")+";"}return make_code(context.code.join("\n"))}function enter_function(addr,argcount){var ix;total_function_calls++;var vmfunc=vmfunc_table[addr];if(vmfunc===undefined){vmfunc=compile_func(addr);if(addr<ramstart){vmfunc_table[addr]=vmfunc}}pc=vmfunc.startpc;var newframe=new StackFrame(vmfunc);newframe.depth=stack.length;if(stack.length==0){newframe.framestart=0}else{newframe.f
ramestart=frame.framestart+frame.framelen+4*frame.valstack.length}stack.push(newframe);frame=newframe;if(vmfunc.functype==192){for(ix=argcount-1;ix>=0;ix--){frame.valstack.push(tempcallargs[ix])}frame.valstack.push(argcount)}else{for(ix=0;ix<argcount;ix++){var form=vmfunc.localsindex[ix];if(form===undefined){break}if(form.size==4){frame.locals[form.pos]=tempcallargs[ix]}else{if(form.size==2){frame.locals[form.pos]=tempcallargs[ix]&65535}else{if(form.size==1){frame.locals[form.pos]=tempcallargs[ix]&255}}}}}}var ReturnedFromMain={dummy:"The top-level function has returned."};function leave_function(){var olddepth=frame.depth;stack.pop();if(stack.length==0){frame=null;throw ReturnedFromMain}frame=stack[stack.length-1];if(frame.depth!=olddepth-1){fatal_error("Stack inconsistent after function exit.")}}function pop_stack_to(val){while(stack.length&&stack[stack.length-1].framestart>val){stack.pop()}if(stack.length==0){fatal_error("Stack evaporated during throw.")}frame=stack[stack.length-1];val-=(frame.framestart+
frame.framelen);if(val<0){fatal_error("Attempted to throw below the frame value stack.")}if(val&3){fatal_error("Attempted to throw to an unaligned address.")}val>>>=2;if(val>frame.valstack.length){fatal_error("Attempted to throw beyond the frame value stack.")}frame.valstack.length=val}function pop_callstub(val){var destaddr,desttype;if(isNaN(val)){fatal_error("Function returned undefined value.")}var framestart=frame.valstack.pop();if(framestart!=frame.framestart){fatal_error("Call stub frameptr ("+framestart+") does not match frame ("+frame.framestart+")")}pc=frame.valstack.pop();destaddr=frame.valstack.pop();desttype=frame.valstack.pop();switch(desttype){case 0:return;case 1:MemW4(destaddr,val);return;case 2:frame.locals[destaddr]=val;return;case 3:frame.valstack.push(val);return;case 17:fatal_error("String-terminator call stub at end of function call.");return;case 16:stream_string(0,pc,225,destaddr);return;case 18:stream_num(0,pc,true,destaddr);return;case 19:stream_string(0,pc,224,destaddr);return;case
20:stream_string(0,pc,226,destaddr);return;default:fatal_error("Unrecognized desttype in callstub.",desttype)}}function store_operand(desttype,destaddr,val){switch(desttype){case 0:return;case 1:MemW4(destaddr,val);return;case 2:frame.locals[destaddr]=val;return;case 3:frame.valstack.push(val);return;default:fatal_error("Unrecognized desttype in callstub.",desttype)}}function store_operand_by_funcop(funcop,val){if(!funcop){return}switch(funcop.mode){case 8:frame.valstack.push(val);return;case 0:return;case 11:if(funcop.argsize==4){frame.locals[funcop.addr]=(val)}else{if(funcop.argsize==2){frame.locals[funcop.addr]=(65535&val)}else{frame.locals[funcop.addr]=(255&val)}}return;case 15:if(funcop.argsize==4){MemW4(funcop.addr,val)}else{if(funcop.argsize==2){MemW2(funcop.addr,val)}else{MemW1(funcop.addr,val)}}return;default:fatal_error("Unknown addressing mode in store func by operand.")}}function set_random(val){if(val==0){random_func=Math.random}else{srand_set_seed(val);random_func=srand_get_random}}var srand_t
able=undefined;var srand_index1,srand_index2;function srand_set_seed(seed){var i,ii,k,val,loop;if(srand_table===undefined){srand_table=Array(55)}srand_table[54]=seed;srand_index1=0;srand_index2=31;k=1;for(i=0;i<55;i++){ii=(21*i)%55;srand_table[ii]=k;k=(seed-k)>>>0;seed=srand_table[ii]}for(loop=0;loop<4;loop++){for(i=0;i<55;i++){val=srand_table[i]-srand_table[(1+i+30)%55];srand_table[i]=val>>>0}}}function srand_get_random(){srand_index1=(srand_index1+1)%55;srand_index2=(srand_index2+1)%55;srand_table[srand_index1]=(srand_table[srand_index1]-srand_table[srand_index2])>>>0;return srand_table[srand_index1]/4294967296}function set_string_table(addr){if(stringtable==addr){return}decoding_tree=undefined;vmstring_table=undefined;stringtable=addr;if(stringtable==0){return}var textenv=vmtextenv_table[stringtable];if(textenv===undefined){var dectab=undefined;var tablelen=Mem4(stringtable);var rootaddr=Mem4(stringtable+8);var cache_stringtable=(stringtable+tablelen<=ramstart);if(cache_stringtable){var tmparray=Array(1);
build_decoding_tree(tmparray,rootaddr,4,0);dectab=tmparray[0];if(dectab===undefined){fatal_error("Failed to create decoding tree.")}}textenv=new VMTextEnv(stringtable,dectab);vmtextenv_table[stringtable]=textenv}decoding_tree=textenv.decoding_tree;vmstring_table=textenv.vmstring_tables[iosysmode]}function set_iosys(mode,rock){switch(mode){case 0:rock=0;break;case 1:break;case 2:rock=0;break;default:mode=0;rock=0;break}iosysmode=mode;iosysrock=rock;var textenv=vmtextenv_table[stringtable];if(textenv===undefined){vmstring_table=undefined}else{vmstring_table=textenv.vmstring_tables[iosysmode]}}function build_decoding_tree(cablist,nodeaddr,depth,mask){var ix,type,cab;var depthbit;type=Mem1(nodeaddr);if(type==0&&depth==4){cab=Array(16);cab.type=0;cab.depth=4;cablist[mask]=cab;build_decoding_tree(cab,nodeaddr,0,0);return}if(type==0){var leftaddr=Mem4(nodeaddr+1);var rightaddr=Mem4(nodeaddr+5);build_decoding_tree(cablist,leftaddr,depth+1,mask);build_decoding_tree(cablist,rightaddr,depth+1,(mask|(1<<depth)));return}
nodeaddr++;cab={};cab.type=type;cab.depth=depth;switch(type){case 2:cab.value=Mem1(nodeaddr);cab.cchar=CharToString(cab.value);break;case 4:cab.value=Mem4(nodeaddr);cab.cchar=CharToString(cab.value);break;case 3:case 5:cab.addr=nodeaddr;break;case 8:case 9:cab.addr=Mem4(nodeaddr);break;case 10:case 11:cab.addr=nodeaddr;break;case 1:break;default:fatal_error("Unknown node type in string table.",type)}depthbit=(1<<depth);for(ix=mask;ix<16;ix+=depthbit){cablist[ix]=cab}}function stream_num(nextcp,value,inmiddle,charnum){var buf=(value&4294967295).toString(10);switch(iosysmode){case 2:if(charnum){buf=buf.slice(charnum)}Glk.glk_put_jstring(buf,true);break;case 1:if(!inmiddle){frame.valstack.push(17,0,nextcp,frame.framestart);inmiddle=true}if(charnum<buf.length){var ch=buf.charCodeAt(charnum);frame.valstack.push(18,charnum+1,value,frame.framestart);tempcallargs[0]=ch;enter_function(iosysrock,1);return true}break;case 0:break}if(inmiddle){var desttype,destaddr;if(frame.valstack.pop()!=frame.framestart){fatal_error(
"Call stub frameptr does not match frame.")}pc=frame.valstack.pop();destaddr=frame.valstack.pop();desttype=frame.valstack.pop();if(desttype!=17){fatal_error("String-on-string call stub while printing number.")}}}function stream_string(nextcp,addr,inmiddle,bitnum){var substring=(inmiddle!=0);var addrkey,strop,res;var desttype,destaddr;while(true){strop=undefined;if(inmiddle==0){addrkey=addr}else{addrkey=addr+"/"+inmiddle+"/"+bitnum}if(vmstring_table!==undefined){strop=vmstring_table[addrkey];if(strop===undefined){strop=compile_string(iosysmode,addr,inmiddle,bitnum);vmstring_table[addrkey]=strop;strings_compiled++;strings_cached++}}else{strop=compile_string(iosysmode,addr,inmiddle,bitnum);strings_compiled++}if(!(strop instanceof Function)){Glk.glk_put_jstring(strop);if(!substring){return false}}else{res=strop(nextcp,substring);if(res instanceof Array){substring=true;addr=res[0];inmiddle=res[1];bitnum=res[2];continue}if(res){return true}}if(frame.valstack.pop()!=frame.framestart){fatal_error("Call stub frameptr
does not match frame.")}pc=frame.valstack.pop();destaddr=frame.valstack.pop();desttype=frame.valstack.pop();if(desttype==17){return true}else{if(desttype==16){substring=true;bitnum=destaddr;inmiddle=225;addr=pc}else{fatal_error("Function-terminator call stub at end of string.")}}}}function compile_string(curiosys,startaddr,inmiddle,startbitnum){var addr=startaddr;var bitnum=startbitnum;var retval=undefined;var ch,type;if(!addr){fatal_error("Called compile_string with null address.")}var context={startaddr:startaddr,startbitnum:startbitnum,buffer:[],code:[]};if(inmiddle==0){type=Mem1(addr);if(type==226){addr+=4}else{addr++}bitnum=0}else{type=inmiddle}if(type==225){if(decoding_tree){var bits,numbits,readahead,tmpaddr;var cablist,cab;var done=false;bits=Mem1(addr);if(bitnum){bits>>=bitnum}numbits=(8-bitnum);readahead=false;if(!(decoding_tree instanceof Array)){done=true}cablist=decoding_tree;while(!done){if(numbits<4){var newbyte=Mem1(addr+1);bits|=(newbyte<<numbits);numbits+=8;readahead=true}cab=cablist[bits&
15];numbits-=cab.depth;bits>>=cab.depth;bitnum+=cab.depth;if(bitnum>=8){addr+=1;bitnum-=8;if(readahead){readahead=false}else{var newbyte=Mem1(addr);bits|=(newbyte<<numbits);numbits+=8}}if(cab instanceof Array){cablist=cab;continue}switch(cab.type){case 1:done=true;break;case 2:case 4:switch(curiosys){case 2:context.buffer.push(cab.cchar);break;case 1:oputil_flush_string(context);oputil_push_substring_callstub(context);oputil_push_callstub(context,"0x10,"+bitnum,addr);context.code.push("tempcallargs[0]="+cab.value+";");context.code.push("enter_function(iosysrock, 1);");retval=true;done=true;break}cablist=decoding_tree;break;case 3:switch(curiosys){case 2:tmpaddr=cab.addr;while(true){ch=Mem1(tmpaddr);if(ch==0){break}context.buffer.push(CharToString(ch));tmpaddr++}break;case 1:oputil_flush_string(context);oputil_push_substring_callstub(context);oputil_push_callstub(context,"0x10,"+bitnum,addr);retval="["+(cab.addr)+", 0xE0, 0]";done=true;break}cablist=decoding_tree;break;case 5:switch(curiosys){case 2:tmpaddr=c
ab.addr;while(true){ch=Mem4(tmpaddr);if(ch==0){break}context.buffer.push(CharToString(ch));tmpaddr+=4}break;case 1:oputil_flush_string(context);oputil_push_substring_callstub(context);oputil_push_callstub(context,"0x10,"+bitnum,addr);retval="["+(cab.addr)+", 0xE2, 0]";done=true;break}cablist=decoding_tree;break;case 8:case 9:case 10:case 11:oputil_flush_string(context);oputil_push_substring_callstub(context);context.code.push("var otype, retval;");context.code.push("var oaddr = "+(cab.addr)+";");if(cab.type>=9){context.code.push("oaddr = Mem4(oaddr);")}if(cab.type==11){context.code.push("oaddr = Mem4(oaddr);")}context.code.push("otype = Mem1(oaddr);");retval="retval";done=true;oputil_push_callstub(context,"0x10,"+bitnum,addr);context.code.push("if (otype >= 0xE0 && otype <= 0xFF) {");context.code.push("retval = [oaddr, 0, 0];");context.code.push("}");context.code.push("else if (otype >= 0xC0 && otype <= 0xDF) {");var argc=0;if(cab.type==10||cab.type==11){argc=Mem4(cab.addr+4);for(var ix=0;ix<argc;ix++){conte
xt.code.push("tempcallargs["+ix+"]="+Mem4(cab.addr+8+4*ix)+";")}}context.code.push("enter_function(oaddr, "+argc+");");context.code.push("retval = true;");context.code.push("}");context.code.push("else {");context.code.push("fatal_error('Unknown object while decoding string indirect reference.', otype);");context.code.push("}");break;default:fatal_error("Unknown entity in string decoding (cached).");break}}}else{var node,byt,nodetype;var done=false;if(!stringtable){fatal_error("Attempted to print a compressed string with no table set.")}byt=Mem1(addr);if(bitnum){byt>>=bitnum}node=Mem4(stringtable+8);while(!done){nodetype=Mem1(node);node++;switch(nodetype){case 0:if(byt&1){node=Mem4(node+4)}else{node=Mem4(node+0)}if(bitnum==7){bitnum=0;addr++;byt=Mem1(addr)}else{bitnum++;byt>>=1}break;case 1:retval=false;done=true;break;case 2:ch=Mem1(node);switch(curiosys){case 2:context.buffer.push(CharToString(ch));break;case 1:oputil_flush_string(context);oputil_push_substring_callstub(context);oputil_push_callstub(contex
t,"0x10,"+bitnum,addr);context.code.push("tempcallargs[0]="+ch+";");context.code.push("enter_function(iosysrock, 1);");retval=true;done=true;break}node=Mem4(stringtable+8);break;case 4:ch=Mem4(node);switch(curiosys){case 2:context.buffer.push(CharToString(ch));break;case 1:oputil_flush_string(context);oputil_push_substring_callstub(context);oputil_push_callstub(context,"0x10,"+bitnum,addr);context.code.push("tempcallargs[0]="+ch+";");context.code.push("enter_function(iosysrock, 1);");retval=true;done=true;break}node=Mem4(stringtable+8);break;case 3:switch(curiosys){case 2:while(true){ch=Mem1(node);if(ch==0){break}context.buffer.push(CharToString(ch));node++}break;case 1:oputil_flush_string(context);oputil_push_substring_callstub(context);oputil_push_callstub(context,"0x10,"+bitnum,addr);retval="["+node+", 0xE0, 0]";done=true;break}node=Mem4(stringtable+8);break;case 5:switch(curiosys){case 2:while(true){ch=Mem4(node);if(ch==0){break}context.buffer.push(CharToString(ch));node+=4}break;case 1:oputil_flush_stri
ng(context);oputil_push_substring_callstub(context);oputil_push_callstub(context,"0x10,"+bitnum,addr);retval="["+node+", 0xE2, 0]";done=true;break}node=Mem4(stringtable+8);break;case 8:case 9:case 10:case 11:oputil_flush_string(context);oputil_push_substring_callstub(context);context.code.push("var otype, retval;");context.code.push("var oaddr = "+Mem4(node)+";");if(nodetype==9||nodetype==11){context.code.push("oaddr = Mem4(oaddr);")}context.code.push("otype = Mem1(oaddr);");retval="retval";done=true;oputil_push_callstub(context,"0x10,"+bitnum,addr);context.code.push("if (otype >= 0xE0 && otype <= 0xFF) {");context.code.push("retval = [oaddr, 0, 0];");context.code.push("}");context.code.push("else if (otype >= 0xC0 && otype <= 0xDF) {");var argc=0;if(nodetype==10||nodetype==11){argc=Mem4(node+4);for(var ix=0;ix<argc;ix++){context.code.push("tempcallargs["+ix+"]="+Mem4(node+8+4*ix)+";")}}context.code.push("enter_function(oaddr, "+argc+");");context.code.push("retval = true;");context.code.push("}");context.co
de.push("else {");context.code.push("fatal_error('Unknown object while decoding string indirect reference.', otype);");context.code.push("}");break;default:fatal_error("Unknown entity in string decoding.",nodetype);break}}}}else{if(type==224){var ch;switch(curiosys){case 2:while(1){ch=Mem1(addr);addr++;if(ch==0){break}context.buffer.push(CharToString(ch))}break;case 1:oputil_flush_string(context);oputil_push_substring_callstub(context);ch=Mem1(addr);addr++;if(ch!=0){oputil_push_callstub(context,"0x13,0",addr);context.code.push("tempcallargs[0]="+ch+";");context.code.push("enter_function(iosysrock, 1);");retval=true}else{retval="false"}break}}else{if(type==226){var ch;switch(curiosys){case 2:while(1){ch=Mem4(addr);addr+=4;if(ch==0){break}context.buffer.push(CharToString(ch))}break;case 1:oputil_flush_string(context);oputil_push_substring_callstub(context);ch=Mem4(addr);addr+=4;if(ch!=0){oputil_push_callstub(context,"0x14,0",addr);context.code.push("tempcallargs[0]="+ch+";");context.code.push("enter_function(i
osysrock, 1);");retval=true}else{retval="false"}break}}else{if(type>=224&&type<=255){fatal_error("Attempt to print unknown type of string.")}else{fatal_error("Attempt to print non-string.")}}}}if(!retval){return context.buffer.join("")}else{oputil_flush_string(context);context.code.push("return "+retval+";");return make_code(context.code.join("\n"),"nextcp,substring")}}function do_gestalt(val,val2){var ix;switch(val){case 0:return 196866;case 1:return 65539;case 2:return 1;case 3:return 1;case 4:switch(val2){case 0:return 1;case 1:return 1;case 2:return 1;default:return 0}break;case 5:return 1;case 6:return 1;case 7:return 1;case 8:return heap_get_start();case 9:return 1;case 10:return 0;case 11:return 1;default:return 0}}var tempsearchkey=[];function fetch_search_key(addr,len,options){var ix;tempsearchkey.length=len;if(options&1){for(ix=0;ix<len;ix++){tempsearchkey[ix]=Mem1(addr+ix)}}else{switch(len){case 4:tempsearchkey[0]=(addr>>24)&255;tempsearchkey[1]=(addr>>16)&255;tempsearchkey[2]=(addr>>8)&255;tempse
archkey[3]=addr&255;break;case 2:tempsearchkey[0]=(addr>>8)&255;tempsearchkey[1]=addr&255;break;case 1:tempsearchkey[0]=addr&255;break;default:throw ("Direct search key must hold one, two, or four bytes.")}}return tempsearchkey}function linear_search(key,keysize,start,structsize,numstructs,keyoffset,options){var ix,count,match,byt;var retindex=((options&4)!=0);var zeroterm=((options&2)!=0);var keybuf=fetch_search_key(key,keysize,options);for(count=0;count<numstructs;count++,start+=structsize){match=true;for(ix=0;match&&ix<keysize;ix++){byt=Mem1(start+keyoffset+ix);if(byt!=keybuf[ix]){match=false}}if(match){if(retindex){return count}else{return start}}if(zeroterm){match=true;for(ix=0;match&&ix<keysize;ix++){byt=Mem1(start+keyoffset+ix);if(byt!=0){match=false}}if(match){break}}}if(retindex){return 4294967295}else{return 0}}function binary_search(key,keysize,start,structsize,numstructs,keyoffset,options){var top,bot,addr,val,cmp,ix;var byt,byt2;var retindex=((options&4)!=0);var keybuf=fetch_search_key(key,keysi
ze,options);bot=0;top=numstructs;while(bot<top){cmp=0;val=(top+bot)>>1;addr=start+val*structsize;for(ix=0;(!cmp)&&ix<keysize;ix++){byt=Mem1(addr+keyoffset+ix);byt2=keybuf[ix];if(byt<byt2){cmp=-1}else{if(byt>byt2){cmp=1}}}if(!cmp){if(retindex){return val}else{return addr}}if(cmp<0){bot=val+1}else{top=val}}if(retindex){return 4294967295}else{return 0}}function linked_search(key,keysize,start,keyoffset,nextoffset,options){var ix,byt,match;var zeroterm=((options&2)!=0);var keybuf=fetch_search_key(key,keysize,options);while(start!=0){match=true;for(ix=0;match&&ix<keysize;ix++){byt=Mem1(start+keyoffset+ix);if(byt!=keybuf[ix]){match=false}}if(match){return start}if(zeroterm){match=true;for(ix=0;match&&ix<keysize;ix++){byt=Mem1(start+keyoffset+ix);if(byt!=0){match=false}}if(match){break}}start=Mem4(start+nextoffset)}return 0}function decode_float(val){var sign,res,expo;if(val&2147483648){sign=true;val=val&2147483647}else{sign=false}if(val==0){return(sign?-0:0)}if((val&2139095040)==2139095040){if((val&8388607)==0){re
turn(sign?-Infinity:Infinity)}else{return(sign?-NaN:NaN)}}expo=(val>>23&255);if(expo){res=((val&8388607|8388608)/8388608*Math.pow(2,(expo-127)))}else{res=((val&8388607)/8388608*Math.pow(2,-126))}if(sign){return -res}else{return res}}function encode_float(val){var absval,fbits;var mant,expo,sign;if(isNaN(val)){return 2139095041}if(!isFinite(val)){if(val<0){return 4286578688}else{return 2139095040}}if(val==0){if(1/val<0){return 2147483648}else{return 0}}if(val<0){sign=true;absval=-val}else{sign=false;absval=val}expo=Math.floor(Math.log(absval)/Math.log(2));mant=absval/Math.pow(2,expo);if(expo>=128){return(sign?4286578688:2139095040)}else{if(expo<-126){mant=mant*Math.pow(2,126+expo);expo=0}else{if(!(expo==0&&mant==0)){expo+=127;mant-=1}}}mant=mant*8388608;fbits=(mant+0.4999999999999999)<<0;if(fbits>=8388608){fbits=0;expo++;if(expo>=255){return(sign?4286578688:2139095040)}}if(sign){return((2147483648)|(expo<<23)|(fbits))>>>0}else{return(expo<<23)|(fbits)}}var game_image=null;var game_signature=null;var opt_rethr
ow_exceptions=null;var memmap;var stack;var frame;var vm_started=false;var vm_stopped=false;var tempcallargs;var tempglkargs;var done_executing;var vmfunc_table;var vmtextenv_table;var decoding_tree;var vmstring_table;var random_func;var ramstart;var endgamefile;var origendmem;var stacksize;var startfuncaddr;var origstringtable;var checksum;var pc;var stringtable;var endmem;var protectstart,protectend;var iosysmode,iosysrock;var undostack;var resumefuncop,resumevalue;var heapstart;var usedlist;var freelist;var total_execution_time=0;var total_function_calls=0;var total_path_calls=0;var paths_cached=0;var paths_compiled=0;var strings_cached=0;var strings_compiled=0;function setup_vm(){var val,version;if(!game_image){fatal_error("There is no Glulx game file loaded.")}vm_started=true;resumefuncop=null;resumevalue=0;memmap=null;stack=[];frame=null;pc=0;if(game_image.length<36){fatal_error("This is too short to be a valid Glulx file.")}val=ByteRead4(game_image,0);if(val!=1198290284){fatal_error("This is not a val
id Glulx file.")}version=ByteRead4(game_image,4);if(version<131072){fatal_error("This Glulx file is too old a version to execute.")}if(version>=197120){fatal_error("This Glulx file is too new a version to execute.")}ramstart=ByteRead4(game_image,8);endgamefile=ByteRead4(game_image,12);origendmem=ByteRead4(game_image,16);stacksize=ByteRead4(game_image,20);startfuncaddr=ByteRead4(game_image,24);origstringtable=ByteRead4(game_image,28);checksum=ByteRead4(game_image,32);protectstart=0;protectend=0;if(ramstart<256||endgamefile<ramstart||origendmem<endgamefile){fatal_error("The segment boundaries in the header are in an impossible order.")}if(endgamefile!=game_image.length){fatal_error("The game file length does not agree with the header.")}done_executing=false;vmfunc_table={};vmtextenv_table={};decoding_tree=undefined;vmstring_table=undefined;tempcallargs=Array(8);tempglkargs=Array(1);set_random(0);endmem=origendmem;stringtable=0;undostack=[];heapstart=0;usedlist=[];freelist=[];vm_restart()}function vm_restart(){
var ix;heap_clear();var protect=copy_protected_range();memmap=null;memmap=game_image.slice(0,endgamefile);endmem=memmap.length;change_memsize(origendmem,false);paste_protected_range(protect);stack=[];frame=null;pc=0;iosysmode=0;iosysrock=0;set_string_table(origstringtable);enter_function(startfuncaddr,0)}function compress_bytes(arr){result=[];var i=0;while(i<arr.length){var zeroes=0;while(i<arr.length&&arr[i]==0&&zeroes<=255){zeroes++;i++}if(zeroes>0){result.push(0);result.push(zeroes-1)}while(i<arr.length&&arr[i]!=0){result.push(arr[i]);i++}}return result}function decompress_bytes(arr){result=[];var i=0;while(i<arr.length){var b=arr[i++];if(b==0){var count=arr[i++]+1;for(var j=0;j<count;j++){result.push(0)}}else{result.push(b)}}return result}function pack_iff_chunks(chunks){keys=[];for(var key in chunks){if(key.length!=4){fatal_error("Bad chunk ID (must be exactly 4 chars): "+key)}keys.push(key)}keys.sort();bytes=[];for(var ix=0;ix<keys.length;ix++){var key=keys[ix];var chunk=chunks[key];BytePushString(byte
s,key);BytePush4(bytes,chunk.length);bytes=bytes.concat(chunk)}return bytes}function unpack_iff_chunks(bytes){chunks={};var pos=0;while(pos<bytes.length){if((pos+8)>bytes.length){qlog("IFF chunk header is truncated");return undefined}var key=ByteReadString(bytes,pos,4);var size=ByteRead4(bytes,pos+4);pos+=8;if((pos+size)>bytes.length){qlog(key+" chunk is truncated ("+size+" bytes needed, "+(bytes.length-pos)+" available");return undefined}chunks[key]=bytes.slice(pos,pos+size);pos+=size}return chunks}function vm_save(streamid){if(iosysmode!=2){fatal_error("Streams are only available in Glk I/O system.")}var str=GiDispa.class_obj_from_id("stream",streamid);if(!str){return false}chunks={};chunks.IFhd=game_image.slice(0,128);chunks.CMem=memmap.slice(ramstart);for(var i=ramstart;i<game_image.length;i++){chunks.CMem[i-ramstart]^=game_image[i]}chunks.CMem=compress_bytes(chunks.CMem);chunks.QFun=[];for(var i=0;i<stack.length;i++){BytePush4(chunks.QFun,stack[i].vmfunc.funcaddr)}chunks.Stks=[];for(var i=0;i<stack.leng
th;i++){push_serialized_stackframe(stack[i],chunks.Stks)}if(heap_is_active()){chunks.MAll=[];BytePush4(chunks.MAll,heapstart);BytePush4(chunks.MAll,usedlist.length);for(var i=0;i<usedlist.length;i++){BytePush4(chunks.MAll,usedlist[i].addr);BytePush4(chunks.MAll,usedlist[i].size)}}var payload_bytes=[];BytePushString(payload_bytes,"IFZS");payload_bytes=payload_bytes.concat(pack_iff_chunks(chunks));var quetzal=pack_iff_chunks({FORM:payload_bytes});Glk.glk_put_buffer_stream(str,quetzal);return true}function vm_restore(streamid){if(iosysmode!=2){fatal_error("Streams are only available in Glk I/O system.")}var str=GiDispa.class_obj_from_id("stream",streamid);if(!str){return false}var quetzal=new Array(0);var buffer=new Array(1024);var count=1;while(count>0){count=Glk.glk_get_buffer_stream(str,buffer);quetzal=quetzal.concat(buffer.slice(0,count))}quetzal=unpack_iff_chunks(quetzal);if(!quetzal){qlog("vm_restore failed: file is not Quetzal");return false}quetzal=quetzal.FORM;if(!quetzal||ByteReadString(quetzal,0,4)!=
"IFZS"){qlog("vm_restore failed: file doesn't start with FORM/IFZS header");return false}var chunks=unpack_iff_chunks(quetzal.slice(4));if(!chunks.IFhd){qlog("vm_restore failed: missing required IFhd chunk");return false}for(var i=0;i<128;i++){if(chunks.IFhd[i]!=game_image[i]){qlog("vm_restore failed: this save image is for a different game");return false}}if(!chunks.CMem){qlog("vm_restore failed: missing required CMem chunk");return false}if(!chunks.QFun){qlog("vm_restore failed: missing required QFun chunk")}if(!chunks.Stks){qlog("vm_restore failed: missing required Stks chunk")}var protect=copy_protected_range();heap_clear();var ram_xor=decompress_bytes(chunks.CMem);change_memsize(ramstart+ram_xor.length,false);memmap=game_image.slice(0,ramstart).concat(ram_xor);for(var i=ramstart;i<game_image.length;i++){memmap[i]^=game_image[i]}var vmfuncs=[];for(var pos=0;pos<chunks.QFun.length;pos+=4){var addr=ByteRead4(chunks.QFun,pos);var vmfunc=vmfunc_table[addr];if(vmfunc===undefined){vmfunc=compile_func(addr);if(
addr<ramstart){vmfunc_table[addr]=vmfunc}}vmfuncs.push(vmfunc)}stack=[];for(var i=vmfuncs.length-1;i>=0;i--){frame=pop_deserialized_stackframe(chunks.Stks,vmfuncs[i]);if(!frame){fatal_error("vm_restore failed: bad stack frame")}stack.unshift(frame)}for(var i=0;i<stack.length;i++){stack[i].depth=i}frame=stack[stack.length-1];if(chunks.MAll){heapstart=ByteRead4(chunks.MAll,0);var numblocks=ByteRead4(chunks.MAll,4);var heapend=heapstart;for(var i=0;i<numblocks;i++){var addr=ByteRead4(chunks.MAll,8+4*i);var size=ByteRead4(chunks.MAll,12+4*i);if(addr<heapend||(addr+size)>endmem){fatal_error("vm_restore failed: corrupt dynamic heap")}usedlist.push(new HeapBlock(addr,size));if(addr>heapend){freelist.push(new HeapBlock(heapend,addr-heapend))}heapend=addr+size}if(heapend<endmem){freelist.push(new HeapBlock(heapend,endmem-heapend))}}paste_protected_range(protect);return true}function vm_saveundo(){var snapshot={};snapshot.ram=memmap.slice(ramstart);snapshot.endmem=endmem;snapshot.pc=pc;snapshot.stack=[];for(var i=0;i<
stack.length;i++){snapshot.stack[i]=clone_stackframe(stack[i])}snapshot.heapstart=heapstart;snapshot.usedlist=usedlist.slice(0);snapshot.freelist=freelist.slice(0);undostack.push(snapshot);if(undostack.length>10){undostack.shift()}}function vm_restoreundo(){if(undostack.length==0){return false}var snapshot=undostack.pop();var protect=copy_protected_range();memmap=memmap.slice(0,ramstart).concat(snapshot.ram);endmem=snapshot.endmem;stack=snapshot.stack;frame=stack[stack.length-1];pc=snapshot.pc;heapstart=snapshot.heapstart;usedlist=snapshot.usedlist;freelist=snapshot.freelist;paste_protected_range(protect);return true}function change_memsize(newlen,internal){var lx;if(newlen==endmem){return}if((!internal)&&heap_is_active()){fatal_error("Cannot resize Glulx memory space while heap is active.")}if(newlen<origendmem){fatal_error("Cannot resize Glulx memory space smaller than it started.")}if(newlen&255){fatal_error("Can only resize Glulx memory space to a 256-byte boundary.")}memmap.length=newlen;if(newlen>endme
m){for(lx=endmem;lx<newlen;lx++){memmap[lx]=0}}endmem=newlen}function copy_protected_range(){if(protectstart>=protectend){return null}var len=protectend-protectstart;var obj={start:protectstart,end:protectend,len:len};var arr=memmap.slice(protectstart,protectend);while(arr.length<len){arr.push(0)}obj.mem=arr;return obj}function paste_protected_range(obj){if(!obj){return}var ix,addr;var arr=obj.mem;var start=obj.start;var end=obj.end;if(end>endmem){end=endmem}for(ix=0,addr=start;addr<end;ix++,addr++){memmap[addr]=arr[ix]}}function perform_verify(){var imagelen=game_image.length;var ix,newsum,checksum;if(imagelen<256||(imagelen&255)!=0){return 1}if(imagelen!=ByteRead4(game_image,12)){return 1}checksum=ByteRead4(game_image,32);newsum=(-checksum)>>>0;for(ix=0;ix<imagelen;ix+=4){newsum=(newsum+ByteRead4(game_image,ix))>>>0}if(newsum!=checksum){return 1}return 0}function quixe_get_signature(){return game_signature}function quixe_get_statistics(){var stat={game_image_length:game_image.length,total_execution_time:to
tal_execution_time,total_function_calls:total_function_calls,total_path_calls:total_path_calls,paths_cached:paths_cached,paths_compiled:paths_compiled,strings_cached:strings_cached,strings_compiled:strings_compiled};return stat}function heap_clear(){heapstart=0;usedlist=[];freelist=[]}function heap_is_active(){return(usedlist.length>0)}function heap_get_start(){return heapstart}function HeapBlock(addr,size){this.addr=addr;this.size=size;this.end=addr+size}function heap_binary_search(list,addr){var low=0;var high=list.length;while(low<high){var mid=(low+high)>>1;if(list[mid].addr<addr){low=mid+1}else{high=mid}}return low}function heap_malloc(size){if(!heap_is_active()){heapstart=endmem}for(var i=0,max=freelist.length;i<max;i++){var freeblock=freelist[i];if(freeblock.size>=size){if(freeblock.size>size){freelist[i]=new HeapBlock(freeblock.addr+size,freeblock.size-size)}else{freelist.splice(i,1)}var pos=heap_binary_search(usedlist,freeblock.addr);usedlist.splice(pos,0,new HeapBlock(freeblock.addr,size));return f
reeblock.addr}}var addr=endmem;var rounded_up_size=((size+255)&4294967040);change_memsize(endmem+rounded_up_size,true);if(rounded_up_size>size){freelist.push(new HeapBlock(addr+size,rounded_up_size-size))}usedlist.push(new HeapBlock(addr,size));return addr}function heap_free(addr){var pos=heap_binary_search(usedlist,addr);var block=usedlist[pos];if(!block||block.addr!=addr){fatal_error("Tried to free non-existent block")}usedlist.splice(pos,1);if(usedlist.length==0){change_memsize(heapstart,true);heap_clear();return}pos=heap_binary_search(freelist,addr);var next=freelist[pos];if(next&&next.addr==block.end){block=new HeapBlock(addr,block.size+next.size);freelist.splice(pos,1)}var prev=freelist[pos-1];if(prev&&prev.end==block.addr){block=new HeapBlock(prev.addr,prev.size+block.size);freelist.splice(pos-1,1);pos-=1}freelist.splice(pos,0,block)}function assert_heap_valid(){if(!heap_is_active()){if(heapstart!=0){fatal_error("Heap inconsistency: heapstart nonzero")}if(usedlist.length>0){fatal_error("Heap inconsist
ency: usedlist nonempty")}if(freelist.length>0){fatal_error("Heap inconsistency: usedlist nonempty")}return}if(heapstart==0){fatal_error("Heap inconsistency: heapstart is zero")}var addr=heapstart;var upos=0,fpos=0;while(upos<usedlist.length||fpos<freelist.length){var u=usedlist[upos];var f=freelist[fpos];if(u&&u.addr==addr){addr+=u.size;upos++}else{if(f&&f.addr==addr){addr+=f.size;fpos++}else{fatal_error("Heap inconsistency: no block at address "+addr)}}}if(addr!=endmem){fatal_error("Heap inconsistency: overrun at end of heap")}}function execute_loop(){var vmfunc,pathtab,path;var pathstart,pathend;if(resumefuncop){store_operand_by_funcop(resumefuncop,resumevalue);resumefuncop=null;resumevalue=0}pathstart=new Date().getTime();while(!done_executing){vmfunc=frame.vmfunc;pathtab=vmfunc[iosysmode];path=pathtab[pc];if(path===undefined){vmfunc.pathaddrs[pc]=true;path=compile_path(vmfunc,pc,iosysmode);paths_compiled++;if(pc<ramstart){pathtab[pc]=path;paths_cached++}}total_path_calls++;try{path()}catch(ex){if(ex===R
eturnedFromMain){done_executing=true;vm_stopped=true}else{throw ex}}}pathend=new Date().getTime();total_execution_time+=(pathend-pathstart)/1000;if(vm_stopped){Glk.glk_exit()}Glk.update();qlog("### done executing; path time = "+(pathend-pathstart)+" ms")}return{version:"1.0.3",prepare:quixe_prepare,init:quixe_init,resume:quixe_resume,get_signature:quixe_get_signature,get_statistics:quixe_get_statistics,ReadByte:ReadArgByte,WriteByte:WriteArgByte,ReadWord:ReadArgWord,WriteWord:WriteArgWord,ReadStructField:ReadStructField,WriteStructField:WriteStructField,SetResumeStore:SetResumeStore}}();GiDispa=function(){var VM=null;function set_vm(vm_api){VM=vm_api}var class_defs={0:"window",1:"stream",2:"fileref",3:"schannel"};function FuncSpec(id,name,proto){this.id=id;this.name=name;this.proto=proto}function Prototype(args,retarg){this.args=args;this.retarg=retarg}function ArgString(){this.macro="Byte";this.refsize=1}function ArgUnicode(){this.macro="Word";this.refsize=4}function ArgChar(signed){this.signed=signed;this.
macro="Byte";this.refsize=1;this.literal=(signed?"arg_char_signed":"arg_char_unsigned")}function ArgInt(signed){this.signed=signed;this.macro="Word";this.refsize=4;this.literal=(signed?"arg_int_signed":"arg_int_unsigned")}function ArgClass(name){this.name=name;this.macro="Word";this.refsize=4}function ArgStruct(form){this.form=form}function ArgRef(arg,passin,passout,nonnull){this.arg=arg;this.passin=passin;this.passout=passout;this.nonnull=nonnull}function ArgArray(arg,retained,passin,passout,nonnull){this.arg=arg;this.retained=retained;this.passin=passin;this.passout=passout;this.nonnull=nonnull}var arg_int_unsigned=new ArgInt(false);var arg_int_signed=new ArgInt(true);var arg_char_unsigned=new ArgChar(false);var arg_char_signed=new ArgChar(true);var proto_map={1:new FuncSpec(1,"exit",new Prototype([],null)),3:new FuncSpec(3,"tick",new Prototype([],null)),4:new FuncSpec(4,"gestalt",new Prototype([new ArgInt(false),new ArgInt(false)],new ArgRef(new ArgInt(false),false,true,true))),5:new FuncSpec(5,"gestalt_e
xt",new Prototype([new ArgInt(false),new ArgInt(false),new ArgArray(new ArgInt(false),false,true,true,false)],new ArgRef(new ArgInt(false),false,true,true))),32:new FuncSpec(32,"window_iterate",new Prototype([new ArgClass("window"),new ArgRef(new ArgInt(false),false,true,false)],new ArgRef(new ArgClass("window"),false,true,true))),33:new FuncSpec(33,"window_get_rock",new Prototype([new ArgClass("window")],new ArgRef(new ArgInt(false),false,true,true))),34:new FuncSpec(34,"window_get_root",new Prototype([],new ArgRef(new ArgClass("window"),false,true,true))),35:new FuncSpec(35,"window_open",new Prototype([new ArgClass("window"),new ArgInt(false),new ArgInt(false),new ArgInt(false),new ArgInt(false)],new ArgRef(new ArgClass("window"),false,true,true))),36:new FuncSpec(36,"window_close",new Prototype([new ArgClass("window"),new ArgRef(new ArgStruct(new Prototype([new ArgInt(false),new ArgInt(false)],null)),false,true,false)],null)),37:new FuncSpec(37,"window_get_size",new Prototype([new ArgClass("window"),new A
rgRef(new ArgInt(false),false,true,false),new ArgRef(new ArgInt(false),false,true,false)],null)),38:new FuncSpec(38,"window_set_arrangement",new Prototype([new ArgClass("window"),new ArgInt(false),new ArgInt(false),new ArgClass("window")],null)),39:new FuncSpec(39,"window_get_arrangement",new Prototype([new ArgClass("window"),new ArgRef(new ArgInt(false),false,true,false),new ArgRef(new ArgInt(false),false,true,false),new ArgRef(new ArgClass("window"),false,true,false)],null)),40:new FuncSpec(40,"window_get_type",new Prototype([new ArgClass("window")],new ArgRef(new ArgInt(false),false,true,true))),41:new FuncSpec(41,"window_get_parent",new Prototype([new ArgClass("window")],new ArgRef(new ArgClass("window"),false,true,true))),42:new FuncSpec(42,"window_clear",new Prototype([new ArgClass("window")],null)),43:new FuncSpec(43,"window_move_cursor",new Prototype([new ArgClass("window"),new ArgInt(false),new ArgInt(false)],null)),44:new FuncSpec(44,"window_get_stream",new Prototype([new ArgClass("window")],new Ar
gRef(new ArgClass("stream"),false,true,true))),45:new FuncSpec(45,"window_set_echo_stream",new Prototype([new ArgClass("window"),new ArgClass("stream")],null)),46:new FuncSpec(46,"window_get_echo_stream",new Prototype([new ArgClass("window")],new ArgRef(new ArgClass("stream"),false,true,true))),47:new FuncSpec(47,"set_window",new Prototype([new ArgClass("window")],null)),48:new FuncSpec(48,"window_get_sibling",new Prototype([new ArgClass("window")],new ArgRef(new ArgClass("window"),false,true,true))),64:new FuncSpec(64,"stream_iterate",new Prototype([new ArgClass("stream"),new ArgRef(new ArgInt(false),false,true,false)],new ArgRef(new ArgClass("stream"),false,true,true))),65:new FuncSpec(65,"stream_get_rock",new Prototype([new ArgClass("stream")],new ArgRef(new ArgInt(false),false,true,true))),66:new FuncSpec(66,"stream_open_file",new Prototype([new ArgClass("fileref"),new ArgInt(false),new ArgInt(false)],new ArgRef(new ArgClass("stream"),false,true,true))),67:new FuncSpec(67,"stream_open_memory",new Prototy
pe([new ArgArray(new ArgChar(null),true,true,true,true),new ArgInt(false),new ArgInt(false)],new ArgRef(new ArgClass("stream"),false,true,true))),68:new FuncSpec(68,"stream_close",new Prototype([new ArgClass("stream"),new ArgRef(new ArgStruct(new Prototype([new ArgInt(false),new ArgInt(false)],null)),false,true,false)],null)),69:new FuncSpec(69,"stream_set_position",new Prototype([new ArgClass("stream"),new ArgInt(true),new ArgInt(false)],null)),70:new FuncSpec(70,"stream_get_position",new Prototype([new ArgClass("stream")],new ArgRef(new ArgInt(false),false,true,true))),71:new FuncSpec(71,"stream_set_current",new Prototype([new ArgClass("stream")],null)),72:new FuncSpec(72,"stream_get_current",new Prototype([],new ArgRef(new ArgClass("stream"),false,true,true))),96:new FuncSpec(96,"fileref_create_temp",new Prototype([new ArgInt(false),new ArgInt(false)],new ArgRef(new ArgClass("fileref"),false,true,true))),97:new FuncSpec(97,"fileref_create_by_name",new Prototype([new ArgInt(false),new ArgString(),new ArgIn
t(false)],new ArgRef(new ArgClass("fileref"),false,true,true))),98:new FuncSpec(98,"fileref_create_by_prompt",new Prototype([new ArgInt(false),new ArgInt(false),new ArgInt(false)],new ArgRef(new ArgClass("fileref"),false,true,true))),99:new FuncSpec(99,"fileref_destroy",new Prototype([new ArgClass("fileref")],null)),100:new FuncSpec(100,"fileref_iterate",new Prototype([new ArgClass("fileref"),new ArgRef(new ArgInt(false),false,true,false)],new ArgRef(new ArgClass("fileref"),false,true,true))),101:new FuncSpec(101,"fileref_get_rock",new Prototype([new ArgClass("fileref")],new ArgRef(new ArgInt(false),false,true,true))),102:new FuncSpec(102,"fileref_delete_file",new Prototype([new ArgClass("fileref")],null)),103:new FuncSpec(103,"fileref_does_file_exist",new Prototype([new ArgClass("fileref")],new ArgRef(new ArgInt(false),false,true,true))),104:new FuncSpec(104,"fileref_create_from_fileref",new Prototype([new ArgInt(false),new ArgClass("fileref"),new ArgInt(false)],new ArgRef(new ArgClass("fileref"),false,true
,true))),128:new FuncSpec(128,"put_char",new Prototype([new ArgChar(false)],null)),129:new FuncSpec(129,"put_char_stream",new Prototype([new ArgClass("stream"),new ArgChar(false)],null)),130:new FuncSpec(130,"put_string",new Prototype([new ArgString()],null)),131:new FuncSpec(131,"put_string_stream",new Prototype([new ArgClass("stream"),new ArgString()],null)),132:new FuncSpec(132,"put_buffer",new Prototype([new ArgArray(new ArgChar(null),false,true,false,true)],null)),133:new FuncSpec(133,"put_buffer_stream",new Prototype([new ArgClass("stream"),new ArgArray(new ArgChar(null),false,true,false,true)],null)),134:new FuncSpec(134,"set_style",new Prototype([new ArgInt(false)],null)),135:new FuncSpec(135,"set_style_stream",new Prototype([new ArgClass("stream"),new ArgInt(false)],null)),144:new FuncSpec(144,"get_char_stream",new Prototype([new ArgClass("stream")],new ArgRef(new ArgInt(true),false,true,true))),145:new FuncSpec(145,"get_line_stream",new Prototype([new ArgClass("stream"),new ArgArray(new ArgChar(nul
l),false,false,true,true)],new ArgRef(new ArgInt(false),false,true,true))),146:new FuncSpec(146,"get_buffer_stream",new Prototype([new ArgClass("stream"),new ArgArray(new ArgChar(null),false,false,true,true)],new ArgRef(new ArgInt(false),false,true,true))),160:new FuncSpec(160,"char_to_lower",new Prototype([new ArgChar(false)],new ArgRef(new ArgChar(false),false,true,true))),161:new FuncSpec(161,"char_to_upper",new Prototype([new ArgChar(false)],new ArgRef(new ArgChar(false),false,true,true))),176:new FuncSpec(176,"stylehint_set",new Prototype([new ArgInt(false),new ArgInt(false),new ArgInt(false),new ArgInt(true)],null)),177:new FuncSpec(177,"stylehint_clear",new Prototype([new ArgInt(false),new ArgInt(false),new ArgInt(false)],null)),178:new FuncSpec(178,"style_distinguish",new Prototype([new ArgClass("window"),new ArgInt(false),new ArgInt(false)],new ArgRef(new ArgInt(false),false,true,true))),179:new FuncSpec(179,"style_measure",new Prototype([new ArgClass("window"),new ArgInt(false),new ArgInt(false),ne
w ArgRef(new ArgInt(false),false,true,false)],new ArgRef(new ArgInt(false),false,true,true))),192:new FuncSpec(192,"select",new Prototype([new ArgRef(new ArgStruct(new Prototype([new ArgInt(false),new ArgClass("window"),new ArgInt(false),new ArgInt(false)],null)),false,true,true)],null)),193:new FuncSpec(193,"select_poll",new Prototype([new ArgRef(new ArgStruct(new Prototype([new ArgInt(false),new ArgClass("window"),new ArgInt(false),new ArgInt(false)],null)),false,true,true)],null)),208:new FuncSpec(208,"request_line_event",new Prototype([new ArgClass("window"),new ArgArray(new ArgChar(null),true,true,true,true),new ArgInt(false)],null)),209:new FuncSpec(209,"cancel_line_event",new Prototype([new ArgClass("window"),new ArgRef(new ArgStruct(new Prototype([new ArgInt(false),new ArgClass("window"),new ArgInt(false),new ArgInt(false)],null)),false,true,false)],null)),210:new FuncSpec(210,"request_char_event",new Prototype([new ArgClass("window")],null)),211:new FuncSpec(211,"cancel_char_event",new Prototype([ne
w ArgClass("window")],null)),212:new FuncSpec(212,"request_mouse_event",new Prototype([new ArgClass("window")],null)),213:new FuncSpec(213,"cancel_mouse_event",new Prototype([new ArgClass("window")],null)),214:new FuncSpec(214,"request_timer_events",new Prototype([new ArgInt(false)],null)),224:new FuncSpec(224,"image_get_info",new Prototype([new ArgInt(false),new ArgRef(new ArgInt(false),false,true,false),new ArgRef(new ArgInt(false),false,true,false)],new ArgRef(new ArgInt(false),false,true,true))),225:new FuncSpec(225,"image_draw",new Prototype([new ArgClass("window"),new ArgInt(false),new ArgInt(true),new ArgInt(true)],new ArgRef(new ArgInt(false),false,true,true))),226:new FuncSpec(226,"image_draw_scaled",new Prototype([new ArgClass("window"),new ArgInt(false),new ArgInt(true),new ArgInt(true),new ArgInt(false),new ArgInt(false)],new ArgRef(new ArgInt(false),false,true,true))),232:new FuncSpec(232,"window_flow_break",new Prototype([new ArgClass("window")],null)),233:new FuncSpec(233,"window_erase_rect",n
ew Prototype([new ArgClass("window"),new ArgInt(true),new ArgInt(true),new ArgInt(false),new ArgInt(false)],null)),234:new FuncSpec(234,"window_fill_rect",new Prototype([new ArgClass("window"),new ArgInt(false),new ArgInt(true),new ArgInt(true),new ArgInt(false),new ArgInt(false)],null)),235:new FuncSpec(235,"window_set_background_color",new Prototype([new ArgClass("window"),new ArgInt(false)],null)),240:new FuncSpec(240,"schannel_iterate",new Prototype([new ArgClass("schannel"),new ArgRef(new ArgInt(false),false,true,false)],new ArgRef(new ArgClass("schannel"),false,true,true))),241:new FuncSpec(241,"schannel_get_rock",new Prototype([new ArgClass("schannel")],new ArgRef(new ArgInt(false),false,true,true))),242:new FuncSpec(242,"schannel_create",new Prototype([new ArgInt(false)],new ArgRef(new ArgClass("schannel"),false,true,true))),243:new FuncSpec(243,"schannel_destroy",new Prototype([new ArgClass("schannel")],null)),248:new FuncSpec(248,"schannel_play",new Prototype([new ArgClass("schannel"),new ArgInt(fa
lse)],new ArgRef(new ArgInt(false),false,true,true))),249:new FuncSpec(249,"schannel_play_ext",new Prototype([new ArgClass("schannel"),new ArgInt(false),new ArgInt(false),new ArgInt(false)],new ArgRef(new ArgInt(false),false,true,true))),250:new FuncSpec(250,"schannel_stop",new Prototype([new ArgClass("schannel")],null)),251:new FuncSpec(251,"schannel_set_volume",new Prototype([new ArgClass("schannel"),new ArgInt(false)],null)),252:new FuncSpec(252,"sound_load_hint",new Prototype([new ArgInt(false),new ArgInt(false)],null)),256:new FuncSpec(256,"set_hyperlink",new Prototype([new ArgInt(false)],null)),257:new FuncSpec(257,"set_hyperlink_stream",new Prototype([new ArgClass("stream"),new ArgInt(false)],null)),258:new FuncSpec(258,"request_hyperlink_event",new Prototype([new ArgClass("window")],null)),259:new FuncSpec(259,"cancel_hyperlink_event",new Prototype([new ArgClass("window")],null)),288:new FuncSpec(288,"buffer_to_lower_case_uni",new Prototype([new ArgArray(new ArgInt(false),false,true,true,true),new Ar
gInt(false)],new ArgRef(new ArgInt(false),false,true,true))),289:new FuncSpec(289,"buffer_to_upper_case_uni",new Prototype([new ArgArray(new ArgInt(false),false,true,true,true),new ArgInt(false)],new ArgRef(new ArgInt(false),false,true,true))),290:new FuncSpec(290,"buffer_to_title_case_uni",new Prototype([new ArgArray(new ArgInt(false),false,true,true,true),new ArgInt(false),new ArgInt(false)],new ArgRef(new ArgInt(false),false,true,true))),296:new FuncSpec(296,"put_char_uni",new Prototype([new ArgInt(false)],null)),297:new FuncSpec(297,"put_string_uni",new Prototype([new ArgUnicode()],null)),298:new FuncSpec(298,"put_buffer_uni",new Prototype([new ArgArray(new ArgInt(false),false,true,false,true)],null)),299:new FuncSpec(299,"put_char_stream_uni",new Prototype([new ArgClass("stream"),new ArgInt(false)],null)),300:new FuncSpec(300,"put_string_stream_uni",new Prototype([new ArgClass("stream"),new ArgUnicode()],null)),301:new FuncSpec(301,"put_buffer_stream_uni",new Prototype([new ArgClass("stream"),new ArgArr
ay(new ArgInt(false),false,true,false,true)],null)),304:new FuncSpec(304,"get_char_stream_uni",new Prototype([new ArgClass("stream")],new ArgRef(new ArgInt(true),false,true,true))),305:new FuncSpec(305,"get_buffer_stream_uni",new Prototype([new ArgClass("stream"),new ArgArray(new ArgInt(false),false,false,true,true)],new ArgRef(new ArgInt(false),false,true,true))),306:new FuncSpec(306,"get_line_stream_uni",new Prototype([new ArgClass("stream"),new ArgArray(new ArgInt(false),false,false,true,true)],new ArgRef(new ArgInt(false),false,true,true))),312:new FuncSpec(312,"stream_open_file_uni",new Prototype([new ArgClass("fileref"),new ArgInt(false),new ArgInt(false)],new ArgRef(new ArgClass("stream"),false,true,true))),313:new FuncSpec(313,"stream_open_memory_uni",new Prototype([new ArgArray(new ArgInt(false),true,true,true,true),new ArgInt(false),new ArgInt(false)],new ArgRef(new ArgClass("stream"),false,true,true))),320:new FuncSpec(320,"request_char_event_uni",new Prototype([new ArgClass("window")],null)),321:
new FuncSpec(321,"request_line_event_uni",new Prototype([new ArgClass("window"),new ArgArray(new ArgInt(false),true,true,true,true),new ArgInt(false)],null))};function convert_arg(arg,passin,val){if(arg instanceof ArgInt){if(passin){if(!arg.signed){return val}else{return val+" & 0xFFFFFFFF"}}else{return"0"}}if(arg instanceof ArgChar){if(passin){if(!arg.signed){return val+" & 0xFF"}else{return"cast_signed_char("+val+")"}}else{return"0"}}if(arg instanceof ArgClass){if(passin){return'class_obj_from_id("'+arg.name+'", '+val+")"}else{return"null"}}return"???"}function unconvert_arg(arg,val){if(arg instanceof ArgInt){return val+" >>> 0"}if(arg instanceof ArgChar){if(!arg.signed){return val+" & 0xFF"}else{return"uncast_signed_char("+val+")"}}if(arg instanceof ArgClass){return'class_obj_to_id("'+arg.name+'", '+val+")"}return"???"}function cast_signed_char(val){val=val&255;if(val&128){val-=256}return val}function uncast_signed_char(val){val=val&255;if(val&128){val+=4294967040}return val}function class_obj_to_id(clas,
val){if(!val){return 0}return val.disprock}function class_obj_from_id(clas,val){if(val==0){return null}return class_map[clas][val]}function build_function(func){var ix,jx;var form,retarg,argpos,argjoin,subargs;var arg,refarg,tmpvar,val,retval,ls;var mayblock;var out=[];var locals={};var arraycount=0;out.push("// no local vars");out.push("// "+func.id+": "+func.name);form=func.proto;retarg=null;if(form.retarg){retarg=form.retarg.arg}mayblock=Glk.call_may_not_return(func.id);argpos=0;argjoin=[];for(ix=0;ix<form.args.length;ix++){arg=form.args[ix];tmpvar="glka"+ix;argjoin.push(tmpvar);locals[tmpvar]=true;if((arg instanceof ArgInt)||(arg instanceof ArgChar)||(arg instanceof ArgClass)){val=convert_arg(arg,true,"callargs["+argpos+"]");out.push(tmpvar+" = "+val+";");argpos+=1}else{if(arg instanceof ArgRef){refarg=arg.arg;out.push("if (callargs["+argpos+"] == 0) {");if(arg.nonnull){out.push('  throw("glk '+func.name+': null argument");')}else{out.push("  "+tmpvar+" = null;")}out.push("} else {");if((refarg instanceo
f ArgInt)||(refarg instanceof ArgChar)||(refarg instanceof ArgClass)){out.push("  "+tmpvar+" = new Glk.RefBox();");val=convert_arg(refarg,arg.passin,"VM.ReadWord(callargs["+argpos+"])");out.push("  "+tmpvar+".set_value("+val+");")}else{if(refarg instanceof ArgStruct){subargs=refarg.form.args;out.push("  "+tmpvar+" = new Glk.RefStruct("+subargs.length+");");for(jx=0;jx<subargs.length;jx++){val=convert_arg(subargs[jx],arg.passin,"VM.ReadStructField(callargs["+argpos+"], "+jx+")");out.push("  "+tmpvar+".push_field("+val+");")}}else{throw ("buildfunc: unsupported refarg type: "+func.name)}}out.push("}");argpos+=1}else{if(arg instanceof ArgArray){locals.glklen=true;refarg=arg.arg;out.push("if (callargs["+argpos+"] == 0) {");if(arg.nonnull){out.push('  throw("glk '+func.name+': null argument");')}else{out.push("  "+tmpvar+" = null;")}out.push("} else {");out.push("  glklen = callargs["+(argpos+1)+"];");out.push("  "+tmpvar+" = Array(glklen);");if(arg.passin){locals.ix=true;locals.jx=true;out.push("  for (ix=0, jx=
callargs["+argpos+"]; ix<glklen; ix++, jx+="+refarg.refsize+") {");val=convert_arg(refarg,true,"VM.Read"+refarg.macro+"(jx)");out.push("    "+tmpvar+"[ix] = "+val+";");out.push("  }")}if(arg.retained){if(arraycount==0){out.push("  temp_arg_arrays.length = 0;")}arraycount+=1;out.push("  make_arg_array("+tmpvar+", callargs["+argpos+"], glklen, "+refarg.literal+");")}out.push("}");argpos+=2}else{if((arg instanceof ArgString)||(arg instanceof ArgUnicode)){locals.ix=true;locals.jx=true;var confunc,checkbyte;if(arg instanceof ArgString){checkbyte="0xE0";confunc="byte_array_to_string"}else{checkbyte="0xE2";confunc="uni_array_to_string"}out.push(tmpvar+" = Array();");out.push("jx = callargs["+argpos+"];");out.push("if (VM.ReadByte(jx) != "+checkbyte+') throw("glk '+func.name+': string argument must be unencoded");');out.push("for (jx+="+arg.refsize+"; true; jx+="+arg.refsize+") {");out.push("  ix = VM.Read"+arg.macro+"(jx);");out.push("  if (ix == 0) break;");out.push("  "+tmpvar+".push(ix);");out.push("}");out.push
(tmpvar+" = Glk."+confunc+"("+tmpvar+");");argpos+=1}else{throw ("buildfunc: unsupported arg type: "+func.name)}}}}}out.push("if (callargs.length != "+argpos+') throw "glk '+func.name+': wrong number of arguments";');if(retarg||mayblock){locals.glkret=true;retval="glkret = "}else{retval=""}out.push(retval+"Glk.glk_"+func.name+"("+argjoin.join(", ")+");");if(mayblock){out.push("if (glkret === Glk.DidNotReturn) {");out.push("  set_blocked_selector("+func.id+", callargs);");out.push("  return glkret;");out.push("}")}argpos=0;for(ix=0;ix<form.args.length;ix++){arg=form.args[ix];tmpvar="glka"+ix;if((arg instanceof ArgInt)||(arg instanceof ArgChar)||(arg instanceof ArgClass)){argpos+=1}else{if(arg instanceof ArgRef){refarg=arg.arg;if(arg.passout){out.push("if ("+tmpvar+") {");if((refarg instanceof ArgInt)||(refarg instanceof ArgChar)||(refarg instanceof ArgClass)){val=unconvert_arg(refarg,tmpvar+".get_value()");out.push("  VM.WriteWord(callargs["+argpos+"], "+val+");")}else{if(refarg instanceof ArgStruct){subargs=
refarg.form.args;for(jx=0;jx<subargs.length;jx++){val=unconvert_arg(subargs[jx],tmpvar+".get_field("+jx+")");out.push("  VM.WriteStructField(callargs["+argpos+"], "+jx+", "+val+");")}}else{throw ("buildfunc: unsupported refarg type: "+func.name)}}out.push("}")}argpos+=1}else{if(arg instanceof ArgArray){refarg=arg.arg;if(arg.passout&&!arg.retained){out.push("if ("+tmpvar+") {");locals.ix=true;locals.jx=true;out.push("  for (ix=0, jx=callargs["+argpos+"]; ix<glklen; ix++, jx+="+refarg.refsize+") {");val=unconvert_arg(refarg,tmpvar+"[ix]");out.push("    VM.Write"+refarg.macro+"(jx, "+val+")");out.push("  }");out.push("}")}argpos+=2}else{if((arg instanceof ArgString)||(arg instanceof ArgUnicode)){argpos+=1}else{throw ("buildfunc: unsupported arg type: "+func.name)}}}}}if(arraycount!=0){out.push("temp_arg_arrays.length = 0;")}if(retarg){val=unconvert_arg(retarg,"glkret");out.push("return "+val+";")}else{out.push("return 0;")}ls=[];for(val in locals){ls.push(val)}if(ls.length){out[0]="var "+ls.join(", ")+";"}val=o
ut.join("\n");eval("function _func(callargs) {\n"+val+"\n}");return _func}var function_map={};function get_function(id){var proto;var func=function_map[id];if(func===undefined){proto=proto_map[id];if(proto===undefined){throw ("dispatch: unknown Glk function: "+id)}func=build_function(proto);function_map[id]=func}return func}var blocked_selector=null;var blocked_callargs=null;function set_blocked_selector(sel,args){blocked_selector=sel;blocked_callargs=args.slice(0)}function prepare_resume(glka0){if(blocked_selector==192){if(blocked_callargs[0]!=0){VM.WriteStructField(blocked_callargs[0],0,glka0.get_field(0)>>>0);VM.WriteStructField(blocked_callargs[0],1,class_obj_to_id("window",glka0.get_field(1)));VM.WriteStructField(blocked_callargs[0],2,glka0.get_field(2)>>>0);VM.WriteStructField(blocked_callargs[0],3,glka0.get_field(3)>>>0)}}else{if(blocked_selector==98){VM.SetResumeStore(class_obj_to_id("fileref",glka0))}}blocked_selector=null;blocked_callargs=null}var temp_arg_arrays=[];var retained_arrays=[];function
make_arg_array(arr,addr,len,arg){var obj;if(!arr){return}obj={arr:arr,addr:addr,len:len,arg:arg};temp_arg_arrays.push(obj)}function retain_array(arr){var ix,obj;if(!arr){return}obj=undefined;for(ix=0;ix<temp_arg_arrays.length;ix++){if(temp_arg_arrays[ix].arr===arr){obj=temp_arg_arrays[ix];break}}if(obj===undefined){throw ("retain_array: array is not an argument")}for(ix=0;!(retained_arrays[ix]===undefined);ix++){}retained_arrays[ix]=obj}function unretain_array(arr){var ix,jx,obj;if(!arr){return}obj=undefined;for(ix=0;ix<retained_arrays.length;ix++){if(retained_arrays[ix]===undefined){continue}if(retained_arrays[ix].arr===arr){obj=retained_arrays[ix];delete retained_arrays[ix];break}}if(obj===undefined){throw ("unretain_array: array was never retained")}if(obj.arg instanceof ArgInt){for(ix=0,jx=obj.addr;ix<obj.len;ix++,jx+=4){VM.WriteWord(jx,obj.arr[ix]>>>0)}}else{if(obj.arg instanceof ArgChar){if(!obj.arg.signed){for(ix=0,jx=obj.addr;ix<obj.len;ix++,jx++){VM.WriteByte(jx,obj.arr[ix]&255)}}else{for(ix=0,jx=ob
j.addr;ix<obj.len;ix++,jx++){VM.WriteByte(jx,uncast_signed_char(obj.arr[ix]))}}}else{throw ("unretain_array: unsupported refarg type")}}}var class_map={};var last_used_id;function class_register(clas,obj){if(obj.disprock){throw ("class_register: object is already registered")}obj.disprock=last_used_id;last_used_id++;class_map[clas][obj.disprock]=obj}function class_unregister(clas,obj){if(!obj.disprock||class_map[clas][obj.disprock]===undefined){throw ("class_unregister: object is not registered")}delete class_map[clas][obj.disprock];obj.disprock=undefined}function init_module(){var ix,key;last_used_id=1+Math.round(Math.random()*1000);for(ix in class_defs){key=class_defs[ix];class_map[key]={}}}init_module();return{set_vm:set_vm,get_function:get_function,prepare_resume:prepare_resume,class_register:class_register,class_unregister:class_unregister,class_obj_to_id:class_obj_to_id,class_obj_from_id:class_obj_from_id,retain_array:retain_array,unretain_array:unretain_array}}();GiLoad=function(){var h={spacing:4,vm:
Quixe,io:Glk,use_query_story:true,default_story:null,set_page_title:true,proxy_url:"http://zcode.appspot.com/proxy/"};var j=null;var i={};function d(p,r,w){if(!p){p=window.game_options}if(p){Object.extend(h,p)}j=null;if(h.use_query_story){var l=a();j=l.story}if(!j&&r){GlkOte.log("### trying pre-loaded load ("+w+")...");switch(w){case"base64":r=decode_base64(r);break;case"raw":r=decode_text(r);break;case"array":break;default:h.io.fatal_error("Could not decode story file data: "+w);return}b(r);return}if(!j){j=h.default_story}if(!j){h.io.fatal_error("No story file specified!");return}GlkOte.log("### gameurl: "+j);r=null;w=null;var n=Ajax.getTransport();var s=(n.overrideMimeType!==undefined&&!Prototype.Browser.Opera);var u=(n.withCredentials!==undefined);n=null;var k=/^(file:|(\w+:)?\/\/[^\/?#]+)/;var A=k.exec(location)[0];var t=k.exec(j);var x=t?false:true;var q=t?t[0]:A;var z=(A==q);if(navigator.userAgent.match(/chrome/i)&&q=="file:"){z=false}var B=j.toLowerCase().endsWith(".js");GlkOte.log("### is_relative="+
x+", same_origin="+z+", binary_supported="+s+", crossorigin_supported="+u);if(B&&z){GlkOte.log("### trying old-fashioned load...");window.processBase64Zcode=function(C){b(decode_base64(C))};new Ajax.Request(j,{method:"get",evalJS:"force",onFailure:function(C){h.io.fatal_error("The story could not be loaded. ("+j+"): Error "+C.status+": "+C.statusText)}});return}if(B){GlkOte.log("### trying script load...");window.processBase64Zcode=function(C){b(decode_base64(C))};var m=$$("head");if(!m||m.length==0){h.io.fatal_error("This page has no <head> element!");return}var y=new Element("script",{src:j,type:"text/javascript"});m[0].insert(y);return}if(s&&z){GlkOte.log("### trying binary load...");new Ajax.Request(j,{method:"get",onCreate:function(C){C.transport.overrideMimeType("text/plain; charset=x-user-defined")},onSuccess:function(C){b(c(C.responseText))},onFailure:function(C){h.io.fatal_error("The story could not be loaded. ("+j+"): Error "+C.status+": "+C.statusText)}});return}if(q=="file:"){h.io.fatal_error("Th
e story could not be loaded. ("+j+"): A local file cannot be sent to the proxy.");return}var o=j;if(x){o=f(j);GlkOte.log("### absolutize "+j+" to "+o)}if(u){GlkOte.log("### trying proxy load... ("+h.proxy_url+")");new Ajax.Request(h.proxy_url,{method:"get",parameters:{encode:"base64",url:o},onFailure:function(C){h.io.fatal_error("The story could not be loaded. ("+j+"): Error "+C.status+": "+C.statusText)},onSuccess:function(C){b(decode_base64(C.responseText))}});return}if(true){var v=h.proxy_url+"?encode=base64&callback=processBase64Zcode&url="+o;GlkOte.log("### trying proxy-script load... ("+v+")");window.processBase64Zcode=function(C){b(decode_base64(C))};var m=$$("head");if(!m||m.length==0){h.io.fatal_error("This page has no <head> element!");return}var y=new Element("script",{src:v,type:"text/javascript"});m[0].insert(y);return}h.io.fatal_error("The story could not be loaded. ("+j+"): I don't know how to load this data.")}function a(){var p={};var k=location.search.substring(1,location.search.length);if(
k.length){var n=k.split("&");k=k.replace(/\+/g," ");for(var l=0;l<n.length;l++){var q=n[l].split("=");var m=decodeURIComponent(q[0]);var o=(q.length==2)?decodeURIComponent(q[1]):m;p[m]=o}}return p}function f(k){var l=new Element("div");l.innerHTML="<a></a>";l.firstChild.href=k;l.innerHTML=l.innerHTML;return l.firstChild.href}function e(m){var r=m.length;var t=12;var v=null;while(t<r){var s=String.fromCharCode(m[t+0],m[t+1],m[t+2],m[t+3]);t+=4;var q=(m[t+0]<<24)|(m[t+1]<<16)|(m[t+2]<<8)|(m[t+3]);t+=4;if(s=="GLUL"){v=m.slice(t,t+q)}if(s=="IFmd"){var o=m.slice(t,t+q);var u=String.fromCharCode.apply(this,o);u=u.replace(/<title>/gi,"<xtitle>");u=u.replace(/<\/title>/gi,"</xtitle>");var p=new Element("metadata").update(u);if(p.down("bibliographic")){var n=p.down("bibliographic").childElements();var k,l;for(l=0;l<n.length;l++){k=n[l];if(k.tagName.toLowerCase()=="xtitle"){i.title=k.textContent}else{i[k.tagName.toLowerCase()]=k.textContent}}}}t+=q;if(t&1){t++}}return v}function c(m){var k=Array(m.length);var l;for(l=
0;l<m.length;l++){k[l]=m.charCodeAt(l)&255}return k}if(window.atob){decode_base64=function(l){var m=atob(l);var n=Array(m.length);var k;for(k=0;k<m.length;k++){n[k]=m.charCodeAt(k)}return n}}else{var g=(function(){var m="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=";var l=[];var k;for(k=0;k<m.length;k++){l[m.charAt(k)]=k}return l})();decode_base64=function(u){var m=[];var o,l,k,t,s,r,q;var n=0,p=u.length;while(n<p){t=g[u.charAt(n++)];s=g[u.charAt(n++)];r=g[u.charAt(n++)];q=g[u.charAt(n++)];o=(t<<2)+(s>>4);l=((s&15)<<4)+(r>>2);k=((r&3)<<6)+q;m.push(o,l,k)}if(q==64){m.pop()}if(r==64){m.pop()}return m}}function b(l){if(l.length==0){h.io.fatal_error("No game file was loaded. (Zero-length response.)");return}if(l[0]==70&&l[1]==79&&l[2]==82&&l[3]==77){try{l=e(l)}catch(k){h.io.fatal_error("Blorb file could not be parsed: "+k);return}if(!l){h.io.fatal_error("Blorb file contains no Glulx game!");return}}if(h.set_page_title){var m=null;if(i){m=i.title}if(!m&&j){m=j.slice(j.lastIndexOf("/")+1)}if(!
m){m="Game"}document.title=m+" - Quixe"}h.vm.prepare(l,h);h.io.init(h)}return{load_run:d}}();

You are viewing proxied material from mercury.661.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.