einfacher Code geht nicht auf M8 jedoch auf Tiny26

[spatz2222]

Hallo - folgender Code funkt auf einem ATtiny26 so wie er soll :

$crystal = 8000000
$regfile = "at26def.dat"
'$regfile = "m8def.dat"

Dim A As Byte

Config Pina.4 = Output
Outpin Alias Porta.4


   Set Outpin
   Waitus 200
   Reset Outpin
   Waitus 200

   Set Outpin
   Waitus 200
   Reset Outpin
   Waitus 200


Do

Loop

wenn ich diesen Code auf einem ATmega8 ausführe kommt schrott raus

$crystal = 8000000
'$regfile = "at26def.dat"
$regfile = "m8def.dat"

Dim A As Byte

Config Pinc.5 = Output
Outpin Alias Portc.5


   Set Outpin
   Waitus 200
   Reset Outpin
   Waitus 200

   Set Outpin
   Waitus 200
   Reset Outpin
   Waitus 200


Do

Loop

der erste Block wird ordentlich abgearbeit mit 200us Hi und 200us Lo

dann kommt jedoch ein Hi von ca. 1.1ms ???

wo kommen diese 1.1ms her ?

Gruß Tobias

[spatz2222]

hi nochmal - also der Code auf dem At26 funkt auch nicht ganz so wie er soll - folgender Code soll folgendes machen : für ein Funkmodul soll wenn eine 1 Übertragen wird ein Hi und ein Lo Signal von je 400us übertragen werden, für eine 0 soll die Zeit je 200us lang sein ...

das ganze funkt auch jedoch kommt das letzte Hi immer viel zu lange - siehe oben - in meinem fall ist das jetzt ca. 1.9ms

obwohl ich zum schluß ja mit reset outpin den Pin rechtzeitig abgeschalten habe !!!

$crystal = 8000000
$regfile = "at26def.dat"
'$baud = 38400

Dim X As Byte
Dim A As Byte
Dim Ausg As Bit

X = 85

Config Pina.4 = Output
Outpin Alias Porta.4


Wait 1

For A = 0 To 7
   Ausg = 0
   If X.a = 1 Then Ausg = 1
   Gosub Send
Next


Do
Loop

Send:
   '******************
   If Ausg = 1 Then
      Set Outpin
         Waitus 400
      Reset Outpin
         Waitus 400
   End If
   '******************
   If Ausg = 0 Then
      Set Outpin
         Waitus 200
      Reset Outpin
         Waitus 200
   End If
   '******************
Return

wer eine Hardcopy vom Logic - Analyzer haben möchte soll sich per Mail melden !

kann es sein das der Befehl Waitus Probleme im µs bereich macht ?
wie umgeht man am besten das Waitus mit Timer ? dann muß man dem aber immer für 0 oder 1 einen neuen Wert zuweisen ...



Gruß Tobias