BEGIN PGM 256_ap.h MM ; h++ 2 13 8 2015_07_07
 QL8 = SGN( Q201 )                                     ; src/256.hpp       :0152
 QL6 = Q203 + Q201                                     ; src/256.hpp       :0153
 CALL LBL "256_ap$RecStud.PRINT"
 CALL LBL "256_ap$RecStud.MILL"
 QL38 = Q351                                           ; src/256.hpp       :0158
 QL39 = Q203                                           ; src/256.hpp       :0158
 QL40 = Q200                                           ; src/256.hpp       :0158
 QL41 = Q204                                           ; src/256.hpp       :0158
 QL42 = Q370                                           ; src/256.hpp       :0158
 QL43 = Q201                                           ; src/256.hpp       :0158
 CALL LBL "256_ap$RecStud.init"
 QL44 = Q207                                           ; src/256.hpp       :0159
 QL45 = Q207                                           ; src/256.hpp       :0159
 QL46 = Q206                                           ; src/256.hpp       :0159
 QL47 = -57239891                                      ; src/256.hpp       :0159
 CALL LBL "256_ap$RecStud.set_feed"
 CALL LBL "256_ap$RecStud.get_ToolLCut"
 QL4 = QL48                                            ; src/256.hpp       :0163
 QL2 = ATAN( Q219 / Q218 )                             ; src/256.hpp       :0168
 QL3 = SQRT( SQ(Q218 / 2) + SQ(Q219 / 2) )             ; src/256.hpp       :0169
 CALL LBL "read_wcs"
 QL0 = QL49                                            ; src/256.hpp       :0170
 QL1 = QL50                                            ; src/256.hpp       :0170
 FN 9: IF Q367 EQU 0 GOTO LBL "CASE0_1"                ; src/256.hpp       :0171
 FN 9: IF Q367 EQU 1 GOTO LBL "CASE1_1"                ; src/256.hpp       :0171
 FN 9: IF Q367 EQU 2 GOTO LBL "CASE2_1"                ; src/256.hpp       :0171
 FN 9: IF Q367 EQU 3 GOTO LBL "CASE3_1"                ; src/256.hpp       :0171
 FN 9: IF Q367 EQU 4 GOTO LBL "CASE4_1"                ; src/256.hpp       :0171
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_1"               ; src/256.hpp       :0171
 LBL "CASE0_1"                                         ; src/256.hpp       :0173
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_1"               ; src/256.hpp       :0174
 LBL "CASE1_1"                                         ; src/256.hpp       :0175
 QL0 = QL0 + ( Q218 / 2 )                              ; src/256.hpp       :0176
 QL1 = QL1 + ( Q219 / 2 )                              ; src/256.hpp       :0177
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_1"               ; src/256.hpp       :0178
 LBL "CASE2_1"                                         ; src/256.hpp       :0179
 QL0 = QL0 - ( Q218 / 2 )                              ; src/256.hpp       :0180
 QL1 = QL1 + ( Q219 / 2 )                              ; src/256.hpp       :0181
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_1"               ; src/256.hpp       :0182
 LBL "CASE3_1"                                         ; src/256.hpp       :0183
 QL0 = QL0 - ( Q218 / 2 )                              ; src/256.hpp       :0184
 QL1 = QL1 - ( Q219 / 2 )                              ; src/256.hpp       :0185
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_1"               ; src/256.hpp       :0186
 LBL "CASE4_1"                                         ; src/256.hpp       :0187
 QL0 = QL0 + ( Q218 / 2 )                              ; src/256.hpp       :0188
 QL1 = QL1 - ( Q219 / 2 )                              ; src/256.hpp       :0189
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_1"               ; src/256.hpp       :0190
 LBL "SWITCHDEF_1"                                     ; src/256.hpp       :0191
 FN 14: ERROR= 1011                                    ; src/256.hpp       :0192
 LBL "SWITCHEND_1"                                     ; src/256.hpp       :0193
 TRANS DATUM AXIS IX+QL0 IY+QL1                        ; src/256.hpp       :0194
 FN 9: IF Q215 EQU 0 GOTO LBL "IF_2"                   ; src/256.hpp       :0198
 FN 9: IF Q215 EQU 1 GOTO LBL "IF_2"                   ; src/256.hpp       :0198
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_2"                   ; src/256.hpp       :0198
 LBL "IF_2"                                            ; src/256.hpp       :0198
 QL6 = Q203 + Q201 - ( QL8 * Q369 )                    ; src/256.hpp       :0200
  FN 9: IF Q202 EQU 0 GOTO LBL "IFNOT_3"               ; src/256.hpp       :0201
  QL7 = ABS( Q202 )                                    ; src/256.hpp       :0203
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_3"                  ; src/256.hpp       :0204
  LBL "IFNOT_3"                                        ; src/256.hpp       :0204
  FN 14: ERROR= 1090                                   ; src/256.hpp       :0207
  LBL "ENDIF_3"                                        ; src/256.hpp       :0208
  FN 9: IF QL7 EQU QL4 GOTO LBL "IFNOT_4"              ; src/256.hpp       :0209
  FN 12: IF QL7 LT QL4 GOTO LBL "IFNOT_4"              ; src/256.hpp       :0209
  FN 9: IF QL4 EQU 0 GOTO LBL "IFNOT_4"                ; src/256.hpp       :0209
  FN 12: IF QL4 LT 0 GOTO LBL "IFNOT_4"                ; src/256.hpp       :0209
  QL7 = QL4                                            ; src/256.hpp       :0211
  LBL "IFNOT_4"                                        ; src/256.hpp       :0212
 QL7 = QL7 * QL8                                       ; src/256.hpp       :0213
 QL5=Q203+QL7                                          ; src/256.hpp       :0214
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_5"                  ; src/256.hpp       :0214
  LBL "FOR_5"                                          ; src/256.hpp       :0214
  QL5=QL5+QL7                                          ; src/256.hpp       :0214
  LBL "FORCMP_5"                                       ; src/256.hpp       :0214
   FN 10: IF QL8 NE -1 GOTO LBL "CTRLCMD0_6"           ; src/256.hpp       :0216
   FN 11: IF QL5 GT QL6 GOTO LBL "CTRLCMD0_6"          ; src/256.hpp       :0216
   FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_5"                ; src/256.hpp       :0216
   LBL "CTRLCMD0_6"                                    ; src/256.hpp       :0216
   FN 10: IF QL8 NE +1 GOTO LBL "CTRLCMD1_7"           ; src/256.hpp       :0217
   FN 12: IF QL5 LT QL6 GOTO LBL "CTRLCMD1_7"          ; src/256.hpp       :0217
   FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_5"                ; src/256.hpp       :0217
   LBL "CTRLCMD1_7"                                    ; src/256.hpp       :0217
  Q0 = Q218+2*Q368                                     ; src/256.hpp       :0218
  Q1 = Q219+2*Q368                                     ; src/256.hpp       :0218
  QL52 = QL5                                           ; src/256.hpp       :0218
  QL53 = Q424                                          ; src/256.hpp       :0218
  QL54 = Q425                                          ; src/256.hpp       :0218
  QL55 = Q0                                            ; src/256.hpp       :0218
  QL56 = Q1                                            ; src/256.hpp       :0218
  CALL LBL "256_ap$RecStud.rec_stud_ap"
  Q0 = QL5-QL36*QL8                                    ; src/256.hpp       :0219
  Z+Q0 R0 FMAX                                         ; src/256.hpp       :0219
  FN 9: IF 0 EQU 0 GOTO LBL "FOR_5"                    ; src/256.hpp       :0220
  LBL "FORNOT_5"                                       ; src/256.hpp       :0220
 Q0 = Q218+2*Q368                                      ; src/256.hpp       :0224
 Q1 = Q219+2*Q368                                      ; src/256.hpp       :0224
 QL52 = QL6                                            ; src/256.hpp       :0224
 QL53 = Q424                                           ; src/256.hpp       :0224
 QL54 = Q425                                           ; src/256.hpp       :0224
 QL55 = Q0                                             ; src/256.hpp       :0224
 QL56 = Q1                                             ; src/256.hpp       :0224
 CALL LBL "256_ap$RecStud.rec_stud_ap"
 Q0 = QL6-QL36*QL8                                     ; src/256.hpp       :0225
 Z+Q0 R0 FMAX                                          ; src/256.hpp       :0225
 LBL "IFNOT_2"                                         ; src/256.hpp       :0226
 FN 9: IF Q215 EQU 0 GOTO LBL "IF_8"                   ; src/256.hpp       :0230
 FN 9: IF Q215 EQU 2 GOTO LBL "IF_8"                   ; src/256.hpp       :0230
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_8"                   ; src/256.hpp       :0230
 LBL "IF_8"                                            ; src/256.hpp       :0230
 QL44 = Q385                                           ; src/256.hpp       :0232
 QL45 = Q385                                           ; src/256.hpp       :0232
 QL46 = Q206                                           ; src/256.hpp       :0232
 QL47 = -57239891                                      ; src/256.hpp       :0232
 CALL LBL "256_ap$RecStud.set_feed"
  FN 9: IF Q338 EQU 0 GOTO LBL "IFNOT_9"               ; src/256.hpp       :0233
  QL7 = ABS( Q338 )                                    ; src/256.hpp       :0235
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_9"                  ; src/256.hpp       :0236
  LBL "IFNOT_9"                                        ; src/256.hpp       :0236
  QL7 = ABS( Q201 )                                    ; src/256.hpp       :0239
  LBL "ENDIF_9"                                        ; src/256.hpp       :0240
  FN 9: IF QL7 EQU QL4 GOTO LBL "IFNOT_10"             ; src/256.hpp       :0241
  FN 12: IF QL7 LT QL4 GOTO LBL "IFNOT_10"             ; src/256.hpp       :0241
  FN 9: IF QL4 EQU 0 GOTO LBL "IFNOT_10"               ; src/256.hpp       :0241
  FN 12: IF QL4 LT 0 GOTO LBL "IFNOT_10"               ; src/256.hpp       :0241
  QL7 = QL4                                            ; src/256.hpp       :0243
  LBL "IFNOT_10"                                       ; src/256.hpp       :0244
 Q0 = ABS( Q201 ) - Q369                               ; src/256.hpp       :0245
  FN 9: IF QL7 EQU Q0 GOTO LBL "IFNOT_11"              ; src/256.hpp       :0245
  FN 12: IF QL7 LT Q0 GOTO LBL "IFNOT_11"              ; src/256.hpp       :0245
  QL7 = ABS( Q201 ) - Q369                             ; src/256.hpp       :0247
  LBL "IFNOT_11"                                       ; src/256.hpp       :0248
 QL7 = QL7 * QL8                                       ; src/256.hpp       :0249
  FN 9: IF Q368 EQU 0 GOTO LBL "IFNOT_12"              ; src/256.hpp       :0253
  FN 12: IF Q368 LT 0 GOTO LBL "IFNOT_12"              ; src/256.hpp       :0253
  QL6 = Q203 + Q201 - ( QL8 * Q369 )                   ; src/256.hpp       :0255
  QL5=Q203+QL7                                         ; src/256.hpp       :0256
  FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_13"                ; src/256.hpp       :0256
   LBL "FOR_13"                                        ; src/256.hpp       :0256
   QL5=QL5+QL7                                         ; src/256.hpp       :0256
   LBL "FORCMP_13"                                     ; src/256.hpp       :0256
    FN 10: IF QL8 NE -1 GOTO LBL "CTRLCMD0_14"         ; src/256.hpp       :0258
    FN 11: IF QL5 GT QL6 GOTO LBL "CTRLCMD0_14"        ; src/256.hpp       :0258
    FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_13"              ; src/256.hpp       :0258
    LBL "CTRLCMD0_14"                                  ; src/256.hpp       :0258
    FN 10: IF QL8 NE +1 GOTO LBL "CTRLCMD1_15"         ; src/256.hpp       :0259
    FN 12: IF QL5 LT QL6 GOTO LBL "CTRLCMD1_15"        ; src/256.hpp       :0259
    FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_13"              ; src/256.hpp       :0259
    LBL "CTRLCMD1_15"                                  ; src/256.hpp       :0259
   Q0 = Q218+2*Q368                                    ; src/256.hpp       :0260
   Q1 = Q219+2*Q368                                    ; src/256.hpp       :0260
   QL52 = QL5                                          ; src/256.hpp       :0260
   QL53 = Q0                                           ; src/256.hpp       :0260
   QL54 = Q1                                           ; src/256.hpp       :0260
   QL55 = Q218                                         ; src/256.hpp       :0260
   QL56 = Q219                                         ; src/256.hpp       :0260
   CALL LBL "256_ap$RecStud.rec_stud_ap"
   Q0 = QL5-QL36*QL8                                   ; src/256.hpp       :0261
   Z+Q0 R0 FMAX                                        ; src/256.hpp       :0261
   FN 9: IF 0 EQU 0 GOTO LBL "FOR_13"                  ; src/256.hpp       :0262
   LBL "FORNOT_13"                                     ; src/256.hpp       :0262
  Q0 = Q218+2*Q368                                     ; src/256.hpp       :0266
  Q1 = Q219+2*Q368                                     ; src/256.hpp       :0266
  QL52 = QL6                                           ; src/256.hpp       :0266
  QL53 = Q0                                            ; src/256.hpp       :0266
  QL54 = Q1                                            ; src/256.hpp       :0266
  QL55 = Q218                                          ; src/256.hpp       :0266
  QL56 = Q219                                          ; src/256.hpp       :0266
  CALL LBL "256_ap$RecStud.rec_stud_ap"
  Q0 = QL6-QL36*QL8                                    ; src/256.hpp       :0267
  Z+Q0 R0 FMAX                                         ; src/256.hpp       :0267
  LBL "IFNOT_12"                                       ; src/256.hpp       :0268
  FN 9: IF Q369 EQU 0 GOTO LBL "IFNOT_16"              ; src/256.hpp       :0272
  FN 12: IF Q369 LT 0 GOTO LBL "IFNOT_16"              ; src/256.hpp       :0272
  QL6 = Q203 + Q201                                    ; src/256.hpp       :0274
  QL52 = QL6                                           ; src/256.hpp       :0275
  QL53 = Q424                                          ; src/256.hpp       :0275
  QL54 = Q425                                          ; src/256.hpp       :0275
  QL55 = Q218                                          ; src/256.hpp       :0275
  QL56 = Q219                                          ; src/256.hpp       :0275
  CALL LBL "256_ap$RecStud.rec_stud_ap"
  Q0 = QL6-QL36*QL8                                    ; src/256.hpp       :0276
  Z+Q0 R0 FMAX                                         ; src/256.hpp       :0276
  LBL "IFNOT_16"                                       ; src/256.hpp       :0277
 LBL "IFNOT_8"                                         ; src/256.hpp       :0278
 Z+QL37 R0 FMAX                                        ; src/256.hpp       :0282
 TRANS DATUM AXIS IX-QL0 IY-QL1                        ; src/256.hpp       :0287
