BEGIN PGM 256.h MM ; h++ 2 13 8 2015_07_07
 FN 10: IF Q437 NE 0 GOTO LBL "IFNOT_1"                ; src/256.hpp       :0026
 CALL PGM 256_0.CYC
  FN 9: IF 0 EQU 0 GOTO LBL "EXIT"                     ; src/256.hpp       :0029
 LBL "IFNOT_1"                                         ; src/256.hpp       :0030
 QL6 = SGN( Q201 )                                     ; src/256.hpp       :0034
 QL4 = Q203 + Q201                                     ; src/256.hpp       :0035
 CALL LBL "256$RecStud.PRINT"
 CALL LBL "256$RecStud.MILL"
 QL36 = Q351                                           ; src/256.hpp       :0040
 QL37 = Q203                                           ; src/256.hpp       :0040
 QL38 = Q200                                           ; src/256.hpp       :0040
 QL39 = Q204                                           ; src/256.hpp       :0040
 QL40 = Q370                                           ; src/256.hpp       :0040
 QL41 = Q201                                           ; src/256.hpp       :0040
 CALL LBL "256$RecStud.init"
 QL42 = Q207                                           ; src/256.hpp       :0041
 QL43 = Q207                                           ; src/256.hpp       :0041
 QL44 = Q206                                           ; src/256.hpp       :0041
 QL45 = -57239891                                      ; src/256.hpp       :0041
 CALL LBL "256$RecStud.set_feed"
 CALL LBL "256$RecStud.get_ToolLCut"
 QL2 = QL46                                            ; src/256.hpp       :0045
 CALL LBL "read_wcs"
 QL0 = QL47                                            ; src/256.hpp       :0050
 QL1 = QL48                                            ; src/256.hpp       :0050
 TRANS DATUM AXIS IX+QL0 IY+QL1                        ; src/256.hpp       :0051
 CYCL DEF 10.0 ROTATION
 CYCL DEF 10.1 IROT+Q224
 FN 9: IF Q367 EQU 0 GOTO LBL "CASE0_3"                ; src/256.hpp       :0054
 FN 9: IF Q367 EQU 1 GOTO LBL "CASE1_3"                ; src/256.hpp       :0054
 FN 9: IF Q367 EQU 2 GOTO LBL "CASE2_3"                ; src/256.hpp       :0054
 FN 9: IF Q367 EQU 3 GOTO LBL "CASE3_3"                ; src/256.hpp       :0054
 FN 9: IF Q367 EQU 4 GOTO LBL "CASE4_3"                ; src/256.hpp       :0054
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_3"               ; src/256.hpp       :0054
 LBL "CASE0_3"                                         ; src/256.hpp       :0056
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_3"               ; src/256.hpp       :0057
 LBL "CASE1_3"                                         ; src/256.hpp       :0058
 Q0 = Q218/2                                           ; src/256.hpp       :0059
 Q1 = Q219/2                                           ; src/256.hpp       :0059
 TRANS DATUM AXIS IX+Q0 IY+Q1                          ; src/256.hpp       :0059
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_3"               ; src/256.hpp       :0060
 LBL "CASE2_3"                                         ; src/256.hpp       :0061
 Q0 = Q218/2                                           ; src/256.hpp       :0062
 Q1 = Q219/2                                           ; src/256.hpp       :0062
 TRANS DATUM AXIS IX-Q0 IY+Q1                          ; src/256.hpp       :0062
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_3"               ; src/256.hpp       :0063
 LBL "CASE3_3"                                         ; src/256.hpp       :0064
 Q0 = Q218/2                                           ; src/256.hpp       :0065
 Q1 = Q219/2                                           ; src/256.hpp       :0065
 TRANS DATUM AXIS IX-Q0 IY-Q1                          ; src/256.hpp       :0065
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_3"               ; src/256.hpp       :0066
 LBL "CASE4_3"                                         ; src/256.hpp       :0067
 Q0 = Q218/2                                           ; src/256.hpp       :0068
 Q1 = Q219/2                                           ; src/256.hpp       :0068
 TRANS DATUM AXIS IX+Q0 IY-Q1                          ; src/256.hpp       :0068
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_3"               ; src/256.hpp       :0069
 LBL "SWITCHDEF_3"                                     ; src/256.hpp       :0070
 FN 14: ERROR= 1011                                    ; src/256.hpp       :0071
 LBL "SWITCHEND_3"                                     ; src/256.hpp       :0072
 FN 9: IF Q202 EQU 0 GOTO LBL "IFNOT_4"                ; src/256.hpp       :0076
 QL5 = ABS( Q202 )                                     ; src/256.hpp       :0078
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_4"                   ; src/256.hpp       :0079
 LBL "IFNOT_4"                                         ; src/256.hpp       :0079
 FN 14: ERROR= 1090                                    ; src/256.hpp       :0082
 LBL "ENDIF_4"                                         ; src/256.hpp       :0083
 FN 9: IF QL5 EQU QL2 GOTO LBL "IFNOT_5"               ; src/256.hpp       :0084
 FN 12: IF QL5 LT QL2 GOTO LBL "IFNOT_5"               ; src/256.hpp       :0084
 FN 9: IF QL2 EQU 0 GOTO LBL "IFNOT_5"                 ; src/256.hpp       :0084
 FN 12: IF QL2 LT 0 GOTO LBL "IFNOT_5"                 ; src/256.hpp       :0084
 QL5 = QL2                                             ; src/256.hpp       :0086
 LBL "IFNOT_5"                                         ; src/256.hpp       :0087
 QL5 = QL5 * QL6                                       ; src/256.hpp       :0088
 QL50 = Q204                                           ; src/256.hpp       :0092
 QL51 = QL6                                            ; src/256.hpp       :0092
 QL52 = Q203                                           ; src/256.hpp       :0092
 CALL LBL "retreat"
 QL3=Q203+QL5                                          ; src/256.hpp       :0093
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_6"                  ; src/256.hpp       :0093
 LBL "FOR_6"                                           ; src/256.hpp       :0093
 QL3=QL3+QL5                                           ; src/256.hpp       :0093
 LBL "FORCMP_6"                                        ; src/256.hpp       :0093
  FN 10: IF QL6 NE -1 GOTO LBL "CTRLCMD0_7"            ; src/256.hpp       :0095
  FN 11: IF QL3 GT QL4 GOTO LBL "CTRLCMD0_7"           ; src/256.hpp       :0095
  FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_6"                 ; src/256.hpp       :0095
  LBL "CTRLCMD0_7"                                     ; src/256.hpp       :0095
  FN 10: IF QL6 NE +1 GOTO LBL "CTRLCMD1_8"            ; src/256.hpp       :0096
  FN 12: IF QL3 LT QL4 GOTO LBL "CTRLCMD1_8"           ; src/256.hpp       :0096
  FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_6"                 ; src/256.hpp       :0096
  LBL "CTRLCMD1_8"                                     ; src/256.hpp       :0096
 Q0 = Q218+2*Q368                                      ; src/256.hpp       :0097
 Q1 = Q219+2*Q368                                      ; src/256.hpp       :0097
 QL53 = 1                                              ; src/256.hpp       :0097
 QL54 = Q437                                           ; src/256.hpp       :0097
 QL55 = QL3                                            ; src/256.hpp       :0097
 QL56 = Q424                                           ; src/256.hpp       :0097
 QL57 = Q425                                           ; src/256.hpp       :0097
 QL58 = Q0                                             ; src/256.hpp       :0097
 QL59 = Q1                                             ; src/256.hpp       :0097
 QL60 = Q220                                           ; src/256.hpp       :0097
 CALL LBL "256$RecStud.rec_stud"
 QL50 = Q204                                           ; src/256.hpp       :0098
 QL51 = QL6                                            ; src/256.hpp       :0098
 QL52 = Q203                                           ; src/256.hpp       :0098
 CALL LBL "retreat"
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_6"                     ; src/256.hpp       :0099
 LBL "FORNOT_6"                                        ; src/256.hpp       :0099
 Q0 = Q218+2*Q368                                      ; src/256.hpp       :0103
 Q1 = Q219+2*Q368                                      ; src/256.hpp       :0103
 QL53 = 1                                              ; src/256.hpp       :0103
 QL54 = Q437                                           ; src/256.hpp       :0103
 QL55 = QL4                                            ; src/256.hpp       :0103
 QL56 = Q424                                           ; src/256.hpp       :0103
 QL57 = Q425                                           ; src/256.hpp       :0103
 QL58 = Q0                                             ; src/256.hpp       :0103
 QL59 = Q1                                             ; src/256.hpp       :0103
 QL60 = Q220                                           ; src/256.hpp       :0103
 CALL LBL "256$RecStud.rec_stud"
 L  Z+QL35 R0 FMAX                                     ; src/256.hpp       :0104
 FN 9: IF Q367 EQU 0 GOTO LBL "CASE0_9"                ; src/256.hpp       :0109
 FN 9: IF Q367 EQU 1 GOTO LBL "CASE1_9"                ; src/256.hpp       :0109
 FN 9: IF Q367 EQU 2 GOTO LBL "CASE2_9"                ; src/256.hpp       :0109
 FN 9: IF Q367 EQU 3 GOTO LBL "CASE3_9"                ; src/256.hpp       :0109
 FN 9: IF Q367 EQU 4 GOTO LBL "CASE4_9"                ; src/256.hpp       :0109
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_9"               ; src/256.hpp       :0109
 LBL "CASE0_9"                                         ; src/256.hpp       :0111
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_9"               ; src/256.hpp       :0112
 LBL "CASE1_9"                                         ; src/256.hpp       :0113
 Q0 = Q218/2                                           ; src/256.hpp       :0114
 Q1 = Q219/2                                           ; src/256.hpp       :0114
 TRANS DATUM AXIS IX-Q0 IY-Q1                          ; src/256.hpp       :0114
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_9"               ; src/256.hpp       :0115
 LBL "CASE2_9"                                         ; src/256.hpp       :0116
 Q0 = Q218/2                                           ; src/256.hpp       :0117
 Q1 = Q219/2                                           ; src/256.hpp       :0117
 TRANS DATUM AXIS IX+Q0 IY-Q1                          ; src/256.hpp       :0117
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_9"               ; src/256.hpp       :0118
 LBL "CASE3_9"                                         ; src/256.hpp       :0119
 Q0 = Q218/2                                           ; src/256.hpp       :0120
 Q1 = Q219/2                                           ; src/256.hpp       :0120
 TRANS DATUM AXIS IX+Q0 IY+Q1                          ; src/256.hpp       :0120
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_9"               ; src/256.hpp       :0121
 LBL "CASE4_9"                                         ; src/256.hpp       :0122
 Q0 = Q218/2                                           ; src/256.hpp       :0123
 Q1 = Q219/2                                           ; src/256.hpp       :0123
 TRANS DATUM AXIS IX-Q0 IY+Q1                          ; src/256.hpp       :0123
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_9"               ; src/256.hpp       :0124
 LBL "SWITCHEND_9"                                     ; src/256.hpp       :0125
 CYCL DEF 10.0 ROTATION
 CYCL DEF 10.1 IROT-Q224
 TRANS DATUM AXIS IX-QL0 IY-QL1                        ; src/256.hpp       :0128
