bmw2100.hpl

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

; Orange programmer module v3.1
; (c) 2000 Alex Plusov
; BMW BAVARIA C BUSINESS RDS (zbm 92 - Pioneer) Calculator
; CHIP=P2100,8x8

; READ Not tested!!!

;PIN        1    2    3    4    5    6    7    8
;SOCKET    P1   P0    -   Gnd   -   P2   P3   Vss

SOCKET=6

PINO=DAT,1
PINO=CE,0
PINO=CLK,2
PINO=RST,3
PINI=DAT,1

CDELAY = 10 ; one set delay

R9=Code,H


[INIT]
CE=1
RST=1
CLK=1
DAT=1


[READ]
CE=0
R0=0,LOOP=(0,7){R0[I]=ADR[I]}	; copy address		
R0?0{
RST=0
DATA[0]=DAT ;read bit 0
RST=1
LOOP=(1,7){CLK=0,CLK=1,DATA[I]=DAT} ;read other bits
}
R0?>0{
LOOP=(0,7){CLK=0,CLK=1,DATA[I]=DAT} ;read other bytes
}



[END]
CE=1



[_REVERSE]
; reverse bits
R9[0]=R0[3]
R9[1]=R0[2]
R9[2]=R0[1]
R9[3]=R0[0]
R9=-1
; some data check?
;R1=R9,R1=&0xF
;R1?>9 {PRINT=("Dump broken!"),EXIT}


[CalcCode]
R9=0
ADR=00H,R0=DATA,_REVERSE,R9=<<4
ADR=01H,R0=DATA,R0=>>4,_REVERSE,R9=<<4
ADR=01H,R0=DATA,_REVERSE,R9=<<4
ADR=02H,R0=DATA,R0=>>4,_REVERSE

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