BEGIN PGM 5.h MM ; h++ 2 13 8 2015_05_07
 FN 18: SYSREAD QL0   = ID 30 NR 1                     ; src/5.hpp         :0034
 FN 18: SYSREAD QL1        = ID 30 NR 2                ; src/5.hpp         :0035
 FN 18: SYSREAD QL2  = ID 30 NR 3                      ; src/5.hpp         :0036
 FN 18: SYSREAD QL3   = ID 30 NR 4                     ; src/5.hpp         :0037
 FN 18: SYSREAD QL4 = ID 30 NR 9                       ; src/5.hpp         :0038
 FN 18: SYSREAD QL5         = ID 30 NR 10              ; src/5.hpp         :0039
 FN 18: SYSREAD QL17   = ID 30 NR 11                   ; src/5.hpp         :0040
 FN 18: SYSREAD Q0 = ID 20 NR 5                        ; src/5.hpp         :0044
 FN 10: IF Q0 NE 1 GOTO LBL "IFNOT_1"                  ; src/5.hpp         :0044
  FN 9: IF QL17 EQU -1 GOTO LBL "CASE0_2"              ; src/5.hpp         :0049
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_2"              ; src/5.hpp         :0049
  LBL "CASE0_2"                                        ; src/5.hpp         :0051
  QL17 = 1                                             ; src/5.hpp         :0052
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_2"              ; src/5.hpp         :0053
  LBL "SWITCHDEF_2"                                    ; src/5.hpp         :0054
  QL17 = -1                                            ; src/5.hpp         :0055
  LBL "SWITCHEND_2"                                    ; src/5.hpp         :0056
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_1"                   ; src/5.hpp         :0057
 LBL "IFNOT_1"                                         ; src/5.hpp         :0057
  FN 9: IF QL17 EQU -1 GOTO LBL "CASE0_3"              ; src/5.hpp         :0063
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_3"              ; src/5.hpp         :0063
  LBL "CASE0_3"                                        ; src/5.hpp         :0065
  QL17 = -1                                            ; src/5.hpp         :0066
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_3"              ; src/5.hpp         :0067
  LBL "SWITCHDEF_3"                                    ; src/5.hpp         :0068
  QL17 = 1                                             ; src/5.hpp         :0069
  LBL "SWITCHEND_3"                                    ; src/5.hpp         :0070
 LBL "ENDIF_1"                                         ; src/5.hpp         :0071
 QS3 = SYSSTR( ID10025 NR1 )                           ; src/5.hpp         :0075
 QS4 = "CfgGeoCycle"                                   ; src/5.hpp         :0076
 QS5 = "pocketOverlap"                                 ; src/5.hpp         :0077
 QL6 = CFGREAD( KEY_ QS3 TAG_ QS4 ATR_ QS5 )           ; src/5.hpp         :0078
 FN 9: IF QL2 EQU 0 GOTO LBL "IFNOT_4"                 ; src/5.hpp         :0082
 QL16 = ABS( QL2 )                                     ; src/5.hpp         :0084
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_4"                   ; src/5.hpp         :0085
 LBL "IFNOT_4"                                         ; src/5.hpp         :0085
 FN 14: ERROR= 1090                                    ; src/5.hpp         :0088
 LBL "ENDIF_4"                                         ; src/5.hpp         :0089
 QL18 = SGN( QL1 )                                     ; src/5.hpp         :0093
 QL0 = ABS( QL0 )                                      ; src/5.hpp         :0094
 CALL LBL "read_wcs"
 QL7 = QL19                                            ; src/5.hpp         :0095
 QL8 = QL20                                            ; src/5.hpp         :0095
 QL9 = QL21                                            ; src/5.hpp         :0095
 QL9 = QL9 + ( QL0 * QL18 )                            ; src/5.hpp         :0096
 QL15 = QL9 + QL1                                      ; src/5.hpp         :0097
 CALL LBL "5$CirPocket.PRINT"
 CALL LBL "5$CirPocket.MILL"
 QL51 = QL17                                           ; src/5.hpp         :0099
 QL52 = QL9                                            ; src/5.hpp         :0099
 QL53 = QL0                                            ; src/5.hpp         :0099
 QL54 = QL0                                            ; src/5.hpp         :0099
 QL55 = QL6                                            ; src/5.hpp         :0099
 QL56 = QL1                                            ; src/5.hpp         :0099
 CALL LBL "5$CirPocket.init"
 QL57 = QL5                                            ; src/5.hpp         :0100
 QL58 = QL5                                            ; src/5.hpp         :0100
 QL59 = QL3                                            ; src/5.hpp         :0100
 QL60 = -57239891                                      ; src/5.hpp         :0100
 CALL LBL "5$CirPocket.set_feed"
 Q0 = QL4-0.001                                        ; src/5.hpp         :0104
 FN 11: IF Q0 GT QL46 GOTO LBL "IFNOT_5"               ; src/5.hpp         :0104
 FN 14: ERROR= 1103                                    ; src/5.hpp         :0106
 LBL "IFNOT_5"                                         ; src/5.hpp         :0107
 CALL LBL "5$CirPocket.get_ToolLCut"
 QL10 = QL61                                           ; src/5.hpp         :0108
 FN 9: IF QL16 EQU QL10 GOTO LBL "IFNOT_6"             ; src/5.hpp         :0109
 FN 12: IF QL16 LT QL10 GOTO LBL "IFNOT_6"             ; src/5.hpp         :0109
 FN 9: IF QL10 EQU 0 GOTO LBL "IFNOT_6"                ; src/5.hpp         :0109
 FN 12: IF QL10 LT 0 GOTO LBL "IFNOT_6"                ; src/5.hpp         :0109
 QL16 = QL10                                           ; src/5.hpp         :0111
 LBL "IFNOT_6"                                         ; src/5.hpp         :0112
 QL11 = QL4 - 0.001                                    ; src/5.hpp         :0116
 QL16 = QL16 * QL18                                    ; src/5.hpp         :0120
 QL13=QL9+QL16                                         ; src/5.hpp         :0121
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_7"                  ; src/5.hpp         :0121
 LBL "FOR_7"                                           ; src/5.hpp         :0121
 QL13=QL13+QL16                                        ; src/5.hpp         :0121
 LBL "FORCMP_7"                                        ; src/5.hpp         :0121
  FN 10: IF QL18 NE -1 GOTO LBL "CTRLCMD0_8"           ; src/5.hpp         :0123
  FN 11: IF QL13 GT QL15 GOTO LBL "CTRLCMD0_8"         ; src/5.hpp         :0123
  FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_7"                 ; src/5.hpp         :0123
  LBL "CTRLCMD0_8"                                     ; src/5.hpp         :0123
  FN 10: IF QL18 NE +1 GOTO LBL "CTRLCMD1_9"           ; src/5.hpp         :0124
  FN 12: IF QL13 LT QL15 GOTO LBL "CTRLCMD1_9"         ; src/5.hpp         :0124
  FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_7"                 ; src/5.hpp         :0124
  LBL "CTRLCMD1_9"                                     ; src/5.hpp         :0124
 QL62 = 0                                              ; src/5.hpp         :0125
 QL63 = 0                                              ; src/5.hpp         :0125
 QL64 = QL7                                            ; src/5.hpp         :0125
 QL65 = QL8                                            ; src/5.hpp         :0125
 QL66 = QL13                                           ; src/5.hpp         :0125
 QL67 = QL4                                            ; src/5.hpp         :0125
 QL68 = QL12                                           ; src/5.hpp         :0125
 QL69 = QL4                                            ; src/5.hpp         :0125
 QL70 = 0                                              ; src/5.hpp         :0125
 QL71 = 0                                              ; src/5.hpp         :0125
 CALL LBL "5$CirPocket.cir_pocket"
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_7"                     ; src/5.hpp         :0126
 LBL "FORNOT_7"                                        ; src/5.hpp         :0126
 QL62 = 0                                              ; src/5.hpp         :0130
 QL63 = 0                                              ; src/5.hpp         :0130
 QL64 = QL7                                            ; src/5.hpp         :0130
 QL65 = QL8                                            ; src/5.hpp         :0130
 QL66 = QL15                                           ; src/5.hpp         :0130
 QL67 = QL4                                            ; src/5.hpp         :0130
 QL68 = QL12                                           ; src/5.hpp         :0130
 QL69 = QL4                                            ; src/5.hpp         :0130
 QL70 = 0                                              ; src/5.hpp         :0130
 QL71 = 0                                              ; src/5.hpp         :0130
 CALL LBL "5$CirPocket.cir_pocket"
 L  Z+QL50 R0 FMAX                                     ; src/5.hpp         :0134
 L  X+QL7 Y+QL8 R0 FMAX                                ; src/5.hpp         :0135