LBL "e_256_ap0"                                        ; src/256.hpp       :0135
FN 9: IF 0 EQU 0 GOTO LBL "EXIT"                       ;                   :-001
LBL "256_ap$RecStud.PRINT"                             ; src/print/print.hpp:0059
 FN 18: SYSREAD QL9 = ID 992 NR 16                     ; src/print/print.hpp:0088
 FN 10: IF QL9 NE 1 GOTO LBL "IFNOT_17"                ; src/print/print.hpp:0089
 QS3 = ""                                              ; src/print/print.hpp:0093
 QS4 = "CfgDisplayLanguage"                            ; src/print/print.hpp:0094
 QS5 = "ncLanguage"                                    ; src/print/print.hpp:0095
 QL57 = CFGREAD( KEY_ QS3 TAG_ QS4 ATR_ QS5 IDX0 )     ; src/print/print.hpp:0096
 QS11 = "%SYS%\JHCYC\NC"                               ; src/print/print.hpp:0103
  FN 9: IF QL57 EQU 1 GOTO LBL "CASE0_18"              ; src/print/print.hpp:0105
  FN 9: IF QL57 EQU 2 GOTO LBL "CASE1_18"              ; src/print/print.hpp:0105
  FN 9: IF QL57 EQU 3 GOTO LBL "CASE2_18"              ; src/print/print.hpp:0105
  FN 9: IF QL57 EQU 4 GOTO LBL "CASE3_18"              ; src/print/print.hpp:0105
  FN 9: IF QL57 EQU 5 GOTO LBL "CASE4_18"              ; src/print/print.hpp:0105
  FN 9: IF QL57 EQU 6 GOTO LBL "CASE5_18"              ; src/print/print.hpp:0105
  FN 9: IF QL57 EQU 7 GOTO LBL "CASE6_18"              ; src/print/print.hpp:0105
  FN 9: IF QL57 EQU 8 GOTO LBL "CASE7_18"              ; src/print/print.hpp:0105
  FN 9: IF QL57 EQU 9 GOTO LBL "CASE8_18"              ; src/print/print.hpp:0105
  FN 9: IF QL57 EQU 10 GOTO LBL "CASE9_18"             ; src/print/print.hpp:0105
  FN 9: IF QL57 EQU 11 GOTO LBL "CASE10_18"            ; src/print/print.hpp:0105
  FN 9: IF QL57 EQU 12 GOTO LBL "CASE11_18"            ; src/print/print.hpp:0105
  FN 9: IF QL57 EQU 17 GOTO LBL "CASE12_18"            ; src/print/print.hpp:0105
  FN 9: IF QL57 EQU 21 GOTO LBL "CASE13_18"            ; src/print/print.hpp:0105
  FN 9: IF QL57 EQU 22 GOTO LBL "CASE14_18"            ; src/print/print.hpp:0105
  FN 9: IF QL57 EQU 23 GOTO LBL "CASE15_18"            ; src/print/print.hpp:0105
  FN 9: IF QL57 EQU 24 GOTO LBL "CASE16_18"            ; src/print/print.hpp:0105
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_18"             ; src/print/print.hpp:0105
  LBL "CASE0_18"                                       ; src/print/print.hpp:0106
  QS11 = QS11 || "\DE.TAB"                             ; src/print/print.hpp:0107
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_18"             ; src/print/print.hpp:0108
  LBL "CASE1_18"                                       ; src/print/print.hpp:0109
  QS11 = QS11 || "\CS.TAB"                             ; src/print/print.hpp:0110
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_18"             ; src/print/print.hpp:0111
  LBL "CASE2_18"                                       ; src/print/print.hpp:0112
  QS11 = QS11 || "\FR.TAB"                             ; src/print/print.hpp:0113
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_18"             ; src/print/print.hpp:0114
  LBL "CASE3_18"                                       ; src/print/print.hpp:0115
  QS11 = QS11 || "\IT.TAB"                             ; src/print/print.hpp:0116
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_18"             ; src/print/print.hpp:0117
  LBL "CASE4_18"                                       ; src/print/print.hpp:0118
  QS11 = QS11 || "\ES.TAB"                             ; src/print/print.hpp:0119
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_18"             ; src/print/print.hpp:0120
  LBL "CASE5_18"                                       ; src/print/print.hpp:0121
  QS11 = QS11 || "\PT.TAB"                             ; src/print/print.hpp:0122
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_18"             ; src/print/print.hpp:0123
  LBL "CASE6_18"                                       ; src/print/print.hpp:0124
  QS11 = QS11 || "\SV.TAB"                             ; src/print/print.hpp:0125
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_18"             ; src/print/print.hpp:0126
  LBL "CASE7_18"                                       ; src/print/print.hpp:0127
  QS11 = QS11 || "\DA.TAB"                             ; src/print/print.hpp:0128
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_18"             ; src/print/print.hpp:0129
  LBL "CASE8_18"                                       ; src/print/print.hpp:0130
  QS11 = QS11 || "\FI.TAB"                             ; src/print/print.hpp:0131
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_18"             ; src/print/print.hpp:0132
  LBL "CASE9_18"                                       ; src/print/print.hpp:0133
  QS11 = QS11 || "\NL.TAB"                             ; src/print/print.hpp:0134
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_18"             ; src/print/print.hpp:0135
  LBL "CASE10_18"                                      ; src/print/print.hpp:0136
  QS11 = QS11 || "\PL.TAB"                             ; src/print/print.hpp:0137
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_18"             ; src/print/print.hpp:0138
  LBL "CASE11_18"                                      ; src/print/print.hpp:0139
  QS11 = QS11 || "\HU.TAB"                             ; src/print/print.hpp:0140
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_18"             ; src/print/print.hpp:0141
  LBL "CASE12_18"                                      ; src/print/print.hpp:0142
  QS11 = QS11 || "\SL.TAB"                             ; src/print/print.hpp:0143
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_18"             ; src/print/print.hpp:0144
  LBL "CASE13_18"                                      ; src/print/print.hpp:0145
  QS11 = QS11 || "\NB.TAB"                             ; src/print/print.hpp:0146
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_18"             ; src/print/print.hpp:0147
  LBL "CASE14_18"                                      ; src/print/print.hpp:0148
  QS11 = QS11 || "\RO.TAB"                             ; src/print/print.hpp:0149
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_18"             ; src/print/print.hpp:0150
  LBL "CASE15_18"                                      ; src/print/print.hpp:0151
  QS11 = QS11 || "\SK.TAB"                             ; src/print/print.hpp:0152
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_18"             ; src/print/print.hpp:0153
  LBL "CASE16_18"                                      ; src/print/print.hpp:0154
  QS11 = QS11 || "\TR.TAB"                             ; src/print/print.hpp:0155
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_18"             ; src/print/print.hpp:0156
  LBL "SWITCHDEF_18"                                   ; src/print/print.hpp:0157
  QS11 = QS11 || "\EN.TAB"                             ; src/print/print.hpp:0158
  LBL "SWITCHEND_18"                                   ; src/print/print.hpp:0159
 LBL "IFNOT_17"                                        ; src/print/print.hpp:0160
