// mrd 74HC595 TEST BOARD2
Device = 18F43K22
Clock = 8
// int osc and IO pin libraries
Include "intosc.bas"
#option DIGITALIO_INIT = true // automatically call setalldigital
Include "setdigitalio.bas"
Include "SHIFT.BAS"
Dim LATCH As PORTB.4 // hc595 pin 12 LCHCLK
Dim DATA As PORTA.1 // hc595 pin 14 SDI
Dim CLK As PORTB.3 // hc595 pin 11 SFTCLK
Dim RST As PORTB.1 // hc595 pin 10 RSTn (no connection to pcb)
Dim SDO As PORTA.4 // hc595 pin 9 SDO QH' shift out
Dim Leds As Byte
// set pin modes
Shift.SetOutput(DATA)
Shift.SetClock(CLK)
Shift.SetInput(SDO)
high(RST)
low(LATCH)
// if there was a connection...
low(RST)
delayus(100)
high(RST)
// cycle leds
leds = 0
while (true)
if (leds = 0) then
leds = 1
endif
Shift.Out(MSB_FIRST, DATA, 8)
LATCH = 1
LATCH = 0
delayms(250)
leds = leds << 1
end while