BEGIN PGM 4.h MM ; h++ 2 13 8 2015_05_07
 FN 18: SYSREAD QL0   = ID 30 NR 1                     ; src/4.hpp         :0035
 FN 18: SYSREAD QL1        = ID 30 NR 2                ; src/4.hpp         :0036
 FN 18: SYSREAD QL2  = ID 30 NR 3                      ; src/4.hpp         :0037
 FN 18: SYSREAD QL3   = ID 30 NR 4                     ; src/4.hpp         :0038
 FN 18: SYSREAD QL4 = ID 30 NR 5                       ; src/4.hpp         :0039
 QL4 = ABS( QL4 )                                      ; src/4.hpp         :0040
 FN 18: SYSREAD QL5 = ID 30 NR 6                       ; src/4.hpp         :0041
 QL5 = ABS( QL5 )                                      ; src/4.hpp         :0042
 FN 18: SYSREAD QL6   = ID 30 NR 9                     ; src/4.hpp         :0043
 FN 18: SYSREAD QL7         = ID 30 NR 10              ; src/4.hpp         :0044
 FN 18: SYSREAD QL19   = ID 30 NR 11                   ; src/4.hpp         :0045
 FN 18: SYSREAD Q0 = ID 20 NR 5                        ; src/4.hpp         :0049
 FN 10: IF Q0 NE 1 GOTO LBL "IFNOT_1"                  ; src/4.hpp         :0049
  FN 9: IF QL19 EQU -1 GOTO LBL "CASE0_2"              ; src/4.hpp         :0054
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_2"              ; src/4.hpp         :0054
  LBL "CASE0_2"                                        ; src/4.hpp         :0056
  QL19 = 1                                             ; src/4.hpp         :0057
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_2"              ; src/4.hpp         :0058
  LBL "SWITCHDEF_2"                                    ; src/4.hpp         :0059
  QL19 = -1                                            ; src/4.hpp         :0060
  LBL "SWITCHEND_2"                                    ; src/4.hpp         :0061
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_1"                   ; src/4.hpp         :0062
 LBL "IFNOT_1"                                         ; src/4.hpp         :0062
  FN 9: IF QL19 EQU -1 GOTO LBL "CASE0_3"              ; src/4.hpp         :0068
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_3"              ; src/4.hpp         :0068
  LBL "CASE0_3"                                        ; src/4.hpp         :0070
  QL19 = -1                                            ; src/4.hpp         :0071
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_3"              ; src/4.hpp         :0072
  LBL "SWITCHDEF_3"                                    ; src/4.hpp         :0073
  QL19 = 1                                             ; src/4.hpp         :0074
  LBL "SWITCHEND_3"                                    ; src/4.hpp         :0075
 LBL "ENDIF_1"                                         ; src/4.hpp         :0076
 QS3 = SYSSTR( ID10025 NR1 )                           ; src/4.hpp         :0080
 QS4 = "CfgGeoCycle"                                   ; src/4.hpp         :0081
 QS5 = "pocketOverlap"                                 ; src/4.hpp         :0082
 QL8 = CFGREAD( KEY_ QS3 TAG_ QS4 ATR_ QS5 )           ; src/4.hpp         :0083
 FN 9: IF QL2 EQU 0 GOTO LBL "IFNOT_4"                 ; src/4.hpp         :0087
 QL18 = ABS( QL2 )                                     ; src/4.hpp         :0089
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_4"                   ; src/4.hpp         :0090
 LBL "IFNOT_4"                                         ; src/4.hpp         :0090
 FN 14: ERROR= 1090                                    ; src/4.hpp         :0093
 LBL "ENDIF_4"                                         ; src/4.hpp         :0094
 QL20 = SGN( QL1 )                                     ; src/4.hpp         :0098
 QL0 = ABS( QL0 )                                      ; src/4.hpp         :0099
 CALL LBL "read_wcs"
 QL9 = QL21                                            ; src/4.hpp         :0100
 QL10 = QL22                                           ; src/4.hpp         :0100
 QL11 = QL23                                           ; src/4.hpp         :0100
 QL11 = QL11 + ( QL0 * QL20 )                          ; src/4.hpp         :0101
 QL17 = QL11 + QL1                                     ; src/4.hpp         :0102
 CALL LBL "4$Pocket.PRINT"
 CALL LBL "4$Pocket.MILL"
 QL53 = QL19                                           ; src/4.hpp         :0104
 QL54 = QL11                                           ; src/4.hpp         :0104
 QL55 = QL0                                            ; src/4.hpp         :0104
 QL56 = QL0                                            ; src/4.hpp         :0104
 QL57 = QL8                                            ; src/4.hpp         :0104
 QL58 = QL1                                            ; src/4.hpp         :0104
 CALL LBL "4$Pocket.init"
 QL59 = QL7                                            ; src/4.hpp         :0105
 QL60 = QL7                                            ; src/4.hpp         :0105
 QL61 = QL3                                            ; src/4.hpp         :0105
 QL62 = -57239891                                      ; src/4.hpp         :0105
 CALL LBL "4$Pocket.set_feed"
 Q0 = QL4-0.005                                        ; src/4.hpp         :0109
 Q1 = QL5-0.005                                        ; src/4.hpp         :0109
 FN 9: IF Q0 EQU QL48 GOTO LBL "IF_5"                  ; src/4.hpp         :0109
 FN 12: IF Q0 LT QL48 GOTO LBL "IF_5"                  ; src/4.hpp         :0109
 FN 9: IF Q1 EQU QL48 GOTO LBL "IF_5"                  ; src/4.hpp         :0109
 FN 12: IF Q1 LT QL48 GOTO LBL "IF_5"                  ; src/4.hpp         :0109
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_5"                   ; src/4.hpp         :0109
 LBL "IF_5"                                            ; src/4.hpp         :0109
 FN 14: ERROR= 1103                                    ; src/4.hpp         :0111
 LBL "IFNOT_5"                                         ; src/4.hpp         :0112
 FN 9: IF QL6 EQU 0 GOTO LBL "IFNOT_6"                 ; src/4.hpp         :0113
 FN 12: IF QL6 LT 0 GOTO LBL "IFNOT_6"                 ; src/4.hpp         :0113
 FN 9: IF QL6 EQU QL48 GOTO LBL "IFNOT_6"              ; src/4.hpp         :0113
 FN 11: IF QL6 GT QL48 GOTO LBL "IFNOT_6"              ; src/4.hpp         :0113
 FN 14: ERROR= 1003                                    ; src/4.hpp         :0115
 LBL "IFNOT_6"                                         ; src/4.hpp         :0116
 CALL LBL "4$Pocket.get_ToolLCut"
 QL12 = QL63                                           ; src/4.hpp         :0117
 FN 9: IF QL18 EQU QL12 GOTO LBL "IFNOT_7"             ; src/4.hpp         :0118
 FN 12: IF QL18 LT QL12 GOTO LBL "IFNOT_7"             ; src/4.hpp         :0118
 FN 9: IF QL12 EQU 0 GOTO LBL "IFNOT_7"                ; src/4.hpp         :0118
 FN 12: IF QL12 LT 0 GOTO LBL "IFNOT_7"                ; src/4.hpp         :0118
 QL18 = QL12                                           ; src/4.hpp         :0120
 LBL "IFNOT_7"                                         ; src/4.hpp         :0121
 Q0 = QL4/2                                            ; src/4.hpp         :0125
 Q1 = QL4/2                                            ; src/4.hpp         :0125
 FN 9: IF Q0 EQU QL48 GOTO LBL "IF_8"                  ; src/4.hpp         :0125
 FN 12: IF Q0 LT QL48 GOTO LBL "IF_8"                  ; src/4.hpp         :0125
 FN 9: IF Q1 EQU QL47 GOTO LBL "IF_8"                  ; src/4.hpp         :0125
 FN 12: IF Q1 LT QL47 GOTO LBL "IF_8"                  ; src/4.hpp         :0125
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_8"                   ; src/4.hpp         :0125
 LBL "IF_8"                                            ; src/4.hpp         :0125
 FN 14: ERROR= 1029                                    ; src/4.hpp         :0127
 LBL "IFNOT_8"                                         ; src/4.hpp         :0128
 Q0 = QL5/2                                            ; src/4.hpp         :0129
 Q1 = QL5/2                                            ; src/4.hpp         :0129
 FN 9: IF Q0 EQU QL48 GOTO LBL "IF_9"                  ; src/4.hpp         :0129
 FN 12: IF Q0 LT QL48 GOTO LBL "IF_9"                  ; src/4.hpp         :0129
 FN 9: IF Q1 EQU QL47 GOTO LBL "IF_9"                  ; src/4.hpp         :0129
 FN 12: IF Q1 LT QL47 GOTO LBL "IF_9"                  ; src/4.hpp         :0129
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_9"                   ; src/4.hpp         :0129
 LBL "IF_9"                                            ; src/4.hpp         :0129
 FN 14: ERROR= 1029                                    ; src/4.hpp         :0131
 LBL "IFNOT_9"                                         ; src/4.hpp         :0132
 FN 9: IF QL4 EQU QL5 GOTO LBL "IFNOT_10"              ; src/4.hpp         :0136
 FN 11: IF QL4 GT QL5 GOTO LBL "IFNOT_10"              ; src/4.hpp         :0136
 QL13 = QL4 - 0.005                                    ; src/4.hpp         :0138
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_10"                  ; src/4.hpp         :0139
 LBL "IFNOT_10"                                        ; src/4.hpp         :0139
 QL13 = QL5 - 0.005                                    ; src/4.hpp         :0142
 LBL "ENDIF_10"                                        ; src/4.hpp         :0143
 CALL LBL "read_wcs"
 QL9 = QL21                                            ; src/4.hpp         :0147
 QL10 = QL22                                           ; src/4.hpp         :0147
 QL18 = QL18 * QL20                                    ; src/4.hpp         :0151
 QL15=QL11+QL18                                        ; src/4.hpp         :0152
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_11"                 ; src/4.hpp         :0152
 LBL "FOR_11"                                          ; src/4.hpp         :0152
 QL15=QL15+QL18                                        ; src/4.hpp         :0152
 LBL "FORCMP_11"                                       ; src/4.hpp         :0152
  FN 10: IF QL20 NE -1 GOTO LBL "CTRLCMD0_12"          ; src/4.hpp         :0154
  FN 11: IF QL15 GT QL17 GOTO LBL "CTRLCMD0_12"        ; src/4.hpp         :0154
  FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_11"                ; src/4.hpp         :0154
  LBL "CTRLCMD0_12"                                    ; src/4.hpp         :0154
  FN 10: IF QL20 NE +1 GOTO LBL "CTRLCMD1_13"          ; src/4.hpp         :0155
  FN 12: IF QL15 LT QL17 GOTO LBL "CTRLCMD1_13"        ; src/4.hpp         :0155
  FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_11"                ; src/4.hpp         :0155
  LBL "CTRLCMD1_13"                                    ; src/4.hpp         :0155
 QL64 = 0                                              ; src/4.hpp         :0156
 QL65 = 0                                              ; src/4.hpp         :0156
 QL66 = 0                                              ; src/4.hpp         :0156
 QL67 = QL9                                            ; src/4.hpp         :0156
 QL68 = QL10                                           ; src/4.hpp         :0156
 QL69 = QL15                                           ; src/4.hpp         :0156
 QL70 = QL13                                           ; src/4.hpp         :0156
 CALL LBL "4$Pocket.plunge"
 QL14 = QL71                                           ; src/4.hpp         :0156
 QL72 = 0                                              ; src/4.hpp         :0157
 QL73 = QL4                                            ; src/4.hpp         :0157
 QL74 = QL5                                            ; src/4.hpp         :0157
 QL75 = QL6                                            ; src/4.hpp         :0157
 QL76 = QL9                                            ; src/4.hpp         :0157
 QL77 = QL10                                           ; src/4.hpp         :0157
 QL78 = QL15                                           ; src/4.hpp         :0157
 QL79 = 0                                              ; src/4.hpp         :0157
 CALL LBL "4$Pocket.recpock"
 L  X+QL9 Y+QL10 F QL7                                 ; src/4.hpp         :0158
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_11"                    ; src/4.hpp         :0159
 LBL "FORNOT_11"                                       ; src/4.hpp         :0159
 QL64 = 0                                              ; src/4.hpp         :0163
 QL65 = 0                                              ; src/4.hpp         :0163
 QL66 = 0                                              ; src/4.hpp         :0163
 QL67 = QL9                                            ; src/4.hpp         :0163
 QL68 = QL10                                           ; src/4.hpp         :0163
 QL69 = QL17                                           ; src/4.hpp         :0163
 QL70 = QL13                                           ; src/4.hpp         :0163
 CALL LBL "4$Pocket.plunge"
 QL14 = QL71                                           ; src/4.hpp         :0163
 QL72 = 0                                              ; src/4.hpp         :0164
 QL73 = QL4                                            ; src/4.hpp         :0164
 QL74 = QL5                                            ; src/4.hpp         :0164
 QL75 = QL6                                            ; src/4.hpp         :0164
 QL76 = QL9                                            ; src/4.hpp         :0164
 QL77 = QL10                                           ; src/4.hpp         :0164
 QL78 = QL17                                           ; src/4.hpp         :0164
 QL79 = 0                                              ; src/4.hpp         :0164
 CALL LBL "4$Pocket.recpock"
 L  Z+QL52 R0 FMAX                                     ; src/4.hpp         :0168
 L  X+QL9 Y+QL10 R0 FMAX                               ; src/4.hpp         :0169
