; Orange programmer module v1.1
; (c) 2001 Robinzon
; CHIP=XLS93C56P (128x16)

 



SOCKET=2

PINO=CLK,0
PINO=DIO,1
PINO=CS,2
PINI=DIO,1

CDELAY=10 ; one set delay

[READ]
CS=0,CLK=0,DIO=0,CS=1
CONST=0110B
LOOP=CONST(3,0){DIO=I,CLK=1,CLK=0}  ; READ instr
LOOP=ADR(7,0){DIO=I,CLK=1,CLK=0}    ; out adr
DIO=1
LOOP=DATA(15,0){CLK=1,CLK=0,I=DIO}  ; read data word
CS=0

[WRITE]
CS=0,CLK=0,DIO=0,CS=1
CONST=010011000000B
LOOP=CONST(11,0){DIO=I,CLK=1,CLK=0} ; WREN instr
CS=0

CS=1
CONST=0101B
LOOP=CONST(3,0){DIO=I,CLK=1,CLK=0}  ; WRITE instr
LOOP=ADR(7,0){DIO=I,CLK=1,CLK=0}    ; out adr
LOOP=DATA(15,0){DIO=I,CLK=1,CLK=0}  ; write data word
CS=0
P=50000

DIO=0,CS=1
CONST=010000000000B
LOOP=CONST(11,0){DIO=I,CLK=1,CLK=0} ; WRDS instr
CS=0