*DECK DBADDURWA 
USETEXT DBTEXT
PROC ADD$URWA;
*CALL DEBUGVARS 
XREF PROC IERR$;
START("ADD$URWA") 
#THIS PROCEDURE ADDS THE CURRENT VALUE OF THE AUXT$PTR INTO THE 
UNRESOLVED WORD ADDRESS ARRAY.
# 
IF URWAPTR LS URWASIZE
  THENB ("SPACE REMAINS") 
  URWAAUXT[URWAPTR]=AUXT$PTR; #SAVE CURRENT AUXT$PTR# 
  SETI("URWAPTR",URWAPTR,URWAPTR+1) #BUMP POINTER#
  ELSEB ("ARRAY IS FULL") 
  IERR$(L19,ABORT); 
ENDIF 
FINIS("ADD$URWA") 
TERM
