Super Nintendo / SNES Controller attiny

[Daniel J. (theend)]

Hallo, ich versuche einen SNES controller auszulesen, sollte ja 
eigentlich nicht so schwer sein. Es handelt sich um ein bzw 2 
Schieberegister. Auf dem Bild im Anhang kann man sehen wie man den 
Controller anspricht.
Ich versuche das mit dem ATTiny13 und verwende Bascom. Bisher habe ich 
folgendes.

$regfile = "attiny13.dat"
$crystal = 1200000
$framesize = 10
$swstack = 10
$hwstack = 10


' Um das Register auszulesen muss der SNES Controller zunächst initialisiert werden:

Config Portb.2 = Output                                     'clock
Config Portb.1 = Output                                     'Latch
Config Pinb.0 = Input                                       'Data
Config Portb.4 = Output                                     'led
Portb.0 = 1                                                 'Pullup Widerstand ein
Portb.2 = 1                                                 'clock grundstellung
Portb.1 = 0                                                 'latch grundstellung
Dim I As Integer


' ---------------------------------------------------------
' --------------------- Hauptprogramm ---------------------
' ---------------------------------------------------------

Do

' Die Datenübertragung muss initialisiert werden.
' Dieser Schritt muss bei jedem Auslesen des Registers durchgeführt werden.

Portb.1 = 1                                                 'latch high
Waitus 12                                                   'für controller das
Portb.1 = 0                                                 'zeichen zu beginnen

' Nun können die 16 Bit des Registers wie folgt ausgelesen werden
' (folgendes also 16 Mal wiederholen)

For I = 0 To 15                                             '16 bit wobei 4 unbesetzt

Waitus 6
Portb.2 = 0

' test
If I = 5 Then                                               ' 5 = taste "oben"
If Pinb.0 = 1 Then                                          'wenn gedrückt
Portb.4 = 1                                                 'led an
End If
End If
' test

Waitus 6
Portb.2 = 1                                                 'clock wieder grundstellung


Next I




' ---------------------------------------------------------
' ------------------ Hauptprogramm Ende -------------------
' ---------------------------------------------------------

Waitms 1000                                                 '1 sekunde warten, und nochmal abfragen.


Loop
End

Meine frage, kann ich zb "waitus 6" angeben, und es werden wirklich 6 us 
gewartet, oder muss der code dazwischen "weggerechnet werden". Da der 
ATTiny bei zb 1Mhz pro sekunde 1 millionen takte gibt, der Controller 
aber auf 6us high und 6us low abwechselnd wartet, weiß ich nicht ob das 
so funktioniert.

Aufjedenfall passiert so bei mir garnichts. Egal welche taste ich 
drücke, nichts geht.
Sollte es so funktionieren?

[Daniel J. (theend)]

Code hat funktioniert. Lag an meiner Stromversorgung.
Auch sollte man die zeile
If Pinb.0 = 1 Then
ersetzen durch
If Pinb.0 = 0 Then

Die taste ist auch nicht "oben" sondern "unten"

Und am ende vor loop eventuell ein Portb.4 = 0 und waitms

Der Fertige Code sieht dann so aus.

$regfile = "attiny13.dat"
$crystal = 1200000
$framesize = 10
$swstack = 10
$hwstack = 10


' Um das Register auszulesen muss der SNES Controller zunächst initialisiert werden:

Config Portb.2 = Output                                     'clock
Config Portb.1 = Output                                     'Latch
Config Pinb.0 = Input                                       'Data
Config Portb.4 = Output                                     'led
Portb.0 = 1                                                 'Pullup Widerstand ein
Portb.2 = 1                                                 'clock grundstellung
Portb.1 = 0                                                 'latch grundstellung
Dim I As Integer


' ---------------------------------------------------------
' --------------------- Hauptprogramm ---------------------
' ---------------------------------------------------------

Do

' Die Datenübertragung muss initialisiert werden.
' Dieser Schritt muss bei jedem Auslesen des Registers durchgeführt werden.

Portb.1 = 1                                                 'latch high
Waitus 12                                                   'für controller das
Portb.1 = 0                                                 'zeichen zu beginnen

' Nun können die 16 Bit des Registers wie folgt ausgelesen werden
' (folgendes also 16 Mal wiederholen)

For I = 0 To 15                                             '16 bit wobei 4 unbesetzt

Waitus 6
Portb.2 = 0

' test
If I = 5 Then                                               ' 5 = Taste "unten"
If Pinb.0 = 0 Then                                          'wenn gedrückt
Portb.4 = 1                                                 'led an
End If
End If
' test

Waitus 6
Portb.2 = 1                                                 'clock wieder grundstellung


Next I




' ---------------------------------------------------------
' ------------------ Hauptprogramm Ende -------------------
' ---------------------------------------------------------

Waitms 100                                                  '100 milisekunde warten, und nochmal abfragen.
Portb.4 = 0

Loop
End