
  PROCEDURE [XREF {TS_gate} ] mlp$sign_on_os ALIAS 'mlpsion' (application_name:
    mlt$application_name;
    max_messages: mlt$max_messages;
    VAR unique_application_name: mlt$application_name;
    VAR status: ost$status);

  PROCEDURE [XREF {TS_gate} ] mlp$sign_off_os ALIAS 'mlpsiof'
    (application_name: mlt$application_name;
    VAR status: ost$status);

  PROCEDURE [XREF {TS_gate} ] mlp$receive_message_os ALIAS 'mlpreme'
    (application_name: mlt$application_name;
    VAR arbitrary_info: mlt$arbitrary_info;
    signal: mlt$signal;
    message_area: mlt$message_ptr;
    VAR message_length: mlt$message_length;
    message_area_length: mlt$message_length;
    receive_index: mlt$receive_index;
    VAR sender_name: mlt$application_name;
    VAR status: ost$status);

  PROCEDURE [XREF {TS_gate} ] mlp$send_message_os ALIAS 'mlpseme'
    (application_name: mlt$application_name;
    arbitrary_info: mlt$arbitrary_info;
    signal: mlt$signal;
    message_area: mlt$message_ptr;
    message_length: mlt$message_length;
    destination_name: mlt$application_name;
    VAR status: ost$status);

  PROCEDURE [XREF {TS_gate} ] mlp$add_sender_os ALIAS 'mlpadse'
    (application_name: mlt$application_name;
    sender_name: mlt$application_name;
    VAR status: ost$status);

  PROCEDURE [XREF {TS_gate} ] mlp$delete_sender_os ALIAS 'mlpdese'
    (application_name: mlt$application_name;
    sender_name: mlt$application_name;
    VAR status: ost$status);

  PROCEDURE [XREF {TS_gate} ] mlp$confirm_send_os ALIAS 'mlpcose'
    (application_name: mlt$application_name;
    destination_name: mlt$application_name;
    VAR status: ost$status);

  PROCEDURE [XREF {TS_gate} ] mlp$fetch_receive_list_os ALIAS 'mlpferl'
    (application_name: mlt$application_name;
    sender_name: mlt$application_name;
    VAR receive_list: mlt$receive_list;
    VAR receive_count: mlt$receive_count;
    VAR status: ost$status);

  PROCEDURE [XREF] mlp$register_signal_handler_os (application_name:
    mlt$application_name;
    handler: mlt$handler;
    VAR status: ost$status);

  PROCEDURE [XREF] mlp$get_handler_info_os (application_name:
    mlt$application_name;
    VAR handler: mlt$handler;
    VAR status: ost$status);

  PROCEDURE [XREF] mlp$fetch_link_partner_info_os (application_name:
    mlt$application_name;
        partner_name: mlt$application_name;
    VAR last_op: mlt$operation;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc MLD$MEMORY_LINK_DECLARATIONS
*copyc OST$STATUS
?? POP ??