LBL "e_40"                                             ; src/4.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_14"                 ; includes/geo.hpp  :0618
 FN 17: SYSWRITE ID 991 NR 100 = 1                     ; includes/geo.hpp  :0620
 LBL "IFNOT_14"                                        ; 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_15"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 6 GOTO LBL "CASE1_15"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 1 GOTO LBL "CASE2_15"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 7 GOTO LBL "CASE3_15"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 2 GOTO LBL "CASE4_15"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 8 GOTO LBL "CASE5_15"                 ; includes/geo.hpp  :0627
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_15"              ; includes/geo.hpp  :0627
 LBL "CASE0_15"                                        ; includes/geo.hpp  :0629
 LBL "CASE1_15"                                        ; includes/geo.hpp  :0630
 FN 18: SYSREAD QL21 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0631
 FN 18: SYSREAD QL22 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0632
 FN 18: SYSREAD QL23 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0633
 LBL 0                                                 ; includes/geo.hpp  :0634
 LBL "CASE2_15"                                        ; includes/geo.hpp  :0635
 LBL "CASE3_15"                                        ; includes/geo.hpp  :0636
 FN 18: SYSREAD QL21 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0637
 FN 18: SYSREAD QL22 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0638
 FN 18: SYSREAD QL23 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0639
 LBL 0                                                 ; includes/geo.hpp  :0640
 LBL "CASE4_15"                                        ; includes/geo.hpp  :0641
 LBL "CASE5_15"                                        ; includes/geo.hpp  :0642
 FN 18: SYSREAD QL21 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0643
 FN 18: SYSREAD QL22 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0644
 FN 18: SYSREAD QL23 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0645
 LBL 0                                                 ; includes/geo.hpp  :0646
 LBL "SWITCHEND_15"                                    ; includes/geo.hpp  :0647
LBL 0                                                  ; includes/stdlib.hh:0081
LBL "4$Pocket.PRINT"                                   ; src/print/print.hpp:0059
 FN 18: SYSREAD QL24 = ID 992 NR 16                    ; src/print/print.hpp:0088
 FN 10: IF QL24 NE 1 GOTO LBL "IFNOT_16"               ; 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
 QL80 = 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 QL80 EQU 1 GOTO LBL "CASE0_17"              ; src/print/print.hpp:0105
  FN 9: IF QL80 EQU 2 GOTO LBL "CASE1_17"              ; src/print/print.hpp:0105
  FN 9: IF QL80 EQU 3 GOTO LBL "CASE2_17"              ; src/print/print.hpp:0105
  FN 9: IF QL80 EQU 4 GOTO LBL "CASE3_17"              ; src/print/print.hpp:0105
  FN 9: IF QL80 EQU 5 GOTO LBL "CASE4_17"              ; src/print/print.hpp:0105
  FN 9: IF QL80 EQU 6 GOTO LBL "CASE5_17"              ; src/print/print.hpp:0105
  FN 9: IF QL80 EQU 7 GOTO LBL "CASE6_17"              ; src/print/print.hpp:0105
  FN 9: IF QL80 EQU 8 GOTO LBL "CASE7_17"              ; src/print/print.hpp:0105
  FN 9: IF QL80 EQU 9 GOTO LBL "CASE8_17"              ; src/print/print.hpp:0105
  FN 9: IF QL80 EQU 10 GOTO LBL "CASE9_17"             ; src/print/print.hpp:0105
  FN 9: IF QL80 EQU 11 GOTO LBL "CASE10_17"            ; src/print/print.hpp:0105
  FN 9: IF QL80 EQU 12 GOTO LBL "CASE11_17"            ; src/print/print.hpp:0105
  FN 9: IF QL80 EQU 17 GOTO LBL "CASE12_17"            ; src/print/print.hpp:0105
  FN 9: IF QL80 EQU 21 GOTO LBL "CASE13_17"            ; src/print/print.hpp:0105
  FN 9: IF QL80 EQU 22 GOTO LBL "CASE14_17"            ; src/print/print.hpp:0105
  FN 9: IF QL80 EQU 23 GOTO LBL "CASE15_17"            ; src/print/print.hpp:0105
  FN 9: IF QL80 EQU 24 GOTO LBL "CASE16_17"            ; src/print/print.hpp:0105
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_17"             ; src/print/print.hpp:0105
  LBL "CASE0_17"                                       ; src/print/print.hpp:0106
  QS11 = QS11 || "\DE.TAB"                             ; src/print/print.hpp:0107
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_17"             ; src/print/print.hpp:0108
  LBL "CASE1_17"                                       ; src/print/print.hpp:0109
  QS11 = QS11 || "\CS.TAB"                             ; src/print/print.hpp:0110
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_17"             ; src/print/print.hpp:0111
  LBL "CASE2_17"                                       ; src/print/print.hpp:0112
  QS11 = QS11 || "\FR.TAB"                             ; src/print/print.hpp:0113
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_17"             ; src/print/print.hpp:0114
  LBL "CASE3_17"                                       ; src/print/print.hpp:0115
  QS11 = QS11 || "\IT.TAB"                             ; src/print/print.hpp:0116
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_17"             ; src/print/print.hpp:0117
  LBL "CASE4_17"                                       ; src/print/print.hpp:0118
  QS11 = QS11 || "\ES.TAB"                             ; src/print/print.hpp:0119
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_17"             ; src/print/print.hpp:0120
  LBL "CASE5_17"                                       ; src/print/print.hpp:0121
  QS11 = QS11 || "\PT.TAB"                             ; src/print/print.hpp:0122
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_17"             ; src/print/print.hpp:0123
  LBL "CASE6_17"                                       ; src/print/print.hpp:0124
  QS11 = QS11 || "\SV.TAB"                             ; src/print/print.hpp:0125
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_17"             ; src/print/print.hpp:0126
  LBL "CASE7_17"                                       ; src/print/print.hpp:0127
  QS11 = QS11 || "\DA.TAB"                             ; src/print/print.hpp:0128
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_17"             ; src/print/print.hpp:0129
  LBL "CASE8_17"                                       ; src/print/print.hpp:0130
  QS11 = QS11 || "\FI.TAB"                             ; src/print/print.hpp:0131
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_17"             ; src/print/print.hpp:0132
  LBL "CASE9_17"                                       ; src/print/print.hpp:0133
  QS11 = QS11 || "\NL.TAB"                             ; src/print/print.hpp:0134
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_17"             ; src/print/print.hpp:0135
  LBL "CASE10_17"                                      ; src/print/print.hpp:0136
  QS11 = QS11 || "\PL.TAB"                             ; src/print/print.hpp:0137
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_17"             ; src/print/print.hpp:0138
  LBL "CASE11_17"                                      ; src/print/print.hpp:0139
  QS11 = QS11 || "\HU.TAB"                             ; src/print/print.hpp:0140
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_17"             ; src/print/print.hpp:0141
  LBL "CASE12_17"                                      ; src/print/print.hpp:0142
  QS11 = QS11 || "\SL.TAB"                             ; src/print/print.hpp:0143
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_17"             ; src/print/print.hpp:0144
  LBL "CASE13_17"                                      ; src/print/print.hpp:0145
  QS11 = QS11 || "\NB.TAB"                             ; src/print/print.hpp:0146
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_17"             ; src/print/print.hpp:0147
  LBL "CASE14_17"                                      ; src/print/print.hpp:0148
  QS11 = QS11 || "\RO.TAB"                             ; src/print/print.hpp:0149
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_17"             ; src/print/print.hpp:0150
  LBL "CASE15_17"                                      ; src/print/print.hpp:0151
  QS11 = QS11 || "\SK.TAB"                             ; src/print/print.hpp:0152
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_17"             ; src/print/print.hpp:0153
  LBL "CASE16_17"                                      ; src/print/print.hpp:0154
  QS11 = QS11 || "\TR.TAB"                             ; src/print/print.hpp:0155
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_17"             ; src/print/print.hpp:0156
  LBL "SWITCHDEF_17"                                   ; src/print/print.hpp:0157
  QS11 = QS11 || "\EN.TAB"                             ; src/print/print.hpp:0158
  LBL "SWITCHEND_17"                                   ; src/print/print.hpp:0159
 LBL "IFNOT_16"                                        ; src/print/print.hpp:0160
