AT90s8515 Serout Problem

[Horst Holler (Gast)]

Hallo!
Ich versuche die komplette ASCII Tabelle über PORTB.7 auszugeben.
Aber mein Micro lässt viele Zeichen aus.
Woran kann das liegen?
Hier mein Code:
$regfile = "8515def.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32
Dim S As String * 10
Dim A As Long
Dim Mybaud As Long
Mybaud = 9600
For A = 0 To 255
S = Chr(a)
Serout S , 10 , B , 6 , Mybaud , 0 , 8 , 1
Wait 1
Next A
End

Das gibt mein Micro aus:
 !"#,-./0123<=>?@ABCLMNOPQRS\]^_`abclmnopqrs|}

Danke für jede Hilfe!