
  PROCEDURE [XREF] nlp$udp_get_socket_status
    (    global_socket_id: nlt$udp_global_socket_id;
     VAR clear_to_send: boolean;
     VAR data_pending_receive: integer;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc nlt$udp_global_socket_id
*copyc ost$status
?? POP ??
