BEGIN PGM 257.h MM ; h++ 2 13 8 2015_05_07
 QL8 = SGN( Q201 )                                     ; src/257.hpp       :0025
 QL6 = Q203 + Q201                                     ; src/257.hpp       :0026
 CALL LBL "257$CirStud.PRINT"
 CALL LBL "257$CirStud.MILL"
 QL38 = Q351                                           ; src/257.hpp       :0031
 QL39 = Q203                                           ; src/257.hpp       :0031
 QL40 = Q200                                           ; src/257.hpp       :0031
 QL41 = Q204                                           ; src/257.hpp       :0031
 QL42 = Q370                                           ; src/257.hpp       :0031
 QL43 = Q201                                           ; src/257.hpp       :0031
 CALL LBL "257$CirStud.init"
 QL44 = Q207                                           ; src/257.hpp       :0032
 QL45 = Q207                                           ; src/257.hpp       :0032
 QL46 = Q206                                           ; src/257.hpp       :0032
 QL47 = Q201                                           ; src/257.hpp       :0032
 CALL LBL "257$CirStud.set_feed"
 Q0 = ABS (Q223 + (2 * Q368))                          ; src/257.hpp       :0036
 Q1 = Q223 + (2 * Q368)                                ; src/257.hpp       :0036
 FN 11: IF Q0 GT Q222 GOTO LBL "IF_1"                  ; src/257.hpp       :0036
 FN 12: IF Q222 LT Q223 GOTO LBL "IF_1"                ; src/257.hpp       :0036
 FN 9: IF Q1 EQU 0 GOTO LBL "IF_1"                     ; src/257.hpp       :0036
 FN 12: IF Q1 LT 0 GOTO LBL "IF_1"                     ; src/257.hpp       :0036
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_1"                   ; src/257.hpp       :0036
 LBL "IF_1"                                            ; src/257.hpp       :0036
 FN 14: ERROR= 1098                                    ; src/257.hpp       :0038
 LBL "IFNOT_1"                                         ; src/257.hpp       :0039
 CALL LBL "257$CirStud.get_ToolLCut"
 QL2 = QL48                                            ; src/257.hpp       :0040
 QL3 = (Q222/2) + QL36                                 ; src/257.hpp       :0044
 FN 9: IF QL32 EQU QL33 GOTO LBL "IFNOT_2"             ; src/257.hpp       :0045
 FN 12: IF QL32 LT QL33 GOTO LBL "IFNOT_2"             ; src/257.hpp       :0045
 QL3 = QL3 + QL32                                      ; src/257.hpp       :0047
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_2"                   ; src/257.hpp       :0048
 LBL "IFNOT_2"                                         ; src/257.hpp       :0048
 QL3 = QL3 + QL33                                      ; src/257.hpp       :0051
 LBL "ENDIF_2"                                         ; src/257.hpp       :0052
 FN 9: IF Q376 EQU 0 GOTO LBL "IFNOT_3"                ; src/257.hpp       :0053
 FN 11: IF Q376 GT 0 GOTO LBL "IFNOT_3"                ; src/257.hpp       :0053
 QL4 = 0                                               ; src/257.hpp       :0055
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_3"                   ; src/257.hpp       :0056
 LBL "IFNOT_3"                                         ; src/257.hpp       :0056
 QL4 = Q376                                            ; src/257.hpp       :0059
 LBL "ENDIF_3"                                         ; src/257.hpp       :0060
 CALL LBL "read_wcs"
 QL0 = QL49                                            ; src/257.hpp       :0061
 QL1 = QL50                                            ; src/257.hpp       :0061
 QL52 = QL0+QL3*COS( QL4 )                             ; src/257.hpp       :0062
 QL53 = QL1+QL3*SIN( QL4 )                             ; src/257.hpp       :0062
 QL54 = Q203                                           ; src/257.hpp       :0062
 QL55 = QL36                                           ; src/257.hpp       :0062
 QL56 = Q204                                           ; src/257.hpp       :0062
 QL57 = Q201                                           ; src/257.hpp       :0062
 CALL LBL "prepos"
 FN 9: IF Q202 EQU 0 GOTO LBL "IFNOT_4"                ; src/257.hpp       :0066
 QL7 = ABS( Q202 )                                     ; src/257.hpp       :0068
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_4"                   ; src/257.hpp       :0069
 LBL "IFNOT_4"                                         ; src/257.hpp       :0069
 FN 14: ERROR= 1090                                    ; src/257.hpp       :0072
 LBL "ENDIF_4"                                         ; src/257.hpp       :0073
 FN 9: IF QL7 EQU QL2 GOTO LBL "IFNOT_5"               ; src/257.hpp       :0074
 FN 12: IF QL7 LT QL2 GOTO LBL "IFNOT_5"               ; src/257.hpp       :0074
 FN 9: IF QL2 EQU 0 GOTO LBL "IFNOT_5"                 ; src/257.hpp       :0074
 FN 12: IF QL2 LT 0 GOTO LBL "IFNOT_5"                 ; src/257.hpp       :0074
 QL7 = QL2                                             ; src/257.hpp       :0076
 LBL "IFNOT_5"                                         ; src/257.hpp       :0077
 QL7 = QL7 * QL8                                       ; src/257.hpp       :0078
 QL5=Q203+QL7                                          ; src/257.hpp       :0082
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_6"                  ; src/257.hpp       :0082
 LBL "FOR_6"                                           ; src/257.hpp       :0082
 QL5=QL5+QL7                                           ; src/257.hpp       :0082
 LBL "FORCMP_6"                                        ; src/257.hpp       :0082
  FN 10: IF QL8 NE -1 GOTO LBL "CTRLCMD0_7"            ; src/257.hpp       :0084
  FN 11: IF QL5 GT QL6 GOTO LBL "CTRLCMD0_7"           ; src/257.hpp       :0084
  FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_6"                 ; src/257.hpp       :0084
  LBL "CTRLCMD0_7"                                     ; src/257.hpp       :0084
  FN 10: IF QL8 NE +1 GOTO LBL "CTRLCMD1_8"            ; src/257.hpp       :0085
  FN 12: IF QL5 LT QL6 GOTO LBL "CTRLCMD1_8"           ; src/257.hpp       :0085
  FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_6"                 ; src/257.hpp       :0085
  LBL "CTRLCMD1_8"                                     ; src/257.hpp       :0085
 CC X+QL0 Y+QL1                                        ; src/257.hpp       :0086
 LP PR+QL3 PA+QL4 R0 FMAX                              ; src/257.hpp       :0087
 Q0 = QL5-(QL36*QL8 + QL7)                             ; src/257.hpp       :0088
 L  Z+Q0 R0 FMAX                                       ; src/257.hpp       :0088
 QL58 = QL0                                            ; src/257.hpp       :0089
 QL59 = QL1                                            ; src/257.hpp       :0089
 QL60 = QL5                                            ; src/257.hpp       :0089
 QL61 = Q223/2                                         ; src/257.hpp       :0089
 QL62 = Q368                                           ; src/257.hpp       :0089
 QL63 = Q222/2                                         ; src/257.hpp       :0089
 QL64 = QL4                                            ; src/257.hpp       :0089
 CALL LBL "257$CirStud.cir_stud"
 QL4 = QL65                                            ; src/257.hpp       :0089
  FN 9: IF Q376 EQU 0 GOTO LBL "IFNOT_9"               ; src/257.hpp       :0090
  FN 11: IF Q376 GT 0 GOTO LBL "IFNOT_9"               ; src/257.hpp       :0090
  Q0 = QL5-QL36*QL8                                    ; src/257.hpp       :0092
  L  Z+Q0 R0 FMAX                                      ; src/257.hpp       :0092
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_9"                  ; src/257.hpp       :0093
  LBL "IFNOT_9"                                        ; src/257.hpp       :0093
  L  Z+QL37 R0 FMAX                                    ; src/257.hpp       :0096
  QL4 = Q376                                           ; src/257.hpp       :0097
  LBL "ENDIF_9"                                        ; src/257.hpp       :0098
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_6"                     ; src/257.hpp       :0099
 LBL "FORNOT_6"                                        ; src/257.hpp       :0099
 CC X+QL0 Y+QL1                                        ; src/257.hpp       :0103
 LP PR+QL3 PA+QL4 R0 FMAX                              ; src/257.hpp       :0104
 Q0 = QL5-(QL36*QL8 + QL7)                             ; src/257.hpp       :0105
 L  Z+Q0 R0 FMAX                                       ; src/257.hpp       :0105
 QL58 = QL0                                            ; src/257.hpp       :0106
 QL59 = QL1                                            ; src/257.hpp       :0106
 QL60 = QL6                                            ; src/257.hpp       :0106
 QL61 = Q223/2                                         ; src/257.hpp       :0106
 QL62 = Q368                                           ; src/257.hpp       :0106
 QL63 = Q222/2                                         ; src/257.hpp       :0106
 QL64 = QL4                                            ; src/257.hpp       :0106
 CALL LBL "257$CirStud.cir_stud"
 QL4 = QL65                                            ; src/257.hpp       :0106
 L  Z+QL37 R0 FMAX                                     ; src/257.hpp       :0110
