BEGIN PGM 252.h MM ; h++ 2 13 8 2015_05_07
 QL8 = 0                                               ; src/252.hpp       :0020
 QL11 = 0                                              ; src/252.hpp       :0024
 CALL LBL "read_wcs"
 QL0 = QL12                                            ; src/252.hpp       :0028
 QL1 = QL13                                            ; src/252.hpp       :0028
 QL10 = SGN( Q201 )                                    ; src/252.hpp       :0029
 CALL LBL "252$CirPocket.PRINT"
 CALL LBL "252$CirPocket.MILL"
 QL44 = Q351                                           ; src/252.hpp       :0034
 QL45 = Q203                                           ; src/252.hpp       :0034
 QL46 = Q200                                           ; src/252.hpp       :0034
 QL47 = Q204                                           ; src/252.hpp       :0034
 QL48 = Q370                                           ; src/252.hpp       :0034
 QL49 = Q201                                           ; src/252.hpp       :0034
 CALL LBL "252$CirPocket.init"
 Q0 = (Q223 / 2) - Q368                                ; src/252.hpp       :0038
 FN 11: IF Q0 GT QL39 GOTO LBL "IFNOT_1"               ; src/252.hpp       :0038
 FN 14: ERROR= 1103                                    ; src/252.hpp       :0040
 LBL "IFNOT_1"                                         ; src/252.hpp       :0041
 CALL LBL "252$CirPocket.get_ToolLCut"
 QL2 = QL50                                            ; src/252.hpp       :0042
 FN 9: IF Q215 EQU 0 GOTO LBL "IF_2"                   ; src/252.hpp       :0046
 FN 9: IF Q215 EQU 1 GOTO LBL "IF_2"                   ; src/252.hpp       :0046
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_2"                   ; src/252.hpp       :0046
 LBL "IF_2"                                            ; src/252.hpp       :0046
 QL51 = Q207                                           ; src/252.hpp       :0048
 QL52 = Q207                                           ; src/252.hpp       :0048
 QL53 = Q206                                           ; src/252.hpp       :0048
 QL54 = -57239891                                      ; src/252.hpp       :0048
 CALL LBL "252$CirPocket.set_feed"
 QL55 = QL0                                            ; src/252.hpp       :0049
 QL56 = QL1                                            ; src/252.hpp       :0049
 QL57 = Q203                                           ; src/252.hpp       :0049
 QL58 = QL42                                           ; src/252.hpp       :0049
 QL59 = QL42                                           ; src/252.hpp       :0049
 QL60 = Q201                                           ; src/252.hpp       :0049
 CALL LBL "prepos"
 QL5 = Q203 + Q201 - ( QL10 * Q369 )                   ; src/252.hpp       :0050
  FN 9: IF Q202 EQU 0 GOTO LBL "IFNOT_3"               ; src/252.hpp       :0051
  QL6 = ABS( Q202 )                                    ; src/252.hpp       :0053
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_3"                  ; src/252.hpp       :0054
  LBL "IFNOT_3"                                        ; src/252.hpp       :0054
  FN 14: ERROR= 1090                                   ; src/252.hpp       :0057
  LBL "ENDIF_3"                                        ; src/252.hpp       :0058
  FN 9: IF QL6 EQU QL2 GOTO LBL "IFNOT_4"              ; src/252.hpp       :0059
  FN 12: IF QL6 LT QL2 GOTO LBL "IFNOT_4"              ; src/252.hpp       :0059
  FN 9: IF QL2 EQU 0 GOTO LBL "IFNOT_4"                ; src/252.hpp       :0059
  FN 12: IF QL2 LT 0 GOTO LBL "IFNOT_4"                ; src/252.hpp       :0059
  QL6 = QL2                                            ; src/252.hpp       :0061
  LBL "IFNOT_4"                                        ; src/252.hpp       :0062
 QL6 = QL6 * QL10                                      ; src/252.hpp       :0063
 QL3=Q203+QL6                                          ; src/252.hpp       :0064
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_5"                  ; src/252.hpp       :0064
  LBL "FOR_5"                                          ; src/252.hpp       :0064
  QL3=QL3+QL6                                          ; src/252.hpp       :0064
  LBL "FORCMP_5"                                       ; src/252.hpp       :0064
   FN 10: IF QL10 NE -1 GOTO LBL "CTRLCMD0_6"          ; src/252.hpp       :0066
   FN 11: IF QL3 GT QL5 GOTO LBL "CTRLCMD0_6"          ; src/252.hpp       :0066
   FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_5"                ; src/252.hpp       :0066
   LBL "CTRLCMD0_6"                                    ; src/252.hpp       :0066
   FN 10: IF QL10 NE +1 GOTO LBL "CTRLCMD1_7"          ; src/252.hpp       :0067
   FN 12: IF QL3 LT QL5 GOTO LBL "CTRLCMD1_7"          ; src/252.hpp       :0067
   FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_5"                ; src/252.hpp       :0067
   LBL "CTRLCMD1_7"                                    ; src/252.hpp       :0067
   FN 9: IF Q439 EQU 3 GOTO LBL "CASE0_8"              ; src/252.hpp       :0068
   FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_8"             ; src/252.hpp       :0068
   LBL "CASE0_8"                                       ; src/252.hpp       :0070
   QL8 = 1                                             ; src/252.hpp       :0071
   FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_8"             ; src/252.hpp       :0072
   LBL "SWITCHDEF_8"                                   ; src/252.hpp       :0073
   QL8 = 0                                             ; src/252.hpp       :0074
   LBL "SWITCHEND_8"                                   ; src/252.hpp       :0075
  QL61 = Q366                                          ; src/252.hpp       :0076
  QL62 = QL11                                          ; src/252.hpp       :0076
  QL63 = QL0                                           ; src/252.hpp       :0076
  QL64 = QL1                                           ; src/252.hpp       :0076
  QL65 = QL3                                           ; src/252.hpp       :0076
  QL66 = Q223/2 - Q368                                 ; src/252.hpp       :0076
  QL67 = 0                                             ; src/252.hpp       :0076
  QL68 = Q200                                          ; src/252.hpp       :0076
  QL69 = 0                                             ; src/252.hpp       :0076
  QL70 = QL8                                           ; src/252.hpp       :0076
  CALL LBL "252$CirPocket.cir_pocket"
  Q0 = QL3-QL42*QL10                                   ; src/252.hpp       :0077
  L  Z+Q0 R0 FMAX                                      ; src/252.hpp       :0077
  QL11 = 1                                             ; src/252.hpp       :0078
  FN 9: IF 0 EQU 0 GOTO LBL "FOR_5"                    ; src/252.hpp       :0079
  LBL "FORNOT_5"                                       ; src/252.hpp       :0079
  FN 9: IF Q439 EQU 3 GOTO LBL "CASE0_9"               ; src/252.hpp       :0083
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_9"              ; src/252.hpp       :0083
  LBL "CASE0_9"                                        ; src/252.hpp       :0085
  QL8 = 1                                              ; src/252.hpp       :0086
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_9"              ; src/252.hpp       :0087
  LBL "SWITCHDEF_9"                                    ; src/252.hpp       :0088
  QL8 = 0                                              ; src/252.hpp       :0089
  LBL "SWITCHEND_9"                                    ; src/252.hpp       :0090
 QL61 = Q366                                           ; src/252.hpp       :0091
 QL62 = QL11                                           ; src/252.hpp       :0091
 QL63 = QL0                                            ; src/252.hpp       :0091
 QL64 = QL1                                            ; src/252.hpp       :0091
 QL65 = QL5                                            ; src/252.hpp       :0091
 QL66 = Q223/2 - Q368                                  ; src/252.hpp       :0091
 QL67 = 0                                              ; src/252.hpp       :0091
 QL68 = Q200                                           ; src/252.hpp       :0091
 QL69 = 0                                              ; src/252.hpp       :0091
 QL70 = QL8                                            ; src/252.hpp       :0091
 CALL LBL "252$CirPocket.cir_pocket"
 Q0 = QL5-QL42*QL10                                    ; src/252.hpp       :0092
 L  Z+Q0 R0 FMAX                                       ; src/252.hpp       :0092
 QL11 = 1                                              ; src/252.hpp       :0093
 LBL "IFNOT_2"                                         ; src/252.hpp       :0094
 QL9 = 2 * ( QL38 - QL41 ) / QL38                      ; src/252.hpp       :0098
 FN 12: IF QL9 LT Q370 GOTO LBL "IFNOT_10"             ; src/252.hpp       :0099
 QL9 = Q370                                            ; src/252.hpp       :0101
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_10"                  ; src/252.hpp       :0102
 LBL "IFNOT_10"                                        ; src/252.hpp       :0102
  FN 11: IF QL9 GT 0.03125 GOTO LBL "IFNOT_11"         ; src/252.hpp       :0105
  QL9 = 0.03125                                        ; src/252.hpp       :0105
  LBL "IFNOT_11"                                       ; src/252.hpp       :0105
 LBL "ENDIF_10"                                        ; src/252.hpp       :0106
 QL44 = Q351                                           ; src/252.hpp       :0107
 QL45 = Q203                                           ; src/252.hpp       :0107
 QL46 = Q200                                           ; src/252.hpp       :0107
 QL47 = Q204                                           ; src/252.hpp       :0107
 QL48 = QL9                                            ; src/252.hpp       :0107
 QL49 = Q201                                           ; src/252.hpp       :0107
 CALL LBL "252$CirPocket.init"
 FN 9: IF Q215 EQU 0 GOTO LBL "IF_12"                  ; src/252.hpp       :0111
 FN 9: IF Q215 EQU 2 GOTO LBL "IF_12"                  ; src/252.hpp       :0111
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_12"                  ; src/252.hpp       :0111
 LBL "IF_12"                                           ; src/252.hpp       :0111
 QL51 = Q385                                           ; src/252.hpp       :0113
 QL52 = Q385                                           ; src/252.hpp       :0113
 QL53 = Q206                                           ; src/252.hpp       :0113
 QL54 = -57239891                                      ; src/252.hpp       :0113
 CALL LBL "252$CirPocket.set_feed"
  FN 9: IF Q338 EQU 0 GOTO LBL "IFNOT_13"              ; src/252.hpp       :0114
  QL6 = ABS( Q338 )                                    ; src/252.hpp       :0116
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_13"                 ; src/252.hpp       :0117
  LBL "IFNOT_13"                                       ; src/252.hpp       :0117
  QL6 = ABS( Q201 )                                    ; src/252.hpp       :0120
  LBL "ENDIF_13"                                       ; src/252.hpp       :0121
  FN 9: IF QL6 EQU QL2 GOTO LBL "IFNOT_14"             ; src/252.hpp       :0122
  FN 12: IF QL6 LT QL2 GOTO LBL "IFNOT_14"             ; src/252.hpp       :0122
  FN 9: IF QL2 EQU 0 GOTO LBL "IFNOT_14"               ; src/252.hpp       :0122
  FN 12: IF QL2 LT 0 GOTO LBL "IFNOT_14"               ; src/252.hpp       :0122
  QL6 = QL2                                            ; src/252.hpp       :0124
  LBL "IFNOT_14"                                       ; src/252.hpp       :0125
 QL6 = QL6 * QL10                                      ; src/252.hpp       :0126
  FN 9: IF Q368 EQU 0 GOTO LBL "IFNOT_15"              ; src/252.hpp       :0130
  FN 12: IF Q368 LT 0 GOTO LBL "IFNOT_15"              ; src/252.hpp       :0130
  QL7 = (Q223/2) - Q368 - QL42 - QL39                  ; src/252.hpp       :0132
   FN 9: IF QL7 EQU 0 GOTO LBL "IFNOT_16"              ; src/252.hpp       :0133
   FN 11: IF QL7 GT 0 GOTO LBL "IFNOT_16"              ; src/252.hpp       :0133
   QL7 = 0                                             ; src/252.hpp       :0133
   LBL "IFNOT_16"                                      ; src/252.hpp       :0133
  QL5 = Q203 + Q201 - ( QL10 * Q369 )                  ; src/252.hpp       :0134
  QL55 = QL0                                           ; src/252.hpp       :0135
  QL56 = QL1                                           ; src/252.hpp       :0135
  QL57 = Q203                                          ; src/252.hpp       :0135
  QL58 = QL42                                          ; src/252.hpp       :0135
  QL59 = QL42                                          ; src/252.hpp       :0135
  QL60 = Q201                                          ; src/252.hpp       :0135
  CALL LBL "prepos"
  QL4 = 0                                              ; src/252.hpp       :0136
  QL3=Q203+QL6                                         ; src/252.hpp       :0137
  FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_17"                ; src/252.hpp       :0137
   LBL "FOR_17"                                        ; src/252.hpp       :0137
   QL3=QL3+QL6                                         ; src/252.hpp       :0137
   LBL "FORCMP_17"                                     ; src/252.hpp       :0137
    FN 10: IF QL10 NE -1 GOTO LBL "CTRLCMD0_18"        ; src/252.hpp       :0139
    FN 11: IF QL3 GT QL5 GOTO LBL "CTRLCMD0_18"        ; src/252.hpp       :0139
    FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_17"              ; src/252.hpp       :0139
    LBL "CTRLCMD0_18"                                  ; src/252.hpp       :0139
    FN 10: IF QL10 NE +1 GOTO LBL "CTRLCMD1_19"        ; src/252.hpp       :0140
    FN 12: IF QL3 LT QL5 GOTO LBL "CTRLCMD1_19"        ; src/252.hpp       :0140
    FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_17"              ; src/252.hpp       :0140
    LBL "CTRLCMD1_19"                                  ; src/252.hpp       :0140
   CC  X+QL0 Y+QL1                                     ; src/252.hpp       :0141
   LP PR+QL7 PA+QL4 R0 FMAX                            ; src/252.hpp       :0142
    FN 9: IF Q439 EQU 1 GOTO LBL "CASE0_20"            ; src/252.hpp       :0143
    FN 9: IF Q439 EQU 2 GOTO LBL "CASE1_20"            ; src/252.hpp       :0143
    FN 9: IF Q439 EQU 3 GOTO LBL "CASE2_20"            ; src/252.hpp       :0143
    FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_20"           ; src/252.hpp       :0143
    LBL "CASE0_20"                                     ; src/252.hpp       :0145
    LBL "CASE1_20"                                     ; src/252.hpp       :0146
    LBL "CASE2_20"                                     ; src/252.hpp       :0147
    QL8 = 1                                            ; src/252.hpp       :0148
    FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_20"           ; src/252.hpp       :0149
    LBL "SWITCHDEF_20"                                 ; src/252.hpp       :0150
    QL8 = 0                                            ; src/252.hpp       :0151
    LBL "SWITCHEND_20"                                 ; src/252.hpp       :0152
   QL61 = Q366                                         ; src/252.hpp       :0153
   QL62 = 0                                            ; src/252.hpp       :0153
   QL63 = QL0                                          ; src/252.hpp       :0153
   QL64 = QL1                                          ; src/252.hpp       :0153
   QL65 = QL3                                          ; src/252.hpp       :0153
   QL66 = Q223/2                                       ; src/252.hpp       :0153
   QL67 = Q223/2-Q368                                  ; src/252.hpp       :0153
   QL68 = Q200+Q368                                    ; src/252.hpp       :0153
   QL69 = QL4                                          ; src/252.hpp       :0153
   QL70 = QL8                                          ; src/252.hpp       :0153
   CALL LBL "252$CirPocket.cir_pocket"
   QL4 = QL71                                          ; src/252.hpp       :0153
   FN 9: IF 0 EQU 0 GOTO LBL "FOR_17"                  ; src/252.hpp       :0154
   LBL "FORNOT_17"                                     ; src/252.hpp       :0154
  CC  X+QL0 Y+QL1                                      ; src/252.hpp       :0158
  LP PR+QL7 PA+QL4 R0 FMAX                             ; src/252.hpp       :0159
   FN 9: IF Q439 EQU 1 GOTO LBL "CASE0_21"             ; src/252.hpp       :0160
   FN 9: IF Q439 EQU 2 GOTO LBL "CASE1_21"             ; src/252.hpp       :0160
   FN 9: IF Q439 EQU 3 GOTO LBL "CASE2_21"             ; src/252.hpp       :0160
   FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_21"            ; src/252.hpp       :0160
   LBL "CASE0_21"                                      ; src/252.hpp       :0162
   LBL "CASE1_21"                                      ; src/252.hpp       :0163
   LBL "CASE2_21"                                      ; src/252.hpp       :0164
   QL8 = 1                                             ; src/252.hpp       :0165
   FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_21"            ; src/252.hpp       :0166
   LBL "SWITCHDEF_21"                                  ; src/252.hpp       :0167
   QL8 = 0                                             ; src/252.hpp       :0168
   LBL "SWITCHEND_21"                                  ; src/252.hpp       :0169
  QL61 = Q366                                          ; src/252.hpp       :0170
  QL62 = 0                                             ; src/252.hpp       :0170
  QL63 = QL0                                           ; src/252.hpp       :0170
  QL64 = QL1                                           ; src/252.hpp       :0170
  QL65 = QL5                                           ; src/252.hpp       :0170
  QL66 = Q223/2                                        ; src/252.hpp       :0170
  QL67 = Q223/2-Q368                                   ; src/252.hpp       :0170
  QL68 = Q200+Q368                                     ; src/252.hpp       :0170
  QL69 = QL4                                           ; src/252.hpp       :0170
  QL70 = QL8                                           ; src/252.hpp       :0170
  CALL LBL "252$CirPocket.cir_pocket"
  Q0 = QL5-QL42*QL10                                   ; src/252.hpp       :0171
  L  Z+Q0 R0 FMAX                                      ; src/252.hpp       :0171
  LBL "IFNOT_15"                                       ; src/252.hpp       :0172
  FN 9: IF Q369 EQU 0 GOTO LBL "IFNOT_22"              ; src/252.hpp       :0176
  FN 12: IF Q369 LT 0 GOTO LBL "IFNOT_22"              ; src/252.hpp       :0176
  QL5 = Q203 + Q201                                    ; src/252.hpp       :0178
  QL55 = QL0                                           ; src/252.hpp       :0179
  QL56 = QL1                                           ; src/252.hpp       :0179
  QL57 = Q203 + Q201 - ( QL10 * Q369 )                 ; src/252.hpp       :0179
  QL58 = QL42                                          ; src/252.hpp       :0179
  QL59 = QL42                                          ; src/252.hpp       :0179
  QL60 = Q201                                          ; src/252.hpp       :0179
  CALL LBL "prepos"
   FN 9: IF Q439 EQU 2 GOTO LBL "CASE0_23"             ; src/252.hpp       :0180
   FN 9: IF Q439 EQU 3 GOTO LBL "CASE1_23"             ; src/252.hpp       :0180
   FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_23"            ; src/252.hpp       :0180
   LBL "CASE0_23"                                      ; src/252.hpp       :0182
   LBL "CASE1_23"                                      ; src/252.hpp       :0183
   QL8 = 1                                             ; src/252.hpp       :0184
   FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_23"            ; src/252.hpp       :0185
   LBL "SWITCHDEF_23"                                  ; src/252.hpp       :0186
   QL8 = 0                                             ; src/252.hpp       :0187
   LBL "SWITCHEND_23"                                  ; src/252.hpp       :0188
  QL61 = Q366                                          ; src/252.hpp       :0189
  QL62 = QL11                                          ; src/252.hpp       :0189
  QL63 = QL0                                           ; src/252.hpp       :0189
  QL64 = QL1                                           ; src/252.hpp       :0189
  QL65 = QL5                                           ; src/252.hpp       :0189
  QL66 = Q223/2                                        ; src/252.hpp       :0189
  QL67 = 0                                             ; src/252.hpp       :0189
  QL68 = Q200                                          ; src/252.hpp       :0189
  QL69 = 0                                             ; src/252.hpp       :0189
  QL70 = QL8                                           ; src/252.hpp       :0189
  CALL LBL "252$CirPocket.cir_pocket"
  Q0 = QL5-QL42*QL10                                   ; src/252.hpp       :0190
  L  Z+Q0 R0 FMAX                                      ; src/252.hpp       :0190
  LBL "IFNOT_22"                                       ; src/252.hpp       :0191
 LBL "IFNOT_12"                                        ; src/252.hpp       :0192
 L  Z+QL43 R0 FMAX                                     ; src/252.hpp       :0196
 L  X+QL0 Y+QL1 R0 FMAX                                ; src/252.hpp       :0197
