BEGIN PGM 240_ap.h MM ; h++ 2 13 8 2015_05_07
 FN 9: IF Q343 EQU 0 GOTO LBL "CASE0_1"                ; src/240.hpp       :0018
 FN 9: IF Q343 EQU 1 GOTO LBL "CASE1_1"                ; src/240.hpp       :0018
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_1"               ; src/240.hpp       :0018
 LBL "CASE0_1"                                         ; src/240.hpp       :0020
 QL0 = Q201                                            ; src/240.hpp       :0021
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_1"               ; src/240.hpp       :0022
 LBL "CASE1_1"                                         ; src/240.hpp       :0023
 FN 18: SYSREAD QL1 = ID 200 NR 1                      ; src/240.hpp       :0024
 Q0 = ABS( Q344/2 )                                    ; src/240.hpp       :0025
  FN 9: IF QL1 EQU 0 GOTO LBL "IFNOT_2"                ; src/240.hpp       :0025
  FN 12: IF QL1 LT 0 GOTO LBL "IFNOT_2"                ; src/240.hpp       :0025
  FN 9: IF QL1 EQU Q0 GOTO LBL "IFNOT_2"               ; src/240.hpp       :0025
  FN 11: IF QL1 GT Q0 GOTO LBL "IFNOT_2"               ; src/240.hpp       :0025
  FN 14: ERROR= 1002                                   ; src/240.hpp       :0027
  LBL "IFNOT_2"                                        ; src/240.hpp       :0028
 FN 18: SYSREAD QL2 = ID 950 NR 32                     ; src/240.hpp       :0029
  FN 9: IF QL2 EQU 0 GOTO LBL "IF_3"                   ; src/240.hpp       :0030
  FN 12: IF QL2 LT 0 GOTO LBL "IF_3"                   ; src/240.hpp       :0030
  FN 9: IF QL2 EQU 180 GOTO LBL "IF_3"                 ; src/240.hpp       :0030
  FN 11: IF QL2 GT 180 GOTO LBL "IF_3"                 ; src/240.hpp       :0030
  FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_3"                  ; src/240.hpp       :0030
  LBL "IF_3"                                           ; src/240.hpp       :0030
  FN 14: ERROR= 1087                                   ; src/240.hpp       :0032
  LBL "IFNOT_3"                                        ; src/240.hpp       :0033
 QL0 = (Q344 / 2) / (TAN( QL2 / 2 ))                   ; src/240.hpp       :0034
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_1"               ; src/240.hpp       :0035
 LBL "SWITCHDEF_1"                                     ; src/240.hpp       :0036
 FN 14: ERROR= 1011                                    ; src/240.hpp       :0037
 LBL "SWITCHEND_1"                                     ; src/240.hpp       :0038
 QL22 = Q203                                           ; src/240.hpp       :0039
 QL23 = Q200                                           ; src/240.hpp       :0039
 QL24 = Q204                                           ; src/240.hpp       :0039
 QL25 = QL0                                            ; src/240.hpp       :0039
 QL26 = 0                                              ; src/240.hpp       :0039
 QL27 = Q206                                           ; src/240.hpp       :0039
 QL28 = -57239891                                      ; src/240.hpp       :0039
 CALL LBL "240_ap$centering.DRILL"
 QL29 = Q211                                           ; src/240.hpp       :0043
 QL30 = 0                                              ; src/240.hpp       :0043
 QL31 = QL0                                            ; src/240.hpp       :0043
 QL32 = QL0                                            ; src/240.hpp       :0043
 QL33 = 0                                              ; src/240.hpp       :0043
 QL34 = 0                                              ; src/240.hpp       :0043
 QL35 = 0                                              ; src/240.hpp       :0043
 CALL LBL "240_ap$centering.chipbr_drill"
