Question and Request for HPL Orange5 Scripts

[richiebb]

This thread is to answer any question or request, etc. of the threads:

Introduction to HPL Scripts for orange5 - DashBoard. educational purpose

Introduction and First Examples of HPL scripts for Orange5

[neverseenpotato]

congratulations on what you are doing
here are scripts, some have mistakes
can you fix it I will be grateful to you

[richiebb]

congratulations on what you are doing
here are scripts, some have mistakes
can you fix it I will be grateful to you

The scripts are correct!, Probably created for other versions of Orange (previously)
I will give you an example.



RED : show route, CHIPtype->file->script
GREEN : shows the code block that does the job of calculating the code
everything before the green block is the reuse of the chip file BR9010.hpl that is in the folder C:\Program Files\"ORANGE_DIR_PATH"\HPL
which is the configuration of the mentioned chip

solution?!...... update the chip configuration!!

---

; DEH.hpl

; Orange programmer module CarRadio ; CHIP=Rohm BR9010,64x16
SOCKET=2
PINO=CS,2
PINO=CLK,0
PINO=DI,1
PINO=WC,3
PINO=RBI,4
PINI=DO,1
CDELAY=2
[INIT]
R5=$VERSION
R5=&0FFF000H,R5=>>12
R7=280,R7?!R5{EXIT}
WC=1,RBI=1,CS=1,CLK=0
[READ]
CS=0
CONST=10101000B
LOOP=CONST(7,0){DI=I,CLK=1,CLK=0}
LOOP=ADR(0,7){DI=I,CLK=1,CLK=0}
DI=1,LOOP=DATA(0,15){CLK=1,I=DO,CLK=0}
CS=1
[WRITEINIT]
WC=0,CS=0
CONST=10100011B
LOOP=CONST(7,0){DI=I,CLK=1,CLK=0}
LOOP=(7,0){CLK=1,CLK=0},CS=1
[WRITE]
CS=0,CONST=10100100B
LOOP=CONST(7,0){DI=I,CLK=1,CLK=0}
LOOP=ADR(0,7){DI=I,CLK=1,CLK=0}
LOOP=DATA(0,15){DI=I,CLK=1,CLK=0}
P=10000,CS=1
[WRITEEND]CS=0,CONST=10100000B
LOOP=CONST(7,0){DI=I,CLK=1,CLK=0}
LOOP=(7,0){CLK=1,CLK=0}
CS=1,WC=1
[Code]
ADR=0,R5=DATA,ADR=1,R6=DATA
R5=&0FF00H,R5=>>8,R7=R5,R5=&00FH,R5=<<4
R7=&0F0H,R7=>>4,R5=+R7,R5=<<12
R7=R6,R8=R6,R7=&00F0H,R6=&0000FH,R6=<<8
R8=&00F00H,R8=>>8,R6=+R7,R6=+R8,R5=+R6
PRINT=("Код: %04lx",R5)

---

everything marked in blue should be replaced by

---

; BR4090.hpl ;file is the one that uses the orange 5

; Orange programmer module v3.3
; (c) 2000 Alex Plusov, Victor Makcimov
; CHIP=Rohm BR90X0 series
; CHIP=BR9010,64x16;BR9020,128x16;BR9040,256x16

; tested BR9020F

SOCKET=2

PINO=CS,2 ;1
PINO=CLK,0 ;2
PINO=DI,1 ;3
PINO=WC,3 ;6
PINO=RBI,4 ;7 input - not used
PINI=DO,1 ;4

CDELAY=2 ; one set delay (1 MHz Max!)

[INIT]
WC=1,RBI=1,CS=1,CLK=0

[READ]
CS=0
R0=10101000B
LOOP=(7,0){DI=R0[I],CLK=P} ; start+READ opcode

LOOP=(0,7){DI=ADR[I],CLK=P} ; out adr
DI=1
LOOP=(0,15){CLK=1,DATA[I]=DO,CLK=0} ; read data word
CS=1

[WRITEINIT]
WC=0 ;enable write
CS=0
R0=10100011B
LOOP=(7,0){DI=R0[I],CLK=P} ; EWEN opcode
LOOP=(7,0){CLK=P} ; empty
CS=1

[WRITE]
CS=0
R0=10100100B
LOOP=(7,0){DI=R0[I],CLK=P} ; start+WRITE opcode

LOOP=(0,7){DI=ADR[I],CLK=P} ; out adr
LOOP=(0,15){DI=DATA[I],CLK=P} ; write data word

P=10000 ; tE/W 10 ms max
CS=1

[WRITEEND]
CS=0
R0=10100000B
LOOP=(7,0){DI=R0[I],CLK=P} ; EWDS opcode
LOOP=(7,0){CLK=P} ; empty
CS=1
WC=1

---

you must do this in all scripts that do not work.

CFG File Explanation

[neverseenpotato]

Hi,
yes,scripts are correct and work with old Omega.These are remande for Orange 5 but some of them make errors.Thank you very much for the corrected script,i'm going to try to remake the others with similar errors.
Your tutorils for coding are really useful.
Can you make a script,which changes the VIN and fixed crc - for example rd4.Thanks

[mikroel]

The scripts are correct!, Probably created for other versions of Orange (previously)

I will give you an example.

solution?!...... update the chip configuration!!

---

; DEH.hpl

