Отправлено =AK= 28 октября 2003 г. 07:10 В ответ на: Another sample отправлено =AK= 28 октября 2003 г. 07:02

( LED is attached to PORTA bit 0 in the target )
: LED-on
1 PORTA c! ;
: LED-off
0 PORTA c! ;
: InitLED
1 DDRA c! ;

: Blinking
InitLED
begin
LED-on 400 msec
LED-off 800 msec
again ;

20 20 Task BTask Blinking

: BMain
begin
1 $102 +! Pause
again ;

: RunBlinker
InitTasking init BTask StartTimer BMain ;