$save nolist

 insert_name:PROCEDURE(host_id, name_ptr, new_socket, time_limit, stat_ptr) BYTE
                        EXTERNAL;

 	DECLARE       /* params */

		host_id     WORD,
 		name_ptr    POINTER,
 		new_socket  DWORD,
		time_limit  WORD,
 		stat_ptr    POINTER;

 END insert_name;		

get_socket:PROCEDURE(host_id, name_ptr, socket_ptr, time_limit, 
                     status_ptr) BYTE  EXTERNAL;

	DECLARE       /* params */

		host_id        WORD,
		name_ptr       POINTER,
		socket_ptr     POINTER,
		time_limit     WORD,
		status_ptr     POINTER;

END get_socket;

delete_name:PROCEDURE(host_id, name_ptr, time_limit, status_ptr) BYTE 
                       EXTERNAL;

 	DECLARE       /* params */
 	
		host_id        WORD,
		name_ptr       POINTER,
		time_limit     WORD,
		status_ptr     POINTER;

END delete_name;

change_sock:PROCEDURE(host_id, name_ptr, new_sock, time_limit, 
                      status_ptr) BYTE  EXTERNAL;

 	DECLARE       /* params */

		host_id        WORD,
		name_ptr       POINTER,
		new_sock       DWORD,
		time_limit     WORD,
		status_ptr     POINTER;

END change_sock;

get_table:PROCEDURE(host_id, tab_ptr_ptr, tab_size_ptr, time_limit, 
                      status_ptr) BYTE EXTERNAL;

 	DECLARE       /* params */

		host_id        WORD,
		tab_ptr_ptr    POINTER,
		tab_size_ptr   POINTER,
		time_limit     WORD,
		status_ptr     POINTER;

END get_table;
		
get_host_id:PROCEDURE(time_limit, status_ptr) WORD  EXTERNAL;

	DECLARE    /* params */

		time_limit        WORD,
		status_ptr        POINTER;

END get_host_id;

$restore˙