LBL "e_2520"                                           ; src/252.hpp       :0008
FN 9: IF 0 EQU 0 GOTO LBL "EXIT"                       ;                   :-001
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_24"                 ; includes/geo.hpp  :0618
 FN 17: SYSWRITE ID 991 NR 100 = 1                     ; includes/geo.hpp  :0620
 LBL "IFNOT_24"                                        ; 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_25"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 6 GOTO LBL "CASE1_25"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 1 GOTO LBL "CASE2_25"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 7 GOTO LBL "CASE3_25"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 2 GOTO LBL "CASE4_25"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 8 GOTO LBL "CASE5_25"                 ; includes/geo.hpp  :0627
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_25"              ; includes/geo.hpp  :0627
 LBL "CASE0_25"                                        ; includes/geo.hpp  :0629
 LBL "CASE1_25"                                        ; includes/geo.hpp  :0630
 FN 18: SYSREAD QL12 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0631
 FN 18: SYSREAD QL13 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0632
 FN 18: SYSREAD QL14 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0633
 LBL 0                                                 ; includes/geo.hpp  :0634
 LBL "CASE2_25"                                        ; includes/geo.hpp  :0635
 LBL "CASE3_25"                                        ; includes/geo.hpp  :0636
 FN 18: SYSREAD QL12 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0637
 FN 18: SYSREAD QL13 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0638
 FN 18: SYSREAD QL14 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0639
 LBL 0                                                 ; includes/geo.hpp  :0640
 LBL "CASE4_25"                                        ; includes/geo.hpp  :0641
 LBL "CASE5_25"                                        ; includes/geo.hpp  :0642
 FN 18: SYSREAD QL12 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0643
 FN 18: SYSREAD QL13 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0644
 FN 18: SYSREAD QL14 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0645
 LBL 0                                                 ; includes/geo.hpp  :0646
 LBL "SWITCHEND_25"                                    ; includes/geo.hpp  :0647
