*COMDECK  COMSLBT - DEFINE ORDINALS OF LOCAL BLOCKS.
          CTEXT  COMSLBT - DEFINE ORDINALS OF LOCAL BLOCKS. 
 LBLK     SPACE  4,10 
**        IF CALLER DOES NOT DEFINE *LBLK* MACRO, THEN THIS 
*         COMDECK DEFINES LOCAL BLOCK NUMBERS.
  
  
 .MAC     IF     -MAC,LBLK
  
          MACRO  LBLK,NR,NAM
 NR       SET    '?LBT#NN 
 '?LBT#NN SET    '?LBT#NN+1 
          ENDM
  
 '?LBT#NN SET 
  
 .MAC     ENDIF 
 BN=      SPACE  4,10 
 BN=STRT  LBLK   START. 
 BN=CODE  LBLK   CODE.
 BN=CON   LBLK   LITERL.
 BN=FMT   LBLK   FORMAT.
 BN=TEM   LBLK   TEMPS. 
 BN=APL   LBLK   APLST. 
 BN=IOAP  LBLK   IOAPL. 
 BN=NLST  LBLK   NAMLST.
 BN=VAR   LBLK   VARS.
 BN=SUB   LBLK   SUB. 
 BN=SUB0  LBLK   SUB0.
 BN=BUF   LBLK   BUFER. 
  
          PURGMAC LBLK
  
  
          ENDX
