#!/usr/bin/perl

use charger_lib;


$cl = charger_lib->new(0x0F);


$cl->set_unit(1);
$cl->set_delay(0.04);

$volts_m = $cl->read_eeprom_int(0x1FD0);
$volts_c = $cl->read_eeprom_int(0x1FD2);
$volts_b = $cl->read_eeprom_int(0x1FD4);

$amps_m = $cl->read_eeprom_int(0x1FD6);
$amps_c = $cl->read_eeprom_int(0x1FD8);
$amps_b = $cl->read_eeprom_int(0x1FDA);

$volts_hv_m = $cl->read_eeprom_int(0x1FB0);
$volts_hv_c = $cl->read_eeprom_int(0x1FB2);
$volts_hv_b = $cl->read_eeprom_int(0x1FB4);


print "volts_b:$volts_b\n";
print "volts_c:$volts_c\n";
print "volts_m:$volts_m\n";

print "amps_b:$amps_b\n";
print "amps_c:$amps_c\n";
print "amps_m:$amps_m\n";

print "volts_hv_b: $volts_hv_b\n";
print "volts_hv_c: $volts_hv_c\n";
print "volts_hv_m: $volts_hv_m\n";