LBL "e_240_ap0"                                        ; src/240.hpp       :0007
FN 9: IF 0 EQU 0 GOTO LBL "EXIT"                       ;                   :-001
LBL "240_ap$centering.DRILL"                           ; includes/drill.hpp:0037
 FN 18: SYSREAD QL8 = ID 20 NR 3                       ; includes/drill.hpp:0058
 FN 18: SYSREAD QL4 = ID 20 NR 5                       ; includes/drill.hpp:0067
 FN 18: SYSREAD QL5 = ID 20 NR 22                      ; includes/drill.hpp:0071
 FN 18: SYSREAD QL6 = ID 20 NR 23                      ; includes/drill.hpp:0072
 FN 17: SYSWRITE ID 13 NR 3 = 2000                     ; includes/drill.hpp:0073
 QS3 = "CH_NC"                                         ; includes/drill.hpp:0074
 QS4 = "CfgGeoCycle"                                   ; includes/drill.hpp:0075
 QS5 = "restoreCoolant"                                ; includes/drill.hpp:0076
 QL7 = CFGREAD( KEY_ QS3 TAG_ QS4 ATR_ QS5 IDX 0 )     ; includes/drill.hpp:0077
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_4"                   ; includes/drill.hpp:0078
 LBL 2000                                              ; includes/drill.hpp:0079
 QL7 = 1                                               ; includes/drill.hpp:0080
 LBL "IFNOT_4"                                         ; includes/drill.hpp:0081
 FN 17: SYSWRITE ID 13 NR 3 = 0                        ; includes/drill.hpp:0082
 FN 18: SYSREAD QL36 = ID 210 NR 3                     ; includes/drill.hpp:0086
 FN 17: SYSWRITE ID 210 NR 3 = 0                       ; includes/drill.hpp:0087
 FN 9: IF QL8 EQU 0 GOTO LBL "CASE0_5"                 ; includes/drill.hpp:0088
 FN 9: IF QL8 EQU 6 GOTO LBL "CASE1_5"                 ; includes/drill.hpp:0088
 FN 9: IF QL8 EQU 1 GOTO LBL "CASE2_5"                 ; includes/drill.hpp:0088
 FN 9: IF QL8 EQU 7 GOTO LBL "CASE3_5"                 ; includes/drill.hpp:0088
 FN 9: IF QL8 EQU 2 GOTO LBL "CASE4_5"                 ; includes/drill.hpp:0088
 FN 9: IF QL8 EQU 8 GOTO LBL "CASE5_5"                 ; includes/drill.hpp:0088
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_5"               ; includes/drill.hpp:0088
 LBL "CASE0_5"                                         ; includes/drill.hpp:0090
 LBL "CASE1_5"                                         ; includes/drill.hpp:0091
 FN 18: SYSREAD QL10 = ID 210 NR 4 IDX 2               ; includes/drill.hpp:0092
 FN 18: SYSREAD QL11 = ID 210 NR 4 IDX 3               ; includes/drill.hpp:0093
 FN 18: SYSREAD QL12 = ID 210 NR 4 IDX 1               ; includes/drill.hpp:0094
 QL39 = QL36                                           ; includes/drill.hpp:0095
 QL40 = 1                                              ; includes/drill.hpp:0095
 CALL LBL "check_bit"
 QL13 = QL41                                           ; includes/drill.hpp:0095
 QL39 = QL36                                           ; includes/drill.hpp:0096
 QL40 = 2                                              ; includes/drill.hpp:0096
 CALL LBL "check_bit"
 QL14 = QL41                                           ; includes/drill.hpp:0096
 QL39 = QL36                                           ; includes/drill.hpp:0097
 QL40 = 0                                              ; includes/drill.hpp:0097
 CALL LBL "check_bit"
 QL14 = QL41                                           ; includes/drill.hpp:0097
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_5"               ; includes/drill.hpp:0098
 LBL "CASE2_5"                                         ; includes/drill.hpp:0099
 LBL "CASE3_5"                                         ; includes/drill.hpp:0100
 FN 18: SYSREAD QL10 = ID 210 NR 4 IDX 3               ; includes/drill.hpp:0101
 FN 18: SYSREAD QL11 = ID 210 NR 4 IDX 1               ; includes/drill.hpp:0102
 FN 18: SYSREAD QL12 = ID 210 NR 4 IDX 2               ; includes/drill.hpp:0103
 QL39 = QL36                                           ; includes/drill.hpp:0104
 QL40 = 2                                              ; includes/drill.hpp:0104
 CALL LBL "check_bit"
 QL13 = QL41                                           ; includes/drill.hpp:0104
 QL39 = QL36                                           ; includes/drill.hpp:0105
 QL40 = 0                                              ; includes/drill.hpp:0105
 CALL LBL "check_bit"
 QL14 = QL41                                           ; includes/drill.hpp:0105
 QL39 = QL36                                           ; includes/drill.hpp:0106
 QL40 = 1                                              ; includes/drill.hpp:0106
 CALL LBL "check_bit"
 QL14 = QL41                                           ; includes/drill.hpp:0106
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_5"               ; includes/drill.hpp:0107
 LBL "CASE4_5"                                         ; includes/drill.hpp:0108
 LBL "CASE5_5"                                         ; includes/drill.hpp:0109
 FN 18: SYSREAD QL10 = ID 210 NR 4 IDX 1               ; includes/drill.hpp:0110
 FN 18: SYSREAD QL11 = ID 210 NR 4 IDX 2               ; includes/drill.hpp:0111
 FN 18: SYSREAD QL12 = ID 210 NR 4 IDX 3               ; includes/drill.hpp:0112
 QL39 = QL36                                           ; includes/drill.hpp:0113
 QL40 = 0                                              ; includes/drill.hpp:0113
 CALL LBL "check_bit"
 QL13 = QL41                                           ; includes/drill.hpp:0113
 QL39 = QL36                                           ; includes/drill.hpp:0114
 QL40 = 1                                              ; includes/drill.hpp:0114
 CALL LBL "check_bit"
 QL14 = QL41                                           ; includes/drill.hpp:0114
 QL39 = QL36                                           ; includes/drill.hpp:0115
 QL40 = 2                                              ; includes/drill.hpp:0115
 CALL LBL "check_bit"
 QL14 = QL41                                           ; includes/drill.hpp:0115
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_5"               ; includes/drill.hpp:0116
 LBL "SWITCHEND_5"                                     ; includes/drill.hpp:0117
 FN 18: SYSREAD QL9 = ID 200 NR 1 IDX 2                ; includes/drill.hpp:0121
 QL9 = QL9 / QL10                                      ; includes/drill.hpp:0125
 QL42 = 3                                              ; includes/drill.hpp:0129
 CALL LBL "swap_axes"
 QL3 = SGN( QL25 )                                     ; includes/drill.hpp:0133
 FN 10: IF QL26 NE 1 GOTO LBL "IFNOT_6"                ; includes/drill.hpp:0134
 FN 18: SYSREAD QL37 = ID 950 NR 32                    ; includes/drill.hpp:0139
  FN 11: IF QL37 GT 0 GOTO LBL "IFNOT_7"               ; includes/drill.hpp:0140
  FN 14: ERROR= 1087                                   ; includes/drill.hpp:0142
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_7"                  ; includes/drill.hpp:0143
  LBL "IFNOT_7"                                        ; includes/drill.hpp:0143
  FN 9: IF QL37 EQU 180 GOTO LBL "ELSE0NOT_7"          ; includes/drill.hpp:0144
  QL25 = QL25 + ( QL3 * ( QL9 / ( TAN( QL37 / 2 ) ) ) )
  LBL "ELSE0NOT_7"                                     ; includes/drill.hpp:0147
  LBL "ENDIF_7"                                        ; includes/drill.hpp:0147
 LBL "IFNOT_6"                                         ; includes/drill.hpp:0148
 FN 9: IF QL25 EQU 0 GOTO LBL "EXIT"                   ; includes/drill.hpp:0149
 QL43 = QL25                                           ; includes/drill.hpp:0150
 CALL LBL "check_depth_sign"
 QL19 = QL22 + QL25                                    ; includes/drill.hpp:0151
 QL16 = QL22                                           ; includes/drill.hpp:0155
 QL17 = ABS( QL23 )                                    ; includes/drill.hpp:0156
 Q0 = ABS( QL24 )                                      ; includes/drill.hpp:0157
 FN 9: IF QL17 EQU Q0 GOTO LBL "IFNOT_9"               ; includes/drill.hpp:0157
 FN 12: IF QL17 LT Q0 GOTO LBL "IFNOT_9"               ; includes/drill.hpp:0157
 QL18 = QL16 - QL17 * QL3                              ; includes/drill.hpp:0159
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_9"                   ; includes/drill.hpp:0160
 LBL "IFNOT_9"                                         ; includes/drill.hpp:0160
 QL18 = QL16 - ABS( QL24 ) * QL3                       ; includes/drill.hpp:0163
 LBL "ENDIF_9"                                         ; includes/drill.hpp:0164
 QL20 = QL27                                           ; includes/drill.hpp:0169
 FN 11: IF QL28 GT 0 GOTO LBL "IFNOT_10"               ; includes/drill.hpp:0170
  FN 9: IF QL28 EQU -57239891 GOTO LBL "IFNOT_11"      ; includes/drill.hpp:0172
  QL21 = QL20                                          ; includes/drill.hpp:0174
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_11"                 ; includes/drill.hpp:0175
  LBL "IFNOT_11"                                       ; includes/drill.hpp:0175
  FN 22: FUNCT QL38 FNR 910 PIN 59 PIN 2 PEX 21        ; includes/drill.hpp:0179
  LBL "ENDIF_11"                                       ; includes/drill.hpp:0180
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_10"                  ; includes/drill.hpp:0182
 LBL "IFNOT_10"                                        ; includes/drill.hpp:0182
 QL21 = QL28                                           ; includes/drill.hpp:0185
 LBL "ENDIF_10"                                        ; includes/drill.hpp:0186
