  PROCEDURE [XREF] mmp$fetch_stack_segment_info (xcb_p: ^ost$execution_control_block;
        ring: ost$valid_ring;
        set_length_to_zero: boolean;
    VAR stack_segment_number: ost$segment;
    VAR maximum_segment_length: ost$segment_length;
    VAR found: boolean);
?? PUSH (LISTEXT := ON) ??
*copyc OSD$VIRTUAL_ADDRESS
*copyc OST$EXECUTION_CONTROL_BLOCK
?? POP ??