LBL "e_2570"                                           ; src/257.hpp       :0008
FN 9: IF 0 EQU 0 GOTO LBL "EXIT"                       ;                   :-001
LBL "257$CirStud.PRINT"                                ; src/print/print.hpp:0059
 FN 18: SYSREAD QL9 = ID 992 NR 16                     ; src/print/print.hpp:0088
 FN 10: IF QL9 NE 1 GOTO LBL "IFNOT_10"                ; src/print/print.hpp:0089
 QS3 = ""                                              ; src/print/print.hpp:0093
 QS4 = "CfgDisplayLanguage"                            ; src/print/print.hpp:0094
 QS5 = "ncLanguage"                                    ; src/print/print.hpp:0095
 QL66 = CFGREAD( KEY_ QS3 TAG_ QS4 ATR_ QS5 IDX0 )     ; src/print/print.hpp:0096
 QS11 = "%SYS%\JHCYC\NC"                               ; src/print/print.hpp:0103
  FN 9: IF QL66 EQU 1 GOTO LBL "CASE0_11"              ; src/print/print.hpp:0105
  FN 9: IF QL66 EQU 2 GOTO LBL "CASE1_11"              ; src/print/print.hpp:0105
  FN 9: IF QL66 EQU 3 GOTO LBL "CASE2_11"              ; src/print/print.hpp:0105
  FN 9: IF QL66 EQU 4 GOTO LBL "CASE3_11"              ; src/print/print.hpp:0105
  FN 9: IF QL66 EQU 5 GOTO LBL "CASE4_11"              ; src/print/print.hpp:0105
  FN 9: IF QL66 EQU 6 GOTO LBL "CASE5_11"              ; src/print/print.hpp:0105
  FN 9: IF QL66 EQU 7 GOTO LBL "CASE6_11"              ; src/print/print.hpp:0105
  FN 9: IF QL66 EQU 8 GOTO LBL "CASE7_11"              ; src/print/print.hpp:0105
  FN 9: IF QL66 EQU 9 GOTO LBL "CASE8_11"              ; src/print/print.hpp:0105
  FN 9: IF QL66 EQU 10 GOTO LBL "CASE9_11"             ; src/print/print.hpp:0105
  FN 9: IF QL66 EQU 11 GOTO LBL "CASE10_11"            ; src/print/print.hpp:0105
  FN 9: IF QL66 EQU 12 GOTO LBL "CASE11_11"            ; src/print/print.hpp:0105
  FN 9: IF QL66 EQU 17 GOTO LBL "CASE12_11"            ; src/print/print.hpp:0105
  FN 9: IF QL66 EQU 21 GOTO LBL "CASE13_11"            ; src/print/print.hpp:0105
  FN 9: IF QL66 EQU 22 GOTO LBL "CASE14_11"            ; src/print/print.hpp:0105
  FN 9: IF QL66 EQU 23 GOTO LBL "CASE15_11"            ; src/print/print.hpp:0105
  FN 9: IF QL66 EQU 24 GOTO LBL "CASE16_11"            ; src/print/print.hpp:0105
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_11"             ; src/print/print.hpp:0105
  LBL "CASE0_11"                                       ; src/print/print.hpp:0106
  QS11 = QS11 || "\DE.TAB"                             ; src/print/print.hpp:0107
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0108
  LBL "CASE1_11"                                       ; src/print/print.hpp:0109
  QS11 = QS11 || "\CS.TAB"                             ; src/print/print.hpp:0110
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0111
  LBL "CASE2_11"                                       ; src/print/print.hpp:0112
  QS11 = QS11 || "\FR.TAB"                             ; src/print/print.hpp:0113
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0114
  LBL "CASE3_11"                                       ; src/print/print.hpp:0115
  QS11 = QS11 || "\IT.TAB"                             ; src/print/print.hpp:0116
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0117
  LBL "CASE4_11"                                       ; src/print/print.hpp:0118
  QS11 = QS11 || "\ES.TAB"                             ; src/print/print.hpp:0119
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0120
  LBL "CASE5_11"                                       ; src/print/print.hpp:0121
  QS11 = QS11 || "\PT.TAB"                             ; src/print/print.hpp:0122
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0123
  LBL "CASE6_11"                                       ; src/print/print.hpp:0124
  QS11 = QS11 || "\SV.TAB"                             ; src/print/print.hpp:0125
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0126
  LBL "CASE7_11"                                       ; src/print/print.hpp:0127
  QS11 = QS11 || "\DA.TAB"                             ; src/print/print.hpp:0128
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0129
  LBL "CASE8_11"                                       ; src/print/print.hpp:0130
  QS11 = QS11 || "\FI.TAB"                             ; src/print/print.hpp:0131
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0132
  LBL "CASE9_11"                                       ; src/print/print.hpp:0133
  QS11 = QS11 || "\NL.TAB"                             ; src/print/print.hpp:0134
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0135
  LBL "CASE10_11"                                      ; src/print/print.hpp:0136
  QS11 = QS11 || "\PL.TAB"                             ; src/print/print.hpp:0137
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0138
  LBL "CASE11_11"                                      ; src/print/print.hpp:0139
  QS11 = QS11 || "\HU.TAB"                             ; src/print/print.hpp:0140
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0141
  LBL "CASE12_11"                                      ; src/print/print.hpp:0142
  QS11 = QS11 || "\SL.TAB"                             ; src/print/print.hpp:0143
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0144
  LBL "CASE13_11"                                      ; src/print/print.hpp:0145
  QS11 = QS11 || "\NB.TAB"                             ; src/print/print.hpp:0146
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0147
  LBL "CASE14_11"                                      ; src/print/print.hpp:0148
  QS11 = QS11 || "\RO.TAB"                             ; src/print/print.hpp:0149
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0150
  LBL "CASE15_11"                                      ; src/print/print.hpp:0151
  QS11 = QS11 || "\SK.TAB"                             ; src/print/print.hpp:0152
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0153
  LBL "CASE16_11"                                      ; src/print/print.hpp:0154
  QS11 = QS11 || "\TR.TAB"                             ; src/print/print.hpp:0155
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0156
  LBL "SWITCHDEF_11"                                   ; src/print/print.hpp:0157
  QS11 = QS11 || "\EN.TAB"                             ; src/print/print.hpp:0158
  LBL "SWITCHEND_11"                                   ; src/print/print.hpp:0159
 LBL "IFNOT_10"                                        ; src/print/print.hpp:0160
