IC Multi Tank Anzeige

hab mal ein script für Tank Druck Temp Name und Füllstand gebastelt / ist für Große Tanks ausgelegt.
und habs getestet funst wunderbar.
Vieleicht sieht ja jemand verbesserungs potenzial bin für vorschläge offen.
define TT 1280378227
define LM -53151617
define LS -815193061
define TX -1949054743
push HASH("Tank.N2") # Tank in Tank.N2 umbenenen
push 60795
push HASH("LED.N2.Temp") #LED-Anzeige Mittel in LED.N2.Temp umbenenen
push HASH("LED.N2.Press") #LED-Anzeige Mittel in LED.N2.Press umbenenen
push HASH("LED.N2.Fill") #LED-Anzeige Klein in LED.N2.Fill umbenenen
push HASH("Name.N2")
push STR("N2") #LED-Anzeige Groß in Name.N2 umbenenen
push HASH("Tank.O2")
push 60795
push HASH("LED.O2.Temp")
push HASH("LED.O2.Press")
push HASH("LED.O2.Fill")
push HASH("Name.O2")
push STR("O2")
push HASH("Tank.H2")
push 60795
push HASH("LED.H2.Temp")
push HASH("LED.H2.Press")
push HASH("LED.H2.Fill")
push HASH("Name.H2")
push STR("H2")
push HASH("Tank.CO2")
push 60795
push HASH("LED.CO2.Temp")
push HASH("LED.CO2.Press")
push HASH("LED.CO2.Fill")
push HASH("Name.CO2")
push STR("CO2")
push HASH("Tank.N2O")
push 60795
push HASH("LED.N2O.Temp")
push HASH("LED.N2O.Press")
push HASH("LED.N2O.Fill")
push HASH("Name.N2O")
push STR("N2O")
push HASH("Tank.Waste")
push 60795
push HASH("LED.Waste.Temp")
push HASH("LED.Waste.Press")
push HASH("LED.Waste.Fill")
push HASH("Name.Waste")
push STR("Waste")
alias C r15
alias A r14
alias B r13
alias D r11
alias E r10
alias F r9
alias G r8
alias H r7
alias P r6
alias K r5
alias Cc r4
alias R r3
move C sp
L0:
move sp 0
yield
L1:
add sp sp 1
sgt r0 sp C
beq r0 1 L0
peek A
add sp sp 1
peek B
add sp sp 1
peek D
add sp sp 1
peek E
add sp sp 1
peek F
add sp sp 1
peek G
add sp sp 1
peek H
sbn TX G Mode 10
sbn TX G Color 2
sbn TX G Setting H
sbn TX G On 1
lbn K TT A Temperature 0
sub Cc K 273.15
trunc Cc Cc
sbn LM D Mode 4
sbn LM D Color 0
sbn LM D Setting Cc
sbn LM D On 1
lbn P TT A Pressure 0
trunc P P
sbn LM E Mode 0
sbn LM E Color 5
sbn LM E Setting P
sbn LM E On 1
div R P B
slt r0 R 0
select R r0 0 R
sgt r0 R 1
select R r0 1 R
sbn LS F Mode 1
sbn LS F Color 3
sbn LS F Setting R
sbn LS F On 1
j L1