#!/usr/bin/perl

use charger_lib;


$cl = new charger_lib;
$cl->set_delay(0.05);
$cl->set_unit(shift || 255);
$cl->set_baud(shift || 9600);
#$cl->set_debug();



while(1) {
	print "[T]hrottle, [E]rror, [C]harge end, [P]hase, [Q]uit: ";

$ch = <>;

chop ($ch);
$ch = lc $ch;


if($ch eq "t") {
	print $cl->read_eeprom(0x1F5C) . "\n";
	print $cl->read_eeprom(0x1F5D) . "\n";
	print $cl->read_eeprom(0x1F5E) . "\n";
	print $cl->read_eeprom(0x1F5F) . "\n";

	$cl->write_eeprom(0x1F5C,0);
	$cl->write_eeprom(0x1F5D,0);
	$cl->write_eeprom(0x1F5E,0);
	$cl->write_eeprom(0x1F5F,0);
} elsif ($ch eq "q") {
	exit(0);
} elsif ($ch eq "e") {
	print $cl->read_eeprom(0x1FF0) . "\n";
	print $cl->read_eeprom(0x1FF1) . "\n";
	
	$cl->write_eeprom(0x1FF0,0);
	$cl->write_eeprom(0x1FF1,0);
} elsif ($ch eq "c") {
	print $cl->read_eeprom(0x1F58) . "\n";
	print $cl->read_eeprom(0x1F59) . "\n";
	print $cl->read_eeprom(0x1F5A) . "\n";
	print $cl->read_eeprom(0x1F5B) . "\n";

	$cl->write_eeprom(0x1F58,0);
	$cl->write_eeprom(0x1F59,0);
	$cl->write_eeprom(0x1F5A,0);
	$cl->write_eeprom(0x1F5B,0);
} elsif($ch eq "p") {
	print $cl->read_eeprom(0x1FEC) . "\n";
	print $cl->read_eeprom(0x1FED) . "\n";
	print $cl->read_eeprom(0x1FEE) . "\n";
	print $cl->read_eeprom(0x1FEF) . "\n";

	$cl->write_eeprom(0x1FEC,0);
	$cl->write_eeprom(0x1FED,0);
	$cl->write_eeprom(0x1FEE,0);
	$cl->write_eeprom(0x1FEF,0);
}

}