644p lässt sich nicht Flashen

[MiniMax]

Hallo Zusammen,
meine neuste Platine macht Probleme:
Ich kann zwar die Lock und Fusebits auslesen und schreiben, den Chip löschen oder Identifizieren aber nicht Flashen!
Als Controller kommt ein 644P zum einsatz, als Umgebung Bascom und als Programmer ein AVR USB Lab im AVRISP mkII Modus.
Ich habe bereits versucht das ISP kabel zu kürzen - keine Veränderung! Ich hab bereits alles möglich versucht aber keinen Erfolg gehabt ! Habt ihr eine Lösung?

[MiniMax]

So ich habe ihn jetzt mit der STK500V2 Firmware geflashed und es geht

Aber nun die nächste Frage:

Wenn ich den 644p Resette sendet er kurz über UART1 Daten und dann nicht mehr. Wenn ich ein Waitms 500 einfüge, sendet er es sogar nur einmal!

Hier der Code:

$regfile = "m644pdef.dat"
$crystal = 16000000
'$baud = 9600                                                ' use baud rate
'$baud1 = 9600
$hwstack = 32                                               ' default use 32 for the hardware stack
$swstack = 10                                               ' default use 10 for the SW stack
$framesize = 40                                             ' default use 40 for the frame space

Declare Sub Serial0charmatch()
Declare Sub Serial1charmatch()

Dim UART1in As String * 100 , UART2in As String * 100

Config Com1 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config Com2 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0


Config Serialin = Buffered , Size = 100 , Bytematch = 13
Config Serialin1 = Buffered , Size = 100 , Bytematch = 13

Open "COM1:" For Binary As #1
Open "COM2:" For Binary As #2

Enable Interrupts

 Print #1 , "Fertig"
Do

 Print #1 , "HALLO"
  Waitms 500
Loop


Sub Serial0charmatch()
 Print #1 , "Bin da"
 Input #1 , UART1in Noecho
 Print #1 , UART1in

End Sub

Sub Serial1charmatch()
 Input #1 , UART2in Noecho
 Print #1 , UART2in
End Sub






Close #1
Close #2

End

Hat einer eine Idee?