LBL 0                                                  ; includes/stdlib.hh:0081
LBL "252$CirPocket.PRINT"                              ; src/print/print.hpp:0059
 FN 18: SYSREAD QL15 = ID 992 NR 16                    ; src/print/print.hpp:0088
 FN 10: IF QL15 NE 1 GOTO LBL "IFNOT_26"               ; 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
 QL72 = 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 QL72 EQU 1 GOTO LBL "CASE0_27"              ; src/print/print.hpp:0105
  FN 9: IF QL72 EQU 2 GOTO LBL "CASE1_27"              ; src/print/print.hpp:0105
  FN 9: IF QL72 EQU 3 GOTO LBL "CASE2_27"              ; src/print/print.hpp:0105
  FN 9: IF QL72 EQU 4 GOTO LBL "CASE3_27"              ; src/print/print.hpp:0105
  FN 9: IF QL72 EQU 5 GOTO LBL "CASE4_27"              ; src/print/print.hpp:0105
  FN 9: IF QL72 EQU 6 GOTO LBL "CASE5_27"              ; src/print/print.hpp:0105
  FN 9: IF QL72 EQU 7 GOTO LBL "CASE6_27"              ; src/print/print.hpp:0105
  FN 9: IF QL72 EQU 8 GOTO LBL "CASE7_27"              ; src/print/print.hpp:0105
  FN 9: IF QL72 EQU 9 GOTO LBL "CASE8_27"              ; src/print/print.hpp:0105
  FN 9: IF QL72 EQU 10 GOTO LBL "CASE9_27"             ; src/print/print.hpp:0105
  FN 9: IF QL72 EQU 11 GOTO LBL "CASE10_27"            ; src/print/print.hpp:0105
  FN 9: IF QL72 EQU 12 GOTO LBL "CASE11_27"            ; src/print/print.hpp:0105
  FN 9: IF QL72 EQU 17 GOTO LBL "CASE12_27"            ; src/print/print.hpp:0105
  FN 9: IF QL72 EQU 21 GOTO LBL "CASE13_27"            ; src/print/print.hpp:0105
  FN 9: IF QL72 EQU 22 GOTO LBL "CASE14_27"            ; src/print/print.hpp:0105
  FN 9: IF QL72 EQU 23 GOTO LBL "CASE15_27"            ; src/print/print.hpp:0105
  FN 9: IF QL72 EQU 24 GOTO LBL "CASE16_27"            ; src/print/print.hpp:0105
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_27"             ; src/print/print.hpp:0105
  LBL "CASE0_27"                                       ; src/print/print.hpp:0106
  QS11 = QS11 || "\DE.TAB"                             ; src/print/print.hpp:0107
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_27"             ; src/print/print.hpp:0108
  LBL "CASE1_27"                                       ; src/print/print.hpp:0109
  QS11 = QS11 || "\CS.TAB"                             ; src/print/print.hpp:0110
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_27"             ; src/print/print.hpp:0111
  LBL "CASE2_27"                                       ; src/print/print.hpp:0112
  QS11 = QS11 || "\FR.TAB"                             ; src/print/print.hpp:0113
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_27"             ; src/print/print.hpp:0114
  LBL "CASE3_27"                                       ; src/print/print.hpp:0115
  QS11 = QS11 || "\IT.TAB"                             ; src/print/print.hpp:0116
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_27"             ; src/print/print.hpp:0117
  LBL "CASE4_27"                                       ; src/print/print.hpp:0118
  QS11 = QS11 || "\ES.TAB"                             ; src/print/print.hpp:0119
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_27"             ; src/print/print.hpp:0120
  LBL "CASE5_27"                                       ; src/print/print.hpp:0121
  QS11 = QS11 || "\PT.TAB"                             ; src/print/print.hpp:0122
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_27"             ; src/print/print.hpp:0123
  LBL "CASE6_27"                                       ; src/print/print.hpp:0124
  QS11 = QS11 || "\SV.TAB"                             ; src/print/print.hpp:0125
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_27"             ; src/print/print.hpp:0126
  LBL "CASE7_27"                                       ; src/print/print.hpp:0127
  QS11 = QS11 || "\DA.TAB"                             ; src/print/print.hpp:0128
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_27"             ; src/print/print.hpp:0129
  LBL "CASE8_27"                                       ; src/print/print.hpp:0130
  QS11 = QS11 || "\FI.TAB"                             ; src/print/print.hpp:0131
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_27"             ; src/print/print.hpp:0132
  LBL "CASE9_27"                                       ; src/print/print.hpp:0133
  QS11 = QS11 || "\NL.TAB"                             ; src/print/print.hpp:0134
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_27"             ; src/print/print.hpp:0135
  LBL "CASE10_27"                                      ; src/print/print.hpp:0136
  QS11 = QS11 || "\PL.TAB"                             ; src/print/print.hpp:0137
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_27"             ; src/print/print.hpp:0138
  LBL "CASE11_27"                                      ; src/print/print.hpp:0139
  QS11 = QS11 || "\HU.TAB"                             ; src/print/print.hpp:0140
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_27"             ; src/print/print.hpp:0141
  LBL "CASE12_27"                                      ; src/print/print.hpp:0142
  QS11 = QS11 || "\SL.TAB"                             ; src/print/print.hpp:0143
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_27"             ; src/print/print.hpp:0144
  LBL "CASE13_27"                                      ; src/print/print.hpp:0145
  QS11 = QS11 || "\NB.TAB"                             ; src/print/print.hpp:0146
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_27"             ; src/print/print.hpp:0147
  LBL "CASE14_27"                                      ; src/print/print.hpp:0148
  QS11 = QS11 || "\RO.TAB"                             ; src/print/print.hpp:0149
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_27"             ; src/print/print.hpp:0150
  LBL "CASE15_27"                                      ; src/print/print.hpp:0151
  QS11 = QS11 || "\SK.TAB"                             ; src/print/print.hpp:0152
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_27"             ; src/print/print.hpp:0153
  LBL "CASE16_27"                                      ; src/print/print.hpp:0154
  QS11 = QS11 || "\TR.TAB"                             ; src/print/print.hpp:0155
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_27"             ; src/print/print.hpp:0156
  LBL "SWITCHDEF_27"                                   ; src/print/print.hpp:0157
  QS11 = QS11 || "\EN.TAB"                             ; src/print/print.hpp:0158
  LBL "SWITCHEND_27"                                   ; src/print/print.hpp:0159
 LBL "IFNOT_26"                                        ; src/print/print.hpp:0160
