  PROCEDURE [XREF] mmp$lock_segment (p: ^cell;
        access: mmt$lus_lock_type;
        wait: ost$wait;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc OST$WAIT
*copyc OST$STATUS
*copyc MME$CONDITION_CODES
*copyc MMT$LUS_DECLARATIONS
?? POP ??
