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