LBL "e_2560"                                           ; src/256.hpp       :0011
FN 9: IF 0 EQU 0 GOTO LBL "EXIT"                       ;                   :-001
LBL "256$RecStud.PRINT"                                ; src/print/print.hpp:0059
 FN 18: SYSREAD QL7 = ID 992 NR 16                     ; src/print/print.hpp:0088
 FN 10: IF QL7 NE 1 GOTO LBL "IFNOT_10"                ; 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
 QL61 = 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 QL61 EQU 1 GOTO LBL "CASE0_11"              ; src/print/print.hpp:0105
  FN 9: IF QL61 EQU 2 GOTO LBL "CASE1_11"              ; src/print/print.hpp:0105
  FN 9: IF QL61 EQU 3 GOTO LBL "CASE2_11"              ; src/print/print.hpp:0105
  FN 9: IF QL61 EQU 4 GOTO LBL "CASE3_11"              ; src/print/print.hpp:0105
  FN 9: IF QL61 EQU 5 GOTO LBL "CASE4_11"              ; src/print/print.hpp:0105
  FN 9: IF QL61 EQU 6 GOTO LBL "CASE5_11"              ; src/print/print.hpp:0105
  FN 9: IF QL61 EQU 7 GOTO LBL "CASE6_11"              ; src/print/print.hpp:0105
  FN 9: IF QL61 EQU 8 GOTO LBL "CASE7_11"              ; src/print/print.hpp:0105
  FN 9: IF QL61 EQU 9 GOTO LBL "CASE8_11"              ; src/print/print.hpp:0105
  FN 9: IF QL61 EQU 10 GOTO LBL "CASE9_11"             ; src/print/print.hpp:0105
  FN 9: IF QL61 EQU 11 GOTO LBL "CASE10_11"            ; src/print/print.hpp:0105
  FN 9: IF QL61 EQU 12 GOTO LBL "CASE11_11"            ; src/print/print.hpp:0105
  FN 9: IF QL61 EQU 17 GOTO LBL "CASE12_11"            ; src/print/print.hpp:0105
  FN 9: IF QL61 EQU 21 GOTO LBL "CASE13_11"            ; src/print/print.hpp:0105
  FN 9: IF QL61 EQU 22 GOTO LBL "CASE14_11"            ; src/print/print.hpp:0105
  FN 9: IF QL61 EQU 23 GOTO LBL "CASE15_11"            ; src/print/print.hpp:0105
  FN 9: IF QL61 EQU 24 GOTO LBL "CASE16_11"            ; src/print/print.hpp:0105
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_11"             ; src/print/print.hpp:0105
  LBL "CASE0_11"                                       ; src/print/print.hpp:0106
  QS11 = QS11 || "\DE.TAB"                             ; src/print/print.hpp:0107
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0108
  LBL "CASE1_11"                                       ; src/print/print.hpp:0109
  QS11 = QS11 || "\CS.TAB"                             ; src/print/print.hpp:0110
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0111
  LBL "CASE2_11"                                       ; src/print/print.hpp:0112
  QS11 = QS11 || "\FR.TAB"                             ; src/print/print.hpp:0113
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0114
  LBL "CASE3_11"                                       ; src/print/print.hpp:0115
  QS11 = QS11 || "\IT.TAB"                             ; src/print/print.hpp:0116
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0117
  LBL "CASE4_11"                                       ; src/print/print.hpp:0118
  QS11 = QS11 || "\ES.TAB"                             ; src/print/print.hpp:0119
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0120
  LBL "CASE5_11"                                       ; src/print/print.hpp:0121
  QS11 = QS11 || "\PT.TAB"                             ; src/print/print.hpp:0122
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0123
  LBL "CASE6_11"                                       ; src/print/print.hpp:0124
  QS11 = QS11 || "\SV.TAB"                             ; src/print/print.hpp:0125
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0126
  LBL "CASE7_11"                                       ; src/print/print.hpp:0127
  QS11 = QS11 || "\DA.TAB"                             ; src/print/print.hpp:0128
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0129
  LBL "CASE8_11"                                       ; src/print/print.hpp:0130
  QS11 = QS11 || "\FI.TAB"                             ; src/print/print.hpp:0131
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0132
  LBL "CASE9_11"                                       ; src/print/print.hpp:0133
  QS11 = QS11 || "\NL.TAB"                             ; src/print/print.hpp:0134
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0135
  LBL "CASE10_11"                                      ; src/print/print.hpp:0136
  QS11 = QS11 || "\PL.TAB"                             ; src/print/print.hpp:0137
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0138
  LBL "CASE11_11"                                      ; src/print/print.hpp:0139
  QS11 = QS11 || "\HU.TAB"                             ; src/print/print.hpp:0140
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0141
  LBL "CASE12_11"                                      ; src/print/print.hpp:0142
  QS11 = QS11 || "\SL.TAB"                             ; src/print/print.hpp:0143
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0144
  LBL "CASE13_11"                                      ; src/print/print.hpp:0145
  QS11 = QS11 || "\NB.TAB"                             ; src/print/print.hpp:0146
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0147
  LBL "CASE14_11"                                      ; src/print/print.hpp:0148
  QS11 = QS11 || "\RO.TAB"                             ; src/print/print.hpp:0149
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0150
  LBL "CASE15_11"                                      ; src/print/print.hpp:0151
  QS11 = QS11 || "\SK.TAB"                             ; src/print/print.hpp:0152
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0153
  LBL "CASE16_11"                                      ; src/print/print.hpp:0154
  QS11 = QS11 || "\TR.TAB"                             ; src/print/print.hpp:0155
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/print/print.hpp:0156
  LBL "SWITCHDEF_11"                                   ; src/print/print.hpp:0157
  QS11 = QS11 || "\EN.TAB"                             ; src/print/print.hpp:0158
  LBL "SWITCHEND_11"                                   ; src/print/print.hpp:0159
 LBL "IFNOT_10"                                        ; src/print/print.hpp:0160
