mb2610.hpl

schematic interface orange for eeprom programming

; Orange programmer module
; (c) 2002 Rick
; CHIP=Mercedes Benz Car Radio Matsushita CQ-LP2610
; with 93C46 (64x16)

SOCKET=2

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

CDELAY=5 ; one set delay
R9=Code,H

[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

[_CALCULATE]
R4=R0,R4=&7
R9=R4          ;FIRST DIGIT
R5=R0,R5=&38H,R5=<<1
R9=|R5         ;SECOND DIGIT
R6=R0,R6=&1C0H,R6=<<2
R9=|R6         ;THIRD DIGIT
R7=R0,R7=&0E00H,R7=<<3
R9=|R7         ;FORTH DIGIT
R8=R0,R8=&7000H,R8=<<4
R9=|R8         ;FIFTH DIGIT


PRINT=("Code is %05lx",R9)

[CalcCode] ;from buffer
R9=0
ADR=01H,R0=DATA

_CALCULATE