
  PROCEDURE [XREF] nap$receive_network_alarm
    (    wait_time: nat$wait_time;
         alarm_message: nat$data_fragment;
     VAR message_length: nat$data_length;
     VAR system: nat$system_title;
     VAR alarm_code: nat$command_response_code;
     VAR time_stamp: nat$bcd_time;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc nat$bcd_time
*copyc nat$data_fragments
*copyc nat$command_interface
*copyc nat$wait_time
*copyc ost$status
?? POP ??
