BEGIN PGM 241.h MM ; h++ 2 13 8 2015_05_26
 QL20 = Q203                                           ; src/241.hpp       :0022
 QL21 = Q200                                           ; src/241.hpp       :0022
 QL22 = Q204                                           ; src/241.hpp       :0022
 QL23 = Q201                                           ; src/241.hpp       :0022
 QL24 = 0                                              ; src/241.hpp       :0022
 QL25 = Q206                                           ; src/241.hpp       :0022
 QL26 = Q208                                           ; src/241.hpp       :0022
 CALL LBL "241$deepdrill.DRILL"
 FN 9: IF Q426 EQU 3 GOTO LBL "CASE0_1"                ; src/241.hpp       :0026
 FN 9: IF Q426 EQU 4 GOTO LBL "CASE1_1"                ; src/241.hpp       :0026
 FN 9: IF Q426 EQU 5 GOTO LBL "CASE2_1"                ; src/241.hpp       :0026
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_1"               ; src/241.hpp       :0026
 LBL "CASE0_1"                                         ; src/241.hpp       :0028
 QL0 = 23                                              ; src/241.hpp       :0029
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_1"               ; src/241.hpp       :0030
 LBL "CASE1_1"                                         ; src/241.hpp       :0031
 QL0 = 13                                              ; src/241.hpp       :0032
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_1"               ; src/241.hpp       :0033
 LBL "CASE2_1"                                         ; src/241.hpp       :0034
 QL0 = 3                                               ; src/241.hpp       :0035
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_1"               ; src/241.hpp       :0036
 LBL "SWITCHDEF_1"                                     ; src/241.hpp       :0037
 FN 14: ERROR= 1011                                    ; src/241.hpp       :0038
 LBL "SWITCHEND_1"                                     ; src/241.hpp       :0039
 QL27 = Q379                                           ; src/241.hpp       :0042
 QL28 = Q211                                           ; src/241.hpp       :0042
 QL29 = 0                                              ; src/241.hpp       :0042
 QL30 = Q202                                           ; src/241.hpp       :0042
 QL31 = Q205                                           ; src/241.hpp       :0042
 QL32 = 0                                              ; src/241.hpp       :0042
 QL33 = 0                                              ; src/241.hpp       :0042
 QL34 = Q253                                           ; src/241.hpp       :0042
 QL35 = Q212                                           ; src/241.hpp       :0042
 QL36 = Q200                                           ; src/241.hpp       :0042
 QL37 = Q200                                           ; src/241.hpp       :0042
 QL38 = QL0                                            ; src/241.hpp       :0042
 QL39 = Q427                                           ; src/241.hpp       :0042
 QL40 = Q428                                           ; src/241.hpp       :0042
 QL41 = Q429                                           ; src/241.hpp       :0042
 QL42 = Q430                                           ; src/241.hpp       :0042
 QL43 = Q435                                           ; src/241.hpp       :0042
 QL44 = Q401                                           ; src/241.hpp       :0042
 QL45 = 99999                                          ; src/241.hpp       :0042
 CALL LBL "241$deepdrill.uni_drill"
