PS/2 mit AT90USB162

Scadi Gast 30.04.2011 12:47 #2165209

Lesenswert?

•

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
   Portd.6 = Flag
   Sendscankbd Mark
   Waitms 1000
   If Flag = 1 Then
      Flag = 0
      Flag = 1
   End If
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

Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden

Galle Gast 30.01.2012 11:26 #2525317

Lesenswert?

•

▲
▼

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

Antwort Zitieren Bearbeiten Löschen Beitrag melden

PS/2 mit AT90USB162

Antwort schreiben