; Orange programmer module v1.2
; (c) 2004  Alex Plusov, Ast 
; CHIP=AK6416,1024x16
; AKM(ASAHI KASEI)


SOCKET=2 ;"MW"

PINO=SK,0
PINO=DI,1
PINO=CS,2
PINO=RST,3
PINO=RDY,4
PINI=DO,1

CDELAY=5 

[INIT]
RDY=1,RST=1,CS=1,SK=1,RST=0

[READ]
CS=0
R0=101010B ; 
LOOP=(5,0){DI=R0[I],SK=0,SK=1}     
LOOP=(9,0){DI=ADR[I],SK=0,SK=1}    
DI=1
LOOP=(15,0){SK=0,DATA[I]=DO,SK=1}  
CS=1


[WRITEINIT]
CS=0
R0=10100011B ; 
LOOP=(7,0){DI=R0[I],SK=0,SK=1}     
LOOP=(7,0){DI=1,SK=0,SK=1}         
CS=1


[WRITE]
CS=0
R0=101001B ;
LOOP=(5,0){DI=R0[I],SK=0,SK=1}     
LOOP=(9,0){DI=ADR[I],SK=0,SK=1}    
LOOP=(15,0){DI=DATA[I],SK=0,SK=1}    
CS=1

P=10000

;[ERASE]
;CS=0
;R0=10100011B ; 
;LOOP=(7,0){DI=R0[I],SK=0,SK=1}     
;LOOP=(7,0){DI=1,SK=0,SK=1}         
;CS=1

;CS=0
;R0=10101111B
;LOOP=(7,0){DI=R0[I],SK=0,SK=1} 
;LOOP=(7,0){DI=1,SK=0,SK=1} 
;CS=1
;P=100000