Hitachi H8/Tiny 3664F, User Manual, Page: 43 / 56

HTEB1
User manual
Issue 0.2 Page 43 07/2002
{
u8 *data, *text, c,d;
if (line==0) text = &Line0[0];
// last digit = start address
else text = &Line1[0];
data = text+14;
d=3;
while (d)
{
*data = '0'; // default = '0'
c = code & 0x000f; // check digit
if (c) // if > 0 chk for value
{
if (c < 10) *data = '0'+c; // 0..9
else *data = 'A'+c-10; // a..f
}
data--;
// next digit
code >>= 4;
d--;
}
LCDWriteLine(line,text);
// show result
}
void Delay(void) // "manual" delay
{
long z = 0x010000;
while(--z);
}
u16 oldval[2];
u16 Average(u8 channel, u16 adval) // calculate av of last 15 values
{
if ((abs)(oldval[channel]-adval)>10)
oldval[channel]=adval;
else
oldval[channel] = ((oldval[channel]*15)+adval)>>4;
return oldval[channel];
}
/****************************************
TimerV-Test
setup : CLK/8 (=1µs @ 8MHz)
PWM-Output at TMOV (P76)
****************************************/
void Test_Timer_V(void)
{
TCRV0 = 0x08|0x01; // Clear by CompMatchA; IntClk/8
TCRV1 = 0x01; // Clk/2, no external Trigger
TCSRV = 0x08|0x01; // 0=onCompMatchA, 1=onCompMatchB (output on P76)
TCORA = 100; // set periode to 100 => 10.000Hz
TCORB = 75; // set init dutycycle to 75%
}
void main(void)
{
u16 val;
LCDInit();
// init ports and LCD
Test_Timer_V(); // for PWM-Output
while(1) // do forever...
{
val = Average(0,Read_AD(0));
ShowHexValue(val,0);
val = Average(1,Read_AD(1));
ShowHexValue(val,1);
val /= 10; // max. 1023/10 = 102
TCORB = (unsigned char)(val & 0xff); // set PWM-output
Delay();
}
}