*DECK S$INITL 
          IDENT  S$INITL
          TITLE  S$INITL -  INITIALIZE LABEL DEFINITIONS
          COMMENT  INITIALIZE LABELS DEFINITIONS
  
*CALL LBLPTR
  
          SPACE  4
**        S$INITL -  INITIALIZE LABEL DEFINITIONS 
* 
*     CALLING SEQUENCE- 
*         S$INITL;
* 
*     DOES- 
*         INITIALIZES ALL ENTRIES IN S$DFLBL TO BE *DEFINED* WITH 
*          A VALUE OF ZERO.  S$GNLBL WILL DIAGNOSE DUPLICATE DECLARATIONS 
*          OF LABELS. 
  
  
          ENTRY  S$INITL
 S$INITL  SUBR
          SB7    /LBLPTR/ENDLBLS-1
          MX6    1           ENTRY = *DEFINED*, ADDRESS OF ZERO 
 INITL1   SA6    S$DFLBL-1+B7  INITIALIZE AN ENTRY
          SB7    B7-1        DECREMENT INDEX
          NZ     B7,INITL1 IF MORE ENTRIES, LOOP
          EXIT
  
  
 S$DFLBL  EXTERNAL           DEFINITIONS OF LABELS
  
  
          END 
