//==========absord routine==============

if (( weAreHereNow==1 ) && (val>(absorbCharge-25))) // if we are in absorb then do this


{
floaTime=floaTime+1; // check if time elapsed in absorb is up or not (timedOut constant)
}

if (floaTime>=timedOut) // once we reach timedOut, we have finished our absorb sequence, change status flag weAreHereNow to 2, and change the voltage now to float value
{
weAreHereNow=2;
}

if (val< absorbCharge)
{
pulseVal=pulseVal + increment; // was not up to bulkCharge, then increase pulse width incrementally
}


if (val>absorbCharge)
{
pulseVal=pulseVal-increment;
}

if ( pulseVal>=255)
{
pulseVal=255; // seen all this before
}
if ( pulseVal<=25)
{
pulseVal=25;
}

//==========absord routine==============
{
if (( weAreHereNow==1 ) && (val>(absorbCharge-25))) // if we are in absorb then do this



floaTime=floaTime+1; // check if time elapsed in absorb is up or not (timedOut constant)
}

if (floaTime>=timedOut) // once we reach timedOut, we have finished our absorb sequence, change status flag weAreHereNow to 2, and change the voltage now to float value
{
weAreHereNow=2;
}

if (val< absorbCharge)
{
pulseVal=pulseVal + increment; // was not up to bulkCharge, then increase pulse width incrementally
}


if (val>absorbCharge)
{
pulseVal=pulseVal-increment;
}

if ( pulseVal>=255)
{
pulseVal=255; // seen all this before
}
if ( pulseVal<=25)
{
pulseVal=25;
}

//=============bulk routine==============


if ( weAreHereNow==0) // if in stage 1 then check voltage against bulk charge constant ... can be set in definitions
{
bulkTime=bulkTime+1;
if (val< bulkCharge)
{
pulseVal=pulseVal + increment; // was not up to bulkCharge, then increase pulse width incrementally
}


if (val>bulkCharge)
{
pulseVal=pulseVal-increment; // if over the preset bulh voltage ... then back the pwm off a bit
}

if ( pulseVal>=255)
{
pulseVal=255; // if pulse width calculation exceeds 255 then just make it 255
}
if ( pulseVal<=25)
{
pulseVal=25; //if pulse width calulation is below zero, then make it zero instead
}

}

//==========absord routine==============

if ( weAreHereNow==1 ) // if we are in absorb then do this

{
if (val>(absorbCharge-25))
{

floaTime=floaTime+1; // check if time elapsed in absorb is up or not (timedOut constant)
}

if (floaTime>=timedOut) // once we reach timedOut, we have finished our absorb sequence, change status flag weAreHereNow to 2, and change the voltage now to float value
{
weAreHereNow=2;
}

if (val< absorbCharge)
{
pulseVal=pulseVal + increment; // was not up to bulkCharge, then increase pulse width incrementally
}


if (val>absorbCharge)
{

pulseVal=pulseVal-increment;
}

if ( pulseVal>=255)
{
pulseVal=255; // seen all this before
}
if ( pulseVal<=25)
{
pulseVal=25;
}
}
//=========float routine=======


if ( weAreHereNow==2) // are we in float charge stage

{
if (val>(floatVolts-25))

{fullTime=fullTime+1; } // increment float timer


if (val< floatVolts)
{
pulseVal=pulseVal + increment; // was not up to bulkCharge, then increase pulse width incrementally
}


if (val>floatVolts)
{
pulseVal=pulseVal-increment; // keeping charge in the float band....floatVolts is the constant we use
}

if ( pulseVal>=255)
{
pulseVal=255;
}
if ( pulseVal<=25)
{
pulseVal=25;
}

}
//==============================write the pulse to the fet======================
analogWrite (ledPin,pulseVal); // actually write the data to the fet via pin 6 ...

//=============================================
if (val<startAllOverAgain) // panic/reset routine when voltage drops back to 48 volts or so.
{
weAreHereNow=0;
bulkCharge=absorbCharge;
floaTime=0;
bulkTime=0;
fullTime=0;
}
}
//thats all folks