' =========================================================================
'
'   File....... OE-8X Test.BS1
'   Purpose.... Test program for OE-8X serial slave device
'   Author..... Jon Williams -- Parallax EFX
'   E-mail..... jwilliams@parallax.com
'   Started....
'   Updated.... 27 MAR 2005
'
'   {$STAMP BS1}
'   {$PBASIC 1.0}
'
' =========================================================================


' -----[ Program Description ]---------------------------------------------


' -----[ Revision History ]------------------------------------------------


' -----[ I/O Definitions ]-------------------------------------------------

SYMBOL  Sio             = 7                     ' pulled up (for open true)


' -----[ Constants ]-------------------------------------------------------

SYMBOL  Baud            = OT2400
SYMBOL  ID              = 5                     ' slave address (0 - 7)


' -----[ Variables ]-------------------------------------------------------

SYMBOL  idx             = B2                    ' loop counter
SYMBOL  feedback        = B3                    ' confirmation byte

SYMBOL  ver1            = B4                    ' version string
SYMBOL  ver2            = B5
SYMBOL  ver3            = B6


' -----[ EEPROM Data ]-----------------------------------------------------


' -----[ Initialization ]--------------------------------------------------

Reset:
  PAUSE 100
  SEROUT Sio, Baud, ("!OE8", ID, "V")
  SERIN  Sio, Baud, ver1, ver2, ver3
  DEBUG CLS, "OE-8X Version ", #@ver1, #@ver2, #@ver3, CR
  PAUSE 1000


' -----[ Program Code ]----------------------------------------------------

Main:
  FOR idx = 0 TO 255
    SEROUT Sio, Baud, ("!OE8", ID, "S", idx)
    SEROUT Sio, Baud, ("!OE8", ID, "G")
    SERIN  Sio, Baud, feedback
    IF feedback = idx THEN No_Error
      DEBUG "Error with ", #idx, CR
      GOTO Next_Idx

No_Error:
    DEBUG CLS, "Output = ", #%idx, CR

Next_Idx:
  NEXT
  GOTO Reset

  END


' -----[ Subroutines ]----------------------------------------------------- 