LBL 0                                                  ; src/print/print.hpp:0059
LBL "252$CirPocket.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
 QL17 = STRCOMP( SRC_ QS3 SEA_ QS0 )                   ; includes/mill.hpp :0075
 FN 9: IF QL17 EQU 0 GOTO LBL "IFNOT_28"               ; includes/mill.hpp :0076
 QL17 = 1                                              ; includes/mill.hpp :0076
 LBL "IFNOT_28"                                        ; includes/mill.hpp :0076
 FN 18: SYSREAD QL18 = ID 20 NR 3                      ; includes/mill.hpp :0080
 FN 18: SYSREAD QL41 = ID 200 NR 3 IDX 2               ; includes/mill.hpp :0084
 FN 18: SYSREAD QL24 = ID 210 NR 3                     ; includes/mill.hpp :0089
 FN 9: IF QL18 EQU 0 GOTO LBL "CASE0_29"               ; includes/mill.hpp :0090
 FN 9: IF QL18 EQU 6 GOTO LBL "CASE1_29"               ; includes/mill.hpp :0090
 FN 9: IF QL18 EQU 1 GOTO LBL "CASE2_29"               ; includes/mill.hpp :0090
 FN 9: IF QL18 EQU 7 GOTO LBL "CASE3_29"               ; includes/mill.hpp :0090
 FN 9: IF QL18 EQU 2 GOTO LBL "CASE4_29"               ; includes/mill.hpp :0090
 FN 9: IF QL18 EQU 8 GOTO LBL "CASE5_29"               ; includes/mill.hpp :0090
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_29"              ; includes/mill.hpp :0090
 LBL "CASE0_29"                                        ; includes/mill.hpp :0091
 LBL "CASE1_29"                                        ; includes/mill.hpp :0092
 FN 18: SYSREAD QL21 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0093
 FN 18: SYSREAD QL22 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0094
 FN 18: SYSREAD QL23 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0095
 QL74 = QL24                                           ; includes/mill.hpp :0096
 QL75 = 1                                              ; includes/mill.hpp :0096
 CALL LBL "check_bit"
 QL25 = QL76                                           ; includes/mill.hpp :0096
 QL74 = QL24                                           ; includes/mill.hpp :0097
 QL75 = 2                                              ; includes/mill.hpp :0097
 CALL LBL "check_bit"
 QL26 = QL76                                           ; includes/mill.hpp :0097
 QL74 = QL24                                           ; includes/mill.hpp :0098
 QL75 = 0                                              ; includes/mill.hpp :0098
 CALL LBL "check_bit"
 QL27 = QL76                                           ; includes/mill.hpp :0098
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_29"              ; includes/mill.hpp :0099
 LBL "CASE2_29"                                        ; includes/mill.hpp :0100
 LBL "CASE3_29"                                        ; includes/mill.hpp :0101
 FN 18: SYSREAD QL21 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0102
 FN 18: SYSREAD QL22 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0103
 FN 18: SYSREAD QL23 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0104
 QL74 = QL24                                           ; includes/mill.hpp :0105
 QL75 = 2                                              ; includes/mill.hpp :0105
 CALL LBL "check_bit"
 QL25 = QL76                                           ; includes/mill.hpp :0105
 QL74 = QL24                                           ; includes/mill.hpp :0106
 QL75 = 0                                              ; includes/mill.hpp :0106
 CALL LBL "check_bit"
 QL26 = QL76                                           ; includes/mill.hpp :0106
 QL74 = QL24                                           ; includes/mill.hpp :0107
 QL75 = 1                                              ; includes/mill.hpp :0107
 CALL LBL "check_bit"
 QL27 = QL76                                           ; includes/mill.hpp :0107
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_29"              ; includes/mill.hpp :0108
 LBL "CASE4_29"                                        ; includes/mill.hpp :0109
 LBL "CASE5_29"                                        ; includes/mill.hpp :0110
 FN 18: SYSREAD QL21 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0111
 FN 18: SYSREAD QL22 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0112
 FN 18: SYSREAD QL23 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0113
 QL74 = QL24                                           ; includes/mill.hpp :0114
 QL75 = 0                                              ; includes/mill.hpp :0114
 CALL LBL "check_bit"
 QL25 = QL76                                           ; includes/mill.hpp :0114
 QL74 = QL24                                           ; includes/mill.hpp :0115
 QL75 = 1                                              ; includes/mill.hpp :0115
 CALL LBL "check_bit"
 QL26 = QL76                                           ; includes/mill.hpp :0115
 QL74 = QL24                                           ; includes/mill.hpp :0116
 QL75 = 2                                              ; includes/mill.hpp :0116
 CALL LBL "check_bit"
 QL27 = QL76                                           ; includes/mill.hpp :0116
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_29"              ; includes/mill.hpp :0117
 LBL "SWITCHEND_29"                                    ; includes/mill.hpp :0118
 FN 9: IF QL21 EQU QL22 GOTO LBL "IFNOT_30"            ; includes/mill.hpp :0119
 FN 14: ERROR= 1108                                    ; includes/mill.hpp :0119
 LBL "IFNOT_30"                                        ; includes/mill.hpp :0119
 QL37 = 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_31"                 ; includes/mill.hpp :0129
 QL28 = 0.002                                          ; includes/mill.hpp :0130
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_31"                  ; includes/mill.hpp :0131
 LBL "IFNOT_31"                                        ; includes/mill.hpp :0131
 QL28 = 0.0002                                         ; includes/mill.hpp :0133
 LBL "ENDIF_31"                                        ; includes/mill.hpp :0134
 FN 18: SYSREAD QL16 = ID 992 NR 30                    ; includes/mill.hpp :0135
 FN 18: SYSREAD QL36 = ID 610 NR 6                     ; includes/mill.hpp :0136
 FN 18: SYSREAD QL20 = ID 950 NR 13                    ; includes/mill.hpp :0140
 FN 18: SYSREAD QL19 = ID 950 NR 14                    ; includes/mill.hpp :0141
 FN 18: SYSREAD QL38 = ID 200 NR 1 IDX 2               ; includes/mill.hpp :0142
 FN 18: SYSREAD QL39 = ID 200 NR 1 IDX 3               ; includes/mill.hpp :0143
 FN 11: IF QL38 GT 0 GOTO LBL "IFNOT_32"               ; includes/mill.hpp :0144
 FN 14: ERROR= 1002                                    ; includes/mill.hpp :0144
 LBL "IFNOT_32"                                        ; includes/mill.hpp :0144
 FN 9: IF QL38 EQU QL39 GOTO LBL "IFNOT_33"            ; includes/mill.hpp :0145
 FN 12: IF QL38 LT QL39 GOTO LBL "IFNOT_33"            ; includes/mill.hpp :0145
 QL40 = QL38                                           ; includes/mill.hpp :0146
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_33"                  ; includes/mill.hpp :0147
 LBL "IFNOT_33"                                        ; includes/mill.hpp :0147
 QL40 = QL39                                           ; includes/mill.hpp :0149
 LBL "ENDIF_33"                                        ; includes/mill.hpp :0150
 QL38 = QL38 / QL21                                    ; includes/mill.hpp :0154
 QL39 = QL39 / QL21                                    ; includes/mill.hpp :0155
 QL40 = QL40 / QL21                                    ; includes/mill.hpp :0156
 QL20 = QL20 / QL23                                    ; includes/mill.hpp :0157
 CALL LBL "check_spindle_status"
 QL77 = 3                                              ; includes/mill.hpp :0165
 CALL LBL "swap_axes"
