*
// OUT = [ ((IN) – K1)/(K2–K1)) * (HI_LIM–LO_LIM)] + LO_LIM
L #In //als integer
ITD //in DINT
DTR //und DINT zu REAL
T #Inr //speichern
L 2.764800e+004 //skalierungsfaktorobergrenze
T #k2 //speichern
L -2.764800e+004 //skalierungsfaktoruntergrenze bipolar
U #Typ //in abhängigkeit vom typ uni-/bipolar
SPB m001
L 0 //skalierungsfaktoruntergrenze unipolar
m001: T #k1 //speichern
L #Inr //wenn input
L #k2
>R //größer als skalierungsfaktorobergrenze
= #Ueberlauf_High //wird überlauf "angezeigt"
L #Inr //wenn input
L #k1
<R //kleiner als skalierungsfaktoruntergrenze
= #Ueberlauf_Low //wird unterlauf angezeigt
L #Obergrenze //aus skalierungsobergrenze
L #Untergrenze //und skalierungsuntergrenze
-R //ein delta bilden
T #puffer3 //und speichern
L #k2 //aus skalierungsfaktoruntergrenze
L #k1 //und skalierungsfaktorobergrenze
-R //ein delta bilden
T #puffer2 //und speichern
L #Inr //vom input
L #k1 //die skalierungsfaktorobergrenze
-R //subtrahieren
T #puffer1 //und speichern
L #puffer2 //und mit dem delta der skalierungsfaktoren
/R //dividieren
L #puffer3 //und mit dem delta der skalierungsgrenzen
*R //multiplizieren
L #Untergrenze //und die untergrenze
+R //addieren
T #Out //fertig ist der skalierte wert