; Orange programmer module v1.3
; (c) 1999 Victor Filipyev & Alex Plusov
; CHIP=SDA2506 (128x8) Siemens

SOCKET=3 ;"SDA"

PINO=C,0
PING=D,1
PINO=CE,2


CDELAY=10 ; one set delay

[READ]
D=1
C=0
CE=1
LOOP=(0,6){D=ADR[I],C=1,C=0}    ; out adr
D=0,C=1,C=0                   ; CB=0 - control bit
CE=0
D=1
LOOP=(0,7){C=1,C=0,P=5,DATA[I]=D,P=5}   ; read data word

[WRITE]
D=1
C=0
CE=1
LOOP=(0,7){D=DATA[I],C=1,C=0}
LOOP=(0,6){D=ADR[I],C=1,C=0}
D=1,C=1,C=0                   ; CB=1 - control bit

D=1,CE=0
C=1,C=0                   ; start Erase
P=20000
CE=1

D=0,CE=0
C=1,C=0                   ; start Write

P=20000
CE=0