Отправлено konst2000 28 мая 2003 г. 15:51

этот пример при прогоне в симуляторе зацикливается на goto, хотя условие выхода выполняется (TCNT0 становится больше 20 - все равно идет на goto)...

$regfile = "at15def.dat"
$tiny
$noinit
$noramclear

Config Pinb.3 = Output
Config Pinb.4 = Output
Config Timer0 = Timer , Prescale = 1024

Dim Azz As Iram Byte

Set Portb.3
Reset Portb.4

Timer0 = 0
Qq:
Azz = Tcnt0
If Azz < 20 Then Goto Qq

Set Portb.3
Set Portb.4

End

• 512 команд можно и на ассемблере написать, и проще и эффективнее. — viakon   (29.05.2003 07:05, пустое)