LBL 0                                                  ; src/print/print.hpp:0059
LBL "256$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
 QL9 = STRCOMP( SRC_ QS3 SEA_ QS0 )                    ; includes/mill.hpp :0075
 FN 9: IF QL9 EQU 0 GOTO LBL "IFNOT_12"                ; includes/mill.hpp :0076
 QL9 = 1                                               ; includes/mill.hpp :0076
 LBL "IFNOT_12"                                        ; includes/mill.hpp :0076
 FN 18: SYSREAD QL10 = ID 20 NR 3                      ; includes/mill.hpp :0080
 FN 18: SYSREAD QL33 = ID 200 NR 3 IDX 2               ; includes/mill.hpp :0084
 FN 18: SYSREAD QL16 = ID 210 NR 3                     ; includes/mill.hpp :0089
 FN 9: IF QL10 EQU 0 GOTO LBL "CASE0_13"               ; includes/mill.hpp :0090
 FN 9: IF QL10 EQU 6 GOTO LBL "CASE1_13"               ; includes/mill.hpp :0090
 FN 9: IF QL10 EQU 1 GOTO LBL "CASE2_13"               ; includes/mill.hpp :0090
 FN 9: IF QL10 EQU 7 GOTO LBL "CASE3_13"               ; includes/mill.hpp :0090
 FN 9: IF QL10 EQU 2 GOTO LBL "CASE4_13"               ; includes/mill.hpp :0090
 FN 9: IF QL10 EQU 8 GOTO LBL "CASE5_13"               ; includes/mill.hpp :0090
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"              ; includes/mill.hpp :0090
 LBL "CASE0_13"                                        ; includes/mill.hpp :0091
 LBL "CASE1_13"                                        ; includes/mill.hpp :0092
 FN 18: SYSREAD QL13 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0093
 FN 18: SYSREAD QL14 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0094
 FN 18: SYSREAD QL15 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0095
 QL63 = QL16                                           ; includes/mill.hpp :0096
 QL64 = 1                                              ; includes/mill.hpp :0096
 CALL LBL "check_bit"
 QL17 = QL65                                           ; includes/mill.hpp :0096
 QL63 = QL16                                           ; includes/mill.hpp :0097
 QL64 = 2                                              ; includes/mill.hpp :0097
 CALL LBL "check_bit"
 QL18 = QL65                                           ; includes/mill.hpp :0097
 QL63 = QL16                                           ; includes/mill.hpp :0098
 QL64 = 0                                              ; includes/mill.hpp :0098
 CALL LBL "check_bit"
 QL19 = QL65                                           ; includes/mill.hpp :0098
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"              ; includes/mill.hpp :0099
 LBL "CASE2_13"                                        ; includes/mill.hpp :0100
 LBL "CASE3_13"                                        ; includes/mill.hpp :0101
 FN 18: SYSREAD QL13 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0102
 FN 18: SYSREAD QL14 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0103
 FN 18: SYSREAD QL15 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0104
 QL63 = QL16                                           ; includes/mill.hpp :0105
 QL64 = 2                                              ; includes/mill.hpp :0105
 CALL LBL "check_bit"
 QL17 = QL65                                           ; includes/mill.hpp :0105
 QL63 = QL16                                           ; includes/mill.hpp :0106
 QL64 = 0                                              ; includes/mill.hpp :0106
 CALL LBL "check_bit"
 QL18 = QL65                                           ; includes/mill.hpp :0106
 QL63 = QL16                                           ; includes/mill.hpp :0107
 QL64 = 1                                              ; includes/mill.hpp :0107
 CALL LBL "check_bit"
 QL19 = QL65                                           ; includes/mill.hpp :0107
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"              ; includes/mill.hpp :0108
 LBL "CASE4_13"                                        ; includes/mill.hpp :0109
 LBL "CASE5_13"                                        ; includes/mill.hpp :0110
 FN 18: SYSREAD QL13 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0111
 FN 18: SYSREAD QL14 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0112
 FN 18: SYSREAD QL15 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0113
 QL63 = QL16                                           ; includes/mill.hpp :0114
 QL64 = 0                                              ; includes/mill.hpp :0114
 CALL LBL "check_bit"
 QL17 = QL65                                           ; includes/mill.hpp :0114
 QL63 = QL16                                           ; includes/mill.hpp :0115
 QL64 = 1                                              ; includes/mill.hpp :0115
 CALL LBL "check_bit"
 QL18 = QL65                                           ; includes/mill.hpp :0115
 QL63 = QL16                                           ; includes/mill.hpp :0116
 QL64 = 2                                              ; includes/mill.hpp :0116
 CALL LBL "check_bit"
 QL19 = QL65                                           ; includes/mill.hpp :0116
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"              ; includes/mill.hpp :0117
 LBL "SWITCHEND_13"                                    ; includes/mill.hpp :0118
 FN 9: IF QL13 EQU QL14 GOTO LBL "IFNOT_14"            ; includes/mill.hpp :0119
 FN 14: ERROR= 1108                                    ; includes/mill.hpp :0119
 LBL "IFNOT_14"                                        ; includes/mill.hpp :0119
 QL29 = 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_15"                 ; includes/mill.hpp :0129
 QL20 = 0.002                                          ; includes/mill.hpp :0130
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_15"                  ; includes/mill.hpp :0131
 LBL "IFNOT_15"                                        ; includes/mill.hpp :0131
 QL20 = 0.0002                                         ; includes/mill.hpp :0133
 LBL "ENDIF_15"                                        ; includes/mill.hpp :0134
 FN 18: SYSREAD QL8 = ID 992 NR 30                     ; includes/mill.hpp :0135
 FN 18: SYSREAD QL28 = ID 610 NR 6                     ; includes/mill.hpp :0136
 FN 18: SYSREAD QL12 = ID 950 NR 13                    ; includes/mill.hpp :0140
 FN 18: SYSREAD QL11 = ID 950 NR 14                    ; includes/mill.hpp :0141
 FN 18: SYSREAD QL30 = ID 200 NR 1 IDX 2               ; includes/mill.hpp :0142
 FN 18: SYSREAD QL31 = ID 200 NR 1 IDX 3               ; includes/mill.hpp :0143
 FN 11: IF QL30 GT 0 GOTO LBL "IFNOT_16"               ; includes/mill.hpp :0144
 FN 14: ERROR= 1002                                    ; includes/mill.hpp :0144
 LBL "IFNOT_16"                                        ; includes/mill.hpp :0144
 FN 9: IF QL30 EQU QL31 GOTO LBL "IFNOT_17"            ; includes/mill.hpp :0145
 FN 12: IF QL30 LT QL31 GOTO LBL "IFNOT_17"            ; includes/mill.hpp :0145
 QL32 = QL30                                           ; includes/mill.hpp :0146
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_17"                  ; includes/mill.hpp :0147
 LBL "IFNOT_17"                                        ; includes/mill.hpp :0147
 QL32 = QL31                                           ; includes/mill.hpp :0149
 LBL "ENDIF_17"                                        ; includes/mill.hpp :0150
 QL30 = QL30 / QL13                                    ; includes/mill.hpp :0154
 QL31 = QL31 / QL13                                    ; includes/mill.hpp :0155
 QL32 = QL32 / QL13                                    ; includes/mill.hpp :0156
 QL12 = QL12 / QL15                                    ; includes/mill.hpp :0157
 CALL LBL "check_spindle_status"
 QL66 = 3                                              ; includes/mill.hpp :0165
 CALL LBL "swap_axes"