LBL 0                                                  ; src/print/print.hpp:0059
LBL "257$CirStud.MILL"                                 ; includes/mill.hpp :0049
 QS3 = "CH_NC"                                         ; includes/mill.hpp :0071
 QS4 = "CfgGeoCycle"                                   ; includes/mill.hpp :0072
 QS5 = "suppressPlungeErr"                             ; includes/mill.hpp :0073
 QS3 = CFGREAD( KEY_ QS3 TAG_ QS4 ATR_ QS5 IDX0 )      ; includes/mill.hpp :0074
 QS0 = "on"                                            ; includes/mill.hpp :0075
 QL11 = STRCOMP( SRC_ QS3 SEA_ QS0 )                   ; includes/mill.hpp :0075
 FN 9: IF QL11 EQU 0 GOTO LBL "IFNOT_12"               ; includes/mill.hpp :0076
 QL11 = 1                                              ; includes/mill.hpp :0076
 LBL "IFNOT_12"                                        ; includes/mill.hpp :0076
 FN 18: SYSREAD QL12 = ID 20 NR 3                      ; includes/mill.hpp :0080
 FN 18: SYSREAD QL35 = ID 200 NR 3 IDX 2               ; includes/mill.hpp :0084
 FN 18: SYSREAD QL18 = ID 210 NR 3                     ; includes/mill.hpp :0089
 FN 9: IF QL12 EQU 0 GOTO LBL "CASE0_13"               ; includes/mill.hpp :0090
 FN 9: IF QL12 EQU 6 GOTO LBL "CASE1_13"               ; includes/mill.hpp :0090
 FN 9: IF QL12 EQU 1 GOTO LBL "CASE2_13"               ; includes/mill.hpp :0090
 FN 9: IF QL12 EQU 7 GOTO LBL "CASE3_13"               ; includes/mill.hpp :0090
 FN 9: IF QL12 EQU 2 GOTO LBL "CASE4_13"               ; includes/mill.hpp :0090
 FN 9: IF QL12 EQU 8 GOTO LBL "CASE5_13"               ; includes/mill.hpp :0090
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"              ; includes/mill.hpp :0090
 LBL "CASE0_13"                                        ; includes/mill.hpp :0091
 LBL "CASE1_13"                                        ; includes/mill.hpp :0092
 FN 18: SYSREAD QL15 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0093
 FN 18: SYSREAD QL16 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0094
 FN 18: SYSREAD QL17 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0095
 QL68 = QL18                                           ; includes/mill.hpp :0096
 QL69 = 1                                              ; includes/mill.hpp :0096
 CALL LBL "check_bit"
 QL19 = QL70                                           ; includes/mill.hpp :0096
 QL68 = QL18                                           ; includes/mill.hpp :0097
 QL69 = 2                                              ; includes/mill.hpp :0097
 CALL LBL "check_bit"
 QL20 = QL70                                           ; includes/mill.hpp :0097
 QL68 = QL18                                           ; includes/mill.hpp :0098
 QL69 = 0                                              ; includes/mill.hpp :0098
 CALL LBL "check_bit"
 QL21 = QL70                                           ; includes/mill.hpp :0098
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"              ; includes/mill.hpp :0099
 LBL "CASE2_13"                                        ; includes/mill.hpp :0100
 LBL "CASE3_13"                                        ; includes/mill.hpp :0101
 FN 18: SYSREAD QL15 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0102
 FN 18: SYSREAD QL16 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0103
 FN 18: SYSREAD QL17 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0104
 QL68 = QL18                                           ; includes/mill.hpp :0105
 QL69 = 2                                              ; includes/mill.hpp :0105
 CALL LBL "check_bit"
 QL19 = QL70                                           ; includes/mill.hpp :0105
 QL68 = QL18                                           ; includes/mill.hpp :0106
 QL69 = 0                                              ; includes/mill.hpp :0106
 CALL LBL "check_bit"
 QL20 = QL70                                           ; includes/mill.hpp :0106
 QL68 = QL18                                           ; includes/mill.hpp :0107
 QL69 = 1                                              ; includes/mill.hpp :0107
 CALL LBL "check_bit"
 QL21 = QL70                                           ; includes/mill.hpp :0107
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"              ; includes/mill.hpp :0108
 LBL "CASE4_13"                                        ; includes/mill.hpp :0109
 LBL "CASE5_13"                                        ; includes/mill.hpp :0110
 FN 18: SYSREAD QL15 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0111
 FN 18: SYSREAD QL16 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0112
 FN 18: SYSREAD QL17 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0113
 QL68 = QL18                                           ; includes/mill.hpp :0114
 QL69 = 0                                              ; includes/mill.hpp :0114
 CALL LBL "check_bit"
 QL19 = QL70                                           ; includes/mill.hpp :0114
 QL68 = QL18                                           ; includes/mill.hpp :0115
 QL69 = 1                                              ; includes/mill.hpp :0115
 CALL LBL "check_bit"
 QL20 = QL70                                           ; includes/mill.hpp :0115
 QL68 = QL18                                           ; includes/mill.hpp :0116
 QL69 = 2                                              ; includes/mill.hpp :0116
 CALL LBL "check_bit"
 QL21 = QL70                                           ; includes/mill.hpp :0116
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"              ; includes/mill.hpp :0117
 LBL "SWITCHEND_13"                                    ; includes/mill.hpp :0118
 FN 9: IF QL15 EQU QL16 GOTO LBL "IFNOT_14"            ; includes/mill.hpp :0119
 FN 14: ERROR= 1108                                    ; includes/mill.hpp :0119
 LBL "IFNOT_14"                                        ; includes/mill.hpp :0119
 QL31 = 0                                              ; includes/mill.hpp :0123
 FN 18: SYSREAD Q0 = ID 630 NR 0                       ; includes/mill.hpp :0129
 FN 10: IF Q0 NE 0 GOTO LBL "IFNOT_15"                 ; includes/mill.hpp :0129
 QL22 = 0.002                                          ; includes/mill.hpp :0130
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_15"                  ; includes/mill.hpp :0131
 LBL "IFNOT_15"                                        ; includes/mill.hpp :0131
 QL22 = 0.0002                                         ; includes/mill.hpp :0133
 LBL "ENDIF_15"                                        ; includes/mill.hpp :0134
 FN 18: SYSREAD QL10 = ID 992 NR 30                    ; includes/mill.hpp :0135
 FN 18: SYSREAD QL30 = ID 610 NR 6                     ; includes/mill.hpp :0136
 FN 18: SYSREAD QL14 = ID 950 NR 13                    ; includes/mill.hpp :0140
 FN 18: SYSREAD QL13 = ID 950 NR 14                    ; includes/mill.hpp :0141
 FN 18: SYSREAD QL32 = ID 200 NR 1 IDX 2               ; includes/mill.hpp :0142
 FN 18: SYSREAD QL33 = ID 200 NR 1 IDX 3               ; includes/mill.hpp :0143
 FN 11: IF QL32 GT 0 GOTO LBL "IFNOT_16"               ; includes/mill.hpp :0144
 FN 14: ERROR= 1002                                    ; includes/mill.hpp :0144
 LBL "IFNOT_16"                                        ; includes/mill.hpp :0144
 FN 9: IF QL32 EQU QL33 GOTO LBL "IFNOT_17"            ; includes/mill.hpp :0145
 FN 12: IF QL32 LT QL33 GOTO LBL "IFNOT_17"            ; includes/mill.hpp :0145
 QL34 = QL32                                           ; includes/mill.hpp :0146
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_17"                  ; includes/mill.hpp :0147
 LBL "IFNOT_17"                                        ; includes/mill.hpp :0147
 QL34 = QL33                                           ; includes/mill.hpp :0149
 LBL "ENDIF_17"                                        ; includes/mill.hpp :0150
 QL32 = QL32 / QL15                                    ; includes/mill.hpp :0154
 QL33 = QL33 / QL15                                    ; includes/mill.hpp :0155
 QL34 = QL34 / QL15                                    ; includes/mill.hpp :0156
 QL14 = QL14 / QL17                                    ; includes/mill.hpp :0157
 CALL LBL "check_spindle_status"
 QL71 = 3                                              ; includes/mill.hpp :0165
 CALL LBL "swap_axes"
