' =========================================================================
'
'   File....... AVRcam.BSP
'   Purpose....
'   Author..... Jon Williams -- Parallax, Inc.
'   E-mail..... jwilliams@parallax.com
'   Started....
'   Updated.... 10 MAR 2005
'
'   {$STAMP BS2p}
'   {$PBASIC 2.5}
'
' =========================================================================


' -----[ Program Description ]---------------------------------------------


' -----[ Revision History ]------------------------------------------------


' -----[ I/O Definitions ]-------------------------------------------------

TX              PIN     0                       ' to cam
RX              PIN     1                       ' from cam


' -----[ Constants ]-------------------------------------------------------

#SELECT $STAMP
  #CASE BS2, BS2E, BS2PE
    #ERROR "AVRcam requires BS2sx or BS2p"
  #CASE BS2SX, BS2P
    T1200       CON     2063
    T2400       CON     1021
    T4800       CON     500
    T9600       CON     240
    T19K2       CON     110
    TMidi       CON     60
    T38K4       CON     45
    T115K       CON     2
#ENDSELECT

SevenBit        CON     $2000
Inverted        CON     $4000
Open            CON     $8000

Baud            CON     T115K


' -----[ Variables ]-------------------------------------------------------

idx             VAR     Byte
char            VAR     Byte


' -----[ EEPROM Data ]-----------------------------------------------------


' -----[ Initialization ]--------------------------------------------------

Reset:
  SEROUT TX, Baud, ["PG", CR]
  SERIN RX, Baud, 2500, No_Camera, [WAIT("ACK", CR)]

Show_Version:
  SEROUT TX, Baud, ["GV", CR]
  SERIN RX, Baud, [WAIT("ACK", CR), SPSTR 12]
  DEBUG CLS
  FOR idx = 0 TO 11
    GET idx, char
    DEBUG char
  NEXT
  GOTO Main

No_Camera:
  DEBUG CLS, "No response from camera"
  END


' -----[ Program Code ]----------------------------------------------------

Main:


  END


' -----[ Subroutines ]----------------------------------------------------- 