1 /* BEGIN mdbm_change_bits.incl.pl1 -- jaw 12/04/78 */
2 
3 dcl  change_bits (ncbs) bit (1) unal based (cbp);
4 
5 dcl  ncbs fixed bin;
6 dcl  cbp ptr;
7 
8 /* END mdbm_change_bits.incl.pl1 */
9