tc89102.hpl

schematic interface orange for eeprom programming

; Orange programmer module v1.1
; (c) 2000 Valery Fomin
; CHIP=TC89101P (64x16), TC89102P (128x8)

SOCKET=2

PINO=CLK,0
PINO=DI,1
PINO=CS,2
PINO=ORG,3
PINI=DO,1

CDELAY=5 ; one set delay

[READ]
ORG=1,CS=1,CLK=1
CS=0
LOOP=ADR(0,6){CLK=0,DI=I,CLK=1}    ; out adr
CLK=0,DI=0,CLK=1
CONST=10000000B
LOOP=CONST(7,0){CLK=0,DI=I,CLK=1}  ; READ instr
DI=1
LOOP=DATA(0,15){CLK=0,CLK=1,I=DO}  ; read data word
CS=1,CLK=1

[WRITEINIT]
ORG=1,CS=1,CLK=1,CS=0
CONST=255
LOOP=CONST(7,0){CLK=0,DI=I,CLK=1} ; Dimmy
CONST=10010000B
LOOP=CONST(7,0){CLK=0,DI=I,CLK=1} ; E/W Enable
CS=1,CLK=1

[WRITE]
CS=0
LOOP=ADR(0,6){CLK=0,DI=I,CLK=1}    ; out adr
DI=0,CLK=0,CLK=1
CONST=01100000B
LOOP=CONST(7,0){CLK=0,DI=I,CLK=1}  ; PROGRAM instr
LOOP=DATA(0,15){CLK=0,DI=I,CLK=1}  ; write data word
CS=1
P=40000

[WRITEEND]
CLK=1,CS=0
CONST=255
LOOP=CONST(7,0){CLK=0,DI=I,CLK=1} ; Dimmy
CONST=11010000B
LOOP=CONST(7,0){CLK=0,DI=I,CLK=1} ; E/W Disable
CS=1,CLK=1