*DECK DBADDAUXT 
USETEXT CCTTEXT 
USETEXT DBTEXT
USETEXT DNTEXT
FUNC ADD$AUXT(LDNAT$PTR) I; 
*CALL DEBUGVARS 
*CALL DNATVALS
*CALL AUXT1 
*CALL AUXTVALS
*CALL GETSET
*CALL TABLNAMES 
START("ADD$AUXT") 
# 
ADD NEW AUX TABLE ENTRY.
THIS FUNCTION UPDATES THE AUXTABLE LENGTH IN THE CCT, CREATES 
A NEW ENTRY IN THE AUXTABLE, SETS THIS NEW ENTRY IN THE AUXTABLE TO 
POINT TO ORIGINAL HEAD OF CHAIN AUX ENTRY AND THEN SETS THE 
SPECIFIED DNAT ENTRY TO POINT TO THE NEW ENTRY. 
  
THE ENTRY PARAMETER IS THE DNAT PTR TO THE ITEM ONTO WHICH THE
NEW ENTRY IS TO BE HUNG.
# 
ITEM LDNAT$PTR; 
##
CCTAUXTLEN=CCTAUXTLEN+1; #UPDATE AUX TABLE LENGTH#
                    IV$($SET$,"CCTAUXTLN=",CCTAUXTLEN)
T=GETQUICK(DN$AUXREF,DNAT$,LDNAT$PTR); #NEW AUX->OLD HEAD OF CHN# 
SETFIELD(AX$TNEXTPTR,AUX$,CCTAUXTLEN,T);
SETFIELD(DN$AUXREF,DNAT$,LDNAT$PTR,CCTAUXTLEN); #SET DNAT PTR TO NEW AX#
ADD$AUXT=CCTAUXTLEN;
FINIS("ADD$AUXT") 
TERM
