//MACRO     Cdll.pop    Anchor,	Node,	NullLbl,  WReg[2],	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 the right load and store MIs
    //
    eval(DVASM.getEnv()[4]);
    var wrd= abiWID + "WRD";
    var ld= "L" + abiWID;
    var st= "S" + abiWID;
    var wl= abiWLen;
    
    var prevField= FieldDispl;
    var nextField= wl + "+" + FieldDispl;
    
    //
    //  Get working registers list
    //
    var next= WReg[0];
    var prev= WReg[1];
    
    //
    //  Generate code
    //
\#Label		#ld			#Node, #Anchor  					// Get first node addr
\			IF			( #Node == 0 ), GOTO, ID= #NullLbl	// List is empty
\			#ld			#prev, #prevField[#Node]			// Get prev node addr
\			IF			( #Node == #prev ), THEN			// Check if only one node in list
\				#st			0, #Anchor							// Set list to empty
\			<ELSE											// More than one node in list
\				#ld 		#next, #nextField[#Node]			// Get next node addr
\				#st 		#next, #nextField[#prev]			// Set next field in prev node
\				#st 		#prev, #prevField[#next]			// Set prev field in next node
\				#st 		#next, #Anchor					// Set next to first in list
\				ENDIF