L 10004 // 17.2.98
ON DBX 92.0 // controller locked ?
ON DBX 92.5 // measurement brake
BEC
L DBB 91 //character "K"
L 75 //then no scaling
==I
L DBW 12 // setpoint
L DBW 10 // actual value
-I
JC KREG
//temperature controller
SSI 2 // :4 0 - 4000 to 0 - 1000
KREG: T DBW 18 // deviation
L 1023 // limit high
<=I
JC LIM1
T DBW 18
JU LIM
LIM1: L DBW 18
L -1023 // limit low
>=I
JC LIM
T DBW 18
LIM: L DBW 20 // control word
T LW 0
A L 0.6
R L 0.6
AN L 1.0 // manual, auto ?
JC IHA
AN L 0.7 // set the controller ouput ?
JC INA
L DBW 18 // P ---- part
L DBW 22
*I
T LW 2
SSD 16
T LW 4
L LW 2
SRW 5
L LW 4
SLW 11
OW
T DBW 28 // P
L 0 // **** factor or not ????
>I // ( P > TN ??? )
JC W1
L DBW 28
NEGI
JU W0
W1: L DBW 28 // TN
W0: L DBW 24
<=I
JC W2 // probabely....
S L 0.6 // without factor
JU W3
W2: L 3000 // for P < TN
T DBW 2 // factor = 3000
W3: AN L 0.6
JC MIT
L DBW 28 // P **without factor
L DBW 24 // TN
/I
T LW 6
JU W4 // ::::::::::::
MIT: L DBW 2 // factor
L DBW 24 // TN
/I // factor/TN
L DBW 28
*I
L DBW 36
+I // IK+D<IK>
T DBW 36 // IK
L DBW 2 // factor
/I // IK/factor
T LW 6
W4: L DBW 30
L LW 6
+I
T DBW 4
L DBW 30
==I
JC WEI
L 0 // IK erase
T DBW 36 // ****** D part
WEI: A L 0.0 // D stop ?
R L 0.0
L LW 0
T DBW 20 // yes
JC DEND
L DBW 28 // P new - input PT1
L DBW 34 // P old - otput PT1
-I
T LW 2
L 1
L DBW 26 // TV
<=I
JC GUT
TAK // TV=0 through TV = 1 replace
GUT: T LW 14
T LW 4
L LW 2
L LW 4
/I
T LW 6
SSD 16
T LW 8
L DBW 42 // D precision
L LW 8 // reset
+I
T LW 10
L LW 14 // TV
JP POS
+I
L 0
>I
JC ENPT
TAK
T LW 10
L LW 14 // TV
NEGI
>I
JC WPT
T LW 10
WPT: L LW 6 // quotient
L 1
-I
T LW 6
JU ENPT
INA: JU NACH
IHA: JU HAND
POS: -I
L 0
<I
JC ENPT
TAK
T LW 10
L DBW 26 // TV
<I
JC WP1
T LW 10
WP1: L LW 6
L 1
+I
T LW 6
ENPT: L LW 6
L DBW 34 // P old - output
+I
T DBW 34
L DBW 28 // P - input
L DBW 34 // PT1 output
-I
T DBW 32 // D-part
L LW 10
T DBW 42
DEND: L DBW 28 // P
L DBW 32 // D
+I
T LW 10 // P+D
L DBW 30
+I
T LW 12 // P+I+D
L 1023 // I - stop ?
>=I
JC E1
L LW 12
L 0
<=I
JC E1
L LW 12
T DBW 16 // controller output store
L DBW 4 // I - part transfer
T DBW 30 // *** limiting
IBEG: L 0
<=I
JC EI1
L DBW 30
L 1023
<I
BEC
EI1: T DBW 30
BEU
E1: T DBW 16 // output
L DBW 30
JU IBEG
HAND: R L 0.7 // **** manuel
L LW 0 // manuel store
T DBW 20
L 0
T DBW 42 // D precision erase
T DBW 30 // I erase
T DBW 36 // IK erase
A L 1.1
JC PLUS // direction plus
A L 1.2
JC MINU // direction minus
BEU
PLUS: L DBW 16
L 1023
>=I
JC E // 1% increment
L DBW 16
L 10
+I
T DBW 16
BEU
MINU: L DBW 16 // direction minus
L 0
<=I
JC E // 1% decrement
L DBW 16
L 10
-I
E: T DBW 16
BEU
NACH: A L 1.7 // **** set the controller output
JC KASK // cascade
L DBW 16
JU N1
KASK: L DBW 14
N1: T DBW 30 // I = set
L DBW 28
T DBW 34 // P old = P new - no D jump
S L 0.7 // set is made
L LW 0
T DBW 20 // is made store
BE