LBL 0                                                  ; src/print/print.hpp:0059
LBL "256_ap$RecStud.MILL"                              ; includes/mill.hpp :0049
 QS3 = "CH_NC"                                         ; includes/mill.hpp :0071
 QS4 = "CfgGeoCycle"                                   ; includes/mill.hpp :0072
 QS5 = "suppressPlungeErr"                             ; includes/mill.hpp :0073
 QS3 = CFGREAD( KEY_ QS3 TAG_ QS4 ATR_ QS5 IDX0 )      ; includes/mill.hpp :0074
 QS0 = "on"                                            ; includes/mill.hpp :0075
 QL11 = STRCOMP( SRC_ QS3 SEA_ QS0 )                   ; includes/mill.hpp :0075
 FN 9: IF QL11 EQU 0 GOTO LBL "IFNOT_19"               ; includes/mill.hpp :0076
 QL11 = 1                                              ; includes/mill.hpp :0076
 LBL "IFNOT_19"                                        ; includes/mill.hpp :0076
 FN 18: SYSREAD QL12 = ID 20 NR 3                      ; includes/mill.hpp :0080
 FN 18: SYSREAD QL35 = ID 200 NR 3 IDX 2               ; includes/mill.hpp :0084
 FN 18: SYSREAD QL18 = ID 210 NR 3                     ; includes/mill.hpp :0089
 FN 9: IF QL12 EQU 0 GOTO LBL "CASE0_20"               ; includes/mill.hpp :0090
 FN 9: IF QL12 EQU 6 GOTO LBL "CASE1_20"               ; includes/mill.hpp :0090
 FN 9: IF QL12 EQU 1 GOTO LBL "CASE2_20"               ; includes/mill.hpp :0090
 FN 9: IF QL12 EQU 7 GOTO LBL "CASE3_20"               ; includes/mill.hpp :0090
 FN 9: IF QL12 EQU 2 GOTO LBL "CASE4_20"               ; includes/mill.hpp :0090
 FN 9: IF QL12 EQU 8 GOTO LBL "CASE5_20"               ; includes/mill.hpp :0090
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_20"              ; includes/mill.hpp :0090
 LBL "CASE0_20"                                        ; includes/mill.hpp :0091
 LBL "CASE1_20"                                        ; includes/mill.hpp :0092
 FN 18: SYSREAD QL15 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0093
 FN 18: SYSREAD QL16 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0094
 FN 18: SYSREAD QL17 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0095
 QL59 = QL18                                           ; includes/mill.hpp :0096
 QL60 = 1                                              ; includes/mill.hpp :0096
 CALL LBL "check_bit"
 QL19 = QL61                                           ; includes/mill.hpp :0096
 QL59 = QL18                                           ; includes/mill.hpp :0097
 QL60 = 2                                              ; includes/mill.hpp :0097
 CALL LBL "check_bit"
 QL20 = QL61                                           ; includes/mill.hpp :0097
 QL59 = QL18                                           ; includes/mill.hpp :0098
 QL60 = 0                                              ; includes/mill.hpp :0098
 CALL LBL "check_bit"
 QL21 = QL61                                           ; includes/mill.hpp :0098
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_20"              ; includes/mill.hpp :0099
 LBL "CASE2_20"                                        ; includes/mill.hpp :0100
 LBL "CASE3_20"                                        ; includes/mill.hpp :0101
 FN 18: SYSREAD QL15 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0102
 FN 18: SYSREAD QL16 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0103
 FN 18: SYSREAD QL17 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0104
 QL59 = QL18                                           ; includes/mill.hpp :0105
 QL60 = 2                                              ; includes/mill.hpp :0105
 CALL LBL "check_bit"
 QL19 = QL61                                           ; includes/mill.hpp :0105
 QL59 = QL18                                           ; includes/mill.hpp :0106
 QL60 = 0                                              ; includes/mill.hpp :0106
 CALL LBL "check_bit"
 QL20 = QL61                                           ; includes/mill.hpp :0106
 QL59 = QL18                                           ; includes/mill.hpp :0107
 QL60 = 1                                              ; includes/mill.hpp :0107
 CALL LBL "check_bit"
 QL21 = QL61                                           ; includes/mill.hpp :0107
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_20"              ; includes/mill.hpp :0108
 LBL "CASE4_20"                                        ; includes/mill.hpp :0109
 LBL "CASE5_20"                                        ; includes/mill.hpp :0110
 FN 18: SYSREAD QL15 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0111
 FN 18: SYSREAD QL16 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0112
 FN 18: SYSREAD QL17 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0113
 QL59 = QL18                                           ; includes/mill.hpp :0114
 QL60 = 0                                              ; includes/mill.hpp :0114
 CALL LBL "check_bit"
 QL19 = QL61                                           ; includes/mill.hpp :0114
 QL59 = QL18                                           ; includes/mill.hpp :0115
 QL60 = 1                                              ; includes/mill.hpp :0115
 CALL LBL "check_bit"
 QL20 = QL61                                           ; includes/mill.hpp :0115
 QL59 = QL18                                           ; includes/mill.hpp :0116
 QL60 = 2                                              ; includes/mill.hpp :0116
 CALL LBL "check_bit"
 QL21 = QL61                                           ; includes/mill.hpp :0116
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_20"              ; includes/mill.hpp :0117
 LBL "SWITCHEND_20"                                    ; includes/mill.hpp :0118
 FN 9: IF QL15 EQU QL16 GOTO LBL "IFNOT_21"            ; includes/mill.hpp :0119
 FN 14: ERROR= 1108                                    ; includes/mill.hpp :0119
 LBL "IFNOT_21"                                        ; includes/mill.hpp :0119
 QL31 = 0                                              ; includes/mill.hpp :0123
 FN 18: SYSREAD Q0 = ID 630 NR 0                       ; includes/mill.hpp :0129
 FN 10: IF Q0 NE 0 GOTO LBL "IFNOT_22"                 ; includes/mill.hpp :0129
 QL22 = 0.002                                          ; includes/mill.hpp :0130
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_22"                  ; includes/mill.hpp :0131
 LBL "IFNOT_22"                                        ; includes/mill.hpp :0131
 QL22 = 0.0002                                         ; includes/mill.hpp :0133
 LBL "ENDIF_22"                                        ; includes/mill.hpp :0134
 FN 18: SYSREAD QL10 = ID 992 NR 30                    ; includes/mill.hpp :0135
 FN 18: SYSREAD QL30 = ID 610 NR 6                     ; includes/mill.hpp :0136
 FN 18: SYSREAD QL14 = ID 950 NR 13                    ; includes/mill.hpp :0140
 FN 18: SYSREAD QL13 = ID 950 NR 14                    ; includes/mill.hpp :0141
 FN 18: SYSREAD QL32 = ID 200 NR 1 IDX 2               ; includes/mill.hpp :0142
 FN 18: SYSREAD QL33 = ID 200 NR 1 IDX 3               ; includes/mill.hpp :0143
 FN 11: IF QL32 GT 0 GOTO LBL "IFNOT_23"               ; includes/mill.hpp :0144
 FN 14: ERROR= 1002                                    ; includes/mill.hpp :0144
 LBL "IFNOT_23"                                        ; includes/mill.hpp :0144
 FN 9: IF QL32 EQU QL33 GOTO LBL "IFNOT_24"            ; includes/mill.hpp :0145
 FN 12: IF QL32 LT QL33 GOTO LBL "IFNOT_24"            ; includes/mill.hpp :0145
 QL34 = QL32                                           ; includes/mill.hpp :0146
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_24"                  ; includes/mill.hpp :0147
 LBL "IFNOT_24"                                        ; includes/mill.hpp :0147
 QL34 = QL33                                           ; includes/mill.hpp :0149
 LBL "ENDIF_24"                                        ; includes/mill.hpp :0150
 QL32 = QL32 / QL15                                    ; includes/mill.hpp :0154
 QL33 = QL33 / QL15                                    ; includes/mill.hpp :0155
 QL34 = QL34 / QL15                                    ; includes/mill.hpp :0156
 QL14 = QL14 / QL17                                    ; includes/mill.hpp :0157
 CALL LBL "check_spindle_status"
 QL62 = 3                                              ; includes/mill.hpp :0165
 CALL LBL "swap_axes"
