kenkkz01.hpl

来自「schematic interface orange for eeprom pr」· HPL 代码 · 共 64 行

; Orange programmer module v3.2
; (c) 2000 Alex Plusov & Valery Fomin
; CHIP=Kenwood 758, 857, 858, 956, 958 
; Car Radio with kkz01 ( 93C46 smd )  SEEPROM

SOCKET=2

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

CDELAY=5 ; one set delay

[INIT]
ORG=1

[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=ADR(5,0){DI=I,CLK=1,CLK=0}    ; out adr
DI=1
LOOP=DATA(15,0){CLK=1,CLK=0,I=DO}  ; read data word
CS=0

[WRITEINIT]
CS=0
CLK=0
CS=1
DI=1,CLK=1,CLK=0    ; start bit
CONST=0x30
LOOP=CONST(7,0){DI=I,CLK=1,CLK=0}    ; 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=ADR(5,0){DI=I,CLK=1,CLK=0}    ; out adr
LOOP=DATA(15,0){DI=I,CLK=1,CLK=0}  ; write data word
CS=0,DI=1,CS=1      ; check status
P=10000
DO?1
CS=0


[CalcCode] ;from buffer
;R9=0
ADR=07H,R0=DATA,R0=/16,   R0=&0Fh,R0=-3,R9=R0, R9=<<4
ADR=11H,R0=DATA,R0=/256,  R0=&0Fh,R0=-1,R9=|R0,R9=<<4
ADR=17H,R0=DATA,R0=/1000H,R0=&0Fh,R0=-2,R9=|R0,R9=<<4
ADR=23H,R0=DATA,          R0=&0Fh,R0=-4,R9=|R0

PRINT=("Code: %04lX",R9)