Doch das geht.
Du hast nur etwas vergessen.

Der Tiny13 hat nicht viel Ram und die Standardzuweisung vom Compiler frisst alles auf so das nix mehr übrig ist.

Ich hab dir mal die Stackbefehle reingesetzt und auch den Frame.
Les in ruhe nach wofür jeder ist dann haste für die Zeiten wenn auch auf nem M128 das Ram knapp wird.

Desweiteren hab ich A von Byte auf Word geändert.
Zum einen weil der ADC 10 Bit liefert und ein Byte zu eng ist.
(Grundsätzlich ist Eng ja schön aber hier passts nicht)
Und zum anderen hättest du spätestens bei der Zeile "While a<500 wieder Ärger middem Compiler bekommen denn A als Byte kann nie 500 werden denn dafür fehlte im ein Bit (Nein kein Bier)

Hier mal die geänderte Version.

Code:
'Neue Version die zumindes beim Compiler gnade findet *gg*


$regfile = "ATtiny13.dat"
$crystal = 1200000
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config Portb = Output

$hwstack = 10                                               'Eingefügt Weil die Standardvorgaben
$swstack = 10                                               'für den Tiny13 zu
$framesize = 20                                             'hoch sind.


Ddrb = &B0101
Start Adc
Dim A As Word                                               'Auf Word geändert weil ADC 10 Bit liefert
Do
While A < 500                                               'Hier hätte es mit "DIM A as Byte" ärger gegeben
A = Getadc(2)
Waitms 100
Wend
Portb.3 = Not Portb.3
Waitms 500
Loop
Die dürfte jetzt laufen