Модель ATmega328P
В чем может быть причина?
Код: Выделить всё
program T_2;
var
ButtonSelect : sbit at PIND2_bit;
ButtonSelect_Direction : sbit at DDD2_bit;
begin
ButtonSelect_Direction := 1;
ButtonSelect := 0;
InitTimer0;
while TRUE do ;
end.
Код: Выделить всё
unit Dispatch;
var
ButtonSelect : sbit; external; sfr; volatile;
ButtonSelect_Direction : sbit; external; sfr;
procedure InitTimer0;
implementation
procedure InitTimer0;
begin
SREG_I_bit := 1;
OCR0A := 172;
TCCR0A := 0x00;
TCCR0B := 0x03;
TCNT0 := 0;
OCIE0A_bit := 1;
end;
procedure Pulse;
begin
ButtonSelect := 1;
Delay_us(1);
ButtonSelect := 0;
end;
procedure Ticker1ms_Handler_Dispatcher; org IVT_ADDR_TIMER0_COMPA;
begin
TCNT0 := 0;
Pulse;
end;
end.




