BEGIN PGM 204.h MM ; h++ 2 13 8 2015_05_06
 QL19 = Q203                                           ; src/204.hpp       :0009
 QL20 = Q200                                           ; src/204.hpp       :0009
 QL21 = Q204                                           ; src/204.hpp       :0009
 QL22 = -Q249                                          ; src/204.hpp       :0009
 QL23 = 0                                              ; src/204.hpp       :0009
 QL24 = Q254                                           ; src/204.hpp       :0009
 QL25 = -57239891                                      ; src/204.hpp       :0009
 CALL LBL "204$boreback.DRILL"
 QL26 = Q249                                           ; src/204.hpp       :0014
 QL27 = Q255                                           ; src/204.hpp       :0014
 QL28 = Q250                                           ; src/204.hpp       :0014
 QL29 = Q252                                           ; src/204.hpp       :0014
 QL30 = Q253                                           ; src/204.hpp       :0014
 QL31 = Q214                                           ; src/204.hpp       :0014
 QL32 = Q251                                           ; src/204.hpp       :0014
 QL33 = Q336                                           ; src/204.hpp       :0014
 CALL LBL "204$boreback.counterboring"
LBL "e_2040"                                           ; src/204.hpp       :0007
FN 9: IF 0 EQU 0 GOTO LBL "EXIT"                       ;                   :-001
LBL "204$boreback.DRILL"                               ; includes/drill.hpp:0037
 FN 18: SYSREAD QL5 = ID 20 NR 3                       ; includes/drill.hpp:0058
 FN 18: SYSREAD QL1 = ID 20 NR 5                       ; includes/drill.hpp:0067
 FN 18: SYSREAD QL2 = ID 20 NR 22                      ; includes/drill.hpp:0071
 FN 18: SYSREAD QL3 = 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
 QL4 = CFGREAD( KEY_ QS3 TAG_ QS4 ATR_ QS5 IDX 0 )     ; includes/drill.hpp:0077
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_1"                   ; includes/drill.hpp:0078
 LBL 2000                                              ; includes/drill.hpp:0079
 QL4 = 1                                               ; includes/drill.hpp:0080
 LBL "IFNOT_1"                                         ; includes/drill.hpp:0081
 FN 17: SYSWRITE ID 13 NR 3 = 0                        ; includes/drill.hpp:0082
 FN 18: SYSREAD QL34 = ID 210 NR 3                     ; includes/drill.hpp:0086
 FN 17: SYSWRITE ID 210 NR 3 = 0                       ; includes/drill.hpp:0087
 FN 9: IF QL5 EQU 0 GOTO LBL "CASE0_2"                 ; includes/drill.hpp:0088
 FN 9: IF QL5 EQU 6 GOTO LBL "CASE1_2"                 ; includes/drill.hpp:0088
 FN 9: IF QL5 EQU 1 GOTO LBL "CASE2_2"                 ; includes/drill.hpp:0088
 FN 9: IF QL5 EQU 7 GOTO LBL "CASE3_2"                 ; includes/drill.hpp:0088
 FN 9: IF QL5 EQU 2 GOTO LBL "CASE4_2"                 ; includes/drill.hpp:0088
 FN 9: IF QL5 EQU 8 GOTO LBL "CASE5_2"                 ; includes/drill.hpp:0088
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_2"               ; includes/drill.hpp:0088
 LBL "CASE0_2"                                         ; includes/drill.hpp:0090
 LBL "CASE1_2"                                         ; includes/drill.hpp:0091
 FN 18: SYSREAD QL7 = ID 210 NR 4 IDX 2                ; includes/drill.hpp:0092
 FN 18: SYSREAD QL8 = ID 210 NR 4 IDX 3                ; includes/drill.hpp:0093
 FN 18: SYSREAD QL9 = ID 210 NR 4 IDX 1                ; includes/drill.hpp:0094
 QL37 = QL34                                           ; includes/drill.hpp:0095
 QL38 = 1                                              ; includes/drill.hpp:0095
 CALL LBL "check_bit"
 QL10 = QL39                                           ; includes/drill.hpp:0095
 QL37 = QL34                                           ; includes/drill.hpp:0096
 QL38 = 2                                              ; includes/drill.hpp:0096
 CALL LBL "check_bit"
 QL11 = QL39                                           ; includes/drill.hpp:0096
 QL37 = QL34                                           ; includes/drill.hpp:0097
 QL38 = 0                                              ; includes/drill.hpp:0097
 CALL LBL "check_bit"
 QL11 = QL39                                           ; includes/drill.hpp:0097
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_2"               ; includes/drill.hpp:0098
 LBL "CASE2_2"                                         ; includes/drill.hpp:0099
 LBL "CASE3_2"                                         ; includes/drill.hpp:0100
 FN 18: SYSREAD QL7 = ID 210 NR 4 IDX 3                ; includes/drill.hpp:0101
 FN 18: SYSREAD QL8 = ID 210 NR 4 IDX 1                ; includes/drill.hpp:0102
 FN 18: SYSREAD QL9 = ID 210 NR 4 IDX 2                ; includes/drill.hpp:0103
 QL37 = QL34                                           ; includes/drill.hpp:0104
 QL38 = 2                                              ; includes/drill.hpp:0104
 CALL LBL "check_bit"
 QL10 = QL39                                           ; includes/drill.hpp:0104
 QL37 = QL34                                           ; includes/drill.hpp:0105
 QL38 = 0                                              ; includes/drill.hpp:0105
 CALL LBL "check_bit"
 QL11 = QL39                                           ; includes/drill.hpp:0105
 QL37 = QL34                                           ; includes/drill.hpp:0106
 QL38 = 1                                              ; includes/drill.hpp:0106
 CALL LBL "check_bit"
 QL11 = QL39                                           ; includes/drill.hpp:0106
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_2"               ; includes/drill.hpp:0107
 LBL "CASE4_2"                                         ; includes/drill.hpp:0108
 LBL "CASE5_2"                                         ; includes/drill.hpp:0109
 FN 18: SYSREAD QL7 = ID 210 NR 4 IDX 1                ; includes/drill.hpp:0110
 FN 18: SYSREAD QL8 = ID 210 NR 4 IDX 2                ; includes/drill.hpp:0111
 FN 18: SYSREAD QL9 = ID 210 NR 4 IDX 3                ; includes/drill.hpp:0112
 QL37 = QL34                                           ; includes/drill.hpp:0113
 QL38 = 0                                              ; includes/drill.hpp:0113
 CALL LBL "check_bit"
 QL10 = QL39                                           ; includes/drill.hpp:0113
 QL37 = QL34                                           ; includes/drill.hpp:0114
 QL38 = 1                                              ; includes/drill.hpp:0114
 CALL LBL "check_bit"
 QL11 = QL39                                           ; includes/drill.hpp:0114
 QL37 = QL34                                           ; includes/drill.hpp:0115
 QL38 = 2                                              ; includes/drill.hpp:0115
 CALL LBL "check_bit"
 QL11 = QL39                                           ; includes/drill.hpp:0115
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_2"               ; includes/drill.hpp:0116
 LBL "SWITCHEND_2"                                     ; includes/drill.hpp:0117
 FN 18: SYSREAD QL6 = ID 200 NR 1 IDX 2                ; includes/drill.hpp:0121
 QL6 = QL6 / QL7                                       ; includes/drill.hpp:0125
 QL40 = 3                                              ; includes/drill.hpp:0129
 CALL LBL "swap_axes"
 QL0 = SGN( QL22 )                                     ; includes/drill.hpp:0133
 FN 10: IF QL23 NE 1 GOTO LBL "IFNOT_3"                ; includes/drill.hpp:0134
 FN 18: SYSREAD QL35 = ID 950 NR 32                    ; includes/drill.hpp:0139
  FN 11: IF QL35 GT 0 GOTO LBL "IFNOT_4"               ; includes/drill.hpp:0140
  FN 14: ERROR= 1087                                   ; includes/drill.hpp:0142
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_4"                  ; includes/drill.hpp:0143
  LBL "IFNOT_4"                                        ; includes/drill.hpp:0143
  FN 9: IF QL35 EQU 180 GOTO LBL "ELSE0NOT_4"          ; includes/drill.hpp:0144
  QL22 = QL22 + ( QL0 * ( QL6 / ( TAN( QL35 / 2 ) ) ) )
  LBL "ELSE0NOT_4"                                     ; includes/drill.hpp:0147
  LBL "ENDIF_4"                                        ; includes/drill.hpp:0147
 LBL "IFNOT_3"                                         ; includes/drill.hpp:0148
 FN 9: IF QL22 EQU 0 GOTO LBL "EXIT"                   ; includes/drill.hpp:0149
 QL41 = QL22                                           ; includes/drill.hpp:0150
 CALL LBL "check_depth_sign"
 QL16 = QL19 + QL22                                    ; includes/drill.hpp:0151
 QL13 = QL19                                           ; includes/drill.hpp:0155
 QL14 = ABS( QL20 )                                    ; includes/drill.hpp:0156
 Q0 = ABS( QL21 )                                      ; includes/drill.hpp:0157
 FN 9: IF QL14 EQU Q0 GOTO LBL "IFNOT_6"               ; includes/drill.hpp:0157
 FN 12: IF QL14 LT Q0 GOTO LBL "IFNOT_6"               ; includes/drill.hpp:0157
 QL15 = QL13 - QL14 * QL0                              ; includes/drill.hpp:0159
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_6"                   ; includes/drill.hpp:0160
 LBL "IFNOT_6"                                         ; includes/drill.hpp:0160
 QL15 = QL13 - ABS( QL21 ) * QL0                       ; includes/drill.hpp:0163
 LBL "ENDIF_6"                                         ; includes/drill.hpp:0164
 QL17 = QL24                                           ; includes/drill.hpp:0169
 FN 11: IF QL25 GT 0 GOTO LBL "IFNOT_7"                ; includes/drill.hpp:0170
  FN 9: IF QL25 EQU -57239891 GOTO LBL "IFNOT_8"       ; includes/drill.hpp:0172
  QL18 = QL17                                          ; includes/drill.hpp:0174
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_8"                  ; includes/drill.hpp:0175
  LBL "IFNOT_8"                                        ; includes/drill.hpp:0175
  FN 22: FUNCT QL36 FNR 910 PIN 59 PIN 2 PEX 18        ; includes/drill.hpp:0179
  LBL "ENDIF_8"                                        ; includes/drill.hpp:0180
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_7"                   ; includes/drill.hpp:0182
 LBL "IFNOT_7"                                         ; includes/drill.hpp:0182
 QL18 = QL25                                           ; includes/drill.hpp:0185
 LBL "ENDIF_7"                                         ; includes/drill.hpp:0186