LBL 0                                                  ; includes/mill.hpp :0049
LBL "256_ap$RecStud.init"                              ; includes/mill.hpp :0050
 FN 9: IF Q110 EQU 1 GOTO LBL "CASE0_25"               ; includes/mill.hpp :0175
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_25"              ; includes/mill.hpp :0175
 LBL "CASE0_25"                                        ; includes/mill.hpp :0177
 QL31 = +QL38                                          ; includes/mill.hpp :0178
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_25"              ; includes/mill.hpp :0179
 LBL "SWITCHDEF_25"                                    ; includes/mill.hpp :0180
 QL31 = -QL38                                          ; includes/mill.hpp :0181
 LBL "SWITCHEND_25"                                    ; includes/mill.hpp :0182
 FN 10: IF QL19 NE 1 GOTO LBL "IFNOT_26"               ; includes/mill.hpp :0183
 QL31 = -QL31                                          ; includes/mill.hpp :0185
 LBL "IFNOT_26"                                        ; includes/mill.hpp :0186
 FN 10: IF QL20 NE 1 GOTO LBL "IFNOT_27"               ; includes/mill.hpp :0187
 QL31 = -QL31                                          ; includes/mill.hpp :0189
 LBL "IFNOT_27"                                        ; includes/mill.hpp :0190
 QL28 = QL32 * QL42                                    ; includes/mill.hpp :0194
 QL63 = QL43                                           ; includes/mill.hpp :0198
 CALL LBL "check_depth_sign"
 FN 9: IF QL43 EQU 0 GOTO LBL "EXIT"                   ; includes/mill.hpp :0199
 QL29 = QL43                                           ; includes/mill.hpp :0200
 QL23 = QL39                                           ; includes/mill.hpp :0205
 QL36 = ABS( QL40 )                                    ; includes/mill.hpp :0206
 FN 9: IF QL36 EQU 0.001 GOTO LBL "IFNOT_29"           ; includes/mill.hpp :0207
 FN 11: IF QL36 GT 0.001 GOTO LBL "IFNOT_29"           ; includes/mill.hpp :0207
 QL36 = 0.001                                          ; includes/mill.hpp :0207
 LBL "IFNOT_29"                                        ; includes/mill.hpp :0207
 FN 9: IF QL41 EQU QL36 GOTO LBL "IFNOT_30"            ; includes/mill.hpp :0208
 FN 11: IF QL41 GT QL36 GOTO LBL "IFNOT_30"            ; includes/mill.hpp :0208
 QL37 = QL36                                           ; includes/mill.hpp :0210
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_30"                  ; includes/mill.hpp :0211
 LBL "IFNOT_30"                                        ; includes/mill.hpp :0211
 QL37 = QL41                                           ; includes/mill.hpp :0214
 LBL "ENDIF_30"                                        ; includes/mill.hpp :0215
 QL37 = QL23 - ( QL37 * SGN( QL29 ) )                  ; includes/mill.hpp :0216