LBL "e_50"                                             ; src/5.hpp         :0008
FN 9: IF 0 EQU 0 GOTO LBL "EXIT"                       ;                   :-001
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_10"                 ; includes/geo.hpp  :0618
 FN 17: SYSWRITE ID 991 NR 100 = 1                     ; includes/geo.hpp  :0620
 LBL "IFNOT_10"                                        ; 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_11"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 6 GOTO LBL "CASE1_11"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 1 GOTO LBL "CASE2_11"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 7 GOTO LBL "CASE3_11"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 2 GOTO LBL "CASE4_11"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 8 GOTO LBL "CASE5_11"                 ; includes/geo.hpp  :0627
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"              ; includes/geo.hpp  :0627
 LBL "CASE0_11"                                        ; includes/geo.hpp  :0629
 LBL "CASE1_11"                                        ; includes/geo.hpp  :0630
 FN 18: SYSREAD QL19 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0631
 FN 18: SYSREAD QL20 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0632
 FN 18: SYSREAD QL21 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0633
 LBL 0                                                 ; includes/geo.hpp  :0634
 LBL "CASE2_11"                                        ; includes/geo.hpp  :0635
 LBL "CASE3_11"                                        ; includes/geo.hpp  :0636
 FN 18: SYSREAD QL19 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0637
 FN 18: SYSREAD QL20 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0638
 FN 18: SYSREAD QL21 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0639
 LBL 0                                                 ; includes/geo.hpp  :0640
 LBL "CASE4_11"                                        ; includes/geo.hpp  :0641
 LBL "CASE5_11"                                        ; includes/geo.hpp  :0642
 FN 18: SYSREAD QL19 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0643
 FN 18: SYSREAD QL20 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0644
 FN 18: SYSREAD QL21 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0645
 LBL 0                                                 ; includes/geo.hpp  :0646
 LBL "SWITCHEND_11"                                    ; includes/geo.hpp  :0647
LBL 0                                                  ; includes/stdlib.hh:0081
LBL "5$CirPocket.PRINT"                                ; src/print/print.hpp:0059
 FN 18: SYSREAD QL22 = ID 992 NR 16                    ; src/print/print.hpp:0088
 FN 10: IF QL22 NE 1 GOTO LBL "IFNOT_12"               ; 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
 QL73 = 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 QL73 EQU 1 GOTO LBL "CASE0_13"              ; src/print/print.hpp:0105
  FN 9: IF QL73 EQU 2 GOTO LBL "CASE1_13"              ; src/print/print.hpp:0105
  FN 9: IF QL73 EQU 3 GOTO LBL "CASE2_13"              ; src/print/print.hpp:0105
  FN 9: IF QL73 EQU 4 GOTO LBL "CASE3_13"              ; src/print/print.hpp:0105
  FN 9: IF QL73 EQU 5 GOTO LBL "CASE4_13"              ; src/print/print.hpp:0105
  FN 9: IF QL73 EQU 6 GOTO LBL "CASE5_13"              ; src/print/print.hpp:0105
  FN 9: IF QL73 EQU 7 GOTO LBL "CASE6_13"              ; src/print/print.hpp:0105
  FN 9: IF QL73 EQU 8 GOTO LBL "CASE7_13"              ; src/print/print.hpp:0105
  FN 9: IF QL73 EQU 9 GOTO LBL "CASE8_13"              ; src/print/print.hpp:0105
  FN 9: IF QL73 EQU 10 GOTO LBL "CASE9_13"             ; src/print/print.hpp:0105
  FN 9: IF QL73 EQU 11 GOTO LBL "CASE10_13"            ; src/print/print.hpp:0105
  FN 9: IF QL73 EQU 12 GOTO LBL "CASE11_13"            ; src/print/print.hpp:0105
  FN 9: IF QL73 EQU 17 GOTO LBL "CASE12_13"            ; src/print/print.hpp:0105
  FN 9: IF QL73 EQU 21 GOTO LBL "CASE13_13"            ; src/print/print.hpp:0105
  FN 9: IF QL73 EQU 22 GOTO LBL "CASE14_13"            ; src/print/print.hpp:0105
  FN 9: IF QL73 EQU 23 GOTO LBL "CASE15_13"            ; src/print/print.hpp:0105
  FN 9: IF QL73 EQU 24 GOTO LBL "CASE16_13"            ; src/print/print.hpp:0105
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_13"             ; src/print/print.hpp:0105
  LBL "CASE0_13"                                       ; src/print/print.hpp:0106
  QS11 = QS11 || "\DE.TAB"                             ; src/print/print.hpp:0107
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"             ; src/print/print.hpp:0108
  LBL "CASE1_13"                                       ; src/print/print.hpp:0109
  QS11 = QS11 || "\CS.TAB"                             ; src/print/print.hpp:0110
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"             ; src/print/print.hpp:0111
  LBL "CASE2_13"                                       ; src/print/print.hpp:0112
  QS11 = QS11 || "\FR.TAB"                             ; src/print/print.hpp:0113
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"             ; src/print/print.hpp:0114
  LBL "CASE3_13"                                       ; src/print/print.hpp:0115
  QS11 = QS11 || "\IT.TAB"                             ; src/print/print.hpp:0116
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"             ; src/print/print.hpp:0117
  LBL "CASE4_13"                                       ; src/print/print.hpp:0118
  QS11 = QS11 || "\ES.TAB"                             ; src/print/print.hpp:0119
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"             ; src/print/print.hpp:0120
  LBL "CASE5_13"                                       ; src/print/print.hpp:0121
  QS11 = QS11 || "\PT.TAB"                             ; src/print/print.hpp:0122
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"             ; src/print/print.hpp:0123
  LBL "CASE6_13"                                       ; src/print/print.hpp:0124
  QS11 = QS11 || "\SV.TAB"                             ; src/print/print.hpp:0125
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"             ; src/print/print.hpp:0126
  LBL "CASE7_13"                                       ; src/print/print.hpp:0127
  QS11 = QS11 || "\DA.TAB"                             ; src/print/print.hpp:0128
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"             ; src/print/print.hpp:0129
  LBL "CASE8_13"                                       ; src/print/print.hpp:0130
  QS11 = QS11 || "\FI.TAB"                             ; src/print/print.hpp:0131
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"             ; src/print/print.hpp:0132
  LBL "CASE9_13"                                       ; src/print/print.hpp:0133
  QS11 = QS11 || "\NL.TAB"                             ; src/print/print.hpp:0134
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"             ; src/print/print.hpp:0135
  LBL "CASE10_13"                                      ; src/print/print.hpp:0136
  QS11 = QS11 || "\PL.TAB"                             ; src/print/print.hpp:0137
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"             ; src/print/print.hpp:0138
  LBL "CASE11_13"                                      ; src/print/print.hpp:0139
  QS11 = QS11 || "\HU.TAB"                             ; src/print/print.hpp:0140
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"             ; src/print/print.hpp:0141
  LBL "CASE12_13"                                      ; src/print/print.hpp:0142
  QS11 = QS11 || "\SL.TAB"                             ; src/print/print.hpp:0143
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"             ; src/print/print.hpp:0144
  LBL "CASE13_13"                                      ; src/print/print.hpp:0145
  QS11 = QS11 || "\NB.TAB"                             ; src/print/print.hpp:0146
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"             ; src/print/print.hpp:0147
  LBL "CASE14_13"                                      ; src/print/print.hpp:0148
  QS11 = QS11 || "\RO.TAB"                             ; src/print/print.hpp:0149
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"             ; src/print/print.hpp:0150
  LBL "CASE15_13"                                      ; src/print/print.hpp:0151
  QS11 = QS11 || "\SK.TAB"                             ; src/print/print.hpp:0152
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"             ; src/print/print.hpp:0153
  LBL "CASE16_13"                                      ; src/print/print.hpp:0154
  QS11 = QS11 || "\TR.TAB"                             ; src/print/print.hpp:0155
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"             ; src/print/print.hpp:0156
  LBL "SWITCHDEF_13"                                   ; src/print/print.hpp:0157
  QS11 = QS11 || "\EN.TAB"                             ; src/print/print.hpp:0158
  LBL "SWITCHEND_13"                                   ; src/print/print.hpp:0159
 LBL "IFNOT_12"                                        ; src/print/print.hpp:0160
