$large (nslibs -const in code- has hostid; exports ns_get_host_id)

	hostid: do;

	/** 	MODULE : hostid
			This subroutine is the user supplied get hostid call
		for non-NMF configurations of iNA.  It is called by the name
		server if the NMF call does not return an OK response (1).  In
		that case, this is called to get the host id.  This subroutine
		is called in /name/src/initor.p86, the name server initiator 
		during RMXNET start up.							          **/

	/** ns_get_host_id return an error (0) if we get here
		since the 552 should support the NMF call **/

	/* dummy variable to avoid error empty data segment */
	declare dummy_word WORD;


	ns_get_host_id: PROCEDURE (hostid$ptr) BYTE PUBLIC;
		declare hostid$ptr POINTER;
		
		RETURN (0H);

		END ns_get_host_id;

	END hostid;