//MACRO Enddo //-------------------------------------------------------------------------------------------------- // // @ 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. // //-------------------------------------------------------------------------------------------------- // if (Label !== "") DVASM.formatLine(Label, "BYTE", "0[0]", ""); var nestStack= DVASM.getJSGlobal("__arch_condNestBlockStack"); if (nestStack == null) nestStack= []; var n= nestStack.length-1; // // Check if inner nesting is WHILE // var n= nestStack.length-1; if (n < 0) DVASM.putError("No nest block is current to match [ DO ]"); // // Check // var doBlock= nestStack[n]; if (doBlock[0] != "DO") return DVASM.putError("Inner nest block is [" + doBlock[0] + "] and cannot be ended by [ ENDDO ]"); DVASM.formatLine(doBlock[3], "BYTE", "0[0]", ""); DVASM.formatLine("", "INDENTOUT", "", ""); nestStack.pop(); DVASM.putJSGlobal("__arch_condNestBlockStack", nestStack);