 PROCEDURE [XREF] ocp$open_segment_for_68000 (
        segment_length: ost$segment_length;
    VAR mc68000_seq: ^SEQ ( * );
    VAR segment: amt$segment_pointer;
    VAR status: ost$status);
