FASTAVR Start Timer0

[Axel R. (Gast)]

bin gerade seit gefühlten Jahrzehnten mal wieder kurz am Fastavr 
rumfummeln für eine kleine Sache, die (eigentlich) schnell erledigt sein 
sollte und auch schon beim Start des Timer0 hängengeblieben. Nach 
Durchsicht des generierten Assember-textes habe ich es dann zu Fuß im 
Fastavr-Code berichtigt.

;-Line--0015----Enable Ovf0--
    in    zl,TIMSK
    sbr    zl,0x02  <-- hier: voll falsch, mus 0x01 sein
    out    TIMSK,zl

Anstatt des Bit0 zu setzen, wird fälschlicherweise Bit1 gesetzt.
Mit der Direktive $ASM und $ENDASM lässt sich der ASM-Code direkt in den 
Basic-Quelltext eintragen und so die Peinlichkeit "umschiffen" ;)=

'/////////////////////////////////////////////////////////
'///   FastAVR Basic Compiler for AVR by MICRODESIGN   ///
'///   Name of Your project
'/////////////////////////////////////////////////////////
$Device= m128      ' used device
$Stack = 32        ' stack depth
$Clock = 7.3728      ' adjust for used crystal
$Baud = 9600
$Timer0= Timer, Prescale=1024
Dim inputcounter As Byte, taste_ext As Byte
Declare Interrupt Int1()
Declare Interrupt Ovf0()
Int1 Falling
DDRG= 16

Enable Int1
'Enable Ovf0 --> sbr zl, 0x02 ist ja wohl falsch!!
';----Enable Ovf0--
$Asm
    in    zl,TIMSK
    sbr    zl,0x01
    out    TIMSK,zl
$EndAsm
Start Timer0
Enable Interrupts
PrintBin(12)
Print ("RESET")

Do            ' place your code in next line
..>schnippschnapp<..
Loop

Ich weiß, das kaum jemand mit Fastavr spielt. Aber evtl. kann es der 
eine oder ander ja doch brauchen. Hier im Forum kommt ja nichts weg und 
über google ist es auch zu finden.

Grüße Axelr.

[[Frank] (Gast)]

Für die Version 4.3.0 gab es mal einen (inoffiziellen?) Patch. 
(s.Anhang)

Anstatt
$Asm
    in    zl,TIMSK
    sbr    zl,0x01
    out    TIMSK,zl
$EndAsm

kann man auch einfach

TIMSK.0=1

schreiben. Der erzeugte Code ist identisch.

[Axel R. (Gast)]

[Frank] schrieb:
> kann man auch einfach
>
> TIMSK.0=1
>
> schreiben. Der erzeugte Code ist identisch.

Du hast sowas von Recht! also manchmal... wirklich ;) Danke. Den Patch 
probier ich, danke dafür.

Axelr.

Also ergibt es doch einen Sinn ( um nicht "machen" zu sagen ) soetwas 
hier zu posten.

[Axel R. (Gast)]

Na ok. der Patch wird vom "roten Regenschirm" an seiner Ausführung 
gehindert :(
Oder besser: mir wird der Zugriff untersagt.

fastavr430patch.exe -> APPL/Agent.514.D ->wurde in Quarantäne verschoben

blöd

Gruß
axelr.

[Axel R. (Gast)]

Jupp: geht, danke. Mein patch ist zwar dafür raus, macht aber nichts.
Der Grund für jenen ist ja nun zufällig auch gleich mit behoben 
worden, obgleich garnicht angesprochen.
Hätt# ich das blos alles auf dem Sicherungsband gelassen...
So ein trödel mit dem zeuchs ;)

Ja soweit, danke erstmal

Gruß an alle mitleser
Axelr.

[Axel R. (Gast)]

hat jemand bitte noch das Helpfile zum Fastavr liegen, die Site ist 
down. Ich habe meine lokale Kopie nicht zur Hand. Fasthelp.chm oder so 
hies die wohl... Bin irgentwie zu dumm zu googlen heute. Link würde 
schon reichen,

Danke Axelr.

[[Frank] (Gast)]

Bitte sehr.

[Axel R. (Gast)]

So muss das.  Sehr schön, vielen Dank!
Axelr.