LBL 0                                                  ; src/print/print.hpp:0059
LBL "5$CirPocket.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
 QL24 = STRCOMP( SRC_ QS3 SEA_ QS0 )                   ; includes/mill.hpp :0075
 FN 9: IF QL24 EQU 0 GOTO LBL "IFNOT_14"               ; includes/mill.hpp :0076
 QL24 = 1                                              ; includes/mill.hpp :0076
 LBL "IFNOT_14"                                        ; includes/mill.hpp :0076
 FN 18: SYSREAD QL25 = ID 20 NR 3                      ; includes/mill.hpp :0080
 FN 18: SYSREAD QL48 = ID 200 NR 3 IDX 2               ; includes/mill.hpp :0084
 FN 18: SYSREAD QL31 = ID 210 NR 3                     ; includes/mill.hpp :0089
 FN 9: IF QL25 EQU 0 GOTO LBL "CASE0_15"               ; includes/mill.hpp :0090
 FN 9: IF QL25 EQU 6 GOTO LBL "CASE1_15"               ; includes/mill.hpp :0090
 FN 9: IF QL25 EQU 1 GOTO LBL "CASE2_15"               ; includes/mill.hpp :0090
 FN 9: IF QL25 EQU 7 GOTO LBL "CASE3_15"               ; includes/mill.hpp :0090
 FN 9: IF QL25 EQU 2 GOTO LBL "CASE4_15"               ; includes/mill.hpp :0090
 FN 9: IF QL25 EQU 8 GOTO LBL "CASE5_15"               ; includes/mill.hpp :0090
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_15"              ; includes/mill.hpp :0090
 LBL "CASE0_15"                                        ; includes/mill.hpp :0091
 LBL "CASE1_15"                                        ; includes/mill.hpp :0092
 FN 18: SYSREAD QL28 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0093
 FN 18: SYSREAD QL29 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0094
 FN 18: SYSREAD QL30 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0095
 QL75 = QL31                                           ; includes/mill.hpp :0096
 QL76 = 1                                              ; includes/mill.hpp :0096
 CALL LBL "check_bit"
 QL32 = QL77                                           ; includes/mill.hpp :0096
 QL75 = QL31                                           ; includes/mill.hpp :0097
 QL76 = 2                                              ; includes/mill.hpp :0097
 CALL LBL "check_bit"
 QL33 = QL77                                           ; includes/mill.hpp :0097
 QL75 = QL31                                           ; includes/mill.hpp :0098
 QL76 = 0                                              ; includes/mill.hpp :0098
 CALL LBL "check_bit"
 QL34 = QL77                                           ; includes/mill.hpp :0098
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_15"              ; includes/mill.hpp :0099
 LBL "CASE2_15"                                        ; includes/mill.hpp :0100
 LBL "CASE3_15"                                        ; includes/mill.hpp :0101
 FN 18: SYSREAD QL28 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0102
 FN 18: SYSREAD QL29 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0103
 FN 18: SYSREAD QL30 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0104
 QL75 = QL31                                           ; includes/mill.hpp :0105
 QL76 = 2                                              ; includes/mill.hpp :0105
 CALL LBL "check_bit"
 QL32 = QL77                                           ; includes/mill.hpp :0105
 QL75 = QL31                                           ; includes/mill.hpp :0106
 QL76 = 0                                              ; includes/mill.hpp :0106
 CALL LBL "check_bit"
 QL33 = QL77                                           ; includes/mill.hpp :0106
 QL75 = QL31                                           ; includes/mill.hpp :0107
 QL76 = 1                                              ; includes/mill.hpp :0107
 CALL LBL "check_bit"
 QL34 = QL77                                           ; includes/mill.hpp :0107
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_15"              ; includes/mill.hpp :0108
 LBL "CASE4_15"                                        ; includes/mill.hpp :0109
 LBL "CASE5_15"                                        ; includes/mill.hpp :0110
 FN 18: SYSREAD QL28 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0111
 FN 18: SYSREAD QL29 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0112
 FN 18: SYSREAD QL30 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0113
 QL75 = QL31                                           ; includes/mill.hpp :0114
 QL76 = 0                                              ; includes/mill.hpp :0114
 CALL LBL "check_bit"
 QL32 = QL77                                           ; includes/mill.hpp :0114
 QL75 = QL31                                           ; includes/mill.hpp :0115
 QL76 = 1                                              ; includes/mill.hpp :0115
 CALL LBL "check_bit"
 QL33 = QL77                                           ; includes/mill.hpp :0115
 QL75 = QL31                                           ; includes/mill.hpp :0116
 QL76 = 2                                              ; includes/mill.hpp :0116
 CALL LBL "check_bit"
 QL34 = QL77                                           ; includes/mill.hpp :0116
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_15"              ; includes/mill.hpp :0117
 LBL "SWITCHEND_15"                                    ; includes/mill.hpp :0118
 FN 9: IF QL28 EQU QL29 GOTO LBL "IFNOT_16"            ; includes/mill.hpp :0119
 FN 14: ERROR= 1108                                    ; includes/mill.hpp :0119
 LBL "IFNOT_16"                                        ; includes/mill.hpp :0119
 QL44 = 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_17"                 ; includes/mill.hpp :0129
 QL35 = 0.002                                          ; includes/mill.hpp :0130
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_17"                  ; includes/mill.hpp :0131
 LBL "IFNOT_17"                                        ; includes/mill.hpp :0131
 QL35 = 0.0002                                         ; includes/mill.hpp :0133
 LBL "ENDIF_17"                                        ; includes/mill.hpp :0134
 FN 18: SYSREAD QL23 = ID 992 NR 30                    ; includes/mill.hpp :0135
 FN 18: SYSREAD QL43 = ID 610 NR 6                     ; includes/mill.hpp :0136
 FN 18: SYSREAD QL27 = ID 950 NR 13                    ; includes/mill.hpp :0140
 FN 18: SYSREAD QL26 = ID 950 NR 14                    ; includes/mill.hpp :0141
 FN 18: SYSREAD QL45 = ID 200 NR 1 IDX 2               ; includes/mill.hpp :0142
 FN 18: SYSREAD QL46 = ID 200 NR 1 IDX 3               ; includes/mill.hpp :0143
 FN 11: IF QL45 GT 0 GOTO LBL "IFNOT_18"               ; includes/mill.hpp :0144
 FN 14: ERROR= 1002                                    ; includes/mill.hpp :0144
 LBL "IFNOT_18"                                        ; includes/mill.hpp :0144
 FN 9: IF QL45 EQU QL46 GOTO LBL "IFNOT_19"            ; includes/mill.hpp :0145
 FN 12: IF QL45 LT QL46 GOTO LBL "IFNOT_19"            ; includes/mill.hpp :0145
 QL47 = QL45                                           ; includes/mill.hpp :0146
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_19"                  ; includes/mill.hpp :0147
 LBL "IFNOT_19"                                        ; includes/mill.hpp :0147
 QL47 = QL46                                           ; includes/mill.hpp :0149
 LBL "ENDIF_19"                                        ; includes/mill.hpp :0150
 QL45 = QL45 / QL28                                    ; includes/mill.hpp :0154
 QL46 = QL46 / QL28                                    ; includes/mill.hpp :0155
 QL47 = QL47 / QL28                                    ; includes/mill.hpp :0156
 QL27 = QL27 / QL30                                    ; includes/mill.hpp :0157
 CALL LBL "check_spindle_status"
 QL78 = 3                                              ; includes/mill.hpp :0165
 CALL LBL "swap_axes"
