/* ************************************************************************** */
/* */
/* Monoliticke mikropocitace - Priklad 1.3 */
/* */
/* Program zasvieti/zhasne zltu LED na PORTB.5 s periodou ?? [s] */
/* */
/* Autor: Richard Balogh <balogh@elf.stuba.sk> */
/* Historia: */
/* 3. 3. 2006 prva pokusna verzia */
/* 12.10. 2012 upravene pre Acrob / Arduino (portD / portB) */
/* Verzia: */
/* Pre studentov, chybajuce hodnoty */
/* Prenositelnost: */
/* */
/* ************************************************************************** */
#include <avr/io.h>
#define LEDon PORTB &= ~(_BV(5)) // cbi(PORTB,PB5); ale cbi je nepodporovane
#define LEDoff (PORTB |= _BV(5)) // sbi(PORTB,PB5); ale sbi je nepodporovane
#define F_CPU 16000000
void delay_ms(unsigned int ms);
int main (void)
{
DDRB = 0x??; // bin: ???? ???? 1 = out, 0 = in
PORTB = 0x??; // bin: ???? ???? 1 = LED zhasni, 1 = pull-up ON
do{
LEDoff; // bin PORTB + 0010 0000 = nastav PB5, LED OFF
delay_ms(500); // cakaj 500 ms (0,5 s)
LEDon; // bin: PORTD & 1101 1111 = vynuluj PB5, LED ON
delay_ms(500); // cakaj 500 ms (0,5 s)
} while(1); // toto rob stale dokola
return (0); // formalita, nikdy sem neprideme
}
void delay_ms(unsigned int ms)
{
unsigned int index;
while (ms)
{
index = F_CPU / ????; // vypocitajte, kolko treba, aby sme dostali 1ms!!
while (index)
{
asm volatile ("nop");
index--;
}
ms--;
}
}