; Orange programmer module v1.6
; (c) 1999-2002 Victor Maksimov & Alex Plusov
; CHIP=Sony CXK1011(64x8),CXK1012(128x8),CXK1013(256x8)

; tested O5

SOCKET=2 ;"MW"

PINO=CE,2
PINO=SCK,0
PINO=DI,1
PINI=DO,1
PINO=ORG,3

CDELAY=10 ; one set delay
TESTMASK=00000000

[INIT]
ORG=1,P=10


[_SEND]
LOOP=(7,0){SCK=0,DI=R0[I],SCK=1}

[READ]
CE=1
SCK=0
CE=0

_SEND(ADR) ;LOOP=(7,0){SCK=0,DI=ADR[I],SCK=1}        ;address

_SEND(0xA0)                              ;opcode (M4:1)

DI=1
LOOP=(7,0) {SCK=0,DATA[I]=DO,SCK=1}
CE=1

[WRITE]
CE=1
SCK=0
CE=0

_SEND(ADR) 
;LOOP=ADR(7,0) {SCK=0,DI=I,SCK=1}

_SEND(0x20)

_SEND(DATA)

P=50000
SCK=0
P=50000
SCK=1
CE=1