Программирование в Pascal (сишники идут лесом)

[Smalovsky]

Начал изучать микроконтроллеры AVR и mikroPascal.
Однако сразу столкнулся с проблемами.
Хотелось бы получить помощь.

Не могу запустить таймер для ATmega128. Пробовал получить значение счётчика напрямую и через прерывания в процедурах.
В отладчике не видно изменения.
Вот текст программы:

program MyProject1;

{ Declarations section }
var
i: integer;
Procedure getTimerCount(var count: integer);
begin
count:=TCNT0;
end;
Procedure T0; iv IVT_ADDR_TIMER0_OVF; ics ICS_AUTO;
begin
PORTB:= TCNT0;
end;

begin
{ Main program }
DDRB:=$FF;
ASSR.AS0:=0;
TCCR0:=0;
TCCR0.CS00:=1;
TIMSK.TOIE0:=1;
asm SEI end;
while TRUE do
begin
getTimerCount(i);
PORTB:=Lo(i);
end;

end.

[Advertiser]