; Orange programmer module CarRadio ; CHIP=Rohm BR9010,64x16
SOCKET=2
PINO=CS,2
PINO=CLK,0
PINO=DI,1
PINO=WC,3
PINO=RBI,4
PINI=DO,1
CDELAY=2
[INIT]
R5=$VERSION
R5=&0FFF000H,R5=>>12
R7=280,R7?!R5{EXIT}
WC=1,RBI=1,CS=1,CLK=0
[READ]
CS=0
CONST=10101000B
LOOP=CONST(7,0){DI=I,CLK=1,CLK=0}
LOOP=ADR(0,7){DI=I,CLK=1,CLK=0}
DI=1,LOOP=DATA(0,15){CLK=1,I=DO,CLK=0}
CS=1
[WRITEINIT]
WC=0,CS=0
CONST=10100011B
LOOP=CONST(7,0){DI=I,CLK=1,CLK=0}
LOOP=(7,0){CLK=1,CLK=0},CS=1
[WRITE]
CS=0,CONST=10100100B
LOOP=CONST(7,0){DI=I,CLK=1,CLK=0}
LOOP=ADR(0,7){DI=I,CLK=1,CLK=0}
LOOP=DATA(0,15){DI=I,CLK=1,CLK=0}
P=10000,CS=1
[WRITEEND]CS=0,CONST=10100000B
LOOP=CONST(7,0){DI=I,CLK=1,CLK=0}
LOOP=(7,0){CLK=1,CLK=0}
CS=1,WC=1
[Code]
ADR=0,R5=DATA,ADR=1,R6=DATA
R5=&0FF00H,R5=>>8,R7=R5,R5=&00FH,R5=<<4
R7=&0F0H,R7=>>4,R5=+R7,R5=<<12
R7=R6,R8=R6,R7=&00F0H,R6=&0000FH,R6=<<8
R8=&00F00H,R8=>>8,R6=+R7,R6=+R8,R5=+R6
PRINT=("Код: %04lx",R5)

---

everything marked in blue should be replaced by

---

; BR4090.hpl ;file is the one that uses the orange 5

; Orange programmer module v3.3
; (c) 2000 Alex Plusov, Victor Makcimov
; CHIP=Rohm BR90X0 series
; CHIP=BR9010,64x16;BR9020,128x16;BR9040,256x16

; tested BR9020F

SOCKET=2

PINO=CS,2 ;1
PINO=CLK,0 ;2
PINO=DI,1 ;3
PINO=WC,3 ;6
PINO=RBI,4 ;7 input - not used
PINI=DO,1 ;4

CDELAY=2 ; one set delay (1 MHz Max!)

[INIT]
WC=1,RBI=1,CS=1,CLK=0

[READ]
CS=0
R0=10101000B
LOOP=(7,0){DI=R0[I],CLK=P} ; start+READ opcode

LOOP=(0,7){DI=ADR[I],CLK=P} ; out adr
DI=1
LOOP=(0,15){CLK=1,DATA[I]=DO,CLK=0} ; read data word
CS=1

[WRITEINIT]
WC=0 ;enable write
CS=0
R0=10100011B
LOOP=(7,0){DI=R0[I],CLK=P} ; EWEN opcode
LOOP=(7,0){CLK=P} ; empty
CS=1

[WRITE]
CS=0
R0=10100100B
LOOP=(7,0){DI=R0[I],CLK=P} ; start+WRITE opcode

LOOP=(0,7){DI=ADR[I],CLK=P} ; out adr
LOOP=(0,15){DI=DATA[I],CLK=P} ; write data word

P=10000 ; tE/W 10 ms max
CS=1

[WRITEEND]
CS=0
R0=10100000B
LOOP=(7,0){DI=R0[I],CLK=P} ; EWDS opcode
LOOP=(7,0){CLK=P} ; empty
CS=1
WC=1

---

you must do this in all scripts that do not work.

Your thread is very helpful ,thank you for that!


these new scripts can be made much simpler

Capture.jpg

[richiebb]

It can be made much simpler

Capture.jpg

Thanks mate I did not know that in this language they can include files.

[mikroel]

Thanks mate I did not know that in this language they can include files.

Also,it will be very interesting to show how we can make .HPX file form .HPL

[richiebb]

I'm new with this language, but from what I was researching, only those who participated in the cncLabs project know what encryption is like

[mikroel]

I'm new with this language, but from what I was researching, only those who participated in the cncLabs project know what encryption is like

I have made many scripts for airbag,dash and radio, but all is in .hpl format .




Sent from my iPhone using Tapatalk

[richiebb]

I have made many scripts for airbag,dash and radio, but all is in .hpl format .




Sent from my iPhone using Tapatalk

ask him: zalupentiy

[mikroel]

ask him: zalupentiy

he know how to make .hpx files?

in the mean time here one more NEW script for radio ULVWNFZ20

Capture1.jpg

[richiebb]

he know how to make .hpx files?

in the mean time here one more NEW script for radio ULVWNFZ20

Capture1.jpg

yes mate.
He worked on the CnCLab project for orange5.
His name is Pavel Mazur and also known as Pavel-Pervomaysk

[mikroel]

yes mate.
He worked on the CnCLab project for orange5.
His name is Pavel Mazur and also known as Pavel-Pervomaysk

Maybe he would like to share some manual for making scripts or sample scripts and for .hpx


Sent from my iPhone using Tapatalk

[richiebb]

Maybe he would like to share some manual for making scripts or sample scripts and for .hpx


Sent from my iPhone using Tapatalk

I already asked him ...... he still does not answer

[zalupentiy]

This examples looks antion & not actual for real time.