LBL 0                                                  ; includes/mill.hpp :0049
LBL "256$RecStud.init"                                 ; includes/mill.hpp :0050
 FN 9: IF Q110 EQU 1 GOTO LBL "CASE0_18"               ; includes/mill.hpp :0175
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_18"              ; includes/mill.hpp :0175
 LBL "CASE0_18"                                        ; includes/mill.hpp :0177
 QL29 = +QL36                                          ; includes/mill.hpp :0178
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_18"              ; includes/mill.hpp :0179
 LBL "SWITCHDEF_18"                                    ; includes/mill.hpp :0180
 QL29 = -QL36                                          ; includes/mill.hpp :0181
 LBL "SWITCHEND_18"                                    ; includes/mill.hpp :0182
 FN 10: IF QL17 NE 1 GOTO LBL "IFNOT_19"               ; includes/mill.hpp :0183
 QL29 = -QL29                                          ; includes/mill.hpp :0185
 LBL "IFNOT_19"                                        ; includes/mill.hpp :0186
 FN 10: IF QL18 NE 1 GOTO LBL "IFNOT_20"               ; includes/mill.hpp :0187
 QL29 = -QL29                                          ; includes/mill.hpp :0189
 LBL "IFNOT_20"                                        ; includes/mill.hpp :0190
 QL26 = QL30 * QL40                                    ; includes/mill.hpp :0194
 QL67 = QL41                                           ; includes/mill.hpp :0198
 CALL LBL "check_depth_sign"
 FN 9: IF QL41 EQU 0 GOTO LBL "EXIT"                   ; includes/mill.hpp :0199
 QL27 = QL41                                           ; includes/mill.hpp :0200
 QL21 = QL37                                           ; includes/mill.hpp :0205
 QL34 = ABS( QL38 )                                    ; includes/mill.hpp :0206
 FN 9: IF QL34 EQU 0.001 GOTO LBL "IFNOT_22"           ; includes/mill.hpp :0207
 FN 11: IF QL34 GT 0.001 GOTO LBL "IFNOT_22"           ; includes/mill.hpp :0207
 QL34 = 0.001                                          ; includes/mill.hpp :0207
 LBL "IFNOT_22"                                        ; includes/mill.hpp :0207
 FN 9: IF QL39 EQU QL34 GOTO LBL "IFNOT_23"            ; includes/mill.hpp :0208
 FN 11: IF QL39 GT QL34 GOTO LBL "IFNOT_23"            ; includes/mill.hpp :0208
 QL35 = QL34                                           ; includes/mill.hpp :0210
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_23"                  ; includes/mill.hpp :0211
 LBL "IFNOT_23"                                        ; includes/mill.hpp :0211
 QL35 = QL39                                           ; includes/mill.hpp :0214
 LBL "ENDIF_23"                                        ; includes/mill.hpp :0215
 QL35 = QL21 - ( QL35 * SGN( QL27 ) )                  ; includes/mill.hpp :0216
LBL 0                                                  ; includes/mill.hpp :0050
LBL "256$RecStud.set_feed"                             ; includes/mill.hpp :0051
 QL22 = QL42                                           ; includes/mill.hpp :0223
 QL23 = QL43                                           ; includes/mill.hpp :0224
 QL24 = QL44                                           ; includes/mill.hpp :0225
 FN 11: IF QL45 GT 0 GOTO LBL "IFNOT_24"               ; includes/mill.hpp :0226
  FN 9: IF QL45 EQU -57239891 GOTO LBL "IFNOT_25"      ; includes/mill.hpp :0228
  QL25 = QL22                                          ; includes/mill.hpp :0230
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_25"                 ; includes/mill.hpp :0231
  LBL "IFNOT_25"                                       ; includes/mill.hpp :0231
  FN 22: FUNCT QL42 FNR 910 PIN 59 PIN 2 PEX 25        ; includes/mill.hpp :0235
  LBL "ENDIF_25"                                       ; includes/mill.hpp :0236
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_24"                  ; includes/mill.hpp :0238
 LBL "IFNOT_24"                                        ; includes/mill.hpp :0238
 QL25 = QL45                                           ; includes/mill.hpp :0241
 LBL "ENDIF_24"                                        ; includes/mill.hpp :0242
LBL 0                                                  ; includes/mill.hpp :0051
LBL "256$RecStud.get_ToolLCut"                         ; includes/mill.hpp :0054
 QL46 = QL12                                           ; 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_26"                 ; includes/geo.hpp  :0618
 FN 17: SYSWRITE ID 991 NR 100 = 1                     ; includes/geo.hpp  :0620
 LBL "IFNOT_26"                                        ; 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_27"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 6 GOTO LBL "CASE1_27"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 1 GOTO LBL "CASE2_27"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 7 GOTO LBL "CASE3_27"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 2 GOTO LBL "CASE4_27"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 8 GOTO LBL "CASE5_27"                 ; includes/geo.hpp  :0627
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_27"              ; includes/geo.hpp  :0627
 LBL "CASE0_27"                                        ; includes/geo.hpp  :0629
 LBL "CASE1_27"                                        ; includes/geo.hpp  :0630
 FN 18: SYSREAD QL47 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0631
 FN 18: SYSREAD QL48 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0632
 FN 18: SYSREAD QL49 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0633
 LBL 0                                                 ; includes/geo.hpp  :0634
 LBL "CASE2_27"                                        ; includes/geo.hpp  :0635
 LBL "CASE3_27"                                        ; includes/geo.hpp  :0636
 FN 18: SYSREAD QL47 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0637
 FN 18: SYSREAD QL48 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0638
 FN 18: SYSREAD QL49 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0639
 LBL 0                                                 ; includes/geo.hpp  :0640
 LBL "CASE4_27"                                        ; includes/geo.hpp  :0641
 LBL "CASE5_27"                                        ; includes/geo.hpp  :0642
 FN 18: SYSREAD QL47 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0643
 FN 18: SYSREAD QL48 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0644
 FN 18: SYSREAD QL49 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0645
 LBL 0                                                 ; includes/geo.hpp  :0646
 LBL "SWITCHEND_27"                                    ; includes/geo.hpp  :0647
LBL 0                                                  ; includes/stdlib.hh:0081
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_28"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 6 GOTO LBL "CASE1_28"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 1 GOTO LBL "CASE2_28"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 7 GOTO LBL "CASE3_28"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 2 GOTO LBL "CASE4_28"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 8 GOTO LBL "CASE5_28"                 ; includes/geo.hpp  :0802
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_28"              ; includes/geo.hpp  :0802
 LBL "CASE0_28"                                        ; includes/geo.hpp  :0804
 LBL "CASE1_28"                                        ; includes/geo.hpp  :0805
 FN 18: SYSREAD QL68 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0806
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_28"              ; includes/geo.hpp  :0807
 LBL "CASE2_28"                                        ; includes/geo.hpp  :0808
 LBL "CASE3_28"                                        ; includes/geo.hpp  :0809
 FN 18: SYSREAD QL68 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0810
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_28"              ; includes/geo.hpp  :0811
 LBL "CASE4_28"                                        ; includes/geo.hpp  :0812
 LBL "CASE5_28"                                        ; includes/geo.hpp  :0813
 FN 18: SYSREAD QL68 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0814
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_28"              ; includes/geo.hpp  :0815
 LBL "SWITCHEND_28"                                    ; includes/geo.hpp  :0816
 FN 11: IF QL51 GT 0 GOTO LBL "IFNOT_29"               ; includes/geo.hpp  :0817
 Q0 = QL52 + ABS( QL50 )                               ; includes/geo.hpp  :0819
  FN 11: IF QL68 GT Q0 GOTO LBL "IFNOT_30"             ; includes/geo.hpp  :0819
  Q1 = QL52 + ABS( QL50 )                              ; includes/geo.hpp  :0821
  Z+Q1 R0 FMAX                                         ; includes/geo.hpp  :0821
  LBL "IFNOT_30"                                       ; includes/geo.hpp  :0822
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_29"                  ; includes/geo.hpp  :0823
 LBL "IFNOT_29"                                        ; includes/geo.hpp  :0823
 Q0 = QL52 - ABS( QL50 )                               ; includes/geo.hpp  :0826
  FN 12: IF QL68 LT Q0 GOTO LBL "IFNOT_31"             ; includes/geo.hpp  :0826
  Q1 = QL52 - ABS( QL50 )                              ; includes/geo.hpp  :0828
  Z+Q1 R0 FMAX                                         ; includes/geo.hpp  :0828
  LBL "IFNOT_31"                                       ; includes/geo.hpp  :0829
 LBL "ENDIF_29"                                        ; includes/geo.hpp  :0830