LBL 0                                                  ; includes/mill.hpp :0049
LBL "252$CirPocket.init"                               ; includes/mill.hpp :0050
 FN 9: IF Q110 EQU 1 GOTO LBL "CASE0_34"               ; includes/mill.hpp :0175
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_34"              ; includes/mill.hpp :0175
 LBL "CASE0_34"                                        ; includes/mill.hpp :0177
 QL37 = +QL44                                          ; includes/mill.hpp :0178
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_34"              ; includes/mill.hpp :0179
 LBL "SWITCHDEF_34"                                    ; includes/mill.hpp :0180
 QL37 = -QL44                                          ; includes/mill.hpp :0181
 LBL "SWITCHEND_34"                                    ; includes/mill.hpp :0182
 FN 10: IF QL25 NE 1 GOTO LBL "IFNOT_35"               ; includes/mill.hpp :0183
 QL37 = -QL37                                          ; includes/mill.hpp :0185
 LBL "IFNOT_35"                                        ; includes/mill.hpp :0186
 FN 10: IF QL26 NE 1 GOTO LBL "IFNOT_36"               ; includes/mill.hpp :0187
 QL37 = -QL37                                          ; includes/mill.hpp :0189
 LBL "IFNOT_36"                                        ; includes/mill.hpp :0190
 QL34 = QL38 * QL48                                    ; includes/mill.hpp :0194
 QL78 = QL49                                           ; includes/mill.hpp :0198
 CALL LBL "check_depth_sign"
 FN 9: IF QL49 EQU 0 GOTO LBL "EXIT"                   ; includes/mill.hpp :0199
 QL35 = QL49                                           ; includes/mill.hpp :0200
 QL29 = QL45                                           ; includes/mill.hpp :0205
 QL42 = ABS( QL46 )                                    ; includes/mill.hpp :0206
 FN 9: IF QL42 EQU 0.001 GOTO LBL "IFNOT_38"           ; includes/mill.hpp :0207
 FN 11: IF QL42 GT 0.001 GOTO LBL "IFNOT_38"           ; includes/mill.hpp :0207
 QL42 = 0.001                                          ; includes/mill.hpp :0207
 LBL "IFNOT_38"                                        ; includes/mill.hpp :0207
 FN 9: IF QL47 EQU QL42 GOTO LBL "IFNOT_39"            ; includes/mill.hpp :0208
 FN 11: IF QL47 GT QL42 GOTO LBL "IFNOT_39"            ; includes/mill.hpp :0208
 QL43 = QL42                                           ; includes/mill.hpp :0210
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_39"                  ; includes/mill.hpp :0211
 LBL "IFNOT_39"                                        ; includes/mill.hpp :0211
 QL43 = QL47                                           ; includes/mill.hpp :0214
 LBL "ENDIF_39"                                        ; includes/mill.hpp :0215
 QL43 = QL29 - ( QL43 * SGN( QL35 ) )                  ; includes/mill.hpp :0216
LBL 0                                                  ; includes/mill.hpp :0050
LBL "252$CirPocket.get_ToolLCut"                       ; includes/mill.hpp :0054
 QL50 = QL20                                           ; includes/mill.hpp :0279
LBL 0                                                  ; includes/mill.hpp :0054
LBL "252$CirPocket.set_feed"                           ; includes/mill.hpp :0051
 QL30 = QL51                                           ; includes/mill.hpp :0223
 QL31 = QL52                                           ; includes/mill.hpp :0224
 QL32 = QL53                                           ; includes/mill.hpp :0225
 FN 11: IF QL54 GT 0 GOTO LBL "IFNOT_40"               ; includes/mill.hpp :0226
  FN 9: IF QL54 EQU -57239891 GOTO LBL "IFNOT_41"      ; includes/mill.hpp :0228
  QL33 = QL30                                          ; includes/mill.hpp :0230
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_41"                 ; includes/mill.hpp :0231
  LBL "IFNOT_41"                                       ; includes/mill.hpp :0231
  FN 22: FUNCT QL51 FNR 910 PIN 59 PIN 2 PEX 33        ; includes/mill.hpp :0235
  LBL "ENDIF_41"                                       ; includes/mill.hpp :0236
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_40"                  ; includes/mill.hpp :0238
 LBL "IFNOT_40"                                        ; includes/mill.hpp :0238
 QL33 = QL54                                           ; includes/mill.hpp :0241
 LBL "ENDIF_40"                                        ; includes/mill.hpp :0242
LBL 0                                                  ; includes/mill.hpp :0051
LBL "prepos"                                           ; includes/stdlib.hh:0108
 QL79 = QL59                                           ; includes/geo.hpp  :0780
 QL80 = QL60                                           ; includes/geo.hpp  :0780
 QL81 = QL57                                           ; 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_42"                 ; includes/geo.hpp  :0784
 L  X+QL55 Y+QL56 R0 FMAX                              ; includes/geo.hpp  :0786
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_42"                  ; includes/geo.hpp  :0787
 LBL "IFNOT_42"                                        ; includes/geo.hpp  :0787
 X+QL55 R0 FMAX                                        ; includes/geo.hpp  :0790
 Y+QL56 R0 FMAX                                        ; includes/geo.hpp  :0791
 LBL "ENDIF_42"                                        ; includes/geo.hpp  :0792
 Q0 = QL57 - (ABS(QL58) * SGN(QL60))                   ; includes/geo.hpp  :0794
 Z+Q0 FMAX                                             ; includes/geo.hpp  :0794
