25LC160 with PicBasic???

[alegazzi]

Sorry my english.

How do I write and read the memory 25lc with picbasic?

[alegazzi]

Symbol CS = PORTD.2
Symbol CLK = PORTC.3
Symbol DI = PORTC.4
Symbol DO = PORTC.5


Addr VAR WORD ' Address
B0 VAR Byte ' Data


PAUSE 50
CS=1
PAUSE 10


B0=0


For ADDR = 0 To 1000

' HABILITA GRAVAÇÃO
CS = 0
SHIFTOUT DO, CLK, 1, [6]
CS = 1
PAUSE 1

' GRAVA DADOS
CS = 0
SHIFTOUT DO, CLK, 1, [2, ADDR.HIGHBYTE, ADDR.LOWBYTE, ADDR]
CS = 1
PAUSE 1

' DESABILITA GRAVAÇÃO
CS = 0
SHIFTOUT DO, CLK, 1, [4]
CS = 1
PAUSE 1

Next ADDR


INICIO:

' LE DADOS
For ADDR = 0 To 1000
CS = 0
SHIFTOUT DO, CLK, 1, [3, ADDR.HIGHBYTE, ADDR.LOWBYTE]
SHIFTIN DI, CLK, 0, [B0]
CS = 1
PAUSE 1
HSEROUT [DEC3 ADDR, " - ", DEC B0,13]
Next ADDR

HSEROUT [13]

PAUSE 1500

goto inicio

[manwolf]

is

SHIFTOUT DO, CLK, 1, [2, ADDR.HIGHBYTE, ADDR.LOWBYTE, ADDR]


OR

is

SHIFTOUT DO, CLK, 1, [$02, ADDR.HIGHBYTE, ADDR.LOWBYTE, ADDR]

3 = $03 and 6 = $06?

[skimask]

3 = $03 and 6 = $06?
Same - same ....
For instance......
65 = $41 = %01000001 = "A" = (any other equation that comes out to 65, but I don't think statements like SHIFTOUT or SEROUT like that sort of thing)...