LBL 0                                                  ; includes/stdlib.hh:0112
LBL "256$RecStud.rec_stud"                             ; includes/mill.hpp :0058
 FN 9: IF QL58 EQU 0.001 GOTO LBL "IFNOT_32"           ; includes/mill.hpp :0877
 FN 11: IF QL58 GT 0.001 GOTO LBL "IFNOT_32"           ; includes/mill.hpp :0877
 QL58 = 0.001                                          ; includes/mill.hpp :0877
 LBL "IFNOT_32"                                        ; includes/mill.hpp :0877
 FN 9: IF QL59 EQU 0.001 GOTO LBL "IFNOT_33"           ; includes/mill.hpp :0878
 FN 11: IF QL59 GT 0.001 GOTO LBL "IFNOT_33"           ; includes/mill.hpp :0878
 QL59 = 0.001                                          ; includes/mill.hpp :0878
 LBL "IFNOT_33"                                        ; includes/mill.hpp :0878
 FN 11: IF QL58 GT QL56 GOTO LBL "IF_34"               ; includes/mill.hpp :0882
 FN 11: IF QL59 GT QL57 GOTO LBL "IF_34"               ; includes/mill.hpp :0882
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_34"                  ; includes/mill.hpp :0882
 LBL "IF_34"                                           ; includes/mill.hpp :0882
 FN 14: ERROR= 1098                                    ; includes/mill.hpp :0884
 LBL "IFNOT_34"                                        ; includes/mill.hpp :0885
 Q0 = 2*QL60                                           ; includes/mill.hpp :0886
 FN 12: IF Q0 LT QL58 GOTO LBL "IFNOT_35"              ; includes/mill.hpp :0886
 FN 14: ERROR= 1023                                    ; includes/mill.hpp :0888
 LBL "IFNOT_35"                                        ; includes/mill.hpp :0889
 Q0 = 2*QL60                                           ; includes/mill.hpp :0890
 FN 12: IF Q0 LT QL59 GOTO LBL "IFNOT_36"              ; includes/mill.hpp :0890
 FN 14: ERROR= 1023                                    ; includes/mill.hpp :0892
 LBL "IFNOT_36"                                        ; includes/mill.hpp :0893
 FN 10: IF QL60 NE 0 GOTO LBL "IFNOT_37"               ; includes/mill.hpp :0898
  FN 9: IF QL54 EQU 3 GOTO LBL "CASE0_38"              ; includes/mill.hpp :0900
  FN 9: IF QL54 EQU 1 GOTO LBL "CASE1_38"              ; includes/mill.hpp :0900
  FN 9: IF QL54 EQU 2 GOTO LBL "CASE2_38"              ; includes/mill.hpp :0900
  FN 9: IF QL54 EQU 4 GOTO LBL "CASE3_38"              ; includes/mill.hpp :0900
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_38"             ; includes/mill.hpp :0900
  LBL "CASE0_38"                                       ; includes/mill.hpp :0902
  CYCL DEF 10.0 ROTATION
  CYCL DEF 10.1 IROT+180
  QL82 = QL55                                          ; includes/mill.hpp :0905
  QL83 = QL56                                          ; includes/mill.hpp :0905
  QL84 = QL57                                          ; includes/mill.hpp :0905
  QL85 = QL58                                          ; includes/mill.hpp :0905
  QL86 = QL59                                          ; includes/mill.hpp :0905
  CALL LBL "256$RecStud.rec_stud_ap"
  CYCL DEF 10.0 ROTATION
  CYCL DEF 10.1 IROT-180
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_38"             ; includes/mill.hpp :0908
  LBL "CASE1_38"                                       ; includes/mill.hpp :0909
  QL82 = QL55                                          ; includes/mill.hpp :0910
  QL83 = QL56                                          ; includes/mill.hpp :0910
  QL84 = QL57                                          ; includes/mill.hpp :0910
  QL85 = QL58                                          ; includes/mill.hpp :0910
  QL86 = QL59                                          ; includes/mill.hpp :0910
  CALL LBL "256$RecStud.rec_stud_ap"
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_38"             ; includes/mill.hpp :0911
  LBL "CASE2_38"                                       ; includes/mill.hpp :0912
  CYCL DEF 10.0 ROTATION
  CYCL DEF 10.1 IROT+90
  QL82 = QL55                                          ; includes/mill.hpp :0915
  QL83 = QL57                                          ; includes/mill.hpp :0915
  QL84 = QL56                                          ; includes/mill.hpp :0915
  QL85 = QL59                                          ; includes/mill.hpp :0915
  QL86 = QL58                                          ; includes/mill.hpp :0915
  CALL LBL "256$RecStud.rec_stud_ap"
  CYCL DEF 10.0 ROTATION
  CYCL DEF 10.1 IROT-90
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_38"             ; includes/mill.hpp :0918
  LBL "CASE3_38"                                       ; includes/mill.hpp :0919
  CYCL DEF 10.0 ROTATION
  CYCL DEF 10.1 IROT+270
  QL82 = QL55                                          ; includes/mill.hpp :0922
  QL83 = QL57                                          ; includes/mill.hpp :0922
  QL84 = QL56                                          ; includes/mill.hpp :0922
  QL85 = QL59                                          ; includes/mill.hpp :0922
  QL86 = QL58                                          ; includes/mill.hpp :0922
  CALL LBL "256$RecStud.rec_stud_ap"
  CYCL DEF 10.0 ROTATION
  CYCL DEF 10.1 IROT-270
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_38"             ; includes/mill.hpp :0925
  LBL "SWITCHDEF_38"                                   ; includes/mill.hpp :0926
  FN 14: ERROR= 1011                                   ; includes/mill.hpp :0927
  LBL "SWITCHEND_38"                                   ; includes/mill.hpp :0928
 LBL 0                                                 ; includes/mill.hpp :0929
 LBL "IFNOT_37"                                        ; includes/mill.hpp :0930
 FN 12: IF QL29 LT 0 GOTO LBL "IFNOT_39"               ; includes/mill.hpp :0935
  FN 10: IF QL18 NE 1 GOTO LBL "IFNOT_40"              ; includes/mill.hpp :0937
  QL81 = QL16 - 2                                      ; includes/mill.hpp :0939
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_40"                 ; includes/mill.hpp :0940
  LBL "IFNOT_40"                                       ; includes/mill.hpp :0940
  QL81 = QL16 + 2                                      ; includes/mill.hpp :0943
  LBL "ENDIF_40"                                       ; includes/mill.hpp :0944
 FN 17: SYSWRITE ID 210 NR 3 = QL81                    ; includes/mill.hpp :0945
 QL54 = ( QL54 - 2.5 ) * ( -1 ) + 2.5                  ; includes/mill.hpp :0946
 LBL "IFNOT_39"                                        ; includes/mill.hpp :0947
 FN 9: IF QL53 EQU 0 GOTO LBL "CASE0_41"               ; includes/mill.hpp :0953
 FN 9: IF QL53 EQU 1 GOTO LBL "CASE1_41"               ; includes/mill.hpp :0953
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_41"              ; includes/mill.hpp :0953
 LBL "CASE0_41"                                        ; includes/mill.hpp :0955
 QL56 = QL56 / 2 + QL31                                ; includes/mill.hpp :0956
 QL57 = QL57 / 2 + QL31                                ; includes/mill.hpp :0957
 QL58 = QL58 / 2 + QL31                                ; includes/mill.hpp :0958
 QL59 = QL59 / 2 + QL31                                ; includes/mill.hpp :0959
 QL56 = QL56 + ( QL60 - QL60 * COS( 45 ) )             ; includes/mill.hpp :0960
 QL57 = QL57 + ( QL60 - QL60 * COS( 45 ) )             ; includes/mill.hpp :0961
 QL60 = QL60 + QL31                                    ; includes/mill.hpp :0962
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_41"              ; includes/mill.hpp :0963
 LBL "CASE1_41"                                        ; includes/mill.hpp :0964
 QL56 = QL56 / 2                                       ; includes/mill.hpp :0965
 QL57 = QL57 / 2                                       ; includes/mill.hpp :0966
 QL58 = QL58 / 2                                       ; includes/mill.hpp :0967
 QL59 = QL59 / 2                                       ; includes/mill.hpp :0968
 QL56 = QL56 + ( QL60 - QL60 * COS( 45 ) )             ; includes/mill.hpp :0969
 QL57 = QL57 + ( QL60 - QL60 * COS( 45 ) )             ; includes/mill.hpp :0970
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_41"              ; includes/mill.hpp :0971
 LBL "SWITCHDEF_41"                                    ; includes/mill.hpp :0972
 FN 14: ERROR= 1011                                    ; includes/mill.hpp :0973
 LBL "SWITCHEND_41"                                    ; includes/mill.hpp :0974
 FN 9: IF QL54 EQU 3 GOTO LBL "CASE0_42"               ; includes/mill.hpp :0980
 FN 9: IF QL54 EQU 1 GOTO LBL "CASE1_42"               ; includes/mill.hpp :0980
 FN 9: IF QL54 EQU 2 GOTO LBL "CASE2_42"               ; includes/mill.hpp :0980
 FN 9: IF QL54 EQU 4 GOTO LBL "CASE3_42"               ; includes/mill.hpp :0980
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_42"              ; includes/mill.hpp :0980
 LBL "CASE0_42"                                        ; includes/mill.hpp :0982
 CYCL DEF 10.0 ROTATION
 CYCL DEF 10.1 IROT+180
 LBL "CASE1_42"                                        ; includes/mill.hpp :0985
 QL69 = QL56                                           ; includes/mill.hpp :0986
 QL70 = QL57                                           ; includes/mill.hpp :0987
 QL71 = QL58                                           ; includes/mill.hpp :0988
 QL72 = QL59                                           ; includes/mill.hpp :0989
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_42"              ; includes/mill.hpp :0990
 LBL "CASE2_42"                                        ; includes/mill.hpp :0991
 CYCL DEF 10.0 ROTATION
 CYCL DEF 10.1 IROT+90
 QL69 = QL57                                           ; includes/mill.hpp :0994
 QL70 = QL56                                           ; includes/mill.hpp :0995
 QL71 = QL59                                           ; includes/mill.hpp :0996
 QL72 = QL58                                           ; includes/mill.hpp :0997
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_42"              ; includes/mill.hpp :0998
 LBL "CASE3_42"                                        ; includes/mill.hpp :0999
 CYCL DEF 10.0 ROTATION
 CYCL DEF 10.1 IROT+270
 QL69 = QL57                                           ; includes/mill.hpp :1002
 QL70 = QL56                                           ; includes/mill.hpp :1003
 QL71 = QL59                                           ; includes/mill.hpp :1004
 QL72 = QL58                                           ; includes/mill.hpp :1005
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_42"              ; includes/mill.hpp :1006
 LBL "SWITCHDEF_42"                                    ; includes/mill.hpp :1007
 FN 14: ERROR= 1011                                    ; includes/mill.hpp :1008
 LBL "SWITCHEND_42"                                    ; includes/mill.hpp :1009
 FN 9: IF QL71 EQU 0.001 GOTO LBL "IFNOT_43"           ; includes/mill.hpp :1013
 FN 11: IF QL71 GT 0.001 GOTO LBL "IFNOT_43"           ; includes/mill.hpp :1013
 QL71 = 0.001                                          ; includes/mill.hpp :1013
 LBL "IFNOT_43"                                        ; includes/mill.hpp :1013
 FN 9: IF QL72 EQU 0.001 GOTO LBL "IFNOT_44"           ; includes/mill.hpp :1014
 FN 11: IF QL72 GT 0.001 GOTO LBL "IFNOT_44"           ; includes/mill.hpp :1014
 QL72 = 0.001                                          ; includes/mill.hpp :1014
 LBL "IFNOT_44"                                        ; includes/mill.hpp :1014
 QL73 = QL69 - QL71                                    ; includes/mill.hpp :1018
 QL74 = QL70 - QL72                                    ; includes/mill.hpp :1019
 QL79 = ( SQRT( SQ( QL73 ) + SQ( QL74 ) ) ) / QL26     ; includes/mill.hpp :1020
 QL79 = INT( QL79 + 0.99 )                             ; includes/mill.hpp :0271
 FN 10: IF QL79 NE 0 GOTO LBL "IFNOT_45"               ; includes/mill.hpp :0272
 QL79 = 1                                              ; includes/mill.hpp :0272
 LBL "IFNOT_45"                                        ; includes/mill.hpp :0272
 LBL "e_256$RecStud$int_infeeds1"                      ; includes/mill.hpp :0040
 QL73 = QL73 / QL79                                    ; includes/mill.hpp :1022
 QL74 = QL74 / QL79                                    ; includes/mill.hpp :1023
 QL75 = QL69 - QL60 - QL73 - 2                         ; includes/mill.hpp :1027
 QL76 = QL70 + 2                                       ; includes/mill.hpp :1028
 FN 9: IF QL30 EQU QL31 GOTO LBL "IFNOT_46"            ; includes/mill.hpp :1029
 FN 12: IF QL30 LT QL31 GOTO LBL "IFNOT_46"            ; includes/mill.hpp :1029
 QL76 = QL76 + QL30                                    ; includes/mill.hpp :1031
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_46"                  ; includes/mill.hpp :1032
 LBL "IFNOT_46"                                        ; includes/mill.hpp :1032
 QL76 = QL76 + QL31                                    ; includes/mill.hpp :1035
 LBL "ENDIF_46"                                        ; includes/mill.hpp :1036
 L  X-QL75  Y-QL76 R0 FMAX                             ; includes/mill.hpp :1037
 L  Z+QL55 F QL24                                      ; includes/mill.hpp :1038
 QL80=1                                                ; includes/mill.hpp :1042
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_47"                 ; includes/mill.hpp :1042
 LBL "FOR_47"                                          ; includes/mill.hpp :1042
 QL80 = QL80 + 1                                       ; includes/mill.hpp :1042
 LBL "FORCMP_47"                                       ; includes/mill.hpp :1042
 FN 11: IF QL80 GT QL79 GOTO LBL "FORNOT_47"           ; includes/mill.hpp :1042
 QL77 = QL69 - (QL80 * QL73)                           ; includes/mill.hpp :1044
 QL78 = QL70 - (QL80 * QL74)                           ; includes/mill.hpp :1045
  FN 10: IF QL80 NE 1 GOTO LBL "IFNOT_48"              ; includes/mill.hpp :1046
   FN 10: IF QL53 NE 1 GOTO LBL "IFNOT_49"             ; includes/mill.hpp :1048
   Q0 = QL77-QL60-ABS(2)                               ; includes/mill.hpp :1050
   APPR LT X-Q0 Y-QL70 LEN 0 RL F QL22                 ; includes/mill.hpp :1050
   FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_49"                ; includes/mill.hpp :1051
   LBL "IFNOT_49"                                      ; includes/mill.hpp :1051
   Q0 = QL77-QL60-ABS(2)                               ; includes/mill.hpp :1054
   APPR LT X-Q0 Y-QL70 LEN 0 R0 F QL22                 ; includes/mill.hpp :1054
   LBL "ENDIF_49"                                      ; includes/mill.hpp :1055
  L  X-QL77                                            ; includes/mill.hpp :1056
  RND R QL60                                           ; includes/mill.hpp :1057
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_48"                 ; includes/mill.hpp :1058
  LBL "IFNOT_48"                                       ; includes/mill.hpp :1058
  L  X-QL77                                            ; includes/mill.hpp :1061
  RND R QL60                                           ; includes/mill.hpp :1062
  LBL "ENDIF_48"                                       ; includes/mill.hpp :1063
 L  X-QL77 Y+QL78                                      ; includes/mill.hpp :1064
 RND R QL60                                            ; includes/mill.hpp :1065
 L  X+QL77 Y+QL78                                      ; includes/mill.hpp :1066
 RND R QL60                                            ; includes/mill.hpp :1067
 L  X+QL77 Y-QL78                                      ; includes/mill.hpp :1068
 RND R QL60                                            ; includes/mill.hpp :1069
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_47"                    ; includes/mill.hpp :1070
 LBL "FORNOT_47"                                       ; includes/mill.hpp :1070
 L  X-QL71                                             ; includes/mill.hpp :1071
 RND R QL60                                            ; includes/mill.hpp :1072
 Q0 = QL72-QL60-ABS(2/16)                              ; includes/mill.hpp :1073
 L  Y-Q0                                               ; includes/mill.hpp :1073
 FN 10: IF QL53 NE 1 GOTO LBL "IFNOT_50"               ; includes/mill.hpp :1074
 Q0 = ABS(2)/(1-COS( 30 ))                             ; includes/mill.hpp :1076
 DEP CT  CCA+30 R+Q0                                   ; includes/mill.hpp :1076
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_50"                  ; includes/mill.hpp :1077
 LBL "IFNOT_50"                                        ; includes/mill.hpp :1077
 Q0 = ABS(2)/(1-COS( 30 ))                             ; includes/mill.hpp :1080
 CC IX-Q0 IY+0                                         ; includes/mill.hpp :1080
 CP IPA+30 DR+                                         ; includes/mill.hpp :1081
 LBL "ENDIF_50"                                        ; includes/mill.hpp :1082
 FN 9: IF QL54 EQU 2 GOTO LBL "CASE0_51"               ; includes/mill.hpp :1086
 FN 9: IF QL54 EQU 3 GOTO LBL "CASE1_51"               ; includes/mill.hpp :1086
 FN 9: IF QL54 EQU 4 GOTO LBL "CASE2_51"               ; includes/mill.hpp :1086
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_51"              ; includes/mill.hpp :1086
 LBL "CASE0_51"                                        ; includes/mill.hpp :1088
 CYCL DEF 10.0 ROTATION
 CYCL DEF 10.1 IROT-90
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_51"              ; includes/mill.hpp :1091
 LBL "CASE1_51"                                        ; includes/mill.hpp :1092
 CYCL DEF 10.0 ROTATION
 CYCL DEF 10.1 IROT-180
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_51"              ; includes/mill.hpp :1095
 LBL "CASE2_51"                                        ; includes/mill.hpp :1096
 CYCL DEF 10.0 ROTATION
 CYCL DEF 10.1 IROT-270
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_51"              ; includes/mill.hpp :1099
 LBL "SWITCHEND_51"                                    ; includes/mill.hpp :1100
 FN 12: IF QL29 LT 0 GOTO LBL "IFNOT_52"               ; includes/mill.hpp :1101
 FN 17: SYSWRITE ID 210 NR 3 = QL16                    ; includes/mill.hpp :1103
 LBL "IFNOT_52"                                        ; includes/mill.hpp :1104