LBL 0                                                  ; includes/drill.hpp:0037
LBL "240_ap$centering.chipbr_drill"                    ; includes/drill.hpp:0041
 QL31 = ABS( QL31 ) * QL3                              ; includes/drill.hpp:0555
 FN 10: IF QL31 NE 0 GOTO LBL "IFNOT_12"               ; includes/drill.hpp:0556
 FN 14: ERROR= 1030                                    ; includes/drill.hpp:0558
 LBL "IFNOT_12"                                        ; includes/drill.hpp:0559
 QL34 = ABS( QL34 ) * QL3                              ; includes/drill.hpp:0560
 QL35 = ABS( QL35 )                                    ; includes/drill.hpp:0564
 FN 10: IF QL32 NE 0 GOTO LBL "IFNOT_13"               ; includes/drill.hpp:0565
 QL32 = QL35                                           ; includes/drill.hpp:0567
 LBL "IFNOT_13"                                        ; includes/drill.hpp:0568
 QL32 = ABS( QL32 ) * QL3                              ; includes/drill.hpp:0569
 QL17 = ABS( QL17 )                                    ; includes/drill.hpp:0573
 QL46 = QL16 - QL17 * QL3                              ; includes/drill.hpp:0574
 Z+QL46 R0 FMAX                                        ; includes/drill.hpp:0575
 CALL LBL "check_spindle_status"
 QL45 = QL16                                           ; includes/drill.hpp:0584
 QL44=0                                                ; includes/drill.hpp:0585
 QL48=QL45                                             ; includes/drill.hpp:0585
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_14"                 ; includes/drill.hpp:0585
 LBL "FOR_14"                                          ; includes/drill.hpp:0585
 QL45=QL48                                             ; includes/drill.hpp:0585
 LBL "FORCMP_14"                                       ; includes/drill.hpp:0585
 FN 9: IF QL48 EQU QL19 GOTO LBL "FORNOT_14"           ; includes/drill.hpp:0585
 QL48 = QL48 + QL31                                    ; includes/drill.hpp:0590
  FN 9: IF QL3 EQU 0 GOTO LBL "IFNOT_15"               ; includes/drill.hpp:0591
  FN 11: IF QL3 GT 0 GOTO LBL "IFNOT_15"               ; includes/drill.hpp:0591
   FN 9: IF QL48 EQU QL19 GOTO LBL "IFNOT_16"          ; includes/drill.hpp:0593
   FN 11: IF QL48 GT QL19 GOTO LBL "IFNOT_16"          ; includes/drill.hpp:0593
   QL48 = QL19                                         ; includes/drill.hpp:0595
   LBL "IFNOT_16"                                      ; includes/drill.hpp:0596
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_15"                 ; includes/drill.hpp:0597
  LBL "IFNOT_15"                                       ; includes/drill.hpp:0597
   FN 9: IF QL48 EQU QL19 GOTO LBL "IFNOT_17"          ; includes/drill.hpp:0600
   FN 12: IF QL48 LT QL19 GOTO LBL "IFNOT_17"          ; includes/drill.hpp:0600
   QL48 = QL19                                         ; includes/drill.hpp:0602
   LBL "IFNOT_17"                                      ; includes/drill.hpp:0603
  LBL "ENDIF_15"                                       ; includes/drill.hpp:0604
 QL47 = QL48 - ABS( QL17 ) * QL3                       ; includes/drill.hpp:0609
 Z+QL48 F QL20                                         ; includes/drill.hpp:0613
  FN 10: IF QL19 NE QL48 GOTO LBL "IFNOT_18"           ; includes/drill.hpp:0614
   FN 9: IF QL29 EQU 0 GOTO LBL "IFNOT_19"             ; includes/drill.hpp:0193
   FN 12: IF QL29 LT 0 GOTO LBL "IFNOT_19"             ; includes/drill.hpp:0193
   CYCL DEF 9.0 VERWEILZEIT
   CYCL DEF 9.1 V.ZEIT QL29
   LBL "IFNOT_19"                                      ; includes/drill.hpp:0197
  LBL "e_240_ap$centering.dwell_time1"                 ; includes/drill.hpp:0038
  LBL "IFNOT_18"                                       ; includes/drill.hpp:0617
  FN 9: IF QL44 EQU QL33 GOTO LBL "IFNOT_20"           ; includes/drill.hpp:0618
  FN 11: IF QL44 GT QL33 GOTO LBL "IFNOT_20"           ; includes/drill.hpp:0618
  IZ-QL34 F QL21                                       ; includes/drill.hpp:0620
  QL44 = QL44 + 1                                      ; includes/drill.hpp:0621
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_20"                 ; includes/drill.hpp:0622
  LBL "IFNOT_20"                                       ; includes/drill.hpp:0622
  FN 9: IF QL48 EQU QL19 GOTO LBL "ELSE0NOT_20"        ; includes/drill.hpp:0623
  Z+QL46 F QL21                                        ; includes/drill.hpp:0625
   FN 9: IF QL30 EQU 0 GOTO LBL "IFNOT_21"             ; includes/drill.hpp:0193
   FN 12: IF QL30 LT 0 GOTO LBL "IFNOT_21"             ; includes/drill.hpp:0193
   CYCL DEF 9.0 VERWEILZEIT
   CYCL DEF 9.1 V.ZEIT QL30
   LBL "IFNOT_21"                                      ; includes/drill.hpp:0197
  LBL "e_240_ap$centering.dwell_time2"                 ; includes/drill.hpp:0038
  QL44 = 0                                             ; includes/drill.hpp:0627
  Z+QL47 F QL21                                        ; includes/drill.hpp:0628
  LBL "ELSE0NOT_20"                                    ; includes/drill.hpp:0629
  LBL "ENDIF_20"                                       ; includes/drill.hpp:0629
 QL31 = QL31 - ( ABS( QL35 ) * QL3 )                   ; includes/drill.hpp:0633
  FN 9: IF QL3 EQU 0 GOTO LBL "IFNOT_22"               ; includes/drill.hpp:0634
  FN 11: IF QL3 GT 0 GOTO LBL "IFNOT_22"               ; includes/drill.hpp:0634
   FN 9: IF QL31 EQU QL32 GOTO LBL "IFNOT_23"          ; includes/drill.hpp:0636
   FN 12: IF QL31 LT QL32 GOTO LBL "IFNOT_23"          ; includes/drill.hpp:0636
   QL31 = QL32                                         ; includes/drill.hpp:0636
   LBL "IFNOT_23"                                      ; includes/drill.hpp:0636
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_22"                 ; includes/drill.hpp:0637
  LBL "IFNOT_22"                                       ; includes/drill.hpp:0637
   FN 9: IF QL31 EQU QL32 GOTO LBL "IFNOT_24"          ; includes/drill.hpp:0640
   FN 11: IF QL31 GT QL32 GOTO LBL "IFNOT_24"          ; includes/drill.hpp:0640
   QL31 = QL32                                         ; includes/drill.hpp:0640
   LBL "IFNOT_24"                                      ; includes/drill.hpp:0640
  LBL "ENDIF_22"                                       ; includes/drill.hpp:0641
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_14"                    ; includes/drill.hpp:0642
 LBL "FORNOT_14"                                       ; includes/drill.hpp:0642
 Z+QL18 R0 FMAX                                        ; includes/drill.hpp:0646
