
  PROCEDURE [XREF] i#test_set_bit (p: ^cell;
        disp: integer;
    VAR previous_value: boolean);