LBL 0                                                  ; includes/mill.hpp :0049
LBL "257$CirStud.init"                                 ; includes/mill.hpp :0050
 FN 9: IF Q110 EQU 1 GOTO LBL "CASE0_18"               ; includes/mill.hpp :0175
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_18"              ; includes/mill.hpp :0175
 LBL "CASE0_18"                                        ; includes/mill.hpp :0177
 QL31 = +QL38                                          ; includes/mill.hpp :0178
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_18"              ; includes/mill.hpp :0179
 LBL "SWITCHDEF_18"                                    ; includes/mill.hpp :0180
 QL31 = -QL38                                          ; includes/mill.hpp :0181
 LBL "SWITCHEND_18"                                    ; includes/mill.hpp :0182
 FN 10: IF QL19 NE 1 GOTO LBL "IFNOT_19"               ; includes/mill.hpp :0183
 QL31 = -QL31                                          ; includes/mill.hpp :0185
 LBL "IFNOT_19"                                        ; includes/mill.hpp :0186
 FN 10: IF QL20 NE 1 GOTO LBL "IFNOT_20"               ; includes/mill.hpp :0187
 QL31 = -QL31                                          ; includes/mill.hpp :0189
 LBL "IFNOT_20"                                        ; includes/mill.hpp :0190
 QL28 = QL32 * QL42                                    ; includes/mill.hpp :0194
 QL72 = QL43                                           ; includes/mill.hpp :0198
 CALL LBL "check_depth_sign"
 FN 9: IF QL43 EQU 0 GOTO LBL "EXIT"                   ; includes/mill.hpp :0199
 QL29 = QL43                                           ; includes/mill.hpp :0200
 QL23 = QL39                                           ; includes/mill.hpp :0205
 QL36 = ABS( QL40 )                                    ; includes/mill.hpp :0206
 FN 9: IF QL36 EQU 0.001 GOTO LBL "IFNOT_22"           ; includes/mill.hpp :0207
 FN 11: IF QL36 GT 0.001 GOTO LBL "IFNOT_22"           ; includes/mill.hpp :0207
 QL36 = 0.001                                          ; includes/mill.hpp :0207
 LBL "IFNOT_22"                                        ; includes/mill.hpp :0207
 FN 9: IF QL41 EQU QL36 GOTO LBL "IFNOT_23"            ; includes/mill.hpp :0208
 FN 11: IF QL41 GT QL36 GOTO LBL "IFNOT_23"            ; includes/mill.hpp :0208
 QL37 = QL36                                           ; includes/mill.hpp :0210
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_23"                  ; includes/mill.hpp :0211
 LBL "IFNOT_23"                                        ; includes/mill.hpp :0211
 QL37 = QL41                                           ; includes/mill.hpp :0214
 LBL "ENDIF_23"                                        ; includes/mill.hpp :0215
 QL37 = QL23 - ( QL37 * SGN( QL29 ) )                  ; includes/mill.hpp :0216