LBL 0                                                  ; includes/mill.hpp :0050
LBL "256_ap$RecStud.set_feed"                          ; includes/mill.hpp :0051
 QL24 = QL44                                           ; includes/mill.hpp :0223
 QL25 = QL45                                           ; includes/mill.hpp :0224
 QL26 = QL46                                           ; includes/mill.hpp :0225
 FN 11: IF QL47 GT 0 GOTO LBL "IFNOT_31"               ; includes/mill.hpp :0226
  FN 9: IF QL47 EQU -57239891 GOTO LBL "IFNOT_32"      ; includes/mill.hpp :0228
  QL27 = QL24                                          ; includes/mill.hpp :0230
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_32"                 ; includes/mill.hpp :0231
  LBL "IFNOT_32"                                       ; includes/mill.hpp :0231
  FN 22: FUNCT QL44 FNR 910 PIN 59 PIN 2 PEX 27        ; includes/mill.hpp :0235
  LBL "ENDIF_32"                                       ; includes/mill.hpp :0236
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_31"                  ; includes/mill.hpp :0238
 LBL "IFNOT_31"                                        ; includes/mill.hpp :0238
 QL27 = QL47                                           ; includes/mill.hpp :0241
 LBL "ENDIF_31"                                        ; includes/mill.hpp :0242
LBL 0                                                  ; includes/mill.hpp :0051
LBL "256_ap$RecStud.get_ToolLCut"                      ; includes/mill.hpp :0054
 QL48 = QL14                                           ; includes/mill.hpp :0279