LBL 0                                                  ; includes/mill.hpp :0049
LBL "5$CirPocket.init"                                 ; includes/mill.hpp :0050
 FN 9: IF Q110 EQU 1 GOTO LBL "CASE0_20"               ; includes/mill.hpp :0175
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_20"              ; includes/mill.hpp :0175
 LBL "CASE0_20"                                        ; includes/mill.hpp :0177
 QL44 = +QL51                                          ; includes/mill.hpp :0178
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_20"              ; includes/mill.hpp :0179
 LBL "SWITCHDEF_20"                                    ; includes/mill.hpp :0180
 QL44 = -QL51                                          ; includes/mill.hpp :0181
 LBL "SWITCHEND_20"                                    ; includes/mill.hpp :0182
 FN 10: IF QL32 NE 1 GOTO LBL "IFNOT_21"               ; includes/mill.hpp :0183
 QL44 = -QL44                                          ; includes/mill.hpp :0185
 LBL "IFNOT_21"                                        ; includes/mill.hpp :0186
 FN 10: IF QL33 NE 1 GOTO LBL "IFNOT_22"               ; includes/mill.hpp :0187
 QL44 = -QL44                                          ; includes/mill.hpp :0189
 LBL "IFNOT_22"                                        ; includes/mill.hpp :0190
 QL41 = QL45 * QL55                                    ; includes/mill.hpp :0194
 QL79 = QL56                                           ; includes/mill.hpp :0198
 CALL LBL "check_depth_sign"
 FN 9: IF QL56 EQU 0 GOTO LBL "EXIT"                   ; includes/mill.hpp :0199
 QL42 = QL56                                           ; includes/mill.hpp :0200
 QL36 = QL52                                           ; includes/mill.hpp :0205
 QL49 = ABS( QL53 )                                    ; includes/mill.hpp :0206
 FN 9: IF QL49 EQU 0.001 GOTO LBL "IFNOT_24"           ; includes/mill.hpp :0207
 FN 11: IF QL49 GT 0.001 GOTO LBL "IFNOT_24"           ; includes/mill.hpp :0207
 QL49 = 0.001                                          ; includes/mill.hpp :0207
 LBL "IFNOT_24"                                        ; includes/mill.hpp :0207
 FN 9: IF QL54 EQU QL49 GOTO LBL "IFNOT_25"            ; includes/mill.hpp :0208
 FN 11: IF QL54 GT QL49 GOTO LBL "IFNOT_25"            ; includes/mill.hpp :0208
 QL50 = QL49                                           ; includes/mill.hpp :0210
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_25"                  ; includes/mill.hpp :0211
 LBL "IFNOT_25"                                        ; includes/mill.hpp :0211
 QL50 = QL54                                           ; includes/mill.hpp :0214
 LBL "ENDIF_25"                                        ; includes/mill.hpp :0215
 QL50 = QL36 - ( QL50 * SGN( QL42 ) )                  ; includes/mill.hpp :0216
LBL 0                                                  ; includes/mill.hpp :0050
LBL "5$CirPocket.set_feed"                             ; includes/mill.hpp :0051
 QL37 = QL57                                           ; includes/mill.hpp :0223
 QL38 = QL58                                           ; includes/mill.hpp :0224
 QL39 = QL59                                           ; includes/mill.hpp :0225
 FN 11: IF QL60 GT 0 GOTO LBL "IFNOT_26"               ; includes/mill.hpp :0226
  FN 9: IF QL60 EQU -57239891 GOTO LBL "IFNOT_27"      ; includes/mill.hpp :0228
  QL40 = QL37                                          ; includes/mill.hpp :0230
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_27"                 ; includes/mill.hpp :0231
  LBL "IFNOT_27"                                       ; includes/mill.hpp :0231
  FN 22: FUNCT QL57 FNR 910 PIN 59 PIN 2 PEX 40        ; includes/mill.hpp :0235
  LBL "ENDIF_27"                                       ; includes/mill.hpp :0236
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_26"                  ; includes/mill.hpp :0238
 LBL "IFNOT_26"                                        ; includes/mill.hpp :0238
 QL40 = QL60                                           ; includes/mill.hpp :0241
 LBL "ENDIF_26"                                        ; includes/mill.hpp :0242