LBL 0                                                  ; src/print/print.hpp:0059
LBL "4$Pocket.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
 QL26 = STRCOMP( SRC_ QS3 SEA_ QS0 )                   ; includes/mill.hpp :0075
 FN 9: IF QL26 EQU 0 GOTO LBL "IFNOT_18"               ; includes/mill.hpp :0076
 QL26 = 1                                              ; includes/mill.hpp :0076
 LBL "IFNOT_18"                                        ; includes/mill.hpp :0076
 FN 18: SYSREAD QL27 = ID 20 NR 3                      ; includes/mill.hpp :0080
 FN 18: SYSREAD QL50 = ID 200 NR 3 IDX 2               ; includes/mill.hpp :0084
 FN 18: SYSREAD QL33 = ID 210 NR 3                     ; includes/mill.hpp :0089
 FN 9: IF QL27 EQU 0 GOTO LBL "CASE0_19"               ; includes/mill.hpp :0090
 FN 9: IF QL27 EQU 6 GOTO LBL "CASE1_19"               ; includes/mill.hpp :0090
 FN 9: IF QL27 EQU 1 GOTO LBL "CASE2_19"               ; includes/mill.hpp :0090
 FN 9: IF QL27 EQU 7 GOTO LBL "CASE3_19"               ; includes/mill.hpp :0090
 FN 9: IF QL27 EQU 2 GOTO LBL "CASE4_19"               ; includes/mill.hpp :0090
 FN 9: IF QL27 EQU 8 GOTO LBL "CASE5_19"               ; includes/mill.hpp :0090
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_19"              ; includes/mill.hpp :0090
 LBL "CASE0_19"                                        ; includes/mill.hpp :0091
 LBL "CASE1_19"                                        ; includes/mill.hpp :0092
 FN 18: SYSREAD QL30 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0093
 FN 18: SYSREAD QL31 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0094
 FN 18: SYSREAD QL32 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0095
 QL82 = QL33                                           ; includes/mill.hpp :0096
 QL83 = 1                                              ; includes/mill.hpp :0096
 CALL LBL "check_bit"
 QL34 = QL84                                           ; includes/mill.hpp :0096
 QL82 = QL33                                           ; includes/mill.hpp :0097
 QL83 = 2                                              ; includes/mill.hpp :0097
 CALL LBL "check_bit"
 QL35 = QL84                                           ; includes/mill.hpp :0097
 QL82 = QL33                                           ; includes/mill.hpp :0098
 QL83 = 0                                              ; includes/mill.hpp :0098
 CALL LBL "check_bit"
 QL36 = QL84                                           ; includes/mill.hpp :0098
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_19"              ; includes/mill.hpp :0099
 LBL "CASE2_19"                                        ; includes/mill.hpp :0100
 LBL "CASE3_19"                                        ; includes/mill.hpp :0101
 FN 18: SYSREAD QL30 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0102
 FN 18: SYSREAD QL31 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0103
 FN 18: SYSREAD QL32 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0104
 QL82 = QL33                                           ; includes/mill.hpp :0105
 QL83 = 2                                              ; includes/mill.hpp :0105
 CALL LBL "check_bit"
 QL34 = QL84                                           ; includes/mill.hpp :0105
 QL82 = QL33                                           ; includes/mill.hpp :0106
 QL83 = 0                                              ; includes/mill.hpp :0106
 CALL LBL "check_bit"
 QL35 = QL84                                           ; includes/mill.hpp :0106
 QL82 = QL33                                           ; includes/mill.hpp :0107
 QL83 = 1                                              ; includes/mill.hpp :0107
 CALL LBL "check_bit"
 QL36 = QL84                                           ; includes/mill.hpp :0107
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_19"              ; includes/mill.hpp :0108
 LBL "CASE4_19"                                        ; includes/mill.hpp :0109
 LBL "CASE5_19"                                        ; includes/mill.hpp :0110
 FN 18: SYSREAD QL30 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0111
 FN 18: SYSREAD QL31 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0112
 FN 18: SYSREAD QL32 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0113
 QL82 = QL33                                           ; includes/mill.hpp :0114
 QL83 = 0                                              ; includes/mill.hpp :0114
 CALL LBL "check_bit"
 QL34 = QL84                                           ; includes/mill.hpp :0114
 QL82 = QL33                                           ; includes/mill.hpp :0115
 QL83 = 1                                              ; includes/mill.hpp :0115
 CALL LBL "check_bit"
 QL35 = QL84                                           ; includes/mill.hpp :0115
 QL82 = QL33                                           ; includes/mill.hpp :0116
 QL83 = 2                                              ; includes/mill.hpp :0116
 CALL LBL "check_bit"
 QL36 = QL84                                           ; includes/mill.hpp :0116
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_19"              ; includes/mill.hpp :0117
 LBL "SWITCHEND_19"                                    ; includes/mill.hpp :0118
 FN 9: IF QL30 EQU QL31 GOTO LBL "IFNOT_20"            ; includes/mill.hpp :0119
 FN 14: ERROR= 1108                                    ; includes/mill.hpp :0119
 LBL "IFNOT_20"                                        ; includes/mill.hpp :0119
 QL46 = 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_21"                 ; includes/mill.hpp :0129
 QL37 = 0.002                                          ; includes/mill.hpp :0130
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_21"                  ; includes/mill.hpp :0131
 LBL "IFNOT_21"                                        ; includes/mill.hpp :0131
 QL37 = 0.0002                                         ; includes/mill.hpp :0133
 LBL "ENDIF_21"                                        ; includes/mill.hpp :0134
 FN 18: SYSREAD QL25 = ID 992 NR 30                    ; includes/mill.hpp :0135
 FN 18: SYSREAD QL45 = ID 610 NR 6                     ; includes/mill.hpp :0136
 FN 18: SYSREAD QL29 = ID 950 NR 13                    ; includes/mill.hpp :0140
 FN 18: SYSREAD QL28 = ID 950 NR 14                    ; includes/mill.hpp :0141
 FN 18: SYSREAD QL47 = ID 200 NR 1 IDX 2               ; includes/mill.hpp :0142
 FN 18: SYSREAD QL48 = ID 200 NR 1 IDX 3               ; includes/mill.hpp :0143
 FN 11: IF QL47 GT 0 GOTO LBL "IFNOT_22"               ; includes/mill.hpp :0144
 FN 14: ERROR= 1002                                    ; includes/mill.hpp :0144
 LBL "IFNOT_22"                                        ; includes/mill.hpp :0144
 FN 9: IF QL47 EQU QL48 GOTO LBL "IFNOT_23"            ; includes/mill.hpp :0145
 FN 12: IF QL47 LT QL48 GOTO LBL "IFNOT_23"            ; includes/mill.hpp :0145
 QL49 = QL47                                           ; includes/mill.hpp :0146
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_23"                  ; includes/mill.hpp :0147
 LBL "IFNOT_23"                                        ; includes/mill.hpp :0147
 QL49 = QL48                                           ; includes/mill.hpp :0149
 LBL "ENDIF_23"                                        ; includes/mill.hpp :0150
 QL47 = QL47 / QL30                                    ; includes/mill.hpp :0154
 QL48 = QL48 / QL30                                    ; includes/mill.hpp :0155
 QL49 = QL49 / QL30                                    ; includes/mill.hpp :0156
 QL29 = QL29 / QL32                                    ; includes/mill.hpp :0157
 CALL LBL "check_spindle_status"
 QL85 = 3                                              ; includes/mill.hpp :0165
 CALL LBL "swap_axes"