LBL 0                                                  ; includes/mill.hpp :0054
LBL "read_wcs"                                         ; includes/stdlib.hh:0081
 FN 18: SYSREAD Q0 = ID 990 NR 2 IDX 16                ; includes/geo.hpp  :0618
 FN 9: IF Q0 EQU 1 GOTO LBL "IFNOT_33"                 ; includes/geo.hpp  :0618
 FN 17: SYSWRITE ID 991 NR 100 = 1                     ; includes/geo.hpp  :0620
 LBL "IFNOT_33"                                        ; includes/geo.hpp  :0621
 FN 18: SYSREAD Q0 = ID 20 NR 3 IDX 0                  ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 0 GOTO LBL "CASE0_34"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 6 GOTO LBL "CASE1_34"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 1 GOTO LBL "CASE2_34"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 7 GOTO LBL "CASE3_34"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 2 GOTO LBL "CASE4_34"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 8 GOTO LBL "CASE5_34"                 ; includes/geo.hpp  :0627
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_34"              ; includes/geo.hpp  :0627
 LBL "CASE0_34"                                        ; includes/geo.hpp  :0629
 LBL "CASE1_34"                                        ; includes/geo.hpp  :0630
 FN 18: SYSREAD QL49 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0631
 FN 18: SYSREAD QL50 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0632
 FN 18: SYSREAD QL51 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0633
 LBL 0                                                 ; includes/geo.hpp  :0634
 LBL "CASE2_34"                                        ; includes/geo.hpp  :0635
 LBL "CASE3_34"                                        ; includes/geo.hpp  :0636
 FN 18: SYSREAD QL49 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0637
 FN 18: SYSREAD QL50 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0638
 FN 18: SYSREAD QL51 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0639
 LBL 0                                                 ; includes/geo.hpp  :0640
 LBL "CASE4_34"                                        ; includes/geo.hpp  :0641
 LBL "CASE5_34"                                        ; includes/geo.hpp  :0642
 FN 18: SYSREAD QL49 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0643
 FN 18: SYSREAD QL50 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0644
 FN 18: SYSREAD QL51 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0645
 LBL 0                                                 ; includes/geo.hpp  :0646
 LBL "SWITCHEND_34"                                    ; includes/geo.hpp  :0647
LBL 0                                                  ; includes/stdlib.hh:0081
LBL "256_ap$RecStud.rec_stud_ap"                       ; includes/mill.hpp :0059
 FN 11: IF QL55 GT QL53 GOTO LBL "IF_35"               ; includes/mill.hpp :1132
 FN 11: IF QL56 GT QL54 GOTO LBL "IF_35"               ; includes/mill.hpp :1132
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_35"                  ; includes/mill.hpp :1132
 LBL "IF_35"                                           ; includes/mill.hpp :1132
 FN 14: ERROR= 1098                                    ; includes/mill.hpp :1134
 LBL "IFNOT_35"                                        ; includes/mill.hpp :1135
 FN 12: IF QL31 LT 0 GOTO LBL "IFNOT_36"               ; includes/mill.hpp :1140
  FN 10: IF QL20 NE 1 GOTO LBL "IFNOT_37"              ; includes/mill.hpp :1142
  QL76 = QL18 - 2                                      ; includes/mill.hpp :1144
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_37"                 ; includes/mill.hpp :1145
  LBL "IFNOT_37"                                       ; includes/mill.hpp :1145
  QL76 = QL18 + 2                                      ; includes/mill.hpp :1148
  LBL "ENDIF_37"                                       ; includes/mill.hpp :1149
 FN 17: SYSWRITE ID 210 NR 3 = QL76                    ; includes/mill.hpp :1150
 LBL "IFNOT_36"                                        ; includes/mill.hpp :1151
 QL64 = QL53 / 2                                       ; includes/mill.hpp :1155
 QL65 = QL54 / 2                                       ; includes/mill.hpp :1156
 QL66 = QL55 / 2                                       ; includes/mill.hpp :1157
 QL67 = QL56 / 2                                       ; includes/mill.hpp :1158
 QL68 = QL64 - QL66                                    ; includes/mill.hpp :1162
 QL69 = QL65 - QL67                                    ; includes/mill.hpp :1163
 FN 9: IF QL68 EQU QL69 GOTO LBL "IFNOT_38"            ; includes/mill.hpp :1164
 FN 12: IF QL68 LT QL69 GOTO LBL "IFNOT_38"            ; includes/mill.hpp :1164
 QL74 = QL68 / QL28                                    ; includes/mill.hpp :1166
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_38"                  ; includes/mill.hpp :1167
 LBL "IFNOT_38"                                        ; includes/mill.hpp :1167
 QL74 = QL69 / QL28                                    ; includes/mill.hpp :1170
 LBL "ENDIF_38"                                        ; includes/mill.hpp :1171
 QL74 = INT( QL74 + 0.99 )                             ; includes/mill.hpp :0271
 FN 10: IF QL74 NE 0 GOTO LBL "IFNOT_39"               ; includes/mill.hpp :0272
 QL74 = 1                                              ; includes/mill.hpp :0272
 LBL "IFNOT_39"                                        ; includes/mill.hpp :0272
 LBL "e_256_ap$RecStud$int_infeeds1"                   ; includes/mill.hpp :0040
 FN 9: IF QL74 EQU 1 GOTO LBL "IFNOT_40"               ; includes/mill.hpp :1173
 FN 11: IF QL74 GT 1 GOTO LBL "IFNOT_40"               ; includes/mill.hpp :1173
 QL74 = 1                                              ; includes/mill.hpp :1173
 LBL "IFNOT_40"                                        ; includes/mill.hpp :1173
 QL68 = QL68 / QL74                                    ; includes/mill.hpp :1174
 QL69 = QL69 / QL74                                    ; includes/mill.hpp :1175
 QL70 = QL64 + QL36                                    ; includes/mill.hpp :1179
 QL71 = QL65                                           ; includes/mill.hpp :1180
 FN 9: IF QL32 EQU QL33 GOTO LBL "IFNOT_41"            ; includes/mill.hpp :1181
 FN 12: IF QL32 LT QL33 GOTO LBL "IFNOT_41"            ; includes/mill.hpp :1181
 QL70 = QL70 + QL32                                    ; includes/mill.hpp :1183
 QL71 = QL71 + QL32                                    ; includes/mill.hpp :1184
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_41"                  ; includes/mill.hpp :1185
 LBL "IFNOT_41"                                        ; includes/mill.hpp :1185
 QL70 = QL70 + QL33                                    ; includes/mill.hpp :1188
 QL71 = QL71 + QL33                                    ; includes/mill.hpp :1189
 LBL "ENDIF_41"                                        ; includes/mill.hpp :1190
 Q0 = QL52-QL23                                        ; includes/mill.hpp :1194
 QL77 = -QL70                                          ; includes/mill.hpp :1194
 QL78 = -QL71                                          ; includes/mill.hpp :1194
 QL79 = 0                                              ; includes/mill.hpp :1194
 QL80 = QL36                                           ; includes/mill.hpp :1194
 QL81 = QL37                                           ; includes/mill.hpp :1194
 QL82 = Q0                                             ; includes/mill.hpp :1194
 CALL LBL "prepos"
 Z+QL52 F QL26                                         ; includes/mill.hpp :1195
 QL75=1                                                ; includes/mill.hpp :1196
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_42"                 ; includes/mill.hpp :1196
 LBL "FOR_42"                                          ; includes/mill.hpp :1196
 QL75 = QL75 + 1                                       ; includes/mill.hpp :1196
 LBL "FORCMP_42"                                       ; includes/mill.hpp :1196
 FN 11: IF QL75 GT QL74 GOTO LBL "FORNOT_42"           ; includes/mill.hpp :1196
 QL72 = QL64 - (QL75 * QL68)                           ; includes/mill.hpp :1198
 QL73 = QL65 - (QL75 * QL69)                           ; includes/mill.hpp :1199
  FN 10: IF QL75 NE 1 GOTO LBL "IFNOT_43"              ; includes/mill.hpp :1200
  X-QL72 R- F QL24                                     ; includes/mill.hpp :1202
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_43"                 ; includes/mill.hpp :1203
  LBL "IFNOT_43"                                       ; includes/mill.hpp :1203
  X-QL72                                               ; includes/mill.hpp :1206
  LBL "ENDIF_43"                                       ; includes/mill.hpp :1207
 Y+QL73 R+                                             ; includes/mill.hpp :1208
 X+QL72                                                ; includes/mill.hpp :1209
 Y-QL73                                                ; includes/mill.hpp :1210
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_42"                    ; includes/mill.hpp :1211
 LBL "FORNOT_42"                                       ; includes/mill.hpp :1211
 Q0 = QL72+QL33                                        ; includes/mill.hpp :1212
 X-Q0 R0                                               ; includes/mill.hpp :1212
 Q0 = QL73+QL33                                        ; includes/mill.hpp :1213
 Y-Q0 R0                                               ; includes/mill.hpp :1213
 FN 12: IF QL31 LT 0 GOTO LBL "IFNOT_44"               ; includes/mill.hpp :1217
 FN 17: SYSWRITE ID 210 NR 3 = QL18                    ; includes/mill.hpp :1219
 LBL "IFNOT_44"                                        ; includes/mill.hpp :1220
