; Orange programmer module v1.6
; (c) 1999-2003 CnCLab
; CHIP=93C06 (16x16),93C46 (64x16)
; chips w/o WP & ORG

SOCKET=2 ;"MW"
TESTMASK=11110000

PINO=CLK,0
PINO=DI,1
PINO=CS,2
PINO=NC1,3
PINO=NC2,4
PINI=DO,1

CDELAY=5 ; one set delay

[_WAITWR]
LOOP=(0,10000){
DO?1{BREAK}
P=10
}

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


[INIT]
NC1=1,NC2=0

[READ]
CS=0
CLK=0
CS=1
DI=1,CLK=1,CLK=0    ; start bit
DI=1,CLK=1,CLK=0    ; \ read instruction
DI=0,CLK=1,CLK=0    ; /
LOOP=(5,0){DI=ADR[I],CLK=1,CLK=0}    ; out adr
DI=1,P=1
DO?1{PRINT=A("Chip not respond at %04lX, continue?",ADR),RA?0{EXIT}} 
LOOP=(15,0){CLK=1,CLK=0,DATA[I]=DO}  ; read data word
CS=0

[WRITEINIT]
CS=0
CLK=0
CS=1
DI=1,CLK=1,CLK=0    ; start bit
_SEND(0x30)	    ; out EWEN
CS=0


[WRITE]
CS=0
CLK=0
CS=1
DI=1,CLK=1,CLK=0    ; start bit
DI=0,CLK=1,CLK=0    ; \ write instruction
DI=1,CLK=1,CLK=0    ; /
LOOP=(5,0){DI=ADR[I],CLK=1,CLK=0}    ; out adr
LOOP=(15,0){DI=DATA[I],CLK=1,CLK=0}  ; write data word
CS=0,DI=1,CS=1      ; check status
P=10000
_WAITWR
DO?1
CS=0


[Erase]
CS=0
CLK=0
CS=1
DI=1,CLK=1,CLK=0    ; start bit
_SEND(0x30)    ; out EWEN
CS=0

CS=1
DI=1,CLK=1,CLK=0    ; start bit
_SEND(0x20)	    ; out ERAL
CS=0
P=30000
_WAITWR