LBL "e_2410"                                           ; src/241.hpp       :0007
FN 9: IF 0 EQU 0 GOTO LBL "EXIT"                       ;                   :-001
LBL "241$deepdrill.DRILL"                              ; includes/drill.hpp:0037
 FN 18: SYSREAD QL6 = ID 20 NR 3                       ; includes/drill.hpp:0058
 FN 18: SYSREAD QL2 = ID 20 NR 5                       ; includes/drill.hpp:0067
 FN 18: SYSREAD QL3 = ID 20 NR 22                      ; includes/drill.hpp:0071
 FN 18: SYSREAD QL4 = 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
 QL5 = CFGREAD( KEY_ QS3 TAG_ QS4 ATR_ QS5 IDX 0 )     ; includes/drill.hpp:0077
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_2"                   ; includes/drill.hpp:0078
 LBL 2000                                              ; includes/drill.hpp:0079
 QL5 = 1                                               ; includes/drill.hpp:0080
 LBL "IFNOT_2"                                         ; includes/drill.hpp:0081
 FN 17: SYSWRITE ID 13 NR 3 = 0                        ; includes/drill.hpp:0082
 FN 18: SYSREAD QL46 = ID 210 NR 3                     ; includes/drill.hpp:0086
 FN 17: SYSWRITE ID 210 NR 3 = 0                       ; includes/drill.hpp:0087
 FN 9: IF QL6 EQU 0 GOTO LBL "CASE0_3"                 ; includes/drill.hpp:0088
 FN 9: IF QL6 EQU 6 GOTO LBL "CASE1_3"                 ; includes/drill.hpp:0088
 FN 9: IF QL6 EQU 1 GOTO LBL "CASE2_3"                 ; includes/drill.hpp:0088
 FN 9: IF QL6 EQU 7 GOTO LBL "CASE3_3"                 ; includes/drill.hpp:0088
 FN 9: IF QL6 EQU 2 GOTO LBL "CASE4_3"                 ; includes/drill.hpp:0088
 FN 9: IF QL6 EQU 8 GOTO LBL "CASE5_3"                 ; includes/drill.hpp:0088
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_3"               ; includes/drill.hpp:0088
 LBL "CASE0_3"                                         ; includes/drill.hpp:0090
 LBL "CASE1_3"                                         ; includes/drill.hpp:0091
 FN 18: SYSREAD QL8 = ID 210 NR 4 IDX 2                ; includes/drill.hpp:0092
 FN 18: SYSREAD QL9 = ID 210 NR 4 IDX 3                ; includes/drill.hpp:0093
 FN 18: SYSREAD QL10 = ID 210 NR 4 IDX 1               ; includes/drill.hpp:0094
 QL49 = QL46                                           ; includes/drill.hpp:0095
 QL50 = 1                                              ; includes/drill.hpp:0095
 CALL LBL "check_bit"
 QL11 = QL51                                           ; includes/drill.hpp:0095
 QL49 = QL46                                           ; includes/drill.hpp:0096
 QL50 = 2                                              ; includes/drill.hpp:0096
 CALL LBL "check_bit"
 QL12 = QL51                                           ; includes/drill.hpp:0096
 QL49 = QL46                                           ; includes/drill.hpp:0097
 QL50 = 0                                              ; includes/drill.hpp:0097
 CALL LBL "check_bit"
 QL12 = QL51                                           ; includes/drill.hpp:0097
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_3"               ; includes/drill.hpp:0098
 LBL "CASE2_3"                                         ; includes/drill.hpp:0099
 LBL "CASE3_3"                                         ; includes/drill.hpp:0100
 FN 18: SYSREAD QL8 = ID 210 NR 4 IDX 3                ; includes/drill.hpp:0101
 FN 18: SYSREAD QL9 = ID 210 NR 4 IDX 1                ; includes/drill.hpp:0102
 FN 18: SYSREAD QL10 = ID 210 NR 4 IDX 2               ; includes/drill.hpp:0103
 QL49 = QL46                                           ; includes/drill.hpp:0104
 QL50 = 2                                              ; includes/drill.hpp:0104
 CALL LBL "check_bit"
 QL11 = QL51                                           ; includes/drill.hpp:0104
 QL49 = QL46                                           ; includes/drill.hpp:0105
 QL50 = 0                                              ; includes/drill.hpp:0105
 CALL LBL "check_bit"
 QL12 = QL51                                           ; includes/drill.hpp:0105
 QL49 = QL46                                           ; includes/drill.hpp:0106
 QL50 = 1                                              ; includes/drill.hpp:0106
 CALL LBL "check_bit"
 QL12 = QL51                                           ; includes/drill.hpp:0106
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_3"               ; includes/drill.hpp:0107
 LBL "CASE4_3"                                         ; includes/drill.hpp:0108
 LBL "CASE5_3"                                         ; includes/drill.hpp:0109
 FN 18: SYSREAD QL8 = ID 210 NR 4 IDX 1                ; includes/drill.hpp:0110
 FN 18: SYSREAD QL9 = ID 210 NR 4 IDX 2                ; includes/drill.hpp:0111
 FN 18: SYSREAD QL10 = ID 210 NR 4 IDX 3               ; includes/drill.hpp:0112
 QL49 = QL46                                           ; includes/drill.hpp:0113
 QL50 = 0                                              ; includes/drill.hpp:0113
 CALL LBL "check_bit"
 QL11 = QL51                                           ; includes/drill.hpp:0113
 QL49 = QL46                                           ; includes/drill.hpp:0114
 QL50 = 1                                              ; includes/drill.hpp:0114
 CALL LBL "check_bit"
 QL12 = QL51                                           ; includes/drill.hpp:0114
 QL49 = QL46                                           ; includes/drill.hpp:0115
 QL50 = 2                                              ; includes/drill.hpp:0115
 CALL LBL "check_bit"
 QL12 = QL51                                           ; includes/drill.hpp:0115
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_3"               ; includes/drill.hpp:0116
 LBL "SWITCHEND_3"                                     ; includes/drill.hpp:0117
 FN 18: SYSREAD QL7 = ID 200 NR 1 IDX 2                ; includes/drill.hpp:0121
 QL7 = QL7 / QL8                                       ; includes/drill.hpp:0125
 QL52 = 3                                              ; includes/drill.hpp:0129
 CALL LBL "swap_axes"
 QL1 = SGN( QL23 )                                     ; includes/drill.hpp:0133
 FN 10: IF QL24 NE 1 GOTO LBL "IFNOT_4"                ; includes/drill.hpp:0134
 FN 18: SYSREAD QL47 = ID 950 NR 32                    ; includes/drill.hpp:0139
  FN 11: IF QL47 GT 0 GOTO LBL "IFNOT_5"               ; includes/drill.hpp:0140
  FN 14: ERROR= 1087                                   ; includes/drill.hpp:0142
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_5"                  ; includes/drill.hpp:0143
  LBL "IFNOT_5"                                        ; includes/drill.hpp:0143
  FN 9: IF QL47 EQU 180 GOTO LBL "ELSE0NOT_5"          ; includes/drill.hpp:0144
  QL23 = QL23 + ( QL1 * ( QL7 / ( TAN( QL47 / 2 ) ) ) )
  LBL "ELSE0NOT_5"                                     ; includes/drill.hpp:0147
  LBL "ENDIF_5"                                        ; includes/drill.hpp:0147
 LBL "IFNOT_4"                                         ; includes/drill.hpp:0148
 FN 9: IF QL23 EQU 0 GOTO LBL "EXIT"                   ; includes/drill.hpp:0149
 QL53 = QL23                                           ; includes/drill.hpp:0150
 CALL LBL "check_depth_sign"
 QL17 = QL20 + QL23                                    ; includes/drill.hpp:0151
 QL14 = QL20                                           ; includes/drill.hpp:0155
 QL15 = ABS( QL21 )                                    ; includes/drill.hpp:0156
 Q0 = ABS( QL22 )                                      ; includes/drill.hpp:0157
 FN 9: IF QL15 EQU Q0 GOTO LBL "IFNOT_7"               ; includes/drill.hpp:0157
 FN 12: IF QL15 LT Q0 GOTO LBL "IFNOT_7"               ; includes/drill.hpp:0157
 QL16 = QL14 - QL15 * QL1                              ; includes/drill.hpp:0159
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_7"                   ; includes/drill.hpp:0160
 LBL "IFNOT_7"                                         ; includes/drill.hpp:0160
 QL16 = QL14 - ABS( QL22 ) * QL1                       ; includes/drill.hpp:0163
 LBL "ENDIF_7"                                         ; includes/drill.hpp:0164
 QL18 = QL25                                           ; includes/drill.hpp:0169
 FN 11: IF QL26 GT 0 GOTO LBL "IFNOT_8"                ; includes/drill.hpp:0170
  FN 9: IF QL26 EQU -57239891 GOTO LBL "IFNOT_9"       ; includes/drill.hpp:0172
  QL19 = QL18                                          ; includes/drill.hpp:0174
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_9"                  ; includes/drill.hpp:0175
  LBL "IFNOT_9"                                        ; includes/drill.hpp:0175
  FN 22: FUNCT QL48 FNR 910 PIN 59 PIN 2 PEX 19        ; includes/drill.hpp:0179
  LBL "ENDIF_9"                                        ; includes/drill.hpp:0180
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_8"                   ; includes/drill.hpp:0182
 LBL "IFNOT_8"                                         ; includes/drill.hpp:0182
 QL19 = QL26                                           ; includes/drill.hpp:0185
 LBL "ENDIF_8"                                         ; includes/drill.hpp:0186
