*DECK COBAS 
          PRGM COBAS; 
  
 #        COBAS - SETS UP ASSEMBLER INFO                        # 
  
          BEGIN 
          XREF
              BEGIN 
              PROC  BUG203SET;
              PROC COBASM;
              PROC OVERRTN;   #RETURN FROM OVERLAY# 
              END 
  
  
 #     START OF EXECUTION                                              #
  
          $BEGIN
          BUG203SET;                   # EXAMINE *PARAM* CARD          #
          $END
          COBASM;     #EXECUTE ASSEMBLER# 
          OVERRTN;
          END 
          TERM
