; Orange programmer module v3.4
; (c) 2000-2012 CnC Lab
; CHIP=S2100R,8x8 Seiko/Pioneer
; ROM (need 21V for FUSE memory)

; READ only!!!
; Tested.

; Version for Orange5 hardware.

;PIN        1    2    3    4    5    6    7    8
;SOCKET    P0   P1   P2   Gnd   P4  P5    P6   Vcc

SOCKET=6

PING=DAT,0
PINO=CE,1
PINO=COUT,2
PINO=PD,4
PINO=CLK,5
PINO=RST,6



;PINO=DAT,1
;PINO=CE,0
;PINO=CLK,2
;PINO=RST,3
;PINI=DAT,1

CDELAY = 2 ; one set delay

INFO="For Orange5"

[INIT]
COUT=Z
PD=0
CE=1
RST=1
CLK=1
DAT=1


[READ]
CE=0
P=10
R0=ADR		; copy address
R0?0{
RST=0
DATA[0]=DAT ;read bit 0
RST=1
LOOP=(1,7){CLK=0,CLK=1,DATA[I]=DAT} ;read other bits
}
R0?>0{
LOOP=(0,7){CLK=0,CLK=1,DATA[I]=DAT} ;read other bytes
}



[END]
CE=1



; change bits order
[#!REVERSE]
ADR=0
LOOP=(0,7){
R0=DATA
R1[7]=R0[0]
R1[6]=R0[1]
R1[5]=R0[2]
R1[4]=R0[3]
R1[3]=R0[4]
R1[2]=R0[5]
R1[1]=R0[6]
R1[0]=R0[7]
DATA=R1
ADR=+1
}