LBL 0                                                  ; includes/mill.hpp :0051
LBL "5$CirPocket.get_ToolLCut"                         ; includes/mill.hpp :0054
 QL61 = QL27                                           ; includes/mill.hpp :0279
LBL 0                                                  ; includes/mill.hpp :0054
LBL "5$CirPocket.cir_pocket"                           ; includes/mill.hpp :0056
 FN 9: IF QL67 EQU QL46 GOTO LBL "IF_28"               ; includes/mill.hpp :0472
 FN 12: IF QL67 LT QL46 GOTO LBL "IF_28"               ; includes/mill.hpp :0472
 FN 11: IF QL68 GT QL67 GOTO LBL "IF_28"               ; includes/mill.hpp :0472
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_28"                  ; includes/mill.hpp :0472
 LBL "IF_28"                                           ; includes/mill.hpp :0472
 FN 14: ERROR= 1003                                    ; includes/mill.hpp :0474
 LBL "IFNOT_28"                                        ; includes/mill.hpp :0475
 TRANS DATUM AXIS IX+QL64 IY+QL65                      ; includes/mill.hpp :0480
 FN 12: IF QL44 LT 0 GOTO LBL "IFNOT_29"               ; includes/mill.hpp :0481
 QL98 = -QL70                                          ; includes/mill.hpp :0483
  FN 10: IF QL33 NE 1 GOTO LBL "IFNOT_30"              ; includes/mill.hpp :0484
  QL103 = QL31 - 2                                     ; includes/mill.hpp :0486
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_30"                 ; includes/mill.hpp :0487
  LBL "IFNOT_30"                                       ; includes/mill.hpp :0487
  QL103 = QL31 + 2                                     ; includes/mill.hpp :0490
  LBL "ENDIF_30"                                       ; includes/mill.hpp :0491
 FN 17: SYSWRITE ID 210 NR 3 = QL103                   ; includes/mill.hpp :0492
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_29"                  ; includes/mill.hpp :0493
 LBL "IFNOT_29"                                        ; includes/mill.hpp :0493
 QL98 = QL70                                           ; includes/mill.hpp :0496
 LBL "ENDIF_29"                                        ; includes/mill.hpp :0497
 FN 11: IF QL68 GT QL47 GOTO LBL "IFNOT_31"            ; includes/mill.hpp :0505
 CALL LBL "read_wcs"
 Q0 = QL21                                             ; includes/mill.hpp :0510
 QL83 = QL66 - Q0                                      ; includes/mill.hpp :0510
  FN 10: IF QL63 NE 1 GOTO LBL "IFNOT_32"              ; includes/mill.hpp :0511
  QL83 = QL83 - ( 0.9 * SGN( QL83 ) * QL49 )           ; includes/mill.hpp :0513
  LBL "IFNOT_32"                                       ; includes/mill.hpp :0514
  FN 10: IF QL26 NE 90 GOTO LBL "IFNOT_33"             ; includes/mill.hpp :0519
  QL62 = 0                                             ; includes/mill.hpp :0519
  LBL "IFNOT_33"                                       ; includes/mill.hpp :0519
  FN 9: IF QL62 EQU 0 GOTO LBL "CASE0_34"              ; includes/mill.hpp :0523
  FN 9: IF QL62 EQU 1 GOTO LBL "CASE1_34"              ; includes/mill.hpp :0523
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_34"             ; includes/mill.hpp :0523
  LBL "CASE0_34"                                       ; includes/mill.hpp :0525
  L  X+0 Y+0 R0 FMAX                                   ; includes/mill.hpp :0526
  L  Z+QL66 F QL39                                     ; includes/mill.hpp :0527
  QL68 = QL47                                          ; includes/mill.hpp :0528
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_34"             ; includes/mill.hpp :0529
  LBL "CASE1_34"                                       ; includes/mill.hpp :0530
   FN 10: IF QL26 NE 0 GOTO LBL "IFNOT_35"             ; includes/mill.hpp :0531
   FN 14: ERROR= 1083                                  ; includes/mill.hpp :0533
   LBL "IFNOT_35"                                      ; includes/mill.hpp :0534
  QL80 = QL45 * (15/16)                                ; includes/mill.hpp :0535
  Q0 = QL80 + QL47 + 0.005                             ; includes/mill.hpp :0536
   FN 9: IF Q0 EQU QL67 GOTO LBL "IFNOT_36"            ; includes/mill.hpp :0536
   FN 12: IF Q0 LT QL67 GOTO LBL "IFNOT_36"            ; includes/mill.hpp :0536
    FN 9: IF QL24 EQU 0 GOTO LBL "IFNOT_37"            ; includes/mill.hpp :0538
    FN 14: ERROR= 1104                                 ; includes/mill.hpp :0540
    LBL "IFNOT_37"                                     ; includes/mill.hpp :0541
   QL80 = QL67 - ( QL45 + 0.005 )                      ; includes/mill.hpp :0542
   LBL "IFNOT_36"                                      ; includes/mill.hpp :0543
  QL81 = 2 * QL80 * PI                                 ; includes/mill.hpp :0544
  QL82 = QL81 * TAN( QL26 )                            ; includes/mill.hpp :0545
  CC  X+0 Y+0                                          ; includes/mill.hpp :0546
  LP  PR+QL80 PA+QL98 R0 FMAX                          ; includes/mill.hpp :0547
   FN 10: IF QL63 NE 1 GOTO LBL "IFNOT_38"             ; includes/mill.hpp :0548
   Q0 = 0.9 * SGN( QL83 ) * QL49                       ; includes/mill.hpp :0550
   L IZ+Q0 R0 F QL39                                   ; includes/mill.hpp :0550
   LBL "IFNOT_38"                                      ; includes/mill.hpp :0551
  QL85 = ABS( QL83 / QL82 )                            ; includes/mill.hpp :0552
  QL85 = INT( QL85 + 0.99 )                            ; includes/mill.hpp :0271
   FN 10: IF QL85 NE 0 GOTO LBL "IFNOT_39"             ; includes/mill.hpp :0272
   QL85 = 1                                            ; includes/mill.hpp :0272
   LBL "IFNOT_39"                                      ; includes/mill.hpp :0272
  LBL "e_5$CirPocket$int_infeeds1"                     ; includes/mill.hpp :0040
  QL82 = QL83 / QL85                                   ; includes/mill.hpp :0554
  QL104=0                                              ; includes/mill.hpp :0555
  FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_40"                ; includes/mill.hpp :0555
   LBL "FOR_40"                                        ; includes/mill.hpp :0555
   QL104 = QL104 + 1                                   ; includes/mill.hpp :0555
   LBL "FORCMP_40"                                     ; includes/mill.hpp :0555
   FN 9: IF QL104 EQU QL85 GOTO LBL "FORNOT_40"        ; includes/mill.hpp :0555
   FN 11: IF QL104 GT QL85 GOTO LBL "FORNOT_40"        ; includes/mill.hpp :0555
   CP IPA+360 IZ+QL82 DR+ F QL39                       ; includes/mill.hpp :0557
   FN 9: IF 0 EQU 0 GOTO LBL "FOR_40"                  ; includes/mill.hpp :0558
   LBL "FORNOT_40"                                     ; includes/mill.hpp :0558
  CP IPA+360 DR+ F QL37                                ; includes/mill.hpp :0559
  QL68 = QL80 + QL47                                   ; includes/mill.hpp :0560
  Q0 = QL45 - QL48                                     ; includes/mill.hpp :0564
   FN 9: IF QL80 EQU Q0 GOTO LBL "IFNOT_41"            ; includes/mill.hpp :0564
   FN 12: IF QL80 LT Q0 GOTO LBL "IFNOT_41"            ; includes/mill.hpp :0564
   FN 9: IF QL68 EQU 0.001 GOTO LBL "IFNOT_41"         ; includes/mill.hpp :0564
   FN 12: IF QL68 LT 0.001 GOTO LBL "IFNOT_41"         ; includes/mill.hpp :0564
   Q1 = COS(QL98)*(QL80/2)                             ; includes/mill.hpp :0566
   Q2 = SIN(QL98)*(QL80/2)                             ; includes/mill.hpp :0566
   CC  X+Q1  Y+Q2                                      ; includes/mill.hpp :0566
   CP IPA+360 DR+                                      ; includes/mill.hpp :0567
   LBL "IFNOT_41"                                      ; includes/mill.hpp :0568
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_34"             ; includes/mill.hpp :0569
  LBL "SWITCHDEF_34"                                   ; includes/mill.hpp :0570
  FN 14: ERROR= 1011                                   ; includes/mill.hpp :0571
  LBL "SWITCHEND_34"                                   ; includes/mill.hpp :0572
 QL85 = (QL67 - QL68) / QL41                           ; includes/mill.hpp :0576
 QL85 = QL85 * 2                                       ; includes/mill.hpp :0577
 QL85 = INT( QL85 + 0.99 )                             ; includes/mill.hpp :0271
  FN 10: IF QL85 NE 0 GOTO LBL "IFNOT_42"              ; includes/mill.hpp :0272
  QL85 = 1                                             ; includes/mill.hpp :0272
  LBL "IFNOT_42"                                       ; includes/mill.hpp :0272
 LBL "e_5$CirPocket$int_infeeds2"                      ; includes/mill.hpp :0040
 QL86 = (QL67 - QL68) / ( QL85/2 )                     ; includes/mill.hpp :0579
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_31"                  ; includes/mill.hpp :0580
 LBL "IFNOT_31"                                        ; includes/mill.hpp :0580
 QL84 = QL68 - QL46 - QL49                             ; includes/mill.hpp :0586
  FN 9: IF QL84 EQU 0 GOTO LBL "IFNOT_43"              ; includes/mill.hpp :0587
  FN 11: IF QL84 GT 0 GOTO LBL "IFNOT_43"              ; includes/mill.hpp :0587
  QL84 = 0                                             ; includes/mill.hpp :0587
  LBL "IFNOT_43"                                       ; includes/mill.hpp :0587
 LP PR+QL84 PA+QL98 R0 FMAX                            ; includes/mill.hpp :0588
  FN 9: IF QL62 EQU 0 GOTO LBL "CASE0_44"              ; includes/mill.hpp :0589
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_44"             ; includes/mill.hpp :0589
  LBL "CASE0_44"                                       ; includes/mill.hpp :0591
  L  Z+QL66 F QL39                                     ; includes/mill.hpp :0592
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_44"             ; includes/mill.hpp :0593
  LBL "SWITCHDEF_44"                                   ; includes/mill.hpp :0594
  Q0 = QL66 - ( SGN( QL42 )* ( QL49/25 ) )             ; includes/mill.hpp :0595
  L  Z+Q0 F QL39                                       ; includes/mill.hpp :0595
  LBL "SWITCHEND_44"                                   ; includes/mill.hpp :0596
 QL85 = (QL67 - QL68) / QL41                           ; includes/mill.hpp :0600
 QL86 = QL41                                           ; includes/mill.hpp :0601
 QL85 = QL85 * 2                                       ; includes/mill.hpp :0602
 LBL "ENDIF_31"                                        ; includes/mill.hpp :0603
 FN 10: IF QL71 NE 1 GOTO LBL "IFNOT_45"               ; includes/mill.hpp :0607
 M110                                                  ; includes/mill.hpp :0607
 LBL "IFNOT_45"                                        ; includes/mill.hpp :0607
 FN 9: IF QL68 EQU QL46 GOTO LBL "IFNOT_46"            ; includes/mill.hpp :0611
 FN 11: IF QL68 GT QL46 GOTO LBL "IFNOT_46"            ; includes/mill.hpp :0611
 FN 14: ERROR= 1003                                    ; includes/mill.hpp :0613
 LBL "IFNOT_46"                                        ; includes/mill.hpp :0614
 QL87 = FRAC( QL85 ) * 180                             ; includes/mill.hpp :0618
 CC  X+0 Y+0                                           ; includes/mill.hpp :0619
 LP PR+QL68 PA+QL98 RL F QL37                          ; includes/mill.hpp :0620
 FN 9: IF QL87 EQU 0 GOTO LBL "IFNOT_47"               ; includes/mill.hpp :0624
 FN 12: IF QL87 LT 0 GOTO LBL "IFNOT_47"               ; includes/mill.hpp :0624
 QL85 = INT( QL85 )                                    ; includes/mill.hpp :0626
 QL95 = QL67 - QL85*(QL41 / 2)                         ; includes/mill.hpp :0627
 QL88 = ACOS ( ( SQ( QL47 ) - SQ( QL95 - QL47 ) - SQ( QL68 )) / -( 2 * ( QL95 - QL47 ) * QL68 ))
 Q0 = QL88 + 15                                        ; includes/mill.hpp :0629
  FN 9: IF QL87 EQU Q0 GOTO LBL "IFNOT_48"             ; includes/mill.hpp :0629
  FN 11: IF QL87 GT Q0 GOTO LBL "IFNOT_48"             ; includes/mill.hpp :0629
  QL87 = QL88 + 15                                     ; includes/mill.hpp :0631
  LBL "IFNOT_48"                                       ; includes/mill.hpp :0632
 QL98 = QL98 + QL87                                    ; includes/mill.hpp :0633
 QL89 = SQRT( SQ(QL68) + SQ(QL95) - 2*QL68*QL95*COS( QL87 ) )
 QL90 = ASIN( QL68 * SIN( QL87 ) / QL89 )              ; includes/mill.hpp :0635
 QL91 = 180 - 2 * QL90                                 ; includes/mill.hpp :0636
 QL92 = ( QL89 * SIN( QL90 ) ) / ( SIN( QL91 ) )       ; includes/mill.hpp :0637
 QL95 = ( QL95 ) - QL92                                ; includes/mill.hpp :0638
 Q0 = QL95 * COS( QL98 )                               ; includes/mill.hpp :0639
 Q1 = QL95 * SIN( QL98 )                               ; includes/mill.hpp :0639
 CC  X+Q0 Y+Q1                                         ; includes/mill.hpp :0639
 CP PA+QL98 Z+QL66 DR+                                 ; includes/mill.hpp :0640
 LBL "IFNOT_47"                                        ; includes/mill.hpp :0641
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_49"                 ; includes/mill.hpp :0645
 LBL "FOR_49"                                          ; includes/mill.hpp :0645
 QL85 = QL85 + -1                                      ; includes/mill.hpp :0645
 LBL "FORCMP_49"                                       ; includes/mill.hpp :0645
 FN 9: IF QL85 EQU 0 GOTO LBL "FORNOT_49"              ; includes/mill.hpp :0645
 FN 12: IF QL85 LT 0 GOTO LBL "FORNOT_49"              ; includes/mill.hpp :0645
 QL98 = ( QL98 + 180 ) % 360                           ; includes/mill.hpp :0647
 Q0 = (QL86 / 4) * COS( QL98 )                         ; includes/mill.hpp :0648
 Q1 = (QL86 / 4) * SIN( QL98 )                         ; includes/mill.hpp :0648
 CC  X+Q0 Y+Q1                                         ; includes/mill.hpp :0648
 CP  PA+QL98 Z+QL66 DR+                                ; includes/mill.hpp :0649
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_49"                    ; includes/mill.hpp :0650
 LBL "FORNOT_49"                                       ; includes/mill.hpp :0650
 CC X+0 Y+0                                            ; includes/mill.hpp :0654
 CP IPA+360 DR+                                        ; includes/mill.hpp :0655
 LP IPR-QL46 R0                                        ; includes/mill.hpp :0659
 QL102 = QL67 - QL46 - QL69                            ; includes/mill.hpp :0660
 FN 11: IF QL102 GT 0 GOTO LBL "IFNOT_50"              ; includes/mill.hpp :0661
 QL102 = 0                                             ; includes/mill.hpp :0663
 QL96 = ( QL67 - QL46 ) / 2                            ; includes/mill.hpp :0664
 QL91 = 180                                            ; includes/mill.hpp :0665
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_50"                  ; includes/mill.hpp :0666
 LBL "IFNOT_50"                                        ; includes/mill.hpp :0666
 QL100 = SQRT( SQ(QL102) + SQ(QL67-QL46) - 2*QL102*(QL67-QL46)*COS( 45 ) )
 QL101 = ACOS(( SQ(QL100) + SQ((QL67-QL46)) - SQ(QL102)) / (2*QL100*(QL67-QL46)))
 QL91 = 180 - 2*QL101                                  ; includes/mill.hpp :0671
 QL96 = (QL67-QL46) - ((QL100 * SIN( QL101 )) / SIN( QL91 ))
 LBL "ENDIF_50"                                        ; includes/mill.hpp :0673
 Q0 = QL96 *COS( QL98 )                                ; includes/mill.hpp :0674
 Q1 = QL96 *SIN( QL98 )                                ; includes/mill.hpp :0674
 CC X+Q0 Y+Q1                                          ; includes/mill.hpp :0674
 QL91 = QL91 + QL98                                    ; includes/mill.hpp :0675
 FN 9: IF QL62 EQU 0 GOTO LBL "CASE0_51"               ; includes/mill.hpp :0676
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_51"              ; includes/mill.hpp :0676
 LBL "CASE0_51"                                        ; includes/mill.hpp :0678
 CP PA+QL91 DR+                                        ; includes/mill.hpp :0679
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_51"              ; includes/mill.hpp :0680
 LBL "SWITCHDEF_51"                                    ; includes/mill.hpp :0681
 Q0 = QL66 - ( SGN( QL42 )* ( QL49/25 ) )              ; includes/mill.hpp :0682
 CP PA+QL91 Z+Q0 DR+                                   ; includes/mill.hpp :0682
 LBL "SWITCHEND_51"                                    ; includes/mill.hpp :0683
 QL98 = QL98 + 45                                      ; includes/mill.hpp :0684
 FN 12: IF QL44 LT 0 GOTO LBL "IFNOT_52"               ; includes/mill.hpp :0688
 QL98 = -QL98                                          ; includes/mill.hpp :0690
 FN 17: SYSWRITE ID 210 NR 3 = QL31                    ; includes/mill.hpp :0691
 LBL "IFNOT_52"                                        ; includes/mill.hpp :0692
 TRANS DATUM AXIS IX-QL64 IY-QL65                      ; includes/mill.hpp :0693
 FN 10: IF QL71 NE 1 GOTO LBL "IFNOT_53"               ; includes/mill.hpp :0698
 M111                                                  ; includes/mill.hpp :0700
 LBL "IFNOT_53"                                        ; includes/mill.hpp :0701
 QL72 = QL98                                           ; includes/mill.hpp :0702
 LBL 0                                                 ; includes/mill.hpp :0702
