TRISC = 0
Dim tmp As Byte

Call sorosadatki(%10101010)

End
Proc kirak()

PORTC.4 = 1
WaitUs 10
PORTC.5 = 1

End Proc

Proc dataout(arg1 As Bit)

PORTC.4 = 1
PORTC.6 = arg1
PORTC.7 = 1
WaitUs 10
PORTC.7 = 0
PORTC.6 = 0

End Proc

Proc clear()
PORTC.4 = 0
WaitUs 10
PORTC.4 = 1

End Proc



Proc sorosadatki(arg1 As Byte)

' CLOCK: PORTC.7 SCK
' data: PORTC.6 DATASER
' clear PORTC.4 SCLR
' enable PORTC.5 RCK

Call clear()
Call dataout(arg1.0)
Call dataout(arg1.1)
Call dataout(arg1.2)
Call dataout(arg1.3)
Call dataout(arg1.4)
Call dataout(arg1.5)
Call dataout(arg1.6)
Call dataout(arg1.7)
Call kirak()


End Proc