LBL 0                                                  ; includes/mill.hpp :0050
LBL "257$CirStud.set_feed"                             ; includes/mill.hpp :0051
 QL24 = QL44                                           ; includes/mill.hpp :0223
 QL25 = QL45                                           ; includes/mill.hpp :0224
 QL26 = QL46                                           ; includes/mill.hpp :0225
 FN 11: IF QL47 GT 0 GOTO LBL "IFNOT_24"               ; includes/mill.hpp :0226
  FN 9: IF QL47 EQU -57239891 GOTO LBL "IFNOT_25"      ; includes/mill.hpp :0228
  QL27 = QL24                                          ; includes/mill.hpp :0230
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_25"                 ; includes/mill.hpp :0231
  LBL "IFNOT_25"                                       ; includes/mill.hpp :0231
  FN 22: FUNCT QL44 FNR 910 PIN 59 PIN 2 PEX 27        ; includes/mill.hpp :0235
  LBL "ENDIF_25"                                       ; includes/mill.hpp :0236
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_24"                  ; includes/mill.hpp :0238
 LBL "IFNOT_24"                                        ; includes/mill.hpp :0238
 QL27 = QL47                                           ; includes/mill.hpp :0241
 LBL "ENDIF_24"                                        ; includes/mill.hpp :0242
LBL 0                                                  ; includes/mill.hpp :0051
LBL "257$CirStud.get_ToolLCut"                         ; includes/mill.hpp :0054
 QL48 = QL14                                           ; includes/mill.hpp :0279
LBL 0                                                  ; includes/mill.hpp :0054
LBL "read_wcs"                                         ; includes/stdlib.hh:0081
 FN 18: SYSREAD Q0 = ID 990 NR 2 IDX 16                ; includes/geo.hpp  :0618
 FN 9: IF Q0 EQU 1 GOTO LBL "IFNOT_26"                 ; includes/geo.hpp  :0618
 FN 17: SYSWRITE ID 991 NR 100 = 1                     ; includes/geo.hpp  :0620
 LBL "IFNOT_26"                                        ; includes/geo.hpp  :0621
 FN 18: SYSREAD Q0 = ID 20 NR 3 IDX 0                  ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 0 GOTO LBL "CASE0_27"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 6 GOTO LBL "CASE1_27"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 1 GOTO LBL "CASE2_27"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 7 GOTO LBL "CASE3_27"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 2 GOTO LBL "CASE4_27"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 8 GOTO LBL "CASE5_27"                 ; includes/geo.hpp  :0627
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_27"              ; includes/geo.hpp  :0627
 LBL "CASE0_27"                                        ; includes/geo.hpp  :0629
 LBL "CASE1_27"                                        ; includes/geo.hpp  :0630
 FN 18: SYSREAD QL49 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0631
 FN 18: SYSREAD QL50 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0632
 FN 18: SYSREAD QL51 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0633
 LBL 0                                                 ; includes/geo.hpp  :0634
 LBL "CASE2_27"                                        ; includes/geo.hpp  :0635
 LBL "CASE3_27"                                        ; includes/geo.hpp  :0636
 FN 18: SYSREAD QL49 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0637
 FN 18: SYSREAD QL50 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0638
 FN 18: SYSREAD QL51 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0639
 LBL 0                                                 ; includes/geo.hpp  :0640
 LBL "CASE4_27"                                        ; includes/geo.hpp  :0641
 LBL "CASE5_27"                                        ; includes/geo.hpp  :0642
 FN 18: SYSREAD QL49 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0643
 FN 18: SYSREAD QL50 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0644
 FN 18: SYSREAD QL51 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0645
 LBL 0                                                 ; includes/geo.hpp  :0646
 LBL "SWITCHEND_27"                                    ; includes/geo.hpp  :0647
LBL 0                                                  ; includes/stdlib.hh:0081
LBL "prepos"                                           ; includes/stdlib.hh:0108
 QL73 = QL56                                           ; includes/geo.hpp  :0780
 QL74 = QL57                                           ; includes/geo.hpp  :0780
 QL75 = QL54                                           ; includes/geo.hpp  :0780
 CALL LBL "retreat"
 FN 18: SYSREAD Q0 = ID 992 NR 30                      ; includes/geo.hpp  :0784
 FN 10: IF Q0 NE 1 GOTO LBL "IFNOT_28"                 ; includes/geo.hpp  :0784
 L  X+QL52 Y+QL53 R0 FMAX                              ; includes/geo.hpp  :0786
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_28"                  ; includes/geo.hpp  :0787
 LBL "IFNOT_28"                                        ; includes/geo.hpp  :0787
 X+QL52 R0 FMAX                                        ; includes/geo.hpp  :0790
 Y+QL53 R0 FMAX                                        ; includes/geo.hpp  :0791
 LBL "ENDIF_28"                                        ; includes/geo.hpp  :0792
 Q0 = QL54 - (ABS(QL55) * SGN(QL57))                   ; includes/geo.hpp  :0794
 Z+Q0 FMAX                                             ; includes/geo.hpp  :0794