LBL 0                                                  ; includes/mill.hpp :0049
LBL "4$Pocket.init"                                    ; includes/mill.hpp :0050
 FN 9: IF Q110 EQU 1 GOTO LBL "CASE0_24"               ; includes/mill.hpp :0175
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_24"              ; includes/mill.hpp :0175
 LBL "CASE0_24"                                        ; includes/mill.hpp :0177
 QL46 = +QL53                                          ; includes/mill.hpp :0178
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_24"              ; includes/mill.hpp :0179
 LBL "SWITCHDEF_24"                                    ; includes/mill.hpp :0180
 QL46 = -QL53                                          ; includes/mill.hpp :0181
 LBL "SWITCHEND_24"                                    ; includes/mill.hpp :0182
 FN 10: IF QL34 NE 1 GOTO LBL "IFNOT_25"               ; includes/mill.hpp :0183
 QL46 = -QL46                                          ; includes/mill.hpp :0185
 LBL "IFNOT_25"                                        ; includes/mill.hpp :0186
 FN 10: IF QL35 NE 1 GOTO LBL "IFNOT_26"               ; includes/mill.hpp :0187
 QL46 = -QL46                                          ; includes/mill.hpp :0189
 LBL "IFNOT_26"                                        ; includes/mill.hpp :0190
 QL43 = QL47 * QL57                                    ; includes/mill.hpp :0194
 QL86 = QL58                                           ; includes/mill.hpp :0198
 CALL LBL "check_depth_sign"
 FN 9: IF QL58 EQU 0 GOTO LBL "EXIT"                   ; includes/mill.hpp :0199
 QL44 = QL58                                           ; includes/mill.hpp :0200
 QL38 = QL54                                           ; includes/mill.hpp :0205
 QL51 = ABS( QL55 )                                    ; includes/mill.hpp :0206
 FN 9: IF QL51 EQU 0.001 GOTO LBL "IFNOT_28"           ; includes/mill.hpp :0207
 FN 11: IF QL51 GT 0.001 GOTO LBL "IFNOT_28"           ; includes/mill.hpp :0207
 QL51 = 0.001                                          ; includes/mill.hpp :0207
 LBL "IFNOT_28"                                        ; includes/mill.hpp :0207
 FN 9: IF QL56 EQU QL51 GOTO LBL "IFNOT_29"            ; includes/mill.hpp :0208
 FN 11: IF QL56 GT QL51 GOTO LBL "IFNOT_29"            ; includes/mill.hpp :0208
 QL52 = QL51                                           ; includes/mill.hpp :0210
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_29"                  ; includes/mill.hpp :0211
 LBL "IFNOT_29"                                        ; includes/mill.hpp :0211
 QL52 = QL56                                           ; includes/mill.hpp :0214
 LBL "ENDIF_29"                                        ; includes/mill.hpp :0215
 QL52 = QL38 - ( QL52 * SGN( QL44 ) )                  ; includes/mill.hpp :0216
LBL 0                                                  ; includes/mill.hpp :0050
LBL "4$Pocket.set_feed"                                ; includes/mill.hpp :0051
 QL39 = QL59                                           ; includes/mill.hpp :0223
 QL40 = QL60                                           ; includes/mill.hpp :0224
 QL41 = QL61                                           ; includes/mill.hpp :0225
 FN 11: IF QL62 GT 0 GOTO LBL "IFNOT_30"               ; includes/mill.hpp :0226
  FN 9: IF QL62 EQU -57239891 GOTO LBL "IFNOT_31"      ; includes/mill.hpp :0228
  QL42 = QL39                                          ; includes/mill.hpp :0230
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_31"                 ; includes/mill.hpp :0231
  LBL "IFNOT_31"                                       ; includes/mill.hpp :0231
  FN 22: FUNCT QL59 FNR 910 PIN 59 PIN 2 PEX 42        ; includes/mill.hpp :0235
  LBL "ENDIF_31"                                       ; includes/mill.hpp :0236
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_30"                  ; includes/mill.hpp :0238
 LBL "IFNOT_30"                                        ; includes/mill.hpp :0238
 QL42 = QL62                                           ; includes/mill.hpp :0241
 LBL "ENDIF_30"                                        ; includes/mill.hpp :0242
LBL 0                                                  ; includes/mill.hpp :0051
LBL "4$Pocket.get_ToolLCut"                            ; includes/mill.hpp :0054
 QL63 = QL29                                           ; includes/mill.hpp :0279
