' {$STAMP BS2p}
'{$PBASIC 2.5}

#SELECT $STAMP
  #CASE BS2SX, BS2P
    N2400        CON     1021
  #CASE BS2PX
    N2400        CON     1646
  #CASE #ELSE
    N2400        CON     396
#ENDSELECT


Sdat    PIN     15 ' Serial Data I/O pin
buff    VAR     Byte(3) ' temporary variable


FindPSC: ' Find and get the version
  DEBUG "Finding PSC", CR ' number of the PSC.
  SEROUT Sdat, N2400+$8000, ["!SCVER?",CR]
  SERIN Sdat, N2400, 500, FindPSC, [STR buff\3]
  DEBUG "PSC ver: ", buff(0), buff(1), buff(2), CR
STOP