*DECK CBDBPBD 
USETEXT TSBP2CM                                                         007180
      PROC CBDBPBD(DBPNAME);
      BEGIN 
  
# PASSED PARAMETERS#
      ITEM DBPNAME;          #NAME OF DBP TO BE PUT INTO DBP TABLE# 
  
# EXTERNAL REFERENCES#
      XREF PROC CBCKBUF;      #MEMORY MANAGER PROC# 
  
# DECLARATIONS BETWEEN $BEGIN AND $END BLOCKS ARE SATISFIED BY SYMPL   #007200
# TEXTS AS INDICATED IN THE USETEXT DIRECTIVE.                         #007210
                                                                        007220
      $BEGIN     # SYMPL TEXT * TSBP2CM * USED #                        007230
                                                                        007240
*CALL CBPASS2CM 
                                                                        007260
      $END                                                              007270
      CONTROL EJECT;
# IF DBPNAME ALREADY IN TABLE RETURN WITH DBPINDEX SET# 
      FOR DBPINDEX=0 STEP 1 UNTIL DBPLSTL DO
        IF DBPNAME EQ DBPENTRY[DBPINDEX] THEN RETURN; 
# ENTRY NOT FOUND, ADD IT TO THE TABLE# 
      OM$DBP = TRUE;
      DBPLSTL = DBPLSTL+1;
      CBCKBUF(P<DBPLST>,DBPLSTL+1);    #MAKE SURE BIG ENOUGH# 
      DBPENTRY[DBPLSTL] = DBPNAME;
      DBPLOWER[DBPLSTL] = 0;
      DBPINDEX = DBPLSTL; 
      END 
      TERM; 