LBL 0                                                  ; includes/drill.hpp:0041
LBL "check_bit"                                        ; includes/stdlib.hh:0124
 QL49=15                                               ; includes/geo.hpp  :0850
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_25"                 ; includes/geo.hpp  :0850
 LBL "FOR_25"                                          ; includes/geo.hpp  :0850
 QL49 = QL49 + -1                                      ; includes/geo.hpp  :0850
 LBL "FORCMP_25"                                       ; includes/geo.hpp  :0850
 FN 12: IF QL49 LT 0 GOTO LBL "FORNOT_25"              ; includes/geo.hpp  :0850
 QL41 = 2 ^ QL49                                       ; includes/geo.hpp  :0852
  FN 12: IF QL39 LT QL41 GOTO LBL "IFNOT_26"           ; includes/geo.hpp  :0853
   FN 10: IF QL49 NE QL40 GOTO LBL "IFNOT_27"          ; includes/geo.hpp  :0855
   QL41 = 1                                            ; includes/geo.hpp  :0857
   LBL 0                                               ; includes/geo.hpp  :0858
   LBL "IFNOT_27"                                      ; includes/geo.hpp  :0859
  QL39 = QL39 - 2^QL49                                 ; includes/geo.hpp  :0860
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_26"                 ; includes/geo.hpp  :0861
  LBL "IFNOT_26"                                       ; includes/geo.hpp  :0861
   FN 10: IF QL49 NE QL40 GOTO LBL "IFNOT_28"          ; includes/geo.hpp  :0864
   QL41 = 0                                            ; includes/geo.hpp  :0866
   LBL 0                                               ; includes/geo.hpp  :0867
   LBL "IFNOT_28"                                      ; includes/geo.hpp  :0868
  LBL "ENDIF_26"                                       ; includes/geo.hpp  :0869
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_25"                    ; includes/geo.hpp  :0870
 LBL "FORNOT_25"                                       ; includes/geo.hpp  :0870
 QL41 = -1                                             ; includes/geo.hpp  :0871
