> 8;
	$msg[] = $base_addr & 0xFF;
	$msg[] = $cmd >> 8;
	$msg[] = $cmd & 0xFF;
	if ($DEBUG) {
	    print ("[MODBUS]\r\nSet register - Retries=" . $retries);
	}
	$res = 0;
    while ($retries) {
		$res = mb_send_command($bus, $msg);
		$retries--;
		if (is_array($res) && sizeof($res)) {
			break;
	    }
        if ($DEBUG) {
		    print("\r\nModbus Command FAILED\r\n");
		}
	}
	
    if (is_array($res)) {
        // if the result was successful
        if ($res[1]==6) {
            return 1;
        } else return -$res[2]; // return modbus exception code
    } 
	return $res;
}

/**
  * mb_set_int16_0x10 - set 16-bit register via function 10h
  *
  * Set a modbus register using function code 10h
  *
  * @param int $id - Modbus device ID
  * @param int $bus - Modbus bus ID (0 for Rs-485, 1 for RS-482 2, 2-11 for TCP channels 0-10)
  * @param int $reg - Register ID
  * @param int $cmd - Value
  * @oaran unt $retries - number of retries
  *
  * @return int 0 for failure, < 0 if modbus exception, 1 if successful
  */ 

function mb_set_int16_0x10($id, $bus, $reg, $cmd, $retries)
{
    global $DEBUG;
	$base_addr = $reg;
	$num_bytes = 2;
	$msg = array(
		$id,
		0x10
	);
	$msg[] = $base_addr >> 8;
	$msg[] = $base_addr & 0xFF;
	$msg[] = 0;
	$msg[] = 1;
	$msg[] = 2;
	$msg[] = $cmd >> 8;
	$msg[] = $cmd & 0xFF;
	$res=0;
	while ($retries) {
		$res = mb_send_command($bus, $msg);
		$retries--;
		if (is_array($res) && sizeof($res)) {
			break;
		}
		if ($DEBUG) {
		    print("\r\nModbus Command FAILED\r\n");
		}

	}
    if (is_array($res)) {
        // if the result was successful
        if ($res[1]==0x10) {
            return 1;
        } else return -$res[2]; // return modbus exception code
    } 
	return $res;
}

/**
  * mb_set_uint32_be_0x10 - set 32-bit uint big endian via function 10h
  *
  * Set a big endian UINT32 register via function 0x10h
  *
  * @param int $id - Modbus device ID
  * @param int $bus - Modbus bus ID (0 for Rs-485, 1 for RS-482 2, 2-11 for TCP channels 0-10)
  * @param int $reg - Register ID
  * @param int $cmd - Value
  * @oaran unt $retries - number of retries
  *
  * @return int 0 for failure, < 0 if modbus exception, 1 if successful
  */ 
function mb_set_uint32_be_0x10($id, $bus, $reg, $cmd, $retries)
{
    global $DEBUG;
	$base_addr = $reg;
	$num_bytes = 4;
	$msg = array(
		$id,
		0x10
	);
	$msg[] = $base_addr >> 8;
	$msg[] = $base_addr & 0xFF;
	$msg[] = 0;
	$msg[] = 2;
	$msg[] = 4;
	$msg[] = $cmd >> 24 & 0xFF;
	$msg[] = $cmd >> 16 & 0xFF;
	$msg[] = $cmd >> 8 & 0xFF;
	$msg[] = $cmd & 0xFF;
	$res=0;
	while ($retries) {
		$res = mb_send_command($bus, $msg);
		$retries--;
		if (is_array($res) && sizeof($res)) {
		//	print_r($res);
			break;
		}
		if ($DEBUG) {
		    print("\r\nModbus Command FAILED\r\n");
		}

		//print_r($res);
	}
    if (is_array($res)) {
        // if the result was successful
        if ($res[1]==0x10) {
            return 1;
        } else return -$res[2]; // return modbus exception code
    } 
	return $res;
}

/**
  * mb_set_uint32_le_0x10 - set 32-bit uint little endian via function 10h
  *
  * Set a little endian UINT32 register via function 0x10h
  *
  * @param int $id - Modbus device ID
  * @param int $bus - Modbus bus ID (0 for Rs-485, 1 for RS-482 2, 2-11 for TCP channels 0-10)
  * @param int $reg - Register ID
  * @param int $cmd - Value
  * @oaran unt $retries - number of retries
  *
  * @return int 0 for failure, < 0 if modbus exception, 1 if successful
  */ 
