LCD und PS2 Tastatur an Atmega 8

[Bastian F. (berryblue)]

Hallo und schönen Abend erstmal euch allen und schonmal vielen 
herzlichen Dank fürs öffnen und evtl. lesen des Threads :)

Also erstmal meine Problemstellung und vorweg es handelt sich weder um 
eine Hausaufgabe, noch um einen Troll oder ähnlichem.

Und zwar habe ich hier eine alte Ps2 tastatur rumfahren und versuche sie 
über, wie oben genannt, einen einem Atmega 8 (mit Quarz auf 16 Mhz) die 
Eingabe auszulesen und dann für den Anfang an einem Text LCD (40*2) 
auszugeben.

Alle Versuche scheiterten bis jetzt kläglich und ich bitte nun um 
Sinvolle Links und Hilfestellungen.
"Gegoogelt" habe ich auch schon, aber keiner der Links hat mir  WIRKLICH 
weiter geholfen.

Ich benutze Bascom AVR in der Demo und würde es auch gerne weiter 
benutzen.

Mit freundlichen Grüssen,

Bastian

[Blaurock (Gast)]

Bastian Frey schrieb:
> "Gegoogelt" habe ich auch schon, aber keiner der Links hat mir  WIRKLICH
> weiter geholfen.

Dann verwende die richtigen Suchbegriffe:
ps2 avr bascom

[Bastian F. (berryblue)]

danke, aber auf diese Idee bin ich auch schon gekommen, aber wie gesagt, 
ich habe noch nichts gefunden was funktioniert hat.

MFG Bastian Frey

[Bastian F. (berryblue)]

Hallo nochmal
hab nen Code gefunden der wenigstens Teilweise Funktioniert :)
zum ASM Teil, bin mich grade noch am zurechtfinden, also verzeiht bitte 
mein Leien-Dasein

Nur zu dem was nicht funktioniert:
Ich bekomme die Anschläge mit, jedoch wird mir immer ein griechisches 
"Alpha" angezeigt, bitte um Hillfestellung.

MFG Bastian

$regfile = "m8adef.dat"
$crystal = 16000000

Config Lcd = 40 * 2
Config Lcdpin = Pin , Db4 = Portc.5 , Db5 = Portc.4 , Db6 = Portc.3 , Db7 = Portc.2 , E = Portc.1 , Rs = Portc.0
Config Keyboard = Pind.1 , Data = Pind.0 , Keydata = Keydata

Cursor On Blink
Dim Text As String * 40
Dim I As Byte
Dim L As Byte

$serialinput = Kbdinput
$serialinput2lcd

Text = "This is a Test!"
L = Len(text)
Cursor Off
Cls
Print Text


Do

Cls
Cursor Blink
Cursor On
Print "Enter Text :"
Locate 2 , 1
Input Text
L = Len(text)

Cls
Print Text
For I = 1 To 16
 Shiftlcd Right
 Wait 1
Next I
Wait 1
L = L + 16
For I = 1 To L
 Shiftlcd Left
 Wait 1
Next I
Loop

End

Kbdinput:

$asm

push r16           ; save used register

push r25

push r26

push r27

Kbdinput1:

rCall _getatkbd    ; call the function

tst r24            ; check for zero

breq Kbdinput1     ; yes so try again

pop r27            ; we got a valid key so restore registers

pop r26

pop r25

pop r16

$end Asm

Return

I = Getatkbd()

Keydata:

Data 0 , 0 , 0 , 0 , 0 , 200 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , &H5E , 0
Data 0 , 0 , 0 , 0 , 0 , 113 , 49 , 0 , 0 , 0 , 122 , 115 , 97 , 119 , 50 , 0
Data 0 , 99 , 120 , 100 , 101 , 52 , 51 , 0 , 0 , 32 , 118 , 102 , 116 , 114 , 53 , 0
Data 0 , 110 , 98 , 104 , 103 , 121 , 54 , 7 , 8 , 44 , 109 , 106 , 117 , 55 , 56 , 0
Data 0 , 44 , 107 , 105 , 111 , 48 , 57 , 0 , 0 , 46 , 45 , 108 , 48 , 112 , 43 , 0
Data 0 , 0 , 0 , 0 , 0 , 92 , 0 , 0 , 0 , 0 , 13 , 0 , 0 , 92 , 0 , 0
Data 0 , 60 , 0 , 0 , 0 , 0 , 8 , 0 , 0 , 49 , 0 , 52 , 55 , 0 , 0 , 0
Data 48 , 44 , 50 , 53 , 54 , 56 , 0 , 0 , 0 , 43 , 51 , 45 , 42 , 57 , 0 , 0

Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 81 , 33 , 0 , 0 , 0 , 90 , 83 , 65 , 87 , 34 , 0
Data 0 , 67 , 88 , 68 , 69 , 0 , 35 , 0 , 0 , 32 , 86 , 70 , 84 , 82 , 37 , 0
Data 0 , 78 , 66 , 72 , 71 , 89 , 38 , 0 , 0 , 76 , 77 , 74 , 85 , 47 , 40 , 0
Data 0 , 59 , 75 , 73 , 79 , 61 , 41 , 0 , 0 , 58 , 95 , 76 , 48 , 80 , 63 , 0
Data 0 , 0 , 0 , 0 , 0 , 96 , 0 , 0 , 0 , 0 , 13 , 94 , 0 , 42 , 0 , 0
Data 0 , 62 , 0 , 0 , 0 , 8 , 0 , 0 , 49 , 0 , 52 , 55 , 0 , 0 , 0 , 0
Data 48 , 44 , 50 , 53 , 54 , 56 , 0 , 0 , 0 , 43 , 51 , 45

[Hans Peter (Gast)]

Samples/getatkbd.bas
Samples/getatkbd_int.bas
Samples/getkbd.bas


so schwer? o.O