LBL 0                                                  ; includes/stdlib.hh:0124
LBL "swap_axes"                                        ; includes/stdlib.hh:0120
 FN 17: SYSWRITE ID 212 = QL42                         ; includes/geo.hpp  :0841
LBL 0                                                  ; includes/stdlib.hh:0120
LBL "check_depth_sign"                                 ; includes/stdlib.hh:0128
 FN 9: IF QL43 EQU 0 GOTO LBL "IFNOT_29"               ; includes/geo.hpp  :0880
 FN 12: IF QL43 LT 0 GOTO LBL "IFNOT_29"               ; 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
 QL50 = CFGREAD( KEY_ QS3 TAG_ QS4 ATR_ QS5 )          ; includes/geo.hpp  :0888
  FN 10: IF QL50 NE 1 GOTO LBL "IFNOT_30"              ; includes/geo.hpp  :0890
  FN 14: ERROR= 1077                                   ; includes/geo.hpp  :0891
  LBL "IFNOT_30"                                       ; includes/geo.hpp  :0891
 LBL "IFNOT_29"                                        ; includes/geo.hpp  :0892
LBL 0                                                  ; includes/stdlib.hh:0128
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_31"                 ; 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_32"                ; includes/geo.hpp  :0921
  FN 18: SYSREAD QL51 = ID 20 NR 5                     ; includes/geo.hpp  :0926
   FN 9: IF QL51 EQU 0 GOTO LBL "IFNOT_33"             ; includes/geo.hpp  :0927
   FN 9: IF QL51 EQU 1 GOTO LBL "IFNOT_33"             ; includes/geo.hpp  :0927
   FN 14: ERROR= 1000                                  ; includes/geo.hpp  :0929
   LBL "IFNOT_33"                                      ; includes/geo.hpp  :0930
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_32"                 ; includes/geo.hpp  :0931
  LBL "IFNOT_32"                                       ; includes/geo.hpp  :0931
  CALL LBL "state_exec"
  Q0 = QL52                                            ; includes/geo.hpp  :0937
   FN 9: IF Q0 EQU 0 GOTO LBL "IFNOT_34"               ; includes/geo.hpp  :0937
   LBL 0                                               ; includes/geo.hpp  :0937
   LBL "IFNOT_34"                                      ; includes/geo.hpp  :0937
  FN 20: WAIT FOR SYNC                                 ; includes/geo.hpp  :0941
  QL51 = 100                                           ; includes/geo.hpp  :0942
  FN 17: SYSWRITE ID 13 NR3 =+9990                     ; includes/geo.hpp  :0943
  READ FROM PLC KEY "PLC_API_VERSION" TO QL51          ; includes/geo.hpp  :0944
  LBL 9990                                             ; includes/geo.hpp  :0945
   FN 10: IF QL51 NE 100 GOTO LBL "IFNOT_35"           ; includes/geo.hpp  :0946
   FN 18: SYSREAD QL51 = ID 2000 NR 10 IDX 4000        ; includes/geo.hpp  :0948
    FN 10: IF QL51 NE 1 GOTO LBL "IFNOT_36"            ; includes/geo.hpp  :0949
    FN 14: ERROR= 1000                                 ; includes/geo.hpp  :0951
    LBL "IFNOT_36"                                     ; includes/geo.hpp  :0952
   FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_35"                ; includes/geo.hpp  :0953
   LBL "IFNOT_35"                                      ; 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
   QL51=0                                              ; includes/geo.hpp  :0973
   FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_37"               ; includes/geo.hpp  :0973
    LBL "FOR_37"                                       ; includes/geo.hpp  :0973
    QL51 = QL51 + 1                                    ; includes/geo.hpp  :0973
    LBL "FORCMP_37"                                    ; 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 QL51 )
    Q0 = STRCOMP( SRC_ QS2 SEA_ QS10 )                 ; includes/geo.hpp  :0977
     FN 10: IF Q0 NE 0 GOTO LBL "IFNOT_38"             ; includes/geo.hpp  :0977
     QS2 = "ApiSpin[" || TOCHAR( DAT+QL51 DECIMALS 0 ) || "].NN_SpiMotionRequest"
     READ FROM PLC KEY QS2 TO QL51                     ; includes/geo.hpp  :0980
      FN 10: IF QL51 NE 0 GOTO LBL "IFNOT_39"          ; includes/geo.hpp  :0981
      FN 14: ERROR= 1000                               ; includes/geo.hpp  :0983
      LBL "IFNOT_39"                                   ; includes/geo.hpp  :0984
     FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_37"             ; includes/geo.hpp  :0985
     LBL "IFNOT_38"                                    ; includes/geo.hpp  :0986
    FN 9: IF 0 EQU 0 GOTO LBL "FOR_37"                 ; includes/geo.hpp  :0987
    LBL "FORNOT_37"                                    ; includes/geo.hpp  :0987
   LBL 9991                                            ; includes/geo.hpp  :0988
   LBL "ENDIF_35"                                      ; includes/geo.hpp  :0989
  LBL "ENDIF_32"                                       ; includes/geo.hpp  :0990
 LBL "IFNOT_31"                                        ; includes/geo.hpp  :0991
