Fehler in Bascom rnd()?

[Kurt (Gast)]

Hallo,

ich habe für einen ATTiny13 ein kleines Programm in Bascom geschrieben, 
das einfach die 3 LEDs einer RGB-LED eine Sekunde ein- und 
zufallsgesteuert  per rnd() zwischen 0 und 10 Sekunden ausschalten soll. 
Das ganze ist einfach nur zu Testzwecken fix zusammengeschrieben.

Funktioniert soweit ganz gut, nur hängt sich das Programm regelmäßig 
nach dem 6. Aufruf von a=rnd(10) auf.

$regfile = "attiny13.dat"

$hwstack = 36
$swstack = 5
$framesize = 16


$crystal = 128000

Config Portb = Output
Dim A As Word

Rot Alias Portb.2
Gruen Alias Portb.1
Blau Alias Portb.0

Do


Portb = 7
Gosub Warten_an
Portb = 0
Gosub Warten_aus

Portb = 5
Gosub Warten_an
Portb = 0
Gosub Warten_aus

Portb = 6
Gosub Warten_an
Portb = 0
Gosub Warten_aus


Portb = 3
Gosub Warten_an
Portb = 0
Gosub Warten_aus

Portb = 7
Gosub Warten_an
Portb = 0
Gosub Warten_aus

Blau = 1
Gosub Warten_an
Blau = 0
Gosub Warten_aus

Gruen = 1
Gosub Warten_an
Gruen = 0
Gosub Warten_aus


Rot = 1
Gosub Warten_an
Rot = 0
Gosub Warten_aus

Loop

Warten_an:
Wait 1
Return

Warten_aus:
A = Rnd(10)
Wait A
Return

Das ist also wirklich nichts spektakuläres und soweit ich das 
überblicken kann, auch ohne Fehler im Code ;-).
Aber nach jedem Einschalten ist nach dem Ausschalten der blauen LED 
Schluss. Kann das jemand von Euch nachvollziehen?
Wenn ich A=rnd(10) auskommentiere und durch einen festen Wert ersetze 
läuft das Programm durch.
Vermute, dass rnd() Müll auf dem Stack "zurücklässt" und dass sich der 
Tiny dann aufhängt....

Gruß
Kurt

[spess53 (Gast)]

Hi

>Vermute, dass rnd() Müll auf dem Stack "zurücklässt" und dass sich der
>Tiny dann aufhängt....

Unwahrscheinlich. Was passiert bei einem WAIT A, wenn A = 0 ist?

MfG Spess

[Kurt (Gast)]

Danke, daran wird es gelegen haben.
Habe mal ein A=A+1 eingefügt, um zu verhindern, dass A bei wait(A) Null 
annimmt und jetzt läuft es.

Gruß
Kurt