LBL 0                                                  ; includes/mill.hpp :0054
LBL "4$Pocket.plunge"                                  ; includes/mill.hpp :0055
 QL70 = QL70 - QL48                                    ; includes/mill.hpp :0303
 FN 11: IF QL70 GT 0 GOTO LBL "IFNOT_32"               ; includes/mill.hpp :0304
 FN 14: ERROR= 1103                                    ; includes/mill.hpp :0306
 LBL "IFNOT_32"                                        ; includes/mill.hpp :0307
 CALL LBL "read_wcs"
 Q0 = QL23                                             ; includes/mill.hpp :0311
 QL91 = QL69 - Q0                                      ; includes/mill.hpp :0311
 FN 10: IF QL66 NE 1 GOTO LBL "IFNOT_33"               ; includes/mill.hpp :0312
 QL91 = QL91 - ( 0.9 * SGN( QL91 ) * QL51 )            ; includes/mill.hpp :0314
 LBL "IFNOT_33"                                        ; includes/mill.hpp :0315
 FN 10: IF QL28 NE 90 GOTO LBL "IFNOT_34"              ; includes/mill.hpp :0320
 QL64 = 0                                              ; includes/mill.hpp :0320
 LBL "IFNOT_34"                                        ; includes/mill.hpp :0320
 FN 9: IF QL64 EQU 0 GOTO LBL "CASE0_35"               ; includes/mill.hpp :0324
 FN 9: IF QL64 EQU 1 GOTO LBL "CASE1_35"               ; includes/mill.hpp :0324
 FN 9: IF QL64 EQU 2 GOTO LBL "CASE2_35"               ; includes/mill.hpp :0324
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_35"              ; includes/mill.hpp :0324
 LBL "CASE0_35"                                        ; includes/mill.hpp :0326
 L  X+QL67 Y+QL68 R0 FMAX                              ; includes/mill.hpp :0327
 L  Z+QL69 F QL41                                      ; includes/mill.hpp :0328
 QL71 = QL47                                           ; includes/mill.hpp :0329
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_35"              ; includes/mill.hpp :0330
 LBL "CASE1_35"                                        ; includes/mill.hpp :0331
  FN 10: IF QL28 NE 0 GOTO LBL "IFNOT_36"              ; includes/mill.hpp :0332
  FN 14: ERROR= 1083                                   ; includes/mill.hpp :0334
  LBL "IFNOT_36"                                       ; includes/mill.hpp :0335
 QL87 = QL47 * (15/16)                                 ; includes/mill.hpp :0336
  FN 9: IF QL87 EQU QL70 GOTO LBL "IFNOT_37"           ; includes/mill.hpp :0337
  FN 12: IF QL87 LT QL70 GOTO LBL "IFNOT_37"           ; includes/mill.hpp :0337
   FN 9: IF QL70 EQU QL47 GOTO LBL "IFNOT_38"          ; includes/mill.hpp :0339
   FN 11: IF QL70 GT QL47 GOTO LBL "IFNOT_38"          ; includes/mill.hpp :0339
   QS3 = "CH_NC"                                       ; includes/mill.hpp :0341
   QS4 = "CfgGeoCycle"                                 ; includes/mill.hpp :0342
   QS5 = "suppressPlungeErr"                           ; includes/mill.hpp :0343
   QS3 = CFGREAD( KEY_ QS3 TAG_ QS4 ATR_ QS5 IDX0 )    ; includes/mill.hpp :0344
   QS0 = "on"                                          ; includes/mill.hpp :0345
   QL94 = STRCOMP( SRC_ QS3 SEA_ QS0 )                 ; includes/mill.hpp :0345
    FN 9: IF QL94 EQU 0 GOTO LBL "IFNOT_39"            ; includes/mill.hpp :0346
    FN 14: ERROR= 1104                                 ; includes/mill.hpp :0348
    LBL "IFNOT_39"                                     ; includes/mill.hpp :0349
   LBL "IFNOT_38"                                      ; includes/mill.hpp :0350
  QL87 = QL70                                          ; includes/mill.hpp :0351
  LBL "IFNOT_37"                                       ; includes/mill.hpp :0352
 QL88 = 2 * QL87 * PI                                  ; includes/mill.hpp :0353
 QL89 = QL88 * TAN( QL28 )                             ; includes/mill.hpp :0354
 CC  X+QL67 Y+QL68                                     ; includes/mill.hpp :0355
 LP  PR+QL87 PA+0 R0 FMAX                              ; includes/mill.hpp :0356
  FN 10: IF QL66 NE 1 GOTO LBL "IFNOT_40"              ; includes/mill.hpp :0357
  Q0 = 0.9 * SGN( QL91 ) * QL51                        ; includes/mill.hpp :0359
  L IZ+Q0 R0 F QL41                                    ; includes/mill.hpp :0359
  LBL "IFNOT_40"                                       ; includes/mill.hpp :0360
 QL92 = ABS( QL91 / QL89 )                             ; includes/mill.hpp :0361
 QL92 = INT( QL92 + 0.99 )                             ; includes/mill.hpp :0271
  FN 10: IF QL92 NE 0 GOTO LBL "IFNOT_41"              ; includes/mill.hpp :0272
  QL92 = 1                                             ; includes/mill.hpp :0272
  LBL "IFNOT_41"                                       ; includes/mill.hpp :0272
 LBL "e_4$Pocket$int_infeeds1"                         ; includes/mill.hpp :0040
 QL89 = QL91 / QL92                                    ; includes/mill.hpp :0363
  FN 9: IF QL46 EQU 0 GOTO LBL "IFNOT_42"              ; includes/mill.hpp :0364
  FN 11: IF QL46 GT 0 GOTO LBL "IFNOT_42"              ; includes/mill.hpp :0364
  QL93=0                                               ; includes/mill.hpp :0366
  FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_43"                ; includes/mill.hpp :0366
   LBL "FOR_43"                                        ; includes/mill.hpp :0366
   QL93 = QL93 + 1                                     ; includes/mill.hpp :0366
   LBL "FORCMP_43"                                     ; includes/mill.hpp :0366
   FN 9: IF QL93 EQU QL92 GOTO LBL "FORNOT_43"         ; includes/mill.hpp :0366
   FN 11: IF QL93 GT QL92 GOTO LBL "FORNOT_43"         ; includes/mill.hpp :0366
   CP IPA+360 IZ+QL89 DR+ F QL41                       ; includes/mill.hpp :0368
   FN 9: IF 0 EQU 0 GOTO LBL "FOR_43"                  ; includes/mill.hpp :0369
   LBL "FORNOT_43"                                     ; includes/mill.hpp :0369
   FN 10: IF QL65 NE 1 GOTO LBL "IFNOT_44"             ; includes/mill.hpp :0370
   CP IPA+360 DR+ F QL39                               ; includes/mill.hpp :0372
   LBL "IFNOT_44"                                      ; includes/mill.hpp :0373
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_42"                 ; includes/mill.hpp :0374
  LBL "IFNOT_42"                                       ; includes/mill.hpp :0374
  QL93=0                                               ; includes/mill.hpp :0377
  FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_45"                ; includes/mill.hpp :0377
   LBL "FOR_45"                                        ; includes/mill.hpp :0377
   QL93 = QL93 + 1                                     ; includes/mill.hpp :0377
   LBL "FORCMP_45"                                     ; includes/mill.hpp :0377
   FN 9: IF QL93 EQU QL92 GOTO LBL "FORNOT_45"         ; includes/mill.hpp :0377
   FN 11: IF QL93 GT QL92 GOTO LBL "FORNOT_45"         ; includes/mill.hpp :0377
   CP IPA-360 IZ+QL89 DR- F QL41                       ; includes/mill.hpp :0379
   FN 9: IF 0 EQU 0 GOTO LBL "FOR_45"                  ; includes/mill.hpp :0380
   LBL "FORNOT_45"                                     ; includes/mill.hpp :0380
   FN 10: IF QL65 NE 1 GOTO LBL "IFNOT_46"             ; includes/mill.hpp :0381
   CP IPA-360 DR- F QL39                               ; includes/mill.hpp :0383
   LBL "IFNOT_46"                                      ; includes/mill.hpp :0384
  LBL "ENDIF_42"                                       ; includes/mill.hpp :0385
 QL71 = QL48 + QL87                                    ; includes/mill.hpp :0386
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_35"              ; includes/mill.hpp :0387
 LBL "CASE2_35"                                        ; includes/mill.hpp :0388
  FN 10: IF QL28 NE 0 GOTO LBL "IFNOT_47"              ; includes/mill.hpp :0389
  FN 14: ERROR= 1083                                   ; includes/mill.hpp :0391
  LBL "IFNOT_47"                                       ; includes/mill.hpp :0392
 QL88 = 4 * QL70                                       ; includes/mill.hpp :0393
 QL89 = QL88 * TAN( QL28 )                             ; includes/mill.hpp :0394
 QL92 = ABS( QL91 / QL89 )                             ; includes/mill.hpp :0395
  FN 9: IF QL92 EQU 1 GOTO LBL "IFNOT_48"              ; includes/mill.hpp :0396
  FN 11: IF QL92 GT 1 GOTO LBL "IFNOT_48"              ; includes/mill.hpp :0396
  QL88 = ABS( QL91 / TAN( QL28 ) )                     ; includes/mill.hpp :0398
  QL92 = 1                                             ; includes/mill.hpp :0399
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_48"                 ; includes/mill.hpp :0400
  LBL "IFNOT_48"                                       ; includes/mill.hpp :0400
  QL92 = INT( QL92 + 0.99 )                            ; includes/mill.hpp :0271
   FN 10: IF QL92 NE 0 GOTO LBL "IFNOT_49"             ; includes/mill.hpp :0272
   QL92 = 1                                            ; includes/mill.hpp :0272
   LBL "IFNOT_49"                                      ; includes/mill.hpp :0272
  LBL "e_4$Pocket$int_infeeds2"                        ; includes/mill.hpp :0040
  LBL "ENDIF_48"                                       ; includes/mill.hpp :0404
 QL89 = QL91 / QL92 / 2                                ; includes/mill.hpp :0405
 QL90 = QL88 / 4                                       ; includes/mill.hpp :0406
 Q0 = QL67-QL90                                        ; includes/mill.hpp :0407
 L  X+Q0 Y+QL68 R0 FMAX                                ; includes/mill.hpp :0407
  FN 10: IF QL66 NE 1 GOTO LBL "IFNOT_50"              ; includes/mill.hpp :0408
  Q0 = 0.9 * SGN( QL91 ) * QL51                        ; includes/mill.hpp :0410
  L IZ+Q0 R0 F QL41                                    ; includes/mill.hpp :0410
  LBL "IFNOT_50"                                       ; includes/mill.hpp :0411
 QL93=0                                                ; includes/mill.hpp :0412
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_51"                 ; includes/mill.hpp :0412
  LBL "FOR_51"                                         ; includes/mill.hpp :0412
  QL93 = QL93 + 1                                      ; includes/mill.hpp :0412
  LBL "FORCMP_51"                                      ; includes/mill.hpp :0412
  FN 9: IF QL93 EQU QL92 GOTO LBL "FORNOT_51"          ; includes/mill.hpp :0412
  FN 11: IF QL93 GT QL92 GOTO LBL "FORNOT_51"          ; includes/mill.hpp :0412
  Q0 = QL67+QL90                                       ; includes/mill.hpp :0414
  L  X+Q0 IZ+QL89 F QL41                               ; includes/mill.hpp :0414
  Q0 = QL67-QL90                                       ; includes/mill.hpp :0415
  L  X+Q0 IZ+QL89                                      ; includes/mill.hpp :0415
  FN 9: IF 0 EQU 0 GOTO LBL "FOR_51"                   ; includes/mill.hpp :0416
  LBL "FORNOT_51"                                      ; includes/mill.hpp :0416
  FN 10: IF QL65 NE 1 GOTO LBL "IFNOT_52"              ; includes/mill.hpp :0417
  Q0 = QL67+QL90                                       ; includes/mill.hpp :0419
  L  X+Q0 F QL39                                       ; includes/mill.hpp :0419
  LBL "IFNOT_52"                                       ; includes/mill.hpp :0420
 QL71 = QL47                                           ; includes/mill.hpp :0421
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_35"              ; includes/mill.hpp :0422
 LBL "SWITCHDEF_35"                                    ; includes/mill.hpp :0423
 FN 14: ERROR= 1011                                    ; includes/mill.hpp :0424
 LBL "SWITCHEND_35"                                    ; includes/mill.hpp :0425