LBL 0                                                  ; includes/drill.hpp:0037
LBL "241$deepdrill.uni_drill"                          ; includes/drill.hpp:0040
 QL60 = 0                                              ; includes/drill.hpp:0261
 QL30 = ABS( QL30 ) * QL1                              ; includes/drill.hpp:0265
 FN 10: IF QL30 NE 0 GOTO LBL "IFNOT_10"               ; includes/drill.hpp:0266
 FN 14: ERROR= 1030                                    ; includes/drill.hpp:0268
 LBL "IFNOT_10"                                        ; includes/drill.hpp:0269
 QL32 = ABS( QL32 ) * QL1                              ; includes/drill.hpp:0270
 QL36 = ABS( QL36 )                                    ; includes/drill.hpp:0271
 QL37 = ABS( QL37 )                                    ; includes/drill.hpp:0272
 QL33 = ABS( QL33 ) * QL1                              ; includes/drill.hpp:0273
 QL35 = ABS( QL35 )                                    ; includes/drill.hpp:0277
 FN 10: IF QL31 NE 0 GOTO LBL "IFNOT_11"               ; includes/drill.hpp:0278
 QL31 = QL35                                           ; includes/drill.hpp:0280
 LBL "IFNOT_11"                                        ; includes/drill.hpp:0281
 QL31 = ABS( QL31 ) * QL1                              ; includes/drill.hpp:0282
 QL56 = QL14 - QL15 * QL1                              ; includes/drill.hpp:0286
 Z+QL56 R0 FMAX                                        ; includes/drill.hpp:0287
 QL55 = QL14 - ( QL15 - ABS( QL27 ) ) * QL1            ; includes/drill.hpp:0293
 FN 9: IF QL27 EQU 0 GOTO LBL "IFNOT_12"               ; includes/drill.hpp:0294
  FN 9: IF QL38 EQU 0 GOTO LBL "CASE0_13"              ; includes/drill.hpp:0299
  FN 9: IF QL38 EQU 3 GOTO LBL "CASE1_13"              ; includes/drill.hpp:0299
  FN 9: IF QL38 EQU 4 GOTO LBL "CASE2_13"              ; includes/drill.hpp:0299
  FN 9: IF QL38 EQU 13 GOTO LBL "CASE3_13"             ; includes/drill.hpp:0299
  FN 9: IF QL38 EQU 24 GOTO LBL "CASE4_13"             ; includes/drill.hpp:0299
  FN 9: IF QL38 EQU 14 GOTO LBL "CASE5_13"             ; includes/drill.hpp:0299
  FN 9: IF QL38 EQU 23 GOTO LBL "CASE6_13"             ; includes/drill.hpp:0299
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"             ; includes/drill.hpp:0299
  LBL "CASE0_13"                                       ; includes/drill.hpp:0301
   FN 9: IF QL39 EQU 0 GOTO LBL "IFNOT_14"             ; includes/drill.hpp:0302
   FN 12: IF QL39 LT 0 GOTO LBL "IFNOT_14"             ; includes/drill.hpp:0302
   TOOL CALL S QL39                                    ; includes/drill.hpp:0304
   LBL "IFNOT_14"                                      ; includes/drill.hpp:0305
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"             ; includes/drill.hpp:0306
  LBL "CASE1_13"                                       ; includes/drill.hpp:0307
  LBL "CASE2_13"                                       ; includes/drill.hpp:0308
  M5                                                   ; includes/drill.hpp:0309
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"             ; includes/drill.hpp:0310
  LBL "CASE3_13"                                       ; includes/drill.hpp:0311
  LBL "CASE4_13"                                       ; includes/drill.hpp:0312
   FN 9: IF QL39 EQU 0 GOTO LBL "IFNOT_15"             ; includes/drill.hpp:0313
   FN 12: IF QL39 LT 0 GOTO LBL "IFNOT_15"             ; includes/drill.hpp:0313
   TOOL CALL S QL39                                    ; includes/drill.hpp:0315
   LBL "IFNOT_15"                                      ; includes/drill.hpp:0316
   FN 10: IF QL2 NE 0 GOTO LBL "IFNOT_16"              ; includes/drill.hpp:0317
   M5                                                  ; includes/drill.hpp:0317
   LBL "IFNOT_16"                                      ; includes/drill.hpp:0317
  M4                                                   ; includes/drill.hpp:0318
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"             ; includes/drill.hpp:0319
  LBL "CASE5_13"                                       ; includes/drill.hpp:0320
  LBL "CASE6_13"                                       ; includes/drill.hpp:0321
   FN 9: IF QL39 EQU 0 GOTO LBL "IFNOT_17"             ; includes/drill.hpp:0322
   FN 12: IF QL39 LT 0 GOTO LBL "IFNOT_17"             ; includes/drill.hpp:0322
   TOOL CALL S QL39                                    ; includes/drill.hpp:0324
   LBL "IFNOT_17"                                      ; includes/drill.hpp:0325
   FN 10: IF QL2 NE 1 GOTO LBL "IFNOT_18"              ; includes/drill.hpp:0326
   M5                                                  ; includes/drill.hpp:0326
   LBL "IFNOT_18"                                      ; includes/drill.hpp:0326
  M3                                                   ; includes/drill.hpp:0327
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"             ; includes/drill.hpp:0328
  LBL "SWITCHEND_13"                                   ; includes/drill.hpp:0329
 Z QL55 R0 F QL34                                      ; includes/drill.hpp:0330
  FN 9: IF QL38 EQU 0 GOTO LBL "CASE0_19"              ; includes/drill.hpp:0334
  FN 9: IF QL38 EQU 13 GOTO LBL "CASE1_19"             ; includes/drill.hpp:0334
  FN 9: IF QL38 EQU 3 GOTO LBL "CASE2_19"              ; includes/drill.hpp:0334
  FN 9: IF QL38 EQU 23 GOTO LBL "CASE3_19"             ; includes/drill.hpp:0334
  FN 9: IF QL38 EQU 14 GOTO LBL "CASE4_19"             ; includes/drill.hpp:0334
  FN 9: IF QL38 EQU 4 GOTO LBL "CASE5_19"              ; includes/drill.hpp:0334
  FN 9: IF QL38 EQU 24 GOTO LBL "CASE6_19"             ; includes/drill.hpp:0334
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_19"             ; includes/drill.hpp:0334
  LBL "CASE0_19"                                       ; includes/drill.hpp:0336
   FN 9: IF QL40 EQU 0 GOTO LBL "IFNOT_20"             ; includes/drill.hpp:0337
   FN 12: IF QL40 LT 0 GOTO LBL "IFNOT_20"             ; includes/drill.hpp:0337
   TOOL CALL S QL40                                    ; includes/drill.hpp:0339
   LBL "IFNOT_20"                                      ; includes/drill.hpp:0340
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_19"             ; includes/drill.hpp:0341
  LBL "CASE1_19"                                       ; includes/drill.hpp:0342
  M5                                                   ; includes/drill.hpp:0343
  LBL "CASE2_19"                                       ; includes/drill.hpp:0344
  LBL "CASE3_19"                                       ; includes/drill.hpp:0345
   FN 9: IF QL40 EQU 0 GOTO LBL "IFNOT_21"             ; includes/drill.hpp:0346
   FN 12: IF QL40 LT 0 GOTO LBL "IFNOT_21"             ; includes/drill.hpp:0346
   TOOL CALL S QL40                                    ; includes/drill.hpp:0348
   LBL "IFNOT_21"                                      ; includes/drill.hpp:0349
  M3                                                   ; includes/drill.hpp:0350
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_19"             ; includes/drill.hpp:0351
  LBL "CASE4_19"                                       ; includes/drill.hpp:0352
  M5                                                   ; includes/drill.hpp:0353
  LBL "CASE5_19"                                       ; includes/drill.hpp:0354
  LBL "CASE6_19"                                       ; includes/drill.hpp:0355
   FN 9: IF QL40 EQU 0 GOTO LBL "IFNOT_22"             ; includes/drill.hpp:0356
   FN 12: IF QL40 LT 0 GOTO LBL "IFNOT_22"             ; includes/drill.hpp:0356
   TOOL CALL S QL40                                    ; includes/drill.hpp:0358
   LBL "IFNOT_22"                                      ; includes/drill.hpp:0359
  M4                                                   ; includes/drill.hpp:0360
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_19"             ; includes/drill.hpp:0361
  LBL "SWITCHEND_19"                                   ; includes/drill.hpp:0362
  FN 12: IF QL45 LT QL27 GOTO LBL "IFNOT_23"           ; includes/drill.hpp:0363
  QL56 = QL55                                          ; includes/drill.hpp:0364
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_23"                 ; includes/drill.hpp:0365
  LBL "IFNOT_23"                                       ; includes/drill.hpp:0365
  QL56 = QL14 + ( QL45 * QL1 )                         ; includes/drill.hpp:0367
  LBL "ENDIF_23"                                       ; includes/drill.hpp:0368
 LBL "IFNOT_12"                                        ; includes/drill.hpp:0369
 FN 9: IF QL41 EQU 0 GOTO LBL "IFNOT_24"               ; includes/drill.hpp:0370
 FN 12: IF QL41 LT 0 GOTO LBL "IFNOT_24"               ; includes/drill.hpp:0370
 M QL41                                                ; includes/drill.hpp:0372
 LBL "IFNOT_24"                                        ; includes/drill.hpp:0373
 CALL LBL "check_spindle_status"
 QL54 = QL14 + ( ABS( QL27 ) * QL1 )                   ; includes/drill.hpp:0382
 FN 9: IF QL43 EQU 0 GOTO LBL "IFNOT_25"               ; includes/drill.hpp:0383
 QL43 = QL14 + ( ABS( QL43 ) * QL1 )                   ; includes/drill.hpp:0385
 LBL "IFNOT_25"                                        ; includes/drill.hpp:0386
 QL58=QL54                                             ; includes/drill.hpp:0387
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_26"                 ; includes/drill.hpp:0387
 LBL "FOR_26"                                          ; includes/drill.hpp:0387
 QL54=QL58                                             ; includes/drill.hpp:0387
 LBL "FORCMP_26"                                       ; includes/drill.hpp:0387
 FN 9: IF QL58 EQU QL17 GOTO LBL "FORNOT_26"           ; includes/drill.hpp:0387
 QL58 = QL58 + QL30                                    ; includes/drill.hpp:0392
  FN 9: IF QL1 EQU 0 GOTO LBL "IFNOT_27"               ; includes/drill.hpp:0393
  FN 11: IF QL1 GT 0 GOTO LBL "IFNOT_27"               ; includes/drill.hpp:0393
   FN 9: IF QL58 EQU QL17 GOTO LBL "IFNOT_28"          ; includes/drill.hpp:0395
   FN 11: IF QL58 GT QL17 GOTO LBL "IFNOT_28"          ; includes/drill.hpp:0395
   QL58 = QL17                                         ; includes/drill.hpp:0397
   LBL "IFNOT_28"                                      ; includes/drill.hpp:0398
   FN 10: IF QL60 NE 0 GOTO LBL "IFNOT_29"             ; includes/drill.hpp:0399
   FN 11: IF QL58 GT QL43 GOTO LBL "IFNOT_29"          ; includes/drill.hpp:0399
   FN 9: IF QL43 EQU 0 GOTO LBL "IFNOT_29"             ; includes/drill.hpp:0399
   QL60 = 1                                            ; includes/drill.hpp:0401
   LBL "IFNOT_29"                                      ; includes/drill.hpp:0402
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_27"                 ; includes/drill.hpp:0403
  LBL "IFNOT_27"                                       ; includes/drill.hpp:0403
   FN 9: IF QL58 EQU QL17 GOTO LBL "IFNOT_30"          ; includes/drill.hpp:0406
   FN 12: IF QL58 LT QL17 GOTO LBL "IFNOT_30"          ; includes/drill.hpp:0406
   QL58 = QL17                                         ; includes/drill.hpp:0408
   LBL "IFNOT_30"                                      ; includes/drill.hpp:0409
   FN 10: IF QL60 NE 0 GOTO LBL "IFNOT_31"             ; includes/drill.hpp:0410
   FN 12: IF QL58 LT QL43 GOTO LBL "IFNOT_31"          ; includes/drill.hpp:0410
   FN 9: IF QL43 EQU 0 GOTO LBL "IFNOT_31"             ; includes/drill.hpp:0410
   QL60 = 1                                            ; includes/drill.hpp:0412
   LBL "IFNOT_31"                                      ; includes/drill.hpp:0413
  LBL "ENDIF_27"                                       ; includes/drill.hpp:0414
 QL59=QL54                                             ; includes/drill.hpp:0418
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_32"                 ; includes/drill.hpp:0418
  LBL "FOR_32"                                         ; includes/drill.hpp:0418
  LBL "FORCMP_32"                                      ; includes/drill.hpp:0418
  FN 9: IF QL32 EQU 0 GOTO LBL "FORNOT_32"             ; includes/drill.hpp:0418
  QL59 = QL59 + QL32                                   ; includes/drill.hpp:0420
   FN 9: IF QL1 EQU 0 GOTO LBL "IFNOT_33"              ; includes/drill.hpp:0421
   FN 11: IF QL1 GT 0 GOTO LBL "IFNOT_33"              ; includes/drill.hpp:0421
    FN 9: IF QL59 EQU QL58 GOTO LBL "FORNOT_32"        ; includes/drill.hpp:0423
    FN 12: IF QL59 LT QL58 GOTO LBL "FORNOT_32"        ; includes/drill.hpp:0423
   FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_33"                ; includes/drill.hpp:0424
   LBL "IFNOT_33"                                      ; includes/drill.hpp:0424
    FN 9: IF QL59 EQU QL58 GOTO LBL "FORNOT_32"        ; includes/drill.hpp:0427
    FN 11: IF QL59 GT QL58 GOTO LBL "FORNOT_32"        ; includes/drill.hpp:0427
   LBL "ENDIF_33"                                      ; includes/drill.hpp:0428
  Z+QL59 F QL18                                        ; includes/drill.hpp:0429
  IZ-QL33 F QL19                                       ; includes/drill.hpp:0430
  FN 9: IF 0 EQU 0 GOTO LBL "FOR_32"                   ; includes/drill.hpp:0431
  LBL "FORNOT_32"                                      ; includes/drill.hpp:0431
  FN 10: IF QL60 NE 1 GOTO LBL "IFNOT_36"              ; includes/drill.hpp:0436
  Z+QL43 F QL18                                        ; includes/drill.hpp:0438
   FN 9: IF QL28 EQU 0 GOTO LBL "IFNOT_37"             ; includes/drill.hpp:0193
   FN 12: IF QL28 LT 0 GOTO LBL "IFNOT_37"             ; includes/drill.hpp:0193
   CYCL DEF 9.0 VERWEILZEIT
   CYCL DEF 9.1 V.ZEIT QL28
   LBL "IFNOT_37"                                      ; includes/drill.hpp:0197
  LBL "e_241$deepdrill.dwell_time1"                    ; includes/drill.hpp:0038
  QL18 = ( QL18 * QL44 ) /100                          ; includes/drill.hpp:0440
  QL60 = 2                                             ; includes/drill.hpp:0441
   FN 9: IF QL43 EQU QL58 GOTO LBL "IFNOT_38"          ; includes/drill.hpp:0442
   Z+QL58 F QL18                                       ; includes/drill.hpp:0444
    FN 10: IF QL58 NE QL17 GOTO LBL "IFNOT_39"         ; includes/drill.hpp:0445
     FN 9: IF QL28 EQU 0 GOTO LBL "IFNOT_40"           ; includes/drill.hpp:0193
     FN 12: IF QL28 LT 0 GOTO LBL "IFNOT_40"           ; includes/drill.hpp:0193
     CYCL DEF 9.0 VERWEILZEIT
     CYCL DEF 9.1 V.ZEIT QL28
     LBL "IFNOT_40"                                    ; includes/drill.hpp:0197
    LBL "e_241$deepdrill.dwell_time2"                  ; includes/drill.hpp:0038
    LBL "IFNOT_39"                                     ; includes/drill.hpp:0448
   LBL "IFNOT_38"                                      ; includes/drill.hpp:0449
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_36"                 ; includes/drill.hpp:0450
  LBL "IFNOT_36"                                       ; includes/drill.hpp:0450
  Z+QL58 F QL18                                        ; includes/drill.hpp:0453
   FN 10: IF QL17 NE QL58 GOTO LBL "IFNOT_41"          ; includes/drill.hpp:0454
    FN 9: IF QL28 EQU 0 GOTO LBL "IFNOT_42"            ; includes/drill.hpp:0193
    FN 12: IF QL28 LT 0 GOTO LBL "IFNOT_42"            ; includes/drill.hpp:0193
    CYCL DEF 9.0 VERWEILZEIT
    CYCL DEF 9.1 V.ZEIT QL28
    LBL "IFNOT_42"                                     ; includes/drill.hpp:0197
   LBL "e_241$deepdrill.dwell_time3"                   ; includes/drill.hpp:0038
   LBL "IFNOT_41"                                      ; includes/drill.hpp:0457
  LBL "ENDIF_36"                                       ; includes/drill.hpp:0458
 Z+QL56 F QL19                                         ; includes/drill.hpp:0459
  FN 9: IF QL29 EQU 0 GOTO LBL "IFNOT_43"              ; includes/drill.hpp:0193
  FN 12: IF QL29 LT 0 GOTO LBL "IFNOT_43"              ; includes/drill.hpp:0193
  CYCL DEF 9.0 VERWEILZEIT
  CYCL DEF 9.1 V.ZEIT QL29
  LBL "IFNOT_43"                                       ; includes/drill.hpp:0197
 LBL "e_241$deepdrill.dwell_time4"                     ; includes/drill.hpp:0038
  FN 9: IF QL58 EQU QL17 GOTO LBL "IFNOT_44"           ; includes/drill.hpp:0465
  QL57 = QL36 + ( ( QL54 - QL14 ) / ( QL17 - QL14 ) * ( QL37 - QL36 ) )
  QL57 = QL58 - ( QL57 * QL1 )                         ; includes/drill.hpp:0468
  Z+QL57 F MAX                                         ; includes/drill.hpp:0469
  LBL "IFNOT_44"                                       ; includes/drill.hpp:0470
 QL30 = QL30 - ( ABS( QL35 ) * QL1 )                   ; includes/drill.hpp:0474
  FN 9: IF QL1 EQU 0 GOTO LBL "IFNOT_45"               ; includes/drill.hpp:0475
  FN 11: IF QL1 GT 0 GOTO LBL "IFNOT_45"               ; includes/drill.hpp:0475
   FN 9: IF QL30 EQU QL31 GOTO LBL "IFNOT_46"          ; includes/drill.hpp:0477
   FN 12: IF QL30 LT QL31 GOTO LBL "IFNOT_46"          ; includes/drill.hpp:0477
   QL30 = QL31                                         ; includes/drill.hpp:0477
   LBL "IFNOT_46"                                      ; includes/drill.hpp:0477
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_45"                 ; includes/drill.hpp:0478
  LBL "IFNOT_45"                                       ; includes/drill.hpp:0478
   FN 9: IF QL30 EQU QL31 GOTO LBL "IFNOT_47"          ; includes/drill.hpp:0481
   FN 11: IF QL30 GT QL31 GOTO LBL "IFNOT_47"          ; includes/drill.hpp:0481
   QL30 = QL31                                         ; includes/drill.hpp:0481
   LBL "IFNOT_47"                                      ; includes/drill.hpp:0481
  LBL "ENDIF_45"                                       ; includes/drill.hpp:0482
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_26"                    ; includes/drill.hpp:0483
 LBL "FORNOT_26"                                       ; includes/drill.hpp:0483
 FN 9: IF QL42 EQU 0 GOTO LBL "IFNOT_48"               ; includes/drill.hpp:0487
 FN 12: IF QL42 LT 0 GOTO LBL "IFNOT_48"               ; includes/drill.hpp:0487
 M QL42                                                ; includes/drill.hpp:0489
 LBL "IFNOT_48"                                        ; includes/drill.hpp:0490
 FN 9: IF QL27 EQU 0 GOTO LBL "IFNOT_49"               ; includes/drill.hpp:0494
  FN 9: IF QL38 EQU 0 GOTO LBL "CASE0_50"              ; includes/drill.hpp:0496
  FN 9: IF QL38 EQU 3 GOTO LBL "CASE1_50"              ; includes/drill.hpp:0496
  FN 9: IF QL38 EQU 4 GOTO LBL "CASE2_50"              ; includes/drill.hpp:0496
  FN 9: IF QL38 EQU 13 GOTO LBL "CASE3_50"             ; includes/drill.hpp:0496
  FN 9: IF QL38 EQU 24 GOTO LBL "CASE4_50"             ; includes/drill.hpp:0496
  FN 9: IF QL38 EQU 14 GOTO LBL "CASE5_50"             ; includes/drill.hpp:0496
  FN 9: IF QL38 EQU 23 GOTO LBL "CASE6_50"             ; includes/drill.hpp:0496
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_50"             ; includes/drill.hpp:0496
  LBL "CASE0_50"                                       ; includes/drill.hpp:0498
   FN 9: IF QL39 EQU 0 GOTO LBL "IFNOT_51"             ; includes/drill.hpp:0499
   FN 12: IF QL39 LT 0 GOTO LBL "IFNOT_51"             ; includes/drill.hpp:0499
   TOOL CALL S QL39                                    ; includes/drill.hpp:0501
   LBL "IFNOT_51"                                      ; includes/drill.hpp:0502
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_50"             ; includes/drill.hpp:0503
  LBL "CASE1_50"                                       ; includes/drill.hpp:0504
  LBL "CASE2_50"                                       ; includes/drill.hpp:0505
  M5                                                   ; includes/drill.hpp:0506
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_50"             ; includes/drill.hpp:0507
  LBL "CASE3_50"                                       ; includes/drill.hpp:0508
  M5                                                   ; includes/drill.hpp:0509
  LBL "CASE4_50"                                       ; includes/drill.hpp:0510
   FN 9: IF QL39 EQU 0 GOTO LBL "IFNOT_52"             ; includes/drill.hpp:0511
   FN 12: IF QL39 LT 0 GOTO LBL "IFNOT_52"             ; includes/drill.hpp:0511
   TOOL CALL S QL39                                    ; includes/drill.hpp:0513
   LBL "IFNOT_52"                                      ; includes/drill.hpp:0514
  M4                                                   ; includes/drill.hpp:0515
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_50"             ; includes/drill.hpp:0516
  LBL "CASE5_50"                                       ; includes/drill.hpp:0517
  M5                                                   ; includes/drill.hpp:0518
  LBL "CASE6_50"                                       ; includes/drill.hpp:0519
   FN 9: IF QL39 EQU 0 GOTO LBL "IFNOT_53"             ; includes/drill.hpp:0520
   FN 12: IF QL39 LT 0 GOTO LBL "IFNOT_53"             ; includes/drill.hpp:0520
   TOOL CALL S QL39                                    ; includes/drill.hpp:0522
   LBL "IFNOT_53"                                      ; includes/drill.hpp:0523
  M3                                                   ; includes/drill.hpp:0524
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_50"             ; includes/drill.hpp:0525
  LBL "SWITCHEND_50"                                   ; includes/drill.hpp:0526
 Q0 = QL14 + QL15                                      ; includes/drill.hpp:0527
 Z+Q0 R0 F QL19                                        ; includes/drill.hpp:0527
 LBL "IFNOT_49"                                        ; includes/drill.hpp:0528
 Z+QL16 R0 FMAX                                        ; includes/drill.hpp:0532
