استفاده از ADC میکرو Attiny 13

[mapmap]

سلام
میخوام از ADC میکرو Attiny 13 استفاده کنم اما بلد نیستم.
برنامه ای رو که برا Atmega کار میکنه برای Attiny کار نمیکنه. دلیلش چیه؟؟
خطای Sram رو به سختی رفع کردم اما توی اینکه دستور IF رو خطا میگیره موندم.
خواهشا" اگه کسی بلده همین الان منو راهنمایی کنه.
اینم برنامه م که بسکام دستور IF رو قبول نمیکنه:

$regfile = "attiny13.dat"
$crystal = 8000000
Config Adc = Single , Prescaler = Auto

Dim A As Iram Byte

Start Adc
Do
A = Getadc(0)
If A = 1 Then
Set Portb.2
Loop

End

متشکرم

[mapmap]

پاسخ : استفاده از ADC میکرو Attiny 13

بالاخره یافتم:

$regfile = "attiny13.dat"
$hwstack = 8
$swstack = 16
$framesize = 16
'---------------------------------------------------------------
Dim M As Word
Dim A As Word
Config Portb.0 = Output
Config Portb.1 = Output
Config Portb.2 = Output
Config Portb.5 = Input
'---------------------------------------------------------------
Ledred Alias Portb.0
Ledyellow Alias Portb.1
Ledgreen Alias Portb.2
'---------------------------------------------------------------
Config Adc = Single , Prescaler = Auto , Reference = Internal
'---------------------------------------------------------------
Start Adc
'--------------------------------------------------------------
و .....
.............
مابقی برنامه طبق روال عادی
:bye