; Orange programmer module v3.1
; (c) 2002 Alex Plusov / CnC Lab
; Seiko:
; CHIP=S22S10,64x4
; CHIP=S22S12,256x4
; Xicor:
; CHIP=X2210,64x4
; CHIP=X2212,256x4

;adapter only for Orange3/4.

SOCKET=0

ALLPINS=18
INFO="S22S12 Adapter"

;        
PINO=IO0,0,12 ;
PINO=IO1,1,13 ;
PINO=IO2,2,14 ;
PINO=IO3,3,15 ;

PINO=CS,4,7   ;
PINO=WE,5,11  ;

PINO=CNTINC,6 ; 
PINO=CNTRST,7 ; 

PINO=RECALL,8,10
PINO=STORE,9,9


PINI=IO0,0,12 ;
PINI=IO1,1,13 ;
PINI=IO2,2,14 ;
PINI=IO3,3,15 ;


PINO=GND,255,8  
PINO=Vcc,254,18 

CDELAY=1


[_OUTDATA]
IO0=DATA[0],IO1=DATA[1],IO2=DATA[2],IO3=DATA[3]

[_INDATA]
R0=0,DATA=R0
DATA[0]=IO0,DATA[1]=IO1,DATA[2]=IO2,DATA[3]=IO3


[_INCADD]
R8=ADR
LOOP=(0,0xFFFF){  ;increment address to current value!
R9?R8{BREAK} 
CNTINC=1,P=2,CNTINC=0,P=2
R9=+1
}

[INIT]
STORE=1,P=10,RECALL=1
WE=1,CS=1
IO0=1,IO1=1,IO2=1,IO3=1
CS=0,RECALL=0,P=20,RECALL=1,P=20,CS=1
CNTRST=1,P=10,CNTRST=0,P=10
R9=0 ;currrent address register


[READ]
_INCADD
CS=0,P=10
_INDATA
CS=1,P=10

[WRITE]
CS=1
_INCADD
WE=0
_OUTDATA
CS=0,P=20,WE=1,CS=1,P=20
IO0=1,IO1=1,IO2=1,IO3=1 	;Data - Hi - Z
P=100

[WRITEEND]
;PRINT=("Push STORE button!")
STORE=0,P=200,STORE=1
P=12000


[END]
CS=1,WE=1