LBL 0                                                  ; includes/stdlib.hh:0108
LBL "257$CirStud.cir_stud"                             ; includes/mill.hpp :0057
 TRANS DATUM AXIS IX+QL58 IY+QL59                      ; includes/mill.hpp :0743
 FN 12: IF QL31 LT 0 GOTO LBL "IFNOT_29"               ; includes/mill.hpp :0744
 QL65 = -QL64                                          ; includes/mill.hpp :0746
  FN 10: IF QL20 NE 1 GOTO LBL "IFNOT_30"              ; includes/mill.hpp :0747
  QL87 = QL18 - 2                                      ; includes/mill.hpp :0749
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_30"                 ; includes/mill.hpp :0750
  LBL "IFNOT_30"                                       ; includes/mill.hpp :0750
  QL87 = QL18 + 2                                      ; includes/mill.hpp :0753
  LBL "ENDIF_30"                                       ; includes/mill.hpp :0754
 FN 17: SYSWRITE ID 210 NR 3 = QL87                    ; includes/mill.hpp :0755
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_29"                  ; includes/mill.hpp :0756
 LBL "IFNOT_29"                                        ; includes/mill.hpp :0756
 QL65 = QL64                                           ; includes/mill.hpp :0759
 LBL "ENDIF_29"                                        ; includes/mill.hpp :0760
 CC X+0 Y+0                                            ; includes/mill.hpp :0764
 QL77 = QL61 + QL62                                    ; includes/mill.hpp :0768
 Q0 = QL63 - QL77                                      ; includes/mill.hpp :0769
 Q1 = QL63 / 100                                       ; includes/mill.hpp :0769
 FN 11: IF Q0 GT Q1 GOTO LBL "IFNOT_31"                ; includes/mill.hpp :0769
 QL63 = QL77 + ( QL63 / 100 )                          ; includes/mill.hpp :0771
 LBL "IFNOT_31"                                        ; includes/mill.hpp :0772
 QL76 = QL63 + QL33 + 2                                ; includes/mill.hpp :0773
 LP PR+QL76 PA+QL65 R0 FMAX                            ; includes/mill.hpp :0774
 L  Z+QL60 F QL26                                      ; includes/mill.hpp :0775
 QL78 = 2 * ( (QL63 - QL77) / QL28 )                   ; includes/mill.hpp :0779
 Q0 = FRAC( QL78 )                                     ; includes/mill.hpp :0784
 FN 9: IF Q0 EQU 0 GOTO LBL "IFNOT_32"                 ; includes/mill.hpp :0784
 FN 12: IF Q0 LT 0 GOTO LBL "IFNOT_32"                 ; includes/mill.hpp :0784
 QL78 = INT( QL78 )                                    ; includes/mill.hpp :0786
 QL63 = QL77 + QL78*(QL28 / 2)                         ; includes/mill.hpp :0787
 QL79 = QL63 + QL33                                    ; includes/mill.hpp :0788
 QL80 = SQRT( SQ( QL79 ) + SQ( QL76 ) )                ; includes/mill.hpp :0789
 QL81 = ASIN( QL79 / QL76 )                            ; includes/mill.hpp :0790
 Q0 = QL76 * COS( QL65 )                               ; includes/mill.hpp :0791
 Q1 = QL76 * SIN( QL65 )                               ; includes/mill.hpp :0791
 CC  X+Q0  Y+Q1                                        ; includes/mill.hpp :0791
 Q0 = QL65+90+QL81                                     ; includes/mill.hpp :0792
 LP  PR+QL33 PA+Q0 RL F QL24                           ; includes/mill.hpp :0792
 QL65 = QL65 + QL81-90                                 ; includes/mill.hpp :0793
 CC X+0 Y+0                                            ; includes/mill.hpp :0794
 LP  PR+QL63 PA+QL65                                   ; includes/mill.hpp :0795
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_32"                  ; includes/mill.hpp :0796
 LBL "IFNOT_32"                                        ; includes/mill.hpp :0796
 LP PR+QL63 PA+QL65 RL F QL24                          ; includes/mill.hpp :0799
 LBL "ENDIF_32"                                        ; includes/mill.hpp :0800
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_33"                 ; includes/mill.hpp :0804
 LBL "FOR_33"                                          ; includes/mill.hpp :0804
 QL78 = QL78 + -1                                      ; includes/mill.hpp :0804
 LBL "FORCMP_33"                                       ; includes/mill.hpp :0804
 FN 9: IF QL78 EQU 0 GOTO LBL "FORNOT_33"              ; includes/mill.hpp :0804
 FN 12: IF QL78 LT 0 GOTO LBL "FORNOT_33"              ; includes/mill.hpp :0804
 QL65 = ( QL65 + 180 ) % 360                           ; includes/mill.hpp :0806
 Q0 = (QL28 / 4) * COS( QL65 )                         ; includes/mill.hpp :0807
 Q1 = (QL28 / 4) * SIN( QL65 )                         ; includes/mill.hpp :0807
 CC  X-Q0 Y-Q1                                         ; includes/mill.hpp :0807
 CP  PA+QL65 DR-                                       ; includes/mill.hpp :0808
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_33"                    ; includes/mill.hpp :0809
 LBL "FORNOT_33"                                       ; includes/mill.hpp :0809
 CC X+0 Y+0                                            ; includes/mill.hpp :0813
 CP IPA-360 DR-                                        ; includes/mill.hpp :0814
 FN 12: IF QL62 LT 0 GOTO LBL "IFNOT_34"               ; includes/mill.hpp :0818
 QL76 = QL77 + QL33 + 2                                ; includes/mill.hpp :0820
 LBL "IFNOT_34"                                        ; includes/mill.hpp :0821
 LP IPR+QL33 R0                                        ; includes/mill.hpp :0822
 QL77 = QL77 + QL33                                    ; includes/mill.hpp :0823
 QL83 = ACOS(QL77 / QL76) + (15)                       ; includes/mill.hpp :0824
 QL86 = SQRT( SQ(QL77) + SQ(QL76) - 2*QL77*QL76*COS(QL83) )
 QL84 = ASIN((QL76 * SIN(QL83)) / QL86 )               ; includes/mill.hpp :0826
 QL82 = 180 - 2* QL84                                  ; includes/mill.hpp :0827
 QL85 = (QL86 * SIN(QL84)) / SIN(QL82)                 ; includes/mill.hpp :0828
 QL85 = QL85 - QL77                                    ; includes/mill.hpp :0829
 Q0 = QL85 *COS( QL65 )                                ; includes/mill.hpp :0830
 Q1 = QL85 *SIN( QL65 )                                ; includes/mill.hpp :0830
 CC X-Q0 Y-Q1                                          ; includes/mill.hpp :0830
 CP IPA-QL82 DR-                                       ; includes/mill.hpp :0831
 Q0 = 15                                               ; includes/mill.hpp :0832
 Q1 = QL60 - ( SGN( QL29 )* ( QL36/25 ) )              ; includes/mill.hpp :0832
 CP IPA-Q0 Z+Q1 DR-                                    ; includes/mill.hpp :0832
 QL65 = QL65 - (QL83 + 15)                             ; includes/mill.hpp :0836
 FN 12: IF QL31 LT 0 GOTO LBL "IFNOT_35"               ; includes/mill.hpp :0837
 QL65 = -QL65                                          ; includes/mill.hpp :0839
 FN 17: SYSWRITE ID 210 NR 3 = QL18                    ; includes/mill.hpp :0840
 LBL "IFNOT_35"                                        ; includes/mill.hpp :0841
 TRANS DATUM AXIS IX-QL58 IY-QL59                      ; includes/mill.hpp :0842
