//MACRO Else //-------------------------------------------------------------------------------------------------- // // @ CopyRight Roberti & Parau Enterprises, Inc. 2021-2023 // // This work is licensed under the Creative Commons Attribution-NoDerivatives 4.0 International License. // To view a copy of this license, visit http://creativecommons.org/licenses/by-nd/4.0/ // or send a letter to Creative Commons, PO Box 1866, Mountain View, CA 94042, USA. // //-------------------------------------------------------------------------------------------------- // var nestStack= DVASM.getJSGlobal("__arch_condNestBlockStack"); if (nestStack == null) nestStack= []; // // Check if inner nesting is IF, ANDIF, ELSEIF, ELSE // var n= nestStack.length-1; if (n < 0) DVASM.putError("No nest block is current to match [ELSE]"); if (! ["IF", "ANDIF", "ELSEIF"].includes(nestStack[n][0])) return DVASM.putError("Inner nest block is [" + nestStack[n][0] + "] and cannot be ended by [ELSE]"); // // ELSE inside IF block // DVASM.formatLine("", "INDENTOUT", "", ""); if (Label !== "") DVASM.formatLine(Label, "BYTE", "0[0]", ""); DVASM.formatLine("", "JAL", nestStack[n][3], ""); DVASM.formatLine(nestStack[n][2], "BYTE", "0[0]", ""); DVASM.formatLine("", "INDENTIN", "", ""); nestStack[n][0]= "ELSE"; nestStack[n][1]= nestStack[n][2]; nestStack[n][2]= ""; DVASM.putJSGlobal("__arch_condNestBlockStack", nestStack);