' =========================================================================
'
'   File....... SEETRON.BS2
'   Purpose....
'   Author.....
'   E-mail.....
'   Started....
'   Updated....
'
'   {$STAMP BS2}
'   {$PBASIC 2.5}
'
' =========================================================================


' -----[ Program Description ]---------------------------------------------


' -----[ Revision History ]------------------------------------------------


' -----[ Conditional Definitions ]-----------------------------------------


' -----[ I/O Definitions ]-------------------------------------------------

Lcd             PIN     0


' -----[ Constants ]-------------------------------------------------------

#SELECT $STAMP
  #CASE BS2, BS2E, BS2PE
    T1200       CON     813
    T2400       CON     396
    T4800       CON     188
    T9600       CON     84
    T19K2       CON     32
    TMidi       CON     12
    T38K4       CON     6
  #CASE BS2SX, BS2P
    T1200       CON     2063
    T2400       CON     1021
    T4800       CON     500
    T9600       CON     240
    T19K2       CON     110
    TMidi       CON     60
    T38K4       CON     45
  #CASE BS2PX
    T1200       CON     3313
    T2400       CON     1646
    T4800       CON     813
    T9600       CON     396
    T19K2       CON     188
    TMidi       CON     108
    T38K4       CON     84
#ENDSELECT

SevenBit        CON     $2000
Inverted        CON     $4000
Open            CON     $8000

Baud            CON     Inverted | T9600


LcdCmd          CON     254
LcdCls          CON     1
LcdLine1        CON     $80
LcdLine2        CON     $C0


' -----[ Variables ]-------------------------------------------------------

cntr            VAR     Word


' -----[ EEPROM Data ]-----------------------------------------------------


' -----[ Initialization ]--------------------------------------------------

Reset:
  SEROUT Lcd, Baud, [LcdCmd, LcdCls]
  PAUSE 5


' -----[ Program Code ]----------------------------------------------------

Main:
  DO
    SEROUT Lcd, Baud, [LcdCmd, LcdLine1 + 2, DEC cntr]
    PAUSE 200
    cntr = cntr + 1
  LOOP UNTIL (cntr = 101)
  GOTO Reset

  END


' -----[ Subroutines ]----------------------------------------------------- 