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