$large (nslibs -const in code- has hostid; exports ns_get_host_id)
$large ( base_data exports comm_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.							          **/

    /* comm_host_id is a public declared in mipcfg.mac and 
       allowed in mip link statement
       in ceall.csd submit file - it contains the host id which was 
       returned by the firmware presence command.  */

    declare comm_host_id (6) byte external data;

	ns_get_host_id: PROCEDURE (hostid$ptr) BYTE PUBLIC;

		declare hostid$ptr POINTER;
        declare loc_hostid based hostid$ptr structure (
                  mac_byte(6) byte);
		
		Call Movb (@comm_host_id, @loc_hostid.mac_byte(0), 6);

		RETURN (01H);

		END ns_get_host_id;

	END hostid;