*DECK S$NWLBL 
          IDENT  S$NWLBL
          TITLE  S$NWLBL -  REFERENCE A NEW LABEL 
          COMMENT  REFERENCE A NEW LABEL
  
*CALL LBLPTR
  
          SPACE  4
**        S$NWLBL -  REFERENCE A NEW LABEL
* 
*     CALLING SEQUENCE- 
*         SB6    /LBLPTR/<MNEMONIC> 
*         RJ     S$NWLBL
* 
*     DOES- 
*         SETS UP THE ASSOCIATED LABEL ENTRY AS *UNDEFINED* 
*          WITH A LINK FIELD OF ZERO. 
* 
*     REGISTERS USED- 
*         B    - - - - - 6 7
*         X  - 1 - - - - 6 -
*         A  - 1 - - - - 6 -
  
  
          ENTRY  S$NWLBL
 S$NWLBL  SUBR
  
*     IF THIS ENTRY HAS NOT BEEN DEFINED SINCE LAST USED, 
*         NOTE AN INTERNAL ERROR
  
          SA1    S$DFLBL-1+B6  EXAMINE ASSOCIATED LABEL ENTRY 
          IFTHEN  X1\0       IF ENTRY NOT YET DEFINED 
            SX1    =10HS$NWLBL-1
            CALL   S$ABORT
            ENDIF.
  
*     INITIALIZE THE ENTRY
  
          MX6    0           ENTRY = *UNDEFINED*, LINK = 0
          SA6    S$DFLBL-1+B6 
          EXIT
  
 S$DFLBL  EXTERNAL           DEFINITIONS OF LABELS
  
          END 