LBL 0                                                  ; includes/stdlib.hh:0108
LBL "252$CirPocket.cir_pocket"                         ; includes/mill.hpp :0056
 FN 9: IF QL66 EQU QL39 GOTO LBL "IF_43"               ; includes/mill.hpp :0472
 FN 12: IF QL66 LT QL39 GOTO LBL "IF_43"               ; includes/mill.hpp :0472
 FN 11: IF QL67 GT QL66 GOTO LBL "IF_43"               ; includes/mill.hpp :0472
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_43"                  ; includes/mill.hpp :0472
 LBL "IF_43"                                           ; includes/mill.hpp :0472
 FN 14: ERROR= 1003                                    ; includes/mill.hpp :0474
 LBL "IFNOT_43"                                        ; includes/mill.hpp :0475
 TRANS DATUM AXIS IX+QL63 IY+QL64                      ; includes/mill.hpp :0480
 FN 12: IF QL37 LT 0 GOTO LBL "IFNOT_44"               ; includes/mill.hpp :0481
 QL100 = -QL69                                         ; includes/mill.hpp :0483
  FN 10: IF QL26 NE 1 GOTO LBL "IFNOT_45"              ; includes/mill.hpp :0484
  QL105 = QL24 - 2                                     ; includes/mill.hpp :0486
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_45"                 ; includes/mill.hpp :0487
  LBL "IFNOT_45"                                       ; includes/mill.hpp :0487
  QL105 = QL24 + 2                                     ; includes/mill.hpp :0490
  LBL "ENDIF_45"                                       ; includes/mill.hpp :0491
 FN 17: SYSWRITE ID 210 NR 3 = QL105                   ; includes/mill.hpp :0492
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_44"                  ; includes/mill.hpp :0493
 LBL "IFNOT_44"                                        ; includes/mill.hpp :0493
 QL100 = QL69                                          ; includes/mill.hpp :0496
 LBL "ENDIF_44"                                        ; includes/mill.hpp :0497
 FN 11: IF QL67 GT QL40 GOTO LBL "IFNOT_46"            ; includes/mill.hpp :0505
 CALL LBL "read_wcs"
 Q0 = QL14                                             ; includes/mill.hpp :0510
 QL85 = QL65 - Q0                                      ; includes/mill.hpp :0510
  FN 10: IF QL62 NE 1 GOTO LBL "IFNOT_47"              ; includes/mill.hpp :0511
  QL85 = QL85 - ( 0.9 * SGN( QL85 ) * QL42 )           ; includes/mill.hpp :0513
  LBL "IFNOT_47"                                       ; includes/mill.hpp :0514
  FN 10: IF QL19 NE 90 GOTO LBL "IFNOT_48"             ; includes/mill.hpp :0519
  QL61 = 0                                             ; includes/mill.hpp :0519
  LBL "IFNOT_48"                                       ; includes/mill.hpp :0519
  FN 9: IF QL61 EQU 0 GOTO LBL "CASE0_49"              ; includes/mill.hpp :0523
  FN 9: IF QL61 EQU 1 GOTO LBL "CASE1_49"              ; includes/mill.hpp :0523
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_49"             ; includes/mill.hpp :0523
  LBL "CASE0_49"                                       ; includes/mill.hpp :0525
  L  X+0 Y+0 R0 FMAX                                   ; includes/mill.hpp :0526
  L  Z+QL65 F QL32                                     ; includes/mill.hpp :0527
  QL67 = QL40                                          ; includes/mill.hpp :0528
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_49"             ; includes/mill.hpp :0529
  LBL "CASE1_49"                                       ; includes/mill.hpp :0530
   FN 10: IF QL19 NE 0 GOTO LBL "IFNOT_50"             ; includes/mill.hpp :0531
   FN 14: ERROR= 1083                                  ; includes/mill.hpp :0533
   LBL "IFNOT_50"                                      ; includes/mill.hpp :0534
  QL82 = QL38 * (15/16)                                ; includes/mill.hpp :0535
  Q0 = QL82 + QL40 + 0.005                             ; includes/mill.hpp :0536
   FN 9: IF Q0 EQU QL66 GOTO LBL "IFNOT_51"            ; includes/mill.hpp :0536
   FN 12: IF Q0 LT QL66 GOTO LBL "IFNOT_51"            ; includes/mill.hpp :0536
    FN 9: IF QL17 EQU 0 GOTO LBL "IFNOT_52"            ; includes/mill.hpp :0538
    FN 14: ERROR= 1104                                 ; includes/mill.hpp :0540
    LBL "IFNOT_52"                                     ; includes/mill.hpp :0541
   QL82 = QL66 - ( QL38 + 0.005 )                      ; includes/mill.hpp :0542
   LBL "IFNOT_51"                                      ; includes/mill.hpp :0543
  QL83 = 2 * QL82 * PI                                 ; includes/mill.hpp :0544
  QL84 = QL83 * TAN( QL19 )                            ; includes/mill.hpp :0545
  CC  X+0 Y+0                                          ; includes/mill.hpp :0546
  LP  PR+QL82 PA+QL100 R0 FMAX                         ; includes/mill.hpp :0547
   FN 10: IF QL62 NE 1 GOTO LBL "IFNOT_53"             ; includes/mill.hpp :0548
   Q0 = 0.9 * SGN( QL85 ) * QL42                       ; includes/mill.hpp :0550
   L IZ+Q0 R0 F QL32                                   ; includes/mill.hpp :0550
   LBL "IFNOT_53"                                      ; includes/mill.hpp :0551
  QL87 = ABS( QL85 / QL84 )                            ; includes/mill.hpp :0552
  QL87 = INT( QL87 + 0.99 )                            ; includes/mill.hpp :0271
   FN 10: IF QL87 NE 0 GOTO LBL "IFNOT_54"             ; includes/mill.hpp :0272
   QL87 = 1                                            ; includes/mill.hpp :0272
   LBL "IFNOT_54"                                      ; includes/mill.hpp :0272
  LBL "e_252$CirPocket$int_infeeds1"                   ; includes/mill.hpp :0040
  QL84 = QL85 / QL87                                   ; includes/mill.hpp :0554
  QL106=0                                              ; includes/mill.hpp :0555
  FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_55"                ; includes/mill.hpp :0555
   LBL "FOR_55"                                        ; includes/mill.hpp :0555
   QL106 = QL106 + 1                                   ; includes/mill.hpp :0555
   LBL "FORCMP_55"                                     ; includes/mill.hpp :0555
   FN 9: IF QL106 EQU QL87 GOTO LBL "FORNOT_55"        ; includes/mill.hpp :0555
   FN 11: IF QL106 GT QL87 GOTO LBL "FORNOT_55"        ; includes/mill.hpp :0555
   CP IPA+360 IZ+QL84 DR+ F QL32                       ; includes/mill.hpp :0557
   FN 9: IF 0 EQU 0 GOTO LBL "FOR_55"                  ; includes/mill.hpp :0558
   LBL "FORNOT_55"                                     ; includes/mill.hpp :0558
  CP IPA+360 DR+ F QL30                                ; includes/mill.hpp :0559
  QL67 = QL82 + QL40                                   ; includes/mill.hpp :0560
  Q0 = QL38 - QL41                                     ; includes/mill.hpp :0564
   FN 9: IF QL82 EQU Q0 GOTO LBL "IFNOT_56"            ; includes/mill.hpp :0564
   FN 12: IF QL82 LT Q0 GOTO LBL "IFNOT_56"            ; includes/mill.hpp :0564
   FN 9: IF QL67 EQU 0.001 GOTO LBL "IFNOT_56"         ; includes/mill.hpp :0564
   FN 12: IF QL67 LT 0.001 GOTO LBL "IFNOT_56"         ; includes/mill.hpp :0564
   Q1 = COS(QL100)*(QL82/2)                            ; includes/mill.hpp :0566
   Q2 = SIN(QL100)*(QL82/2)                            ; includes/mill.hpp :0566
   CC  X+Q1  Y+Q2                                      ; includes/mill.hpp :0566
   CP IPA+360 DR+                                      ; includes/mill.hpp :0567
   LBL "IFNOT_56"                                      ; includes/mill.hpp :0568
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_49"             ; includes/mill.hpp :0569
  LBL "SWITCHDEF_49"                                   ; includes/mill.hpp :0570
  FN 14: ERROR= 1011                                   ; includes/mill.hpp :0571
  LBL "SWITCHEND_49"                                   ; includes/mill.hpp :0572
 QL87 = (QL66 - QL67) / QL34                           ; includes/mill.hpp :0576
 QL87 = QL87 * 2                                       ; includes/mill.hpp :0577
 QL87 = INT( QL87 + 0.99 )                             ; includes/mill.hpp :0271
  FN 10: IF QL87 NE 0 GOTO LBL "IFNOT_57"              ; includes/mill.hpp :0272
  QL87 = 1                                             ; includes/mill.hpp :0272
  LBL "IFNOT_57"                                       ; includes/mill.hpp :0272
 LBL "e_252$CirPocket$int_infeeds2"                    ; includes/mill.hpp :0040
 QL88 = (QL66 - QL67) / ( QL87/2 )                     ; includes/mill.hpp :0579
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_46"                  ; includes/mill.hpp :0580
 LBL "IFNOT_46"                                        ; includes/mill.hpp :0580
 QL86 = QL67 - QL39 - QL42                             ; includes/mill.hpp :0586
  FN 9: IF QL86 EQU 0 GOTO LBL "IFNOT_58"              ; includes/mill.hpp :0587
  FN 11: IF QL86 GT 0 GOTO LBL "IFNOT_58"              ; includes/mill.hpp :0587
  QL86 = 0                                             ; includes/mill.hpp :0587
  LBL "IFNOT_58"                                       ; includes/mill.hpp :0587
 LP PR+QL86 PA+QL100 R0 FMAX                           ; includes/mill.hpp :0588
  FN 9: IF QL61 EQU 0 GOTO LBL "CASE0_59"              ; includes/mill.hpp :0589
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_59"             ; includes/mill.hpp :0589
  LBL "CASE0_59"                                       ; includes/mill.hpp :0591
  L  Z+QL65 F QL32                                     ; includes/mill.hpp :0592
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_59"             ; includes/mill.hpp :0593
  LBL "SWITCHDEF_59"                                   ; includes/mill.hpp :0594
  Q0 = QL65 - ( SGN( QL35 )* ( QL42/25 ) )             ; includes/mill.hpp :0595
  L  Z+Q0 F QL32                                       ; includes/mill.hpp :0595
  LBL "SWITCHEND_59"                                   ; includes/mill.hpp :0596
 QL87 = (QL66 - QL67) / QL34                           ; includes/mill.hpp :0600
 QL88 = QL34                                           ; includes/mill.hpp :0601
 QL87 = QL87 * 2                                       ; includes/mill.hpp :0602
 LBL "ENDIF_46"                                        ; includes/mill.hpp :0603
 FN 10: IF QL70 NE 1 GOTO LBL "IFNOT_60"               ; includes/mill.hpp :0607
 M110                                                  ; includes/mill.hpp :0607
 LBL "IFNOT_60"                                        ; includes/mill.hpp :0607
 FN 9: IF QL67 EQU QL39 GOTO LBL "IFNOT_61"            ; includes/mill.hpp :0611
 FN 11: IF QL67 GT QL39 GOTO LBL "IFNOT_61"            ; includes/mill.hpp :0611
 FN 14: ERROR= 1003                                    ; includes/mill.hpp :0613
 LBL "IFNOT_61"                                        ; includes/mill.hpp :0614
 QL89 = FRAC( QL87 ) * 180                             ; includes/mill.hpp :0618
 CC  X+0 Y+0                                           ; includes/mill.hpp :0619
 LP PR+QL67 PA+QL100 RL F QL30                         ; includes/mill.hpp :0620
 FN 9: IF QL89 EQU 0 GOTO LBL "IFNOT_62"               ; includes/mill.hpp :0624
 FN 12: IF QL89 LT 0 GOTO LBL "IFNOT_62"               ; includes/mill.hpp :0624
 QL87 = INT( QL87 )                                    ; includes/mill.hpp :0626
 QL97 = QL66 - QL87*(QL34 / 2)                         ; includes/mill.hpp :0627
 QL90 = ACOS ( ( SQ( QL40 ) - SQ( QL97 - QL40 ) - SQ( QL67 )) / -( 2 * ( QL97 - QL40 ) * QL67 ))
 Q0 = QL90 + 15                                        ; includes/mill.hpp :0629
  FN 9: IF QL89 EQU Q0 GOTO LBL "IFNOT_63"             ; includes/mill.hpp :0629
  FN 11: IF QL89 GT Q0 GOTO LBL "IFNOT_63"             ; includes/mill.hpp :0629
  QL89 = QL90 + 15                                     ; includes/mill.hpp :0631
  LBL "IFNOT_63"                                       ; includes/mill.hpp :0632
 QL100 = QL100 + QL89                                  ; includes/mill.hpp :0633
 QL91 = SQRT( SQ(QL67) + SQ(QL97) - 2*QL67*QL97*COS( QL89 ) )
 QL92 = ASIN( QL67 * SIN( QL89 ) / QL91 )              ; includes/mill.hpp :0635
 QL93 = 180 - 2 * QL92                                 ; includes/mill.hpp :0636
 QL94 = ( QL91 * SIN( QL92 ) ) / ( SIN( QL93 ) )       ; includes/mill.hpp :0637
 QL97 = ( QL97 ) - QL94                                ; includes/mill.hpp :0638
 Q0 = QL97 * COS( QL100 )                              ; includes/mill.hpp :0639
 Q1 = QL97 * SIN( QL100 )                              ; includes/mill.hpp :0639
 CC  X+Q0 Y+Q1                                         ; includes/mill.hpp :0639
 CP PA+QL100 Z+QL65 DR+                                ; includes/mill.hpp :0640
 LBL "IFNOT_62"                                        ; includes/mill.hpp :0641
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_64"                 ; includes/mill.hpp :0645
 LBL "FOR_64"                                          ; includes/mill.hpp :0645
 QL87 = QL87 + -1                                      ; includes/mill.hpp :0645
 LBL "FORCMP_64"                                       ; includes/mill.hpp :0645
 FN 9: IF QL87 EQU 0 GOTO LBL "FORNOT_64"              ; includes/mill.hpp :0645
 FN 12: IF QL87 LT 0 GOTO LBL "FORNOT_64"              ; includes/mill.hpp :0645
 QL100 = ( QL100 + 180 ) % 360                         ; includes/mill.hpp :0647
 Q0 = (QL88 / 4) * COS( QL100 )                        ; includes/mill.hpp :0648
 Q1 = (QL88 / 4) * SIN( QL100 )                        ; includes/mill.hpp :0648
 CC  X+Q0 Y+Q1                                         ; includes/mill.hpp :0648
 CP  PA+QL100 Z+QL65 DR+                               ; includes/mill.hpp :0649
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_64"                    ; includes/mill.hpp :0650
 LBL "FORNOT_64"                                       ; includes/mill.hpp :0650
 CC X+0 Y+0                                            ; includes/mill.hpp :0654
 CP IPA+360 DR+                                        ; includes/mill.hpp :0655
 LP IPR-QL39 R0                                        ; includes/mill.hpp :0659
 QL104 = QL66 - QL39 - QL68                            ; includes/mill.hpp :0660
 FN 11: IF QL104 GT 0 GOTO LBL "IFNOT_65"              ; includes/mill.hpp :0661
 QL104 = 0                                             ; includes/mill.hpp :0663
 QL98 = ( QL66 - QL39 ) / 2                            ; includes/mill.hpp :0664
 QL93 = 180                                            ; includes/mill.hpp :0665
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_65"                  ; includes/mill.hpp :0666
 LBL "IFNOT_65"                                        ; includes/mill.hpp :0666
 QL102 = SQRT( SQ(QL104) + SQ(QL66-QL39) - 2*QL104*(QL66-QL39)*COS( 45 ) )
 QL103 = ACOS(( SQ(QL102) + SQ((QL66-QL39)) - SQ(QL104)) / (2*QL102*(QL66-QL39)))
 QL93 = 180 - 2*QL103                                  ; includes/mill.hpp :0671
 QL98 = (QL66-QL39) - ((QL102 * SIN( QL103 )) / SIN( QL93 ))
 LBL "ENDIF_65"                                        ; includes/mill.hpp :0673
 Q0 = QL98 *COS( QL100 )                               ; includes/mill.hpp :0674
 Q1 = QL98 *SIN( QL100 )                               ; includes/mill.hpp :0674
 CC X+Q0 Y+Q1                                          ; includes/mill.hpp :0674
 QL93 = QL93 + QL100                                   ; includes/mill.hpp :0675
 FN 9: IF QL61 EQU 0 GOTO LBL "CASE0_66"               ; includes/mill.hpp :0676
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_66"              ; includes/mill.hpp :0676
 LBL "CASE0_66"                                        ; includes/mill.hpp :0678
 CP PA+QL93 DR+                                        ; includes/mill.hpp :0679
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_66"              ; includes/mill.hpp :0680
 LBL "SWITCHDEF_66"                                    ; includes/mill.hpp :0681
 Q0 = QL65 - ( SGN( QL35 )* ( QL42/25 ) )              ; includes/mill.hpp :0682
 CP PA+QL93 Z+Q0 DR+                                   ; includes/mill.hpp :0682
 LBL "SWITCHEND_66"                                    ; includes/mill.hpp :0683
 QL100 = QL100 + 45                                    ; includes/mill.hpp :0684
 FN 12: IF QL37 LT 0 GOTO LBL "IFNOT_67"               ; includes/mill.hpp :0688
 QL100 = -QL100                                        ; includes/mill.hpp :0690
 FN 17: SYSWRITE ID 210 NR 3 = QL24                    ; includes/mill.hpp :0691
 LBL "IFNOT_67"                                        ; includes/mill.hpp :0692
 TRANS DATUM AXIS IX-QL63 IY-QL64                      ; includes/mill.hpp :0693
 FN 10: IF QL70 NE 1 GOTO LBL "IFNOT_68"               ; includes/mill.hpp :0698
 M111                                                  ; includes/mill.hpp :0700
 LBL "IFNOT_68"                                        ; includes/mill.hpp :0701
 QL71 = QL100                                          ; includes/mill.hpp :0702
 LBL 0                                                 ; includes/mill.hpp :0702