LBL 0                                                  ; includes/drill.hpp:0037
LBL "204$boreback.counterboring"                       ; includes/drill.hpp:0043
 FN 11: IF QL30 GT 0 GOTO LBL "IFNOT_9"                ; includes/drill.hpp:0751
 QL30 = QL17                                           ; includes/drill.hpp:0751
 LBL "IFNOT_9"                                         ; includes/drill.hpp:0751
 QL0 = SGN( QL26 )                                     ; includes/drill.hpp:0752
 QL42 = QL13 + QL14 * QL0                              ; includes/drill.hpp:0753
 QL43 = QL13 - ( QL14 + ABS( QL28 ) + ABS( QL29 ) ) * QL0
 QL44 = QL13 - ( ABS( QL28 ) + ABS( QL29 ) - ABS( QL26 ) ) * QL0
 Z+QL42 R0 FMAX                                        ; includes/drill.hpp:0756
 FN 9: IF QL1 EQU 0 GOTO LBL "IFNOT_10"                ; includes/drill.hpp:0760
 FN 9: IF QL1 EQU 1 GOTO LBL "IFNOT_10"                ; includes/drill.hpp:0760
 FN 14: ERROR= 1000                                    ; includes/drill.hpp:0762
 LBL "IFNOT_10"                                        ; includes/drill.hpp:0763
 QL45 = QL33                                           ; includes/drill.hpp:0767
 CALL LBL "204$boreback.orient_spindle"
 F QL30                                                ; includes/drill.hpp:0768
 FN 9: IF QL31 EQU 1 GOTO LBL "CASE0_11"               ; includes/drill.hpp:0769
 FN 9: IF QL31 EQU 2 GOTO LBL "CASE1_11"               ; includes/drill.hpp:0769
 FN 9: IF QL31 EQU 3 GOTO LBL "CASE2_11"               ; includes/drill.hpp:0769
 FN 9: IF QL31 EQU 4 GOTO LBL "CASE3_11"               ; includes/drill.hpp:0769
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_11"              ; includes/drill.hpp:0769
 LBL "CASE0_11"                                        ; includes/drill.hpp:0771
 IX-QL32                                               ; includes/drill.hpp:0772
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"              ; includes/drill.hpp:0773
 LBL "CASE1_11"                                        ; includes/drill.hpp:0774
 IY-QL32                                               ; includes/drill.hpp:0775
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"              ; includes/drill.hpp:0776
 LBL "CASE2_11"                                        ; includes/drill.hpp:0777
 IX+QL32                                               ; includes/drill.hpp:0778
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"              ; includes/drill.hpp:0779
 LBL "CASE3_11"                                        ; includes/drill.hpp:0780
 IY+QL32                                               ; includes/drill.hpp:0781
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"              ; includes/drill.hpp:0782
 LBL "SWITCHDEF_11"                                    ; includes/drill.hpp:0783
 FN 14: ERROR= 1041                                    ; includes/drill.hpp:0784
 LBL "SWITCHEND_11"                                    ; includes/drill.hpp:0785
 Z+QL43 F QL30                                         ; includes/drill.hpp:0789
 FN 9: IF QL31 EQU 1 GOTO LBL "CASE0_12"               ; includes/drill.hpp:0790
 FN 9: IF QL31 EQU 2 GOTO LBL "CASE1_12"               ; includes/drill.hpp:0790
 FN 9: IF QL31 EQU 3 GOTO LBL "CASE2_12"               ; includes/drill.hpp:0790
 FN 9: IF QL31 EQU 4 GOTO LBL "CASE3_12"               ; includes/drill.hpp:0790
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_12"              ; includes/drill.hpp:0790
 LBL "CASE0_12"                                        ; includes/drill.hpp:0792
 IX+QL32                                               ; includes/drill.hpp:0793
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_12"              ; includes/drill.hpp:0794
 LBL "CASE1_12"                                        ; includes/drill.hpp:0795
 IY+QL32                                               ; includes/drill.hpp:0796
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_12"              ; includes/drill.hpp:0797
 LBL "CASE2_12"                                        ; includes/drill.hpp:0798
 IX-QL32                                               ; includes/drill.hpp:0799
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_12"              ; includes/drill.hpp:0800
 LBL "CASE3_12"                                        ; includes/drill.hpp:0801
 IY-QL32                                               ; includes/drill.hpp:0802
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_12"              ; includes/drill.hpp:0803
 LBL "SWITCHEND_12"                                    ; includes/drill.hpp:0804
 FN 17: SYSWRITE ID 990 NR 16 = 0                      ; includes/drill.hpp:0805
 FN 9: IF QL1 EQU 0 GOTO LBL "CASE0_13"                ; includes/drill.hpp:0806
 FN 9: IF QL1 EQU 1 GOTO LBL "CASE1_13"                ; includes/drill.hpp:0806
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_13"              ; includes/drill.hpp:0806
 LBL "CASE0_13"                                        ; includes/drill.hpp:0808
 M3                                                    ; includes/drill.hpp:0809
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"              ; includes/drill.hpp:0810
 LBL "CASE1_13"                                        ; includes/drill.hpp:0811
 M4                                                    ; includes/drill.hpp:0812
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"              ; includes/drill.hpp:0813
 LBL "SWITCHDEF_13"                                    ; includes/drill.hpp:0814
 FN 14: ERROR= 1000                                    ; includes/drill.hpp:0815
 LBL "SWITCHEND_13"                                    ; includes/drill.hpp:0816
 Z+QL44 F QL17                                         ; includes/drill.hpp:0820
 FN 9: IF QL27 EQU 0 GOTO LBL "IFNOT_14"               ; includes/drill.hpp:0193
 FN 12: IF QL27 LT 0 GOTO LBL "IFNOT_14"               ; includes/drill.hpp:0193
 CYCL DEF 9.0 VERWEILZEIT
 CYCL DEF 9.1 V.ZEIT QL27
 LBL "IFNOT_14"                                        ; includes/drill.hpp:0197
 LBL "e_204$boreback.dwell_time1"                      ; includes/drill.hpp:0038
 Z+QL43 F QL30                                         ; includes/drill.hpp:0825
 QL45 = QL33                                           ; includes/drill.hpp:0826
 CALL LBL "204$boreback.orient_spindle"
 FN 9: IF QL31 EQU 1 GOTO LBL "CASE0_15"               ; includes/drill.hpp:0827
 FN 9: IF QL31 EQU 2 GOTO LBL "CASE1_15"               ; includes/drill.hpp:0827
 FN 9: IF QL31 EQU 3 GOTO LBL "CASE2_15"               ; includes/drill.hpp:0827
 FN 9: IF QL31 EQU 4 GOTO LBL "CASE3_15"               ; includes/drill.hpp:0827
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_15"              ; includes/drill.hpp:0827
 LBL "CASE0_15"                                        ; includes/drill.hpp:0829
 IX-QL32                                               ; includes/drill.hpp:0830
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_15"              ; includes/drill.hpp:0831
 LBL "CASE1_15"                                        ; includes/drill.hpp:0832
 IY-QL32                                               ; includes/drill.hpp:0833
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_15"              ; includes/drill.hpp:0834
 LBL "CASE2_15"                                        ; includes/drill.hpp:0835
 IX+QL32                                               ; includes/drill.hpp:0836
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_15"              ; includes/drill.hpp:0837
 LBL "CASE3_15"                                        ; includes/drill.hpp:0838
 IY+QL32                                               ; includes/drill.hpp:0839
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_15"              ; includes/drill.hpp:0840
 LBL "SWITCHEND_15"                                    ; includes/drill.hpp:0841
 Z+QL42 R0 FMAX                                        ; includes/drill.hpp:0842
 FN 17: SYSWRITE ID 990 NR 16 = 0                      ; includes/drill.hpp:0843
 Z+QL15 R0 FMAX                                        ; includes/drill.hpp:0847
 FN 9: IF QL1 EQU 0 GOTO LBL "CASE0_16"                ; includes/drill.hpp:0851
 FN 9: IF QL1 EQU 1 GOTO LBL "CASE1_16"                ; includes/drill.hpp:0851
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_16"              ; includes/drill.hpp:0851
 LBL "CASE0_16"                                        ; includes/drill.hpp:0852
 M3                                                    ; includes/drill.hpp:0853
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_16"              ; includes/drill.hpp:0854
 LBL "CASE1_16"                                        ; includes/drill.hpp:0855
 M4                                                    ; includes/drill.hpp:0856
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_16"              ; includes/drill.hpp:0857
 LBL "SWITCHEND_16"                                    ; includes/drill.hpp:0858
 FN 10: IF QL4 NE 1 GOTO LBL "IFNOT_17"                ; includes/drill.hpp:0859
  FN 10: IF QL2 NE 1 GOTO LBL "IFNOT_18"               ; includes/drill.hpp:0860
  M7                                                   ; includes/drill.hpp:0860
  LBL "IFNOT_18"                                       ; includes/drill.hpp:0860
  FN 10: IF QL3 NE 1 GOTO LBL "IFNOT_19"               ; includes/drill.hpp:0861
  M8                                                   ; includes/drill.hpp:0861
  LBL "IFNOT_19"                                       ; includes/drill.hpp:0861
 LBL "IFNOT_17"                                        ; includes/drill.hpp:0862
 FN 9: IF QL31 EQU 1 GOTO LBL "CASE0_20"               ; includes/drill.hpp:0863
 FN 9: IF QL31 EQU 2 GOTO LBL "CASE1_20"               ; includes/drill.hpp:0863
 FN 9: IF QL31 EQU 3 GOTO LBL "CASE2_20"               ; includes/drill.hpp:0863
 FN 9: IF QL31 EQU 4 GOTO LBL "CASE3_20"               ; includes/drill.hpp:0863
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_20"              ; includes/drill.hpp:0863
 LBL "CASE0_20"                                        ; includes/drill.hpp:0864
 IX+QL32 R0 FMAX                                       ; includes/drill.hpp:0865
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_20"              ; includes/drill.hpp:0866
 LBL "CASE1_20"                                        ; includes/drill.hpp:0867
 IY+QL32 R0 FMAX                                       ; includes/drill.hpp:0868
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_20"              ; includes/drill.hpp:0869
 LBL "CASE2_20"                                        ; includes/drill.hpp:0870
 IX-QL32 R0 FMAX                                       ; includes/drill.hpp:0871
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_20"              ; includes/drill.hpp:0872
 LBL "CASE3_20"                                        ; includes/drill.hpp:0873
 IY-QL32 R0 FMAX                                       ; includes/drill.hpp:0874
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_20"              ; includes/drill.hpp:0875
 LBL "SWITCHEND_20"                                    ; includes/drill.hpp:0876
