Hallo,
ich versuche eine 90S8515 zu programieren. Ich möchte damit HEX dateien empfangen und senden. Und dabei möchte ich das port B.6 benutzen. Für Rx wie Tx.

Eigentlich hatte ich es schonmal gemacht und es hatte auch funktioniert, jedoch nachdem ich meine PC neu aufsetzen musste will es nicht mehr. Oder ich vergesse etwas an dem Code.

Code:
$crystal = 3532976
$regfile = "8515def.dat"

Dim Gon1 As Byte , Say1 As Integer


Restore Atr
For Say1 = 1 To 13
Read Gon1
Serout Gon1 , 1 , B , 6 , 9600 , 1 , 8 , 2
Next Say1

End

Atr:
Data &H3B , &H78 , &H11 , &H00 , &H00 , &H54 , &HC4 , &H02 , &H07 , &H8F , &HF1 , &H90 , &H00
Es soll bei einem reset diesen hex 'ATR' versenden.

Ich benutze dafür STK500