LBL 0                                                  ; includes/mill.hpp :0056
LBL "check_bit"                                        ; includes/stdlib.hh:0124
 QL106=15                                              ; includes/geo.hpp  :0850
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_54"                 ; includes/geo.hpp  :0850
 LBL "FOR_54"                                          ; includes/geo.hpp  :0850
 QL106 = QL106 + -1                                    ; includes/geo.hpp  :0850
 LBL "FORCMP_54"                                       ; includes/geo.hpp  :0850
 FN 12: IF QL106 LT 0 GOTO LBL "FORNOT_54"             ; includes/geo.hpp  :0850
 QL77 = 2 ^ QL106                                      ; includes/geo.hpp  :0852
  FN 12: IF QL75 LT QL77 GOTO LBL "IFNOT_55"           ; includes/geo.hpp  :0853
   FN 10: IF QL106 NE QL76 GOTO LBL "IFNOT_56"         ; includes/geo.hpp  :0855
   QL77 = 1                                            ; includes/geo.hpp  :0857
   LBL 0                                               ; includes/geo.hpp  :0858
   LBL "IFNOT_56"                                      ; includes/geo.hpp  :0859
  QL75 = QL75 - 2^QL106                                ; includes/geo.hpp  :0860
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_55"                 ; includes/geo.hpp  :0861
  LBL "IFNOT_55"                                       ; includes/geo.hpp  :0861
   FN 10: IF QL106 NE QL76 GOTO LBL "IFNOT_57"         ; includes/geo.hpp  :0864
   QL77 = 0                                            ; includes/geo.hpp  :0866
   LBL 0                                               ; includes/geo.hpp  :0867
   LBL "IFNOT_57"                                      ; includes/geo.hpp  :0868
  LBL "ENDIF_55"                                       ; includes/geo.hpp  :0869
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_54"                    ; includes/geo.hpp  :0870
 LBL "FORNOT_54"                                       ; includes/geo.hpp  :0870
 QL77 = -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_58"                 ; 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_59"                ; includes/geo.hpp  :0921
  FN 18: SYSREAD QL107 = ID 20 NR 5                    ; includes/geo.hpp  :0926
   FN 9: IF QL107 EQU 0 GOTO LBL "IFNOT_60"            ; includes/geo.hpp  :0927
   FN 9: IF QL107 EQU 1 GOTO LBL "IFNOT_60"            ; includes/geo.hpp  :0927
   FN 14: ERROR= 1000                                  ; includes/geo.hpp  :0929
   LBL "IFNOT_60"                                      ; includes/geo.hpp  :0930
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_59"                 ; includes/geo.hpp  :0931
  LBL "IFNOT_59"                                       ; includes/geo.hpp  :0931
  CALL LBL "state_exec"
  Q0 = QL108                                           ; includes/geo.hpp  :0937
   FN 9: IF Q0 EQU 0 GOTO LBL "IFNOT_61"               ; includes/geo.hpp  :0937
   LBL 0                                               ; includes/geo.hpp  :0937
   LBL "IFNOT_61"                                      ; includes/geo.hpp  :0937
  FN 20: WAIT FOR SYNC                                 ; includes/geo.hpp  :0941
  QL107 = 100                                          ; includes/geo.hpp  :0942
  FN 17: SYSWRITE ID 13 NR3 =+9990                     ; includes/geo.hpp  :0943
  READ FROM PLC KEY "PLC_API_VERSION" TO QL107         ; includes/geo.hpp  :0944
  LBL 9990                                             ; includes/geo.hpp  :0945
   FN 10: IF QL107 NE 100 GOTO LBL "IFNOT_62"          ; includes/geo.hpp  :0946
   FN 18: SYSREAD QL107 = ID 2000 NR 10 IDX 4000       ; includes/geo.hpp  :0948
    FN 10: IF QL107 NE 1 GOTO LBL "IFNOT_63"           ; includes/geo.hpp  :0949
    FN 14: ERROR= 1000                                 ; includes/geo.hpp  :0951
    LBL "IFNOT_63"                                     ; includes/geo.hpp  :0952
   FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_62"                ; includes/geo.hpp  :0953
   LBL "IFNOT_62"                                      ; 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
   QL107=0                                             ; includes/geo.hpp  :0973
   FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_64"               ; includes/geo.hpp  :0973
    LBL "FOR_64"                                       ; includes/geo.hpp  :0973
    QL107 = QL107 + 1                                  ; includes/geo.hpp  :0973
    LBL "FORCMP_64"                                    ; 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 QL107 )
    Q0 = STRCOMP( SRC_ QS2 SEA_ QS10 )                 ; includes/geo.hpp  :0977
     FN 10: IF Q0 NE 0 GOTO LBL "IFNOT_65"             ; includes/geo.hpp  :0977
     QS2 = "ApiSpin[" || TOCHAR( DAT+QL107 DECIMALS 0 ) || "].NN_SpiMotionRequest"
     READ FROM PLC KEY QS2 TO QL107                    ; includes/geo.hpp  :0980
      FN 10: IF QL107 NE 0 GOTO LBL "IFNOT_66"         ; includes/geo.hpp  :0981
      FN 14: ERROR= 1000                               ; includes/geo.hpp  :0983
      LBL "IFNOT_66"                                   ; includes/geo.hpp  :0984
     FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_64"             ; includes/geo.hpp  :0985
     LBL "IFNOT_65"                                    ; includes/geo.hpp  :0986
    FN 9: IF 0 EQU 0 GOTO LBL "FOR_64"                 ; includes/geo.hpp  :0987
    LBL "FORNOT_64"                                    ; includes/geo.hpp  :0987
   LBL 9991                                            ; includes/geo.hpp  :0988
   LBL "ENDIF_62"                                      ; includes/geo.hpp  :0989
  LBL "ENDIF_59"                                       ; includes/geo.hpp  :0990
 LBL "IFNOT_58"                                        ; includes/geo.hpp  :0991