LBL 0                                                  ; includes/drill.hpp:0043
LBL "check_bit"                                        ; includes/stdlib.hh:0124
 QL46=15                                               ; includes/geo.hpp  :0850
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_21"                 ; includes/geo.hpp  :0850
 LBL "FOR_21"                                          ; includes/geo.hpp  :0850
 QL46 = QL46 + -1                                      ; includes/geo.hpp  :0850
 LBL "FORCMP_21"                                       ; includes/geo.hpp  :0850
 FN 12: IF QL46 LT 0 GOTO LBL "FORNOT_21"              ; includes/geo.hpp  :0850
 QL39 = 2 ^ QL46                                       ; includes/geo.hpp  :0852
  FN 12: IF QL37 LT QL39 GOTO LBL "IFNOT_22"           ; includes/geo.hpp  :0853
   FN 10: IF QL46 NE QL38 GOTO LBL "IFNOT_23"          ; includes/geo.hpp  :0855
   QL39 = 1                                            ; includes/geo.hpp  :0857
   LBL 0                                               ; includes/geo.hpp  :0858
   LBL "IFNOT_23"                                      ; includes/geo.hpp  :0859
  QL37 = QL37 - 2^QL46                                 ; includes/geo.hpp  :0860
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_22"                 ; includes/geo.hpp  :0861
  LBL "IFNOT_22"                                       ; includes/geo.hpp  :0861
   FN 10: IF QL46 NE QL38 GOTO LBL "IFNOT_24"          ; includes/geo.hpp  :0864
   QL39 = 0                                            ; includes/geo.hpp  :0866
   LBL 0                                               ; includes/geo.hpp  :0867
   LBL "IFNOT_24"                                      ; includes/geo.hpp  :0868
  LBL "ENDIF_22"                                       ; includes/geo.hpp  :0869
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_21"                    ; includes/geo.hpp  :0870
 LBL "FORNOT_21"                                       ; includes/geo.hpp  :0870
 QL39 = -1                                             ; includes/geo.hpp  :0871