LBL 0                                                  ; includes/mill.hpp :0057
LBL "check_bit"                                        ; includes/stdlib.hh:0124
 QL88=15                                               ; includes/geo.hpp  :0850
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_36"                 ; includes/geo.hpp  :0850
 LBL "FOR_36"                                          ; includes/geo.hpp  :0850
 QL88 = QL88 + -1                                      ; includes/geo.hpp  :0850
 LBL "FORCMP_36"                                       ; includes/geo.hpp  :0850
 FN 12: IF QL88 LT 0 GOTO LBL "FORNOT_36"              ; includes/geo.hpp  :0850
 QL70 = 2 ^ QL88                                       ; includes/geo.hpp  :0852
  FN 12: IF QL68 LT QL70 GOTO LBL "IFNOT_37"           ; includes/geo.hpp  :0853
   FN 10: IF QL88 NE QL69 GOTO LBL "IFNOT_38"          ; includes/geo.hpp  :0855
   QL70 = 1                                            ; includes/geo.hpp  :0857
   LBL 0                                               ; includes/geo.hpp  :0858
   LBL "IFNOT_38"                                      ; includes/geo.hpp  :0859
  QL68 = QL68 - 2^QL88                                 ; includes/geo.hpp  :0860
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_37"                 ; includes/geo.hpp  :0861
  LBL "IFNOT_37"                                       ; includes/geo.hpp  :0861
   FN 10: IF QL88 NE QL69 GOTO LBL "IFNOT_39"          ; includes/geo.hpp  :0864
   QL70 = 0                                            ; includes/geo.hpp  :0866
   LBL 0                                               ; includes/geo.hpp  :0867
   LBL "IFNOT_39"                                      ; includes/geo.hpp  :0868
  LBL "ENDIF_37"                                       ; includes/geo.hpp  :0869
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_36"                    ; includes/geo.hpp  :0870
 LBL "FORNOT_36"                                       ; includes/geo.hpp  :0870
 QL70 = -1                                             ; includes/geo.hpp  :0871
LBL 0                                                  ; includes/stdlib.hh:0124
LBL "check_spindle_status"                             ; includes/stdlib.hh:0133
 QS3   = SYSSTR( ID 10025 NR 1 )                       ; includes/geo.hpp  :0916
 QS4   = "CfgGeoCycle"                                 ; includes/geo.hpp  :0917
 QS5   = "displaySpindleErr"                           ; includes/geo.hpp  :0918
 Q0 = CFGREAD( KEY_ QS3 TAG_ QS4 ATR_ QS5 )            ; includes/geo.hpp  :0919
 FN 10: IF Q0 NE 1 GOTO LBL "IFNOT_40"                 ; includes/geo.hpp  :0919
 FN 18: SYSREAD Q1 = ID 992 NR 20                      ; includes/geo.hpp  :0921
  FN 10: IF Q1 NE 0 GOTO LBL "IFNOT_41"                ; includes/geo.hpp  :0921
  FN 18: SYSREAD QL89 = ID 20 NR 5                     ; includes/geo.hpp  :0926
   FN 9: IF QL89 EQU 0 GOTO LBL "IFNOT_42"             ; includes/geo.hpp  :0927
   FN 9: IF QL89 EQU 1 GOTO LBL "IFNOT_42"             ; includes/geo.hpp  :0927
   FN 14: ERROR= 1000                                  ; includes/geo.hpp  :0929
   LBL "IFNOT_42"                                      ; includes/geo.hpp  :0930
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_41"                 ; includes/geo.hpp  :0931
  LBL "IFNOT_41"                                       ; includes/geo.hpp  :0931
  CALL LBL "state_exec"
  Q0 = QL90                                            ; includes/geo.hpp  :0937
   FN 9: IF Q0 EQU 0 GOTO LBL "IFNOT_43"               ; includes/geo.hpp  :0937
   LBL 0                                               ; includes/geo.hpp  :0937
   LBL "IFNOT_43"                                      ; includes/geo.hpp  :0937
  FN 20: WAIT FOR SYNC                                 ; includes/geo.hpp  :0941
  QL89 = 100                                           ; includes/geo.hpp  :0942
  FN 17: SYSWRITE ID 13 NR3 =+9990                     ; includes/geo.hpp  :0943
  READ FROM PLC KEY "PLC_API_VERSION" TO QL89          ; includes/geo.hpp  :0944
  LBL 9990                                             ; includes/geo.hpp  :0945
   FN 10: IF QL89 NE 100 GOTO LBL "IFNOT_44"           ; includes/geo.hpp  :0946
   FN 18: SYSREAD QL89 = ID 2000 NR 10 IDX 4000        ; includes/geo.hpp  :0948
    FN 10: IF QL89 NE 1 GOTO LBL "IFNOT_45"            ; includes/geo.hpp  :0949
    FN 14: ERROR= 1000                                 ; includes/geo.hpp  :0951
    LBL "IFNOT_45"                                     ; includes/geo.hpp  :0952
   FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_44"                ; includes/geo.hpp  :0953
   LBL "IFNOT_44"                                      ; includes/geo.hpp  :0953
   QS3   = SYSSTR( ID 10025 NR 1 )                     ; includes/geo.hpp  :0959
   QS4   = "CfgActivateKinem"                          ; includes/geo.hpp  :0960
   QS5   = "kinemToActivate"                           ; includes/geo.hpp  :0961
   QS3 = CFGREAD( KEY_ QS3 TAG_ QS4 ATR_ QS5 )         ; includes/geo.hpp  :0962
   QS4   = "CfgKinComposModel"                         ; includes/geo.hpp  :0963
   QS5   = "activeSpindle"                             ; includes/geo.hpp  :0964
   QS10 = CFGREAD( KEY_ QS3 TAG_ QS4 ATR_ QS5 )        ; includes/geo.hpp  :0965
   QS3   = ""                                          ; includes/geo.hpp  :0970
   QS4   = "CfgAxes"                                   ; includes/geo.hpp  :0971
   QS5   = "spindleIndices"                            ; includes/geo.hpp  :0972
   QL89=0                                              ; includes/geo.hpp  :0973
   FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_46"               ; includes/geo.hpp  :0973
    LBL "FOR_46"                                       ; includes/geo.hpp  :0973
    QL89 = QL89 + 1                                    ; includes/geo.hpp  :0973
    LBL "FORCMP_46"                                    ; includes/geo.hpp  :0973
    FN 17: SYSWRITE ID 13 NR 3 = 9991                  ; includes/geo.hpp  :0975
    QS2 = CFGREAD( KEY_ QS3 TAG_ QS4 ATR_ QS5 IDX QL89 )
    Q0 = STRCOMP( SRC_ QS2 SEA_ QS10 )                 ; includes/geo.hpp  :0977
     FN 10: IF Q0 NE 0 GOTO LBL "IFNOT_47"             ; includes/geo.hpp  :0977
     QS2 = "ApiSpin[" || TOCHAR( DAT+QL89 DECIMALS 0 ) || "].NN_SpiMotionRequest"
     READ FROM PLC KEY QS2 TO QL89                     ; includes/geo.hpp  :0980
      FN 10: IF QL89 NE 0 GOTO LBL "IFNOT_48"          ; includes/geo.hpp  :0981
      FN 14: ERROR= 1000                               ; includes/geo.hpp  :0983
      LBL "IFNOT_48"                                   ; includes/geo.hpp  :0984
     FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_46"             ; includes/geo.hpp  :0985
     LBL "IFNOT_47"                                    ; includes/geo.hpp  :0986
    FN 9: IF 0 EQU 0 GOTO LBL "FOR_46"                 ; includes/geo.hpp  :0987
    LBL "FORNOT_46"                                    ; includes/geo.hpp  :0987
   LBL 9991                                            ; includes/geo.hpp  :0988
   LBL "ENDIF_44"                                      ; includes/geo.hpp  :0989
  LBL "ENDIF_41"                                       ; includes/geo.hpp  :0990
 LBL "IFNOT_40"                                        ; includes/geo.hpp  :0991