LBL 0                                                  ; includes/mill.hpp :0059
LBL "check_bit"                                        ; includes/stdlib.hh:0124
 QL83=15                                               ; includes/geo.hpp  :0850
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_45"                 ; includes/geo.hpp  :0850
 LBL "FOR_45"                                          ; includes/geo.hpp  :0850
 QL83 = QL83 + -1                                      ; includes/geo.hpp  :0850
 LBL "FORCMP_45"                                       ; includes/geo.hpp  :0850
 FN 12: IF QL83 LT 0 GOTO LBL "FORNOT_45"              ; includes/geo.hpp  :0850
 QL61 = 2 ^ QL83                                       ; includes/geo.hpp  :0852
  FN 12: IF QL59 LT QL61 GOTO LBL "IFNOT_46"           ; includes/geo.hpp  :0853
   FN 10: IF QL83 NE QL60 GOTO LBL "IFNOT_47"          ; includes/geo.hpp  :0855
   QL61 = 1                                            ; includes/geo.hpp  :0857
   LBL 0                                               ; includes/geo.hpp  :0858
   LBL "IFNOT_47"                                      ; includes/geo.hpp  :0859
  QL59 = QL59 - 2^QL83                                 ; includes/geo.hpp  :0860
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_46"                 ; includes/geo.hpp  :0861
  LBL "IFNOT_46"                                       ; includes/geo.hpp  :0861
   FN 10: IF QL83 NE QL60 GOTO LBL "IFNOT_48"          ; includes/geo.hpp  :0864
   QL61 = 0                                            ; includes/geo.hpp  :0866
   LBL 0                                               ; includes/geo.hpp  :0867
   LBL "IFNOT_48"                                      ; includes/geo.hpp  :0868
  LBL "ENDIF_46"                                       ; includes/geo.hpp  :0869
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_45"                    ; includes/geo.hpp  :0870
 LBL "FORNOT_45"                                       ; includes/geo.hpp  :0870
 QL61 = -1                                             ; includes/geo.hpp  :0871
LBL 0                                                  ; includes/stdlib.hh:0124
LBL "check_spindle_status"                             ; includes/stdlib.hh:0133
 QS3   = SYSSTR( ID 10025 NR 1 )                       ; includes/geo.hpp  :0916
 QS4   = "CfgGeoCycle"                                 ; includes/geo.hpp  :0917
 QS5   = "displaySpindleErr"                           ; includes/geo.hpp  :0918
 Q0 = CFGREAD( KEY_ QS3 TAG_ QS4 ATR_ QS5 )            ; includes/geo.hpp  :0919
 FN 10: IF Q0 NE 1 GOTO LBL "IFNOT_49"                 ; 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_50"                ; includes/geo.hpp  :0921
  FN 18: SYSREAD QL84 = ID 20 NR 5                     ; includes/geo.hpp  :0926
   FN 9: IF QL84 EQU 0 GOTO LBL "IFNOT_51"             ; includes/geo.hpp  :0927
   FN 9: IF QL84 EQU 1 GOTO LBL "IFNOT_51"             ; includes/geo.hpp  :0927
   FN 14: ERROR= 1000                                  ; includes/geo.hpp  :0929
   LBL "IFNOT_51"                                      ; includes/geo.hpp  :0930
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_50"                 ; includes/geo.hpp  :0931
  LBL "IFNOT_50"                                       ; includes/geo.hpp  :0931
  CALL LBL "state_exec"
  Q0 = QL85                                            ; includes/geo.hpp  :0937
   FN 9: IF Q0 EQU 0 GOTO LBL "IFNOT_52"               ; includes/geo.hpp  :0937
   LBL 0                                               ; includes/geo.hpp  :0937
   LBL "IFNOT_52"                                      ; includes/geo.hpp  :0937
  FN 20: WAIT FOR SYNC                                 ; includes/geo.hpp  :0941
  QL84 = 100                                           ; includes/geo.hpp  :0942
  FN 17: SYSWRITE ID 13 NR3 =+9990                     ; includes/geo.hpp  :0943
  READ FROM PLC KEY "PLC_API_VERSION" TO QL84          ; includes/geo.hpp  :0944
  LBL 9990                                             ; includes/geo.hpp  :0945
   FN 10: IF QL84 NE 100 GOTO LBL "IFNOT_53"           ; includes/geo.hpp  :0946
   FN 18: SYSREAD QL84 = ID 2000 NR 10 IDX 4000        ; includes/geo.hpp  :0948
    FN 10: IF QL84 NE 1 GOTO LBL "IFNOT_54"            ; includes/geo.hpp  :0949
    FN 14: ERROR= 1000                                 ; includes/geo.hpp  :0951
    LBL "IFNOT_54"                                     ; includes/geo.hpp  :0952
   FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_53"                ; includes/geo.hpp  :0953
   LBL "IFNOT_53"                                      ; 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
   QL84=0                                              ; includes/geo.hpp  :0973
   FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_55"               ; includes/geo.hpp  :0973
    LBL "FOR_55"                                       ; includes/geo.hpp  :0973
    QL84 = QL84 + 1                                    ; includes/geo.hpp  :0973
    LBL "FORCMP_55"                                    ; 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 QL84 )
    Q0 = STRCOMP( SRC_ QS2 SEA_ QS10 )                 ; includes/geo.hpp  :0977
     FN 10: IF Q0 NE 0 GOTO LBL "IFNOT_56"             ; includes/geo.hpp  :0977
     QS2 = "ApiSpin[" || TOCHAR( DAT+QL84 DECIMALS 0 ) || "].NN_SpiMotionRequest"
     READ FROM PLC KEY QS2 TO QL84                     ; includes/geo.hpp  :0980
      FN 10: IF QL84 NE 0 GOTO LBL "IFNOT_57"          ; includes/geo.hpp  :0981
      FN 14: ERROR= 1000                               ; includes/geo.hpp  :0983
      LBL "IFNOT_57"                                   ; includes/geo.hpp  :0984
     FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_55"             ; includes/geo.hpp  :0985
     LBL "IFNOT_56"                                    ; includes/geo.hpp  :0986
    FN 9: IF 0 EQU 0 GOTO LBL "FOR_55"                 ; includes/geo.hpp  :0987
    LBL "FORNOT_55"                                    ; includes/geo.hpp  :0987
   LBL 9991                                            ; includes/geo.hpp  :0988
   LBL "ENDIF_53"                                      ; includes/geo.hpp  :0989
  LBL "ENDIF_50"                                       ; includes/geo.hpp  :0990
 LBL "IFNOT_49"                                        ; includes/geo.hpp  :0991