LBL 0                                                  ; includes/stdlib.hh:0124
LBL "swap_axes"                                        ; includes/stdlib.hh:0120
 FN 17: SYSWRITE ID 212 = QL40                         ; includes/geo.hpp  :0841
LBL 0                                                  ; includes/stdlib.hh:0120
LBL "check_depth_sign"                                 ; includes/stdlib.hh:0128
 FN 9: IF QL41 EQU 0 GOTO LBL "IFNOT_25"               ; includes/geo.hpp  :0880
 FN 12: IF QL41 LT 0 GOTO LBL "IFNOT_25"               ; 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
 QL47 = CFGREAD( KEY_ QS3 TAG_ QS4 ATR_ QS5 )          ; includes/geo.hpp  :0888
  FN 10: IF QL47 NE 1 GOTO LBL "IFNOT_26"              ; includes/geo.hpp  :0890
  FN 14: ERROR= 1077                                   ; includes/geo.hpp  :0891
  LBL "IFNOT_26"                                       ; includes/geo.hpp  :0891
 LBL "IFNOT_25"                                        ; includes/geo.hpp  :0892
LBL 0                                                  ; includes/stdlib.hh:0128
LBL "204$boreback.orient_spindle"                      ; includes/drill.hpp:0039
 FN 18: SYSREAD QL49 = ID 210 NR 8                     ; includes/drill.hpp:0210
 QL45 = QL45 + -QL49                                   ; includes/drill.hpp:0211
 QS3 = SYSSTR( ID10025 NR1 )                           ; includes/drill.hpp:0215
 QS4 = "CfgGeoCycle"                                   ; includes/drill.hpp:0216
 QS5 = "mStrobeOrient"                                 ; includes/drill.hpp:0217
 QL48 = CFGREAD( KEY_ QS3 TAG_ QS4 ATR_ QS5 )          ; includes/drill.hpp:0218
 FN 9: IF QL48 EQU -1 GOTO LBL "CASE0_27"              ; includes/drill.hpp:0219
 FN 9: IF QL48 EQU 0 GOTO LBL "CASE1_27"               ; includes/drill.hpp:0219
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_27"              ; includes/drill.hpp:0219
 LBL "CASE0_27"                                        ; includes/drill.hpp:0221
 FN 17: SYSWRITE ID 990 NR 16 = 1                      ; includes/drill.hpp:0222
 FN 17: SYSWRITE ID 990 NR 8 = QL45                    ; includes/drill.hpp:0223
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_27"              ; includes/drill.hpp:0224
 LBL "CASE1_27"                                        ; includes/drill.hpp:0225
 FN 14: ERROR= 1074                                    ; includes/drill.hpp:0226
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_27"              ; includes/drill.hpp:0227
 LBL "SWITCHDEF_27"                                    ; includes/drill.hpp:0228
 CALL LBL "state_exec"
 Q0 = QL50                                             ; includes/drill.hpp:0229
  FN 10: IF Q0 NE 0 GOTO LBL "IFNOT_28"                ; includes/drill.hpp:0229
  CYCL DEF 13.0 ORIENTATION
  CYCL DEF 13.1 ANGLE QL45
  M QL48                                               ; includes/drill.hpp:0232
  QS5 = "%OEM_SPINDLEPOS%"                             ; includes/drill.hpp:0233
  FN 22: FUNCT QL48 FNR 900 PIN 40 PIN 2 PEX 5         ; includes/drill.hpp:0234
  LBL "IFNOT_28"                                       ; includes/drill.hpp:0235
 LBL "SWITCHEND_27"                                    ; includes/drill.hpp:0236