LBL 0                                                  ; includes/mill.hpp :0055
LBL "4$Pocket.recpock"                                 ; includes/mill.hpp :0060
 QL96 = 0                                              ; includes/mill.hpp :1234
 FN 9: IF QL75 EQU 0 GOTO LBL "IFNOT_53"               ; includes/mill.hpp :1239
 FN 12: IF QL75 LT 0 GOTO LBL "IFNOT_53"               ; includes/mill.hpp :1239
 FN 9: IF QL75 EQU QL48 GOTO LBL "IFNOT_53"            ; includes/mill.hpp :1239
 FN 11: IF QL75 GT QL48 GOTO LBL "IFNOT_53"            ; includes/mill.hpp :1239
 FN 14: ERROR= 1003                                    ; includes/mill.hpp :1241
 LBL "IFNOT_53"                                        ; includes/mill.hpp :1242
 Q0 = 2*QL75                                           ; includes/mill.hpp :1243
 Q1 = 2*QL75                                           ; includes/mill.hpp :1243
 FN 9: IF Q0 EQU QL73 GOTO LBL "IF_54"                 ; includes/mill.hpp :1243
 FN 11: IF Q0 GT QL73 GOTO LBL "IF_54"                 ; includes/mill.hpp :1243
 FN 9: IF Q1 EQU QL74 GOTO LBL "IF_54"                 ; includes/mill.hpp :1243
 FN 11: IF Q1 GT QL74 GOTO LBL "IF_54"                 ; includes/mill.hpp :1243
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_54"                  ; includes/mill.hpp :1243
 LBL "IF_54"                                           ; includes/mill.hpp :1243
 FN 14: ERROR= 1023                                    ; includes/mill.hpp :1245
 LBL "IFNOT_54"                                        ; includes/mill.hpp :1246
 TRANS DATUM AXIS IX+QL76 IY+QL77                      ; includes/mill.hpp :1250
 FN 9: IF QL74 EQU QL73 GOTO LBL "IFNOT_55"            ; includes/mill.hpp :1254
 FN 12: IF QL74 LT QL73 GOTO LBL "IFNOT_55"            ; includes/mill.hpp :1254
 QL95 = QL73                                           ; includes/mill.hpp :1256
 QL73 = QL74                                           ; includes/mill.hpp :1257
 QL74 = QL95                                           ; includes/mill.hpp :1258
 CYCL DEF 10.0 ROTATION
 CYCL DEF 10.1 IROT+90
 QL96 = 1                                              ; includes/mill.hpp :1261
 LBL "IFNOT_55"                                        ; includes/mill.hpp :1262
 FN 12: IF QL46 LT 0 GOTO LBL "IFNOT_56"               ; includes/mill.hpp :1266
  FN 10: IF QL35 NE 1 GOTO LBL "IFNOT_57"              ; includes/mill.hpp :1268
  QL97 = QL33 - 2                                      ; includes/mill.hpp :1270
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_57"                 ; includes/mill.hpp :1271
  LBL "IFNOT_57"                                       ; includes/mill.hpp :1271
  QL97 = QL33 + 2                                      ; includes/mill.hpp :1274
  LBL "ENDIF_57"                                       ; includes/mill.hpp :1275
 FN 17: SYSWRITE ID 210 NR 3 = QL97                    ; includes/mill.hpp :1276
 LBL "IFNOT_56"                                        ; includes/mill.hpp :1277
 L  X+0 Y+0 R0 F QL39                                  ; includes/mill.hpp :1281
 L  Z+QL78 R0 F QL41                                   ; includes/mill.hpp :1282
 F QL39                                                ; includes/mill.hpp :1283
 FN 9: IF QL72 EQU 0 GOTO LBL "CASE0_58"               ; includes/mill.hpp :1284
 FN 9: IF QL72 EQU 1 GOTO LBL "CASE1_58"               ; includes/mill.hpp :1284
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_58"              ; includes/mill.hpp :1284
 LBL "CASE0_58"                                        ; includes/mill.hpp :1286
 QL98 = QL73-2*QL79                                    ; includes/mill.hpp :1287
 QL99 = QL74-2*QL79                                    ; includes/mill.hpp :1287
 QL100 = QL75                                          ; includes/mill.hpp :1287
 CALL LBL "4$Pocket$recpock_rough"
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_58"              ; includes/mill.hpp :1288
 LBL "CASE1_58"                                        ; includes/mill.hpp :1289
 QL101 = QL73                                          ; includes/mill.hpp :1290
 QL102 = QL74                                          ; includes/mill.hpp :1290
 QL103 = QL75                                          ; includes/mill.hpp :1290
 QL104 = QL79                                          ; includes/mill.hpp :1290
 CALL LBL "4$Pocket$recpock_fin"
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_58"              ; includes/mill.hpp :1291
 LBL "SWITCHDEF_58"                                    ; includes/mill.hpp :1292
 FN 14: ERROR= 1011                                    ; includes/mill.hpp :1293
 LBL "SWITCHEND_58"                                    ; includes/mill.hpp :1294
 FN 12: IF QL46 LT 0 GOTO LBL "IFNOT_59"               ; includes/mill.hpp :1298
 FN 17: SYSWRITE ID 210 NR 3 = QL33                    ; includes/mill.hpp :1300
 LBL "IFNOT_59"                                        ; includes/mill.hpp :1301
 FN 10: IF QL96 NE 1 GOTO LBL "IFNOT_60"               ; includes/mill.hpp :1302
 CYCL DEF 10.0 ROTATION
 CYCL DEF 10.1 IROT-90
 LBL "IFNOT_60"                                        ; includes/mill.hpp :1306
 TRANS DATUM AXIS IX-QL76 IY-QL77                      ; includes/mill.hpp :1307
LBL 0                                                  ; includes/mill.hpp :0060
LBL "check_bit"                                        ; includes/stdlib.hh:0124
 QL105=15                                              ; includes/geo.hpp  :0850
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_61"                 ; includes/geo.hpp  :0850
 LBL "FOR_61"                                          ; includes/geo.hpp  :0850
 QL105 = QL105 + -1                                    ; includes/geo.hpp  :0850
 LBL "FORCMP_61"                                       ; includes/geo.hpp  :0850
 FN 12: IF QL105 LT 0 GOTO LBL "FORNOT_61"             ; includes/geo.hpp  :0850
 QL84 = 2 ^ QL105                                      ; includes/geo.hpp  :0852
  FN 12: IF QL82 LT QL84 GOTO LBL "IFNOT_62"           ; includes/geo.hpp  :0853
   FN 10: IF QL105 NE QL83 GOTO LBL "IFNOT_63"         ; includes/geo.hpp  :0855
   QL84 = 1                                            ; includes/geo.hpp  :0857
   LBL 0                                               ; includes/geo.hpp  :0858
   LBL "IFNOT_63"                                      ; includes/geo.hpp  :0859
  QL82 = QL82 - 2^QL105                                ; includes/geo.hpp  :0860
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_62"                 ; includes/geo.hpp  :0861
  LBL "IFNOT_62"                                       ; includes/geo.hpp  :0861
   FN 10: IF QL105 NE QL83 GOTO LBL "IFNOT_64"         ; includes/geo.hpp  :0864
   QL84 = 0                                            ; includes/geo.hpp  :0866
   LBL 0                                               ; includes/geo.hpp  :0867
   LBL "IFNOT_64"                                      ; includes/geo.hpp  :0868
  LBL "ENDIF_62"                                       ; includes/geo.hpp  :0869
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_61"                    ; includes/geo.hpp  :0870
 LBL "FORNOT_61"                                       ; includes/geo.hpp  :0870
 QL84 = -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_65"                 ; 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_66"                ; includes/geo.hpp  :0921
  FN 18: SYSREAD QL106 = ID 20 NR 5                    ; includes/geo.hpp  :0926
   FN 9: IF QL106 EQU 0 GOTO LBL "IFNOT_67"            ; includes/geo.hpp  :0927
   FN 9: IF QL106 EQU 1 GOTO LBL "IFNOT_67"            ; includes/geo.hpp  :0927
   FN 14: ERROR= 1000                                  ; includes/geo.hpp  :0929
   LBL "IFNOT_67"                                      ; includes/geo.hpp  :0930
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_66"                 ; includes/geo.hpp  :0931
  LBL "IFNOT_66"                                       ; includes/geo.hpp  :0931
  CALL LBL "state_exec"
  Q0 = QL107                                           ; includes/geo.hpp  :0937
   FN 9: IF Q0 EQU 0 GOTO LBL "IFNOT_68"               ; includes/geo.hpp  :0937
   LBL 0                                               ; includes/geo.hpp  :0937
   LBL "IFNOT_68"                                      ; includes/geo.hpp  :0937
  FN 20: WAIT FOR SYNC                                 ; includes/geo.hpp  :0941
  QL106 = 100                                          ; includes/geo.hpp  :0942
  FN 17: SYSWRITE ID 13 NR3 =+9990                     ; includes/geo.hpp  :0943
  READ FROM PLC KEY "PLC_API_VERSION" TO QL106         ; includes/geo.hpp  :0944
  LBL 9990                                             ; includes/geo.hpp  :0945
   FN 10: IF QL106 NE 100 GOTO LBL "IFNOT_69"          ; includes/geo.hpp  :0946
   FN 18: SYSREAD QL106 = ID 2000 NR 10 IDX 4000       ; includes/geo.hpp  :0948
    FN 10: IF QL106 NE 1 GOTO LBL "IFNOT_70"           ; includes/geo.hpp  :0949
    FN 14: ERROR= 1000                                 ; includes/geo.hpp  :0951
    LBL "IFNOT_70"                                     ; includes/geo.hpp  :0952
   FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_69"                ; includes/geo.hpp  :0953
   LBL "IFNOT_69"                                      ; 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
   QL106=0                                             ; includes/geo.hpp  :0973
   FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_71"               ; includes/geo.hpp  :0973
    LBL "FOR_71"                                       ; includes/geo.hpp  :0973
    QL106 = QL106 + 1                                  ; includes/geo.hpp  :0973
    LBL "FORCMP_71"                                    ; 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 QL106 )
    Q0 = STRCOMP( SRC_ QS2 SEA_ QS10 )                 ; includes/geo.hpp  :0977
     FN 10: IF Q0 NE 0 GOTO LBL "IFNOT_72"             ; includes/geo.hpp  :0977
     QS2 = "ApiSpin[" || TOCHAR( DAT+QL106 DECIMALS 0 ) || "].NN_SpiMotionRequest"
     READ FROM PLC KEY QS2 TO QL106                    ; includes/geo.hpp  :0980
      FN 10: IF QL106 NE 0 GOTO LBL "IFNOT_73"         ; includes/geo.hpp  :0981
      FN 14: ERROR= 1000                               ; includes/geo.hpp  :0983
      LBL "IFNOT_73"                                   ; includes/geo.hpp  :0984
     FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_71"             ; includes/geo.hpp  :0985
     LBL "IFNOT_72"                                    ; includes/geo.hpp  :0986
    FN 9: IF 0 EQU 0 GOTO LBL "FOR_71"                 ; includes/geo.hpp  :0987
    LBL "FORNOT_71"                                    ; includes/geo.hpp  :0987
   LBL 9991                                            ; includes/geo.hpp  :0988
   LBL "ENDIF_69"                                      ; includes/geo.hpp  :0989
  LBL "ENDIF_66"                                       ; includes/geo.hpp  :0990
 LBL "IFNOT_65"                                        ; includes/geo.hpp  :0991
