DataLine    PIN 2
LoopCounter VAR Nib     ' 0 1 2  3  4 5 6 7 8 9 A B
Buttons     VAR Bit(12) ' B Y Sl St ^ v < > A X L R
                        ' A B C  D  E F G H I J K L

'Pins 0, 1 output to SNES controller
'Pin 2 is input from controller
DIRS = %0000000000000011 //Set the I/O pints
DO
  HIGH 1   'Pulse Load (SNES Pin 5)
  LOW 1
  FOR LoopCounter = 0 to 11
    Buttons(LoopCounter) = 1 - DataLine 'Read Button State (SNES Pin 4)
    HIGH 0 'Pulse Clock (SNES Pin 6)
    LOW 0
  NEXT
LOOP
END

'{$STAMP BS2}
'{$PBASIC 2.5}


'READSNES1.bs2 - Reads button input from a normal Super Nintendo controller and outputs the state of the twelve buttons on it
'to an LCD display.

'WIRE AS FOLLOWS:

'Pin0 - Connect to Clock pin on SNES controller (Pin 6)
'Pin1 - Connect to P/S (Load) pin on SNES controller (Pin 5)
'Pin2 - Connect to Data pin on SNES controller (Pin 4)
'Pin5 - Connect to RX on LCD screen (Set to 19200 baud)

'Connect pin 7 of SNES controller to Vdd (Last pin on square end of connector)
'Connect Pin 1 of SNES Controller to Vss (Last pin on rounded end of connector)
'Connect LCD to Vss and Vdd as per LCD wiring schematic

DataLine    PIN 2
LoopCounter VAR Nib     ' 0 1 2  3  4 5 6 7 8 9 A B
Buttons     VAR Bit(12) ' B Y Sl St ^ v < > A X L R
LED0        PIN 3       ' A B C  D  E F G H I J K L
LED1        PIN 4
'Pins 0, 1 output to SNES controller
'Pin 2 is input from controller
'Pins 3, 4 are output to LEDs
DIRS = %0000000000011011

SEROUT 5, 32, 5, [$FE, $80, $FE, $80, $FE, $80, $FE, $80, $FE, $80]
SEROUT 5, 32, 5, [$FE, $16, $FE, $16, $FE, $16, $FE, $16, $FE, $16]

DO
  HIGH 1   'Pulse Load (SNES Pin 5)
  LOW 1
  FOR LoopCounter = 0 to 11
    IF DataLine = Buttons(LoopCounter) THEN
      IF DataLine THEN
        BRANCH LoopCounter, [BPressed, YPressed, SlPressed, StPressed, UpPressed, DownPressed, LeftPressed, RightPressed, APressed, XPressed, LPressed, RPressed]
      ENDIF
    ENDIF
    ContinueLoop:
    Buttons(LoopCounter) = 1 - DataLine 'Read Button State (SNES Pin 4)
    SEROUT 5, 32, [32 + Buttons(LoopCounter)]
    HIGH 0 'Pulse Clock (SNES Pin 6)
    LOW 0
  NEXT
  SEROUT 5,32,[$20,$20,$20,$20,"BYST^v<>AXLR",$20,$20,$20,$20]
LOOP
END

BPressed:
GOTO ContinueLoop

YPressed:
GOTO ContinueLoop

SlPressed:
GOTO ContinueLoop

StPressed:
GOTO ContinueLoop

UpPressed:
GOTO ContinueLoop

DownPressed:
GOTO ContinueLoop

LeftPressed:
GOTO ContinueLoop

RightPressed:
GOTO ContinueLoop

APressed:
GOTO ContinueLoop

XPressed:
GOTO ContinueLoop

LPressed:
GOTO ContinueLoop

RPressed:
GOTO ContinueLoop