LBL 0                                                  ; includes/stdlib.hh:0133
LBL "swap_axes"                                        ; includes/stdlib.hh:0120
 FN 17: SYSWRITE ID 212 = QL78                         ; includes/geo.hpp  :0841
LBL 0                                                  ; includes/stdlib.hh:0120
LBL "check_depth_sign"                                 ; includes/stdlib.hh:0128
 FN 9: IF QL79 EQU 0 GOTO LBL "IFNOT_67"               ; includes/geo.hpp  :0880
 FN 12: IF QL79 LT 0 GOTO LBL "IFNOT_67"               ; 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
 QL109 = CFGREAD( KEY_ QS3 TAG_ QS4 ATR_ QS5 )         ; includes/geo.hpp  :0888
  FN 10: IF QL109 NE 1 GOTO LBL "IFNOT_68"             ; includes/geo.hpp  :0890
  FN 14: ERROR= 1077                                   ; includes/geo.hpp  :0891
  LBL "IFNOT_68"                                       ; includes/geo.hpp  :0891
 LBL "IFNOT_67"                                        ; includes/geo.hpp  :0892
LBL 0                                                  ; includes/stdlib.hh:0128
LBL "state_exec"                                       ; includes/stdlib.hh:0076
 FN 18: SYSREAD QL108 = ID 992 NR 11                   ; includes/geo.hpp  :0583
 FN 10: IF QL108 NE 1 GOTO LBL "IFNOT_69"              ; includes/geo.hpp  :0584
 QL108 = 3                                             ; includes/geo.hpp  :0586
 LBL 0                                                 ; includes/geo.hpp  :0587
 LBL "IFNOT_69"                                        ; includes/geo.hpp  :0588
 FN 18: SYSREAD QL108 = ID 992 NR 16                   ; includes/geo.hpp  :0590
 FN 10: IF QL108 NE 0 GOTO LBL "IFNOT_70"              ; includes/geo.hpp  :0591
 QL108 = 1                                             ; includes/geo.hpp  :0593
 LBL 0                                                 ; includes/geo.hpp  :0594
 LBL "IFNOT_70"                                        ; includes/geo.hpp  :0595
 FN 18: SYSREAD QL108 = ID 992 NR 10                   ; includes/geo.hpp  :0597
 FN 10: IF QL108 NE 1 GOTO LBL "IFNOT_71"              ; includes/geo.hpp  :0598
 QL108 = 2                                             ; includes/geo.hpp  :0600
 LBL 0                                                 ; includes/geo.hpp  :0601
 LBL "IFNOT_71"                                        ; includes/geo.hpp  :0602
 QL108 = 0                                             ; includes/geo.hpp  :0603
 LBL 0                                                 ; includes/geo.hpp  :0604
LBL 0                                                  ; includes/stdlib.hh:0076
LBL "EXIT"                                             ;                   :-001
END PGM MM