LBL 0                                                  ; includes/stdlib.hh:0133
LBL "swap_axes"                                        ; includes/stdlib.hh:0120
 FN 17: SYSWRITE ID 212 = QL85                         ; includes/geo.hpp  :0841
LBL 0                                                  ; includes/stdlib.hh:0120
LBL "check_depth_sign"                                 ; includes/stdlib.hh:0128
 FN 9: IF QL86 EQU 0 GOTO LBL "IFNOT_74"               ; includes/geo.hpp  :0880
 FN 12: IF QL86 LT 0 GOTO LBL "IFNOT_74"               ; 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
 QL108 = CFGREAD( KEY_ QS3 TAG_ QS4 ATR_ QS5 )         ; includes/geo.hpp  :0888
  FN 10: IF QL108 NE 1 GOTO LBL "IFNOT_75"             ; includes/geo.hpp  :0890
  FN 14: ERROR= 1077                                   ; includes/geo.hpp  :0891
  LBL "IFNOT_75"                                       ; includes/geo.hpp  :0891
 LBL "IFNOT_74"                                        ; includes/geo.hpp  :0892
LBL 0                                                  ; includes/stdlib.hh:0128
LBL "4$Pocket$recpock_rough"                           ; includes/mill.hpp :0034
 QL111 = 0                                             ; includes/mill.hpp :1324
 QL98 = ( QL98 / 2 ) - QL48                            ; includes/mill.hpp :1334
 QL99 = ( QL99 / 2 ) - QL48                            ; includes/mill.hpp :1335
 QL100 = QL100 - QL48                                  ; includes/mill.hpp :1336
 QL116 = QL48 * 0.85                                   ; includes/mill.hpp :1342
 FN 9: IF QL99 EQU QL116 GOTO LBL "IFNOT_76"           ; includes/mill.hpp :1343
 FN 12: IF QL99 LT QL116 GOTO LBL "IFNOT_76"           ; includes/mill.hpp :1343
 QL114 = ( QL99 - QL116 ) / QL43                       ; includes/mill.hpp :1347
 QL114 = INT( QL114 + 0.99 )                           ; includes/mill.hpp :0271
  FN 10: IF QL114 NE 0 GOTO LBL "IFNOT_77"             ; includes/mill.hpp :0272
  QL114 = 1                                            ; includes/mill.hpp :0272
  LBL "IFNOT_77"                                       ; includes/mill.hpp :0272
 LBL "e_4$Pocket$int_infeeds3"                         ; includes/mill.hpp :0040
 QL112 = ( QL99 - QL116 ) / QL114                      ; includes/mill.hpp :1349
 QL114 = QL114 + 1                                     ; includes/mill.hpp :1350
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_76"                  ; includes/mill.hpp :1351
 LBL "IFNOT_76"                                        ; includes/mill.hpp :1351
 QL116 = QL99                                          ; includes/mill.hpp :1356
 QL114 = 1                                             ; includes/mill.hpp :1357
 LBL "ENDIF_76"                                        ; includes/mill.hpp :1358
 QL115=1                                               ; includes/mill.hpp :1362
 QL110=QL116                                           ; includes/mill.hpp :1362
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_78"                 ; includes/mill.hpp :1362
 LBL "FOR_78"                                          ; includes/mill.hpp :1362
 QL115 = QL115 + 1                                     ; includes/mill.hpp :1362
 LBL "FORCMP_78"                                       ; includes/mill.hpp :1362
 FN 11: IF QL115 GT QL114 GOTO LBL "FORNOT_78"         ; includes/mill.hpp :1362
  FN 10: IF QL115 NE 1 GOTO LBL "IFNOT_79"             ; includes/mill.hpp :1364
  QL113 = QL98 - (QL112 * (QL114-QL115)) - QL110       ; includes/mill.hpp :1368
  L X+QL113                                            ; includes/mill.hpp :1369
  Q0 = QL110/2                                         ; includes/mill.hpp :1370
  CC IX+0 IY+Q0                                        ; includes/mill.hpp :1370
  CP IPA+180 DR+                                       ; includes/mill.hpp :1371
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_79"                 ; includes/mill.hpp :1372
  LBL "IFNOT_79"                                       ; includes/mill.hpp :1372
  QL110 = QL110 + QL112                                ; includes/mill.hpp :1374
  L  Y+QL110                                           ; includes/mill.hpp :1375
  QL113 = QL109                                        ; includes/mill.hpp :1376
   FN 9: IF QL111 EQU 0 GOTO LBL "IFNOT_80"            ; includes/mill.hpp :1377
   FN 12: IF QL111 LT 0 GOTO LBL "IFNOT_80"            ; includes/mill.hpp :1377
   RND R QL111                                         ; includes/mill.hpp :1377
   LBL "IFNOT_80"                                      ; includes/mill.hpp :1377
  LBL "ENDIF_79"                                       ; includes/mill.hpp :1378
 QL109 = QL98 - (QL112 * (QL114-QL115))                ; includes/mill.hpp :1379
  FN 10: IF QL100 NE 0 GOTO LBL "IFNOT_81"             ; includes/mill.hpp :1384
  QL111 = 0                                            ; includes/mill.hpp :1386
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_81"                 ; includes/mill.hpp :1387
  LBL "IFNOT_81"                                       ; includes/mill.hpp :1387
  Q0 = QL110-QL37                                      ; includes/mill.hpp :1388
  FN 9: IF QL100 EQU Q0 GOTO LBL "ELSE0NOT_81"         ; includes/mill.hpp :1388
  FN 12: IF QL100 LT Q0 GOTO LBL "ELSE0NOT_81"         ; includes/mill.hpp :1388
  QL111 = QL110 - QL37                                 ; includes/mill.hpp :1390
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_81"                 ; includes/mill.hpp :1391
  LBL "ELSE0NOT_81"                                    ; includes/mill.hpp :1391
  QL111 = QL100                                        ; includes/mill.hpp :1394
  LBL "ENDIF_81"                                       ; includes/mill.hpp :1395
 L  X-QL109                                            ; includes/mill.hpp :1399
  FN 9: IF QL111 EQU 0 GOTO LBL "IFNOT_82"             ; includes/mill.hpp :1400
  FN 12: IF QL111 LT 0 GOTO LBL "IFNOT_82"             ; includes/mill.hpp :1400
  RND R QL111                                          ; includes/mill.hpp :1400
  LBL "IFNOT_82"                                       ; includes/mill.hpp :1400
 L  Y-QL110                                            ; includes/mill.hpp :1401
  FN 9: IF QL111 EQU 0 GOTO LBL "IFNOT_83"             ; includes/mill.hpp :1402
  FN 12: IF QL111 LT 0 GOTO LBL "IFNOT_83"             ; includes/mill.hpp :1402
  RND R QL111                                          ; includes/mill.hpp :1402
  LBL "IFNOT_83"                                       ; includes/mill.hpp :1402
 L  X+QL109                                            ; includes/mill.hpp :1403
  FN 9: IF QL111 EQU 0 GOTO LBL "IFNOT_84"             ; includes/mill.hpp :1404
  FN 12: IF QL111 LT 0 GOTO LBL "IFNOT_84"             ; includes/mill.hpp :1404
  RND R QL111                                          ; includes/mill.hpp :1404
  LBL "IFNOT_84"                                       ; includes/mill.hpp :1404
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_78"                    ; includes/mill.hpp :1405
 LBL "FORNOT_78"                                       ; includes/mill.hpp :1405
 L  Y+QL110                                            ; includes/mill.hpp :1406
 FN 9: IF QL111 EQU 0 GOTO LBL "IFNOT_85"              ; includes/mill.hpp :1407
 FN 12: IF QL111 LT 0 GOTO LBL "IFNOT_85"              ; includes/mill.hpp :1407
 RND R QL111                                           ; includes/mill.hpp :1409
  FN 9: IF QL113 EQU QL100 GOTO LBL "IFNOT_86"         ; includes/mill.hpp :1410
  FN 12: IF QL113 LT QL100 GOTO LBL "IFNOT_86"         ; includes/mill.hpp :1410
  Q0 = QL113 - QL100 - QL37                            ; includes/mill.hpp :1412
  L X+Q0                                               ; includes/mill.hpp :1412
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_86"                 ; includes/mill.hpp :1413
  LBL "IFNOT_86"                                       ; includes/mill.hpp :1413
  L X+0                                                ; includes/mill.hpp :1416
  LBL "ENDIF_86"                                       ; includes/mill.hpp :1417
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_85"                  ; includes/mill.hpp :1418
 LBL "IFNOT_85"                                        ; includes/mill.hpp :1418
 Q0 = QL113 - QL37                                     ; includes/mill.hpp :1421
 L X+Q0                                                ; includes/mill.hpp :1421
 LBL "ENDIF_85"                                        ; includes/mill.hpp :1422
 Q0 = QL110/3                                          ; includes/mill.hpp :1423
 CC IX+0 IY-Q0                                         ; includes/mill.hpp :1423
 CP IPA+15 DR+                                         ; includes/mill.hpp :1424
