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

HTEB1
User manual
Issue 0.2 Page 34 07/2002
}
if (LED_Speed) LED_Speed--; // decrement speed counter
if (!LED_Speed) // if zero ...
{
LED_Speed = LED_SPEED_INIT; // re init speed counter
if (LED_Run)
{
if (LED_Dir) // right
{
LED_Out >>= 1; // shift right
if (!LED_Out) LED_Out = 0x80; // if empty, set to 0x80
}
else
{
LED_Out <<= 1; // shift left
if (!LED_Out) LED_Out = 0x01; // if empty, set to 0x01
}
}
}
PDR8 = ~LED_Out;
// output (invert)
}
void PrepKeyPort(void) // prepare key-port-bits
{
PMR1 &= ~KEY_ALL; // Port1 = I/O (0) for all keys
PCR1 &= ~KEY_ALL; // Port1 = input(0) for all keys
PUCR1 |= KEY_ALL; // PullUps = on for all keys
}
void RunningLightInit(void) // prepare LED-port and vars
{
PrepKeyPort();
PDR8 = 0xff;
// all LED's off
PCR8 = 0xff; // all out's
LED_Out = 0x01; // start value
LED_Run = 0x01; // run
LED_Dir = 0x00; // dir = left
LED_Speed = LED_SPEED_INIT; // start speed
}
/****************************************
TimerA-Interrupt (1s)
increments var c and output
the value of c to LED's (inverted)
****************************************/
interrupt [TIMER_A] void Timer_A_Isr(void)
{
static u8 c;
KeyCheck();
// check for key pressed
RunningLightUpdate();
IRR1 &= ~0x40;
// clear irq-flag
}
/****************************************
TimerA-Test
setup : CLK/8 (=1µs @ 8MHz) at P10 (TMOW)
1s-Irq-intervall @ SubClock (32.678 Hz)
****************************************/
void Timer_A_Init(void)
{
PCR8 = 0xff; // P8 = output
TMA = 0x0c; // Reset PrescalerW
TMA = 0x4b; // CLK/8 on P10, 1/32s-interval (Clk=Prescaler W)
PMR1 |= 0x01; // set TMOW (P10) = Output
IENR1 |= 0x40; // enable TimerA-Interrupt
set_interrupt_mask(0); // enable all interrupts
}
void main(void)
{