TRUMPF_STL_PROGRAM

OB35: CALL SFC 20

IN0 :=P#L 0.0 BYTE 20
RET_VAL:=#TEMP10
OUT1 :=P#DB70.DBX 140.0 BYTE 20
OB40 CALL FC 3

CALL SFC 20
IN0 :=P#L 0.0 BYTE 30
RET_VAL:=#TEMP14
OUT1 :=P#DB70.DBX 160.0 BYTE 30

OB82:

CALL SFC 20
IN0 :=P#L 0.0 BYTE 20
RET_VAL:=#TEMP33
OUT1 :=P#DB70.DBX 210.0 BYTE 20
CALL FB 125 , DB68
IN0 :=
IN1 :=
IN2 :=
IN3 :=
IN4 :=
IN5 :=
IN6 :=
IN7 :=
OUT8 :=
OUT9 :=
OUT10:=
OUT11:=
OUT12:=
OUT13:=
OUT14:=
OUT15:=
OUT16:=
OUT17:=
OUT18:=
OUT19:=
OUT20:=
OUT21:=
OUT22:=
OUT23:=
OUT24:=
OB85:
CALL SFC 20
IN0 :=P#L 0.0 BYTE 20
RET_VAL:=#TEMP12
OUT1 :=P#DB70.DBX 270.0 BYTE 20
OB86:

CALL SFC 20
IN0 :=P#L 0.0 BYTE 20
Page 1
 TRUMPF_STL_PROGRAM
RET_VAL:=#TEMP9
OUT1 :=P#DB70.DBX 230.0 BYTE 20
CALL FB 125 , DB68
IN0 :=
IN1 :=
IN2 :=
IN3 :=
IN4 :=
IN5 :=
IN6 :=
IN7 :=
OUT8 :=
OUT9 :=
OUT10:=
OUT11:=
OUT12:=
OUT13:=
OUT14:=
OUT15:=
OUT16:=
OUT17:=
OUT18:=
OUT19:=
OUT20:=
OUT21:=
OUT22:=
OUT23:=
OUT24:=
OB100:
L 0
T #TEMP11
CALL SFC 21
IN0 :=#TEMP11
RET_VAL:=#TEMP12
OUT1 :=P#DB70.DBX 80.0 BYTE 210
CALL SFC 21
IN0 :=#TEMP11
RET_VAL:=#TEMP12
OUT1 :=P#DB70.DBX 720.0 BYTE 32
CALL SFC 21
IN0 :=#TEMP11
RET_VAL:=#TEMP12
OUT1 :=P#DB70.DBX 760.0 BYTE 18
L 0
T DB70.DBW 782 ASI PROFIEBUS ADDRESS

CALL SFC 20
IN0 :=P#L 0.0 BYTE 20
RET_VAL:=#TEMP10
OUT1 :=P#DB70.DBX 190.0 BYTE 20

Page 2
 TRUMPF_STL_PROGRAM
UC FB 30

CALL FB 1 , DB7
IN0 :=2
IN1 :=P#I 0.0
IN2 :=P#Q 0.0
IN3 :=P#Q 8.0
IN4 :=P#Q 12.0
IN5 :=14
IN6 :=S5T#2S
IN7 :=S5T#200MS
IN8 :=P#I 20.0
IN9 :=P#Q 20.0
IN10 :=P#Q 8.0
IN11 :=P#Q 12.0
IN12 :=5
IN13 :=S5T#2S
IN14 :=S5T#200MS
IN15 :=FALSE
IN16 :=TRUE
IN17 :=FALSE
IN18 :=
IN19 :=
IN20 :=
IN21 :=
IN22 :=
IN23 :=0
IN24 :=
IN25 :=
IN26 :=
IN27 :=
IN28 :=B#16#0
IN29 :=B#16#0
IN30 :=S5T#0MS
IN31 :=S5T#0MS
IN32 :=0
IN33 :=0
IN34 :=0
IN35 :=0
IN36 :=0
IN37 :=0
IN38 :=FALSE
IN39 :=FALSE
IN40 :=
IN41 :=S5T#200MS
IN42 :=S5T#50S
IN43 :=0
IN44 :=TRUE
IN45 :=FALSE
IN46 :=FALSE
IN47 :=10
Page 3
 TRUMPF_STL_PROGRAM
IN48 :=FALSE
IN49 :=FALSE
IN50 :=FALSE
IN51 :=FALSE
IN52 :=
OUT53:=
OUT54:=
OUT55:=
OUT56:=
OUT57:=
OUT58:=
OUT59:=
OUT60:=

SET
R DB66.DBX 0.0
R DB66.DBX 74.0
R DB66.DBX 74.1
R DB66.DBX 79.0
R DB66.DBX 79.1
R DB70.DBX 528.0
R DB70.DBX 528.1
R DB70.DBX 712.0
R DB70.DBX 712.1
R DB70.DBX 712.2

OB121:
CALL SFC 20
IN0 :=P#L 0.0 BYTE 20
RET_VAL:=#TEMP10
OUT1 :=P#DB70.DBX 250.0 BYTE 20

FB1:

OPN DB 5
L #IN43
T DBW 206
CALL FC 1
IN0:=#IN43
OPN DB 6
A #IN49
= DBX 24.2
A #IN50
= DBX 24.4
A #IN51
= DBX 24.5
UC FB 16
L B#16#0
T DB8.DBW 48
AN #IN44
Page 4
 TRUMPF_STL_PROGRAM
JC M001
CALL FB 6 , DB15
IN0:=B#16#0
IN1:=
IN2:=
IN3:=
M001: UC FB 15
A DB8.DBX 49.0
BEC
CALL FC 20
IN0:=41
IN1:=15
IN2:=1
IN3:=0
IN4:=TRUE
CALL SFC 46
FB2: O #STAT46
ON #IN0
JC M001
O DB7.DBX 116.0
O #STAT49
JC M002
L B#16#7
T #OUT36
S #OUT34
BEU
M002: A #STAT47
= #TEMP58
A #IN0
FP #TEMP58
JCN M001
AN DB10.DBX 104.7
JC M003
L B#16#0
L #IN1
==I
JC M004
L B#16#8
<=I
JC M005
M004: L B#16#C
T #OUT36
S #OUT34
JC M006
M005: L P##OUT34
TAR2
AD DW#16#FFFFFF
+D
T #STAT52
L P##IO37
TAR2
AD DW#16#FFFFFF
Page 5
 TRUMPF_STL_PROGRAM
+D
T #STAT53
L P##STAT45
TAR2
AD DW#16#FFFFFF
+D
T #STAT54
L DINO
T #TEMP55
TAR2 #TEMP57
L P##STAT54
AD DW#16#FFFFFF
SRD 3
+ 4
T #TEMP56
L B#16#4
T #STAT45
CALL FB 6 , DB15
IN0:=B#16#1
IN1:=#TEMP55
IN2:=#TEMP56
IN3:=#TEMP57
SET
S #STAT47
M001: A #IN0
JC M006
M003: R #OUT35
R #OUT34
R #STAT46
R #STAT48
R #STAT47
L B#16#0
T #OUT36
T #STAT50
T #STAT51
M006: BE

FB3:
O #STAT46
ON #IN0
JC M001
O DB7.DBX 116.0
O #STAT49
JC M002
L B#16#7
T #OUT36
S #OUT34
BEU
M002: A #STAT47
= #TEMP58
Page 6
 TRUMPF_STL_PROGRAM
A #IN0
FP #TEMP58
JCN M001
AN DB10.DBX 104.7
JC M003
L B#16#0
L #IN1
==I
JC M004
L B#16#8
<=I
JC M005
M004: L B#16#C
T #OUT36
S #OUT34
JC M006
M005: L P##OUT34
TAR2
AD DW#16#FFFFFF
+D
T #STAT52
L P##IO37
TAR2
AD DW#16#FFFFFF
+D
T #STAT53
L P##STAT45
TAR2
AD DW#16#FFFFFF
+D
T #STAT54
L DINO
T #TEMP55
TAR2 #TEMP57
L P##STAT54
AD DW#16#FFFFFF
SRD 3
+ 4
T #TEMP56
L B#16#5
T #STAT45
CALL FB 6 , DB15
IN0:=B#16#1
IN1:=#TEMP55
IN2:=#TEMP56
IN3:=#TEMP57
SET
S #STAT47
M001: A #IN0
JC M006
M003: R #OUT35
R #OUT34
Page 7
 TRUMPF_STL_PROGRAM
R #STAT46
R #STAT48
R #STAT47
L B#16#0
T #OUT36
T #STAT50
T #STAT51
M006: BE
FB4:
O #STAT21
ON #IN0
JC M001
O DB7.DBX 116.0
O #STAT24
JC M002
L B#16#7
T #OUT19
S #OUT17
BEU
M002: A #STAT22
= #TEMP33
A #IN0
FP #TEMP33
JCN M001
AN DB10.DBX 104.7
JC M003
L P##OUT17
TAR2
AD DW#16#FFFFFF
+D
T #STAT27
L P##STAT20
TAR2
AD DW#16#FFFFFF
+D
T #STAT29
L DINO
T #TEMP30
TAR2 #TEMP32
L P##STAT29
AD DW#16#FFFFFF
SRD 3
+ 4
T #TEMP31
L B#16#28
T #STAT20
CALL FB 6 , DB15
IN0:=B#16#1
IN1:=#TEMP30
IN2:=#TEMP31
IN3:=#TEMP32
SET
Page 8
 TRUMPF_STL_PROGRAM
S #STAT22
M001: A #IN0
JC M004
M003: R #OUT18
R #OUT17
R #STAT21
R #STAT23
R #STAT22
L B#16#0
T #OUT19
T #STAT25
T #STAT26
M004: BE

FB5:
A #STAT13
JC M001
A DB7.DBX 116.0
JC M002
AN #IN0
JC M003
L B#16#7
T #OUT10
S #OUT8
BEU
M002: A #STAT14
= #TEMP47
A #IN0
FP #TEMP47
JCN M003
AN DB10.DBX 104.7
JC M004
L P##OUT8
TAR2
AD DW#16#FFFFFF
+D
T #STAT40
L P##IO11
TAR2
AD DW#16#FFFFFF
+D
T #STAT41
L P##STAT12
TAR2
AD DW#16#FFFFFF
+D
T #STAT42
L DINO
T #TEMP43
TAR2 #TEMP46
L P##STAT42
AD DW#16#FFFFFF
Page 9
 TRUMPF_STL_PROGRAM