LBL 0                                                  ; includes/mill.hpp :0058
LBL "check_bit"                                        ; includes/stdlib.hh:0124
 QL87=15                                               ; includes/geo.hpp  :0850
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_53"                 ; includes/geo.hpp  :0850
 LBL "FOR_53"                                          ; includes/geo.hpp  :0850
 QL87 = QL87 + -1                                      ; includes/geo.hpp  :0850
 LBL "FORCMP_53"                                       ; includes/geo.hpp  :0850
 FN 12: IF QL87 LT 0 GOTO LBL "FORNOT_53"              ; includes/geo.hpp  :0850
 QL65 = 2 ^ QL87                                       ; includes/geo.hpp  :0852
  FN 12: IF QL63 LT QL65 GOTO LBL "IFNOT_54"           ; includes/geo.hpp  :0853
   FN 10: IF QL87 NE QL64 GOTO LBL "IFNOT_55"          ; includes/geo.hpp  :0855
   QL65 = 1                                            ; includes/geo.hpp  :0857
   LBL 0                                               ; includes/geo.hpp  :0858
   LBL "IFNOT_55"                                      ; includes/geo.hpp  :0859
  QL63 = QL63 - 2^QL87                                 ; includes/geo.hpp  :0860
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_54"                 ; includes/geo.hpp  :0861
  LBL "IFNOT_54"                                       ; includes/geo.hpp  :0861
   FN 10: IF QL87 NE QL64 GOTO LBL "IFNOT_56"          ; includes/geo.hpp  :0864
   QL65 = 0                                            ; includes/geo.hpp  :0866
   LBL 0                                               ; includes/geo.hpp  :0867
   LBL "IFNOT_56"                                      ; includes/geo.hpp  :0868
  LBL "ENDIF_54"                                       ; includes/geo.hpp  :0869
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_53"                    ; includes/geo.hpp  :0870
 LBL "FORNOT_53"                                       ; includes/geo.hpp  :0870
 QL65 = -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_57"                 ; 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_58"                ; includes/geo.hpp  :0921
  FN 18: SYSREAD QL88 = ID 20 NR 5                     ; includes/geo.hpp  :0926
   FN 9: IF QL88 EQU 0 GOTO LBL "IFNOT_59"             ; includes/geo.hpp  :0927
   FN 9: IF QL88 EQU 1 GOTO LBL "IFNOT_59"             ; includes/geo.hpp  :0927
   FN 14: ERROR= 1000                                  ; includes/geo.hpp  :0929
   LBL "IFNOT_59"                                      ; includes/geo.hpp  :0930
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_58"                 ; includes/geo.hpp  :0931
  LBL "IFNOT_58"                                       ; includes/geo.hpp  :0931
  CALL LBL "state_exec"
  Q0 = QL89                                            ; includes/geo.hpp  :0937
   FN 9: IF Q0 EQU 0 GOTO LBL "IFNOT_60"               ; includes/geo.hpp  :0937
   LBL 0                                               ; includes/geo.hpp  :0937
   LBL "IFNOT_60"                                      ; includes/geo.hpp  :0937
  FN 20: WAIT FOR SYNC                                 ; includes/geo.hpp  :0941
  QL88 = 100                                           ; includes/geo.hpp  :0942
  FN 17: SYSWRITE ID 13 NR3 =+9990                     ; includes/geo.hpp  :0943
  READ FROM PLC KEY "PLC_API_VERSION" TO QL88          ; includes/geo.hpp  :0944
  LBL 9990                                             ; includes/geo.hpp  :0945
   FN 10: IF QL88 NE 100 GOTO LBL "IFNOT_61"           ; includes/geo.hpp  :0946
   FN 18: SYSREAD QL88 = ID 2000 NR 10 IDX 4000        ; includes/geo.hpp  :0948
    FN 10: IF QL88 NE 1 GOTO LBL "IFNOT_62"            ; includes/geo.hpp  :0949
    FN 14: ERROR= 1000                                 ; includes/geo.hpp  :0951
    LBL "IFNOT_62"                                     ; includes/geo.hpp  :0952
   FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_61"                ; includes/geo.hpp  :0953
   LBL "IFNOT_61"                                      ; 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
   QL88=0                                              ; includes/geo.hpp  :0973
   FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_63"               ; includes/geo.hpp  :0973
    LBL "FOR_63"                                       ; includes/geo.hpp  :0973
    QL88 = QL88 + 1                                    ; includes/geo.hpp  :0973
    LBL "FORCMP_63"                                    ; 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 QL88 )
    Q0 = STRCOMP( SRC_ QS2 SEA_ QS10 )                 ; includes/geo.hpp  :0977
     FN 10: IF Q0 NE 0 GOTO LBL "IFNOT_64"             ; includes/geo.hpp  :0977
     QS2 = "ApiSpin[" || TOCHAR( DAT+QL88 DECIMALS 0 ) || "].NN_SpiMotionRequest"
     READ FROM PLC KEY QS2 TO QL88                     ; includes/geo.hpp  :0980
      FN 10: IF QL88 NE 0 GOTO LBL "IFNOT_65"          ; includes/geo.hpp  :0981
      FN 14: ERROR= 1000                               ; includes/geo.hpp  :0983
      LBL "IFNOT_65"                                   ; includes/geo.hpp  :0984
     FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_63"             ; includes/geo.hpp  :0985
     LBL "IFNOT_64"                                    ; includes/geo.hpp  :0986
    FN 9: IF 0 EQU 0 GOTO LBL "FOR_63"                 ; includes/geo.hpp  :0987
    LBL "FORNOT_63"                                    ; includes/geo.hpp  :0987
   LBL 9991                                            ; includes/geo.hpp  :0988
   LBL "ENDIF_61"                                      ; includes/geo.hpp  :0989
  LBL "ENDIF_58"                                       ; includes/geo.hpp  :0990
 LBL "IFNOT_57"                                        ; includes/geo.hpp  :0991