LBL 0                                                  ; includes/stdlib.hh:0133
LBL "swap_axes"                                        ; includes/stdlib.hh:0120
 FN 17: SYSWRITE ID 212 = QL62                         ; includes/geo.hpp  :0841
LBL 0                                                  ; includes/stdlib.hh:0120
LBL "check_depth_sign"                                 ; includes/stdlib.hh:0128
 FN 9: IF QL63 EQU 0 GOTO LBL "IFNOT_58"               ; includes/geo.hpp  :0880
 FN 12: IF QL63 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
 QL86 = CFGREAD( KEY_ QS3 TAG_ QS4 ATR_ QS5 )          ; includes/geo.hpp  :0888
  FN 10: IF QL86 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 "prepos"                                           ; includes/stdlib.hh:0108
 QL87 = QL81                                           ; includes/geo.hpp  :0780
 QL88 = QL82                                           ; includes/geo.hpp  :0780
 QL89 = QL79                                           ; includes/geo.hpp  :0780
 CALL LBL "retreat"
 FN 18: SYSREAD Q0 = ID 992 NR 30                      ; includes/geo.hpp  :0784
 FN 10: IF Q0 NE 1 GOTO LBL "IFNOT_60"                 ; includes/geo.hpp  :0784
 L  X+QL77 Y+QL78 R0 FMAX                              ; includes/geo.hpp  :0786
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_60"                  ; includes/geo.hpp  :0787
 LBL "IFNOT_60"                                        ; includes/geo.hpp  :0787
 X+QL77 R0 FMAX                                        ; includes/geo.hpp  :0790
 Y+QL78 R0 FMAX                                        ; includes/geo.hpp  :0791
 LBL "ENDIF_60"                                        ; includes/geo.hpp  :0792
 Q0 = QL79 - (ABS(QL80) * SGN(QL82))                   ; includes/geo.hpp  :0794
 Z+Q0 FMAX                                             ; includes/geo.hpp  :0794
LBL 0                                                  ; includes/stdlib.hh:0108
LBL "state_exec"                                       ; includes/stdlib.hh:0076
 FN 18: SYSREAD QL85 = ID 992 NR 11                    ; includes/geo.hpp  :0583
 FN 10: IF QL85 NE 1 GOTO LBL "IFNOT_61"               ; includes/geo.hpp  :0584
 QL85 = 3                                              ; includes/geo.hpp  :0586
 LBL 0                                                 ; includes/geo.hpp  :0587
 LBL "IFNOT_61"                                        ; includes/geo.hpp  :0588
 FN 18: SYSREAD QL85 = ID 992 NR 16                    ; includes/geo.hpp  :0590
 FN 10: IF QL85 NE 0 GOTO LBL "IFNOT_62"               ; includes/geo.hpp  :0591
 QL85 = 1                                              ; includes/geo.hpp  :0593
 LBL 0                                                 ; includes/geo.hpp  :0594
 LBL "IFNOT_62"                                        ; includes/geo.hpp  :0595
 FN 18: SYSREAD QL85 = ID 992 NR 10                    ; includes/geo.hpp  :0597
 FN 10: IF QL85 NE 1 GOTO LBL "IFNOT_63"               ; includes/geo.hpp  :0598
 QL85 = 2                                              ; includes/geo.hpp  :0600
 LBL 0                                                 ; includes/geo.hpp  :0601
 LBL "IFNOT_63"                                        ; includes/geo.hpp  :0602
 QL85 = 0                                              ; includes/geo.hpp  :0603
 LBL 0                                                 ; includes/geo.hpp  :0604
LBL 0                                                  ; includes/stdlib.hh:0076
LBL "retreat"                                          ; includes/stdlib.hh:0112
 FN 18: SYSREAD Q0 = ID20 NR3 IDX0                     ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 0 GOTO LBL "CASE0_64"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 6 GOTO LBL "CASE1_64"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 1 GOTO LBL "CASE2_64"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 7 GOTO LBL "CASE3_64"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 2 GOTO LBL "CASE4_64"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 8 GOTO LBL "CASE5_64"                 ; includes/geo.hpp  :0802
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_64"              ; includes/geo.hpp  :0802
 LBL "CASE0_64"                                        ; includes/geo.hpp  :0804
 LBL "CASE1_64"                                        ; includes/geo.hpp  :0805
 FN 18: SYSREAD QL90 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0806
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_64"              ; includes/geo.hpp  :0807
 LBL "CASE2_64"                                        ; includes/geo.hpp  :0808
 LBL "CASE3_64"                                        ; includes/geo.hpp  :0809
 FN 18: SYSREAD QL90 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0810
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_64"              ; includes/geo.hpp  :0811
 LBL "CASE4_64"                                        ; includes/geo.hpp  :0812
 LBL "CASE5_64"                                        ; includes/geo.hpp  :0813
 FN 18: SYSREAD QL90 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0814
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_64"              ; includes/geo.hpp  :0815
 LBL "SWITCHEND_64"                                    ; includes/geo.hpp  :0816
 FN 11: IF QL88 GT 0 GOTO LBL "IFNOT_65"               ; includes/geo.hpp  :0817
 Q0 = QL89 + ABS( QL87 )                               ; includes/geo.hpp  :0819
  FN 11: IF QL90 GT Q0 GOTO LBL "IFNOT_66"             ; includes/geo.hpp  :0819
  Q1 = QL89 + ABS( QL87 )                              ; includes/geo.hpp  :0821
  Z+Q1 R0 FMAX                                         ; includes/geo.hpp  :0821
  LBL "IFNOT_66"                                       ; includes/geo.hpp  :0822
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_65"                  ; includes/geo.hpp  :0823
 LBL "IFNOT_65"                                        ; includes/geo.hpp  :0823
 Q0 = QL89 - ABS( QL87 )                               ; includes/geo.hpp  :0826
  FN 12: IF QL90 LT Q0 GOTO LBL "IFNOT_67"             ; includes/geo.hpp  :0826
  Q1 = QL89 - ABS( QL87 )                              ; includes/geo.hpp  :0828
  Z+Q1 R0 FMAX                                         ; includes/geo.hpp  :0828
  LBL "IFNOT_67"                                       ; includes/geo.hpp  :0829
 LBL "ENDIF_65"                                        ; includes/geo.hpp  :0830
LBL 0                                                  ; includes/stdlib.hh:0112
LBL "EXIT"                                             ;                   :-001
END PGM MM
