' {$STAMP BS2sx}
'--------------------------------------------------------------------------
'
'
' ----------[ Title ]------------------------------------------------------
'
' File........... Kissme.bsx
' Author......... Thomas Charveriat
' E-mail......... tc262@columbia.edu
' WWW............ http://www.island6.org
' Date........... September 2007
'
' ----------[ Program Description ]----------------------------------------
'
'This program demonstrates how to communicate with an led controller.(BX-C)
'The program constantly reads the input of an IR proximity sensor.
'The sensor triggrs the starting of a new video loop
'
' ----------[ Diagram ]----------------------------------------------------
'
'                                __________
'                       SER TX <-| 1     24 |-- PWR  (TO IR Vdd 12V)
'                       SER RX ->| 2     23 |-- (PWR) GND  (TO IR GND)
'                      SER ATN ->| 3     22 |-- RESET
'    BX-C(pin5 of DB9) SER GND --| 4     21 |-- +5V
'    BX-C(pin6 of DB9)   I/O 0 <-| 5     20 |-- I/O 15  N/C
'                   N/C  I/O 1 <-| 6     19 |-- I/O 14  N/C
'                   N/C  I/O 2 <-| 7     18 |-- I/O 13  N/C
'                   N/C  I/O 3 <-| 8     17 |-- I/O 12  N/C
'                   N/C  I/O 4 <-| 9     16 |-- I/O 11  N/C
'                   N/C  I/O 5 <-| 10    15 |-- I/O 10  N/C
'                   N/C  I/O 6 --| 11    14 |-- I/O 9   N/C
'                   N/C  I/O 7 --| 11    14 |-- I/O 8   N/C  (to IR via 220H, and IR is connected to Vss via 10k )
'                                |__________|
'
'                                  BS2SX-IC
'

' '  =====================================
'          [  VARIABLE DECLARATION ]
'    =====================================

DISPLAY VAR Byte
t CON 16624
TO_BX_C CON 0
msg VAR Word

' '  ================================
'                 [ INIT ]
'    ================================

start:
msg=87    'correpsonds to the last frame =kiss me
SEROUT TO_BX_C, t, [msg,msg]

' '  ================================
'                 [ MAIN ]
'    ================================

check_input:
IF IN8=1 THEN action     '8 is the input from the InfraRed sensor
GOTO check_input

' '  ======================= =========
'                 [ LOOP ]
'    ================================

action:
SEROUT TO_BX_C, t, [255,255]        '255 releases the LED controller, the video display starts playing.
PAUSE 2800   'exact time of the video
GOTO start