//MACRO     Avl.locnext     Node, NullLbl,    WReg,	FieldDispl= 0
//--------------------------------------------------------------------------------------------------
//
//  @ 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.
//
//--------------------------------------------------------------------------------------------------
//    
    //
    //  Get load/store MIs and word length
    //
    eval(DVASM.getEnv()[4]);
    var ld= "L" + abiWID;
    var st= "S" + abiWID;
    var wl= abiWLen;
       
    var leftField= FieldDispl;
    var parentField= wl + "+" + FieldDispl;
    var rightField= wl*2 + "+" + FieldDispl;
    
    if (Label === "")
    	Label= DVASM.getNewLabel();
    	
    //
    //  Generate code
    //
\#Label   	DO
\               #ld         #WReg, #rightField[#Node]          	// Get right child addr
\               IF          ( #WReg != 0 ), THEN               	// Check if right subtree exists
\                   WHILE                                      		// Start loop to find left most node of right subtree
\                       MV          #Node, #WReg                       	// Copy node addr
\                       #ld         #WReg, #leftField[#Node]           	// Load next left child addr
\                       IF          ( #WReg == 0 ), BREAK, ID= #Label 	// Done - no left child
\                       ENDWHILE
\                   ENDIF
\               WHILE                                           // Start loop up to find parent via left child
\                   #ld         #WReg, #parentField[#Node]        	// Load parent addr
\                   ANDI        #Node, ~ 0b111 [#WReg]            	// Clean parent address from flags and copy it
\                   IF          ( #Node  == 0 ), GOTO, ID= #NullLbl // Done - last node was root
\                   ANDI        #WReg, 0b100 [#WReg]             	// Extract link type
\                   IF          ( #WReg  != 0 ), BREAK             	// Done - current node accessed via left child
\                   ENDWHILE
\               ENDDO