*DECK N$CONSL 
          IDENT  N$CONSL
          ENTRY  N$CONSL
  
          ENTRY  CONSLPM
  
*CALL COMCMAC 
  
 N$CONSL  SUBR
  
          IFEQ   OS$NOS 
          CONSOLE  CONSLPM
          ENDIF 
          EQ     N$CONSLX 
  
 CONSLPM  BSSZ   1
  
          END 