LBL 0                                                  ; includes/stdlib.hh:0133
LBL "swap_axes"                                        ; includes/stdlib.hh:0120
 FN 17: SYSWRITE ID 212 = QL66                         ; includes/geo.hpp  :0841
LBL 0                                                  ; includes/stdlib.hh:0120
LBL "check_depth_sign"                                 ; includes/stdlib.hh:0128
 FN 9: IF QL67 EQU 0 GOTO LBL "IFNOT_66"               ; includes/geo.hpp  :0880
 FN 12: IF QL67 LT 0 GOTO LBL "IFNOT_66"               ; 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
 QL90 = CFGREAD( KEY_ QS3 TAG_ QS4 ATR_ QS5 )          ; includes/geo.hpp  :0888
  FN 10: IF QL90 NE 1 GOTO LBL "IFNOT_67"              ; includes/geo.hpp  :0890
  FN 14: ERROR= 1077                                   ; includes/geo.hpp  :0891
  LBL "IFNOT_67"                                       ; includes/geo.hpp  :0891
 LBL "IFNOT_66"                                        ; includes/geo.hpp  :0892
LBL 0                                                  ; includes/stdlib.hh:0128
LBL "256$RecStud.rec_stud_ap"                          ; includes/mill.hpp :0059
 FN 11: IF QL85 GT QL83 GOTO LBL "IF_68"               ; includes/mill.hpp :1132
 FN 11: IF QL86 GT QL84 GOTO LBL "IF_68"               ; includes/mill.hpp :1132
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_68"                  ; includes/mill.hpp :1132
 LBL "IF_68"                                           ; includes/mill.hpp :1132
 FN 14: ERROR= 1098                                    ; includes/mill.hpp :1134
 LBL "IFNOT_68"                                        ; includes/mill.hpp :1135
 FN 12: IF QL29 LT 0 GOTO LBL "IFNOT_69"               ; includes/mill.hpp :1140
  FN 10: IF QL18 NE 1 GOTO LBL "IFNOT_70"              ; includes/mill.hpp :1142
  QL103 = QL16 - 2                                     ; includes/mill.hpp :1144
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_70"                 ; includes/mill.hpp :1145
  LBL "IFNOT_70"                                       ; includes/mill.hpp :1145
  QL103 = QL16 + 2                                     ; includes/mill.hpp :1148
  LBL "ENDIF_70"                                       ; includes/mill.hpp :1149
 FN 17: SYSWRITE ID 210 NR 3 = QL103                   ; includes/mill.hpp :1150
 LBL "IFNOT_69"                                        ; includes/mill.hpp :1151
 QL91 = QL83 / 2                                       ; includes/mill.hpp :1155
 QL92 = QL84 / 2                                       ; includes/mill.hpp :1156
 QL93 = QL85 / 2                                       ; includes/mill.hpp :1157
 QL94 = QL86 / 2                                       ; includes/mill.hpp :1158
 QL95 = QL91 - QL93                                    ; includes/mill.hpp :1162
 QL96 = QL92 - QL94                                    ; includes/mill.hpp :1163
 FN 9: IF QL95 EQU QL96 GOTO LBL "IFNOT_71"            ; includes/mill.hpp :1164
 FN 12: IF QL95 LT QL96 GOTO LBL "IFNOT_71"            ; includes/mill.hpp :1164
 QL101 = QL95 / QL26                                   ; includes/mill.hpp :1166
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_71"                  ; includes/mill.hpp :1167
 LBL "IFNOT_71"                                        ; includes/mill.hpp :1167
 QL101 = QL96 / QL26                                   ; includes/mill.hpp :1170
 LBL "ENDIF_71"                                        ; includes/mill.hpp :1171
 QL101 = INT( QL101 + 0.99 )                           ; includes/mill.hpp :0271
 FN 10: IF QL101 NE 0 GOTO LBL "IFNOT_72"              ; includes/mill.hpp :0272
 QL101 = 1                                             ; includes/mill.hpp :0272
 LBL "IFNOT_72"                                        ; includes/mill.hpp :0272
 LBL "e_256$RecStud$int_infeeds2"                      ; includes/mill.hpp :0040
 FN 9: IF QL101 EQU 1 GOTO LBL "IFNOT_73"              ; includes/mill.hpp :1173
 FN 11: IF QL101 GT 1 GOTO LBL "IFNOT_73"              ; includes/mill.hpp :1173
 QL101 = 1                                             ; includes/mill.hpp :1173
 LBL "IFNOT_73"                                        ; includes/mill.hpp :1173
 QL95 = QL95 / QL101                                   ; includes/mill.hpp :1174
 QL96 = QL96 / QL101                                   ; includes/mill.hpp :1175
 QL97 = QL91 + QL34                                    ; includes/mill.hpp :1179
 QL98 = QL92                                           ; includes/mill.hpp :1180
 FN 9: IF QL30 EQU QL31 GOTO LBL "IFNOT_74"            ; includes/mill.hpp :1181
 FN 12: IF QL30 LT QL31 GOTO LBL "IFNOT_74"            ; includes/mill.hpp :1181
 QL97 = QL97 + QL30                                    ; includes/mill.hpp :1183
 QL98 = QL98 + QL30                                    ; includes/mill.hpp :1184
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_74"                  ; includes/mill.hpp :1185
 LBL "IFNOT_74"                                        ; includes/mill.hpp :1185
 QL97 = QL97 + QL31                                    ; includes/mill.hpp :1188
 QL98 = QL98 + QL31                                    ; includes/mill.hpp :1189
 LBL "ENDIF_74"                                        ; includes/mill.hpp :1190
 Q0 = QL82-QL21                                        ; includes/mill.hpp :1194
 QL104 = -QL97                                         ; includes/mill.hpp :1194
 QL105 = -QL98                                         ; includes/mill.hpp :1194
 QL106 = 0                                             ; includes/mill.hpp :1194
 QL107 = QL34                                          ; includes/mill.hpp :1194
 QL108 = QL35                                          ; includes/mill.hpp :1194
 QL109 = Q0                                            ; includes/mill.hpp :1194
 CALL LBL "prepos"
 Z+QL82 F QL24                                         ; includes/mill.hpp :1195
 QL102=1                                               ; includes/mill.hpp :1196
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_75"                 ; includes/mill.hpp :1196
 LBL "FOR_75"                                          ; includes/mill.hpp :1196
 QL102 = QL102 + 1                                     ; includes/mill.hpp :1196
 LBL "FORCMP_75"                                       ; includes/mill.hpp :1196
 FN 11: IF QL102 GT QL101 GOTO LBL "FORNOT_75"         ; includes/mill.hpp :1196
 QL99 = QL91 - (QL102 * QL95)                          ; includes/mill.hpp :1198
 QL100 = QL92 - (QL102 * QL96)                         ; includes/mill.hpp :1199
  FN 10: IF QL102 NE 1 GOTO LBL "IFNOT_76"             ; includes/mill.hpp :1200
  X-QL99 R- F QL22                                     ; includes/mill.hpp :1202
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_76"                 ; includes/mill.hpp :1203
  LBL "IFNOT_76"                                       ; includes/mill.hpp :1203
  X-QL99                                               ; includes/mill.hpp :1206
  LBL "ENDIF_76"                                       ; includes/mill.hpp :1207
 Y+QL100 R+                                            ; includes/mill.hpp :1208
 X+QL99                                                ; includes/mill.hpp :1209
 Y-QL100                                               ; includes/mill.hpp :1210
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_75"                    ; includes/mill.hpp :1211
 LBL "FORNOT_75"                                       ; includes/mill.hpp :1211
 Q0 = QL99+QL31                                        ; includes/mill.hpp :1212
 X-Q0 R0                                               ; includes/mill.hpp :1212
 Q0 = QL100+QL31                                       ; includes/mill.hpp :1213
 Y-Q0 R0                                               ; includes/mill.hpp :1213
 FN 12: IF QL29 LT 0 GOTO LBL "IFNOT_77"               ; includes/mill.hpp :1217
 FN 17: SYSWRITE ID 210 NR 3 = QL16                    ; includes/mill.hpp :1219
 LBL "IFNOT_77"                                        ; includes/mill.hpp :1220