LBL 0                                                  ; includes/drill.hpp:0040
LBL "check_bit"                                        ; includes/stdlib.hh:0124
 QL61=15                                               ; includes/geo.hpp  :0850
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_54"                 ; includes/geo.hpp  :0850
 LBL "FOR_54"                                          ; includes/geo.hpp  :0850
 QL61 = QL61 + -1                                      ; includes/geo.hpp  :0850
 LBL "FORCMP_54"                                       ; includes/geo.hpp  :0850
 FN 12: IF QL61 LT 0 GOTO LBL "FORNOT_54"              ; includes/geo.hpp  :0850
 QL51 = 2 ^ QL61                                       ; includes/geo.hpp  :0852
  FN 12: IF QL49 LT QL51 GOTO LBL "IFNOT_55"           ; includes/geo.hpp  :0853
   FN 10: IF QL61 NE QL50 GOTO LBL "IFNOT_56"          ; includes/geo.hpp  :0855
   QL51 = 1                                            ; includes/geo.hpp  :0857
   LBL 0                                               ; includes/geo.hpp  :0858
   LBL "IFNOT_56"                                      ; includes/geo.hpp  :0859
  QL49 = QL49 - 2^QL61                                 ; includes/geo.hpp  :0860
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_55"                 ; includes/geo.hpp  :0861
  LBL "IFNOT_55"                                       ; includes/geo.hpp  :0861
   FN 10: IF QL61 NE QL50 GOTO LBL "IFNOT_57"          ; includes/geo.hpp  :0864
   QL51 = 0                                            ; includes/geo.hpp  :0866
   LBL 0                                               ; includes/geo.hpp  :0867
   LBL "IFNOT_57"                                      ; includes/geo.hpp  :0868
  LBL "ENDIF_55"                                       ; includes/geo.hpp  :0869
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_54"                    ; includes/geo.hpp  :0870
 LBL "FORNOT_54"                                       ; includes/geo.hpp  :0870
 QL51 = -1                                             ; includes/geo.hpp  :0871