LBL 0                                                  ; includes/stdlib.hh:0133
LBL "state_exec"                                       ; includes/stdlib.hh:0076
 FN 18: SYSREAD QL52 = ID 992 NR 11                    ; includes/geo.hpp  :0583
 FN 10: IF QL52 NE 1 GOTO LBL "IFNOT_40"               ; includes/geo.hpp  :0584
 QL52 = 3                                              ; includes/geo.hpp  :0586
 LBL 0                                                 ; includes/geo.hpp  :0587
 LBL "IFNOT_40"                                        ; includes/geo.hpp  :0588
 FN 18: SYSREAD QL52 = ID 992 NR 16                    ; includes/geo.hpp  :0590
 FN 10: IF QL52 NE 0 GOTO LBL "IFNOT_41"               ; includes/geo.hpp  :0591
 QL52 = 1                                              ; includes/geo.hpp  :0593
 LBL 0                                                 ; includes/geo.hpp  :0594
 LBL "IFNOT_41"                                        ; includes/geo.hpp  :0595
 FN 18: SYSREAD QL52 = ID 992 NR 10                    ; includes/geo.hpp  :0597
 FN 10: IF QL52 NE 1 GOTO LBL "IFNOT_42"               ; includes/geo.hpp  :0598
 QL52 = 2                                              ; includes/geo.hpp  :0600
 LBL 0                                                 ; includes/geo.hpp  :0601
 LBL "IFNOT_42"                                        ; includes/geo.hpp  :0602
 QL52 = 0                                              ; includes/geo.hpp  :0603
 LBL 0                                                 ; includes/geo.hpp  :0604
LBL 0                                                  ; includes/stdlib.hh:0076
LBL "EXIT"                                             ;                   :-001
END PGM MM