SRD 3
+ 4
T #TEMP45
L B#16#0
T #STAT12
CALL FB 6 , DB15
IN0:=B#16#1
IN1:=#TEMP43
IN2:=#TEMP45
IN3:=#TEMP46
SET
S #STAT14
JU M003
M001: AN #IN6
JC M003
AN #OUT9
JC M003
A #STAT16
JC M003
L P##IN7
LAR1
TAR2
AD DW#16#FFFFFF
+AR1
L W [AR1,P#4.0]
T #TEMP44
L D [AR1,P#6.0]
LAR1
OPN DB [#TEMP44]
L B#16#82
T B [AR1,P#0.0]
L #IN2
SLW 5
L #IN3
OW
T B [AR1,P#1.0]
L #STAT19.STAT24
CAW
T W [AR1,P#2.0]
L #STAT19.STAT25
OW W#16#0
L B#16#1
JZ M005
L B#16#0
M005: T W [AR1,P#4.0]
L #STAT37
T B [AR1,P#6.0]
L B#16#1
T B [AR1,P#7.0]
L #STAT38
T B [AR1,P#8.0]
L #STAT39
Page 10
 TRUMPF_STL_PROGRAM
T B [AR1,P#9.0]
SET
S #STAT16
M003: A #IN0
JC M006
M004: R #OUT9
R #OUT8
R #STAT13
R #STAT15
R #STAT14
R #STAT16
L B#16#0
T #OUT10
T #STAT17
T #STAT18
M006: BE

FB6:
L B#16#0
T #TEMP66
L DB5.DBW 166
SLD 3
T #TEMP72
L DBW 168
SLD 3
T #STAT33
L DBW 170
SLD 3
T #STAT34
L DBW 172
SLD 3
T #STAT35
L DBW 174
SLD 3
T #STAT36
L P##STAT37
T #TEMP98
L P##STAT38
T #TEMP99
L B#16#0
L #STAT41
<>I
JC M001
L P##STAT45
T #STAT43
T #STAT41
T #STAT42
L 10
DEC 1
SLW 4
+I
L P##IN0
Page 11
 TRUMPF_STL_PROGRAM
+D
T #STAT44
L P##STAT48
T #STAT47
M001: L #IN0
JL M002
JU M003
JU M004
JU M005
JU M006
M002: BE
M003: OPN DB 1
LAR1 #STAT33
L DBW [AR1,P#2.0]
CAW
T #STAT39
L #STAT47
T #TEMP106
L 12
M007: T #TEMP69
LAR1 #TEMP106
L DIW [AR1,P#0.0]
OW W#16#0
JZ M008
T #TEMP91
OPN DB [#TEMP91]
L DIW [AR1,P#2.0]
+ ‐12
SLW 3
L DID [AR1,P#4.0]
+D
LAR1
L DBD [AR1,P#0.0]
LAR2
L DBD [AR1,P#8.0]
LAR1
L B#16#0
SET
R DBX [AR2,P#0.0]
R DBX [AR2,P#0.1]
T DBW [AR2,P#2.0]
R DBX [AR1,P#1.0]
R DBX [AR1,P#1.1]
R DBX [AR1,P#1.2]
T DBW [AR1,P#2.0]
T DBW [AR1,P#4.0]
LAR1 #TEMP106
L B#16#0
T DIW [AR1,P#0.0]
M008: L #TEMP106
L P#8.0
+D
Page 12
 TRUMPF_STL_PROGRAM
T #TEMP106
L #TEMP69
LOOP M007
L #STAT43
T #STAT41
T #STAT42
L B#16#0
T #STAT46
SET
R #STAT40
BE
M006: OPN DB 1
LAR1 #STAT34
L DBW [AR1,P#18.0]
L B#16#0
==I
BEC
+AR1 P#12.0
L B#16#3
T #TEMP75
JU M009
M00a: AN #TEMP64
JC M009
JU M00b
M00c: L #STAT39
INC 1
T #STAT39
L B#16#0
T DBW [AR1,P#4.0]
LAR1 #TEMP74
L B#16#0
T #TEMP70
SET
R #TEMP54
R #TEMP55
L DBW [AR1,P#22.0]
T #TEMP105
+ ‐1
L P#8.0
*I
L #STAT47
+D
LAR2
L DIW [AR2,P#0.0]
T #TEMP91
L B#16#7
L DBB [AR1,P#19.0]
<>I
JC M00d
S #TEMP55
L B#16#1
T #TEMP83
Page 13
 TRUMPF_STL_PROGRAM
JU M00e
M00d: L DBB [AR1,P#31.0]
T #TEMP83
L B#16#4
L DBB [AR1,P#30.0]
==I
= #TEMP57
L B#16#28
==I
= #TEMP54
M00e: OPN DB [#TEMP91]
L DIW [AR2,P#2.0]
+ ‐12
SLW 3
L DID [AR2,P#4.0]
T #TEMP107
+D
LAR1
L DBD [AR1,P#0.0]
T #TEMP96
L DBD [AR1,P#4.0]
T #TEMP95
L DBD [AR1,P#8.0]
T #TEMP97
OPN DB 1
LAR1 #TEMP74
L DBW [AR1,P#28.0]
AN #TEMP55
JC M00f
L DBW [AR1,P#38.0]
M00f: T #STAT26
OW W#16#0
JZ M010
L W#16#D801
==I
L B#16#B
JC M011
L B#16#3
JC M011
M010: A #TEMP54
JC M012
AN #TEMP55
JC M013
OPN DI [#TEMP91]
LAR2 #TEMP97
L 16
M014: L DBD [AR1,P#46.0]
T DID [AR2,P#6.0]
+AR1 P#4.0
+AR2 P#4.0
TAK
LOOP M014
Page 14
 TRUMPF_STL_PROGRAM
LAR1 #TEMP74
L B#16#F
L DBB [AR1,P#68.0]
>=I
JC M015
L B#16#3
M015: SLW 3
L #TEMP99
+D
LAR2
OPN DI 15
L B#16#13
L DIB [AR2,P#0.0]
T #TEMP80
<>I
JC M016
L DBB [AR1,P#66.0]
JU M017
M016: SLW 3
L #TEMP98
+D
LAR2
L DIB [AR2,P#0.0]
M017: LAR2 #TEMP97
OPN DI [#TEMP91]
T DIB [AR2,P#72.0]
L #TEMP80
T DIB [AR2,P#71.0]
L DBB [AR1,P#44.0]
T DIB [AR2,P#70.0]
+AR1 P#40.0
JU M018
M013: L DBB [AR1,P#31.0]
T #TEMP83
+AR1 P#32.0
M018: OPN DI 15
LAR2 #TEMP95
L B#16#1
M019: T #TEMP70
TAR1 #TEMP76
A #TEMP55
JC M01a
L #TEMP70
+ ‐1
L P#16.0
*I
L P#4.0
+I
L #TEMP107
+D
LAR1
OPN DB [#TEMP91]
Page 15
 TRUMPF_STL_PROGRAM
L DBW [AR1,P#4.0]
T #TEMP92
L DBD [AR1,P#6.0]
LAR1
OPN DB [#TEMP92]
L B [AR1,P#8.0]
T #TEMP80
L B [AR1,P#9.0]
T #TEMP81
M01a: OPN DB [#TEMP91]
L DBB [AR2,P#1.0]
T #STAT27.STAT29
L DBW [AR2,P#2.0]
T #STAT27.STAT30
L DBW [AR2,P#4.0]
T #STAT27.STAT31
L DBD [AR2,P#6.0]
T #STAT27.STAT32
SRD 24
L B#16#87
==I
L B#16#8
JC M011
L B#16#F
L #STAT27.STAT29
>=I
JC M01b
L B#16#1
JU M01c
M01b: SLW 3
L #TEMP98
+D
LAR1
L DIB [AR1,P#0.0]
M01c: L #STAT27.STAT30
*I
T #TEMP82
LAR1 #TEMP76
OPN DB 1
L W#16#FF
L DBB [AR1,P#0.0]
==I
L B#16#1
JC M01d
M011: T #TEMP66
L #TEMP70
L W#16#100
*I
L #TEMP66
OW
T #TEMP66
SET
Page 16
 TRUMPF_STL_PROGRAM
R #STAT25
JU M012
M01d: O #TEMP57
O #TEMP55
JC M01e
+AR1 P#1.0
JU M01f
M01e: L DBB [AR1,P#1.0]
L B#16#9
<>I
= #TEMP65
L #TEMP80
L B#16#F
<>I
JC M020
L #TEMP82
L B#16#4
<I
JC M021
L DBW [AR1,P#2.0]
AN #TEMP55
JC M022
+ ‐66
M022: T #TEMP85
JU M023
M020: L #TEMP82
L DBW [AR1,P#2.0]
AN #TEMP55
JC M024
+ ‐66
M024: T #TEMP85
<I
M021: L B#16#4
JC M011
M023: TAR2 #TEMP77
LAR2 #STAT27.STAT32
AN #TEMP55
JC M025
+AR1 P#66.0
M025: OPN DB [#STAT27.STAT31]
OPN DI 1
L #TEMP80
JL M026
JU M027
JU M028
JU M027
JU M027
JU M029
JU M029
JU M02a
JU M02a
JU M02a
Page 17
 TRUMPF_STL_PROGRAM
JU M027
JU M027
JU M027
JU M027
JU M027
JU M027
JU M02b
JU M027
JU M027
JU M027
JU M02c
M026: JU M027
M028: L B#16#1
L DIB [AR1,P#4.0]
==I
= [AR2,P#0.0]
JU M02d
M029: L DIW [AR1,P#4.0]
A #TEMP65
JC M02e
CAW
M02e: T W [AR2,P#0.0]
JU M02d
M02a: L DID [AR1,P#4.0]
A #TEMP65
JC M02f
CAD
M02f: T D [AR2,P#0.0]
M02d: L #TEMP85
SLW 3
+AR1
JU M030
M027: L #TEMP85
M031: L DIB [AR1,P#4.0]
T B [AR2,P#0.0]
+AR1 P#1.0
+AR2 P#1.0
TAK
LOOP M031
M030: OPN DB 1
OPN DI 15
+AR1 P#4.0
TAR1
SRW 4
JZ M032
+AR1 P#1.0
M032: LAR2 #TEMP77
+AR2 P#10.0
M01f: L #TEMP83
L #TEMP70
==I
JC M012
Page 18
 TRUMPF_STL_PROGRAM
+ 1
JU M019
M02b: L DID [AR1,P#4.0]
CAD
T #TEMP68
L DID [AR1,P#8.0]
CAD
T #TEMP67
AD DW#16#7FF00000
SRD 20
T #TEMP69
L 897
<I
L B#16#0
JC M033
L 1150
L #TEMP69
<I
JC M034
L ‐896
+I
SLD 23
L #TEMP67
AD DW#16#80000000
OD
L #TEMP67
AD DW#16#FFFFF
SLD 3
OD
L #TEMP68
SRD 29
OD
M033: T D [AR2,P#0.0]
+AR1 P#12.0
OPN DB 1
OPN DI 15
JU M032
M034: L #TEMP67
AD DW#16#80000000
L DW#16#7F800000
OD
T D [AR2,P#0.0]
L B#16#5
T #TEMP66
JU M012
M02c: TAR2 #TEMP68
L B [AR2,P#0.0]
+ 1
L #TEMP85
<I
JC M021
T B [AR2,P#1.0]
Page 19
 TRUMPF_STL_PROGRAM
T #TEMP67
+AR2 P#2.0
M035: L DIB [AR1,P#4.0]
OW W#16#0
JZ M036
T B [AR2,P#0.0]
+AR1 P#1.0
+AR2 P#1.0
TAK
LOOP M035
JU M030
M036: TAK
T #TEMP71
SLW 3
+AR1
LAR2 #TEMP68
L #TEMP67
L #TEMP71
‐I
T B [AR2,P#1.0]
JU M030
M012: OPN DB 1
OPN DI 15
LAR1 #STAT34
+AR1 P#4.0
L B#16#4
T #TEMP75
JU M009
M037: AN #TEMP64
JC M009
JU M038
M039: L B#16#0
T DBW [AR1,P#4.0]
OPN DI 15
L #TEMP105
+ ‐1
L P#8.0
*I
L #STAT47
+D
LAR1
L B#16#0
T DIW [AR1,P#0.0]
OPN DB [#TEMP91]
LAR1 #TEMP96
LAR2 #TEMP97
L B#16#0
L #TEMP66
T DBW [AR1,P#2.0]
==I
= DBX [AR1,P#0.1]
NOT
Page 20
 TRUMPF_STL_PROGRAM
= DBX [AR1,P#0.0]
L #STAT26
T DBW [AR2,P#2.0]
BE
M004: L #IN1
T #TEMP91
OPN DB [#TEMP91]
LAR1 #IN3
L #IN2
+ ‐12
SLW 3
+AR1
L DBD [AR1,P#8.0]
LAR2
L DBD [AR1,P#0.0]
LAR1
T #TEMP96
AN #STAT40
JC M03a
M03b: LAR1 #TEMP96
L B#16#6
T DBW [AR1,P#2.0]
SET
S DBX [AR1,P#0.0]
JU M03c
M03a: L 12
L #STAT46
>I
JC M03d
L B#16#0
M03d: T #TEMP105
L P#8.0
*I
L #STAT47
+D
LAR1
L 12
M03e: T #TEMP67
L B#16#0
L DIW [AR1,P#0.0]
==I
JC M03f
+AR1 P#8.0
L 12
L #TEMP105
+ 1
>I
JC M040
LAR1 #STAT47
L B#16#0
M040: T #TEMP105
L #TEMP67
Page 21
 TRUMPF_STL_PROGRAM
LOOP M03e
L B#16#0
T #STAT46
JU M03b
M03f: L #TEMP105
+ 1
T #STAT46
L #IN1
T DIW [AR1,P#0.0]
L #IN2
T DIW [AR1,P#2.0]
L #IN3
T DID [AR1,P#4.0]
L #STAT46
T DIW [#STAT42]
S DBX [AR2,P#1.0]
L #STAT44
L #STAT42
==I
JC M041
+ 16
JU M042
M041: L #STAT43
M042: T #STAT42
L #STAT41
==I
S #STAT40
M03c: BE
M005: L #STAT39
OW W#16#0
JZ M043
L #STAT41
L #STAT42
==I
AN #STAT40
L B#16#0
T #TEMP66
T #STAT20
JC M043
T #TEMP52
SET
R #TEMP53
R #TEMP54
R #TEMP55
R #STAT25
OPN DB 1
LAR1 #STAT33
L DBW [AR1,P#10.0]
L B#16#0
==I
JC M043
+AR1 P#4.0
Page 22
 TRUMPF_STL_PROGRAM
L B#16#0
T #TEMP75
JU M009
M044: AN #TEMP64
JC M043
JU M00b
M045: L B#16#0
T DBW [AR1,P#4.0]
L DIW [#STAT41]
T #STAT18
+ ‐1
L P#8.0
*I
L #STAT47
+D
LAR1
T #TEMP106
L DIW [AR1,P#0.0]
T #TEMP91
OPN DB [#TEMP91]
L DIW [AR1,P#2.0]
+ ‐12
SLW 3
L DID [AR1,P#4.0]
T #TEMP107
+D
LAR1
L DBD [AR1,P#4.0]
T #TEMP95
L DBD [AR1,P#8.0]
T #TEMP97
LAR2
L DBD [AR1,P#0.0]
T #TEMP96
LAR1
L B#16#1
T #STAT16
L B#16#28
L DBB [AR2,P#0.0]
T #STAT21
OW W#16#0
JZ M046
<>I
JC M047
S #TEMP54
L B#16#0
T #STAT19
T #STAT22
JU M048
M046: SET
S #TEMP55
L B#16#7
Page 23
 TRUMPF_STL_PROGRAM
T #STAT16
L B#16#8
T #STAT19
L B#16#1
T #STAT22
L W#16#2C
JU M048
M047: L B#16#4
==I
= #TEMP57
LAR2 #TEMP107
L DBW [AR2,P#2.0]
T #TEMP83
T #STAT22
L 10
*I
+ 2
T #STAT19
A #TEMP57
L B#16#0
JC M048
L #STAT22
L B#16#4
*I
M048: T #TEMP84
LAR2 #TEMP74
LAR1 P##STAT4
L 15
M049: OPN DB 1
L DIW [AR1,P#0.0]
T DBW [AR2,P#0.0]
+AR1 P#2.0
+AR2 P#2.0
TAK
LOOP M049
A #TEMP54
JC M04a
A #TEMP55
JC M04b
LAR1 #TEMP107
+AR1 P#4.0
L #STAT22
M04c: T #TEMP67
TAR1 #TEMP78
L #STAT23
T DBB [AR2,P#0.0]
L #STAT24
T DBB [AR2,P#1.0]
OPN DB [#TEMP91]
L DBB [AR1,P#10.0]
T #TEMP100
L DBW [AR1,P#12.0]
Page 24
 TRUMPF_STL_PROGRAM
T #TEMP101
L DBW [AR1,P#14.0]
T #TEMP102
L DBW [AR1,P#4.0]
T #TEMP92
L DBD [AR1,P#6.0]
LAR1
OPN DB [#TEMP92]
OPN DI 1
L B#16#0
L B [AR1,P#1.0]
AW W#16#1F
<>I
L B [AR1,P#1.0]
JC M04d
L #TEMP100
OW W#16#0
JZ M04e
OW
M04d: T #TEMP100
AW W#16#E0
L B#16#40
<>I
TAK
JC M04f
L B#16#0
L #TEMP52
==I
L #TEMP100
AW W#16#1F
JC M050
<>I
M051: L B#16#2
JC M052
JU M053
M04e: OPN DI 15
L #STAT22
INC 1
L #TEMP67
‐I
L W#16#100
*I
L B#16#A
OW
JU M052
M050: T #TEMP52
JU M053
M04f: L B#16#A0
==I
S #TEMP53
JC M053
TAK
Page 25
 TRUMPF_STL_PROGRAM
L B#16#C0
==I
S #TEMP53
JC M053
L #TEMP52
OW W#16#0
L B#16#1
JZ M054
<>I
JC M051
JU M053
M054: T #TEMP52
M053: L B [AR1,P#0.0]
T DIB [AR2,P#2.0]
L #TEMP100
T DIB [AR2,P#3.0]
L W [AR1,P#2.0]
OW W#16#0
JN M055
L #TEMP101
OW W#16#0
JZ M04e
M055: T DIW [AR2,P#4.0]
L W [AR1,P#4.0]
OW W#16#0
JN M056
L #TEMP102
OW W#16#0
JZ M04e
M056: T DIW [AR2,P#6.0]
L W [AR1,P#6.0]
T DIW [AR2,P#8.0]
LAR1 #TEMP78
+AR1 P#16.0
+AR2 P#10.0
OPN DI 15
OPN DB 1
L #TEMP67
LOOP M04c
A #TEMP57
JC M057
TAR2
LAR1
LAR2 #TEMP95
L B#16#1
M058: T #TEMP70
TAR1 #TEMP76
L #TEMP70
+ ‐1
L P#16.0
*I
L P#4.0
Page 26
 TRUMPF_STL_PROGRAM
+I
L #TEMP107
+D
LAR1
OPN DB [#TEMP91]
L DBW [AR1,P#4.0]
T #TEMP92
L DBD [AR1,P#6.0]
LAR1
OPN DB [#TEMP92]
L B [AR1,P#8.0]
T #TEMP80
L B [AR1,P#9.0]
T #TEMP81
OPN DB [#TEMP91]
L DBB [AR2,P#1.0]
T #STAT27.STAT29
L DBW [AR2,P#2.0]
T #STAT27.STAT30
L DBW [AR2,P#4.0]
T #STAT27.STAT31
L DBD [AR2,P#6.0]
T #STAT27.STAT32
SRD 24
L B#16#87
==I
L B#16#8
JC M059
L B#16#F
L #STAT27.STAT29
>=I
JC M05a
L B#16#1
JU M05b
M05a: SLW 3
L #TEMP98
+D
LAR1
L DIB [AR1,P#0.0]
M05b: L #STAT27.STAT30
*I
T #TEMP82
LAR1 #TEMP76
OPN DB 1
L #TEMP80
L B#16#13
==I
JC M05c
L #TEMP81
L #TEMP82
>=I
JC M05c
Page 27
 TRUMPF_STL_PROGRAM
M059: L B#16#4
T #TEMP66
L #TEMP70
L W#16#100
*I
L #TEMP66
OW
T #TEMP66
JU M052
M05c: TAR2 #TEMP77
LAR2 #STAT27.STAT32
OPN DB [#STAT27.STAT31]
OPN DI 1
L B#16#9
T DIB [AR1,P#1.0]
L #TEMP81
T DIW [AR1,P#2.0]
PUSH
SRW 1
POP
JZ M05d
+ 1
M05d: L #TEMP84
+I
T #TEMP84
L #TEMP80
JL M05e
JU M05f
JU M060
JU M05f
JU M05f
JU M061
JU M061
JU M062
JU M062
JU M062
JU M05f
JU M05f
JU M05f
JU M05f
JU M05f
JU M05f
JU M063
JU M05f
JU M05f
JU M05f
JU M064
M05e: JU M05f
M060: L B#16#0
T DIB [AR1,P#4.0]
A [AR2,P#0.0]
= DIX [AR1,P#4.0]
Page 28
 TRUMPF_STL_PROGRAM
JU M065
M061: L W [AR2,P#0.0]
A #TEMP53
JC M066
CAW
M066: T DIW [AR1,P#4.0]
JU M065
M062: L D [AR2,P#0.0]
A #TEMP53
JC M067
CAD
M067: T DID [AR1,P#4.0]
M065: L DIW [AR1,P#2.0]
SLW 3
+AR1
JU M068
M05f: L #TEMP82
M069: L B [AR2,P#0.0]
T DIB [AR1,P#4.0]
+AR1 P#1.0
+AR2 P#1.0
TAK
LOOP M069
M068: OPN DB 1
OPN DI 15
+AR1 P#4.0
TAR1
SRW 4
JZ M06a
+AR1 P#1.0
M06a: LAR2 #TEMP77
+AR2 P#10.0
L #TEMP83
L #TEMP70
==I
JC M06b
+ 1
JU M058
M063: L B#16#0
L D [AR2,P#0.0]
T DID [AR1,P#4.0]
==D
JC M06c
T #TEMP67
AD DW#16#7
SLD 29
CAD
T DID [AR1,P#4.0]
L #TEMP67
AD DW#16#7F800000
SRD 23
+ 896
Page 29
 TRUMPF_STL_PROGRAM
SLD 20
L #TEMP67
AD DW#16#80000000
OD
L #TEMP67
AD DW#16#7FFFFF
SRD 3
OD
CAD
T #TEMP67
M06c: T DID [AR1,P#8.0]
+AR1 P#12.0
OPN DB 1
OPN DI 15
JU M06a
M064: TAR1 #TEMP104
L #TEMP81
L B [AR2,P#1.0]
OW W#16#0
JZ M06d
>I
+AR2 P#2.0
JC M06e
M06d: L B#16#4
JU M059
M06e: L B [AR2,P#0.0]
T DIB [AR1,P#4.0]
+AR1 P#1.0
+AR2 P#1.0
TAK
LOOP M06e
L B#16#0
T DIB [AR1,P#4.0]
L #TEMP104
L #TEMP81
SLW 3
+D
LAR1
JU M068
M04a: L W#16#FD
T DBW [AR2,P#4.0]
L B#16#0
T #TEMP87
T #TEMP86
T #TEMP90
TAR2
T #TEMP76
+ 64
T #TEMP68
LAR2
OPN DI [#TEMP91]
L #TEMP107
Page 30
 TRUMPF_STL_PROGRAM
LAR1
L DIW [AR1,P#6.0]
T #TEMP93
L DIW [AR1,P#4.0]
+ ‐12
SRW 1
T #TEMP88
L DID [AR1,P#8.0]
LAR1
T #TEMP79
L #TEMP88
M06f: T #TEMP69
OPN DI [#TEMP93]
SET
R #TEMP62
R #TEMP63
R #TEMP60
R #TEMP61
L DIB [AR1,P#12.0]
T #TEMP89
L B#16#30
L DIB [AR1,P#13.0]
<=I
JC M070
L B#16#13
OPN DI [#TEMP91]
==I
JC M071
TAK
L B#16#5
==I
= #TEMP58
L #TEMP86
T #TEMP67
SLW 1
+ 54
SLW 3
L #TEMP107
+D
T #TEMP67
L #TEMP89
T #TEMP70
T DBB [AR2,P#0.0]
L #TEMP90
+I
+ 1
T #TEMP90
L #TEMP89
SLW 3
+AR2
L #TEMP89
SRW 1
Page 31
 TRUMPF_STL_PROGRAM
JN M072
SET
S #TEMP63
L #TEMP90
+ 1
T #TEMP90
L B#16#0
T DBB [AR2,P#1.0]
M072: L DIW [#TEMP67]
AN #TEMP58
JC M073
L B#16#0
+I
JPZ M073
NEGI
SET
S #TEMP62
M073: DTB
T #TEMP71
AD DW#16#F
OD DW#16#30
T DBB [AR2,P#0.0]
L #TEMP70
+ ‐1
OW W#16#0
JZ M074
M075: T #TEMP70
SLW 3
L #TEMP68
+D
LAR2
L #TEMP71
SRD 4
T #TEMP71
AD DW#16#F
OD DW#16#30
T DBB [AR2,P#0.0]
L #TEMP70
LOOP M075
M074: AN #TEMP62
JC M076
L '‐'
T DBB [AR2,P#0.0]
M076: L #TEMP86
+ 1
T #TEMP86
JU M077
M070: T DBB [AR2,P#1.0]
L #TEMP89
T DBB [AR2,P#0.0]
+ 1
L #TEMP90
Page 32
 TRUMPF_STL_PROGRAM
+I
T #TEMP90
OPN DI [#TEMP91]
LAR1 #TEMP107
L DIW [AR1,P#12.0]
ITB
PUSH
AW W#16#F
OW W#16#30
T DBB [AR2,P#3.0]
POP
SRW 4
AW W#16#F
OW W#16#30
T DBB [AR2,P#2.0]
JU M077
M071: SET
R #TEMP60
R #TEMP61
L 10
L #TEMP87
*I
+ 14
SLW 3
L #TEMP107
+D
LAR1
L DIW [AR1,P#4.0]
T #TEMP94
L DID [AR1,P#6.0]
LAR1
OPN DI [#TEMP94]
L B#16#FC
L #TEMP89
<I
JCN M078
L B#16#FD
==I
S #TEMP60
JC M079
TAK
L B#16#FE
==I
S #TEMP61
JU M079
M078: T DBB [AR2,P#0.0]
T #TEMP89
TAR2 #TEMP67
M07a: L B#16#0
T DBB [AR2,P#1.0]
+AR2 P#1.0
TAK
Page 33
 TRUMPF_STL_PROGRAM
LOOP M07a
LAR2 #TEMP67
L DIB [AR1,P#1.0]
JU M07b
M079: A #TEMP61
JC M07c
TAR2 #TEMP67
L DIB [AR1,P#1.0]
T DBB [AR2,P#0.0]
T #TEMP89
JU M07b
M07c: L DIB [AR1,P#1.0]
L DBB [#TEMP67]
+I
T DBB [#TEMP67]
T #TEMP89
L DIB [AR1,P#1.0]
M07b: OW W#16#0
JN M07d
A #TEMP61
JC M07e
JU M07f
M07d: L DIB [AR1,P#2.0]
T DBB [AR2,P#1.0]
+AR1 P#1.0
+AR2 P#1.0
TAK
LOOP M07b
AN #TEMP60
JC M07f
TAK
L '/'
==I
JC M080
T DBB [AR2,P#1.0]
L #TEMP89
+ 1
T #TEMP89
T DBB [#TEMP67]
JU M080
M07e: L DBB [#TEMP67]
+ ‐1
T DBB [#TEMP67]
TAR2
+ ‐8
LAR2
L #TEMP89
+ ‐1
T #TEMP89
JU M081
M07f: L #TEMP89
M081: SRW 1
Page 34
 TRUMPF_STL_PROGRAM
L B#16#0
JN M082
SET
S #TEMP63
T DBB [AR2,P#1.0]
+AR2 P#1.0
L B#16#1
M082: L #TEMP90
+I
+ 1
L #TEMP89
+I
T #TEMP90
M080: L #TEMP87
+ 1
T #TEMP87
M077: L #TEMP79
+ 16
LAR1
T #TEMP79
L #TEMP89
A #TEMP60
JC M083
+ 1
AN #TEMP63
JC M083
+ 1
M083: SLW 3
L #TEMP68
+D
A #TEMP60
JC M084
T #TEMP68
M084: LAR2
L #TEMP69
LOOP M06f
OPN DI [#TEMP91]
LAR1 #TEMP107
L DID [AR1,P#8.0]
LAR1
OPN DI [#TEMP93]
L B#16#5
M085: L DIW [AR1,P#1.0]
T DBW [AR2,P#0.0]
+AR1 P#2.0
+AR2 P#2.0
TAK
LOOP M085
LAR2 #TEMP76
L #TEMP90
T DBW [AR2,P#6.0]
JU M057
Page 35
 TRUMPF_STL_PROGRAM
M04b: OPN DB 1
LAR1 #TEMP74
L DW#16#1204117F
T DBD [AR1,P#30.0]
L DW#16#F00FF09
T DBD [AR1,P#34.0]
L DW#16#280100
T DBD [AR1,P#38.0]
OPN DI [#TEMP91]
LAR2 #TEMP107
L DIB [AR2,P#12.0]
T DBB [AR1,P#42.0]
SLW 5
T #TEMP52
L DIB [AR2,P#13.0]
T DBB [AR1,P#43.0]
OW
T #TEMP52
L DIW [AR2,P#14.0]
CAW
T DBW [AR1,P#44.0]
L DIW [AR2,P#16.0]
CAW
T DBW [AR1,P#46.0]
L DIW [AR2,P#6.0]
T #TEMP94
L DID [AR2,P#8.0]
LAR2
OPN DB [#TEMP94]
OPN DI 1
L B [AR2,P#1.0]
M086: L B [AR2,P#2.0]
T DIB [AR1,P#48.0]
+AR1 P#1.0
+AR2 P#1.0
TAK
LOOP M086
L B#16#0
T DIB [AR1,P#48.0]
JU M06b
M057: OPN DI 15
L B#16#0
L #TEMP52
<>I
A #TEMP53
JCN M06b
L B#16#2
M052: T #TEMP66
OPN DB 1
OPN DI 15
LAR1 #STAT33
+AR1 P#4.0
Page 36
 TRUMPF_STL_PROGRAM
L B#16#1
T #TEMP75
JU M009
M087: AN #TEMP64
JC M009
JU M038
M088: L B#16#0
T DBW [AR1,P#4.0]
JU M089
M06b: OPN DB 1
OPN DI 15
LAR1 #TEMP74
AN #TEMP55
JC M08a
L W#16#401
JC M08b
M08a: L DBB [AR1,P#28.0]
L B#16#5
>I
JC M08c
L #TEMP52
AW W#16#1F
JL M08d
JU M08e
JU M08f
JU M090
M08d: + 1
SLW 9
+ 1
JU M08b
M090: L W#16#201
JC M08b
M08e: A #TEMP53
L W#16#501
JC M08b
M08f: L W#16#1
JC M08b
M08c: L DBW [AR1,P#36.0]
+ 20
T DBW [AR1,P#24.0]
L DBB [AR1,P#39.0]
L '2'
<>I
JC M091
L '01'
L DBW [AR1,P#40.0]
==I
L W#16#101
JC M08b
L '02'
L DBW [AR1,P#40.0]
==I
Page 37
 TRUMPF_STL_PROGRAM
L W#16#301
JC M08b
TAK
AW W#16#F0F
PUSH
SRW 4
OW
AW W#16#FF
BTI
+ 1
SLW 1
+ 1
SLW 8
L B#16#1
OW
JU M08b
M091: L W#16#101
M08b: T DBW [AR1,P#8.0]
L #TEMP84
T DBW [AR1,P#26.0]
OPN DI 15
L #STAT19
+I
L 26
+I
T DBB [AR1,P#2.0]
LAR1 #STAT33
+AR1 P#12.0
L B#16#2
T #TEMP75
JU M009
M092: AN #TEMP64
JC M009
JU M038
M093: L B#16#0
T DBW [AR1,P#4.0]
L #STAT39
DEC 1
T #STAT39
L B#16#0
T #TEMP66
SET
S #STAT25
M089: L #STAT44
L #STAT41
==I
JC M094
+ 16
JU M095
M094: L #STAT43
M095: T #STAT41
A #STAT40
Page 38
 TRUMPF_STL_PROGRAM
R #STAT40
L #TEMP91
OW W#16#0
JZ M043
OPN DB [#TEMP91]
LAR1 #TEMP96
LAR2 #TEMP97
L B#16#0
L #TEMP66
<>I
= DBX [AR1,P#0.0]
T DBW [AR1,P#2.0]
JCN M096
OPN DI 15
L #TEMP106
LAR1
L B#16#0
T DIW [AR1,P#0.0]
M096: A #STAT25
S DBX [AR2,P#1.2]
M043: BE
M009: CALL SFC 41
RET_VAL:=#TEMP103
LAR2 #TEMP72
L DBW [AR2,P#0.0]
OW W#16#0
JN M097
L B#16#1
T DBW [AR2,P#2.0]
L DBW [AR2,P#0.0]
OW W#16#0
JN M097
L DBW [AR1,P#4.0]
OW W#16#0
JN M097
L B#16#1
T DBW [AR1,P#4.0]
JU M098
M097: L B#16#0
T DBW [AR2,P#2.0]
SET
R #TEMP64
JU M099
M098: L B#16#0
T DBW [AR2,P#2.0]
SET
S #TEMP64
M099: CALL SFC 42
RET_VAL:=#TEMP103
L #TEMP75
JL M09a
JU M044
Page 39
 TRUMPF_STL_PROGRAM
JU M087
JU M092
JU M00a
JU M037
M09a: BE
M00b: L DBW [AR1,P#0.0]
T #TEMP73
CAW
SLW 3
L #TEMP72
+D
T #TEMP74
LAR2
L DBW [AR2,P#0.0]
T DBW [AR1,P#0.0]
L DBW [AR1,P#2.0]
L #TEMP73
<>I
JC M09b
L B#16#0
T DBW [AR1,P#2.0]
M09b: L DBW [AR1,P#6.0]
CAW
+ ‐1
CAW
T DBW [AR1,P#6.0]
L #TEMP75
JL M09c
JU M045
JU M09c
JU M09c
JU M00c
M09c: BE
M038: L DBW [AR1,P#6.0]
OW W#16#0
JN M09d
L #TEMP73
T DBW [AR1,P#0.0]
JU M09e
M09d: L DBW [AR1,P#2.0]
CAW
SLW 3
L #TEMP72
+D
LAR2
L #TEMP73
T DBW [AR2,P#0.0]
M09e: T DBW [AR1,P#2.0]
LAR2 #TEMP74
L B#16#0
T DBW [AR2,P#0.0]
L DBW [AR1,P#6.0]
Page 40
 TRUMPF_STL_PROGRAM
CAW
+ 1
CAW
T DBW [AR1,P#6.0]
L #TEMP75
JL M09f
JU M09f
JU M088
JU M093
JU M09f
JU M039
M09f: BE

FB7:
A #STAT27
JC M001
O DB7.DBX 116.0
O #STAT30
JC M002
AN #IN0
JC M001
L B#16#7
T #OUT25
S #OUT23
BEU
M002: A #STAT28
= #TEMP39
A #IN0
FP #TEMP39
JCN M001
AN DB10.DBX 104.7
JC M003
L P##OUT23
TAR2
AD DW#16#FFFFFF
+D
T #STAT33
L P##STAT26
TAR2
AD DW#16#FFFFFF
+D
T #STAT35
L DINO
T #TEMP36
TAR2 #TEMP38
L P##STAT35
AD DW#16#FFFFFF
SRD 3
+ 4
T #TEMP37
L B#16#28
Page 41
 TRUMPF_STL_PROGRAM
T #STAT26
CALL FB 6 , DB15
IN0:=B#16#1
IN1:=#TEMP36
IN2:=#TEMP37
IN3:=#TEMP38
SET
S #STAT28
M001: A #IN0
JC M004
M003: R #OUT24
R #OUT23
R #STAT27
R #STAT29
R #STAT28
L B#16#0
T #OUT25
T #STAT31
T #STAT32
M004: BE

FB9:NETWORK1:
A DB10.DBX 104.7
= #TEMP27
A DBX 108.2
O DBX 108.3
= #TEMP28
A DBX 108.1
= #TEMP29
L DB19.DBW 110
+ 1
OW W#16#0
JN M001
INC 1
M001: T DBW 110
A #TEMP27
A #IN0
JC M002
A #TEMP27
JC M003
L B#16#0
T DBW 100
T DBW 102
T DBW 104
T DBB 106
T DBB 107
T DBB 108
T DBB 109
T DBW 120
T DBB 122
T DBB 123
T DBB 124
Page 42
 TRUMPF_STL_PROGRAM
T DBB 125
T DBW 130
T DBB 132
T DBB 133
T DBB 134
T DBB 135
SET
R DBX 126.2
R DBX 126.3
R DBX 126.4
R DBX 136.2
R DBX 136.3
R DBX 136.4
T #STAT12
T #STAT13
T #STAT15
T #STAT14
R #OUT10
M002: R #OUT4
R #OUT5
R #OUT6
R #OUT7
R #OUT8
R #OUT9
R #OUT11
M003: L #STAT12
OW W#16#0
JN M004
L #STAT13
L B#16#0
T #STAT13
TAK
JL M005
JU M005
JU M006
JU M007
JU M008
M005: L #STAT15
JL M009
JU M009
JU M00a
JU M00b
JU M00c
JU M00d
JU M00e
JU M00f
JU M010
JU M011
JU M012
JU M013
JU M014
JU M015
Page 43
 TRUMPF_STL_PROGRAM
M009: L DB19.DBB 125
L B#16#0
<>I
A #TEMP27
= #STAT18
L DBB 135
L B#16#0
<>I
A #TEMP27
= #STAT19
M00a: A #STAT18
AN #TEMP28
= #TEMP30
A #STAT19
AN #TEMP29
= #TEMP31
A #TEMP30
O #TEMP31
L B#16#1
JC M016
R #STAT17
L B#16#0
T #STAT15
R #STAT16
A #STAT18
FP #STAT20
JC M017
A #STAT19
FP #STAT21
JCN M018
M017: R #OUT10
M018: A DBX 126.2
AN #IN1
JCN M019
R DBX 126.2
A DBX 126.0
S DBX 126.5
JC M01a
AN DBX 136.4
JC M01b
R DBX 136.3
M012: A DBX 136.5
JCN M01c
R DBX 136.5
S DBX 136.3
S DBX 126.5
R #STAT17
L B#16#0
T #STAT15
JU M01a
M01c: AN DBX 136.4
L B#16#9
Page 44
 TRUMPF_STL_PROGRAM
JCN M01d
M01b: R #STAT17
S DBX 126.3
M013: A DBX 126.4
L B#16#A
JCN M01e
R #STAT17
L B#16#0
T #STAT15
A #IN3
JCN M01a
L B#16#1
T #STAT12
L B#16#0
JU M01f
M019: AN DBX 136.2
JC M020
R DBX 136.2
A DBX 136.0
S DBX 136.5
JC M01a
ON DBX 126.4
O #IN1
JC M021
R DBX 126.3
M014: A DBX 126.5
JCN M022
R DBX 126.5
S DBX 126.3
S DBX 136.5
R #STAT17
L B#16#0
T #STAT15
JU M01a
M022: AN DBX 126.4
L B#16#B
JCN M01d
M021: R #STAT17
S DBX 136.3
M015: A DBX 136.4
L B#16#C
JCN M01e
R #STAT17
L B#16#0
T #STAT15
A #IN3
JCN M01a
L B#16#2
T #STAT12
L B#16#0
JU M01f
M020: L B#16#3
Page 45
 TRUMPF_STL_PROGRAM
L DBB 124
==I
JCN M023
A #IN1
JC M023
L B#16#4
T DBB 124
A DBX 126.0
JCN M024
L B#16#E
T DBB 125
JU M01a
M024: L B#16#A
T DBB 125
M00b: AN #TEMP28
L B#16#2
JCN M016
R #STAT17
L B#16#0
T #STAT15
M025: L B#16#0
T DBB 124
T DBB 125
M026: A #IN3
JCN M006
L B#16#3
T #STAT12
L B#16#1
JU M01f
M006: A #IN1
JC M01a
R DBX 126.2
R DBX 126.3
R DBX 126.4
A #IN3
A DBX 136.4
JCN M01a
L B#16#4
T #STAT12
L B#16#2
JU M01f
M023: L B#16#3
L DBB 134
==I
JCN M027
L B#16#4
T DBB 134
A DBX 136.0
JCN M028
L B#16#E
T DBB 135
JU M01a
Page 46
 TRUMPF_STL_PROGRAM
M028: L B#16#A
T DBB 135
M00c: AN #TEMP29
L B#16#3
JCN M016
R #STAT17
L B#16#0
T #STAT15
M029: L B#16#0
T DBB 134
T DBB 135
M02a: A #IN3
JCN M008
L B#16#5
T #STAT12
L B#16#3
JU M01f
M008: R DBX 136.2
R DBX 136.3
R DBX 136.4
AN #IN1
A #IN3
A DBX 126.4
JCN M01a
L B#16#6
T #STAT12
L B#16#0
JU M01f
M027: L B#16#0
L DBW 100
==I
JCN M02b
L DBB 124
L B#16#7
==I
JCN M02c
A DBX 126.0
JCN M02d
L B#16#E
JU M02e
M02d: L B#16#A
M02e: T DBB 125
L B#16#8
T DBB 124
JU M01a
M02c: L DBB 134
L B#16#7
==I
JCN M02f
A DBX 136.0
JCN M030
L B#16#E
Page 47
 TRUMPF_STL_PROGRAM
JU M031
M030: L B#16#A
M031: T DBB 135
L B#16#8
T DBB 134
JU M01a
M02f: L DBB 124
L B#16#9
==I
JCN M032
A DBX 126.0
JCN M033
L B#16#E
JU M034
M033: L B#16#A
M034: T DBB 125
L B#16#A
T DBB 124
JU M01a
M032: L DBB 134
L B#16#9
==I
JCN M035
A DBX 136.0
JCN M036
L B#16#E
JU M037
M036: L B#16#A
M037: T DBB 135
L B#16#A
T DBB 134
JU M01a
M035: L DBB 125
L B#16#9
==I
JCN M038
L B#16#B
T DBB 125
JU M026
M038: L DBB 135
L B#16#9
==I
JCN M01a
L B#16#B
T DBB 135
JU M02a
M02b: L B#16#0
T DBW 104
L DBW 100
T DBW 102
L B#16#0
T DBB 108
Page 48
 TRUMPF_STL_PROGRAM
T DBB 109
M00d: A(
L B#16#0
L DBW 104
<>I
)
A(
L DBW 102
==I
)
L B#16#4
JCN M01e
R #STAT17
L B#16#0
T #STAT15
A #IN1
O DBX 126.0
JC M039
AN #TEMP28
JC M03a
A DBX 136.0
JC M03b
AN #TEMP29
JC M039
L DBB 122
L DBB 132
>I
JC M039
A(
L DBB 122
L DBB 132
==I
)
AN DBX 126.4
JC M039
M03b: A DBX 122.6
JC M03c
L DBB 122
L DBB 106
>I
JC M03c
L B#16#1
T DBB 124
L B#16#A
T DBB 125
M010: L DBB 125
L B#16#D
==I
JCN M03d
R #STAT17
L B#16#0
T #STAT15
Page 49
 TRUMPF_STL_PROGRAM
JU M03e
M03d: AN #TEMP28
L B#16#7
JCN M016
R #STAT17
L B#16#0
T #STAT15
R DBX 126.3
R DBX 126.4
M03a: L B#16#5
T DBB 108
L B#16#1A
T DBB 109
M00e: A(
L DBB 124
L B#16#6
==I
)
A(
L DBB 125
L B#16#B
==I
)
L B#16#5
JCN M01e
R #STAT17
L B#16#0
T #STAT15
L DBW 102
T DBW 120
L DBB 106
T DBB 122
L DBB 107
T DBB 123
JU M03f
M039: A DBX 136.0
JC M040
AN #TEMP29
JC M041
A DBX 132.6
JC M03c
L DBB 132
L DBB 106
<=I
JCN M03c
L B#16#1
T DBB 134
L B#16#A
T DBB 135
M011: L DBB 135
L B#16#D
==I
Page 50
 TRUMPF_STL_PROGRAM
JCN M042
R #STAT17
L B#16#0
T #STAT15
JU M043
M042: AN #TEMP29
L B#16#8
JCN M016
R #STAT17
L B#16#0
T #STAT15
R DBX 136.3
R DBX 136.4
M041: L B#16#5
T DBB 108
L B#16#2A
T DBB 109
M00f: A(
L DBB 134
L B#16#6
==I
)
A(
L DBB 135
L B#16#B
==I
)
L B#16#6
JCN M01e
R #STAT17
L B#16#0
T #STAT15
L DBW 102
T DBW 130
L DBB 106
T DBB 132
L DBB 107
T DBB 133
M03f: L B#16#0
T DBW 100
T DBW 102
T DBB 108
T DBB 109
JU M01a
M03c: L B#16#F
T DBB 109
L B#16#5
T DBB 108
JU M044
M040: L B#16#E
T DBB 109
L B#16#5
Page 51
 TRUMPF_STL_PROGRAM
T DBB 108
JU M044
NETWORK2:
M01f: T #STAT13
M004: L #STAT14
JL M045
JU M045
JU M046
JU M047
JU M048
JU M049
JU M04a
M045: L #STAT12
JL M04b
JU M04b
JU M04c
JU M04d
JU M04e
JU M04f
JU M04e
JU M050
M04b: JU M051
M04c: A DBX 136.1
JC M051
S DB7.DBX 62.1
M046: AN DB10.DBX 104.0
JC M052
L B#16#1
JU M053
M052: L B#16#0
T #STAT14
OPN DB 19
JU M050
M04d: A DBX 126.1
JC M051
S DB7.DBX 62.1
M048: AN DB10.DBX 104.0
JC M054
L B#16#3
JU M053
M054: L B#16#0
T #STAT14
OPN DB 19
JU M04f
M04e: SET
S DB7.DBX 62.1
JU M051
M04f: L DBB 135
L B#16#0
==I
JC M051
A DBX 136.1
Page 52
 TRUMPF_STL_PROGRAM
JC M051
S DB7.DBX 62.1
M049: AN DB10.DBX 104.0
JC M055
L B#16#4
JU M053
M055: OPN DB 19
L B#16#FF
L DBB 133
==I
JC M051
T DB7.DBW 26
L B#16#5
JU M053
M050: L DBB 125
L B#16#0
==I
JC M051
A DBX 126.1
JC M051
S DB7.DBX 62.1
M047: AN DB10.DBX 104.0
JC M056
L B#16#2
JU M053
M056: OPN DB 19
L B#16#FF
L DBB 123
==I
JC M051
T DB7.DBW 26
L B#16#5
JU M053
M04a: SET
R DB7.DBX 62.1
M051: L B#16#0
T #STAT12
M053: T #STAT14
JU M01a

FB10:
A #IO12
JCN M001
R #OUT8
R #OUT9
R #OUT10
R #OUT11
S #STAT13
R #IO12
M001: A #IN0
A #IN1
A #IN2
Page 53
 TRUMPF_STL_PROGRAM
A(
A #IN3
FP #STAT15
O
A #IN4
FP #STAT16
O #OUT8
)
= #OUT8
A #OUT8
JCN M002
S #OUT9
S #OUT10
S #OUT11
R #STAT13
R #STAT14
BEU
M002: A #STAT13
JC M003
CALL SFC 64
RET_VAL:=#TEMP21
L #TEMP21
L #STAT20
<D
L B#16#0
JC M004
==I
JC M004
TAK
NEGI
L #TEMP21
+I
M004: T #TEMP22
L #TEMP21
T #STAT20
A #STAT14
JC M005
L #IN5
T #STAT17
L #IN6
T #STAT18
L #IN7
T #STAT19
S #STAT14
JU M006
M005: L #STAT17
L #TEMP22
‐D
T #STAT17
L B#16#0
<=D
R #OUT9
Page 54
 TRUMPF_STL_PROGRAM
L #STAT18
L #TEMP22
‐D
T #STAT18
L B#16#0
<=D
R #OUT10
L #STAT19
L #TEMP22
‐D
T #STAT19
L B#16#0
<=D
R #OUT11
AN #OUT9
AN #OUT10
AN #OUT11
= #STAT13
JU M006
M003: R #STAT14
M006: BE

FB11:NETWORK1:
L DIW [AR2,P#4.0]
T #TEMP17
L DB5.DBW 24
L #IN3
OW W#16#0
JZ M001
<I
JC M001
INC 30
T #TEMP18
OPN DB [#TEMP18]
A #IN0
JC M002
AN #IN0
R #OUT11
R #OUT12
R #OUT10
A #STAT15
R DBX 11.0
A #IN1
JCN M003
R #OUT13
L B#16#0
T #OUT14
M003: AN #IN0
R #STAT15
BEU
M001: CALL FC 20
Page 55
 TRUMPF_STL_PROGRAM
IN0:=41
IN1:=11
IN2:=1
IN3:=0
IN4:=TRUE
CALL SFC 46
BEU
NETWORK2:

M002: L #OUT14
L B#16#0
<>I
JC M004
A #IN0
FP #STAT15
JCN M005
L B#16#0
T #STAT16
NETWORK3:
M005: L #STAT16
JL M006
JU M007
JU M008
JU M009
JU M00a
JU M00b
JU M00c
JU M00d
JU M00e
M006: L B#16#A
JU M00f

NETWORK4:
M007: AN DBX 61.5
O DBX 63.3
O #IN2
L B#16#1
JC M00f
AN DBX 63.1
L B#16#B
JC M00f
A DBX 61.5
S DBX 11.0
L #IN5
CLR
SE T [#TEMP17]
SET
SE T [#TEMP17]
JU M010

NETWORK5:
M008: AN T [#TEMP17]
Page 56
 TRUMPF_STL_PROGRAM
AN DBX 71.0
L B#16#2
JC M00f
A DBX 11.0
A DBX 71.0
JCN M011
SET
S #OUT10
L #IN6
CLR
SE T [#TEMP17]
SET
SE T [#TEMP17]
JU M010

NETWORK6:
M009: AN T [#TEMP17]
AN #IN2
L B#16#3
JC M00f
A #OUT10
A #IN2
JCN M011
SET
S #OUT11
L #IN7
CLR
SE T [#TEMP17]
SET
SE T [#TEMP17]
JU M010

NETWORK7:
M00a: AN T [#TEMP17]
AN DBX 64.6
AN DBX 64.7
L B#16#4
JC M00f
A DBX 64.6
O DBX 64.7
JCN M011
L #IN8
CLR
SE T [#TEMP17]
SET
SE T [#TEMP17]
JU M010

NETWORK8:
M00b: AN DBX 62.5
Page 57
 TRUMPF_STL_PROGRAM
A DBX 63.0
L B#16#5
JC M00f
AN T [#TEMP17]
A(
AN DBX 62.5
ON DBX 71.0
)
A(
A DBX 64.6
O DBX 64.7
)
L B#16#6
JC M00f
AN T [#TEMP17]
A(
AN DBX 62.5
ON DBX 71.0
)
A(
A DBX 60.6
O DBX 60.7
)
L B#16#7
JC M00f
A DBX 62.5
JCN M011
L #IN9
CLR
SE T [#TEMP17]
SET
SE T [#TEMP17]
JU M010

NETWORK9:
M00c: AN DBX 62.5
ON DBX 71.0
L B#16#8
JC M00f
AN T [#TEMP17]
A DBX 62.5
JCN M011
SET
R #OUT11
R DBX 11.0
L #IN5
CLR
SE T [#TEMP17]
SET
SE T [#TEMP17]
JU M010
Page 58
 TRUMPF_STL_PROGRAM

NETWORK10:

M00d: AN T [#TEMP17]
A DBX 71.0
L B#16#9
JC M00f
AN DBX 62.5
AN DBX 71.0
JCN M011
SET
R T [#TEMP17]
R #OUT10
S #OUT12
JU M010

NETWORK11:
M00e: SET
S #OUT12
M011: BEU
M010: L #STAT16
INC 1
T #STAT16
BEU

NETWORK12:
M00f: T #OUT14
M004: SET
S #OUT13
R #OUT11
R #OUT10

FB16:
OPN DB 6
L B#16#0
T DBW 14
T DBB 23
T DBD 26
T DBW 30
OPN DI 5
L DIW 18
SLW 3
LAR1
L DIW 28
L DIW 22
*I
SRW 1
M001: L B#16#0
T DBW [AR1,P#0.0]
+AR1 P#2.0
Page 59
 TRUMPF_STL_PROGRAM
TAK
LOOP M001
OPN DB 8
LAR1 P#0.0
L B#16#11
M002: L B#16#0
T DBD [AR1,P#98.0]
+AR1 P#4.0
TAK
LOOP M002

FB18:
A DBX 56.0
= #TEMP5
L DBW 52
T #TEMP1
L DBW 54
T #TEMP0
L DBB 57
M001: T #TEMP4
CALL SFC 22
IN0 :=#TEMP0
IN1 :=#TEMP0
IN2 :=#TEMP1
RET_VAL:=#TEMP3
OUT3 :=#TEMP2
L #TEMP3
OW W#16#0
JZ M002
L W#16#80B1
<>I
JC M003
OPN DB [#TEMP0]
L DBLG
L #TEMP1
==I
JC M004
M003: L #TEMP0
T #TEMP3
CALL FC 20
IN0:=40
IN1:=1
IN2:=#TEMP3
IN3:=0
IN4:=TRUE
S DB5.DBX 165.0
JU M005
M004: AN #TEMP5
JC M005
M002: OPN DB [#TEMP0]
LAR2 P#0.0
Page 60
 TRUMPF_STL_PROGRAM
L #TEMP1
SRW 1
M006: L B#16#0
T DBW [AR2,P#0.0]
+AR2 P#2.0
TAK
LOOP M006
M005: L #TEMP0
+ 1
T #TEMP0
L #TEMP4
LOOP M001

FB125:
CALL SFC 41
RET_VAL:=#TEMP107
SET
S #OUT24
S #STAT47
A #STAT99
JC M001
L #IN0
T #STAT92
L #IN7
T #STAT101
A #IN1
= #STAT93
A #IN2
= #STAT94
A #IN3
= #STAT95
A #IN4
= #STAT96
A #IN5
= #STAT97
A #IN6
= #STAT98
M001: L #STAT92
T #TEMP102
T #TEMP115
L P##STAT70
SLD 8
SRD 11
T #TEMP120
2:

CALL SFC 6
RET_VAL:=#TEMP107
OUT0 :=#STAT72
OUT9 :=#TEMP122
AN BR
R #STAT47
Page 61
 TRUMPF_STL_PROGRAM
JC M002
LAR1 P##STAT72
L B#16#1
L DIB [AR1,P#3.0]
==I
JC M003
L B#16#52
==I
JC M004
TAK
L B#16#56
==I
JC M005
JU M002

3:

M005: LAR1 P##STAT72

A(
L DIB [AR1,P#1.0]
L B#16#C4
==I
)
O(
TAK
L B#16#C5
==I
)
O(
TAK
L B#16#C7
==I
)
O(
TAK
L B#16#C8
==I
)
JCN M002
L DIB [AR1,P#10.0]
L #TEMP102
<>I
= #STAT45
JC M002
L DIB [AR1,P#11.0]
L 0
==I
= #STAT45
JC M002
S #STAT30
LAR2 P##STAT82
L DIB [AR2,P#0.0]
Page 62
 TRUMPF_STL_PROGRAM
L DIB [AR1,P#11.0]
==I
S #STAT31
LAR2 P##STAT81
L DIW [AR1,P#10.0]
T DIW [AR2,P#0.0]
L DW#16#0
T DIW [AR2,P#2.0]
T DID [AR2,P#4.0]
T DID [AR2,P#8.0]
T DID [AR2,P#12.0]
L DIB [AR1,P#11.0]
DEC 1
SLD 3
L P##STAT90
+D
LAR2
L DIB [AR2,P#0.0]
INC 1
T DIB [AR2,P#0.0]
L DIB [AR1,P#11.0]
L 8
/I
T #TEMP105
AD DW#16#FFFF
T #TEMP106
L DW#16#0
L #TEMP105
SRD 16
<>D
JC M006
L B#16#8
T #TEMP105
L #TEMP106
DEC 1
T #TEMP106
TAK
M006: DEC 1
L #TEMP106
SLD 3
+D
L P##STAT85
+D
LAR2
A DIX [AR1,P#0.0]
R DIX [AR2,P#0.0]
S DIX [AR2,P#16.0]
S DIX [AR2,P#48.0]
S DIX [AR2,P#64.0]
R DIX [AR2,P#32.0]
JC M002
S DIX [AR2,P#0.0]
Page 63
 TRUMPF_STL_PROGRAM
R DIX [AR2,P#16.0]
AN DIX [AR2,P#32.0]
R DIX [AR2,P#48.0]
JU M002
4:
M004: LAR1 P##STAT72
L DIB [AR1,P#5.0]
T #TEMP114
L DIW [AR1,P#6.0]
T #TEMP112
CALL SFC 49
IN0 :=#TEMP114
IN1 :=#TEMP112
RET_VAL:=#TEMP107
OUT2 :=#TEMP119
OUT3 :=#TEMP116
OUT4 :=#TEMP117
OUT5 :=#TEMP118
AN BR
R #STAT47
JC M002
L #TEMP119
L B#16#2
<>I
JC M002
L #STAT69
L 32
==I
S #OUT23
JC M002
L #STAT69
+ 1
T #STAT69
L 0
>I
= #STAT35
L #STAT67
+ 1
L 32
+ ‐1
AW
T #STAT67
L 2
*I
L #TEMP120
+I
SLD 3
LAR2
AN DIX [AR1,P#5.0]
L #TEMP112
JC M007
OW W#16#8000
Page 64
 TRUMPF_STL_PROGRAM
M007: T DIW [AR2,P#0.0]
A #STAT33
JC M002
M008: L #STAT69
+ ‐1
T #STAT69
L 0
>I
= #STAT35
L #STAT68
+ 1
L 32
+ ‐1
AW
T #STAT68
L 2
*I
L #TEMP120
+I
SLD 3
LAR2
L DIW [AR2,P#0.0]
T #STAT58
M009: AN #STAT93
L W#16#0
JC M00a
L W#16#4000
M00a: T #TEMP121
OW W#16#C91
T #TEMP108
CALL SFC 51
IN0 :=TRUE
IN1 :=#TEMP108
IN2 :=#STAT58
RET_VAL:=#TEMP107
OUT3 :=#STAT46
OUT4 :=#TEMP109
OUT7 :=#STAT81
LAR1 P##STAT72
L DIB [AR1,P#3.0]
L B#16#52
==I
AN BR
JC M00b
AN BR
= #STAT45
R #STAT33
R #STAT47
JC M002
AN #STAT46
R #STAT33
JC M00c
Page 65
 TRUMPF_STL_PROGRAM
M00b: S #STAT33
JU M002
M00c: LAR1 P##STAT81
L DIB [AR1,P#0.0]
L #TEMP102
<>I
= #STAT45
JC M002
L DIB [AR1,P#1.0]
L 0
==I
= #STAT45
JC M002
S #STAT30
LAR2 P##STAT82
L DIB [AR2,P#0.0]
L DIB [AR1,P#1.0]
==I
S #STAT31
L DIB [AR1,P#2.0]
L 8
/I
T #TEMP105
AD DW#16#FFFF
T #TEMP106
L DW#16#0
L #TEMP105
SRD 16
<>D
JC M00d
L DIB [AR1,P#2.0]
L B#16#0
T #TEMP105
==I
JC M00e
L B#16#8
T #TEMP105
L #TEMP106
DEC 1
T #TEMP106
TAK
M00d: DEC 1
L #TEMP106
SLD 3
+D
M00e: T #TEMP106
L DIB [AR1,P#1.0]
DEC 1
T #TEMP105
L 6
*I
SLD 3
Page 66
 TRUMPF_STL_PROGRAM
L #TEMP106
+D
L P##STAT71
+D
LAR2
A DIX [AR1,P#13.0]
= DIX [AR2,P#0.0]
L #TEMP105
SLD 3
L P##STAT90
+D
LAR2
L DIB [AR2,P#0.0]
INC 1
T DIB [AR2,P#0.0]
L DIB [AR1,P#1.0]
L 8
/I
T #TEMP105
AD DW#16#FFFF
T #TEMP106
L DW#16#0
L #TEMP105
SRD 16
<>D
JC M00f
L B#16#8
T #TEMP105
L #TEMP106
DEC 1
T #TEMP106
TAK
M00f: DEC 1
L #TEMP106
SLD 3
+D
L P##STAT86
+D
LAR2
L DIB [AR1,P#1.0]
DEC 1
L 6
*I
SLD 3
L P##STAT71
+D
LAR1
L DID [AR1,P#0.0]
L DW#16#0
<>D
JC M010
L DIW [AR1,P#4.0]
Page 67
 TRUMPF_STL_PROGRAM
<>I
JC M010
R DIX [AR2,P#16.0]
AN DIX [AR2,P#0.0]
R DIX [AR2,P#32.0]
JU M002
M010: S DIX [AR2,P#16.0]
S DIX [AR2,P#32.0]
S DIX [AR2,P#48.0]
JU M002

5:
M003: LAR1 P##STAT72
L DIB [AR1,P#1.0]
L B#16#2
>I
JC M011
M012: L 0
T #STAT60
T #STAT61
T #STAT57
T #STAT63
T #STAT64
T #STAT65
T #STAT67
T #STAT68
T #STAT69
T #STAT54
L P##STAT88
T #STAT56
L P##STAT83
T #STAT57
SET
R #STAT29
R #STAT30
R #STAT31
R #STAT25
R #STAT26
R #STAT27
R #STAT32
R #STAT33
R #STAT34
R #STAT40
R #STAT41
R #STAT42
R #STAT43
R #STAT28
R #STAT44
R #OUT23
R #STAT35
R #STAT45
Page 68
 TRUMPF_STL_PROGRAM
R #STAT48
R #STAT49
R #STAT50
R #STAT51
R #STAT53
LAR2 P##STAT82
L DW#16#0
T DID [AR2,P#0.0]
T DID [AR2,P#4.0]
T DID [AR2,P#8.0]
T DID [AR2,P#12.0]
T DID [AR2,P#16.0]
T DIW [AR2,P#20.0]
LAR1 P##STAT81
L #TEMP102
T DIB [AR1,P#0.0]
L DW#16#0
T DIB [AR1,P#1.0]
T DIW [AR1,P#2.0]
T DID [AR1,P#4.0]
T DID [AR1,P#8.0]
T DID [AR1,P#12.0]
LAR1 P##STAT70
L 16
M013: T #TEMP103
L DW#16#0
T DID [AR1,P#0.0]
+AR1 P#4.0
L #TEMP103
LOOP M013
LAR1 P##STAT71
L 189
M014: T #TEMP103
L DW#16#0
T DID [AR1,P#0.0]
+AR1 P#4.0
L #TEMP103
LOOP M014
LAR1 P##STAT84
L 4
M015: T #TEMP103
L DW#16#0
T DID [AR1,P#0.0]
T DID [AR1,P#16.0]
T DID [AR1,P#64.0]
+AR1 P#4.0
L #TEMP103
LOOP M015
LAR1 P##STAT90
L 32
M016: T #TEMP103
L DW#16#0
Page 69
 TRUMPF_STL_PROGRAM
T DID [AR1,P#0.0]
+AR1 P#4.0
L #TEMP103
LOOP M016
A #STAT99
JC M017
L #IN0
T #STAT92
L #IN7
T #STAT101
A #IN1
= #STAT93
A #IN2
= #STAT94
A #IN3
= #STAT95
A #IN4
= #STAT96
A #IN5
= #STAT97
A #IN6
= #STAT98
M017: L #STAT92
T #TEMP102
T #TEMP115
JU M018
6:

M011: A #STAT29
JC M019
M018: AN #STAT93
L W#16#0
JC M01a
L W#16#4000
M01a: T #TEMP121
A #STAT25
JC M01b
L #TEMP121
OW W#16#92
T #TEMP108
CALL SFC 51
IN0 :=TRUE
IN1 :=#TEMP108
IN2 :=#TEMP102
RET_VAL:=#TEMP107
OUT3 :=#STAT46
OUT4 :=#TEMP109
OUT7 :=#STAT84
AN BR
ON #STAT46
S #STAT25
M01b: A #STAT26
Page 70
 TRUMPF_STL_PROGRAM
JC M01c
L #TEMP121
OW W#16#292
T #TEMP108
CALL SFC 51
IN0 :=TRUE
IN1 :=#TEMP108
IN2 :=#TEMP102
RET_VAL:=#TEMP107
OUT3 :=#STAT46
OUT4 :=#TEMP109
OUT7 :=#STAT85
AN BR
ON #STAT46
S #STAT26
M01c: A #STAT27
JC M01d
L #TEMP121
OW W#16#692
T #TEMP108
CALL SFC 51
IN0 :=TRUE
IN1 :=#TEMP108
IN2 :=#TEMP102
RET_VAL:=#TEMP107
OUT3 :=#STAT46
OUT4 :=#TEMP109
OUT7 :=#STAT88
AN BR
ON #STAT46
S #STAT27
L #TEMP107
L W#16#8082
==I
S #STAT28
M01d: ON #STAT25
ON #STAT26
ON #STAT27
JC M01e
L #STAT84[1]
L #STAT85[1]
XOD
T #STAT86[1]
L #STAT84[2]
L #STAT85[2]
XOD
T #STAT86[2]
L #STAT84[3]
L #STAT85[3]
XOD
T #STAT86[3]
L #STAT84[4]
Page 71
 TRUMPF_STL_PROGRAM
L #STAT85[4]
XOD
T #STAT86[4]
A #STAT28
JCN M01f
L DW#16#0
T #STAT87[1]
T #STAT87[2]
T #STAT87[3]
T #STAT87[4]
L #STAT86[1]
T #STAT88[1]
T #STAT89[1]
L #STAT86[2]
T #STAT88[2]
T #STAT89[2]
L #STAT86[3]
T #STAT88[3]
T #STAT89[3]
L #STAT86[4]
T #STAT88[4]
T #STAT89[4]
JU M020
M01f: L #STAT88[1]
T #STAT89[1]
L #STAT86[1]
XOD
T #STAT87[1]
L #STAT88[2]
T #STAT89[2]
L #STAT86[2]
XOD
T #STAT87[2]
L #STAT88[3]
T #STAT89[3]
L #STAT86[3]
XOD
T #STAT87[3]
L #STAT88[4]
T #STAT89[4]
L #STAT86[4]
XOD
T #STAT87[4]
M020: SET
S #STAT29
JU M01e

7:
M019: A #STAT33
JC M009
A #STAT35
JC M008
Page 72
 TRUMPF_STL_PROGRAM
LAR1 P##STAT81
L DIB [AR1,P#0.0]
L #TEMP102
<>I
= #STAT45
JC M002
A #STAT32
JC M021
L 0
T #STAT54
LAR1 P##STAT88
L 4
M022: T #TEMP104
L DID [AR1,P#0.0]
T #TEMP105
L 32
M023: T #TEMP103
L #TEMP105
SLD 1
T #TEMP105
JZ M024
L #STAT54
INC 1
T #STAT54
M024: L #TEMP103
LOOP M023
+AR1 P#4.0
L #TEMP104
LOOP M022
L #STAT54
L 0
<>I
R #OUT8
LAR1 #STAT56
AN #STAT94
JC M025
R #STAT43
L P##STAT88
T #STAT56
L #STAT101
T #STAT65
A #STAT98
FP #STAT39
= #STAT34
JC M026
LAR2 P##STAT82
A DIX [AR2,P#1.0]
X DIX [AR2,P#1.1]
A #STAT96
FP #STAT37
JC M027
JU M01e
Page 73
 TRUMPF_STL_PROGRAM
M025: A #OUT8
JC M028
A #STAT95
FP #STAT36
JC M029
A DIX [AR1,P#0.0]
A #STAT96
FP #STAT37
JC M027
A #STAT40
A DIX [AR1,P#0.0]
A #STAT30
JC M02a
A #STAT40
A DIX [AR1,P#0.0]
AN #STAT30
JC M01e
A #STAT43
A DIX [AR1,P#0.0]
A #STAT30
JC M02a
A #STAT43
A DIX [AR1,P#0.0]
AN #STAT30
JC M01e
JU M02b
M028: LAR2 P##STAT82
L DW#16#0
T DID [AR2,P#0.0]
T DID [AR2,P#4.0]
T DID [AR2,P#8.0]
T DID [AR2,P#12.0]
T DID [AR2,P#16.0]
T DIW [AR2,P#20.0]
LAR1 P##STAT83
L 61
M02c: T #TEMP103
L DW#16#0
T DID [AR1,P#0.0]
+AR1 P#4.0
L #TEMP103
LOOP M02c
JU M01e
8:
M02b: A #STAT43
JC M02d
S #STAT43
M02d: LAR1 P##STAT88
L 4
M02e: T #TEMP104
L DID [AR1,P#0.0]
CAD
Page 74
 TRUMPF_STL_PROGRAM
T #TEMP105
L 32
M02f: T #TEMP103
L #TEMP105
SRD 1
T #TEMP105
JN M030
L #TEMP103
LOOP M02f
+AR1 P#4.0
L #TEMP104
LOOP M02e
L 0
T #STAT54
JU M002
M030: L 4
L #TEMP104
‐I
L 32
*I
T #TEMP105
L 32
L #TEMP103
‐I
INC 1
L #TEMP105
+I
T #STAT65
L 8
/I
T #TEMP105
AD DW#16#FFFF
T #TEMP106
L DW#16#0
L #TEMP105
SRD 16
<>D
JC M031
L B#16#8
T #TEMP105
L #TEMP106
DEC 1
T #TEMP106
TAK
M031: DEC 1
L #TEMP106
SLD 3
+D
L P##STAT88
+D
T #STAT56
JU M026
Page 75
 TRUMPF_STL_PROGRAM

9:

M029: A #STAT40
JC M032
S #STAT40
M032: LAR1 #STAT56
L P#0.1
+AR1
TAR1
AD DW#16#7
T #TEMP105
TAR1
AD DW#16#FFF8
T #TEMP106
L P##STAT88
AD DW#16#FFFF
L #TEMP106
TAK
‐D
L #TEMP105
+D
L 1
+D
T #STAT65
L P##STAT88
L P#15.5
+D
T #TEMP105
L 126
M033: T #TEMP103
TAR1
L #TEMP105
<=I
JC M034
LAR1 P##STAT88
L 1
T #STAT65
M034: A DIX [AR1,P#0.0]
JC M035
L #STAT65
INC 1
T #STAT65
+AR1 P#0.1
L #TEMP103
LOOP M033
M035: TAR1 #STAT56
JU M026
10:

M02a: R #STAT30
AN #STAT31
Page 76
 TRUMPF_STL_PROGRAM
JC M01e
M026: R #STAT30
R #STAT31
LAR2 P##STAT82
L DW#16#0
T DID [AR2,P#0.0]
T DID [AR2,P#4.0]
T DID [AR2,P#8.0]
T DID [AR2,P#12.0]
T DID [AR2,P#16.0]
T DIW [AR2,P#20.0]
L #STAT65
T DIB [AR2,P#0.0]
L W#16#0
M036: T #TEMP117
CALL SFC 5
IN0 :=#TEMP115
IN1 :=#STAT65
IN2 :=#TEMP117
IN3 :=B#16#0
IN4 :=W#16#0
RET_VAL:=#TEMP107
OUT5 :=#TEMP114
OUT6 :=#TEMP113
AN BR
A #STAT53
R #STAT53
JC M037
AN BR
= #STAT53
L W#16#2
JC M036
L #TEMP113
T DIW [AR2,P#6.0]
M021: LAR2 P##STAT82
L DIW [AR2,P#6.0]
T #TEMP113
CALL SFC 13
IN0 :=TRUE
IN1 :=#TEMP113
RET_VAL:=#TEMP107
OUT2 :=#STAT83
OUT3 :=#STAT46
L #TEMP107
T #STAT59
AN BR
R #STAT32
JC M037
AN #STAT46
R #STAT32
JC M038
S #STAT32
Page 77
 TRUMPF_STL_PROGRAM
JU M002
M038: LAR1 P##STAT83
A DIX [AR1,P#0.3]
O DIX [AR1,P#1.1]
S DIX [AR2,P#1.1]
A DIX [AR1,P#0.0]
O DIX [AR1,P#0.1]
O DIX [AR1,P#0.5]
O DIX [AR1,P#1.0]
O DIX [AR1,P#1.7]
S DIX [AR2,P#1.0]
R DIX [AR2,P#1.1]
L DIW [AR1,P#4.0]
T DIW [AR2,P#2.0]
JU M039
M037: LAR1 P##STAT83
L B#16#3
T DIB [AR2,P#1.0]
L B#16#0
T #STAT59
M039: L #STAT59
SLD 3
+AR1
L 244
L #STAT59
‐I
M03a: T #TEMP103
L B#16#0
T DIB [AR1,P#0.0]
+AR1 P#1.0
L #TEMP103
LOOP M03a
L 6
T #STAT60
L 0
T #STAT64
T #STAT61
L P##STAT83
T #STAT57
SET
R #STAT41
R #STAT42
R #STAT48
R #STAT49
R #STAT50
R #STAT51
A #STAT34
JC M027
A DIX [AR2,P#1.0]
X DIX [AR2,P#1.1]
JCN M01e

Page 78
 TRUMPF_STL_PROGRAM
11:

M027: A #STAT41
JC M03b
S #STAT41
JC M03c
M03b: L P##STAT83
L #STAT60
SLD 3
+D
L #STAT57
>I
JC M03d
M03c: R #STAT42
LAR1 P##STAT83
L #STAT60
SLD 3
+AR1
TAR1 #STAT66
TAR1 #STAT57
L DIB [AR1,P#0.0]
SRW 6
T #STAT62
L B#16#3
<>I
JC M03e
L #STAT60
INC 1
T #STAT60
JU M03f
M03e: L DIB [AR1,P#0.0]
AW W#16#80
L B#16#3
JN M040
L DIB [AR1,P#0.0]
AW W#16#3F
M040: T #STAT61
L #STAT60
+I
T #STAT60
L #STAT59
>I
JC M01e
L #STAT61
L B#16#0
==I
JC M01e
M03d: L #STAT62
JL M041
JU M042
JU M043
JU M044
Page 79
 TRUMPF_STL_PROGRAM
M041: JU M045
M042: LAR1 #STAT66
LAR2 P##STAT82
A(
L DIB [AR1,P#1.0]
L B#16#82
==I
)
A(
L DIW [AR1,P#2.0]
L 0
==I
)
JC M046
L DIW [AR2,P#2.0]
SRW 8
L W#16#80
<>I
A(
TAK
L W#16#81
<>I
)
= #STAT52
JC M045
L #STAT61
L B#16#13
<>I
JC M047
L DIB [AR1,P#1.0]
L B#16#A0
<>I
JC M047
L DW#16#0
T DID [AR2,P#8.0]
T DID [AR2,P#12.0]
T DID [AR2,P#16.0]
T DIW [AR2,P#20.0]
L DIB [AR1,P#6.0]
L B#16#FF
==I
JC M03f
L B#16#6
T DIB [AR2,P#5.0]
L #STAT64
INC 1
T #STAT64
T DIB [AR2,P#4.0]
L DIB [AR1,P#4.0]
SRW 4
JL M048
JU M048
Page 80
 TRUMPF_STL_PROGRAM
JU M049
JU M04a
JU M048
JU M04b
JU M048
JU M048
JU M048
JU M04c
M048: L 0
JU M04d
M049: L 3
JU M04d
M04a: L 2
JU M04d
M04b: L 1
JU M04d
M04c: L 4
M04d: T DIB [AR2,P#10.0]
L DIB [AR1,P#6.0]
T DIB [AR2,P#11.0]
L B#16#7F
L DIB [AR1,P#7.0]
AW W#16#7F
<>I
JC M04e
L B#16#FF
M04e: T DIB [AR2,P#12.0]
L B#16#7F
L DIB [AR1,P#8.0]
AW W#16#7F
<>I
JC M04f
L B#16#FF
M04f: T DIB [AR2,P#13.0]
A DIX [AR2,P#12.7]
L W#16#FFFF
JC M050
L DIW [AR1,P#9.0]
L 10
/I
M050: T DIW [AR2,P#14.0]
A DIX [AR2,P#13.7]
L W#16#FFFF
JC M051
L DIW [AR1,P#11.0]
L 10
/I
M051: T DIW [AR2,P#16.0]
L DIW [AR1,P#13.0]
L 10
/I
T DIW [AR2,P#18.0]
Page 81
 TRUMPF_STL_PROGRAM
L DID [AR1,P#15.0]
CAD
T #TEMP105
L 545
T #TEMP106
L 32
M052: T #TEMP103
L #TEMP106
INC 1
T #TEMP106
L #TEMP105
SRD 1
T #TEMP105
JN M053
L #TEMP103
LOOP M052
M053: L #TEMP106
T DIW [AR2,P#20.0]
L #STAT57
L #STAT61
SLD 3
+D
T #STAT57
L P##STAT83
L #STAT59
SLD 3
+D
L #STAT57
>D
JC M01e
JU M054
M047: NOP 0
L DIW [AR2,P#2.0]
L W#16#80DA
==I
JC M055
TAK
L W#16#80DB
==I
JC M055
TAK
L W#16#80DC
==I
JC M055
TAK
L W#16#80DD
==I
JC M055
TAK
L W#16#80FB
==I
JC M055
Page 82
 TRUMPF_STL_PROGRAM
TAK
L W#16#80FC
==I
JC M055
JU M056
M055: NOP 0
L DW#16#0
T DID [AR2,P#8.0]
T DID [AR2,P#12.0]
T DID [AR2,P#16.0]
T DIW [AR2,P#20.0]
L DIB [AR1,P#1.0]
L 0
==I
JC M03f
L B#16#7
T DIB [AR2,P#5.0]
L DIB [AR1,P#1.0]
L W#16#3
AW
L 569
+I
T DIW [AR2,P#20.0]
JU M03f
M056: L #STAT61
L B#16#30
>I
= #STAT52
JC M045
TAK
L B#16#8
<I
= #STAT52
JC M045
A #STAT42
JC M057
S #STAT42
LAR1 #STAT66
L DIB [AR1,P#1.0]
L B#16#1
<>I
= #STAT52
JC M045
S #STAT50
AN DIX [AR1,P#4.0]
JC M045
S #STAT51
L DW#16#0
T DID [AR2,P#8.0]
T DID [AR2,P#12.0]
T DID [AR2,P#16.0]
T DIW [AR2,P#20.0]
Page 83
 TRUMPF_STL_PROGRAM
L B#16#4
T DIB [AR2,P#5.0]
L DIB [AR1,P#2.0]
T DIB [AR2,P#8.0]
L DID [AR1,P#4.0]
T DID [AR2,P#16.0]
CAD
AD DW#16#FFFF00F0
T #TEMP105
L 512
T #TEMP106
L 32
M058: T #TEMP103
L #TEMP106
INC 1
T #TEMP106
L #TEMP105
SRD 1
T #TEMP105
JN M059
L #TEMP103
LOOP M058
M059: L #TEMP106
T DIW [AR2,P#20.0]
L #STAT61
L B#16#8
==I
JC M05a
L DIB [AR1,P#8.0]
T DIB [AR2,P#11.0]
L W#16#60
<>I
JC M05b
L 32
T DIW [AR2,P#20.0]
L DID [AR1,P#11.0]
T DID [AR2,P#12.0]
L DIB [AR1,P#10.0]
L W#16#20
<=I
JC M05b
L DID [AR1,P#15.0]
T DID [AR2,P#16.0]
M05b: NOP 0
L 0
T #TEMP104
L DIB [AR1,P#8.0]
SRW 4
L W#16#7
==I
JC M05c
TAK
Page 84
 TRUMPF_STL_PROGRAM
L W#16#6
==I
JCN M05a
L DIB [AR1,P#8.0]
L B#16#61
==I
JC M05c
TAK
L B#16#63
==I
JC M05c
TAK
L B#16#65
==I
JC M05d
JU M05a
M05d: NOP 0
L 387
T #TEMP104
M05c: NOP 0
L DIB [AR1,P#9.0]
L B#16#0
==I
JC M05a
L DIB [AR1,P#11.0]
==I
JC M05a
L ‐1
T DIB [AR2,P#10.0]
L DIB [AR1,P#10.0]
T #STAT63
L #STAT66
L P#11.0
+D
T #STAT57
LAR1
M057: L #STAT63
M05e: T #TEMP103
LAR1 #STAT57
L DIB [AR2,P#10.0]
INC 1
T DIB [AR2,P#10.0]
L #STAT63
DEC 1
T #STAT63
L #STAT57
L P#0.1
+D
T #STAT57
A DIX [AR1,P#0.0]
JC M05f
L #TEMP103
Page 85
 TRUMPF_STL_PROGRAM
LOOP M05e
JU M03f
M05f: LAR1 #STAT66
L DIB [AR1,P#9.0]
SRW 3
T #TEMP106
L DIB [AR2,P#10.0]
*I
T #TEMP105
L DIB [AR1,P#10.0]
INC 7
L 8
/I
L #TEMP105
+I
INC 11
SLD 3
+AR1
L #TEMP106
JL M060
JU M060
JU M061
JU M062
JU M060
JU M063
M060: L DW#16#0
JU M064
M061: L DIB [AR1,P#0.0]
SLD 24
JU M064
M062: L DIW [AR1,P#0.0]
SLD 16
JU M064
M063: L DID [AR1,P#0.0]
M064: T DID [AR2,P#12.0]
CAD
T #TEMP105
L 0
T #TEMP106
L 32
M065: T #TEMP103
L #TEMP106
INC 1
T #TEMP106
L #TEMP105
SRD 1
T #TEMP105
JN M066
L #TEMP103
LOOP M065
M066: L DIB [AR2,P#11.0]
AW W#16#F
Page 86
 TRUMPF_STL_PROGRAM
SLW 5
+ 32
L #TEMP106
+I
L #TEMP104
+I
T DIW [AR2,P#20.0]
L #STAT64
INC 1
T #STAT64
T DIB [AR2,P#4.0]
L #STAT63
L 0
>I
JC M01e
L P##STAT83
L #STAT60
SLD 3
+D
T #STAT57
L P##STAT83
L #STAT59
SLD 3
+D
L #STAT57
>D
JC M01e
JU M054
M045: L DW#16#0
T DID [AR2,P#8.0]
T DID [AR2,P#12.0]
T DID [AR2,P#16.0]
T DIW [AR2,P#20.0]
T DIW [AR2,P#4.0]
A #STAT52
JC M067
A #STAT50
A #STAT48
JC M03f
AN DIX [AR2,P#1.0]
AN DIX [AR2,P#1.1]
O #STAT50
JC M068
M067: L B#16#5
T DIB [AR2,P#5.0]
L 545
T DIW [AR2,P#20.0]
M05a: L #STAT64
INC 1
T #STAT64
T DIB [AR2,P#4.0]
M068: L #STAT57
Page 87
 TRUMPF_STL_PROGRAM
L #STAT61
SLD 3
+D
T #STAT57
L P##STAT83
L #STAT59
SLD 3
+D
L #STAT57
>D
JC M01e
JU M054
M046: A #STAT42
JC M069
S #STAT42
L #STAT61
DEC 4
SLW 2
T #STAT63
L #STAT57
L P#4.0
+D
T #STAT57
L DW#16#0
T DID [AR2,P#8.0]
T DID [AR2,P#12.0]
T DID [AR2,P#16.0]
T DIW [AR2,P#20.0]
M069: L #STAT63
M06a: T #TEMP103
LAR1 #STAT57
L DIB [AR2,P#8.0]
INC 1
T DIB [AR2,P#8.0]
L #STAT63
DEC 1
T #STAT63
L #STAT57
L P#0.2
+D
T #STAT57
A DIX [AR1,P#0.0]
O DIX [AR1,P#0.1]
JC M06b
L #TEMP103
LOOP M06a
JU M03f
M06b: A DIX [AR1,P#0.0]
= DIX [AR2,P#9.0]
A DIX [AR1,P#0.1]
= DIX [AR2,P#9.1]
L B#16#2
Page 88
 TRUMPF_STL_PROGRAM
T DIB [AR2,P#5.0]
L #STAT64
INC 1
T #STAT64
T DIB [AR2,P#4.0]
L #STAT63
L 0
>I
JC M01e
L P##STAT83
L #STAT60
SLD 3
+D
T #STAT57
L P##STAT83
L #STAT59
SLD 3
+D
L #STAT57
>D
JC M01e
JU M054
M043: LAR2 P##STAT82
A #STAT42
JC M06c
S #STAT42
L #STAT61
DEC 1
SLW 3
T #STAT63
L #STAT57
L P#1.0
+D
T #STAT57
L DW#16#0
T DID [AR2,P#8.0]
T DID [AR2,P#12.0]
T DID [AR2,P#16.0]
T DIW [AR2,P#20.0]
M06c: L #STAT63
M06d: T #TEMP103
LAR1 #STAT57
A(
O(
L DIW [AR2,P#2.0]
L W#16#803C
==I
)
O(
L DIW [AR2,P#2.0]
L W#16#803D
==I
Page 89
 TRUMPF_STL_PROGRAM
)
)
A(
L DIB [AR2,P#8.0]
L 11
>I
)
JC M03f
L DIB [AR2,P#8.0]
INC 1
T DIB [AR2,P#8.0]
L #STAT63
DEC 1
T #STAT63
L #STAT57
L P#0.1
+D
T #STAT57
A DIX [AR1,P#0.0]
JC M06e
L #TEMP103
LOOP M06d
JU M03f
M06e: A #STAT48
AN #STAT49
AN #STAT51
JC M06f
S #STAT48
L #STAT59
L #STAT60
>I
JC M03f
M06f: L B#16#1
T DIB [AR2,P#5.0]
L #STAT64
INC 1
T #STAT64
T DIB [AR2,P#4.0]
L #STAT63
L 0
>I
JC M01e
L P##STAT83
L #STAT60
SLD 3
+D
T #STAT57
L P##STAT83
L #STAT59
SLD 3
+D
L #STAT57
Page 90
 TRUMPF_STL_PROGRAM
>D
JC M01e
JU M054
M044: S #STAT49
R #STAT41
LAR2 P##STAT82
L DW#16#0
T DID [AR2,P#8.0]
T DID [AR2,P#12.0]
T DID [AR2,P#16.0]
T DIW [AR2,P#20.0]
LAR1 #STAT57
L DIB [AR1,P#0.0]
AW W#16#3F
INC 1
T DIB [AR2,P#8.0]
L DIB [AR1,P#1.0]
AW W#16#3F
T DIB [AR2,P#10.0]
L DIB [AR1,P#1.0]
SRW 6
T DIB [AR2,P#11.0]
L DW#16#1
T #TEMP105
L B#16#0
L DIB [AR1,P#2.0]
AW W#16#1F
T DIW [AR2,P#20.0]
==I
JC M070
M071: T #TEMP103
L #TEMP105
SLD 1
T #TEMP105
L #TEMP103
LOOP M071
M070: L #TEMP105
CAD
T DID [AR2,P#12.0]
L B#16#3
T DIB [AR2,P#5.0]
L #STAT64
INC 1
T #STAT64
T DIB [AR2,P#4.0]
L #STAT57
L P#3.0
+D
T #STAT57
L P##STAT83
L #STAT59
SLD 3
Page 91
 TRUMPF_STL_PROGRAM
+D
L #STAT57
>D
JC M01e
M054: R #STAT41
L #STAT64
T DIB [AR2,P#4.0]
L 6
T #STAT60
L 0
T #STAT61
T #STAT64
L P##STAT83
T #STAT57
JU M01e
M03f: L #STAT59
L #STAT60
>I
JC M03c
L 6
T #STAT60
L 0
T #STAT61
T #STAT64
T #STAT63
T DIB [AR2,P#8.0]
L P##STAT83
T #STAT57
A(
L DIB [AR2,P#4.0]
L 0
==I
)
AN #STAT48
R #STAT41
JC M01e
JU M03c
12:
M01e: LAR2 P##STAT82
L B#16#0
T #OUT22
L DIB [AR2,P#0.0]
T #OUT10
==I
JC M072
DEC 1
SLD 3
L P##STAT90
+D
LAR1
L DIB [AR1,P#0.0]
T #OUT22
Page 92
 TRUMPF_STL_PROGRAM
M072: L DIB [AR2,P#1.0]
T #OUT11
L DIW [AR2,P#2.0]
T #OUT12
L DIB [AR2,P#4.0]
T #OUT13
L DIB [AR2,P#5.0]
T #OUT14
L DIB [AR2,P#8.0]
T #OUT15
L DIB [AR2,P#9.0]
T #OUT16
L DIB [AR2,P#10.0]
T #OUT17
L DIB [AR2,P#11.0]
T #OUT18
L DIW [AR2,P#20.0]
T #OUT19
L DID [AR2,P#12.0]
T #OUT20
L DID [AR2,P#16.0]
T #OUT21
L #STAT54
T #OUT9

FC1:
OPN DI 5
AN DIX 165.7
= #TEMP30
A #TEMP30
= DB8.DBX 56.0
L DB1.DBW 4
CAW
T #TEMP13
SLD 3
LAR1
L DBW [AR1,P#0.0]
CAW
L #TEMP13
+I
T DIW 158
L DBW [AR1,P#2.0]
CAW
T DIW 156
L DBW 6
CAW
SLD 3
LAR1
L DBW [AR1,P#0.0]
CAW
SLW 3
+AR1
Page 93
 TRUMPF_STL_PROGRAM
L DBW [AR1,P#6.0]
CAW
T DIW 192
L DBW [AR1,P#8.0]
CAW
T DIW 16
OPN DB 1
L DBW [AR1,P#4.0]
CAW
T #TEMP28
L DBW 8
CAW
T #TEMP13
SLD 3
LAR1
L DBW [AR1,P#0.0]
CAW
T #TEMP12
SLW 3
+D
T #TEMP11
L #TEMP12
L #TEMP13
+D
T DIW 238
L DBW [AR1,P#4.0]
CAW
+D
T DIW 178
L DBW [AR1,P#6.0]
CAW
T DIW 176
LAR1 #TEMP11
LAR2 P#20.0
L B#16#8
M001: L DBW [AR1,P#0.0]
CAW
T DIW [AR2,P#0.0]
+AR1 P#2.0
+AR2 P#2.0
TAK
LOOP M001
L DBW [AR1,P#20.0]
CAW
T #TEMP21
T DIW 182
L DBW [AR1,P#26.0]
T DIW 204
L DBD [AR1,P#28.0]
T DID 46
L DBW [AR1,P#32.0]
T DIW 242
Page 94
 TRUMPF_STL_PROGRAM
+AR1 P#22.0
TAR1 DID 184
L DBW 10
CAW
T #TEMP13
SLD 3
LAR1
L DBW [AR1,P#0.0]
CAW
L #TEMP13
+I
T DIW 0
L DBW [AR1,P#4.0]
CAW
+I
T DIW 2
L DBW [AR1,P#4.0]
CAW
SRW 1
T DIW 32
L DBW [AR1,P#6.0]
CAW
T DIW 4
L DBW 14
CAW
T #TEMP13
SLD 3
LAR1
L DBW [AR1,P#0.0]
CAW
L #TEMP13
+I
T DIW 42
L DBW [AR1,P#4.0]
CAW
+I
T DIW 44
L DBW [AR1,P#2.0]
CAW
T DIW 40
L DBW 18
CAW
T #TEMP13
SLD 3
LAR1
L DBW [AR1,P#0.0]
CAW
L #TEMP13
+I
T DIW 56
L DBW [AR1,P#4.0]
CAW
Page 95
 TRUMPF_STL_PROGRAM
+I
T DIW 58
L DBW [AR1,P#2.0]
CAW
T DIW 54
L DBW 12
CAW
T #TEMP13
SLD 3
LAR1
L DBW [AR1,P#0.0]
CAW
L #TEMP13
+I
T DIW 38
L DBW [AR1,P#2.0]
CAW
T DIW 36
L DBW 16
CAW
T #TEMP13
SLD 3
LAR1
L DBW [AR1,P#0.0]
CAW
L #TEMP13
+I
T DIW 52
L DBW [AR1,P#2.0]
CAW
T DIW 50
L DBW 20
CAW
T #TEMP13
SLD 3
LAR1
L DBW [AR1,P#0.0]
CAW
L #TEMP13
+I
T DIW 66
L DBW [AR1,P#2.0]
CAW
T DIW 64
L DBW 22
CAW
T #TEMP13
SLD 3
LAR1
L DBW [AR1,P#0.0]
CAW
L #TEMP13
Page 96
 TRUMPF_STL_PROGRAM
+I
T DIW 70
L DBW [AR1,P#2.0]
CAW
T DIW 68
L DBW 24
CAW
T #TEMP13
SLD 3
LAR1
L DBW [AR1,P#0.0]
CAW
L #TEMP13
+I
T DIW 76
L DBW [AR1,P#4.0]
CAW
+I
T DIW 78
L DBW [AR1,P#2.0]
CAW
T DIW 72
L DBW [AR1,P#4.0]
CAW
T DIW 14
L DBW [AR1,P#6.0]
CAW
T DIW 74
L DIW 16
*I
T DIW 10
L DBW 26
CAW
T #TEMP13
SLD 3
LAR1
L DBW [AR1,P#0.0]
CAW
L #TEMP13
+I
T DIW 82
L DBW [AR1,P#4.0]
CAW
T DIW 80
L DBW 28
CAW
T #TEMP13
SLD 3
LAR1
L DBW [AR1,P#0.0]
CAW
L #TEMP13
Page 97
 TRUMPF_STL_PROGRAM
+I
T DIW 88
L DBW [AR1,P#4.0]
CAW
+I
T DIW 90
L DBW [AR1,P#6.0]
CAW
L DIW 16
*I
L DIW 90
+I
T DIW 60
L DBW [AR1,P#8.0]
CAW
+I
T DIW 62
L DBW [AR1,P#2.0]
CAW
T DIW 84
L DBW [AR1,P#4.0]
CAW
T DIW 12
L DBW [AR1,P#6.0]
CAW
T DIW 86
L DBW 30
CAW
T #TEMP13
SLD 3
LAR1
L DBW [AR1,P#0.0]
CAW
L #TEMP13
+I
T DIW 96
L DBW [AR1,P#4.0]
CAW
+I
T DIW 98
L DBW [AR1,P#2.0]
CAW
T DIW 92
L DBW [AR1,P#6.0]
CAW
T DIW 94
L DBW 32
CAW
T #TEMP13
SLD 3
LAR1
L DBW [AR1,P#0.0]
Page 98
 TRUMPF_STL_PROGRAM
CAW
L #TEMP13
+I
T DIW 104
L DBW [AR1,P#4.0]
CAW
+I
T DIW 106
L DBW [AR1,P#2.0]
CAW
T DIW 100
L DBW [AR1,P#6.0]
CAW
T DIW 102
L DBW 34
CAW
T #TEMP13
SLD 3
LAR1
L DBW [AR1,P#0.0]
CAW
L #TEMP13
+I
T DIW 110
L DBW [AR1,P#4.0]
CAW
+I
T DIW 112
L DBW [AR1,P#6.0]
CAW
+I
T DIW 114
L DBW [AR1,P#8.0]
CAW
+I
T DIW 116
L DBW [AR1,P#10.0]
CAW
+I
T DIW 118
L DBW [AR1,P#12.0]
CAW
+I
T DIW 120
L DBW [AR1,P#2.0]
CAW
T DIW 108
L DBW 36
CAW
T #TEMP13
SLD 3
LAR1
Page 99
 TRUMPF_STL_PROGRAM
L DBW [AR1,P#0.0]
CAW
L #TEMP13
+I
T DIW 124
L DBW [AR1,P#4.0]
CAW
+I
T DIW 126
L DBW [AR1,P#6.0]
CAW
+I
T DIW 128
L DBW [AR1,P#8.0]
CAW
+I
T DIW 130
L DBW [AR1,P#10.0]
CAW
+I
T DIW 132
L DBW [AR1,P#12.0]
CAW
+I
T DIW 134
L DBW [AR1,P#2.0]
CAW
T DIW 122
L DBW [AR1,P#4.0]
CAW
T DIW 6
‐I
T DIW 8
L DB1.DBW 46
CAW
T #TEMP13
SLD 3
LAR1
L DBW [AR1,P#0.0]
CAW
L #TEMP13
+I
T DIW 166
L DBW [AR1,P#4.0]
CAW
+I
T DIW 168
SLD 3
LAR2
L DIW 168
L DBW [AR1,P#6.0]
CAW
Page 100
 TRUMPF_STL_PROGRAM
+I
T DIW 170
L DBW [AR1,P#6.0]
CAW
+I
T DIW 172
L DBW [AR2,P#2.0]
CAW
L DBW [AR1,P#8.0]
CAW
*I
L DIW 172
+I
T DIW 174
L DBW 54
CAW
T #TEMP13
SLD 3
LAR1
L DBW [AR1,P#0.0]
CAW
L #TEMP13
+I
SLD 3
T DID 226
SLW 3
L B#16#8
T DIW 230
L DBW 56
CAW
T #TEMP13
SLD 3
LAR1
L DBW [AR1,P#0.0]
CAW
L #TEMP13
+I
SLD 3
T DID 232
L B#16#8
T DIW 236
OPN DB 1
OPN DI 5
L DBW 58
CAW
T #TEMP13
SLD 3
LAR1
L DBW [AR1,P#0.0]
CAW
L #TEMP13
+I
Page 101
 TRUMPF_STL_PROGRAM
T DIW 246
L DBW [AR1,P#2.0]
CAW
T DIW 244
L DBW 68
CAW
T #TEMP13
SLD 3
LAR1
L DBW [AR1,P#0.0]
CAW
L #TEMP13
+I
T DIW 256
L DBW [AR1,P#2.0]
CAW
T DIW 258
L DBW 76
CAW
T #TEMP13
SLD 3
LAR1
L DBW [AR1,P#0.0]
CAW
L #TEMP13
+I
SLD 3
T DID 262
L DB8.DBW 90
T #TEMP7
OPN DI 5
L B#16#0
T #TEMP9
SET
R DIX 165.0
L 32
T DIW 188
L DIW 100
+I
+ 4
T DIW 28
L B#16#2
L DIW 22
<=I
JC M002
TAK
M002: L DIW 28
*I
L 32
T DIW 18
+I
T DB8.DBW 52
Page 102
 TRUMPF_STL_PROGRAM
L DIW 100
L DIW 18
+I
T DIW 190
L DIW 188
+I
T DIW 30
L B#16#6
T DBW 54
L B#16#1
T DBB 57
UC FB 18
L 50
T #TEMP14
L B#16#0
L #IN0
==I
JC M003
T #TEMP11
L DB8.DBW 50
>I
JC M004
OPN DB 75
LAR1 P#0.0
L #TEMP11
M005: T #TEMP11
L DBD [AR1,P#6.0]
L DBD [AR1,P#2.0]
‐D
L 16
<D
JCN M004
TAK
L B#16#0
>=D
JCN M004
+AR1 P#10.0
L #TEMP11
LOOP M005
L DIW 188
T DB8.DBW 52
L 76
T DBW 54
L B#16#1
T DBB 57
UC FB 18
M003: NOP 0
A #TEMP30
S DB8.DBX 56.0
OPN DB 8
OPN DI 6
LAR1 P#66.0
Page 103
 TRUMPF_STL_PROGRAM
LAR2 P#0.0
L 12
M006: L DBW [AR1,P#0.0]
T DIW [AR2,P#0.0]
+AR1 P#2.0
+AR2 P#2.0
TAK
LOOP M006
A DB5.DBX 165.0
JC M007
BE
M004: CALL FC 20
IN0:=41
IN1:=1
IN2:=#TEMP14
IN3:=0
IN4:=TRUE
M007: CALL SFC 46

FC2:
L STW
T #TEMP12
UC FB 15
L #TEMP12
T STW
OPN DB 8
OPN DI 19
SET
R #TEMP10
L B#16#0
L DIB 40
<>I
JC M001
L B#16#0
L DIB 90
==I
JC M002
S #TEMP10
M001: + ‐1
LAR1
AN DBX [AR1,P#92.0]
S DBX [AR1,P#92.0]
JC M003
A #TEMP10
JC M004
S DIX 44.0
L DIB 41
T #TEMP11
L B#16#14
+I
T #TEMP1
OPN DB [#TEMP1]
Page 104
 TRUMPF_STL_PROGRAM
A DBX 7.1
S DIX 44.1
CALL FC 9
IN0 :=DB19.DBX42.0
IN1 :=#TEMP11
IN2 :=9
OUT3:=DB19.DBX45.0
OUT4:=DB19.DBX45.1
OUT5:=DB19.DBX45.2
OUT6:=DB19.DBX45.3
IO7 :=DB19.DBW46
OPN DB 8
JU M003
M004: S DIX 94.0
L DIB 91
T #TEMP11
L B#16#14
+I
T #TEMP1
OPN DB [#TEMP1]
A DBX 7.1
S DIX 94.1
CALL FC 9
IN0 :=DB19.DBX92.0
IN1 :=#TEMP11
IN2 :=9
OUT3:=DB19.DBX95.0
OUT4:=DB19.DBX95.1
OUT5:=DB19.DBX95.2
OUT6:=DB19.DBX95.3
IO7 :=DB19.DBW96
OPN DB 8
JU M003
M002: L B#16#0
T DID 44
T DID 94
T DBW 92
M003: L DB5.DBW 22
M005: T #TEMP4
DEC 1
T #TEMP5
CALL FC 11
IN0 :=#TEMP5
IN1 :=FALSE
OUT2:=#TEMP9
L #TEMP4
LOOP M005
AN DB7.DBX 116.0
JC M006
CALL FB 6 , DB15
IN0:=B#16#3
IN1:=
Page 105
 TRUMPF_STL_PROGRAM
IN2:=
IN3:=
CALL FB 6 , DB15
IN0:=B#16#2
IN1:=
IN2:=
IN3:=
M006: BE

FC3:
A DB7.DBX 120.0
= #TEMP8
OPN DB 1
OPN DI 5
L DW#16#87000000
LAR1
L W [AR1,P#6.0]
L 256
==I
JC M001
AN #TEMP8
BEC
R [AR1,P#20.0]
BEU
M001: NOP 0
L STW
T #TEMP11
TAR1 #TEMP9
TAR2 #TEMP10
UC FB 15
LAR1 #TEMP9
LAR2 #TEMP10
L #TEMP11
T STW
AN #TEMP8
JC M002
L B#16#0
T D [AR1,P#20.0]
T D [AR1,P#24.0]
T W [AR1,P#28.0]
S [AR1,P#20.0]
M002: L B [AR1,P#8.0]
DEC 1
L DIW 32
*I
L DIW 0
+I
SLD 3
T #TEMP2
LAR1
L DBB [AR1,P#0.0]
OW W#16#0
Page 106
 TRUMPF_STL_PROGRAM
JZ M003
M004: T #TEMP3
SLW 1
+ 6
SLW 3
+AR1
L DBB [AR1,P#1.0]
T #TEMP4
DEC 1
T #TEMP5
L DBB [AR1,P#0.0]
JL M005
JU M005
JU M006
JU M007
JU M007
JU M007
JU M007
JU M007
JU M007
JU M007
M005: JU M007
M006: SET
R #TEMP7
L DB6.DBB 24
OW W#16#0
JZ M008
CALL FC 11
IN0 :=#TEMP5
IN1 :=TRUE
OUT2:=#TEMP7
AN #TEMP8
JC M008
L DW#16#87000000
LAR1
L #TEMP5
+AR1
A #TEMP7
= [AR1,P#26.0]
M008: L #TEMP5
LAR2
SET
S DBX [AR2,P#28.0]
A DBX [AR2,P#14.0]
OPN DB 1
JC M007
L #TEMP5
L DIW 100
*I
L DIW 104
+I
SLD 3
Page 107
 TRUMPF_STL_PROGRAM
LAR1
AN DBX [AR1,P#2.0]
A DBX [AR1,P#2.1]
JCN M007
OPN DB 6
A #TEMP7
AN DBX [AR2,P#26.0]
R DBX [AR2,P#28.0]
OPN DB 1
JC M009
L #TEMP5
L DIW 28
*I
L DIW 18
+I
SLW 3
LAR2
L DIW 100
SRW 2
OPN DI 6
M00a: L DBD [AR1,P#0.0]
T DID [AR2,P#0.0]
+AR1 P#4.0
+AR2 P#4.0
TAK
LOOP M00a
L #TEMP5
LAR2
OPN DB 6
S DBX [AR2,P#14.0]
R DBX [AR2,P#28.0]
M009: LAR1 P#0.0
JU M00b
M00b: OPN DB 1
OPN DI 5
L #TEMP5
L DIW 4
*I
L DIW 2
+I
SLD 3
+AR1
SET
R DBX [AR1,P#0.0]
M007: OPN DB 1
OPN DI 5
LAR1 #TEMP2
L #TEMP3
LOOP M004
M003: LAR1 #TEMP2
L B#16#0
T DBB [AR1,P#0.0]
Page 108
 TRUMPF_STL_PROGRAM
AN #TEMP8
JC M00c
OPN DB 8
L DW#16#87000000
LAR1
L DBW 12
T W [AR1,P#20.0]
L DBD 14
T D [AR1,P#22.0]
M00c: BE

FC7: L B#16#0
T #OUT3
CLR
= #OUT2
AN #IN0
JC M001
L DB74.DBB 37
OW W#16#0
JZ M002
L #IN1
OW W#16#0
JZ M003
T #TEMP4
<I
JCN M004
M003: L B#16#2
M005: T #OUT3
JU M001
M002: L B#16#1
JU M005
M004: LAR1 DBD 8
L #TEMP4
DEC 1
L P#22.0
*I
+AR1
TAR1 #TEMP8
L DBB [AR1,P#0.0]
OW W#16#0
L B#16#3
JZ M005
TAK
DEC 1
T #TEMP5
SLW 3
L DBB 33
*I
LAR2 DBD 28
+AR2
TAR2 #TEMP9
Page 109
 TRUMPF_STL_PROGRAM
L #TEMP5
SLW 4
LAR2 P#54.0
+AR2
TAR2 #TEMP10
L DBB [AR2,P#0.0]
OW W#16#0
JN M006
OPN DI 1
LAR2 #TEMP9
L B#16#1
T DBB [AR1,P#1.0]
T #TEMP7
CAW
T DIW [AR2,P#2.0]
L DBW [AR1,P#20.0]
T DIW [AR2,P#20.0]
L DBB [AR1,P#18.0]
T #TEMP6
L B#16#8
M007: L DBW [AR1,P#2.0]
CAW
T DIW [AR2,P#4.0]
+AR1 P#2.0
+AR2 P#2.0
TAK
LOOP M007
LAR2 #TEMP9
L #TEMP6
CAW
T DIW [AR2,P#0.0]
LAR1 #TEMP8
LAR2 #TEMP10
L #TEMP4
T DBB [AR2,P#1.0]
L B#16#3
T DBB [AR2,P#0.0]
SET
= DBX [AR1,P#19.7]
JU M001
M006: AN DBX [AR1,P#19.7]
JC M001
OPN DI 1
LAR2 #TEMP9
L DIW [AR2,P#0.0]
OW W#16#0
JN M001
L DID [AR2,P#4.0]
CAD
T #TEMP11
LAR2 #TEMP10
L B#16#0
Page 110
 TRUMPF_STL_PROGRAM
T DBB [AR2,P#0.0]
SET
R DBX [AR1,P#19.7]
OPN DI 73
L #TEMP4
DEC 1
LAR2
CLR
= DIX [AR2,P#0.0]
L B#16#0
T DBW [AR1,P#0.0]
L #TEMP11
T #OUT3
OD DW#16#0
JN M001
SET
= #OUT2
M001: BEU

FC8:
L B#16#0
T #OUT9
CLR
= #OUT8
AN #IN0
JC M001
OPN DB 74
CLR
= #TEMP20
L #IN2
T #TEMP19
L #IN1
T #TEMP11
JL M002
JU M002
JU M003
JU M004
JU M005
JU M006
JU M006
M002: L B#16#1
M007: T #OUT9
JU M001
M008: L B#16#2
JU M007
M003: L DBB 35
JU M009
M004: L DBB 36
JU M009
M006: L B#16#5
T #TEMP11
SET
Page 111
 TRUMPF_STL_PROGRAM
= #TEMP20
OPN DI 5
L DIW 182
L #TEMP19
T #TEMP12
JU M00a
M005: L DBB 37
M009: OW W#16#0
JZ M002
L #TEMP19
T #TEMP12
M00a: OW W#16#0
JZ M008
<I
JC M008
L #TEMP11
DEC 1
SLW 5
LAR1
L DBD [AR1,P#0.0]
LAR1
L #TEMP12
DEC 1
L P#22.0
*I
+AR1
TAR1 #TEMP15
L DBB [AR1,P#0.0]
OW W#16#0
AN #TEMP20
JC M00b
JN M00c
M00d: L #TEMP19
JU M00e
M00c: L DBB [AR1,P#18.0]
L B#16#8
>=I
JC M00d
JU M001
M00b: L B#16#3
JZ M007
TAK
M00e: DEC 1
T #TEMP13
SLW 3
L DBB 33
*I
LAR2 DBD 28
+AR2
TAR2 #TEMP16
L #TEMP13
SLW 4
Page 112
 TRUMPF_STL_PROGRAM
LAR2 P#54.0
+AR2
TAR2 #TEMP17
L DBB [AR2,P#0.0]
OW W#16#0
JN M00f
A #TEMP20
JC M010
L #TEMP11
L B#16#1
<>I
JC M011
AN DBX [AR1,P#19.0]
JC M011
L #IN5
T DBW [AR1,P#6.0]
L #IN6
T DBW [AR1,P#8.0]
L B#16#0
T DBD [AR1,P#14.0]
JU M012
M010: L #TEMP19
T DBB [AR1,P#0.0]
L #IN5
T DBW [AR1,P#2.0]
L #IN6
T DBW [AR1,P#4.0]
L #IN3
T DBW [AR1,P#6.0]
L #IN4
T DBW [AR1,P#8.0]
L B#16#0
T DBD [AR1,P#10.0]
T DBD [AR1,P#14.0]
L #IN1
L B#16#5
==I
L W#16#900
JCN M013
L W#16#800
M013: T DBW [AR1,P#18.0]
JU M012
M014: L DBD [AR1,P#2.0]
T DBD [AR1,P#6.0]
JU M015
M016: L DBD [AR1,P#10.0]
T DBD [AR1,P#14.0]
JU M012
M011: L ‐1
L #IN3
==I
JC M014
Page 113
 TRUMPF_STL_PROGRAM
T DBW [AR1,P#6.0]
L #IN4
T DBW [AR1,P#8.0]
M015: L ‐1
L #IN5
==I
JC M016
T DBW [AR1,P#14.0]
L #IN6
T DBW [AR1,P#16.0]
M012: OPN DI 1
LAR2 #TEMP16
L #IN7
T DBB [AR1,P#1.0]
CAW
T DIW [AR2,P#2.0]
L DBW [AR1,P#20.0]
T DIW [AR2,P#20.0]
L DBB [AR1,P#18.0]
T #TEMP14
L B#16#8
M017: L DBW [AR1,P#2.0]
CAW
T DIW [AR2,P#4.0]
+AR1 P#2.0
+AR2 P#2.0
TAK
LOOP M017
LAR2 #TEMP16
L #TEMP14
CAW
T DIW [AR2,P#0.0]
LAR1 #TEMP15
LAR2 #TEMP17
L #TEMP12
T DBB [AR2,P#1.0]
L #TEMP11
T DBB [AR2,P#0.0]
SET
= DBX [AR1,P#19.7]
JU M001
M00f: AN DBX [AR1,P#19.7]
JC M001
OPN DI 1
LAR2 #TEMP16
L DIW [AR2,P#0.0]
OW W#16#0
JN M001
L DID [AR2,P#4.0]
CAD
T #TEMP18
LAR2 #TEMP17
Page 114
 TRUMPF_STL_PROGRAM
L B#16#0
T DBB [AR2,P#0.0]
SET
R DBX [AR1,P#19.7]
L B#16#5
L DBB [AR1,P#1.0]
==I
JC M018
L 104
==I
JC M018
L DBD [AR1,P#6.0]
T DBD [AR1,P#2.0]
L DBD [AR1,P#14.0]
T DBD [AR1,P#10.0]
M018: A #TEMP20
JC M019
L #TEMP18
OD DW#16#0
JN M01a
L 100
L DBB [AR1,P#1.0]
<I
JC M01b
M01a: L #TEMP11
DEC 1
L 71
+I
T #TEMP10
OPN DI [#TEMP10]
L #TEMP12
+ ‐1
LAR2
CLR
= DIX [AR2,P#0.0]
M019: L B#16#0
T DBW [AR1,P#0.0]
M01b: L #TEMP18
T #OUT9
OD DW#16#0
JN M001
SET
= #OUT8
M001: BEU

FC9:
A DB8.DBX 45.0
JC M001
OPN DB 1
OPN DI 5
L #IO7
T LW 0
Page 115
 TRUMPF_STL_PROGRAM
L DIW 22
L #IN1
<I
JC M002
L B#16#0
>I
JC M003
M002: AN #IN0
JC M004
L B#16#2
JU M005
M003: AN #IN0
AN #TEMP10
JC M004
L #IN1
DEC 1
T #TEMP19
L DIW 80
*I
L DIW 82
+I
SLD 3
LAR1
AN #IN0
JC M006
L #IN1
DEC 1
L DIW 84
*I
L DIW 60
+I
SLD 3
LAR2
L #TEMP19
L DIW 28
*I
L DIW 30
+I
SLD 3
T #TEMP18
L B#16#0
L #IN2
>=I
L B#16#3
JC M005
TAK
L B#16#18
>I
L B#16#3
JC M005
L #IN2
DEC 1
Page 116
 TRUMPF_STL_PROGRAM
+AR2
L #TEMP18
+D
T #TEMP18
OPN DI 6
A #TEMP10
JC M007
L DBB [AR1,P#2.0]
L B#16#0
<>I
JC M004
A DIX [#TEMP18]
R DIX [#TEMP18]
JC M004
L #IN2
T DBB [AR1,P#2.0]
S DBX [AR1,P#0.7]
S #TEMP10
JU M004
M007: A DBX [AR2,P#0.0]
S #TEMP9
A DBX [AR2,P#4.0]
= #TEMP15
S #TEMP8
A DBX [AR2,P#8.0]
S #TEMP14
A DBX [AR2,P#12.0]
S #TEMP13
A DIX [#TEMP18]
S #TEMP12
R DIX [#TEMP18]
O #TEMP9
O #TEMP8
O #TEMP14
O #TEMP13
O #TEMP12
JCN M004
M006: L #IN2
L DBB [AR1,P#2.0]
<>I
JC M008
L B#16#0
T DBB [AR1,P#2.0]
SET
R DBX [AR1,P#0.7]
M008: A #IN0
JC M004
M001: L B#16#0
T LW 0
M004: L LW 0
T #IO7
A #TEMP15
Page 117
 TRUMPF_STL_PROGRAM
= #OUT3
A #TEMP12
= #OUT4
A #TEMP14
= #OUT6
A #TEMP13
= #OUT5
BE
M005: T #TEMP17
CALL FC 20
IN0:=40
IN1:=9
IN2:=#TEMP17
IN3:=0
IN4:=TRUE
CALL SFC 46
A #IN1
= DB8.DBX 8.1
SET
S DB8.DBX 8.0
L B#16#8
L DB5.DBW 22
>=I
JC M001
TAK
M001: T #TEMP3
L B#16#12
L DBW 24
>=I
JC M002
TAK
M002: T #TEMP4
OPN DB 2
AN #IN0
JC M003
LAR1 P#0.0
L 21
T #TEMP2
L #TEMP3
M004: T #TEMP5
OPN DI [#TEMP2]
SET
L DBW [AR1,P#0.0]
L DBW [AR1,P#2.0]
OW
L DBW [AR1,P#4.0]
OW
JN M005
CLR
M005: = DIX 6.0
SET
L DBW [AR1,P#2.0]
Page 118
 TRUMPF_STL_PROGRAM
L DBW [AR1,P#4.0]
OW
L DBW [AR1,P#6.0]
OW
L DBW [AR1,P#8.0]
OW
JN M006
CLR
M006: = DIX 6.1
SET
L DBW [AR1,P#10.0]
OW W#16#0
JN M007
CLR
M007: = DIX 7.0
SET
L DBW [AR1,P#12.0]
OW W#16#0
JN M008
CLR
M008: = DIX 12.3
SET
L DBW [AR1,P#14.0]
OW W#16#0
JN M009
CLR
M009: = DIX 16.3
SET
L DBW [AR1,P#16.0]
OW W#16#0
JN M00a
CLR
M00a: = DIX 20.3
L #TEMP2
INC 1
T #TEMP2
+AR1 P#18.0
L #TEMP5
LOOP M004
L 31
T #TEMP2
LAR1 P#144.0
L #TEMP4
M00b: T #TEMP5
OPN DI [#TEMP2]
SET
L DBW [AR1,P#0.0]
OW W#16#0
JN M00c
CLR
M00c: = DIX 4.3
L #TEMP2
Page 119
 TRUMPF_STL_PROGRAM
INC 1
T #TEMP2
+AR1 P#2.0
L #TEMP5
LOOP M00b
M003: BE

F11:

SET
R #OUT2
R #TEMP16
R #TEMP18
OPN DI 5
L B#16#0
L DIW 242
<>I
= #TEMP20
L #IN0
LAR1
+ 21
T #TEMP3
OPN DB [#TEMP3]
L #IN0
LAR1
AN #IN1
JC M001
OPN DI 6
L B#16#0
AN DIX 24.2
JC M002
T DBB 61
M002: AN DIX 24.4
JC M003
T DBB 64
M003: AN DIX 24.5
JC M001
T DBB 63
M001: OPN DI 5
A #IN1
JC M004
L DBD 58
L B#16#0
<>D
JC M005
L DBD 62
==D
JC M004
M005: L B#16#0
T DBD 58
T DBD 62
T DBW 66
Page 120
 TRUMPF_STL_PROGRAM
T DBD 194
T DBD 198
T DBD 202
T DBW 206
OPN DI 6
A DIX [AR1,P#26.0]
R DIX [AR1,P#26.0]
JC M004
A DIX [AR1,P#14.0]
R DIX [AR1,P#14.0]
JC M004
OPN DI 6
AN DIX [AR1,P#28.0]
BEC
R DIX [AR1,P#28.0]
OPN DI 5
L #IN0
L DIW 4
*I
L DIW 2
+I
SLD 3
LAR1
OPN DI 1
SET
R DIX [AR1,P#0.0]
BE
M004: OPN DI 5
L #IN0
LAR2
OPN DI 6
O #IN1
O DIX [AR2,P#14.0]
JC M006
AN DIX [AR2,P#28.0]
BEC
M006: L DIB 24
AN #IN1
JC M007
INVI
M007: L DIB 23
AW
T DIB 23
L DB5.DBW 102
T #TEMP9
L #IN0
L DBW 100
*I
T #TEMP8
A DIX [AR2,P#14.0]
JC M008
L DBW 106
Page 121
 TRUMPF_STL_PROGRAM
T #TEMP10
L DBW 104
T #TEMP11
OPN DI 1
JU M009
M008: L DBW 18
T #TEMP11
+ 4
T #TEMP10
L #IN0
L DBW 28
*I
T #TEMP8
OPN DI 6
M009: L #TEMP11
L #TEMP8
+I
SLD 3
LAR1
L DIB [AR1,P#0.0]
T #TEMP12
AN DIX [AR1,P#2.0]
A DIX [AR1,P#2.1]
= #TEMP15
M00a: T #TEMP4
L #TEMP12
L #TEMP4
‐I
SET
R #TEMP17
L #TEMP9
*I
L #TEMP10
+I
L #TEMP8
+I
SLD 3
LAR1
L DIB [AR1,P#0.0]
T #TEMP5
L DIB [AR1,P#1.0]
T #TEMP6
A DIX [AR1,P#2.0]
= #TEMP19
L DIB [AR1,P#3.0]
T #TEMP21
L DID [AR1,P#4.0]
CAD
T #TEMP7
L DINO
T #TEMP14
L #IN0
Page 122
 TRUMPF_STL_PROGRAM
+ 21
T #TEMP3
OPN DB [#TEMP3]
OPN DI 6
L B#16#0
L #TEMP5
==I
JC M00b
L B#16#7
>I
JC M00b
TAK
DEC 1
LAR1
AN #IN1
JC M00c
AN DIX [AR1,P#24.0]
S #TEMP16
JC M00b
S #OUT2
M00c: A DIX [AR1,P#23.0]
JC M00d
S DIX [AR1,P#23.0]
L #TEMP5
DEC 1
SLW 3
LAR1
SLW 1
LAR2
L DIB [AR2,P#1.0]
SLW 3
LAR2
L DIB [AR1,P#16.0]
M00e: L B#16#0
T DBW [AR2,P#0.0]
+AR2 P#2.0
TAK
LOOP M00e
M00d: L #TEMP5
DEC 1
SLW 4
LAR1
L DIB [AR1,P#0.0]
SLW 3
LAR2
M00f: AN DBX [AR2,P#0.0]
JC M010
+AR2 P#0.1
JU M00f
M010: TAR2
AW W#16#7
L B#16#6
Page 123
 TRUMPF_STL_PROGRAM
*I
L DIB [AR1,P#1.0]
+I
SLW 3
LAR1
L B#16#3
L #TEMP5
==I
JC M011
L B#16#4
==I
JC M012
L #TEMP6
T DBW [AR1,P#0.0]
L #TEMP7
T DBD [AR1,P#2.0]
S DBX [AR2,P#0.0]
S #TEMP18
AN #TEMP19
JC M013
L 1
L #TEMP5
<>I
JC M014
S DBX [AR2,P#8.0]
JU M015
M014: L 7
<>I
JC M016
S DBX [AR2,P#2.0]
JU M017
M016: S DBX [AR2,P#0.4]
JU M017
M013: L #TEMP5
L B#16#1
<>I
JC M017
M015: L DBNO
T #TEMP22
TAR1 #TEMP23
TAR2 #TEMP24
L B#16#0
L DB5.DBW 206
==I
JC M018
T #TEMP25
OPN DB 75
OPN DI 76
L #TEMP25
M019: T #TEMP25
+ ‐1
PUSH
Page 124
 TRUMPF_STL_PROGRAM
SLW 4
LAR2
POP
L 10
*I
SLW 3
LAR1
L #TEMP6
L DBW [AR1,P#0.0]
<>I
JC M01a
L DBD [AR1,P#6.0]
L #TEMP7
<I
JC M01a
L DBD [AR1,P#2.0]
<I
JC M01a
‐D
+AR2
S DIX [AR2,P#0.0]
S #TEMP17
A #TEMP15
JC M01a
L #IN0
OPN DI 5
L DIW 28
*I
L DIW 190
+I
SLW 3
+AR2
OPN DI 6
S DIX [AR2,P#0.0]
OPN DI 76
M01a: L #TEMP25
LOOP M019
M018: L #TEMP22
T #TEMP3
OPN DB [#TEMP3]
LAR1 #TEMP23
LAR2 #TEMP24
A #TEMP17
JC M00b
L B#16#0
L #TEMP6
<>I
JC M01b
L #TEMP7
L B#16#0
<D
JC M01b
Page 125
 TRUMPF_STL_PROGRAM
TAK
L 99
>D
JC M01b
TAK
LAR1
S DBX [AR1,P#194.0]
JU M00b
M01b: S DBX [AR2,P#1.0]
M017: L #TEMP21
OW W#16#0
JZ M00b
DEC 1
OPN DI 8
L DIW 90
+I
T #TEMP3
OPN DI [#TEMP3]
L #TEMP5
JL M01c
JU M01c
JU M01d
JU M01e
JU M01c
JU M01c
JU M01c
JU M01c
JU M01f
M01c: JU M00b
M01d: L #TEMP7
T DIW 86
JU M00b
M01e: L #TEMP7
T DID 88
JU M00b
M01f: L #TEMP7
T DID 78
JU M00b
M011: L #TEMP6
T DBW [AR1,P#0.0]
L #TEMP7
A #TEMP20
JC M020
T DBW [AR1,P#2.0]
JU M021
M020: T DBD [AR1,P#2.0]
M021: S DBX [AR2,P#0.0]
A #TEMP19
S DBX [AR2,P#0.4]
JU M00b
M012: L #TEMP6
T DBB [AR1,P#0.0]
Page 126
 TRUMPF_STL_PROGRAM
L #TEMP7
A #TEMP20
JC M022
T DBB [AR1,P#1.0]
JU M023
M022: T DBW [AR1,P#2.0]
M023: S DBX [AR2,P#0.0]
A #TEMP19
S DBX [AR2,P#0.4]
M00b: L #TEMP14
T #TEMP3
OPN DI [#TEMP3]
L #TEMP4
LOOP M00a
L #IN0
LAR1
OPN DB 6
A #OUT2
A #TEMP16
S DBX [AR1,P#26.0]
AN #TEMP18
BEC
CALL FC 12
IN0:=#IN0
BE
FC13:

L DB7.DBD 154
T #TEMP14
SET
R #OUT7
AN #IN2
JC M001
R #TEMP18
R #TEMP17
R #TEMP19
R #TEMP20
S #TEMP21
L P##IN3
LAR2
L W [AR2,P#0.0]
T #TEMP8
L D [AR2,P#2.0]
LAR2
OPN DB [#TEMP8]
L #IN4
JL M002
JU M002
JU M003
JU M004
JU M005
JU M006
Page 127
 TRUMPF_STL_PROGRAM
JU M006
JU M007
JU M007
JU M008
M002: JU M009
M003: L B#16#1
T #TEMP16
A [AR2,P#0.0]
JC M00a
L B#16#0
JU M00a
M004: L B#16#3
T #TEMP16
L B [AR2,P#0.0]
ITB
JU M00a
M005: SET
= #TEMP20
L B#16#1
T #TEMP16
L B [AR2,P#0.0]
JU M00a
M006: AW W#16#1
L B#16#5
T #TEMP16
L W [AR2,P#0.0]
JZ M00b
ITD
M00c: L B#16#0
+D
JPZ M00d
NEGD
SET
= #TEMP17
M00d: SET
= #TEMP18
M00b: DTB
JO M009
JU M00a
M007: AW W#16#1
L B#16#7
T #TEMP16
L D [AR2,P#0.0]
JZ M00b
JU M00c
M009: SET
= #OUT7
JU M00e
M008: SET
R #TEMP21
= #TEMP18
= #TEMP19
Page 128
 TRUMPF_STL_PROGRAM
L B#16#0
L D [AR2,P#0.0]
<=R
JC M00f
SET
= #TEMP17
M00f: ABS
T #TEMP10
TRUNC
JO M009
T #TEMP12
L #TEMP10
L #TEMP12
DTR
‐R
ABS
T #TEMP10
L #IN6
JL M010
JU M010
JU M011
JU M012
JU M010
JU M013
M010: L B#16#3
L 1.000000e+003
JU M014
M013: L 1.000000e+004
JU M014
M012: L 1.000000e+002
JU M014
M011: L 1.000000e+000
M014: T #TEMP11
TAK
T #TEMP16
L B#16#7
TAK
‐I
T #TEMP15
L #TEMP11
L #TEMP10
*R
RND
L #TEMP11
RND
==I
TAK
DTB
JCN M00a
L #TEMP12
+ 1
T #TEMP12
Page 129
 TRUMPF_STL_PROGRAM
L B#16#0
M00a: T #TEMP10
M001: L P##IN1
LAR2
L W [AR2,P#0.0]
T #TEMP8
L D [AR2,P#2.0]
LAR2
TAR2 #TEMP13
OPN DB [#TEMP8]
L B [AR2,P#1.0]
L B#16#20
<I
JC M009
AN #IN2
JC M015
L #TEMP16
A #TEMP18
JCN M016
INC 1
A #TEMP19
JCN M016
INC 1
L #TEMP15
+I
M016: L #IN5
OW W#16#0
JZ M009
>I
JC M009
L B#16#20
L #IN5
>=I
JCN M009
DEC 1
SLW 3
+AR2
L #TEMP10
A #TEMP20
JC M017
M018: L #TEMP16
M019: T #TEMP16
L #TEMP10
AW W#16#F
OW W#16#30
M017: T B [AR2,P#2.0]
L #TEMP10
SRD 4
T #TEMP10
TAR2
+ ‐8
LAR2
Page 130
 TRUMPF_STL_PROGRAM
A #TEMP21
JC M01a
M01b: L #TEMP16
LOOP M019
M01c: L #TEMP10
OD DW#16#0
JN M009
AN #TEMP19
JC M01d
S #TEMP21
R #TEMP19
L #TEMP15
T #TEMP16
L #TEMP12
DTB
JO M009
T #TEMP10
L '.'
T B [AR2,P#2.0]
TAR2
+ ‐8
LAR2
JU M018
M01a: L #TEMP10
OD DW#16#0
JN M01b
JU M01e
M01f: T #TEMP16
L ' '
T B [AR2,P#2.0]
TAR2
+ ‐8
LAR2
M01e: L #TEMP16
LOOP M01f
JU M01c
M01d: AN #TEMP18
JC M015
A #TEMP17
L '‐'
JC M020
L ' '
M020: T B [AR2,P#2.0]
M015: OPN DI 7
LAR1 #TEMP14
L DIW [AR1,P#0.0]
T #TEMP9
L DID [AR1,P#2.0]
LAR2
L DID [AR1,P#8.0]
LAR1
TAR1
Page 131
 TRUMPF_STL_PROGRAM
SRD 24
L W#16#84
<>I
JC M021
TAR1
OD DW#16#85000000
LAR1
M021: OPN DB [#TEMP9]
OPN DI [#TEMP9]
A [AR2,P#5.7]
A [AR1,P#1.7]
R [AR1,P#1.7]
BEC
A [AR1,P#1.7]
BEC
A [AR2,P#5.7]
BEC
OPN DB [#TEMP8]
LAR2 #TEMP13
L #IN0
JL M022
JU M00e
JU M023
JU M024
JU M025
M022: JU M00e
M025: AN [AR1,P#1.0]
= [AR1,P#1.0]
JCN M026
+AR2 P#16.0
JU M026
M024: = [AR1,P#1.0]
+AR2 P#16.0
JU M026
M023: R [AR1,P#1.0]
M026: L D [AR2,P#2.0]
CAD
T D [AR1,P#16.0]
L D [AR2,P#6.0]
CAD
T D [AR1,P#12.0]
L D [AR2,P#10.0]
CAD
T D [AR1,P#8.0]
L D [AR2,P#14.0]
CAD
T D [AR1,P#4.0]
SET
= [AR1,P#1.7]
M00e: BE

FC15:
Page 132
 TRUMPF_STL_PROGRAM

OPN DB 1
OPN DI 5
L DIW 24
L #IN1
<I
JC M001
L B#16#0
>I
JC M002
M001: AN #IN0
BEC
CALL FC 20
IN0:=40
IN1:=15
IN2:=2
IN3:=0
IN4:=TRUE
CALL SFC 46
M002: L #IN1
DEC 1
T #TEMP19
L DIW 108
*I
L DIW 116
+I
SLD 3
LAR1
L #TEMP19
L DIW 122
*I
L DIW 130
+I
SLD 3
LAR2
POP
L DIW 124
+I
+ 8
SLD 3
+ 7
T #TEMP23
OPN DI 8
L #TEMP19
+ 98
SLW 3
T #TEMP22
L DIB [#TEMP22]
T LB 0
O #IN0
= #TEMP20
FP #TEMP17
Page 133
 TRUMPF_STL_PROGRAM
JCN M003
L B#16#40
L LB 0
==I
JC M003
R #TEMP17
R #TEMP20
M003: AN #TEMP20
JC M004
A #TEMP11
JC M005
S #TEMP11
A DBX [#TEMP23]
= #TEMP12
JC M006
S #TEMP15
S #TEMP18
JU M007
M005: AN DBX [#TEMP23]
JC M007
M006: A #TEMP13
JC M008
AN DBX [AR2,P#0.7]
JC M009
L DBW [AR1,P#0.0]
AW W#16#F030
L B#16#0
<>I
JC M008
JU M007
M004: AN #TEMP11
JC M007
L B#16#0
L DBD [AR1,P#0.0]
<>D
JC M00a
A DBX [AR2,P#0.7]
JC M00b
JU M00c
M00a: AN DBX [AR2,P#0.7]
JC M00b
L B#16#0
T DBD [AR1,P#0.0]
M00b: A #TEMP13
JC M008
JU M007
M00c: A #TEMP12
JC M00d
AN DBX [#TEMP23]
JC M00d
A #TEMP18
R #TEMP18
Page 134
 TRUMPF_STL_PROGRAM
S #TEMP15
JU M008
M00d: L B#16#0
T LB 0
M007: SET
R #OUT8
R #OUT7
R #OUT9
R #OUT10
JU M00e
M009: A #IN2
= DBX [AR1,P#2.0]
A #IN3
= DBX [AR1,P#2.2]
A #IN4
= DBX [AR1,P#2.3]
L #IN5
CAD
T DBD [AR1,P#4.0]
L B#16#0
L #IN6
<=R
JC M00f
NEGR
AN #IN2
S DBX [AR1,P#2.1]
M00f: CAD
T DBD [AR1,P#8.0]
SET
S DBX [AR1,P#0.7]
M008: O DBX [AR2,P#0.7]
O #TEMP13
= #OUT8
JCN M007
A DBX [AR2,P#0.7]
S #TEMP14
A DBX [AR2,P#0.6]
S #TEMP13
A #TEMP13
= #OUT7
A DBX [AR2,P#0.0]
= #OUT9
R #OUT7
S #TEMP13
A DBX [AR2,P#0.1]
= #OUT10
R #OUT7
S #TEMP13
M00e: L LB 0
T DIB [#TEMP22]
L DBB [AR2,P#3.0]
OPN DB 1
Page 135
 TRUMPF_STL_PROGRAM
OPN DI 5
L DIW 24
L #IN1
<I
JC M001
L B#16#0
>I
JC M002
M001: AN #IN0
BEC
CALL FC 20
IN0:=40
IN1:=16
IN2:=2
IN3:=0
IN4:=TRUE
CALL SFC 46
M002: L #IN1
DEC 1
T #TEMP20
L DIW 108
*I
L DIW 116
+I
SLD 3
LAR1
L #TEMP20
L DIW 122
*I
L DIW 130
+I
SLD 3
LAR2
POP
L DIW 124
+I
+ 8
SLD 3
+ 7
T #TEMP24
OPN DI 8
L #TEMP20
+ 98
SLW 3
T #TEMP23
L DIB [#TEMP23]
T LB 0
O #IN0
= #TEMP21
FP #TEMP18
JCN M003
L B#16#40
Page 136
 TRUMPF_STL_PROGRAM
L LB 0
==I
JC M003
R #TEMP18
R #TEMP21
M003: AN #TEMP21
JC M004
A #TEMP12
JC M005
S #TEMP12
A DBX [#TEMP24]
= #TEMP13
JC M006
S #TEMP16
S #TEMP19
JU M007
M005: AN DBX [#TEMP24]
JC M007
M006: A #TEMP14
JC M008
AN DBX [AR2,P#0.7]
JC M009
L DBW [AR1,P#0.0]
AW W#16#F030
L B#16#0
<>I
JC M008
JU M007
M004: AN #TEMP12
JC M007
L B#16#0
L DBD [AR1,P#0.0]
<>D
JC M00a
A DBX [AR2,P#0.7]
JC M00b
JU M00c
M00a: AN DBX [AR2,P#0.7]
JC M00b
L B#16#0
T DBD [AR1,P#0.0]
M00b: A #TEMP14
JC M008
JU M007
M00c: A #TEMP13
JC M00d
AN DBX [#TEMP24]
JC M00d
A #TEMP19
R #TEMP19
S #TEMP16
JU M008
Page 137
 TRUMPF_STL_PROGRAM
M00d: L B#16#0
T LB 0
M007: SET
R #OUT9
R #OUT8
R #OUT10
R #OUT11
JU M00e
M009: A #IN2
= DBX [AR1,P#2.0]
A #IN3
= DBX [AR1,P#2.1]
SET
= DBX [AR1,P#3.7]
L #IN6
ITD
A #IN2
JC M00f
A #IN5
S DBX [AR1,P#3.1]
A #IN4
S DBX [AR1,P#3.0]
JU M010
M00f: A #IN4
JCN M010
NEGD
M010: CAD
T DBD [AR1,P#4.0]
L #IN7
CAD
T DBD [AR1,P#8.0]
SET
S DBX [AR1,P#0.7]
M008: O DBX [AR2,P#0.7]
O #TEMP14
= #OUT9
JCN M007
A DBX [AR2,P#0.7]
S #TEMP15
A DBX [AR2,P#0.6]
S #TEMP14
A #TEMP14
= #OUT8
A DBX [AR2,P#0.0]
= #OUT10
R #OUT8
S #TEMP14
A DBX [AR2,P#0.1]
= #OUT11
R #OUT8
S #TEMP14
M00e: L LB 0
Page 138
 TRUMPF_STL_PROGRAM
T DIB [#TEMP23]
L DBB [AR2,P#3.0]

FC17:

L #IN3
T #TEMP9
L DB5.DBW 24
L #IN1
OW W#16#0
JZ M001
<I
JC M001
L DB8.DBW 90
DEC 1
+I
T #TEMP7
OPN DI [#TEMP7]
L #IO6
T LW 2
AN DBX 45.0
JC M002
L W#16#100
T LW 2
T #IO6
M002: AN DIX 60.0
JC M003
A #TEMP8[10]
JC M004
AN #IN0
R #TEMP8[8]
A #IN0
AN #TEMP8[8]
S #TEMP8[8]
S #TEMP8[10]
R #TEMP8[9]
AN #IN0
AN #TEMP8[9]
S #TEMP8[9]
S #TEMP8[10]
M004: AN #TEMP8[10]
O T [#TEMP9]
JC M003
CLR
SE T [#TEMP9]
SET
L LB 2
JL M005
JU M005
JU M006
JU M007
JU M008
Page 139
 TRUMPF_STL_PROGRAM
JU M009
M005: S #TEMP8[0]
JU M003
M006: R #TEMP8[0]
S #TEMP8[1]
R DIX 21.5
A #TEMP8[8]
= DIX 21.3
JU M003
M007: A DIX 93.7
JC M003
A DIX 21.3
X DIX 93.3
JC M003
SET
R #TEMP8[12]
R #TEMP8[13]
S #TEMP8[0]
M00a: L S5T#50MS
L #IN2
<I
JC M00b
OW W#16#0
TAK
JN M00b
L S5T#100MS
M00b: AN T [#TEMP9]
SE T [#TEMP9]
JU M003
M008: A DIX 93.7
JC M003
L B#16#4
T LB 2
A #TEMP8[8]
S #TEMP8[12]
A #TEMP8[9]
S #TEMP8[13]
JU M00a
M009: S DIX 21.5
R #TEMP8[10]
R #TEMP8[2]
S #TEMP8[0]
CLR
SE T [#TEMP9]
M003: L LW 2
T #IO6
A #TEMP8[12]
= #OUT5
A #TEMP8[13]
= #OUT4
BE
M001: CALL FC 20
Page 140
 TRUMPF_STL_PROGRAM
IN0:=40
IN1:=17
IN2:=2
IN3:=0
IN4:=TRUE
CALL SFC 46

FC18:

OPN DB 1
OPN DI 5
L DIW 24
L #IN4
<I
JC M001
L B#16#0
>I
JC M002
M001: AN #IN0
BEC
CALL FC 20
IN0:=40
IN1:=18
IN2:=5
IN3:=0
IN4:=TRUE
CALL SFC 46
M002: L #IN4
DEC 1
T #TEMP18
L DIW 108
*I
L DIW 116
+I
SLD 3
LAR1
T #TEMP21
L #TEMP18
L DIW 122
*I
L DIW 130
+I
SLD 3
LAR2
POP
L DIW 124
+I
+ 8
SLD 3
+ 7
T #TEMP23
OPN DI 8
Page 141
 TRUMPF_STL_PROGRAM
L #TEMP18
+ 98
SLW 3
T #TEMP22
L DIB [#TEMP22]
T LB 0
L #IN2
JL M003
JU M004
JU M004
JU M005
JU M005
JU M004
JU M004
JU M004
JU M004
JU M004
JU M005
JU M005
JU M005
M003: JU M004
M005: A #IN1
JC M006
M004: CLR
O #IN0
M006: = #TEMP19
FP #TEMP16
JCN M007
L B#16#40
L LB 0
==I
JC M007
R #TEMP16
R #TEMP19
M007: AN #TEMP19
JC M008
A #TEMP10
JC M009
S #TEMP10
A DBX [#TEMP23]
= #TEMP11
JC M00a
S #TEMP14
S #TEMP17
JU M00b
M009: AN DBX [#TEMP23]
JC M00b
M00a: L DBW [AR1,P#0.0]
AW W#16#F030
L B#16#0
<>I
JC M00c
Page 142
 TRUMPF_STL_PROGRAM
A #TEMP12
JC M00c
AN DBX [AR2,P#0.7]
JC M00d
JU M00b
M008: AN #TEMP10
JC M00b
L B#16#0
L DBD [AR1,P#0.0]
<>D
JC M00e
A DBX [AR2,P#0.7]
JC M00f
JU M010
M00e: AN DBX [AR2,P#0.7]
JC M00f
L B#16#0
T DBD [AR1,P#0.0]
M00f: A #TEMP12
JC M011
JU M00b
M010: A #TEMP11
JC M012
AN DBX [#TEMP23]
JC M012
A #TEMP17
R #TEMP17
S #TEMP14
JU M011
M012: L B#16#0
T LB 0
M00b: SET
R #OUT7
R #OUT8
L B#16#0
T #OUT9
JU M013
M00d: L #IN3
JL M014
JU M015
JU M016
JU M017
JU M018
JU M019
JU M01a
M014: JU M015
M016: S DBX [AR1,P#2.0]
JU M015
M017: S DBX [AR1,P#2.1]
JU M015
M018: S DBX [AR1,P#3.1]
JU M015
Page 143
 TRUMPF_STL_PROGRAM
M019: S DBX [AR1,P#3.0]
JU M015
M01a: S DBX [AR1,P#2.5]
M015: L #IN2
L B#16#4
==I
JC M01b
L #IN5
CAD
T DBD [AR1,P#4.0]
JU M01c
M01b: L #IN5
RND
CAD
T DBD [AR1,P#4.0]
SET
= DBX [AR1,P#3.7]
M01c: L #IN6
CAD
T DBD [AR1,P#8.0]
M00c: L #IN2
JL M01d
JU M008
JU M01e
JU M01f
JU M020
JU M021
JU M022
JU M022
JU M022
JU M022
JU M023
JU M024
JU M025
M01d: JU M008
M022: DEC 5
SLW 2
L DBB [AR1,P#2.0]
OW
T DBB [AR1,P#2.0]
L B#16#7
JU M026
M021: L B#16#7
JU M026
M01e: L B#16#6
JU M026
M025: SET
= DBX [AR1,P#2.2]
M024: SET
= DBX [AR1,P#2.6]
JU M01f
M023: SET
Page 144
 TRUMPF_STL_PROGRAM
= DBX [AR1,P#2.7]
M01f: L B#16#5
JU M027
M020: L B#16#4
M027: +AR1
A #IN0
= DBX [AR1,P#0.0]
A #IN1
= DBX [AR1,P#1.0]
JU M028
M026: +AR1
A #IN0
= DBX [AR1,P#0.0]
M028: LAR1 #TEMP21
O DBX [AR2,P#0.7]
O #TEMP12
JCN M00b
M011: A DBX [AR2,P#0.7]
S #TEMP13
SET
R #OUT8
A DBX [AR2,P#0.6]
S #TEMP12
A #TEMP12
= #OUT7
L B#16#0
L DBB [AR2,P#3.0]
T #OUT9
<>I
S #OUT8
S #TEMP12
R #OUT7
M013: L LB 0
T DIB [#TEMP22]
L DBB [AR2,P#3.0]

FC15:

OPN DB 1
OPN DI 5
L DIW 24
L #IN1
<I
JC M001
L B#16#0
>I
JC M002
M001: AN #IN0
BEC
CALL FC 20
IN0:=40
Page 145
 TRUMPF_STL_PROGRAM
IN1:=15
IN2:=2
IN3:=0
IN4:=TRUE
CALL SFC 46
M002: L #IN1
DEC 1
T #TEMP19
L DIW 108
*I
L DIW 116
+I
SLD 3
LAR1
L #TEMP19
L DIW 122
*I
L DIW 130
+I
SLD 3
LAR2
POP
L DIW 124
+I
+ 8
SLD 3
+ 7
T #TEMP23
OPN DI 8
L #TEMP19
+ 98
SLW 3
T #TEMP22
L DIB [#TEMP22]
T LB 0
O #IN0
= #TEMP20
FP #TEMP17
JCN M003
L B#16#40
L LB 0
==I
JC M003
R #TEMP17
R #TEMP20
M003: AN #TEMP20
JC M004
A #TEMP11
JC M005
S #TEMP11
A DBX [#TEMP23]
= #TEMP12
Page 146
 TRUMPF_STL_PROGRAM
JC M006
S #TEMP15
S #TEMP18
JU M007
M005: AN DBX [#TEMP23]
JC M007
M006: A #TEMP13
JC M008
AN DBX [AR2,P#0.7]
JC M009
L DBW [AR1,P#0.0]
AW W#16#F030
L B#16#0
<>I
JC M008
JU M007
M004: AN #TEMP11
JC M007
L B#16#0
L DBD [AR1,P#0.0]
<>D
JC M00a
A DBX [AR2,P#0.7]
JC M00b
JU M00c
M00a: AN DBX [AR2,P#0.7]
JC M00b
L B#16#0
T DBD [AR1,P#0.0]
M00b: A #TEMP13
JC M008
JU M007
M00c: A #TEMP12
JC M00d
AN DBX [#TEMP23]
JC M00d
A #TEMP18
R #TEMP18
S #TEMP15
JU M008
M00d: L B#16#0
T LB 0
M007: SET
R #OUT8
R #OUT7
R #OUT9
R #OUT10
JU M00e
M009: A #IN2
= DBX [AR1,P#2.0]
A #IN3
= DBX [AR1,P#2.2]
Page 147
 TRUMPF_STL_PROGRAM
A #IN4
= DBX [AR1,P#2.3]
L #IN5
CAD
T DBD [AR1,P#4.0]
L B#16#0
L #IN6
<=R
JC M00f
NEGR
AN #IN2
S DBX [AR1,P#2.1]
M00f: CAD
T DBD [AR1,P#8.0]
SET
S DBX [AR1,P#0.7]
M008: O DBX [AR2,P#0.7]
O #TEMP13
= #OUT8
JCN M007
A DBX [AR2,P#0.7]
S #TEMP14
A DBX [AR2,P#0.6]
S #TEMP13
A #TEMP13
= #OUT7
A DBX [AR2,P#0.0]
= #OUT9
R #OUT7
S #TEMP13
A DBX [AR2,P#0.1]
= #OUT10
R #OUT7
S #TEMP13
M00e: L LB 0
T DIB [#TEMP22]
L DBB [AR2,P#3.0]

FC16:
OPN DB 1
OPN DI 5
L DIW 24
L #IN1
<I
JC M001
L B#16#0
>I
JC M002
M001: AN #IN0
BEC
CALL FC 20
IN0:=40
Page 148
 TRUMPF_STL_PROGRAM
IN1:=16
IN2:=2
IN3:=0
IN4:=TRUE
CALL SFC 46
M002: L #IN1
DEC 1
T #TEMP20
L DIW 108
*I
L DIW 116
+I
SLD 3
LAR1
L #TEMP20
L DIW 122
*I
L DIW 130
+I
SLD 3
LAR2
POP
L DIW 124
+I
+ 8
SLD 3
+ 7
T #TEMP24
OPN DI 8
L #TEMP20
+ 98
SLW 3
T #TEMP23
L DIB [#TEMP23]
T LB 0
O #IN0
= #TEMP21
FP #TEMP18
JCN M003
L B#16#40
L LB 0
==I
JC M003
R #TEMP18
R #TEMP21
M003: AN #TEMP21
JC M004
A #TEMP12
JC M005
S #TEMP12
A DBX [#TEMP24]
= #TEMP13
Page 149
 TRUMPF_STL_PROGRAM
JC M006
S #TEMP16
S #TEMP19
JU M007
M005: AN DBX [#TEMP24]
JC M007
M006: A #TEMP14
JC M008
AN DBX [AR2,P#0.7]
JC M009
L DBW [AR1,P#0.0]
AW W#16#F030
L B#16#0
<>I
JC M008
JU M007
M004: AN #TEMP12
JC M007
L B#16#0
L DBD [AR1,P#0.0]
<>D
JC M00a
A DBX [AR2,P#0.7]
JC M00b
JU M00c
M00a: AN DBX [AR2,P#0.7]
JC M00b
L B#16#0
T DBD [AR1,P#0.0]
M00b: A #TEMP14
JC M008
JU M007
M00c: A #TEMP13
JC M00d
AN DBX [#TEMP24]
JC M00d
A #TEMP19
R #TEMP19
S #TEMP16
JU M008
M00d: L B#16#0
T LB 0
M007: SET
R #OUT9
R #OUT8
R #OUT10
R #OUT11
JU M00e
M009: A #IN2
= DBX [AR1,P#2.0]
A #IN3
= DBX [AR1,P#2.1]
Page 150
 TRUMPF_STL_PROGRAM
SET
= DBX [AR1,P#3.7]
L #IN6
ITD
A #IN2
JC M00f
A #IN5
S DBX [AR1,P#3.1]
A #IN4
S DBX [AR1,P#3.0]
JU M010
M00f: A #IN4
JCN M010
NEGD
M010: CAD
T DBD [AR1,P#4.0]
L #IN7
CAD
T DBD [AR1,P#8.0]
SET
S DBX [AR1,P#0.7]
M008: O DBX [AR2,P#0.7]
O #TEMP14
= #OUT9
JCN M007
A DBX [AR2,P#0.7]
S #TEMP15
A DBX [AR2,P#0.6]
S #TEMP14
A #TEMP14
= #OUT8
A DBX [AR2,P#0.0]
= #OUT10
R #OUT8
S #TEMP14
A DBX [AR2,P#0.1]
= #OUT11
R #OUT8
S #TEMP14
M00e: L LB 0
T DIB [#TEMP23]
L DBB [AR2,P#3.0]

FC17:

L #IN3
T #TEMP9
L DB5.DBW 24
L #IN1
OW W#16#0
JZ M001
<I
Page 151
 TRUMPF_STL_PROGRAM
JC M001
L DB8.DBW 90
DEC 1
+I
T #TEMP7
OPN DI [#TEMP7]
L #IO6
T LW 2
AN DBX 45.0
JC M002
L W#16#100
T LW 2
T #IO6
M002: AN DIX 60.0
JC M003
A #TEMP8[10]
JC M004
AN #IN0
R #TEMP8[8]
A #IN0
AN #TEMP8[8]
S #TEMP8[8]
S #TEMP8[10]
R #TEMP8[9]
AN #IN0
AN #TEMP8[9]
S #TEMP8[9]
S #TEMP8[10]
M004: AN #TEMP8[10]
O T [#TEMP9]
JC M003
CLR
SE T [#TEMP9]
SET
L LB 2
JL M005
JU M005
JU M006
JU M007
JU M008
JU M009
M005: S #TEMP8[0]
JU M003
M006: R #TEMP8[0]
S #TEMP8[1]
R DIX 21.5
A #TEMP8[8]
= DIX 21.3
JU M003
M007: A DIX 93.7
JC M003
A DIX 21.3
Page 152
 TRUMPF_STL_PROGRAM
X DIX 93.3
JC M003
SET
R #TEMP8[12]
R #TEMP8[13]
S #TEMP8[0]
M00a: L S5T#50MS
L #IN2
<I
JC M00b
OW W#16#0
TAK
JN M00b
L S5T#100MS
M00b: AN T [#TEMP9]
SE T [#TEMP9]
JU M003
M008: A DIX 93.7
JC M003
L B#16#4
T LB 2
A #TEMP8[8]
S #TEMP8[12]
A #TEMP8[9]
S #TEMP8[13]
JU M00a
M009: S DIX 21.5
R #TEMP8[10]
R #TEMP8[2]
S #TEMP8[0]
CLR
SE T [#TEMP9]
M003: L LW 2
T #IO6
A #TEMP8[12]
= #OUT5
A #TEMP8[13]
= #OUT4
BE
M001: CALL FC 20
IN0:=40
IN1:=17
IN2:=2
IN3:=0
IN4:=TRUE
CALL SFC 46

F18:

OPN DB 1
OPN DI 5
L DIW 24
Page 153
 TRUMPF_STL_PROGRAM
L #IN4
<I
JC M001
L B#16#0
>I
JC M002
M001: AN #IN0
BEC
CALL FC 20
IN0:=40
IN1:=18
IN2:=5
IN3:=0
IN4:=TRUE
CALL SFC 46
M002: L #IN4
DEC 1
T #TEMP18
L DIW 108
*I
L DIW 116
+I
SLD 3
LAR1
T #TEMP21
L #TEMP18
L DIW 122
*I
L DIW 130
+I
SLD 3
LAR2
POP
L DIW 124
+I
+ 8
SLD 3
+ 7
T #TEMP23
OPN DI 8
L #TEMP18
+ 98
SLW 3
T #TEMP22
L DIB [#TEMP22]
T LB 0
L #IN2
JL M003
JU M004
JU M004
JU M005
JU M005
Page 154
 TRUMPF_STL_PROGRAM
JU M004
JU M004
JU M004
JU M004
JU M004
JU M005
JU M005
JU M005
M003: JU M004
M005: A #IN1
JC M006
M004: CLR
O #IN0
M006: = #TEMP19
FP #TEMP16
JCN M007
L B#16#40
L LB 0
==I
JC M007
R #TEMP16
R #TEMP19
M007: AN #TEMP19
JC M008
A #TEMP10
JC M009
S #TEMP10
A DBX [#TEMP23]
= #TEMP11
JC M00a
S #TEMP14
S #TEMP17
JU M00b
M009: AN DBX [#TEMP23]
JC M00b
M00a: L DBW [AR1,P#0.0]
AW W#16#F030
L B#16#0
<>I
JC M00c
A #TEMP12
JC M00c
AN DBX [AR2,P#0.7]
JC M00d
JU M00b
M008: AN #TEMP10
JC M00b
L B#16#0
L DBD [AR1,P#0.0]
<>D
JC M00e
A DBX [AR2,P#0.7]
Page 155
 TRUMPF_STL_PROGRAM
JC M00f
JU M010
M00e: AN DBX [AR2,P#0.7]
JC M00f
L B#16#0
T DBD [AR1,P#0.0]
M00f: A #TEMP12
JC M011
JU M00b
M010: A #TEMP11
JC M012
AN DBX [#TEMP23]
JC M012
A #TEMP17
R #TEMP17
S #TEMP14
JU M011
M012: L B#16#0
T LB 0
M00b: SET
R #OUT7
R #OUT8
L B#16#0
T #OUT9
JU M013
M00d: L #IN3
JL M014
JU M015
JU M016
JU M017
JU M018
JU M019
JU M01a
M014: JU M015
M016: S DBX [AR1,P#2.0]
JU M015
M017: S DBX [AR1,P#2.1]
JU M015
M018: S DBX [AR1,P#3.1]
JU M015
M019: S DBX [AR1,P#3.0]
JU M015
M01a: S DBX [AR1,P#2.5]
M015: L #IN2
L B#16#4
==I
JC M01b
L #IN5
CAD
T DBD [AR1,P#4.0]
JU M01c
M01b: L #IN5
Page 156
 TRUMPF_STL_PROGRAM
RND
CAD
T DBD [AR1,P#4.0]
SET
= DBX [AR1,P#3.7]
M01c: L #IN6
CAD
T DBD [AR1,P#8.0]
M00c: L #IN2
JL M01d
JU M008
JU M01e
JU M01f
JU M020
JU M021
JU M022
JU M022
JU M022
JU M022
JU M023
JU M024
JU M025
M01d: JU M008
M022: DEC 5
SLW 2
L DBB [AR1,P#2.0]
OW
T DBB [AR1,P#2.0]
L B#16#7
JU M026
M021: L B#16#7
JU M026
M01e: L B#16#6
JU M026
M025: SET
= DBX [AR1,P#2.2]
M024: SET
= DBX [AR1,P#2.6]
JU M01f
M023: SET
= DBX [AR1,P#2.7]
M01f: L B#16#5
JU M027
M020: L B#16#4
M027: +AR1
A #IN0
= DBX [AR1,P#0.0]
A #IN1
= DBX [AR1,P#1.0]
JU M028
M026: +AR1
A #IN0
Page 157
 TRUMPF_STL_PROGRAM
= DBX [AR1,P#0.0]
M028: LAR1 #TEMP21
O DBX [AR2,P#0.7]
O #TEMP12
JCN M00b
M011: A DBX [AR2,P#0.7]
S #TEMP13
SET
R #OUT8
A DBX [AR2,P#0.6]
S #TEMP12
A #TEMP12
= #OUT7
L B#16#0
L DBB [AR2,P#3.0]
T #OUT9
<>I
S #OUT8
S #TEMP12
R #OUT7
M013: L LB 0
T DIB [#TEMP22]
L DBB [AR2,P#3.0]
F19:

L DB7.DBW 128
T #TEMP12
L DB7.DBW 130
T #TEMP13
L DB7.DBW 132
T #TEMP14
L #IN0
PUSH
AW W#16#F
T #TEMP29
POP
AW W#16#F0
SET
JZ M001
S #TEMP34
LAR2 P#62.0
LAR1 DB7.DBD 150
JU M002
M001: R #TEMP34
LAR2 P#0.0
LAR1 DB7.DBD 146
M002: TAR2 #TEMP31
OPN DI 8
L DIW [AR2,P#0.0]
T LW 0
L DIB [AR2,P#3.0]
T #TEMP9
Page 158
 TRUMPF_STL_PROGRAM
A DIX 1.7
= #TEMP5[15]
L DBW [AR1,P#0.0]
T #TEMP28
L DBD [AR1,P#8.0]
T #TEMP27
L DBD [AR1,P#2.0]
LAR1
OPN DB [#TEMP28]
LAR2 P##TEMP15
L D [AR1,P#0.0]
T LD [AR2,P#0.0]
L D [AR1,P#4.0]
T LD [AR2,P#4.0]
LAR1 #TEMP27
L D [AR1,P#0.0]
T LD [AR2,P#8.0]
L W [AR1,P#4.0]
T LW [AR2,P#12.0]
A DIX 45.0
JCN M003
A #TEMP34
JC M004
= #TEMP17[3]
M004: = #TEMP5[0]
= #TEMP5[1]
S DB10.DBX 57.0
M003: R #TEMP32
L B#16#0
T #TEMP25
T #TEMP30
T #TEMP6
L LB [AR2,P#1.0]
AW W#16#3F
T #TEMP24
L LB [AR2,P#3.0]
AW W#16#1F
T #TEMP35
A #TEMP5[7]
JC M005
A #TEMP20[13]
= #TEMP33
A #TEMP17[12]
FP #TEMP5[3]
JCN M006
S #TEMP32
AN #TEMP20[13]
= #TEMP20[13]
L #TEMP9
JU M007
M006: L LW [AR2,P#4.0]
AW W#16#EE7
Page 159
 TRUMPF_STL_PROGRAM
L #TEMP9
JZ M008
M007: A #TEMP33
JC M009
T #TEMP30
M009: L LD [AR2,P#10.0]
AD DW#16#8F31FEFF
T LD [AR2,P#10.0]
A #TEMP32
JC M00a
A #TEMP20[13]
JC M00b
LAR1 P#8.0
AN #TEMP34
JC M00c
LAR1 P#32.0
M00c: OPN DI 10
L DIW [AR1,P#22.0]
OW W#16#0
JN M00d
L #TEMP14
JU M00d
M008: L LB [AR2,P#4.0]
AW W#16#E0
T #TEMP6
JU M00e
M00b: L B#16#3
M00d: JL M00f
JU M010
JU M011
JU M012
JU M013
JU M014
JU M015
JU M016
JU M017
JU M018
JU M00f
M00f: A #TEMP17[10]
S #TEMP20[11]
L B#16#9
JC M010
M018: A #TEMP17[9]
S #TEMP20[10]
L B#16#8
JC M010
M017: A #TEMP17[1]
S #TEMP20[4]
L B#16#7
JC M010
M016: A #TEMP17[8]
S #TEMP20[9]
Page 160
 TRUMPF_STL_PROGRAM
L B#16#6
JC M010
M015: A #TEMP17[13]
S #TEMP20[14]
L B#16#5
JC M010
M014: A #TEMP17[2]
S #TEMP20[5]
L B#16#4
JC M010
M013: A #TEMP17[14]
S #TEMP20[15]
L B#16#3
JC M010
M012: A #TEMP17[15]
S #TEMP21[0]
L B#16#2
JC M010
M011: A #TEMP17[3]
S #TEMP20[6]
L B#16#1
JC M010
M00a: L B#16#0
JU M019
M010: A #TEMP20[13]
JC M019
DEC 1
SLW 3
+AR1
OPN DI 10
L DIB [AR1,P#0.0]
M019: T #TEMP9
M00e: A #TEMP17[6]
= #TEMP20[7]
A #TEMP17[7]
= #TEMP20[8]
M005: A #TEMP5[15]
JC M01a
OPN DI 10
A #TEMP16[7]
= DIX 56.4
A #TEMP16[14]
= DIX 56.5
A #TEMP16[6]
= DIX 56.6
A #TEMP17[4]
= DIX 56.7
M01a: L B#16#1
T #TEMP26
L #TEMP12
L #TEMP29
OW W#16#0
Page 161
 TRUMPF_STL_PROGRAM
JZ M01b
<I
JC M01c
DEC 1
L P#20.0
*I
LAR1
OPN DI 11
A #TEMP15[0]
= #TEMP10[0]
A #TEMP15[1]
= #TEMP10[1]
A #TEMP15[3]
= #TEMP10[2]
A #TEMP15[15]
= #TEMP10[9]
A #TEMP15[14]
= #TEMP10[10]
A #TEMP15[2]
= #TEMP10[8]
L DIW [AR1,P#0.0]
AW W#16#F8F8
L LW 6
AW W#16#707
OW
T DIW [AR1,P#0.0]
L DIW [AR1,P#6.0]
T LW 6
A #TEMP10[0]
= #TEMP19[0]
A #TEMP10[1]
= #TEMP19[1]
A #TEMP10[2]
= #TEMP19[3]
A #TEMP10[9]
= #TEMP19[11]
A #TEMP10[10]
= #TEMP19[10]
A #TEMP10[8]
= #TEMP19[2]
L #TEMP24
T DIB [AR1,P#2.0]
L DIB [AR1,P#8.0]
T #TEMP25
M01b: L B#16#2
T #TEMP26
L #TEMP13
L #IN1
OW W#16#0
JZ M01d
<I
JC M01c
Page 162
 TRUMPF_STL_PROGRAM
INC 20
T #TEMP11
OPN DI [#TEMP11]
L B#16#3
M01e: T #TEMP23
DEC 1
SLW 5
LAR1
L #TEMP23
L #TEMP9
<>I
L B#16#0
JC M01f
AN #TEMP20[13]
JC M01f
A #TEMP5[7]
JC M01f
L #TEMP6
M01f: L DIB [AR1,P#12.0]
AW W#16#1F
OW
T DIB [AR1,P#12.0]
L #TEMP23
LOOP M01e
L #TEMP35
T DIB 4
A #TEMP16[1]
= DIX 7.1
AN #TEMP16[0]
= DIX 7.3
A #TEMP16[15]
= DIX 7.7
A DIX 35.0
= #TEMP19[13]
A DIX 35.3
O DIX 35.2
= #TEMP19[12]
A #TEMP16[13]
FP #TEMP5[4]
JCN M01d
AN DIX 0.4
= DIX 0.4
= #TEMP5[2]
M01d: AN #TEMP5[7]
JC M020
A #TEMP5[2]
= DIX 0.4
M020: A DIX 0.4
= #TEMP20[2]
L #TEMP14
L #IN2
OW W#16#0
Page 163
 TRUMPF_STL_PROGRAM
JZ M021
<I
JC M021
INC 30
T #TEMP11
OPN DI [#TEMP11]
L LB [AR2,P#0.0]
SRW 4
T DIB 19
M021: A #TEMP5[7]
JC M022
L #TEMP30
OW W#16#0
JZ M023
INC 30
T #TEMP11
OPN DI [#TEMP11]
SET
R DIX 4.6
R DIX 4.7
JU M024
M023: A #TEMP20[13]
JC M024
L #TEMP9
OW W#16#0
JZ M024
INC 30
T #TEMP11
OPN DI [#TEMP11]
L #TEMP35
T DIB 0
L #TEMP6
L DIB 4
AW W#16#1F
OW
T DIB 4
M024: A #TEMP34
JC M025
L #TEMP14
M026: T #TEMP23
INC 30
T #TEMP11
OPN DI [#TEMP11]
L #TEMP35
T DIB 0
L #TEMP23
LOOP M026
M025: A #TEMP16[3]
R #TEMP5[0]
AN #TEMP16[2]
S #TEMP5[0]
A #TEMP5[0]
Page 164
 TRUMPF_STL_PROGRAM
= #OUT3
= #TEMP19[14]
NOT
= #TEMP19[15]
A #TEMP16[5]
R #TEMP5[1]
AN #TEMP16[4]
S #TEMP5[1]
A #TEMP5[1]
= #OUT4
= #TEMP20[0]
NOT
= #TEMP20[1]
L #TEMP25
AW W#16#3F
SLW 4
CAW
L LW [AR2,P#8.0]
AW W#16#FFC
OW
T LW [AR2,P#8.0]
LAR1 #TEMP27
OPN DB [#TEMP28]
L LD [AR2,P#8.0]
T D [AR1,P#0.0]
L LW [AR2,P#12.0]
T W [AR1,P#4.0]
M022: SET
S #TEMP5[7]
LAR2 #TEMP31
OPN DB 8
L LW 0
T DBW [AR2,P#0.0]
L #TEMP9
T DBB [AR2,P#3.0]
S DBX 1.7
BEU
M01c: CALL FC 20
IN0:=40
IN1:=19
IN2:=#TEMP26
IN3:=0
IN4:=TRUE
CALL SFC 46

FC20:

L #IN0
L W#16#A000
+I
T #TEMP5
A #IN4
Page 165
 TRUMPF_STL_PROGRAM
= L 0.0
L #IN1
T #TEMP6
L #IN3
SLD 16
L #IN2
OD
T #TEMP7
CALL SFC 52
IN0 :=TRUE
IN1 :=#TEMP5
IN2 :=#TEMP6
IN3 :=#TEMP7
RET_VAL:=#TEMP8

FC21:

SET
R #OUT5
L B#16#0
T #OUT6
AN #IN0
BEC
L P##IN2
LAR1
L B [AR1,P#1.0]
T #TEMP8
L W [AR1,P#2.0]
T #TEMP9
L W [AR1,P#4.0]
T #TEMP10
L D [AR1,P#6.0]
T #TEMP11
L #IN1
JL M001
JU M001
JU M002
JU M002
JU M003
JU M003
JU M002
JU M004
JU M005
M001: L B#16#1
JU M006
M002: L B#16#0
L #IN3
>=I
JC M007
OPN DI 5
L DIW 22
<=I
Page 166
 TRUMPF_STL_PROGRAM
JC M008
M007: L B#16#A
JU M006
M008: L #IN3
+ 20
T #TEMP10
OPN DB [#TEMP10]
OPN DI 5
L #IN3
+ ‐1
L #IN1
JL M009
JU M009
JU M00a
JU M00b
JU M009
JU M009
JU M00c
M009: BEU
M003: L #TEMP8
JL M00d
JU M00d
JU M00d
JU M00d
JU M00d
JU M00e
JU M00e
JU M00f
JU M00f
JU M00f
M00d: L B#16#1
JU M010
M00e: L B#16#2
JU M010
M00f: L B#16#4
M010: T #TEMP13
L #IN3
TAK
MOD
JZ M011
L B#16#14
JU M006
M011: L B#16#0
L #IN3
>I
JC M012
L #TEMP9
L #TEMP13
*I
L #IN3
+I
OPN DI 5
Page 167
 TRUMPF_STL_PROGRAM
L DIW 244
<=I
JC M013
M012: L B#16#15
JU M006
M013: L DIW 246
L #IN3
+I
SLD 3
L P#DIX 0.0
+D
LAR2
L DIW 244
+ ‐1
L #IN4
>=I
JC M014
L B#16#16
JU M006
M014: L 0
<I
= #TEMP14
JC M015
L #IN4
L DIW 246
+I
SLD 3
LAR1
T #TEMP12
M015: OPN DI 1
OPN DB [#TEMP10]
L #IN1
L 4
<I
JC M016
JU M017
M00a: TAK
L DIW 230
*I
SLD 3
L DID 226
+I
LAR2
OPN DI 1
L DBD 300
T DID [AR2,P#0.0]
L DBD 304
T DID [AR2,P#4.0]
BEU
M00b: TAK
L DIW 236
*I
Page 168
 TRUMPF_STL_PROGRAM
SLD 3
L DID 232
+I
LAR2
OPN DI 1
L DID [AR2,P#0.0]
T DBD 308
L DID [AR2,P#4.0]
T DBD 312
BEU
M016: A #TEMP14
JC M018
A DIX [AR1,P#0.0]
JC M018
L B#16#17
JU M006
M018: LAR1 #TEMP11
L #TEMP13
JL M019
JU M019
JU M01a
JU M01b
JU M019
JU M01c
M019: BEU
M01a: L #TEMP9
M01d: L DIB [AR2,P#0.0]
T B [AR1,P#0.0]
+AR1 P#1.0
+AR2 P#1.0
TAK
LOOP M01d
JU M01e
M01b: L #TEMP9
M01f: L DIW [AR2,P#0.0]
CAW
T W [AR1,P#0.0]
+AR1 P#2.0
+AR2 P#2.0
TAK
LOOP M01f
JU M01e
M01c: L #TEMP9
M020: L DID [AR2,P#0.0]
CAD
T D [AR1,P#0.0]
+AR1 P#4.0
+AR2 P#4.0
TAK
LOOP M020
M01e: A #TEMP14
BEC
Page 169
 TRUMPF_STL_PROGRAM
SET
LAR1 #TEMP12
R DIX [AR1,P#0.0]
BEU
M017: A #TEMP14
JC M021
AN DIX [AR1,P#0.0]
JC M021
L B#16#18
JU M006
M021: LAR1 #TEMP11
L #TEMP13
JL M022
JU M022
JU M023
JU M024
JU M022
JU M025
M022: BEU
M023: L #TEMP9
M026: L B [AR1,P#0.0]
T DIB [AR2,P#0.0]
+AR1 P#1.0
+AR2 P#1.0
TAK
LOOP M026
JU M027
M024: L #TEMP9
M028: L W [AR1,P#0.0]
CAW
T DIW [AR2,P#0.0]
+AR1 P#2.0
+AR2 P#2.0
TAK
LOOP M028
JU M027
M025: L #TEMP9
M029: L D [AR1,P#0.0]
CAD
T DID [AR2,P#0.0]
+AR1 P#4.0
+AR2 P#4.0
TAK
LOOP M029
M027: A #TEMP14
BEC
SET
LAR1 #TEMP12
S DIX [AR1,P#0.0]
BEU
M00c: TAK
L DIW 72
Page 170
 TRUMPF_STL_PROGRAM
*I
L DIW 76
+I
SLD 3
LAR2
OPN DI 1
L DBW 6
T DIW [AR2,P#6.0]
BEU
M004: L DB5.DBW 108
SLD 3
T #TEMP15
L DBW 110
SLD 3
LAR2
L B#16#1F
T #TEMP10
OPN DI 1
L DBW 24
M02a: T #TEMP9
OPN DB [#TEMP10]
L DBB 2
T DIB [AR2,P#2.0]
L #TEMP15
+AR2
L #TEMP10
+ 1
T #TEMP10
L #TEMP9
LOOP M02a
BEU
M005: L DB5.DBW 108
SLD 3
T #TEMP15
L DBW 110
SLD 3
LAR2
L B#16#1F
T #TEMP10
OPN DI 1
L DBW 24
M02b: T #TEMP9
OPN DB [#TEMP10]
L DBB 4
T DIB [AR2,P#4.0]
L #TEMP15
+AR2
L #TEMP10
+ 1
T #TEMP10
L #TEMP9
LOOP M02b
Page 171
 TRUMPF_STL_PROGRAM
BEU
M006: T #OUT6
SET
S #OUT5
BE
FC22:

AN #IN4
BEC
CLR
= #TEMP13
= #OUT9
= #TEMP12
LAR1 DB74.DBD 12
L DBB 38
L #IN0
<I
JC M001
+ ‐1
L P#4.0
*I
+AR1
L DBW [AR1,P#0.0]
T #TEMP10
L #IN1
OW W#16#0
JZ M001
L #TEMP10
>I
JC M001
L #IN2
OW W#16#0
JZ M001
<I
JC M001
TAK
L #IN3
<I
JC M001
L #IN1
T #TEMP11
L #IN3
OW W#16#0
JZ M002
‐I
+ 1
JP M003
L #TEMP10
+I
M003: T #TEMP11
M002: L #TEMP11
L #IN2
Page 172
 TRUMPF_STL_PROGRAM
==I
JC M004
‐I
JP M005
L #TEMP10
+I
M005: L #TEMP10
SRW 1
>I
TAK
JMZ M006
SET
= #TEMP13
L #TEMP10
‐I
NEGI
JU M006
M001: SET
= #OUT9
JU M007
M004: SET
= #TEMP12
M007: L B#16#0
M006: T #OUT8
A #TEMP13
= #OUT6
NOT
= #OUT5
A #TEMP12
= #OUT7
R #OUT5

FC22:

AN #IN4
BEC
CLR
= #TEMP13
= #OUT9
= #TEMP12
LAR1 DB74.DBD 12
L DBB 38
L #IN0
<I
JC M001
+ ‐1
L P#4.0
*I
+AR1
L DBW [AR1,P#0.0]
T #TEMP10
L #IN1
Page 173
 TRUMPF_STL_PROGRAM
OW W#16#0
JZ M001
L #TEMP10
>I
JC M001
L #IN2
OW W#16#0
JZ M001
<I
JC M001
TAK
L #IN3
<I
JC M001
L #IN1
T #TEMP11
L #IN3
OW W#16#0
JZ M002
‐I
+ 1
JP M003
L #TEMP10
+I
M003: T #TEMP11
M002: L #TEMP11
L #IN2
==I
JC M004
‐I
JP M005
L #TEMP10
+I
M005: L #TEMP10
SRW 1
>I
TAK
JMZ M006
SET
= #TEMP13
L #TEMP10
‐I
NEGI
JU M006
M001: SET
= #OUT9
JU M007
M004: SET
= #TEMP12
M007: L B#16#0
M006: T #OUT8
A #TEMP13
Page 174
 TRUMPF_STL_PROGRAM
= #OUT6
NOT
= #OUT5
A #TEMP12
= #OUT7
R #OUT5

FC24:
L DB7.DBW 128
T #TEMP12
L DB7.DBW 130
T #TEMP13
L DB7.DBW 132
T #TEMP14
L #IN0
PUSH
AW W#16#F
T #TEMP29
POP
AW W#16#F0
SET
JZ M001
S #TEMP34
LAR2 P#62.0
LAR1 DB7.DBD 150
JU M002
M001: R #TEMP34
LAR2 P#0.0
LAR1 DB7.DBD 146
M002: TAR2 #TEMP31
OPN DI 8
L DIW [AR2,P#0.0]
T LW 0
L DIB [AR2,P#2.0]
T #TEMP36
L DIB [AR2,P#3.0]
T #TEMP10
A DIX 1.7
= #TEMP6[15]
L DBW [AR1,P#0.0]
T #TEMP28
L DBD [AR1,P#8.0]
T #TEMP27
L DBD [AR1,P#2.0]
LAR1
OPN DB [#TEMP28]
LAR2 P##TEMP15
L D [AR1,P#0.0]
T LD [AR2,P#0.0]
L D [AR1,P#4.0]
T LD [AR2,P#4.0]
LAR1 #TEMP27
Page 175
 TRUMPF_STL_PROGRAM
L D [AR1,P#0.0]
T LD [AR2,P#8.0]
L D [AR1,P#4.0]
T LD [AR2,P#12.0]
A DIX 45.0
JCN M003
A #TEMP34
JC M004
= #TEMP17[8]
M004: = #TEMP6[0]
= #TEMP6[1]
= #TEMP15[5]
S DB10.DBX 57.0
M003: R #TEMP32
L B#16#0
T #TEMP25
T #TEMP30
T #TEMP7
L LB [AR2,P#2.0]
AW W#16#2F
T #TEMP24
L LB [AR2,P#3.0]
AW W#16#1F
T #TEMP35
A #TEMP6[7]
JC M005
A #TEMP22[3]
= #TEMP33
A #TEMP18[3]
FP #TEMP6[3]
JCN M006
S #TEMP32
AN #TEMP22[3]
= #TEMP22[3]
L #TEMP10
JU M007
M006: L LB [AR2,P#5.0]
AW W#16#3F
L #TEMP10
JZ M008
M007: A #TEMP33
JC M009
T #TEMP30
M009: L LB [AR2,P#13.0]
AW W#16#C0
T LB [AR2,P#13.0]
A #TEMP32
JC M00a
A #TEMP22[3]
JC M00b
LAR1 P#8.0
AN #TEMP34
Page 176
 TRUMPF_STL_PROGRAM
JC M00c
LAR1 P#32.0
M00c: OPN DI 10
L DIW [AR1,P#22.0]
OW W#16#0
JN M00d
L #TEMP14
JU M00d
M008: L LB [AR2,P#4.0]
AW W#16#E0
T #TEMP7
JU M00e
M00b: L B#16#3
M00d: JL M00f
JU M010
JU M011
JU M012
JU M013
JU M014
JU M015
JU M00f
M00f: A #TEMP17[13]
S #TEMP21[13]
L B#16#6
JC M010
M015: A #TEMP17[12]
S #TEMP21[12]
L B#16#5
JC M010
M014: A #TEMP17[11]
S #TEMP21[11]
L B#16#4
JC M010
M013: A #TEMP17[10]
S #TEMP21[10]
L B#16#3
JC M010
M012: A #TEMP17[9]
S #TEMP21[9]
L B#16#2
JC M010
M011: A #TEMP17[8]
S #TEMP21[8]
L B#16#1
JC M010
M00a: L B#16#0
JU M016
M010: A #TEMP22[3]
JC M016
DEC 1
SLW 3
+AR1
Page 177
 TRUMPF_STL_PROGRAM
OPN DI 10
L DIB [AR1,P#0.0]
M016: T #TEMP10
M00e: A #TEMP17[6]
= #TEMP21[6]
A #TEMP17[7]
= #TEMP21[7]
A #TEMP17[5]
= #TEMP21[5]
M005: NOP 0
L B#16#1
T #TEMP26
L #TEMP12
L #TEMP29
OW W#16#0
JZ M017
<I
JC M018
DEC 1
L P#20.0
*I
LAR1
OPN DI 11
L LW [AR2,P#0.0]
AW W#16#707
L DIW [AR1,P#0.0]
AW W#16#F8F8
OW
T DIW [AR1,P#0.0]
L DIW [AR1,P#6.0]
AW W#16#707
L LW [AR2,P#8.0]
AW W#16#F8F8
OW
T LW [AR2,P#8.0]
L #TEMP24
T DIB [AR1,P#2.0]
L DIB [AR1,P#8.0]
T #TEMP25
M017: L B#16#2
T #TEMP26
L #TEMP13
L #IN1
OW W#16#0
JZ M019
<I
JC M018
INC 20
T #TEMP11
OPN DI [#TEMP11]
L B#16#3
M01a: T #TEMP23
Page 178
 TRUMPF_STL_PROGRAM
DEC 1
SLW 5
LAR1
L #TEMP23
L #TEMP10
<>I
L B#16#0
JC M01b
AN #TEMP22[3]
JC M01b
A #TEMP6[7]
JC M01b
L #TEMP7
M01b: L DIB [AR1,P#12.0]
AW W#16#1F
OW
T DIB [AR1,P#12.0]
L #TEMP23
LOOP M01a
L #TEMP35
T DIB 4
A #TEMP15[15]
= DIX 7.1
AN #TEMP15[7]
= DIX 7.3
A #TEMP16[15]
= DIX 7.7
A DIX 35.0
= #TEMP19[15]
A DIX 35.3
O DIX 35.2
= #TEMP19[7]
A #TEMP15[3]
FP #TEMP6[4]
JCN M019
AN DIX 0.4
= DIX 0.4
= #TEMP6[2]
M019: AN #TEMP6[7]
JC M01c
A #TEMP6[2]
= DIX 0.4
M01c: A DIX 0.4
= #TEMP19[3]
L #TEMP14
L #IN2
OW W#16#0
JZ M01d
<I
JC M01d
INC 30
T #TEMP11
Page 179
 TRUMPF_STL_PROGRAM
OPN DI [#TEMP11]
L #TEMP36
A #TEMP15[4]
FP #TEMP6[6]
JCN M01e
INC 1
L B#16#E
>I
JC M01f
TAK
JU M01f
M01e: A #TEMP15[6]
FP #TEMP6[5]
JCN M020
OW W#16#0
JZ M01d
DEC 1
JU M01f
M020: AN #TEMP15[5]
JC M01d
L B#16#A
M01f: T #TEMP36
L B#16#A
==I
= #TEMP19[5]
<I
= #TEMP19[6]
>I
= #TEMP19[4]
L #TEMP36
INC 1
PUSH
SRW 1
XOW
T DIB 19
M01d: A #TEMP6[7]
JC M021
L #TEMP30
OW W#16#0
JZ M022
INC 30
T #TEMP11
OPN DI [#TEMP11]
SET
R DIX 4.6
R DIX 4.7
JU M023
M022: A #TEMP22[3]
JC M023
L #TEMP10
OW W#16#0
JZ M023
Page 180
 TRUMPF_STL_PROGRAM
INC 30
T #TEMP11
OPN DI [#TEMP11]
L #TEMP35
T DIB 0
L #TEMP7
L DIB 4
AW W#16#1F
OW
T DIB 4
M023: A #TEMP34
JC M024
L #TEMP14
M025: T #TEMP23
INC 30
T #TEMP11
OPN DI [#TEMP11]
L #TEMP35
T DIB 0
L #TEMP23
LOOP M025
M024: A #TEMP16[7]
R #TEMP6[0]
AN #TEMP16[6]
S #TEMP6[0]
A #TEMP6[0]
= #OUT3
= #TEMP20[6]
NOT
= #TEMP20[7]
A #TEMP15[14]
R #TEMP6[14]
R #TEMP6[1]
A #TEMP15[12]
S #TEMP6[14]
R #TEMP6[1]
AN #TEMP15[13]
S #TEMP6[1]
AN #TEMP6[14]
= #TEMP19[14]
A #TEMP6[14]
= #TEMP19[12]
A #TEMP6[1]
= #OUT4
= #TEMP19[13]
R #TEMP19[12]
R #TEMP19[14]
A #TEMP6[14]
= #OUT5
L #TEMP25
AW W#16#2F
L LB [AR2,P#10.0]
Page 181
 TRUMPF_STL_PROGRAM
AW W#16#D0
OW
T LB [AR2,P#10.0]
LAR1 #TEMP27
OPN DB [#TEMP28]
L LD [AR2,P#8.0]
T D [AR1,P#0.0]
L LD [AR2,P#12.0]
T D [AR1,P#4.0]
M021: SET
S #TEMP6[7]
LAR2 #TEMP31
OPN DB 8
L LW 0
T DBW [AR2,P#0.0]
L #TEMP36
T DBB [AR2,P#2.0]
L #TEMP10
T DBB [AR2,P#3.0]
S DBX 1.7
BEU
M018: CALL FC 20
IN0:=40
IN1:=24
IN2:=#TEMP26
IN3:=0
IN4:=TRUE
CALL SFC 46
FC25:

L DB7.DBW 128
T #TEMP12
L DB7.DBW 130
T #TEMP13
L DB7.DBW 132
T #TEMP14
L #IN0
PUSH
AW W#16#F
T #TEMP29
POP
AW W#16#F0
SET
JZ M001
S #TEMP34
LAR2 P#62.0
LAR1 DB7.DBD 150
JU M002
M001: R #TEMP34
LAR2 P#0.0
LAR1 DB7.DBD 146
M002: TAR2 #TEMP31
Page 182
 TRUMPF_STL_PROGRAM
OPN DI 8
L DIW [AR2,P#0.0]
T LW 0
A DIX 1.7
= #TEMP5[15]
L DBW [AR1,P#0.0]
T #TEMP28
L DBD [AR1,P#8.0]
T #TEMP27
L DBD [AR1,P#2.0]
LAR1
OPN DB [#TEMP28]
LAR2 P##TEMP15
L D [AR1,P#0.0]
T LD [AR2,P#0.0]
L D [AR1,P#4.0]
T LD [AR2,P#4.0]
LAR1 #TEMP27
L D [AR1,P#0.0]
T LD [AR2,P#8.0]
L W [AR1,P#4.0]
T LW [AR2,P#12.0]
A DIX 45.0
JCN M003
= #TEMP5[0]
= #TEMP5[1]
S DB10.DBX 57.0
M003: R #TEMP32
L B#16#0
T #TEMP25
T #TEMP6
T #TEMP7
T #TEMP8
T #TEMP9
AN #TEMP34
JC M004
L P#32.0
JU M005
M004: L P#8.0
M005: T #TEMP36
L LB [AR2,P#1.0]
AW W#16#3F
T #TEMP24
L LB [AR2,P#3.0]
AW W#16#1F
T #TEMP35
A #TEMP5[7]
JC M006
A #TEMP20[13]
= #TEMP33
A #TEMP17[12]
FP #TEMP5[3]
Page 183
 TRUMPF_STL_PROGRAM
JCN M007
S #TEMP32
AN #TEMP20[13]
= #TEMP20[13]
JU M006
M007: A #TEMP17[15]
= #TEMP21[0]
= L 2.7
A #TEMP17[9]
= #TEMP20[10]
= L 2.6
A #TEMP17[8]
= #TEMP20[9]
= L 3.7
A #TEMP17[2]
= #TEMP20[5]
= L 3.6
A #TEMP17[3]
= #TEMP20[6]
= L 5.7
A #TEMP17[10]
= #TEMP20[11]
= L 5.6
CLR
= #TEMP20[15]
= #TEMP20[4]
A #TEMP20[13]
JC M008
A #TEMP17[14]
= #TEMP20[15]
= L 4.7
A #TEMP17[1]
= #TEMP20[4]
= L 4.6
M008: A #TEMP17[13]
= #TEMP20[14]
= L 2.5
= L 3.5
= L 4.5
= L 5.5
M006: A #TEMP5[15]
JC M009
OPN DI 10
A #TEMP16[7]
= DIX 56.4
A #TEMP16[14]
= DIX 56.5
A #TEMP16[6]
= DIX 56.6
A #TEMP17[4]
= DIX 56.7
M009: L B#16#1
Page 184
 TRUMPF_STL_PROGRAM
T #TEMP26
L #TEMP12
L #TEMP29
OW W#16#0
JZ M00a
<I
JC M00b
DEC 1
L P#20.0
*I
LAR1
OPN DI 11
A #TEMP15[0]
= #TEMP10[0]
A #TEMP15[1]
= #TEMP10[1]
A #TEMP15[3]
= #TEMP10[2]
A #TEMP15[15]
= #TEMP10[9]
A #TEMP15[14]
= #TEMP10[10]
A #TEMP15[2]
= #TEMP10[8]
L DIW [AR1,P#0.0]
AW W#16#F8F8
L LW 6
AW W#16#707
OW
T DIW [AR1,P#0.0]
L DIW [AR1,P#6.0]
T LW 6
A #TEMP10[0]
= #TEMP19[0]
A #TEMP10[1]
= #TEMP19[1]
A #TEMP10[2]
= #TEMP19[3]
A #TEMP10[9]
= #TEMP19[11]
A #TEMP10[10]
= #TEMP19[10]
A #TEMP10[8]
= #TEMP19[2]
L #TEMP24
T DIB [AR1,P#2.0]
L DIB [AR1,P#8.0]
T #TEMP25
M00a: L B#16#2
T #TEMP26
L #TEMP13
L #IN1
Page 185
 TRUMPF_STL_PROGRAM
OW W#16#0
JZ M00c
<I
JC M00b
INC 20
T #TEMP11
OPN DI [#TEMP11]
A #TEMP20[13]
O #TEMP32
JCN M00d
A #TEMP5[7]
JC M00d
L #TEMP6
L DIB 12
AW W#16#1F
OW
T DIB 12
L #TEMP9
L DIB 16
AW W#16#1F
OW
T DIB 16
L #TEMP7
L DIB 20
AW W#16#1F
OW
T DIB 20
M00d: L #TEMP35
T DIB 4
A #TEMP16[1]
= DIX 7.1
AN #TEMP16[0]
= DIX 7.3
A #TEMP16[15]
= DIX 7.7
A DIX 35.0
= #TEMP19[13]
A DIX 35.3
O DIX 35.2
= #TEMP19[12]
A #TEMP16[13]
FP #TEMP5[4]
JCN M00c
AN DIX 0.4
= DIX 0.4
= #TEMP5[2]
M00c: AN #TEMP5[7]
JC M00e
A #TEMP5[2]
= DIX 0.4
M00e: A DIX 0.4
= #TEMP20[2]
Page 186
 TRUMPF_STL_PROGRAM
L #TEMP14
L #IN2
OW W#16#0
JZ M00f
<I
JC M00f
L #IN2
INC 30
T #TEMP11
OPN DI [#TEMP11]
L LB [AR2,P#0.0]
SRW 4
T DIB 19
M00f: A #TEMP5[7]
JC M010
OPN DB 10
LAR1 P##TEMP6
L #TEMP14
L 4
>=I
JC M011
TAK
M011: T #TEMP23
AN #TEMP20[13]
O #TEMP32
JCN M012
L DBB [#TEMP36]
OW W#16#0
JZ M013
INC 30
T #TEMP11
OPN DI [#TEMP11]
L LB [AR1,P#0.0]
L DIB 4
AW W#16#1F
OW
T DIB 4
L #TEMP35
T DIB 0
M013: +AR1 P#1.0
L #TEMP36
+ 8
T #TEMP36
L #TEMP23
LOOP M011
M012: A #TEMP16[3]
R #TEMP5[0]
AN #TEMP16[2]
S #TEMP5[0]
A #TEMP5[0]
= #OUT3
= #TEMP19[14]
Page 187
 TRUMPF_STL_PROGRAM
NOT
= #TEMP19[15]
A #TEMP16[5]
R #TEMP5[1]
AN #TEMP16[4]
S #TEMP5[1]
A #TEMP5[1]
= #OUT4
= #TEMP20[0]
NOT
= #TEMP20[1]
L #TEMP25
AW W#16#3F
SLW 4
CAW
L LW [AR2,P#8.0]
AW W#16#FFC
OW
T LW [AR2,P#8.0]
LAR1 #TEMP27
OPN DB [#TEMP28]
L LD [AR2,P#8.0]
T D [AR1,P#0.0]
L LW [AR2,P#12.0]
T W [AR1,P#4.0]
M010: SET
S #TEMP5[7]
LAR2 #TEMP31
OPN DB 8
L LW 0
T DBW [AR2,P#0.0]
S DBX 1.7
BEU
M00b: CALL FC 20
IN0:=40
IN1:=25
IN2:=#TEMP26
IN3:=0
IN4:=TRUE
CALL SFC 46

FC26:

L DB7.DBW 128
T #TEMP11
L DB7.DBW 130
T #TEMP12
L DB7.DBW 132
T #TEMP13
L #IN0
PUSH
AW W#16#F
Page 188
 TRUMPF_STL_PROGRAM
T #TEMP28
POP
AW W#16#F0
SET
JZ M001
S #TEMP34
LAR2 P#62.0
LAR1 DB7.DBD 150
JU M002
M001: R #TEMP34
LAR2 P#0.0
LAR1 DB7.DBD 146
M002: TAR2 #TEMP30
OPN DI 8
L DIW [AR2,P#0.0]
T LW 0
L DIB [AR2,P#2.0]
T #TEMP36
A DIX 1.7
= #TEMP2[15]
L DBW [AR1,P#0.0]
T #TEMP27
L DBD [AR1,P#8.0]
T #TEMP26
L DBD [AR1,P#2.0]
LAR1
OPN DB [#TEMP27]
LAR2 P##TEMP14
L D [AR1,P#0.0]
T LD [AR2,P#0.0]
L D [AR1,P#4.0]
T LD [AR2,P#4.0]
LAR1 #TEMP26
L D [AR1,P#0.0]
T LD [AR2,P#8.0]
L W [AR1,P#4.0]
T LW [AR2,P#12.0]
SET
S DB10.DBX 57.0
R #TEMP31
R #TEMP33
L B#16#0
T #TEMP3
T #TEMP4
T #TEMP5
T #TEMP6
T #TEMP7
T #TEMP8
T #TEMP23
AN #TEMP34
JC M003
L P#32.0
Page 189
 TRUMPF_STL_PROGRAM
JU M004
M003: L P#8.0
M004: T #TEMP37
A #TEMP14[9]
JCN M005
L B#16#20
T #TEMP23
M005: A #TEMP17[6]
JC M006
L #TEMP36
A #TEMP17[5]
FP #TEMP2[6]
JCN M007
A #TEMP17[4]
JC M008
INC 1
L 22
>I
JC M009
TAK
JU M009
M007: A #TEMP17[4]
FP #TEMP2[5]
JCN M009
A #TEMP17[5]
JC M008
OW W#16#0
JZ M009
DEC 1
JU M009
M008: L B#16#1
M009: T #TEMP36
INC 1
PUSH
SRW 1
XOW
JU M00a
M006: L B#16#0
T #TEMP36
L LB [AR2,P#7.0]
AW W#16#1F
M00a: T #TEMP35
A #TEMP2[7]
JC M00b
A #TEMP14[0]
FP #TEMP2[3]
JCN M00c
S #TEMP31
AN #TEMP18[0]
= #TEMP18[0]
JU M00b
M00c: A #TEMP15[0]
Page 190
 TRUMPF_STL_PROGRAM
= L 2.7
A #TEMP15[8]
= L 2.6
A #TEMP15[1]
= L 3.7
A #TEMP15[9]
= L 3.6
A #TEMP15[2]
= L 4.7
A #TEMP15[10]
= L 4.6
A #TEMP15[3]
= L 5.7
A #TEMP15[11]
= L 5.6
A #TEMP15[4]
= L 6.7
A #TEMP15[12]
= L 6.6
A #TEMP15[5]
= L 7.7
A #TEMP15[13]
= L 7.6
M00b: NOP 0
L B#16#1
T #TEMP25
L #TEMP11
L #TEMP28
OW W#16#0
JZ M00d
<I
JC M00e
DEC 1
L P#20.0
*I
LAR1
OPN DI 11
A #TEMP14[5]
= #TEMP9[0]
A #TEMP14[4]
= #TEMP9[1]
A #TEMP14[3]
= #TEMP9[2]
A #TEMP14[8]
= #TEMP9[9]
A #TEMP14[7]
= #TEMP9[10]
A #TEMP14[6]
= #TEMP9[8]
L DIW [AR1,P#0.0]
AW W#16#F8F8
L LW 8
Page 191
 TRUMPF_STL_PROGRAM
AW W#16#707
OW
T DIW [AR1,P#0.0]
L DIW [AR1,P#6.0]
T LW 8
A #TEMP9[0]
= #TEMP18[5]
A #TEMP9[1]
= #TEMP18[4]
A #TEMP9[2]
= #TEMP18[3]
A #TEMP9[9]
= #TEMP18[8]
A #TEMP9[10]
= #TEMP18[7]
A #TEMP9[8]
= #TEMP18[6]
L #TEMP23
T DIB [AR1,P#2.0]
M00d: L B#16#2
T #TEMP25
L #TEMP12
L #IN1
OW W#16#0
JZ M00f
<I
JC M00e
INC 20
T #TEMP10
OPN DI [#TEMP10]
A #TEMP18[0]
O #TEMP31
JCN M010
A #TEMP2[7]
JC M010
L #TEMP3
L DIB 12
AW W#16#1F
OW
T DIB 12
L #TEMP4
L DIB 16
AW W#16#1F
OW
T DIB 16
L #TEMP5
L DIB 20
AW W#16#1F
OW
T DIB 20
M010: L #TEMP35
T DIB 4
Page 192
 TRUMPF_STL_PROGRAM
A #TEMP17[1]
= DIX 7.1
A #TEMP17[0]
= DIX 7.3
A #TEMP14[1]
= DIX 7.7
A #TEMP16[10]
FP #TEMP2[4]
JCN M00f
AN DIX 0.4
= DIX 0.4
= #TEMP2[2]
M00f: AN #TEMP2[7]
JC M011
A #TEMP2[2]
= DIX 0.4
M011: A #TEMP2[7]
JC M012
OPN DB 10
LAR1 P##TEMP3
L B#16#1
T #TEMP29
L #TEMP13
L 6
>=I
JC M013
TAK
M013: T #TEMP22
L DBB [#TEMP37]
OW W#16#0
JZ M014
INC 30
T #TEMP10
OPN DI [#TEMP10]
AN #TEMP18[0]
O #TEMP31
O #TEMP33
JCN M015
L LB [AR1,P#0.0]
L DIB 4
AW W#16#1F
OW
T DIB 4
M015: L B#16#3
L #TEMP29
==I
AN #TEMP19[15]
S #TEMP33
INC 1
T #TEMP29
L #TEMP35
T DIB 0
Page 193
 TRUMPF_STL_PROGRAM
M014: +AR1 P#1.0
L #TEMP37
+ 8
T #TEMP37
L #TEMP22
LOOP M013
LAR1 #TEMP26
OPN DB [#TEMP27]
L LD [AR2,P#8.0]
T D [AR1,P#0.0]
L LW [AR2,P#12.0]
T W [AR1,P#4.0]
M012: SET
S #TEMP2[7]
LAR2 #TEMP30
OPN DB 8
L LW 0
T DBW [AR2,P#0.0]
L #TEMP36
T DBB [AR2,P#2.0]
S DBX 1.7
BEU
M00e: CALL FC 20
IN0:=40
IN1:=26
IN2:=#TEMP25
IN3:=0
IN4:=TRUE
CALL SFC 46

Page 194