LBL 0                                                  ; includes/stdlib.hh:0124
LBL "swap_axes"                                        ; includes/stdlib.hh:0120
 FN 17: SYSWRITE ID 212 = QL52                         ; includes/geo.hpp  :0841
LBL 0                                                  ; includes/stdlib.hh:0120
LBL "check_depth_sign"                                 ; includes/stdlib.hh:0128
 FN 9: IF QL53 EQU 0 GOTO LBL "IFNOT_58"               ; includes/geo.hpp  :0880
 FN 12: IF QL53 LT 0 GOTO LBL "IFNOT_58"               ; 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
 QL62 = CFGREAD( KEY_ QS3 TAG_ QS4 ATR_ QS5 )          ; includes/geo.hpp  :0888
  FN 10: IF QL62 NE 1 GOTO LBL "IFNOT_59"              ; includes/geo.hpp  :0890
  FN 14: ERROR= 1077                                   ; includes/geo.hpp  :0891
  LBL "IFNOT_59"                                       ; includes/geo.hpp  :0891
 LBL "IFNOT_58"                                        ; 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_60"                 ; 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_61"                ; includes/geo.hpp  :0921
  FN 18: SYSREAD QL63 = ID 20 NR 5                     ; includes/geo.hpp  :0926
   FN 9: IF QL63 EQU 0 GOTO LBL "IFNOT_62"             ; includes/geo.hpp  :0927
   FN 9: IF QL63 EQU 1 GOTO LBL "IFNOT_62"             ; includes/geo.hpp  :0927
   FN 14: ERROR= 1000                                  ; includes/geo.hpp  :0929
   LBL "IFNOT_62"                                      ; includes/geo.hpp  :0930
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_61"                 ; includes/geo.hpp  :0931
  LBL "IFNOT_61"                                       ; includes/geo.hpp  :0931
  CALL LBL "state_exec"
  Q0 = QL64                                            ; includes/geo.hpp  :0937
   FN 9: IF Q0 EQU 0 GOTO LBL "IFNOT_63"               ; includes/geo.hpp  :0937
   LBL 0                                               ; includes/geo.hpp  :0937
   LBL "IFNOT_63"                                      ; includes/geo.hpp  :0937
  FN 20: WAIT FOR SYNC                                 ; includes/geo.hpp  :0941
  QL63 = 100                                           ; includes/geo.hpp  :0942
  FN 17: SYSWRITE ID 13 NR3 =+9990                     ; includes/geo.hpp  :0943
  READ FROM PLC KEY "PLC_API_VERSION" TO QL63          ; includes/geo.hpp  :0944
  LBL 9990                                             ; includes/geo.hpp  :0945
   FN 10: IF QL63 NE 100 GOTO LBL "IFNOT_64"           ; includes/geo.hpp  :0946
   FN 18: SYSREAD QL63 = ID 2000 NR 10 IDX 4000        ; includes/geo.hpp  :0948
    FN 10: IF QL63 NE 1 GOTO LBL "IFNOT_65"            ; includes/geo.hpp  :0949
    FN 14: ERROR= 1000                                 ; includes/geo.hpp  :0951
    LBL "IFNOT_65"                                     ; includes/geo.hpp  :0952
   FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_64"                ; includes/geo.hpp  :0953
   LBL "IFNOT_64"                                      ; 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
   QL63=0                                              ; includes/geo.hpp  :0973
   FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_66"               ; includes/geo.hpp  :0973
    LBL "FOR_66"                                       ; includes/geo.hpp  :0973
    QL63 = QL63 + 1                                    ; includes/geo.hpp  :0973
    LBL "FORCMP_66"                                    ; 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 QL63 )
    Q0 = STRCOMP( SRC_ QS2 SEA_ QS10 )                 ; includes/geo.hpp  :0977
     FN 10: IF Q0 NE 0 GOTO LBL "IFNOT_67"             ; includes/geo.hpp  :0977
     QS2 = "ApiSpin[" || TOCHAR( DAT+QL63 DECIMALS 0 ) || "].NN_SpiMotionRequest"
     READ FROM PLC KEY QS2 TO QL63                     ; includes/geo.hpp  :0980
      FN 10: IF QL63 NE 0 GOTO LBL "IFNOT_68"          ; includes/geo.hpp  :0981
      FN 14: ERROR= 1000                               ; includes/geo.hpp  :0983
      LBL "IFNOT_68"                                   ; includes/geo.hpp  :0984
     FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_66"             ; includes/geo.hpp  :0985
     LBL "IFNOT_67"                                    ; includes/geo.hpp  :0986
    FN 9: IF 0 EQU 0 GOTO LBL "FOR_66"                 ; includes/geo.hpp  :0987
    LBL "FORNOT_66"                                    ; includes/geo.hpp  :0987
   LBL 9991                                            ; includes/geo.hpp  :0988
   LBL "ENDIF_64"                                      ; includes/geo.hpp  :0989
  LBL "ENDIF_61"                                       ; includes/geo.hpp  :0990
 LBL "IFNOT_60"                                        ; includes/geo.hpp  :0991
