/***************************************************** Project : Ritariässä Version : 1 Date : 2.1.2008 Author : Petri Koskinen Company : Comments: Lyhyt ja ytimekäs ritariässä ohjelma. Sytyttää LEDit porteissa: PD,PB,PC. Chip type : AT90S4433 Clock frequency : 6,000000 MHz *****************************************************/ #include <90s4433.h> #include void main(void) { unsigned char i, ledi; PORTB=0x3F; DDRB=0x3F; PORTC=0x3F; DDRC=0x3F; PORTD=0xFF; DDRD=0xFF; ACSR=0x80; ledi = 0x01; while (1) { for(i = 0 ; i < 8; i++) { PORTD = ~ledi; ledi <<= 1; delay_ms(50); } PORTD = ~0x00; ledi = 0x01; for(i = 0; i < 6; i++) { PORTB = ~ledi; ledi <<= 1; delay_ms(50); } PORTB = ~0x00; ledi = 0x01; for(i=0; i < 6; i++) { PORTC = ~ledi; ledi <<= 1; delay_ms(50); } PORTC = ~0x00; ledi = 0x20; for(i = 0 ; i < 6; i++) { PORTC = ~ledi; ledi >>= 1; delay_ms(50); } PORTC = ~0x00; ledi = 0x20; for(i = 0; i < 6; i++) { PORTB = ~ledi; ledi >>= 1; delay_ms(50); } PORTB = ~0x00; ledi = 0x80; for(i=0; i < 8; i++) { PORTD = ~ledi; ledi >>= 1; delay_ms(50); } PORTD = ~0x00; ledi = 0x01; }; }