LBL 0                                                  ; includes/mill.hpp :0056
LBL "check_bit"                                        ; includes/stdlib.hh:0124
 QL108=15                                              ; includes/geo.hpp  :0850
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_69"                 ; includes/geo.hpp  :0850
 LBL "FOR_69"                                          ; includes/geo.hpp  :0850
 QL108 = QL108 + -1                                    ; includes/geo.hpp  :0850
 LBL "FORCMP_69"                                       ; includes/geo.hpp  :0850
 FN 12: IF QL108 LT 0 GOTO LBL "FORNOT_69"             ; includes/geo.hpp  :0850
 QL76 = 2 ^ QL108                                      ; includes/geo.hpp  :0852
  FN 12: IF QL74 LT QL76 GOTO LBL "IFNOT_70"           ; includes/geo.hpp  :0853
   FN 10: IF QL108 NE QL75 GOTO LBL "IFNOT_71"         ; includes/geo.hpp  :0855
   QL76 = 1                                            ; includes/geo.hpp  :0857
   LBL 0                                               ; includes/geo.hpp  :0858
   LBL "IFNOT_71"                                      ; includes/geo.hpp  :0859
  QL74 = QL74 - 2^QL108                                ; includes/geo.hpp  :0860
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_70"                 ; includes/geo.hpp  :0861
  LBL "IFNOT_70"                                       ; includes/geo.hpp  :0861
   FN 10: IF QL108 NE QL75 GOTO LBL "IFNOT_72"         ; includes/geo.hpp  :0864
   QL76 = 0                                            ; includes/geo.hpp  :0866
   LBL 0                                               ; includes/geo.hpp  :0867
   LBL "IFNOT_72"                                      ; includes/geo.hpp  :0868
  LBL "ENDIF_70"                                       ; includes/geo.hpp  :0869
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_69"                    ; includes/geo.hpp  :0870
 LBL "FORNOT_69"                                       ; includes/geo.hpp  :0870
 QL76 = -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_73"                 ; 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_74"                ; includes/geo.hpp  :0921
  FN 18: SYSREAD QL109 = ID 20 NR 5                    ; includes/geo.hpp  :0926
   FN 9: IF QL109 EQU 0 GOTO LBL "IFNOT_75"            ; includes/geo.hpp  :0927
   FN 9: IF QL109 EQU 1 GOTO LBL "IFNOT_75"            ; includes/geo.hpp  :0927
   FN 14: ERROR= 1000                                  ; includes/geo.hpp  :0929
   LBL "IFNOT_75"                                      ; includes/geo.hpp  :0930
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_74"                 ; includes/geo.hpp  :0931
  LBL "IFNOT_74"                                       ; includes/geo.hpp  :0931
  CALL LBL "state_exec"
  Q0 = QL110                                           ; includes/geo.hpp  :0937
   FN 9: IF Q0 EQU 0 GOTO LBL "IFNOT_76"               ; includes/geo.hpp  :0937
   LBL 0                                               ; includes/geo.hpp  :0937
   LBL "IFNOT_76"                                      ; includes/geo.hpp  :0937
  FN 20: WAIT FOR SYNC                                 ; includes/geo.hpp  :0941
  QL109 = 100                                          ; includes/geo.hpp  :0942
  FN 17: SYSWRITE ID 13 NR3 =+9990                     ; includes/geo.hpp  :0943
  READ FROM PLC KEY "PLC_API_VERSION" TO QL109         ; includes/geo.hpp  :0944
  LBL 9990                                             ; includes/geo.hpp  :0945
   FN 10: IF QL109 NE 100 GOTO LBL "IFNOT_77"          ; includes/geo.hpp  :0946
   FN 18: SYSREAD QL109 = ID 2000 NR 10 IDX 4000       ; includes/geo.hpp  :0948
    FN 10: IF QL109 NE 1 GOTO LBL "IFNOT_78"           ; includes/geo.hpp  :0949
    FN 14: ERROR= 1000                                 ; includes/geo.hpp  :0951
    LBL "IFNOT_78"                                     ; includes/geo.hpp  :0952
   FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_77"                ; includes/geo.hpp  :0953
   LBL "IFNOT_77"                                      ; 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
   QL109=0                                             ; includes/geo.hpp  :0973
   FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_79"               ; includes/geo.hpp  :0973
    LBL "FOR_79"                                       ; includes/geo.hpp  :0973
    QL109 = QL109 + 1                                  ; includes/geo.hpp  :0973
    LBL "FORCMP_79"                                    ; 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 QL109 )
    Q0 = STRCOMP( SRC_ QS2 SEA_ QS10 )                 ; includes/geo.hpp  :0977
     FN 10: IF Q0 NE 0 GOTO LBL "IFNOT_80"             ; includes/geo.hpp  :0977
     QS2 = "ApiSpin[" || TOCHAR( DAT+QL109 DECIMALS 0 ) || "].NN_SpiMotionRequest"
     READ FROM PLC KEY QS2 TO QL109                    ; includes/geo.hpp  :0980
      FN 10: IF QL109 NE 0 GOTO LBL "IFNOT_81"         ; includes/geo.hpp  :0981
      FN 14: ERROR= 1000                               ; includes/geo.hpp  :0983
      LBL "IFNOT_81"                                   ; includes/geo.hpp  :0984
     FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_79"             ; includes/geo.hpp  :0985
     LBL "IFNOT_80"                                    ; includes/geo.hpp  :0986
    FN 9: IF 0 EQU 0 GOTO LBL "FOR_79"                 ; includes/geo.hpp  :0987
    LBL "FORNOT_79"                                    ; includes/geo.hpp  :0987
   LBL 9991                                            ; includes/geo.hpp  :0988
   LBL "ENDIF_77"                                      ; includes/geo.hpp  :0989
  LBL "ENDIF_74"                                       ; includes/geo.hpp  :0990
 LBL "IFNOT_73"                                        ; includes/geo.hpp  :0991