LBL 0                                                  ; includes/drill.hpp:0039
LBL "state_exec"                                       ; includes/stdlib.hh:0076
 FN 18: SYSREAD QL50 = ID 992 NR 11                    ; includes/geo.hpp  :0583
 FN 10: IF QL50 NE 1 GOTO LBL "IFNOT_29"               ; includes/geo.hpp  :0584
 QL50 = 3                                              ; includes/geo.hpp  :0586
 LBL 0                                                 ; includes/geo.hpp  :0587
 LBL "IFNOT_29"                                        ; includes/geo.hpp  :0588
 FN 18: SYSREAD QL50 = ID 992 NR 16                    ; includes/geo.hpp  :0590
 FN 10: IF QL50 NE 0 GOTO LBL "IFNOT_30"               ; includes/geo.hpp  :0591
 QL50 = 1                                              ; includes/geo.hpp  :0593
 LBL 0                                                 ; includes/geo.hpp  :0594
 LBL "IFNOT_30"                                        ; includes/geo.hpp  :0595
 FN 18: SYSREAD QL50 = ID 992 NR 10                    ; includes/geo.hpp  :0597
 FN 10: IF QL50 NE 1 GOTO LBL "IFNOT_31"               ; includes/geo.hpp  :0598
 QL50 = 2                                              ; includes/geo.hpp  :0600
 LBL 0                                                 ; includes/geo.hpp  :0601
 LBL "IFNOT_31"                                        ; includes/geo.hpp  :0602
 QL50 = 0                                              ; includes/geo.hpp  :0603
 LBL 0                                                 ; includes/geo.hpp  :0604
LBL 0                                                  ; includes/stdlib.hh:0076
LBL "EXIT"                                             ;                   :-001
END PGM MM
