; Orange programmer module v1.3
; (c) 2000 CnCLab
; CHIP=59C13 (256x16) Atmel
; NOT TESTED !

SOCKET=2 ;"MW"

PINO=CLK,0
PINO=DI,1
PINO=CS,2
PINO=ORG,3
PINI=DO,1

CDELAY=5 ; one set delay


[INIT]
ORG=1,CLK=0,CS=0

[READ]
CS=1
R0=11000B
LOOP=(4,0){DI=R0[I],CLK=1,CLK=0} ; READ instr
LOOP=(7,0){DI=ADR[I],CLK=1,CLK=0}   ; out adress
DI=1
LOOP=(15,0){CLK=1,DATA[I]=DO,CLK=0} ; read data
CS=0

[WRITEINIT]
CS=1
R0=1001100000000B
LOOP=(12,0){DI=R0[I],CLK=1,CLK=0} ; EWEN
CS=0

[WRITE]
CS=1
R0=10100B
LOOP=(4,0){DI=R0[I],CLK=1,CLK=0} ; WRITE instr
LOOP=(7,0){DI=ADR[I],CLK=1,CLK=0}   ; out adress
LOOP=(15,0){CLK=0,DI=DATA[I],CLK=1} ; write data
P=10000
CS=0

[WRITEEND]
CS=1
R0=1000000000000B
LOOP=(12,0){DI=R0[I],CLK=1,CLK=0} ; EWDS
CS=0