LBL 0                                                  ; includes/stdlib.hh:0133
LBL "state_exec"                                       ; includes/stdlib.hh:0076
 FN 18: SYSREAD QL64 = ID 992 NR 11                    ; includes/geo.hpp  :0583
 FN 10: IF QL64 NE 1 GOTO LBL "IFNOT_69"               ; includes/geo.hpp  :0584
 QL64 = 3                                              ; includes/geo.hpp  :0586
 LBL 0                                                 ; includes/geo.hpp  :0587
 LBL "IFNOT_69"                                        ; includes/geo.hpp  :0588
 FN 18: SYSREAD QL64 = ID 992 NR 16                    ; includes/geo.hpp  :0590
 FN 10: IF QL64 NE 0 GOTO LBL "IFNOT_70"               ; includes/geo.hpp  :0591
 QL64 = 1                                              ; includes/geo.hpp  :0593
 LBL 0                                                 ; includes/geo.hpp  :0594
 LBL "IFNOT_70"                                        ; includes/geo.hpp  :0595
 FN 18: SYSREAD QL64 = ID 992 NR 10                    ; includes/geo.hpp  :0597
 FN 10: IF QL64 NE 1 GOTO LBL "IFNOT_71"               ; includes/geo.hpp  :0598
 QL64 = 2                                              ; includes/geo.hpp  :0600
 LBL 0                                                 ; includes/geo.hpp  :0601
 LBL "IFNOT_71"                                        ; includes/geo.hpp  :0602
 QL64 = 0                                              ; includes/geo.hpp  :0603
 LBL 0                                                 ; includes/geo.hpp  :0604
LBL 0                                                  ; includes/stdlib.hh:0076
LBL "EXIT"                                             ;                   :-001
END PGM MM