LBL 0                                                  ; includes/stdlib.hh:0133
LBL "swap_axes"                                        ; includes/stdlib.hh:0120
 FN 17: SYSWRITE ID 212 = QL77                         ; includes/geo.hpp  :0841
LBL 0                                                  ; includes/stdlib.hh:0120
LBL "check_depth_sign"                                 ; includes/stdlib.hh:0128
 FN 9: IF QL78 EQU 0 GOTO LBL "IFNOT_82"               ; includes/geo.hpp  :0880
 FN 12: IF QL78 LT 0 GOTO LBL "IFNOT_82"               ; 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
 QL111 = CFGREAD( KEY_ QS3 TAG_ QS4 ATR_ QS5 )         ; includes/geo.hpp  :0888
  FN 10: IF QL111 NE 1 GOTO LBL "IFNOT_83"             ; includes/geo.hpp  :0890
  FN 14: ERROR= 1077                                   ; includes/geo.hpp  :0891
  LBL "IFNOT_83"                                       ; includes/geo.hpp  :0891
 LBL "IFNOT_82"                                        ; 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_84"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 6 GOTO LBL "CASE1_84"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 1 GOTO LBL "CASE2_84"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 7 GOTO LBL "CASE3_84"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 2 GOTO LBL "CASE4_84"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 8 GOTO LBL "CASE5_84"                 ; includes/geo.hpp  :0802
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_84"              ; includes/geo.hpp  :0802
 LBL "CASE0_84"                                        ; includes/geo.hpp  :0804
 LBL "CASE1_84"                                        ; includes/geo.hpp  :0805
 FN 18: SYSREAD QL112 = ID 270 NR 1 IDX 1              ; includes/geo.hpp  :0806
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_84"              ; includes/geo.hpp  :0807
 LBL "CASE2_84"                                        ; includes/geo.hpp  :0808
 LBL "CASE3_84"                                        ; includes/geo.hpp  :0809
 FN 18: SYSREAD QL112 = ID 270 NR 1 IDX 2              ; includes/geo.hpp  :0810
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_84"              ; includes/geo.hpp  :0811
 LBL "CASE4_84"                                        ; includes/geo.hpp  :0812
 LBL "CASE5_84"                                        ; includes/geo.hpp  :0813
 FN 18: SYSREAD QL112 = ID 270 NR 1 IDX 3              ; includes/geo.hpp  :0814
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_84"              ; includes/geo.hpp  :0815
 LBL "SWITCHEND_84"                                    ; includes/geo.hpp  :0816
 FN 11: IF QL80 GT 0 GOTO LBL "IFNOT_85"               ; includes/geo.hpp  :0817
 Q0 = QL81 + ABS( QL79 )                               ; includes/geo.hpp  :0819
  FN 11: IF QL112 GT Q0 GOTO LBL "IFNOT_86"            ; includes/geo.hpp  :0819
  Q1 = QL81 + ABS( QL79 )                              ; includes/geo.hpp  :0821
  Z+Q1 R0 FMAX                                         ; includes/geo.hpp  :0821
  LBL "IFNOT_86"                                       ; includes/geo.hpp  :0822
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_85"                  ; includes/geo.hpp  :0823
 LBL "IFNOT_85"                                        ; includes/geo.hpp  :0823
 Q0 = QL81 - ABS( QL79 )                               ; includes/geo.hpp  :0826
  FN 12: IF QL112 LT Q0 GOTO LBL "IFNOT_87"            ; includes/geo.hpp  :0826
  Q1 = QL81 - ABS( QL79 )                              ; includes/geo.hpp  :0828
  Z+Q1 R0 FMAX                                         ; includes/geo.hpp  :0828
  LBL "IFNOT_87"                                       ; includes/geo.hpp  :0829
 LBL "ENDIF_85"                                        ; includes/geo.hpp  :0830
LBL 0                                                  ; includes/stdlib.hh:0112
LBL "state_exec"                                       ; includes/stdlib.hh:0076
 FN 18: SYSREAD QL110 = ID 992 NR 11                   ; includes/geo.hpp  :0583
 FN 10: IF QL110 NE 1 GOTO LBL "IFNOT_88"              ; includes/geo.hpp  :0584
 QL110 = 3                                             ; includes/geo.hpp  :0586
 LBL 0                                                 ; includes/geo.hpp  :0587
 LBL "IFNOT_88"                                        ; includes/geo.hpp  :0588
 FN 18: SYSREAD QL110 = ID 992 NR 16                   ; includes/geo.hpp  :0590
 FN 10: IF QL110 NE 0 GOTO LBL "IFNOT_89"              ; includes/geo.hpp  :0591
 QL110 = 1                                             ; includes/geo.hpp  :0593
 LBL 0                                                 ; includes/geo.hpp  :0594
 LBL "IFNOT_89"                                        ; includes/geo.hpp  :0595
 FN 18: SYSREAD QL110 = ID 992 NR 10                   ; includes/geo.hpp  :0597
 FN 10: IF QL110 NE 1 GOTO LBL "IFNOT_90"              ; includes/geo.hpp  :0598
 QL110 = 2                                             ; includes/geo.hpp  :0600
 LBL 0                                                 ; includes/geo.hpp  :0601
 LBL "IFNOT_90"                                        ; includes/geo.hpp  :0602
 QL110 = 0                                             ; includes/geo.hpp  :0603
 LBL 0                                                 ; includes/geo.hpp  :0604
LBL 0                                                  ; includes/stdlib.hh:0076
LBL "EXIT"                                             ;                   :-001
END PGM MM
