//MACRO     Avl.locfirst    Anchor, 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 left= WReg;
    
    //
    //  Generate code
    //
\#Label     #ld         #Node, #Anchor                      // Load root node addr in tree
\           IF          ( #Node == 0 ), GOTO, ID= #NullLbl  // Done - tree is empy
\           WHILE                                               // Start loop down to the left
\               #ld         #left, #leftField[#Node]            // Get left child addr
\               IF          ( #left == 0 ), BREAK               // Done - first node found
\               MV          #Node, #left                        // Copy node addr
\               ENDWHILE