LBL 0                                                  ; includes/stdlib.hh:0133
LBL "swap_axes"                                        ; includes/stdlib.hh:0120
 FN 17: SYSWRITE ID 212 = QL71                         ; includes/geo.hpp  :0841
LBL 0                                                  ; includes/stdlib.hh:0120
LBL "check_depth_sign"                                 ; includes/stdlib.hh:0128
 FN 9: IF QL72 EQU 0 GOTO LBL "IFNOT_49"               ; includes/geo.hpp  :0880
 FN 12: IF QL72 LT 0 GOTO LBL "IFNOT_49"               ; includes/geo.hpp  :0880
 QS3   = SYSSTR( ID 10025 NR 1 )                       ; includes/geo.hpp  :0885
 QS4   = "CfgGeoCycle"                                 ; includes/geo.hpp  :0886
 QS5   = "displayDepthErr"                             ; includes/geo.hpp  :0887
 QL91 = CFGREAD( KEY_ QS3 TAG_ QS4 ATR_ QS5 )          ; includes/geo.hpp  :0888
  FN 10: IF QL91 NE 1 GOTO LBL "IFNOT_50"              ; includes/geo.hpp  :0890
  FN 14: ERROR= 1077                                   ; includes/geo.hpp  :0891
  LBL "IFNOT_50"                                       ; includes/geo.hpp  :0891
 LBL "IFNOT_49"                                        ; includes/geo.hpp  :0892
LBL 0                                                  ; includes/stdlib.hh:0128
LBL "retreat"                                          ; includes/stdlib.hh:0112
 FN 18: SYSREAD Q0 = ID20 NR3 IDX0                     ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 0 GOTO LBL "CASE0_51"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 6 GOTO LBL "CASE1_51"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 1 GOTO LBL "CASE2_51"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 7 GOTO LBL "CASE3_51"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 2 GOTO LBL "CASE4_51"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 8 GOTO LBL "CASE5_51"                 ; includes/geo.hpp  :0802
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_51"              ; includes/geo.hpp  :0802
 LBL "CASE0_51"                                        ; includes/geo.hpp  :0804
 LBL "CASE1_51"                                        ; includes/geo.hpp  :0805
 FN 18: SYSREAD QL92 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0806
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_51"              ; includes/geo.hpp  :0807
 LBL "CASE2_51"                                        ; includes/geo.hpp  :0808
 LBL "CASE3_51"                                        ; includes/geo.hpp  :0809
 FN 18: SYSREAD QL92 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0810
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_51"              ; includes/geo.hpp  :0811
 LBL "CASE4_51"                                        ; includes/geo.hpp  :0812
 LBL "CASE5_51"                                        ; includes/geo.hpp  :0813
 FN 18: SYSREAD QL92 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0814
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_51"              ; includes/geo.hpp  :0815
 LBL "SWITCHEND_51"                                    ; includes/geo.hpp  :0816
 FN 11: IF QL74 GT 0 GOTO LBL "IFNOT_52"               ; includes/geo.hpp  :0817
 Q0 = QL75 + ABS( QL73 )                               ; includes/geo.hpp  :0819
  FN 11: IF QL92 GT Q0 GOTO LBL "IFNOT_53"             ; includes/geo.hpp  :0819
  Q1 = QL75 + ABS( QL73 )                              ; includes/geo.hpp  :0821
  Z+Q1 R0 FMAX                                         ; includes/geo.hpp  :0821
  LBL "IFNOT_53"                                       ; includes/geo.hpp  :0822
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_52"                  ; includes/geo.hpp  :0823
 LBL "IFNOT_52"                                        ; includes/geo.hpp  :0823
 Q0 = QL75 - ABS( QL73 )                               ; includes/geo.hpp  :0826
  FN 12: IF QL92 LT Q0 GOTO LBL "IFNOT_54"             ; includes/geo.hpp  :0826
  Q1 = QL75 - ABS( QL73 )                              ; includes/geo.hpp  :0828
  Z+Q1 R0 FMAX                                         ; includes/geo.hpp  :0828
  LBL "IFNOT_54"                                       ; includes/geo.hpp  :0829
 LBL "ENDIF_52"                                        ; includes/geo.hpp  :0830
LBL 0                                                  ; includes/stdlib.hh:0112
LBL "state_exec"                                       ; includes/stdlib.hh:0076
 FN 18: SYSREAD QL90 = ID 992 NR 11                    ; includes/geo.hpp  :0583
 FN 10: IF QL90 NE 1 GOTO LBL "IFNOT_55"               ; includes/geo.hpp  :0584
 QL90 = 3                                              ; includes/geo.hpp  :0586
 LBL 0                                                 ; includes/geo.hpp  :0587
 LBL "IFNOT_55"                                        ; includes/geo.hpp  :0588
 FN 18: SYSREAD QL90 = ID 992 NR 16                    ; includes/geo.hpp  :0590
 FN 10: IF QL90 NE 0 GOTO LBL "IFNOT_56"               ; includes/geo.hpp  :0591
 QL90 = 1                                              ; includes/geo.hpp  :0593
 LBL 0                                                 ; includes/geo.hpp  :0594
 LBL "IFNOT_56"                                        ; includes/geo.hpp  :0595
 FN 18: SYSREAD QL90 = ID 992 NR 10                    ; includes/geo.hpp  :0597
 FN 10: IF QL90 NE 1 GOTO LBL "IFNOT_57"               ; includes/geo.hpp  :0598
 QL90 = 2                                              ; includes/geo.hpp  :0600
 LBL 0                                                 ; includes/geo.hpp  :0601
 LBL "IFNOT_57"                                        ; includes/geo.hpp  :0602
 QL90 = 0                                              ; includes/geo.hpp  :0603
 LBL 0                                                 ; includes/geo.hpp  :0604
LBL 0                                                  ; includes/stdlib.hh:0076
LBL "EXIT"                                             ;                   :-001
END PGM MM