LBL 0                                                  ; includes/mill.hpp :0059
LBL "state_exec"                                       ; includes/stdlib.hh:0076
 FN 18: SYSREAD QL89 = ID 992 NR 11                    ; includes/geo.hpp  :0583
 FN 10: IF QL89 NE 1 GOTO LBL "IFNOT_78"               ; includes/geo.hpp  :0584
 QL89 = 3                                              ; includes/geo.hpp  :0586
 LBL 0                                                 ; includes/geo.hpp  :0587
 LBL "IFNOT_78"                                        ; includes/geo.hpp  :0588
 FN 18: SYSREAD QL89 = ID 992 NR 16                    ; includes/geo.hpp  :0590
 FN 10: IF QL89 NE 0 GOTO LBL "IFNOT_79"               ; includes/geo.hpp  :0591
 QL89 = 1                                              ; includes/geo.hpp  :0593
 LBL 0                                                 ; includes/geo.hpp  :0594
 LBL "IFNOT_79"                                        ; includes/geo.hpp  :0595
 FN 18: SYSREAD QL89 = ID 992 NR 10                    ; includes/geo.hpp  :0597
 FN 10: IF QL89 NE 1 GOTO LBL "IFNOT_80"               ; includes/geo.hpp  :0598
 QL89 = 2                                              ; includes/geo.hpp  :0600
 LBL 0                                                 ; includes/geo.hpp  :0601
 LBL "IFNOT_80"                                        ; includes/geo.hpp  :0602
 QL89 = 0                                              ; includes/geo.hpp  :0603
 LBL 0                                                 ; includes/geo.hpp  :0604
LBL 0                                                  ; includes/stdlib.hh:0076
LBL "prepos"                                           ; includes/stdlib.hh:0108
 QL50 = QL108                                          ; includes/geo.hpp  :0780
 QL51 = QL109                                          ; includes/geo.hpp  :0780
 QL52 = QL106                                          ; 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_81"                 ; includes/geo.hpp  :0784
 L  X+QL104 Y+QL105 R0 FMAX                            ; includes/geo.hpp  :0786
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_81"                  ; includes/geo.hpp  :0787
 LBL "IFNOT_81"                                        ; includes/geo.hpp  :0787
 X+QL104 R0 FMAX                                       ; includes/geo.hpp  :0790
 Y+QL105 R0 FMAX                                       ; includes/geo.hpp  :0791
 LBL "ENDIF_81"                                        ; includes/geo.hpp  :0792
 Q0 = QL106 - (ABS(QL107) * SGN(QL109))                ; includes/geo.hpp  :0794
 Z+Q0 FMAX                                             ; includes/geo.hpp  :0794
LBL 0                                                  ; includes/stdlib.hh:0108
LBL "EXIT"                                             ;                   :-001
END PGM MM
