PS/2 mit AT90USB162

[Scadi (Gast)]

Hallo,
ich versuche nun schon seit Tagen eine billige PS/2 Tastaturemulation 
mit Bascom auf dem AT90USB162 zum laufen zu bringen.
Die PS/2-Erweiterung zu Bascom habe ich erworben. Selbst das einfach 
Beispiel aus der Bascom-Hilfe funktioniert nicht richtig.
Die PS/2 Data-Leitung habe ich an PD1 angeschlossen (laut Datenblatt ist 
dies auch der INT1 Anschluss, und die Clock-Leitung an PD7.
Das Beispiel müsste jede Sekunde "Mark" zum PC schicken, dort kommt aber 
jede Sekunde immer nur ein Zeichen an; so entsteht nach und nach z.B. 
sowas "krkmkamara".
Hier mal der Bascom Quelltext:

$regfile = "usb162.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 8
$framesize = 24

Config Clockdiv = 1
Config Portd.6 = Output

$baud = 19200

$lib "mcsbyteint.lbx"

'configure PS2 AT pins
Enable Interrupts
Config Atemu = Int1 , Data = Pind.1 , Clock = Pind.7
'                 ^------------------------ used interrupt
'                              ^----------- pin connected to DATA
'                                       ^-- pin connected to clock
'Note that the DATA must be connected to the used interrupt pin

Dim Flag As Bit
Flag = 0

Do
   Portd.6 = Flag
   Sendscankbd Mark
   Waitms 1000

   If Flag = 1 Then
      Flag = 0
   Else
      Flag = 1
   End If
Loop


Mark:
Data 12 , &H3A , &HF0 , &H3A , &H1C , &HF0 , &H1C , &H2D , &HF0 , &H2D , &H42 , &HF0 , &H42

Hat jemand ne Idee woran das liegen kann? ich vermute mal etwas mit dem 
Timing

Grüße
Thomas

[Galle (Gast)]

Hallo, bei mir lag es daran, das INT1 Pind.3 ist bei dem AT90USB162 ist 
es ebenso der Pind.3.

Also Data = Pind.3

Die 1 Sekunde würde ich perönlich mit einem Timer lösen.

$regfile = "usb162.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 8
$framesize = 24
$baud = 19200

$lib "mcsbyteint.lbx"

'configure PS2 AT pins

Config Atemu = Int1 , Data = Pind.3 , Clock = Pind.7
'                 ^------------------------ used interrupt
'                              ^----------- pin connected to DATA
'                                       ^-- pin connected to clock

Config Timer1 = Timer , Prescale = 256
On Timer1 Isr_timer1
Enable Timer1
Const Timer1_reload = 3036          'Wert für 1s bei 16MHz

Enable Interrupts

Do
nop

Loop
End
Isr_timer1:
Sendscankbd Mark
Timer1 = Timer1_reload
Return

Mark:
Data 12 , &H3A , &HF0 , &H3A , &H1C , &HF0 , &H1C , &H2D , &HF0 , &H2D , 
&H42 , &HF0 , &H42