LBL 0                                                  ; includes/mill.hpp :0034
LBL "4$Pocket$recpock_fin"                             ; includes/mill.hpp :0035
 QL119 = 0                                             ; includes/mill.hpp :1445
 QL101 = ( QL101 / 2 )                                 ; includes/mill.hpp :1454
 QL102 = ( QL102 / 2 )                                 ; includes/mill.hpp :1455
 Q0 = QL102 - QL104                                    ; includes/mill.hpp :1459
 FN 9: IF Q0 EQU QL48 GOTO LBL "IFNOT_87"              ; includes/mill.hpp :1459
 FN 11: IF Q0 GT QL48 GOTO LBL "IFNOT_87"              ; includes/mill.hpp :1459
 FN 14: ERROR= 1003                                    ; includes/mill.hpp :1461
 LBL "IFNOT_87"                                        ; includes/mill.hpp :1462
 QL122 = QL104 / QL43                                  ; includes/mill.hpp :1467
 QL122 = INT( QL122 + 0.99 )                           ; includes/mill.hpp :0271
 FN 10: IF QL122 NE 0 GOTO LBL "IFNOT_88"              ; includes/mill.hpp :0272
 QL122 = 1                                             ; includes/mill.hpp :0272
 LBL "IFNOT_88"                                        ; includes/mill.hpp :0272
 LBL "e_4$Pocket$int_infeeds4"                         ; includes/mill.hpp :0040
 QL120 = QL104 / QL122                                 ; includes/mill.hpp :1469
 QL123=1                                               ; includes/mill.hpp :1473
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_89"                 ; includes/mill.hpp :1473
 LBL "FOR_89"                                          ; includes/mill.hpp :1473
 QL123 = QL123 + 1                                     ; includes/mill.hpp :1473
 LBL "FORCMP_89"                                       ; includes/mill.hpp :1473
 FN 11: IF QL123 GT QL122 GOTO LBL "FORNOT_89"         ; includes/mill.hpp :1473
 QL118 = QL102 - (QL120 * (QL122-QL123))               ; includes/mill.hpp :1475
  FN 10: IF QL123 NE 1 GOTO LBL "IFNOT_90"             ; includes/mill.hpp :1476
  Q0 = ( QL118 - QL48 ) / 2                            ; includes/mill.hpp :1478
  APPR CT Y+QL118 CCA+180 R+Q0 RL                      ; includes/mill.hpp :1478
  QL121 = 0                                            ; includes/mill.hpp :1479
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_90"                 ; includes/mill.hpp :1480
  LBL "IFNOT_90"                                       ; includes/mill.hpp :1480
  L  Y+QL118                                           ; includes/mill.hpp :1483
  QL121 = QL117                                        ; includes/mill.hpp :1484
   FN 9: IF QL119 EQU 0 GOTO LBL "IFNOT_91"            ; includes/mill.hpp :1485
   FN 12: IF QL119 LT 0 GOTO LBL "IFNOT_91"            ; includes/mill.hpp :1485
   RND R QL119                                         ; includes/mill.hpp :1485
   LBL "IFNOT_91"                                      ; includes/mill.hpp :1485
  LBL "ENDIF_90"                                       ; includes/mill.hpp :1486
 QL117 = QL101 - (QL120 * (QL122-QL123))               ; includes/mill.hpp :1487
  FN 10: IF QL103 NE 0 GOTO LBL "IFNOT_92"             ; includes/mill.hpp :1492
  QL119 = 0                                            ; includes/mill.hpp :1494
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_92"                 ; includes/mill.hpp :1495
  LBL "IFNOT_92"                                       ; includes/mill.hpp :1495
  Q0 = QL118-QL37                                      ; includes/mill.hpp :1496
  FN 9: IF QL103 EQU Q0 GOTO LBL "ELSE0NOT_92"         ; includes/mill.hpp :1496
  FN 12: IF QL103 LT Q0 GOTO LBL "ELSE0NOT_92"         ; includes/mill.hpp :1496
  QL119 = QL118 - QL37                                 ; includes/mill.hpp :1498
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_92"                 ; includes/mill.hpp :1499
  LBL "ELSE0NOT_92"                                    ; includes/mill.hpp :1499
  QL119 = QL103                                        ; includes/mill.hpp :1502
  LBL "ENDIF_92"                                       ; includes/mill.hpp :1503
 L  X-QL117                                            ; includes/mill.hpp :1507
  FN 9: IF QL119 EQU 0 GOTO LBL "IFNOT_93"             ; includes/mill.hpp :1508
  FN 12: IF QL119 LT 0 GOTO LBL "IFNOT_93"             ; includes/mill.hpp :1508
  RND R QL119                                          ; includes/mill.hpp :1508
  LBL "IFNOT_93"                                       ; includes/mill.hpp :1508
 L  Y-QL118                                            ; includes/mill.hpp :1509
  FN 9: IF QL119 EQU 0 GOTO LBL "IFNOT_94"             ; includes/mill.hpp :1510
  FN 12: IF QL119 LT 0 GOTO LBL "IFNOT_94"             ; includes/mill.hpp :1510
  RND R QL119                                          ; includes/mill.hpp :1510
  LBL "IFNOT_94"                                       ; includes/mill.hpp :1510
 L  X+QL117                                            ; includes/mill.hpp :1511
  FN 9: IF QL119 EQU 0 GOTO LBL "IFNOT_95"             ; includes/mill.hpp :1512
  FN 12: IF QL119 LT 0 GOTO LBL "IFNOT_95"             ; includes/mill.hpp :1512
  RND R QL119                                          ; includes/mill.hpp :1512
  LBL "IFNOT_95"                                       ; includes/mill.hpp :1512
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_89"                    ; includes/mill.hpp :1513
 LBL "FORNOT_89"                                       ; includes/mill.hpp :1513
 L  Y+QL118                                            ; includes/mill.hpp :1514
 FN 9: IF QL119 EQU 0 GOTO LBL "IFNOT_96"              ; includes/mill.hpp :1515
 FN 12: IF QL119 LT 0 GOTO LBL "IFNOT_96"              ; includes/mill.hpp :1515
 RND R QL119                                           ; includes/mill.hpp :1517
 QL117 = QL121 - QL103 - QL37                          ; includes/mill.hpp :1518
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_96"                  ; includes/mill.hpp :1519
 LBL "IFNOT_96"                                        ; includes/mill.hpp :1519
 QL117 = QL121 - QL48 - QL37                           ; includes/mill.hpp :1522
 LBL "ENDIF_96"                                        ; includes/mill.hpp :1523
 FN 9: IF QL117 EQU 0 GOTO LBL "IFNOT_97"              ; includes/mill.hpp :1524
 FN 11: IF QL117 GT 0 GOTO LBL "IFNOT_97"              ; includes/mill.hpp :1524
 QL117 = 0                                             ; includes/mill.hpp :1524
 LBL "IFNOT_97"                                        ; includes/mill.hpp :1524
 L X+QL117                                             ; includes/mill.hpp :1525
 Q0 = QL118/3                                          ; includes/mill.hpp :1526
 DEP CT CCA+15 R+Q0                                    ; includes/mill.hpp :1526
LBL 0                                                  ; includes/mill.hpp :0035
LBL "state_exec"                                       ; includes/stdlib.hh:0076
 FN 18: SYSREAD QL107 = ID 992 NR 11                   ; includes/geo.hpp  :0583
 FN 10: IF QL107 NE 1 GOTO LBL "IFNOT_98"              ; includes/geo.hpp  :0584
 QL107 = 3                                             ; includes/geo.hpp  :0586
 LBL 0                                                 ; includes/geo.hpp  :0587
 LBL "IFNOT_98"                                        ; includes/geo.hpp  :0588
 FN 18: SYSREAD QL107 = ID 992 NR 16                   ; includes/geo.hpp  :0590
 FN 10: IF QL107 NE 0 GOTO LBL "IFNOT_99"              ; includes/geo.hpp  :0591
 QL107 = 1                                             ; includes/geo.hpp  :0593
 LBL 0                                                 ; includes/geo.hpp  :0594
 LBL "IFNOT_99"                                        ; includes/geo.hpp  :0595
 FN 18: SYSREAD QL107 = ID 992 NR 10                   ; includes/geo.hpp  :0597
 FN 10: IF QL107 NE 1 GOTO LBL "IFNOT_100"             ; includes/geo.hpp  :0598
 QL107 = 2                                             ; includes/geo.hpp  :0600
 LBL 0                                                 ; includes/geo.hpp  :0601
 LBL "IFNOT_100"                                       ; includes/geo.hpp  :0602
 QL107 = 0                                             ; includes/geo.hpp  :0603
 LBL 0                                                 ; includes/geo.hpp  :0604
LBL 0                                                  ; includes/stdlib.hh:0076
LBL "EXIT"                                             ;                   :-001
END PGM MM
