CON

  _clkmode = xtal1 + pll16x
  _xinfreq = 5_000_000
 Scan =    $0B
 Brite =   $0A
 Decode =  $09
 ShutDn =  $0C
 LOAD =    20                                                                'Connected to max pin 12     
 DataIO =  18                                                                'Connected to max pin 1     
 Clock =   19                                                                'Connected to max pin 13
 
 #4,LSBFIRST,MSBFIRST                                                        'Used for SHIFTOUT routines

OBJ                       
 BS2: "BS2_Functions"

PUB Main|i, index, INIT
  dira[18..20]:=%111            
  BS2.start(31,30)
  WAITCNT(CLKFREQ/2+CNT)
  Repeat index from 1 to 2
    INIT := lookup(index:Scan, 5)
    BS2.SHIFTOUT(DataIO, Clock, INIT, MSBFIRST, 8)
    BS2.PULSOUT(LOAD, 5)
  Repeat index from 1 to 2
    INIT := lookup(index:Brite, 9)                                                       
    BS2.SHIFTOUT(DataIO, Clock, INIT, MSBFIRST, 8)
    BS2.PULSOUT(LOAD, 5)
  Repeat index from 1 to 2
    INIT := lookup(index: Decode,$1F)
    BS2.SHIFTOUT(DataIO, Clock, INIT, MSBFIRST, 8)
    BS2.PULSOUT(LOAD, 5)
  Repeat index from 1 to 2
    INIT := lookup(index:ShutDn, 1)
    BS2.SHIFTOUT(DataIO, Clock, INIT, MSBFIRST, 8)
    BS2.PULSOUT(LOAD, 5)
  REPEAT
   'i from 0 to 9999
    i:=123
    BS2.SHIFTOUT(DataIO, Clock, i, MSBFIRST, 8)
    BS2.PULSOUT (LOAD, 5)
    'waitcnt(clkfreq+cnt)   