kenkkz06.hpl

schematic interface orange for eeprom programming

; Orange programmer module v3.2
; (c) 2000 Alex Plusov & Valery Fomin
; CHIP=Kenwood 759,859 - Car Radio with kkz06f (24C01,128x8) SEEPROM

SOCKET=1

PINO=SCL,0
PINO=SDA,1
PINO=WP, 2
PINI=SDA,1

CDELAY = 4 ; one set delay

R9=Code,H


[INIT]
R0=0xA0   ; write I2C address Const
R1=0xA1   ; read I2C address Const

[READ]
SDA=1,SCL=1,SDA=0,SCL=0 ;start

LOOP=(7,0) {SDA=R0[I],SCL=1,SCL=0}  ; out 8 bits 0xA0
SDA=0,SDA=1,SCL=1,SDA?0             ; ack check
SCL=0,SDA=0

LOOP=(7,0) {SDA=ADR[I],SCL=1,SCL=0}  ; out 8 bits adr
SDA=0,SDA=1,SCL=1,SDA?0              ; ack check
SCL=0,SDA=0

SDA=1,SCL=1,SDA=0,SCL=0 ;start
LOOP=(7,0){SDA=R1[I],SCL=1,SCL=0}    ; out 8 bits 0xA1
SDA=0,SDA=1,SCL=1,SDA?0              ; ack check
SCL=0

SDA=1
LOOP=(7,0){SCL=1,DATA[I]=SDA,SCL=0}  ; read byte
SDA=1,SCL=1,SCL=0,SDA=0              ; master not asked

SCL=0,SCL=1,SDA=1                    ; stop


[WRITE]
WP=0
P=10
SDA=1,SCL=1,SDA=0,SCL=0 ;start
LOOP=(7,0) {SDA=R0[I],SCL=1,SCL=0}   ; out 8 bits 0xA0
SDA=0,SDA=1,SCL=1,SDA?0              ; ack check
SCL=0,SDA=0

LOOP=(7,0){SDA=ADR[I],SCL=1,SCL=0}   ; out 8 bits address
SDA=0,SDA=1,SCL=1,SDA?0              ; ack check
SCL=0,SDA=0

LOOP=(7,0){SDA=DATA[I],SCL=1,SCL=0}  ; out 8 bits data
SDA=0,SDA=1,SCL=1,SDA?0              ; 0 - ack check?
SCL=0,SDA=0
SCL=0,SCL=1,SDA=1                    ; stop
P=25000


[CalcCode] ;from buffer
ADR=28H,R0=DATA,R0=/16, R0=-3,R9=R0, R9=<<4
ADR=31H,R0=DATA,R0=&0Fh,R0=-1,R9=|R0,R9=<<4
ADR=37H,R0=DATA,R0=/16, R0=-2,R9=|R0,R9=<<4
ADR=44H,R0=DATA,R0=&0Fh,R0=-4,R9=|R0


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