function mb_set_uint32_le_0x10($id, $bus, $reg, $cmd, $retries)
{
    global $DEBUG;
	$base_addr = $reg;
	$num_bytes = 4;
	$msg = array(
		$id,
		0x10
	);
	$msg[] = $base_addr >> 8;
	$msg[] = $base_addr & 0xFF;
	$msg[] = 0;
	$msg[] = 2;
	$msg[] = 4;
	$msg[] = $cmd >> 8 & 0xFF;
	$msg[] = $cmd & 0xFF;
	$msg[] = $cmd >> 24 & 0xFF;
	$msg[] = $cmd >> 16 & 0xFF;
	
    $res=0;
    
	while ($retries) {
		$res = mb_send_command($bus, $msg);
		$retries--;
		if (is_array($res) && sizeof($res)) {
		//	print_r($res);
			break;
		}
		if ($DEBUG) {
		    print("\r\nModbus Command FAILED\r\n");
		}

		//print_r($res);
	}
    if (is_array($res)) {
        // if the result was successful
        if ($res[1]==0x10) {
            return 1;
        } else return -$res[2]; // return modbus exception code
    } 
	return $res;
}

/**
  * mb_set_float_be_0x10 - set 32-bit big endian float via function 10h
  *
  * Set a big endian float register via function 0x10h
  *
  * @param int $id - Modbus device ID
  * @param int $bus - Modbus bus ID (0 for Rs-485, 1 for RS-482 2, 2-11 for TCP channels 0-10)
  * @param int $reg - Register ID
  * @param int $val - Value
  * @oaran unt $retries - number of retries
  *
  * @return int 0 for failure, < 0 if modbus exception, 1 if successful
  */ 
function mb_set_float_be_0x10($id,$bus,$reg,$val,$retries) {
    global $DEBUG;
    $base_addr=$reg;
    $num_bytes=4;
    $msg=array($id,16);
    $msg[]=$base_addr >> 8;
    $msg[]=$base_addr & 0xFF;
    $msg[]=0;
    $msg[]=2;
    $msg[]=4;
    $val=floatval($val);
    $cmd = ieee754toint($val);
    
    
    
    $msg[]=$cmd >> 24 & 0xFF;
    $msg[]=$cmd >> 16 & 0xFF;
    
    $msg[]=$cmd >> 8 & 0xFF;
    $msg[]=$cmd & 0xFF;
    if ($DEBUG) {      
      print("[MODBUS]\r\nSet Register Send:\r\n");
      print_r($msg);
      print ("Retries=" . $retries);
    }
    $res=0;
    while ($retries) {
        $res=mb_send_command($bus,$msg);
        $retries--;
        if (is_array($res) && sizeof($res)) {
        
        	break;
        }
    }
	  
	if (is_array($res)) {
        // if the result was successful
        if ($res[1]==0x10) {
            return 1;
        } else return -$res[2]; // return modbus exception code
    } 
    return $res;
}

/**
  * mb_set_float_le_0x10 - set 32-bit little endian float via function 10h
  *
  * Set a little endian float register via function 0x10h
  *
  * @param int $id - Modbus device ID
  * @param int $bus - Modbus bus ID (0 for Rs-485, 1 for RS-482 2, 2-11 for TCP channels 0-10)
  * @param int $reg - Register ID
  * @param int $val - Value
  * @oaran unt $retries - number of retries
  *
  * @return int 0 for failure, < 0 if modbus exception, 1 if successful
  */ 
function mb_set_float_le_0x10($id,$bus,$reg,$val,$retries) {
    global $DEBUG;
    $base_addr=$reg;
    $num_bytes=4;
    $msg=array($id,16);
    $msg[]=$base_addr >> 8;
    $msg[]=$base_addr & 0xFF;
    $msg[]=0;
    $msg[]=2;
    $msg[]=4;
    $val=floatval($val);
    $cmd = ieee754toint($val);
    $msg[]=$cmd >> 8 & 0xFF;
    $msg[]=$cmd & 0xFF;
    
    $msg[]=$cmd >> 24 & 0xFF;
    $msg[]=$cmd >> 16 & 0xFF;
    
    if ($DEBUG) {      
      print("[MODBUS]\r\nSet Register Send:\r\n");
      print_r($msg);
      print ("Retries=" . $retries);
    }
    
    while ($retries) {
        $res=mb_send_command($bus,$msg);
        $retries--;
        if (is_array($res) && sizeof($res)) {
        
        	break;
        }
    }
	if (is_array($res)) {
        // if the result was successful
        if ($res[1]==0x10) {
            return 1;
        } else return -$res[2]; // return modbus exception code
    } 
    return $res;
}

?>