BEGIN PGM 251.h MM ; h++ 2 13 8 2015_05_13
 QL12 = 0                                              ; src/251.hpp       :0025
 QL11 = SGN( Q201 )                                    ; src/251.hpp       :0032
 QL7 = Q203 + Q201                                     ; src/251.hpp       :0033
 FN 9: IF Q218 EQU Q219 GOTO LBL "IFNOT_1"             ; src/251.hpp       :0034
 FN 11: IF Q218 GT Q219 GOTO LBL "IFNOT_1"             ; src/251.hpp       :0034
 QL9 = ( Q218 - 2 * Q368 - 0.005 ) / 2                 ; src/251.hpp       :0036
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_1"                   ; src/251.hpp       :0037
 LBL "IFNOT_1"                                         ; src/251.hpp       :0037
 QL9 = ( Q219 - 2 * Q368 - 0.005 ) / 2                 ; src/251.hpp       :0040
 LBL "ENDIF_1"                                         ; src/251.hpp       :0041
 CALL LBL "251$Pocket.PRINT"
 CALL LBL "251$Pocket.MILL"
 QL42 = Q351                                           ; src/251.hpp       :0046
 QL43 = Q203                                           ; src/251.hpp       :0046
 QL44 = Q200                                           ; src/251.hpp       :0046
 QL45 = Q204                                           ; src/251.hpp       :0046
 QL46 = Q370                                           ; src/251.hpp       :0046
 QL47 = Q201                                           ; src/251.hpp       :0046
 CALL LBL "251$Pocket.init"
 FN 18: SYSREAD QL0 = ID 992 NR 30                     ; src/251.hpp       :0050
 CALL LBL "251$Pocket.get_ToolLCut"
 QL5 = QL48                                            ; src/251.hpp       :0051
 FN 9: IF Q220 EQU 0 GOTO LBL "IFNOT_2"                ; src/251.hpp       :0055
 FN 12: IF Q220 LT 0 GOTO LBL "IFNOT_2"                ; src/251.hpp       :0055
  FN 9: IF Q220 EQU QL37 GOTO LBL "IFNOT_3"            ; src/251.hpp       :0057
  FN 11: IF Q220 GT QL37 GOTO LBL "IFNOT_3"            ; src/251.hpp       :0057
  FN 14: ERROR= 1003                                   ; src/251.hpp       :0058
  LBL "IFNOT_3"                                        ; src/251.hpp       :0059
  FN 9: IF QL37 EQU 0 GOTO LBL "IFNOT_4"               ; src/251.hpp       :0060
  FN 11: IF QL37 GT 0 GOTO LBL "IFNOT_4"               ; src/251.hpp       :0060
  FN 14: ERROR= 1002                                   ; src/251.hpp       :0061
  LBL "IFNOT_4"                                        ; src/251.hpp       :0062
 LBL "IFNOT_2"                                         ; src/251.hpp       :0063
 Q0 = Q218/2 - Q368                                    ; src/251.hpp       :0064
 Q1 = Q218/2 - Q368                                    ; src/251.hpp       :0064
 FN 9: IF Q0 EQU QL36 GOTO LBL "IF_5"                  ; src/251.hpp       :0064
 FN 12: IF Q0 LT QL36 GOTO LBL "IF_5"                  ; src/251.hpp       :0064
 FN 9: IF Q1 EQU QL37 GOTO LBL "IF_5"                  ; src/251.hpp       :0064
 FN 12: IF Q1 LT QL37 GOTO LBL "IF_5"                  ; src/251.hpp       :0064
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_5"                   ; src/251.hpp       :0064
 LBL "IF_5"                                            ; src/251.hpp       :0064
 FN 14: ERROR= 1029                                    ; src/251.hpp       :0066
 LBL "IFNOT_5"                                         ; src/251.hpp       :0067
 Q0 = Q219/2 - Q368                                    ; src/251.hpp       :0068
 Q1 = Q219/2 - Q368                                    ; src/251.hpp       :0068
 FN 9: IF Q0 EQU QL36 GOTO LBL "IF_6"                  ; src/251.hpp       :0068
 FN 12: IF Q0 LT QL36 GOTO LBL "IF_6"                  ; src/251.hpp       :0068
 FN 9: IF Q1 EQU QL37 GOTO LBL "IF_6"                  ; src/251.hpp       :0068
 FN 12: IF Q1 LT QL37 GOTO LBL "IF_6"                  ; src/251.hpp       :0068
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_6"                   ; src/251.hpp       :0068
 LBL "IF_6"                                            ; src/251.hpp       :0068
 FN 14: ERROR= 1029                                    ; src/251.hpp       :0070
 LBL "IFNOT_6"                                         ; src/251.hpp       :0071
 FN 10: IF QL0 NE 1 GOTO LBL "IFNOT_7"                 ; src/251.hpp       :0075
 QL3 = Q224                                            ; src/251.hpp       :0075
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_7"                   ; src/251.hpp       :0075
 LBL "IFNOT_7"                                         ; src/251.hpp       :0075
 QL3 = 0                                               ; src/251.hpp       :0076
 LBL "ENDIF_7"                                         ; src/251.hpp       :0076
 FN 9: IF Q218 EQU Q219 GOTO LBL "IFNOT_8"             ; src/251.hpp       :0077
 FN 11: IF Q218 GT Q219 GOTO LBL "IFNOT_8"             ; src/251.hpp       :0077
 QL4 = 90                                              ; src/251.hpp       :0079
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_8"                   ; src/251.hpp       :0080
 LBL "IFNOT_8"                                         ; src/251.hpp       :0080
 QL4 = 0                                               ; src/251.hpp       :0083
 LBL "ENDIF_8"                                         ; src/251.hpp       :0084
 CALL LBL "read_wcs"
 QL1 = QL49                                            ; src/251.hpp       :0089
 QL2 = QL50                                            ; src/251.hpp       :0089
 TRANS DATUM AXIS IX+QL1 IY+QL2                        ; src/251.hpp       :0090
 FN 10: IF QL0 NE 1 GOTO LBL "IFNOT_9"                 ; src/251.hpp       :0091
 CYCL DEF 10.0 ROTATION
 CYCL DEF 10.1 IROT+QL3
 LBL "IFNOT_9"                                         ; src/251.hpp       :0094
 FN 9: IF Q367 EQU 0 GOTO LBL "CASE0_10"               ; src/251.hpp       :0095
 FN 9: IF Q367 EQU 1 GOTO LBL "CASE1_10"               ; src/251.hpp       :0095
 FN 9: IF Q367 EQU 2 GOTO LBL "CASE2_10"               ; src/251.hpp       :0095
 FN 9: IF Q367 EQU 3 GOTO LBL "CASE3_10"               ; src/251.hpp       :0095
 FN 9: IF Q367 EQU 4 GOTO LBL "CASE4_10"               ; src/251.hpp       :0095
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_10"              ; src/251.hpp       :0095
 LBL "CASE0_10"                                        ; src/251.hpp       :0097
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_10"              ; src/251.hpp       :0098
 LBL "CASE1_10"                                        ; src/251.hpp       :0099
 Q0 = Q218/2                                           ; src/251.hpp       :0100
 Q1 = Q219/2                                           ; src/251.hpp       :0100
 TRANS DATUM AXIS IX+Q0 IY+Q1                          ; src/251.hpp       :0100
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_10"              ; src/251.hpp       :0101
 LBL "CASE2_10"                                        ; src/251.hpp       :0102
 Q0 = Q218/2                                           ; src/251.hpp       :0103
 Q1 = Q219/2                                           ; src/251.hpp       :0103
 TRANS DATUM AXIS IX-Q0 IY+Q1                          ; src/251.hpp       :0103
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_10"              ; src/251.hpp       :0104
 LBL "CASE3_10"                                        ; src/251.hpp       :0105
 Q0 = Q218/2                                           ; src/251.hpp       :0106
 Q1 = Q219/2                                           ; src/251.hpp       :0106
 TRANS DATUM AXIS IX-Q0 IY-Q1                          ; src/251.hpp       :0106
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_10"              ; src/251.hpp       :0107
 LBL "CASE4_10"                                        ; src/251.hpp       :0108
 Q0 = Q218/2                                           ; src/251.hpp       :0109
 Q1 = Q219/2                                           ; src/251.hpp       :0109
 TRANS DATUM AXIS IX+Q0 IY-Q1                          ; src/251.hpp       :0109
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_10"              ; src/251.hpp       :0110
 LBL "SWITCHDEF_10"                                    ; src/251.hpp       :0111
 FN 14: ERROR= 1011                                    ; src/251.hpp       :0112
 LBL "SWITCHEND_10"                                    ; src/251.hpp       :0113
 FN 9: IF Q215 EQU 0 GOTO LBL "IF_11"                  ; src/251.hpp       :0117
 FN 9: IF Q215 EQU 1 GOTO LBL "IF_11"                  ; src/251.hpp       :0117
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_11"                  ; src/251.hpp       :0117
 LBL "IF_11"                                           ; src/251.hpp       :0117
 QL52 = Q207                                           ; src/251.hpp       :0119
 QL53 = Q207                                           ; src/251.hpp       :0119
 QL54 = Q206                                           ; src/251.hpp       :0119
 QL55 = -57239891                                      ; src/251.hpp       :0119
 CALL LBL "251$Pocket.set_feed"
 QL56 = 0                                              ; src/251.hpp       :0120
 QL57 = 0                                              ; src/251.hpp       :0120
 QL58 = Q203                                           ; src/251.hpp       :0120
 QL59 = QL40                                           ; src/251.hpp       :0120
 QL60 = QL40                                           ; src/251.hpp       :0120
 QL61 = Q201                                           ; src/251.hpp       :0120
 CALL LBL "prepos"
 QL7 = Q203 + Q201 - ( QL11 * Q369 )                   ; src/251.hpp       :0121
  FN 9: IF Q202 EQU 0 GOTO LBL "IFNOT_12"              ; src/251.hpp       :0122
  QL8 = ABS( Q202 )                                    ; src/251.hpp       :0124
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_12"                 ; src/251.hpp       :0125
  LBL "IFNOT_12"                                       ; src/251.hpp       :0125
  FN 14: ERROR= 1090                                   ; src/251.hpp       :0128
  LBL "ENDIF_12"                                       ; src/251.hpp       :0129
  FN 9: IF QL8 EQU QL5 GOTO LBL "IFNOT_13"             ; src/251.hpp       :0130
  FN 12: IF QL8 LT QL5 GOTO LBL "IFNOT_13"             ; src/251.hpp       :0130
  FN 9: IF QL5 EQU 0 GOTO LBL "IFNOT_13"               ; src/251.hpp       :0130
  FN 12: IF QL5 LT 0 GOTO LBL "IFNOT_13"               ; src/251.hpp       :0130
  QL8 = QL5                                            ; src/251.hpp       :0132
  LBL "IFNOT_13"                                       ; src/251.hpp       :0133
 QL8 = QL8 * QL11                                      ; src/251.hpp       :0134
 QL6=Q203+QL8                                          ; src/251.hpp       :0135
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_14"                 ; src/251.hpp       :0135
  LBL "FOR_14"                                         ; src/251.hpp       :0135
  QL6=QL6+QL8                                          ; src/251.hpp       :0135
  LBL "FORCMP_14"                                      ; src/251.hpp       :0135
   FN 10: IF QL11 NE -1 GOTO LBL "CTRLCMD0_15"         ; src/251.hpp       :0137
   FN 11: IF QL6 GT QL7 GOTO LBL "CTRLCMD0_15"         ; src/251.hpp       :0137
   FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_14"               ; src/251.hpp       :0137
   LBL "CTRLCMD0_15"                                   ; src/251.hpp       :0137
   FN 10: IF QL11 NE +1 GOTO LBL "CTRLCMD1_16"         ; src/251.hpp       :0138
   FN 12: IF QL6 LT QL7 GOTO LBL "CTRLCMD1_16"         ; src/251.hpp       :0138
   FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_14"               ; src/251.hpp       :0138
   LBL "CTRLCMD1_16"                                   ; src/251.hpp       :0138
   FN 10: IF QL0 NE 1 GOTO LBL "IFNOT_17"              ; src/251.hpp       :0139
   CYCL DEF 10.0 ROTATION
   CYCL DEF 10.1 IROT+QL4
   QL62 = Q366                                         ; src/251.hpp       :0142
   QL63 = 0                                            ; src/251.hpp       :0142
   QL64 = QL12                                         ; src/251.hpp       :0142
   QL65 = 0                                            ; src/251.hpp       :0142
   QL66 = 0                                            ; src/251.hpp       :0142
   QL67 = QL6                                          ; src/251.hpp       :0142
   QL68 = QL9                                          ; src/251.hpp       :0142
   CALL LBL "251$Pocket.plunge"
   QL10 = QL69                                         ; src/251.hpp       :0142
   CYCL DEF 10.0 ROTATION
   CYCL DEF 10.1 IROT-QL4
   QL70 = 0                                            ; src/251.hpp       :0145
   QL71 = Q218                                         ; src/251.hpp       :0145
   QL72 = Q219                                         ; src/251.hpp       :0145
   QL73 = Q220                                         ; src/251.hpp       :0145
   QL74 = 0                                            ; src/251.hpp       :0145
   QL75 = 0                                            ; src/251.hpp       :0145
   QL76 = QL6                                          ; src/251.hpp       :0145
   QL77 = Q368                                         ; src/251.hpp       :0145
   CALL LBL "251$Pocket.recpock"
   Q0 = QL6-QL40*QL11                                  ; src/251.hpp       :0146
   L  Z+Q0 R0 FMAX                                     ; src/251.hpp       :0146
   QL12 = 1                                            ; src/251.hpp       :0147
   FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_17"                ; src/251.hpp       :0148
   LBL "IFNOT_17"                                      ; src/251.hpp       :0148
   QL78 = 0                                            ; src/251.hpp       :0150
   QL79 = Q218                                         ; src/251.hpp       :0150
   QL80 = Q219                                         ; src/251.hpp       :0150
   QL81 = 0                                            ; src/251.hpp       :0150
   QL82 = 0                                            ; src/251.hpp       :0150
   QL83 = QL6                                          ; src/251.hpp       :0150
   QL84 = Q368                                         ; src/251.hpp       :0150
   CALL LBL "251$Pocket.recpock_ap"
   Q0 = QL6-QL40*QL11                                  ; src/251.hpp       :0151
   Z+Q0 R0 FMAX                                        ; src/251.hpp       :0151
   LBL "ENDIF_17"                                      ; src/251.hpp       :0152
  FN 9: IF 0 EQU 0 GOTO LBL "FOR_14"                   ; src/251.hpp       :0153
  LBL "FORNOT_14"                                      ; src/251.hpp       :0153
  FN 10: IF QL0 NE 1 GOTO LBL "IFNOT_18"               ; src/251.hpp       :0157
  CYCL DEF 10.0 ROTATION
  CYCL DEF 10.1 IROT+QL4
  QL62 = Q366                                          ; src/251.hpp       :0160
  QL63 = 0                                             ; src/251.hpp       :0160
  QL64 = QL12                                          ; src/251.hpp       :0160
  QL65 = 0                                             ; src/251.hpp       :0160
  QL66 = 0                                             ; src/251.hpp       :0160
  QL67 = QL7                                           ; src/251.hpp       :0160
  QL68 = QL9                                           ; src/251.hpp       :0160
  CALL LBL "251$Pocket.plunge"
  QL10 = QL69                                          ; src/251.hpp       :0160
  CYCL DEF 10.0 ROTATION
  CYCL DEF 10.1 IROT-QL4
  QL70 = 0                                             ; src/251.hpp       :0163
  QL71 = Q218                                          ; src/251.hpp       :0163
  QL72 = Q219                                          ; src/251.hpp       :0163
  QL73 = Q220                                          ; src/251.hpp       :0163
  QL74 = 0                                             ; src/251.hpp       :0163
  QL75 = 0                                             ; src/251.hpp       :0163
  QL76 = QL7                                           ; src/251.hpp       :0163
  QL77 = Q368                                          ; src/251.hpp       :0163
  CALL LBL "251$Pocket.recpock"
  Q0 = QL7-QL40*QL11                                   ; src/251.hpp       :0164
  L  Z+Q0 R0 FMAX                                      ; src/251.hpp       :0164
  QL12 = 1                                             ; src/251.hpp       :0165
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_18"                 ; src/251.hpp       :0166
  LBL "IFNOT_18"                                       ; src/251.hpp       :0166
  QL78 = 0                                             ; src/251.hpp       :0168
  QL79 = Q218                                          ; src/251.hpp       :0168
  QL80 = Q219                                          ; src/251.hpp       :0168
  QL81 = 0                                             ; src/251.hpp       :0168
  QL82 = 0                                             ; src/251.hpp       :0168
  QL83 = QL7                                           ; src/251.hpp       :0168
  QL84 = Q368                                          ; src/251.hpp       :0168
  CALL LBL "251$Pocket.recpock_ap"
  Q0 = QL7-QL40*QL11                                   ; src/251.hpp       :0169
  Z+Q0 R0 FMAX                                         ; src/251.hpp       :0169
  LBL "ENDIF_18"                                       ; src/251.hpp       :0170
 LBL "IFNOT_11"                                        ; src/251.hpp       :0171
 FN 9: IF Q215 EQU 0 GOTO LBL "IF_19"                  ; src/251.hpp       :0175
 FN 9: IF Q215 EQU 2 GOTO LBL "IF_19"                  ; src/251.hpp       :0175
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_19"                  ; src/251.hpp       :0175
 LBL "IF_19"                                           ; src/251.hpp       :0175
 QL52 = Q385                                           ; src/251.hpp       :0177
 QL53 = Q385                                           ; src/251.hpp       :0177
 QL54 = Q206                                           ; src/251.hpp       :0177
 QL55 = -57239891                                      ; src/251.hpp       :0177
 CALL LBL "251$Pocket.set_feed"
  FN 9: IF Q338 EQU 0 GOTO LBL "IFNOT_20"              ; src/251.hpp       :0178
  QL8 = ABS( Q338 )                                    ; src/251.hpp       :0180
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_20"                 ; src/251.hpp       :0181
  LBL "IFNOT_20"                                       ; src/251.hpp       :0181
  QL8 = ABS( Q201 )                                    ; src/251.hpp       :0184
  LBL "ENDIF_20"                                       ; src/251.hpp       :0185
  FN 9: IF QL8 EQU QL5 GOTO LBL "IFNOT_21"             ; src/251.hpp       :0186
  FN 12: IF QL8 LT QL5 GOTO LBL "IFNOT_21"             ; src/251.hpp       :0186
  FN 9: IF QL5 EQU 0 GOTO LBL "IFNOT_21"               ; src/251.hpp       :0186
  FN 12: IF QL5 LT 0 GOTO LBL "IFNOT_21"               ; src/251.hpp       :0186
  QL8 = QL5                                            ; src/251.hpp       :0188
  LBL "IFNOT_21"                                       ; src/251.hpp       :0189
 Q0 = ABS( Q201 ) - Q369                               ; src/251.hpp       :0190
  FN 9: IF QL8 EQU Q0 GOTO LBL "IFNOT_22"              ; src/251.hpp       :0190
  FN 12: IF QL8 LT Q0 GOTO LBL "IFNOT_22"              ; src/251.hpp       :0190
  QL8 = ABS( Q201 ) - Q369                             ; src/251.hpp       :0192
  LBL "IFNOT_22"                                       ; src/251.hpp       :0193
 QL8 = QL8 * QL11                                      ; src/251.hpp       :0194
  FN 9: IF Q368 EQU 0 GOTO LBL "IFNOT_23"              ; src/251.hpp       :0198
  FN 12: IF Q368 LT 0 GOTO LBL "IFNOT_23"              ; src/251.hpp       :0198
  QL7 = Q203 + Q201 - ( QL11 * Q369 )                  ; src/251.hpp       :0200
  QL56 = 0                                             ; src/251.hpp       :0201
  QL57 = 0                                             ; src/251.hpp       :0201
  QL58 = Q203                                          ; src/251.hpp       :0201
  QL59 = QL40                                          ; src/251.hpp       :0201
  QL60 = QL40                                          ; src/251.hpp       :0201
  QL61 = Q201                                          ; src/251.hpp       :0201
  CALL LBL "prepos"
  QL6=Q203+QL8                                         ; src/251.hpp       :0202
  FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_24"                ; src/251.hpp       :0202
   LBL "FOR_24"                                        ; src/251.hpp       :0202
   QL6=QL6+QL8                                         ; src/251.hpp       :0202
   LBL "FORCMP_24"                                     ; src/251.hpp       :0202
    FN 10: IF QL11 NE -1 GOTO LBL "CTRLCMD0_25"        ; src/251.hpp       :0204
    FN 11: IF QL6 GT QL7 GOTO LBL "CTRLCMD0_25"        ; src/251.hpp       :0204
    FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_24"              ; src/251.hpp       :0204
    LBL "CTRLCMD0_25"                                  ; src/251.hpp       :0204
    FN 10: IF QL11 NE +1 GOTO LBL "CTRLCMD1_26"        ; src/251.hpp       :0205
    FN 12: IF QL6 LT QL7 GOTO LBL "CTRLCMD1_26"        ; src/251.hpp       :0205
    FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_24"              ; src/251.hpp       :0205
    LBL "CTRLCMD1_26"                                  ; src/251.hpp       :0205
    FN 10: IF QL0 NE 1 GOTO LBL "IFNOT_27"             ; src/251.hpp       :0206
    QL70 = 1                                           ; src/251.hpp       :0207
    QL71 = Q218                                        ; src/251.hpp       :0207
    QL72 = Q219                                        ; src/251.hpp       :0207
    QL73 = Q220                                        ; src/251.hpp       :0207
    QL74 = 0                                           ; src/251.hpp       :0207
    QL75 = 0                                           ; src/251.hpp       :0207
    QL76 = QL6                                         ; src/251.hpp       :0207
    QL77 = Q368                                        ; src/251.hpp       :0207
    CALL LBL "251$Pocket.recpock"
    Q0 = QL6-QL40*QL11                                 ; src/251.hpp       :0208
    L  Z+Q0 R0 FMAX                                    ; src/251.hpp       :0208
    FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_27"               ; src/251.hpp       :0209
    LBL "IFNOT_27"                                     ; src/251.hpp       :0209
    QL78 = 1                                           ; src/251.hpp       :0211
    QL79 = Q218                                        ; src/251.hpp       :0211
    QL80 = Q219                                        ; src/251.hpp       :0211
    QL81 = 0                                           ; src/251.hpp       :0211
    QL82 = 0                                           ; src/251.hpp       :0211
    QL83 = QL6                                         ; src/251.hpp       :0211
    QL84 = Q368                                        ; src/251.hpp       :0211
    CALL LBL "251$Pocket.recpock_ap"
    Q0 = QL6-QL40*QL11                                 ; src/251.hpp       :0212
    Z+Q0 R0 FMAX                                       ; src/251.hpp       :0212
    LBL "ENDIF_27"                                     ; src/251.hpp       :0213
   FN 9: IF 0 EQU 0 GOTO LBL "FOR_24"                  ; src/251.hpp       :0214
   LBL "FORNOT_24"                                     ; src/251.hpp       :0214
   FN 10: IF QL0 NE 1 GOTO LBL "IFNOT_28"              ; src/251.hpp       :0218
   QL70 = 1                                            ; src/251.hpp       :0219
   QL71 = Q218                                         ; src/251.hpp       :0219
   QL72 = Q219                                         ; src/251.hpp       :0219
   QL73 = Q220                                         ; src/251.hpp       :0219
   QL74 = 0                                            ; src/251.hpp       :0219
   QL75 = 0                                            ; src/251.hpp       :0219
   QL76 = QL7                                          ; src/251.hpp       :0219
   QL77 = Q368                                         ; src/251.hpp       :0219
   CALL LBL "251$Pocket.recpock"
   Q0 = QL7-QL40*QL11                                  ; src/251.hpp       :0220
   L  Z+Q0 R0 FMAX                                     ; src/251.hpp       :0220
   FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_28"                ; src/251.hpp       :0221
   LBL "IFNOT_28"                                      ; src/251.hpp       :0221
   QL78 = 1                                            ; src/251.hpp       :0223
   QL79 = Q218                                         ; src/251.hpp       :0223
   QL80 = Q219                                         ; src/251.hpp       :0223
   QL81 = 0                                            ; src/251.hpp       :0223
   QL82 = 0                                            ; src/251.hpp       :0223
   QL83 = QL7                                          ; src/251.hpp       :0223
   QL84 = Q368                                         ; src/251.hpp       :0223
   CALL LBL "251$Pocket.recpock_ap"
   Q0 = QL7-QL40*QL11                                  ; src/251.hpp       :0224
   Z+Q0 R0 FMAX                                        ; src/251.hpp       :0224
   LBL "ENDIF_28"                                      ; src/251.hpp       :0225
  LBL "IFNOT_23"                                       ; src/251.hpp       :0226
  FN 9: IF Q369 EQU 0 GOTO LBL "IFNOT_29"              ; src/251.hpp       :0230
  FN 12: IF Q369 LT 0 GOTO LBL "IFNOT_29"              ; src/251.hpp       :0230
  QL7 = Q203 + Q201                                    ; src/251.hpp       :0232
  Q0 = QL7-QL11*Q369                                   ; src/251.hpp       :0233
  QL56 = 0                                             ; src/251.hpp       :0233
  QL57 = 0                                             ; src/251.hpp       :0233
  QL58 = Q0                                            ; src/251.hpp       :0233
  QL59 = QL40                                          ; src/251.hpp       :0233
  QL60 = QL40                                          ; src/251.hpp       :0233
  QL61 = Q201                                          ; src/251.hpp       :0233
  CALL LBL "prepos"
   FN 10: IF QL0 NE 1 GOTO LBL "IFNOT_30"              ; src/251.hpp       :0234
   CYCL DEF 10.0 ROTATION
   CYCL DEF 10.1 IROT+QL4
   QL62 = Q366                                         ; src/251.hpp       :0237
   QL63 = 0                                            ; src/251.hpp       :0237
   QL64 = QL12                                         ; src/251.hpp       :0237
   QL65 = 0                                            ; src/251.hpp       :0237
   QL66 = 0                                            ; src/251.hpp       :0237
   QL67 = QL7                                          ; src/251.hpp       :0237
   QL68 = QL9                                          ; src/251.hpp       :0237
   CALL LBL "251$Pocket.plunge"
   QL10 = QL69                                         ; src/251.hpp       :0237
   CYCL DEF 10.0 ROTATION
   CYCL DEF 10.1 IROT-QL4
   QL70 = 0                                            ; src/251.hpp       :0240
   QL71 = Q218                                         ; src/251.hpp       :0240
   QL72 = Q219                                         ; src/251.hpp       :0240
   QL73 = Q220                                         ; src/251.hpp       :0240
   QL74 = 0                                            ; src/251.hpp       :0240
   QL75 = 0                                            ; src/251.hpp       :0240
   QL76 = QL7                                          ; src/251.hpp       :0240
   QL77 = 0                                            ; src/251.hpp       :0240
   CALL LBL "251$Pocket.recpock"
   Q0 = QL7-QL40*QL11                                  ; src/251.hpp       :0241
   L  Z+Q0 R0 FMAX                                     ; src/251.hpp       :0241
   FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_30"                ; src/251.hpp       :0242
   LBL "IFNOT_30"                                      ; src/251.hpp       :0242
   QL78 = 0                                            ; src/251.hpp       :0244
   QL79 = Q218                                         ; src/251.hpp       :0244
   QL80 = Q219                                         ; src/251.hpp       :0244
   QL81 = 0                                            ; src/251.hpp       :0244
   QL82 = 0                                            ; src/251.hpp       :0244
   QL83 = QL7                                          ; src/251.hpp       :0244
   QL84 = 0                                            ; src/251.hpp       :0244
   CALL LBL "251$Pocket.recpock_ap"
   Q0 = QL7-QL40*QL11                                  ; src/251.hpp       :0245
   Z+Q0 R0 FMAX                                        ; src/251.hpp       :0245
   LBL "ENDIF_30"                                      ; src/251.hpp       :0246
  LBL "IFNOT_29"                                       ; src/251.hpp       :0247
 LBL "IFNOT_19"                                        ; src/251.hpp       :0248
 FN 10: IF QL0 NE 1 GOTO LBL "IFNOT_31"                ; src/251.hpp       :0252
 L  Z+QL41 R0 FMAX                                     ; src/251.hpp       :0253
 L  X+0 Y+0 R0 FMAX                                    ; src/251.hpp       :0254
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_31"                  ; src/251.hpp       :0255
 LBL "IFNOT_31"                                        ; src/251.hpp       :0255
 Z+QL41 R0 FMAX                                        ; src/251.hpp       :0257
 X+0 R0 FMAX                                           ; src/251.hpp       :0258
 Y+0 R0 FMAX                                           ; src/251.hpp       :0259
 LBL "ENDIF_31"                                        ; src/251.hpp       :0260
 FN 9: IF Q367 EQU 0 GOTO LBL "CASE0_32"               ; src/251.hpp       :0265
 FN 9: IF Q367 EQU 1 GOTO LBL "CASE1_32"               ; src/251.hpp       :0265
 FN 9: IF Q367 EQU 2 GOTO LBL "CASE2_32"               ; src/251.hpp       :0265
 FN 9: IF Q367 EQU 3 GOTO LBL "CASE3_32"               ; src/251.hpp       :0265
 FN 9: IF Q367 EQU 4 GOTO LBL "CASE4_32"               ; src/251.hpp       :0265
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_32"              ; src/251.hpp       :0265
 LBL "CASE0_32"                                        ; src/251.hpp       :0267
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_32"              ; src/251.hpp       :0268
 LBL "CASE1_32"                                        ; src/251.hpp       :0269
 Q0 = Q218/2                                           ; src/251.hpp       :0270
 Q1 = Q219/2                                           ; src/251.hpp       :0270
 TRANS DATUM AXIS IX-Q0 IY-Q1                          ; src/251.hpp       :0270
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_32"              ; src/251.hpp       :0271
 LBL "CASE2_32"                                        ; src/251.hpp       :0272
 Q0 = Q218/2                                           ; src/251.hpp       :0273
 Q1 = Q219/2                                           ; src/251.hpp       :0273
 TRANS DATUM AXIS IX+Q0 IY-Q1                          ; src/251.hpp       :0273
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_32"              ; src/251.hpp       :0274
 LBL "CASE3_32"                                        ; src/251.hpp       :0275
 Q0 = Q218/2                                           ; src/251.hpp       :0276
 Q1 = Q219/2                                           ; src/251.hpp       :0276
 TRANS DATUM AXIS IX+Q0 IY+Q1                          ; src/251.hpp       :0276
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_32"              ; src/251.hpp       :0277
 LBL "CASE4_32"                                        ; src/251.hpp       :0278
 Q0 = Q218/2                                           ; src/251.hpp       :0279
 Q1 = Q219/2                                           ; src/251.hpp       :0279
 TRANS DATUM AXIS IX-Q0 IY+Q1                          ; src/251.hpp       :0279
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_32"              ; src/251.hpp       :0280
 LBL "SWITCHEND_32"                                    ; src/251.hpp       :0281
 FN 10: IF QL0 NE 1 GOTO LBL "IFNOT_33"                ; src/251.hpp       :0282
 CYCL DEF 10.0 ROTATION
 CYCL DEF 10.1 IROT-QL3
 LBL "IFNOT_33"                                        ; src/251.hpp       :0285
 TRANS DATUM AXIS IX-QL1 IY-QL2                        ; src/251.hpp       :0286
LBL "e_2510"                                           ; src/251.hpp       :0008
FN 9: IF 0 EQU 0 GOTO LBL "EXIT"                       ;                   :-001
LBL "251$Pocket.PRINT"                                 ; src/print/print.hpp:0059
 FN 18: SYSREAD QL13 = ID 992 NR 16                    ; src/print/print.hpp:0088
 FN 10: IF QL13 NE 1 GOTO LBL "IFNOT_34"               ; 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
 QL85 = 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 QL85 EQU 1 GOTO LBL "CASE0_35"              ; src/print/print.hpp:0105
  FN 9: IF QL85 EQU 2 GOTO LBL "CASE1_35"              ; src/print/print.hpp:0105
  FN 9: IF QL85 EQU 3 GOTO LBL "CASE2_35"              ; src/print/print.hpp:0105
  FN 9: IF QL85 EQU 4 GOTO LBL "CASE3_35"              ; src/print/print.hpp:0105
  FN 9: IF QL85 EQU 5 GOTO LBL "CASE4_35"              ; src/print/print.hpp:0105
  FN 9: IF QL85 EQU 6 GOTO LBL "CASE5_35"              ; src/print/print.hpp:0105
  FN 9: IF QL85 EQU 7 GOTO LBL "CASE6_35"              ; src/print/print.hpp:0105
  FN 9: IF QL85 EQU 8 GOTO LBL "CASE7_35"              ; src/print/print.hpp:0105
  FN 9: IF QL85 EQU 9 GOTO LBL "CASE8_35"              ; src/print/print.hpp:0105
  FN 9: IF QL85 EQU 10 GOTO LBL "CASE9_35"             ; src/print/print.hpp:0105
  FN 9: IF QL85 EQU 11 GOTO LBL "CASE10_35"            ; src/print/print.hpp:0105
  FN 9: IF QL85 EQU 12 GOTO LBL "CASE11_35"            ; src/print/print.hpp:0105
  FN 9: IF QL85 EQU 17 GOTO LBL "CASE12_35"            ; src/print/print.hpp:0105
  FN 9: IF QL85 EQU 21 GOTO LBL "CASE13_35"            ; src/print/print.hpp:0105
  FN 9: IF QL85 EQU 22 GOTO LBL "CASE14_35"            ; src/print/print.hpp:0105
  FN 9: IF QL85 EQU 23 GOTO LBL "CASE15_35"            ; src/print/print.hpp:0105
  FN 9: IF QL85 EQU 24 GOTO LBL "CASE16_35"            ; src/print/print.hpp:0105
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_35"             ; src/print/print.hpp:0105
  LBL "CASE0_35"                                       ; src/print/print.hpp:0106
  QS11 = QS11 || "\DE.TAB"                             ; src/print/print.hpp:0107
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_35"             ; src/print/print.hpp:0108
  LBL "CASE1_35"                                       ; src/print/print.hpp:0109
  QS11 = QS11 || "\CS.TAB"                             ; src/print/print.hpp:0110
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_35"             ; src/print/print.hpp:0111
  LBL "CASE2_35"                                       ; src/print/print.hpp:0112
  QS11 = QS11 || "\FR.TAB"                             ; src/print/print.hpp:0113
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_35"             ; src/print/print.hpp:0114
  LBL "CASE3_35"                                       ; src/print/print.hpp:0115
  QS11 = QS11 || "\IT.TAB"                             ; src/print/print.hpp:0116
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_35"             ; src/print/print.hpp:0117
  LBL "CASE4_35"                                       ; src/print/print.hpp:0118
  QS11 = QS11 || "\ES.TAB"                             ; src/print/print.hpp:0119
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_35"             ; src/print/print.hpp:0120
  LBL "CASE5_35"                                       ; src/print/print.hpp:0121
  QS11 = QS11 || "\PT.TAB"                             ; src/print/print.hpp:0122
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_35"             ; src/print/print.hpp:0123
  LBL "CASE6_35"                                       ; src/print/print.hpp:0124
  QS11 = QS11 || "\SV.TAB"                             ; src/print/print.hpp:0125
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_35"             ; src/print/print.hpp:0126
  LBL "CASE7_35"                                       ; src/print/print.hpp:0127
  QS11 = QS11 || "\DA.TAB"                             ; src/print/print.hpp:0128
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_35"             ; src/print/print.hpp:0129
  LBL "CASE8_35"                                       ; src/print/print.hpp:0130
  QS11 = QS11 || "\FI.TAB"                             ; src/print/print.hpp:0131
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_35"             ; src/print/print.hpp:0132
  LBL "CASE9_35"                                       ; src/print/print.hpp:0133
  QS11 = QS11 || "\NL.TAB"                             ; src/print/print.hpp:0134
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_35"             ; src/print/print.hpp:0135
  LBL "CASE10_35"                                      ; src/print/print.hpp:0136
  QS11 = QS11 || "\PL.TAB"                             ; src/print/print.hpp:0137
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_35"             ; src/print/print.hpp:0138
  LBL "CASE11_35"                                      ; src/print/print.hpp:0139
  QS11 = QS11 || "\HU.TAB"                             ; src/print/print.hpp:0140
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_35"             ; src/print/print.hpp:0141
  LBL "CASE12_35"                                      ; src/print/print.hpp:0142
  QS11 = QS11 || "\SL.TAB"                             ; src/print/print.hpp:0143
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_35"             ; src/print/print.hpp:0144
  LBL "CASE13_35"                                      ; src/print/print.hpp:0145
  QS11 = QS11 || "\NB.TAB"                             ; src/print/print.hpp:0146
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_35"             ; src/print/print.hpp:0147
  LBL "CASE14_35"                                      ; src/print/print.hpp:0148
  QS11 = QS11 || "\RO.TAB"                             ; src/print/print.hpp:0149
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_35"             ; src/print/print.hpp:0150
  LBL "CASE15_35"                                      ; src/print/print.hpp:0151
  QS11 = QS11 || "\SK.TAB"                             ; src/print/print.hpp:0152
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_35"             ; src/print/print.hpp:0153
  LBL "CASE16_35"                                      ; src/print/print.hpp:0154
  QS11 = QS11 || "\TR.TAB"                             ; src/print/print.hpp:0155
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_35"             ; src/print/print.hpp:0156
  LBL "SWITCHDEF_35"                                   ; src/print/print.hpp:0157
  QS11 = QS11 || "\EN.TAB"                             ; src/print/print.hpp:0158
  LBL "SWITCHEND_35"                                   ; src/print/print.hpp:0159
 LBL "IFNOT_34"                                        ; src/print/print.hpp:0160
LBL 0                                                  ; src/print/print.hpp:0059
LBL "251$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
 QL15 = STRCOMP( SRC_ QS3 SEA_ QS0 )                   ; includes/mill.hpp :0075
 FN 9: IF QL15 EQU 0 GOTO LBL "IFNOT_36"               ; includes/mill.hpp :0076
 QL15 = 1                                              ; includes/mill.hpp :0076
 LBL "IFNOT_36"                                        ; includes/mill.hpp :0076
 FN 18: SYSREAD QL16 = ID 20 NR 3                      ; includes/mill.hpp :0080
 FN 18: SYSREAD QL39 = ID 200 NR 3 IDX 2               ; includes/mill.hpp :0084
 FN 18: SYSREAD QL22 = ID 210 NR 3                     ; includes/mill.hpp :0089
 FN 9: IF QL16 EQU 0 GOTO LBL "CASE0_37"               ; includes/mill.hpp :0090
 FN 9: IF QL16 EQU 6 GOTO LBL "CASE1_37"               ; includes/mill.hpp :0090
 FN 9: IF QL16 EQU 1 GOTO LBL "CASE2_37"               ; includes/mill.hpp :0090
 FN 9: IF QL16 EQU 7 GOTO LBL "CASE3_37"               ; includes/mill.hpp :0090
 FN 9: IF QL16 EQU 2 GOTO LBL "CASE4_37"               ; includes/mill.hpp :0090
 FN 9: IF QL16 EQU 8 GOTO LBL "CASE5_37"               ; includes/mill.hpp :0090
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_37"              ; includes/mill.hpp :0090
 LBL "CASE0_37"                                        ; includes/mill.hpp :0091
 LBL "CASE1_37"                                        ; includes/mill.hpp :0092
 FN 18: SYSREAD QL19 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0093
 FN 18: SYSREAD QL20 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0094
 FN 18: SYSREAD QL21 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0095
 QL87 = QL22                                           ; includes/mill.hpp :0096
 QL88 = 1                                              ; includes/mill.hpp :0096
 CALL LBL "check_bit"
 QL23 = QL89                                           ; includes/mill.hpp :0096
 QL87 = QL22                                           ; includes/mill.hpp :0097
 QL88 = 2                                              ; includes/mill.hpp :0097
 CALL LBL "check_bit"
 QL24 = QL89                                           ; includes/mill.hpp :0097
 QL87 = QL22                                           ; includes/mill.hpp :0098
 QL88 = 0                                              ; includes/mill.hpp :0098
 CALL LBL "check_bit"
 QL25 = QL89                                           ; includes/mill.hpp :0098
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_37"              ; includes/mill.hpp :0099
 LBL "CASE2_37"                                        ; includes/mill.hpp :0100
 LBL "CASE3_37"                                        ; includes/mill.hpp :0101
 FN 18: SYSREAD QL19 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0102
 FN 18: SYSREAD QL20 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0103
 FN 18: SYSREAD QL21 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0104
 QL87 = QL22                                           ; includes/mill.hpp :0105
 QL88 = 2                                              ; includes/mill.hpp :0105
 CALL LBL "check_bit"
 QL23 = QL89                                           ; includes/mill.hpp :0105
 QL87 = QL22                                           ; includes/mill.hpp :0106
 QL88 = 0                                              ; includes/mill.hpp :0106
 CALL LBL "check_bit"
 QL24 = QL89                                           ; includes/mill.hpp :0106
 QL87 = QL22                                           ; includes/mill.hpp :0107
 QL88 = 1                                              ; includes/mill.hpp :0107
 CALL LBL "check_bit"
 QL25 = QL89                                           ; includes/mill.hpp :0107
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_37"              ; includes/mill.hpp :0108
 LBL "CASE4_37"                                        ; includes/mill.hpp :0109
 LBL "CASE5_37"                                        ; includes/mill.hpp :0110
 FN 18: SYSREAD QL19 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0111
 FN 18: SYSREAD QL20 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0112
 FN 18: SYSREAD QL21 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0113
 QL87 = QL22                                           ; includes/mill.hpp :0114
 QL88 = 0                                              ; includes/mill.hpp :0114
 CALL LBL "check_bit"
 QL23 = QL89                                           ; includes/mill.hpp :0114
 QL87 = QL22                                           ; includes/mill.hpp :0115
 QL88 = 1                                              ; includes/mill.hpp :0115
 CALL LBL "check_bit"
 QL24 = QL89                                           ; includes/mill.hpp :0115
 QL87 = QL22                                           ; includes/mill.hpp :0116
 QL88 = 2                                              ; includes/mill.hpp :0116
 CALL LBL "check_bit"
 QL25 = QL89                                           ; includes/mill.hpp :0116
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_37"              ; includes/mill.hpp :0117
 LBL "SWITCHEND_37"                                    ; includes/mill.hpp :0118
 FN 9: IF QL19 EQU QL20 GOTO LBL "IFNOT_38"            ; includes/mill.hpp :0119
 FN 14: ERROR= 1108                                    ; includes/mill.hpp :0119
 LBL "IFNOT_38"                                        ; includes/mill.hpp :0119
 QL35 = 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_39"                 ; includes/mill.hpp :0129
 QL26 = 0.002                                          ; includes/mill.hpp :0130
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_39"                  ; includes/mill.hpp :0131
 LBL "IFNOT_39"                                        ; includes/mill.hpp :0131
 QL26 = 0.0002                                         ; includes/mill.hpp :0133
 LBL "ENDIF_39"                                        ; includes/mill.hpp :0134
 FN 18: SYSREAD QL14 = ID 992 NR 30                    ; includes/mill.hpp :0135
 FN 18: SYSREAD QL34 = ID 610 NR 6                     ; includes/mill.hpp :0136
 FN 18: SYSREAD QL18 = ID 950 NR 13                    ; includes/mill.hpp :0140
 FN 18: SYSREAD QL17 = ID 950 NR 14                    ; includes/mill.hpp :0141
 FN 18: SYSREAD QL36 = ID 200 NR 1 IDX 2               ; includes/mill.hpp :0142
 FN 18: SYSREAD QL37 = ID 200 NR 1 IDX 3               ; includes/mill.hpp :0143
 FN 11: IF QL36 GT 0 GOTO LBL "IFNOT_40"               ; includes/mill.hpp :0144
 FN 14: ERROR= 1002                                    ; includes/mill.hpp :0144
 LBL "IFNOT_40"                                        ; includes/mill.hpp :0144
 FN 9: IF QL36 EQU QL37 GOTO LBL "IFNOT_41"            ; includes/mill.hpp :0145
 FN 12: IF QL36 LT QL37 GOTO LBL "IFNOT_41"            ; includes/mill.hpp :0145
 QL38 = QL36                                           ; includes/mill.hpp :0146
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_41"                  ; includes/mill.hpp :0147
 LBL "IFNOT_41"                                        ; includes/mill.hpp :0147
 QL38 = QL37                                           ; includes/mill.hpp :0149
 LBL "ENDIF_41"                                        ; includes/mill.hpp :0150
 QL36 = QL36 / QL19                                    ; includes/mill.hpp :0154
 QL37 = QL37 / QL19                                    ; includes/mill.hpp :0155
 QL38 = QL38 / QL19                                    ; includes/mill.hpp :0156
 QL18 = QL18 / QL21                                    ; includes/mill.hpp :0157
 CALL LBL "check_spindle_status"
 QL90 = 3                                              ; includes/mill.hpp :0165
 CALL LBL "swap_axes"
LBL 0                                                  ; includes/mill.hpp :0049
LBL "251$Pocket.init"                                  ; includes/mill.hpp :0050
 FN 9: IF Q110 EQU 1 GOTO LBL "CASE0_42"               ; includes/mill.hpp :0175
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_42"              ; includes/mill.hpp :0175
 LBL "CASE0_42"                                        ; includes/mill.hpp :0177
 QL35 = +QL42                                          ; includes/mill.hpp :0178
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_42"              ; includes/mill.hpp :0179
 LBL "SWITCHDEF_42"                                    ; includes/mill.hpp :0180
 QL35 = -QL42                                          ; includes/mill.hpp :0181
 LBL "SWITCHEND_42"                                    ; includes/mill.hpp :0182
 FN 10: IF QL23 NE 1 GOTO LBL "IFNOT_43"               ; includes/mill.hpp :0183
 QL35 = -QL35                                          ; includes/mill.hpp :0185
 LBL "IFNOT_43"                                        ; includes/mill.hpp :0186
 FN 10: IF QL24 NE 1 GOTO LBL "IFNOT_44"               ; includes/mill.hpp :0187
 QL35 = -QL35                                          ; includes/mill.hpp :0189
 LBL "IFNOT_44"                                        ; includes/mill.hpp :0190
 QL32 = QL36 * QL46                                    ; includes/mill.hpp :0194
 QL91 = QL47                                           ; includes/mill.hpp :0198
 CALL LBL "check_depth_sign"
 FN 9: IF QL47 EQU 0 GOTO LBL "EXIT"                   ; includes/mill.hpp :0199
 QL33 = QL47                                           ; includes/mill.hpp :0200
 QL27 = QL43                                           ; includes/mill.hpp :0205
 QL40 = ABS( QL44 )                                    ; includes/mill.hpp :0206
 FN 9: IF QL40 EQU 0.001 GOTO LBL "IFNOT_46"           ; includes/mill.hpp :0207
 FN 11: IF QL40 GT 0.001 GOTO LBL "IFNOT_46"           ; includes/mill.hpp :0207
 QL40 = 0.001                                          ; includes/mill.hpp :0207
 LBL "IFNOT_46"                                        ; includes/mill.hpp :0207
 FN 9: IF QL45 EQU QL40 GOTO LBL "IFNOT_47"            ; includes/mill.hpp :0208
 FN 11: IF QL45 GT QL40 GOTO LBL "IFNOT_47"            ; includes/mill.hpp :0208
 QL41 = QL40                                           ; includes/mill.hpp :0210
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_47"                  ; includes/mill.hpp :0211
 LBL "IFNOT_47"                                        ; includes/mill.hpp :0211
 QL41 = QL45                                           ; includes/mill.hpp :0214
 LBL "ENDIF_47"                                        ; includes/mill.hpp :0215
 QL41 = QL27 - ( QL41 * SGN( QL33 ) )                  ; includes/mill.hpp :0216
LBL 0                                                  ; includes/mill.hpp :0050
LBL "251$Pocket.get_ToolLCut"                          ; includes/mill.hpp :0054
 QL48 = QL18                                           ; includes/mill.hpp :0279
LBL 0                                                  ; includes/mill.hpp :0054
LBL "read_wcs"                                         ; includes/stdlib.hh:0081
 FN 18: SYSREAD Q0 = ID 990 NR 2 IDX 16                ; includes/geo.hpp  :0618
 FN 9: IF Q0 EQU 1 GOTO LBL "IFNOT_48"                 ; includes/geo.hpp  :0618
 FN 17: SYSWRITE ID 991 NR 100 = 1                     ; includes/geo.hpp  :0620
 LBL "IFNOT_48"                                        ; 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_49"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 6 GOTO LBL "CASE1_49"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 1 GOTO LBL "CASE2_49"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 7 GOTO LBL "CASE3_49"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 2 GOTO LBL "CASE4_49"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 8 GOTO LBL "CASE5_49"                 ; includes/geo.hpp  :0627
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_49"              ; includes/geo.hpp  :0627
 LBL "CASE0_49"                                        ; includes/geo.hpp  :0629
 LBL "CASE1_49"                                        ; includes/geo.hpp  :0630
 FN 18: SYSREAD QL49 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0631
 FN 18: SYSREAD QL50 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0632
 FN 18: SYSREAD QL51 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0633
 LBL 0                                                 ; includes/geo.hpp  :0634
 LBL "CASE2_49"                                        ; includes/geo.hpp  :0635
 LBL "CASE3_49"                                        ; includes/geo.hpp  :0636
 FN 18: SYSREAD QL49 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0637
 FN 18: SYSREAD QL50 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0638
 FN 18: SYSREAD QL51 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0639
 LBL 0                                                 ; includes/geo.hpp  :0640
 LBL "CASE4_49"                                        ; includes/geo.hpp  :0641
 LBL "CASE5_49"                                        ; includes/geo.hpp  :0642
 FN 18: SYSREAD QL49 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0643
 FN 18: SYSREAD QL50 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0644
 FN 18: SYSREAD QL51 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0645
 LBL 0                                                 ; includes/geo.hpp  :0646
 LBL "SWITCHEND_49"                                    ; includes/geo.hpp  :0647
LBL 0                                                  ; includes/stdlib.hh:0081
LBL "251$Pocket.set_feed"                              ; includes/mill.hpp :0051
 QL28 = QL52                                           ; includes/mill.hpp :0223
 QL29 = QL53                                           ; includes/mill.hpp :0224
 QL30 = QL54                                           ; includes/mill.hpp :0225
 FN 11: IF QL55 GT 0 GOTO LBL "IFNOT_50"               ; includes/mill.hpp :0226
  FN 9: IF QL55 EQU -57239891 GOTO LBL "IFNOT_51"      ; includes/mill.hpp :0228
  QL31 = QL28                                          ; includes/mill.hpp :0230
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_51"                 ; includes/mill.hpp :0231
  LBL "IFNOT_51"                                       ; includes/mill.hpp :0231
  FN 22: FUNCT QL52 FNR 910 PIN 59 PIN 2 PEX 31        ; includes/mill.hpp :0235
  LBL "ENDIF_51"                                       ; includes/mill.hpp :0236
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_50"                  ; includes/mill.hpp :0238
 LBL "IFNOT_50"                                        ; includes/mill.hpp :0238
 QL31 = QL55                                           ; includes/mill.hpp :0241
 LBL "ENDIF_50"                                        ; includes/mill.hpp :0242
LBL 0                                                  ; includes/mill.hpp :0051
LBL "prepos"                                           ; includes/stdlib.hh:0108
 QL92 = QL60                                           ; includes/geo.hpp  :0780
 QL93 = QL61                                           ; includes/geo.hpp  :0780
 QL94 = QL58                                           ; includes/geo.hpp  :0780
 CALL LBL "retreat"
 FN 18: SYSREAD Q0 = ID 992 NR 30                      ; includes/geo.hpp  :0784
 FN 10: IF Q0 NE 1 GOTO LBL "IFNOT_52"                 ; includes/geo.hpp  :0784
 L  X+QL56 Y+QL57 R0 FMAX                              ; includes/geo.hpp  :0786
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_52"                  ; includes/geo.hpp  :0787
 LBL "IFNOT_52"                                        ; includes/geo.hpp  :0787
 X+QL56 R0 FMAX                                        ; includes/geo.hpp  :0790
 Y+QL57 R0 FMAX                                        ; includes/geo.hpp  :0791
 LBL "ENDIF_52"                                        ; includes/geo.hpp  :0792
 Q0 = QL58 - (ABS(QL59) * SGN(QL61))                   ; includes/geo.hpp  :0794
 Z+Q0 FMAX                                             ; includes/geo.hpp  :0794
LBL 0                                                  ; includes/stdlib.hh:0108
LBL "251$Pocket.plunge"                                ; includes/mill.hpp :0055
 QL68 = QL68 - QL37                                    ; includes/mill.hpp :0303
 FN 11: IF QL68 GT 0 GOTO LBL "IFNOT_53"               ; includes/mill.hpp :0304
 FN 14: ERROR= 1103                                    ; includes/mill.hpp :0306
 LBL "IFNOT_53"                                        ; includes/mill.hpp :0307
 CALL LBL "read_wcs"
 Q0 = QL51                                             ; includes/mill.hpp :0311
 QL99 = QL67 - Q0                                      ; includes/mill.hpp :0311
 FN 10: IF QL64 NE 1 GOTO LBL "IFNOT_54"               ; includes/mill.hpp :0312
 QL99 = QL99 - ( 0.9 * SGN( QL99 ) * QL40 )            ; includes/mill.hpp :0314
 LBL "IFNOT_54"                                        ; includes/mill.hpp :0315
 FN 10: IF QL17 NE 90 GOTO LBL "IFNOT_55"              ; includes/mill.hpp :0320
 QL62 = 0                                              ; includes/mill.hpp :0320
 LBL "IFNOT_55"                                        ; includes/mill.hpp :0320
 FN 9: IF QL62 EQU 0 GOTO LBL "CASE0_56"               ; includes/mill.hpp :0324
 FN 9: IF QL62 EQU 1 GOTO LBL "CASE1_56"               ; includes/mill.hpp :0324
 FN 9: IF QL62 EQU 2 GOTO LBL "CASE2_56"               ; includes/mill.hpp :0324
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_56"              ; includes/mill.hpp :0324
 LBL "CASE0_56"                                        ; includes/mill.hpp :0326
 L  X+QL65 Y+QL66 R0 FMAX                              ; includes/mill.hpp :0327
 L  Z+QL67 F QL30                                      ; includes/mill.hpp :0328
 QL69 = QL36                                           ; includes/mill.hpp :0329
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_56"              ; includes/mill.hpp :0330
 LBL "CASE1_56"                                        ; includes/mill.hpp :0331
  FN 10: IF QL17 NE 0 GOTO LBL "IFNOT_57"              ; includes/mill.hpp :0332
  FN 14: ERROR= 1083                                   ; includes/mill.hpp :0334
  LBL "IFNOT_57"                                       ; includes/mill.hpp :0335
 QL95 = QL36 * (15/16)                                 ; includes/mill.hpp :0336
  FN 9: IF QL95 EQU QL68 GOTO LBL "IFNOT_58"           ; includes/mill.hpp :0337
  FN 12: IF QL95 LT QL68 GOTO LBL "IFNOT_58"           ; includes/mill.hpp :0337
   FN 9: IF QL68 EQU QL36 GOTO LBL "IFNOT_59"          ; includes/mill.hpp :0339
   FN 11: IF QL68 GT QL36 GOTO LBL "IFNOT_59"          ; 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
   QL102 = STRCOMP( SRC_ QS3 SEA_ QS0 )                ; includes/mill.hpp :0345
    FN 9: IF QL102 EQU 0 GOTO LBL "IFNOT_60"           ; includes/mill.hpp :0346
    FN 14: ERROR= 1104                                 ; includes/mill.hpp :0348
    LBL "IFNOT_60"                                     ; includes/mill.hpp :0349
   LBL "IFNOT_59"                                      ; includes/mill.hpp :0350
  QL95 = QL68                                          ; includes/mill.hpp :0351
  LBL "IFNOT_58"                                       ; includes/mill.hpp :0352
 QL96 = 2 * QL95 * PI                                  ; includes/mill.hpp :0353
 QL97 = QL96 * TAN( QL17 )                             ; includes/mill.hpp :0354
 CC  X+QL65 Y+QL66                                     ; includes/mill.hpp :0355
 LP  PR+QL95 PA+0 R0 FMAX                              ; includes/mill.hpp :0356
  FN 10: IF QL64 NE 1 GOTO LBL "IFNOT_61"              ; includes/mill.hpp :0357
  Q0 = 0.9 * SGN( QL99 ) * QL40                        ; includes/mill.hpp :0359
  L IZ+Q0 R0 F QL30                                    ; includes/mill.hpp :0359
  LBL "IFNOT_61"                                       ; includes/mill.hpp :0360
 QL100 = ABS( QL99 / QL97 )                            ; includes/mill.hpp :0361
 QL100 = INT( QL100 + 0.99 )                           ; includes/mill.hpp :0271
  FN 10: IF QL100 NE 0 GOTO LBL "IFNOT_62"             ; includes/mill.hpp :0272
  QL100 = 1                                            ; includes/mill.hpp :0272
  LBL "IFNOT_62"                                       ; includes/mill.hpp :0272
 LBL "e_251$Pocket$int_infeeds1"                       ; includes/mill.hpp :0040
 QL97 = QL99 / QL100                                   ; includes/mill.hpp :0363
  FN 9: IF QL35 EQU 0 GOTO LBL "IFNOT_63"              ; includes/mill.hpp :0364
  FN 11: IF QL35 GT 0 GOTO LBL "IFNOT_63"              ; includes/mill.hpp :0364
  QL101=0                                              ; includes/mill.hpp :0366
  FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_64"                ; includes/mill.hpp :0366
   LBL "FOR_64"                                        ; includes/mill.hpp :0366
   QL101 = QL101 + 1                                   ; includes/mill.hpp :0366
   LBL "FORCMP_64"                                     ; includes/mill.hpp :0366
   FN 9: IF QL101 EQU QL100 GOTO LBL "FORNOT_64"       ; includes/mill.hpp :0366
   FN 11: IF QL101 GT QL100 GOTO LBL "FORNOT_64"       ; includes/mill.hpp :0366
   CP IPA+360 IZ+QL97 DR+ F QL30                       ; includes/mill.hpp :0368
   FN 9: IF 0 EQU 0 GOTO LBL "FOR_64"                  ; includes/mill.hpp :0369
   LBL "FORNOT_64"                                     ; includes/mill.hpp :0369
   FN 10: IF QL63 NE 1 GOTO LBL "IFNOT_65"             ; includes/mill.hpp :0370
   CP IPA+360 DR+ F QL28                               ; includes/mill.hpp :0372
   LBL "IFNOT_65"                                      ; includes/mill.hpp :0373
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_63"                 ; includes/mill.hpp :0374
  LBL "IFNOT_63"                                       ; includes/mill.hpp :0374
  QL101=0                                              ; includes/mill.hpp :0377
  FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_66"                ; includes/mill.hpp :0377
   LBL "FOR_66"                                        ; includes/mill.hpp :0377
   QL101 = QL101 + 1                                   ; includes/mill.hpp :0377
   LBL "FORCMP_66"                                     ; includes/mill.hpp :0377
   FN 9: IF QL101 EQU QL100 GOTO LBL "FORNOT_66"       ; includes/mill.hpp :0377
   FN 11: IF QL101 GT QL100 GOTO LBL "FORNOT_66"       ; includes/mill.hpp :0377
   CP IPA-360 IZ+QL97 DR- F QL30                       ; includes/mill.hpp :0379
   FN 9: IF 0 EQU 0 GOTO LBL "FOR_66"                  ; includes/mill.hpp :0380
   LBL "FORNOT_66"                                     ; includes/mill.hpp :0380
   FN 10: IF QL63 NE 1 GOTO LBL "IFNOT_67"             ; includes/mill.hpp :0381
   CP IPA-360 DR- F QL28                               ; includes/mill.hpp :0383
   LBL "IFNOT_67"                                      ; includes/mill.hpp :0384
  LBL "ENDIF_63"                                       ; includes/mill.hpp :0385
 QL69 = QL37 + QL95                                    ; includes/mill.hpp :0386
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_56"              ; includes/mill.hpp :0387
 LBL "CASE2_56"                                        ; includes/mill.hpp :0388
  FN 10: IF QL17 NE 0 GOTO LBL "IFNOT_68"              ; includes/mill.hpp :0389
  FN 14: ERROR= 1083                                   ; includes/mill.hpp :0391
  LBL "IFNOT_68"                                       ; includes/mill.hpp :0392
 QL96 = 4 * QL68                                       ; includes/mill.hpp :0393
 QL97 = QL96 * TAN( QL17 )                             ; includes/mill.hpp :0394
 QL100 = ABS( QL99 / QL97 )                            ; includes/mill.hpp :0395
  FN 9: IF QL100 EQU 1 GOTO LBL "IFNOT_69"             ; includes/mill.hpp :0396
  FN 11: IF QL100 GT 1 GOTO LBL "IFNOT_69"             ; includes/mill.hpp :0396
  QL96 = ABS( QL99 / TAN( QL17 ) )                     ; includes/mill.hpp :0398
  QL100 = 1                                            ; includes/mill.hpp :0399
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_69"                 ; includes/mill.hpp :0400
  LBL "IFNOT_69"                                       ; includes/mill.hpp :0400
  QL100 = INT( QL100 + 0.99 )                          ; includes/mill.hpp :0271
   FN 10: IF QL100 NE 0 GOTO LBL "IFNOT_70"            ; includes/mill.hpp :0272
   QL100 = 1                                           ; includes/mill.hpp :0272
   LBL "IFNOT_70"                                      ; includes/mill.hpp :0272
  LBL "e_251$Pocket$int_infeeds2"                      ; includes/mill.hpp :0040
  LBL "ENDIF_69"                                       ; includes/mill.hpp :0404
 QL97 = QL99 / QL100 / 2                               ; includes/mill.hpp :0405
 QL98 = QL96 / 4                                       ; includes/mill.hpp :0406
 Q0 = QL65-QL98                                        ; includes/mill.hpp :0407
 L  X+Q0 Y+QL66 R0 FMAX                                ; includes/mill.hpp :0407
  FN 10: IF QL64 NE 1 GOTO LBL "IFNOT_71"              ; includes/mill.hpp :0408
  Q0 = 0.9 * SGN( QL99 ) * QL40                        ; includes/mill.hpp :0410
  L IZ+Q0 R0 F QL30                                    ; includes/mill.hpp :0410
  LBL "IFNOT_71"                                       ; includes/mill.hpp :0411
 QL101=0                                               ; includes/mill.hpp :0412
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_72"                 ; includes/mill.hpp :0412
  LBL "FOR_72"                                         ; includes/mill.hpp :0412
  QL101 = QL101 + 1                                    ; includes/mill.hpp :0412
  LBL "FORCMP_72"                                      ; includes/mill.hpp :0412
  FN 9: IF QL101 EQU QL100 GOTO LBL "FORNOT_72"        ; includes/mill.hpp :0412
  FN 11: IF QL101 GT QL100 GOTO LBL "FORNOT_72"        ; includes/mill.hpp :0412
  Q0 = QL65+QL98                                       ; includes/mill.hpp :0414
  L  X+Q0 IZ+QL97 F QL30                               ; includes/mill.hpp :0414
  Q0 = QL65-QL98                                       ; includes/mill.hpp :0415
  L  X+Q0 IZ+QL97                                      ; includes/mill.hpp :0415
  FN 9: IF 0 EQU 0 GOTO LBL "FOR_72"                   ; includes/mill.hpp :0416
  LBL "FORNOT_72"                                      ; includes/mill.hpp :0416
  FN 10: IF QL63 NE 1 GOTO LBL "IFNOT_73"              ; includes/mill.hpp :0417
  Q0 = QL65+QL98                                       ; includes/mill.hpp :0419
  L  X+Q0 F QL28                                       ; includes/mill.hpp :0419
  LBL "IFNOT_73"                                       ; includes/mill.hpp :0420
 QL69 = QL36                                           ; includes/mill.hpp :0421
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_56"              ; includes/mill.hpp :0422
 LBL "SWITCHDEF_56"                                    ; includes/mill.hpp :0423
 FN 14: ERROR= 1011                                    ; includes/mill.hpp :0424
 LBL "SWITCHEND_56"                                    ; includes/mill.hpp :0425
LBL 0                                                  ; includes/mill.hpp :0055
LBL "251$Pocket.recpock"                               ; includes/mill.hpp :0060
 QL104 = 0                                             ; includes/mill.hpp :1234
 FN 9: IF QL73 EQU 0 GOTO LBL "IFNOT_74"               ; includes/mill.hpp :1239
 FN 12: IF QL73 LT 0 GOTO LBL "IFNOT_74"               ; includes/mill.hpp :1239
 FN 9: IF QL73 EQU QL37 GOTO LBL "IFNOT_74"            ; includes/mill.hpp :1239
 FN 11: IF QL73 GT QL37 GOTO LBL "IFNOT_74"            ; includes/mill.hpp :1239
 FN 14: ERROR= 1003                                    ; includes/mill.hpp :1241
 LBL "IFNOT_74"                                        ; includes/mill.hpp :1242
 Q0 = 2*QL73                                           ; includes/mill.hpp :1243
 Q1 = 2*QL73                                           ; includes/mill.hpp :1243
 FN 9: IF Q0 EQU QL71 GOTO LBL "IF_75"                 ; includes/mill.hpp :1243
 FN 11: IF Q0 GT QL71 GOTO LBL "IF_75"                 ; includes/mill.hpp :1243
 FN 9: IF Q1 EQU QL72 GOTO LBL "IF_75"                 ; includes/mill.hpp :1243
 FN 11: IF Q1 GT QL72 GOTO LBL "IF_75"                 ; includes/mill.hpp :1243
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_75"                  ; includes/mill.hpp :1243
 LBL "IF_75"                                           ; includes/mill.hpp :1243
 FN 14: ERROR= 1023                                    ; includes/mill.hpp :1245
 LBL "IFNOT_75"                                        ; includes/mill.hpp :1246
 TRANS DATUM AXIS IX+QL74 IY+QL75                      ; includes/mill.hpp :1250
 FN 9: IF QL72 EQU QL71 GOTO LBL "IFNOT_76"            ; includes/mill.hpp :1254
 FN 12: IF QL72 LT QL71 GOTO LBL "IFNOT_76"            ; includes/mill.hpp :1254
 QL103 = QL71                                          ; includes/mill.hpp :1256
 QL71 = QL72                                           ; includes/mill.hpp :1257
 QL72 = QL103                                          ; includes/mill.hpp :1258
 CYCL DEF 10.0 ROTATION
 CYCL DEF 10.1 IROT+90
 QL104 = 1                                             ; includes/mill.hpp :1261
 LBL "IFNOT_76"                                        ; includes/mill.hpp :1262
 FN 12: IF QL35 LT 0 GOTO LBL "IFNOT_77"               ; includes/mill.hpp :1266
  FN 10: IF QL24 NE 1 GOTO LBL "IFNOT_78"              ; includes/mill.hpp :1268
  QL105 = QL22 - 2                                     ; includes/mill.hpp :1270
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_78"                 ; includes/mill.hpp :1271
  LBL "IFNOT_78"                                       ; includes/mill.hpp :1271
  QL105 = QL22 + 2                                     ; includes/mill.hpp :1274
  LBL "ENDIF_78"                                       ; includes/mill.hpp :1275
 FN 17: SYSWRITE ID 210 NR 3 = QL105                   ; includes/mill.hpp :1276
 LBL "IFNOT_77"                                        ; includes/mill.hpp :1277
 L  X+0 Y+0 R0 F QL28                                  ; includes/mill.hpp :1281
 L  Z+QL76 R0 F QL30                                   ; includes/mill.hpp :1282
 F QL28                                                ; includes/mill.hpp :1283
 FN 9: IF QL70 EQU 0 GOTO LBL "CASE0_79"               ; includes/mill.hpp :1284
 FN 9: IF QL70 EQU 1 GOTO LBL "CASE1_79"               ; includes/mill.hpp :1284
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_79"              ; includes/mill.hpp :1284
 LBL "CASE0_79"                                        ; includes/mill.hpp :1286
 QL106 = QL71-2*QL77                                   ; includes/mill.hpp :1287
 QL107 = QL72-2*QL77                                   ; includes/mill.hpp :1287
 QL108 = QL73                                          ; includes/mill.hpp :1287
 CALL LBL "251$Pocket$recpock_rough"
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_79"              ; includes/mill.hpp :1288
 LBL "CASE1_79"                                        ; includes/mill.hpp :1289
 QL109 = QL71                                          ; includes/mill.hpp :1290
 QL110 = QL72                                          ; includes/mill.hpp :1290
 QL111 = QL73                                          ; includes/mill.hpp :1290
 QL112 = QL77                                          ; includes/mill.hpp :1290
 CALL LBL "251$Pocket$recpock_fin"
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_79"              ; includes/mill.hpp :1291
 LBL "SWITCHDEF_79"                                    ; includes/mill.hpp :1292
 FN 14: ERROR= 1011                                    ; includes/mill.hpp :1293
 LBL "SWITCHEND_79"                                    ; includes/mill.hpp :1294
 FN 12: IF QL35 LT 0 GOTO LBL "IFNOT_80"               ; includes/mill.hpp :1298
 FN 17: SYSWRITE ID 210 NR 3 = QL22                    ; includes/mill.hpp :1300
 LBL "IFNOT_80"                                        ; includes/mill.hpp :1301
 FN 10: IF QL104 NE 1 GOTO LBL "IFNOT_81"              ; includes/mill.hpp :1302
 CYCL DEF 10.0 ROTATION
 CYCL DEF 10.1 IROT-90
 LBL "IFNOT_81"                                        ; includes/mill.hpp :1306
 TRANS DATUM AXIS IX-QL74 IY-QL75                      ; includes/mill.hpp :1307
LBL 0                                                  ; includes/mill.hpp :0060
LBL "251$Pocket.recpock_ap"                            ; includes/mill.hpp :0061
 QL114 = 0                                             ; includes/mill.hpp :1544
 TRANS DATUM AXIS IX+QL81 IY+QL82                      ; includes/mill.hpp :1549
 FN 9: IF QL80 EQU QL79 GOTO LBL "IFNOT_82"            ; includes/mill.hpp :1553
 FN 12: IF QL80 LT QL79 GOTO LBL "IFNOT_82"            ; includes/mill.hpp :1553
 QL113 = QL79                                          ; includes/mill.hpp :1555
 QL79 = QL80                                           ; includes/mill.hpp :1556
 QL80 = QL113                                          ; includes/mill.hpp :1557
 QL114 = 1                                             ; includes/mill.hpp :1558
 LBL "IFNOT_82"                                        ; includes/mill.hpp :1559
 FN 12: IF QL35 LT 0 GOTO LBL "IFNOT_83"               ; includes/mill.hpp :1563
  FN 10: IF QL24 NE 1 GOTO LBL "IFNOT_84"              ; includes/mill.hpp :1565
  QL115 = QL22 - 2                                     ; includes/mill.hpp :1567
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_84"                 ; includes/mill.hpp :1568
  LBL "IFNOT_84"                                       ; includes/mill.hpp :1568
  QL115 = QL22 + 2                                     ; includes/mill.hpp :1571
  LBL "ENDIF_84"                                       ; includes/mill.hpp :1572
 FN 17: SYSWRITE ID 210 NR 3 = QL115                   ; includes/mill.hpp :1573
 LBL "IFNOT_83"                                        ; includes/mill.hpp :1574
 X+0 R0 F QL28                                         ; includes/mill.hpp :1578
 Y+0 R0 F QL28                                         ; includes/mill.hpp :1579
 Z+QL83 R0 F QL30                                      ; includes/mill.hpp :1580
 F QL28                                                ; includes/mill.hpp :1581
 FN 9: IF QL78 EQU 0 GOTO LBL "CASE0_85"               ; includes/mill.hpp :1582
 FN 9: IF QL78 EQU 1 GOTO LBL "CASE1_85"               ; includes/mill.hpp :1582
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_85"              ; includes/mill.hpp :1582
 LBL "CASE0_85"                                        ; includes/mill.hpp :1584
 QL116 = QL79-2*QL84                                   ; includes/mill.hpp :1585
 QL117 = QL80-2*QL84                                   ; includes/mill.hpp :1585
 QL118 = QL114                                         ; includes/mill.hpp :1585
 CALL LBL "251$Pocket$recpock_ap_rough"
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_85"              ; includes/mill.hpp :1586
 LBL "CASE1_85"                                        ; includes/mill.hpp :1587
 QL119 = QL79                                          ; includes/mill.hpp :1588
 QL120 = QL80                                          ; includes/mill.hpp :1588
 QL121 = QL84                                          ; includes/mill.hpp :1588
 QL122 = QL114                                         ; includes/mill.hpp :1588
 CALL LBL "251$Pocket$recpock_ap_fin"
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_85"              ; includes/mill.hpp :1589
 LBL "SWITCHDEF_85"                                    ; includes/mill.hpp :1590
 FN 14: ERROR= 1011                                    ; includes/mill.hpp :1591
 LBL "SWITCHEND_85"                                    ; includes/mill.hpp :1592
 FN 12: IF QL35 LT 0 GOTO LBL "IFNOT_86"               ; includes/mill.hpp :1596
 FN 17: SYSWRITE ID 210 NR 3 = QL22                    ; includes/mill.hpp :1598
 LBL "IFNOT_86"                                        ; includes/mill.hpp :1599
 TRANS DATUM AXIS IX-QL81 IY-QL82                      ; includes/mill.hpp :1600
LBL 0                                                  ; includes/mill.hpp :0061
LBL "check_bit"                                        ; includes/stdlib.hh:0124
 QL123=15                                              ; includes/geo.hpp  :0850
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_87"                 ; includes/geo.hpp  :0850
 LBL "FOR_87"                                          ; includes/geo.hpp  :0850
 QL123 = QL123 + -1                                    ; includes/geo.hpp  :0850
 LBL "FORCMP_87"                                       ; includes/geo.hpp  :0850
 FN 12: IF QL123 LT 0 GOTO LBL "FORNOT_87"             ; includes/geo.hpp  :0850
 QL89 = 2 ^ QL123                                      ; includes/geo.hpp  :0852
  FN 12: IF QL87 LT QL89 GOTO LBL "IFNOT_88"           ; includes/geo.hpp  :0853
   FN 10: IF QL123 NE QL88 GOTO LBL "IFNOT_89"         ; includes/geo.hpp  :0855
   QL89 = 1                                            ; includes/geo.hpp  :0857
   LBL 0                                               ; includes/geo.hpp  :0858
   LBL "IFNOT_89"                                      ; includes/geo.hpp  :0859
  QL87 = QL87 - 2^QL123                                ; includes/geo.hpp  :0860
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_88"                 ; includes/geo.hpp  :0861
  LBL "IFNOT_88"                                       ; includes/geo.hpp  :0861
   FN 10: IF QL123 NE QL88 GOTO LBL "IFNOT_90"         ; includes/geo.hpp  :0864
   QL89 = 0                                            ; includes/geo.hpp  :0866
   LBL 0                                               ; includes/geo.hpp  :0867
   LBL "IFNOT_90"                                      ; includes/geo.hpp  :0868
  LBL "ENDIF_88"                                       ; includes/geo.hpp  :0869
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_87"                    ; includes/geo.hpp  :0870
 LBL "FORNOT_87"                                       ; includes/geo.hpp  :0870
 QL89 = -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_91"                 ; 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_92"                ; includes/geo.hpp  :0921
  FN 18: SYSREAD QL124 = ID 20 NR 5                    ; includes/geo.hpp  :0926
   FN 9: IF QL124 EQU 0 GOTO LBL "IFNOT_93"            ; includes/geo.hpp  :0927
   FN 9: IF QL124 EQU 1 GOTO LBL "IFNOT_93"            ; includes/geo.hpp  :0927
   FN 14: ERROR= 1000                                  ; includes/geo.hpp  :0929
   LBL "IFNOT_93"                                      ; includes/geo.hpp  :0930
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_92"                 ; includes/geo.hpp  :0931
  LBL "IFNOT_92"                                       ; includes/geo.hpp  :0931
  CALL LBL "state_exec"
  Q0 = QL125                                           ; includes/geo.hpp  :0937
   FN 9: IF Q0 EQU 0 GOTO LBL "IFNOT_94"               ; includes/geo.hpp  :0937
   LBL 0                                               ; includes/geo.hpp  :0937
   LBL "IFNOT_94"                                      ; includes/geo.hpp  :0937
  FN 20: WAIT FOR SYNC                                 ; includes/geo.hpp  :0941
  QL124 = 100                                          ; includes/geo.hpp  :0942
  FN 17: SYSWRITE ID 13 NR3 =+9990                     ; includes/geo.hpp  :0943
  READ FROM PLC KEY "PLC_API_VERSION" TO QL124         ; includes/geo.hpp  :0944
  LBL 9990                                             ; includes/geo.hpp  :0945
   FN 10: IF QL124 NE 100 GOTO LBL "IFNOT_95"          ; includes/geo.hpp  :0946
   FN 18: SYSREAD QL124 = ID 2000 NR 10 IDX 4000       ; includes/geo.hpp  :0948
    FN 10: IF QL124 NE 1 GOTO LBL "IFNOT_96"           ; includes/geo.hpp  :0949
    FN 14: ERROR= 1000                                 ; includes/geo.hpp  :0951
    LBL "IFNOT_96"                                     ; includes/geo.hpp  :0952
   FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_95"                ; includes/geo.hpp  :0953
   LBL "IFNOT_95"                                      ; 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
   QL124=0                                             ; includes/geo.hpp  :0973
   FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_97"               ; includes/geo.hpp  :0973
    LBL "FOR_97"                                       ; includes/geo.hpp  :0973
    QL124 = QL124 + 1                                  ; includes/geo.hpp  :0973
    LBL "FORCMP_97"                                    ; 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 QL124 )
    Q0 = STRCOMP( SRC_ QS2 SEA_ QS10 )                 ; includes/geo.hpp  :0977
     FN 10: IF Q0 NE 0 GOTO LBL "IFNOT_98"             ; includes/geo.hpp  :0977
     QS2 = "ApiSpin[" || TOCHAR( DAT+QL124 DECIMALS 0 ) || "].NN_SpiMotionRequest"
     READ FROM PLC KEY QS2 TO QL124                    ; includes/geo.hpp  :0980
      FN 10: IF QL124 NE 0 GOTO LBL "IFNOT_99"         ; includes/geo.hpp  :0981
      FN 14: ERROR= 1000                               ; includes/geo.hpp  :0983
      LBL "IFNOT_99"                                   ; includes/geo.hpp  :0984
     FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_97"             ; includes/geo.hpp  :0985
     LBL "IFNOT_98"                                    ; includes/geo.hpp  :0986
    FN 9: IF 0 EQU 0 GOTO LBL "FOR_97"                 ; includes/geo.hpp  :0987
    LBL "FORNOT_97"                                    ; includes/geo.hpp  :0987
   LBL 9991                                            ; includes/geo.hpp  :0988
   LBL "ENDIF_95"                                      ; includes/geo.hpp  :0989
  LBL "ENDIF_92"                                       ; includes/geo.hpp  :0990
 LBL "IFNOT_91"                                        ; includes/geo.hpp  :0991
LBL 0                                                  ; includes/stdlib.hh:0133
LBL "swap_axes"                                        ; includes/stdlib.hh:0120
 FN 17: SYSWRITE ID 212 = QL90                         ; includes/geo.hpp  :0841
LBL 0                                                  ; includes/stdlib.hh:0120
LBL "check_depth_sign"                                 ; includes/stdlib.hh:0128
 FN 9: IF QL91 EQU 0 GOTO LBL "IFNOT_100"              ; includes/geo.hpp  :0880
 FN 12: IF QL91 LT 0 GOTO LBL "IFNOT_100"              ; 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
 QL126 = CFGREAD( KEY_ QS3 TAG_ QS4 ATR_ QS5 )         ; includes/geo.hpp  :0888
  FN 10: IF QL126 NE 1 GOTO LBL "IFNOT_101"            ; includes/geo.hpp  :0890
  FN 14: ERROR= 1077                                   ; includes/geo.hpp  :0891
  LBL "IFNOT_101"                                      ; includes/geo.hpp  :0891
 LBL "IFNOT_100"                                       ; includes/geo.hpp  :0892
LBL 0                                                  ; includes/stdlib.hh:0128
LBL "retreat"                                          ; includes/stdlib.hh:0112
 FN 18: SYSREAD Q0 = ID20 NR3 IDX0                     ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 0 GOTO LBL "CASE0_102"                ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 6 GOTO LBL "CASE1_102"                ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 1 GOTO LBL "CASE2_102"                ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 7 GOTO LBL "CASE3_102"                ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 2 GOTO LBL "CASE4_102"                ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 8 GOTO LBL "CASE5_102"                ; includes/geo.hpp  :0802
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_102"             ; includes/geo.hpp  :0802
 LBL "CASE0_102"                                       ; includes/geo.hpp  :0804
 LBL "CASE1_102"                                       ; includes/geo.hpp  :0805
 FN 18: SYSREAD QL127 = ID 270 NR 1 IDX 1              ; includes/geo.hpp  :0806
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_102"             ; includes/geo.hpp  :0807
 LBL "CASE2_102"                                       ; includes/geo.hpp  :0808
 LBL "CASE3_102"                                       ; includes/geo.hpp  :0809
 FN 18: SYSREAD QL127 = ID 270 NR 1 IDX 2              ; includes/geo.hpp  :0810
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_102"             ; includes/geo.hpp  :0811
 LBL "CASE4_102"                                       ; includes/geo.hpp  :0812
 LBL "CASE5_102"                                       ; includes/geo.hpp  :0813
 FN 18: SYSREAD QL127 = ID 270 NR 1 IDX 3              ; includes/geo.hpp  :0814
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_102"             ; includes/geo.hpp  :0815
 LBL "SWITCHEND_102"                                   ; includes/geo.hpp  :0816
 FN 11: IF QL93 GT 0 GOTO LBL "IFNOT_103"              ; includes/geo.hpp  :0817
 Q0 = QL94 + ABS( QL92 )                               ; includes/geo.hpp  :0819
  FN 11: IF QL127 GT Q0 GOTO LBL "IFNOT_104"           ; includes/geo.hpp  :0819
  Q1 = QL94 + ABS( QL92 )                              ; includes/geo.hpp  :0821
  Z+Q1 R0 FMAX                                         ; includes/geo.hpp  :0821
  LBL "IFNOT_104"                                      ; includes/geo.hpp  :0822
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_103"                 ; includes/geo.hpp  :0823
 LBL "IFNOT_103"                                       ; includes/geo.hpp  :0823
 Q0 = QL94 - ABS( QL92 )                               ; includes/geo.hpp  :0826
  FN 12: IF QL127 LT Q0 GOTO LBL "IFNOT_105"           ; includes/geo.hpp  :0826
  Q1 = QL94 - ABS( QL92 )                              ; includes/geo.hpp  :0828
  Z+Q1 R0 FMAX                                         ; includes/geo.hpp  :0828
  LBL "IFNOT_105"                                      ; includes/geo.hpp  :0829
 LBL "ENDIF_103"                                       ; includes/geo.hpp  :0830
LBL 0                                                  ; includes/stdlib.hh:0112
LBL "251$Pocket$recpock_rough"                         ; includes/mill.hpp :0034
 QL130 = 0                                             ; includes/mill.hpp :1324
 QL106 = ( QL106 / 2 ) - QL37                          ; includes/mill.hpp :1334
 QL107 = ( QL107 / 2 ) - QL37                          ; includes/mill.hpp :1335
 QL108 = QL108 - QL37                                  ; includes/mill.hpp :1336
 QL135 = QL37 * 0.85                                   ; includes/mill.hpp :1342
 FN 9: IF QL107 EQU QL135 GOTO LBL "IFNOT_106"         ; includes/mill.hpp :1343
 FN 12: IF QL107 LT QL135 GOTO LBL "IFNOT_106"         ; includes/mill.hpp :1343
 QL133 = ( QL107 - QL135 ) / QL32                      ; includes/mill.hpp :1347
 QL133 = INT( QL133 + 0.99 )                           ; includes/mill.hpp :0271
  FN 10: IF QL133 NE 0 GOTO LBL "IFNOT_107"            ; includes/mill.hpp :0272
  QL133 = 1                                            ; includes/mill.hpp :0272
  LBL "IFNOT_107"                                      ; includes/mill.hpp :0272
 LBL "e_251$Pocket$int_infeeds3"                       ; includes/mill.hpp :0040
 QL131 = ( QL107 - QL135 ) / QL133                     ; includes/mill.hpp :1349
 QL133 = QL133 + 1                                     ; includes/mill.hpp :1350
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_106"                 ; includes/mill.hpp :1351
 LBL "IFNOT_106"                                       ; includes/mill.hpp :1351
 QL135 = QL107                                         ; includes/mill.hpp :1356
 QL133 = 1                                             ; includes/mill.hpp :1357
 LBL "ENDIF_106"                                       ; includes/mill.hpp :1358
 QL134=1                                               ; includes/mill.hpp :1362
 QL129=QL135                                           ; includes/mill.hpp :1362
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_108"                ; includes/mill.hpp :1362
 LBL "FOR_108"                                         ; includes/mill.hpp :1362
 QL134 = QL134 + 1                                     ; includes/mill.hpp :1362
 LBL "FORCMP_108"                                      ; includes/mill.hpp :1362
 FN 11: IF QL134 GT QL133 GOTO LBL "FORNOT_108"        ; includes/mill.hpp :1362
  FN 10: IF QL134 NE 1 GOTO LBL "IFNOT_109"            ; includes/mill.hpp :1364
  QL132 = QL106 - (QL131 * (QL133-QL134)) - QL129      ; includes/mill.hpp :1368
  L X+QL132                                            ; includes/mill.hpp :1369
  Q0 = QL129/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_109"                ; includes/mill.hpp :1372
  LBL "IFNOT_109"                                      ; includes/mill.hpp :1372
  QL129 = QL129 + QL131                                ; includes/mill.hpp :1374
  L  Y+QL129                                           ; includes/mill.hpp :1375
  QL132 = QL128                                        ; includes/mill.hpp :1376
   FN 9: IF QL130 EQU 0 GOTO LBL "IFNOT_110"           ; includes/mill.hpp :1377
   FN 12: IF QL130 LT 0 GOTO LBL "IFNOT_110"           ; includes/mill.hpp :1377
   RND R QL130                                         ; includes/mill.hpp :1377
   LBL "IFNOT_110"                                     ; includes/mill.hpp :1377
  LBL "ENDIF_109"                                      ; includes/mill.hpp :1378
 QL128 = QL106 - (QL131 * (QL133-QL134))               ; includes/mill.hpp :1379
  FN 10: IF QL108 NE 0 GOTO LBL "IFNOT_111"            ; includes/mill.hpp :1384
  QL130 = 0                                            ; includes/mill.hpp :1386
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_111"                ; includes/mill.hpp :1387
  LBL "IFNOT_111"                                      ; includes/mill.hpp :1387
  Q0 = QL129-QL26                                      ; includes/mill.hpp :1388
  FN 9: IF QL108 EQU Q0 GOTO LBL "ELSE0NOT_111"        ; includes/mill.hpp :1388
  FN 12: IF QL108 LT Q0 GOTO LBL "ELSE0NOT_111"        ; includes/mill.hpp :1388
  QL130 = QL129 - QL26                                 ; includes/mill.hpp :1390
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_111"                ; includes/mill.hpp :1391
  LBL "ELSE0NOT_111"                                   ; includes/mill.hpp :1391
  QL130 = QL108                                        ; includes/mill.hpp :1394
  LBL "ENDIF_111"                                      ; includes/mill.hpp :1395
 L  X-QL128                                            ; includes/mill.hpp :1399
  FN 9: IF QL130 EQU 0 GOTO LBL "IFNOT_112"            ; includes/mill.hpp :1400
  FN 12: IF QL130 LT 0 GOTO LBL "IFNOT_112"            ; includes/mill.hpp :1400
  RND R QL130                                          ; includes/mill.hpp :1400
  LBL "IFNOT_112"                                      ; includes/mill.hpp :1400
 L  Y-QL129                                            ; includes/mill.hpp :1401
  FN 9: IF QL130 EQU 0 GOTO LBL "IFNOT_113"            ; includes/mill.hpp :1402
  FN 12: IF QL130 LT 0 GOTO LBL "IFNOT_113"            ; includes/mill.hpp :1402
  RND R QL130                                          ; includes/mill.hpp :1402
  LBL "IFNOT_113"                                      ; includes/mill.hpp :1402
 L  X+QL128                                            ; includes/mill.hpp :1403
  FN 9: IF QL130 EQU 0 GOTO LBL "IFNOT_114"            ; includes/mill.hpp :1404
  FN 12: IF QL130 LT 0 GOTO LBL "IFNOT_114"            ; includes/mill.hpp :1404
  RND R QL130                                          ; includes/mill.hpp :1404
  LBL "IFNOT_114"                                      ; includes/mill.hpp :1404
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_108"                   ; includes/mill.hpp :1405
 LBL "FORNOT_108"                                      ; includes/mill.hpp :1405
 L  Y+QL129                                            ; includes/mill.hpp :1406
 FN 9: IF QL130 EQU 0 GOTO LBL "IFNOT_115"             ; includes/mill.hpp :1407
 FN 12: IF QL130 LT 0 GOTO LBL "IFNOT_115"             ; includes/mill.hpp :1407
 RND R QL130                                           ; includes/mill.hpp :1409
  FN 9: IF QL132 EQU QL108 GOTO LBL "IFNOT_116"        ; includes/mill.hpp :1410
  FN 12: IF QL132 LT QL108 GOTO LBL "IFNOT_116"        ; includes/mill.hpp :1410
  Q0 = QL132 - QL108 - QL26                            ; includes/mill.hpp :1412
  L X+Q0                                               ; includes/mill.hpp :1412
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_116"                ; includes/mill.hpp :1413
  LBL "IFNOT_116"                                      ; includes/mill.hpp :1413
  L X+0                                                ; includes/mill.hpp :1416
  LBL "ENDIF_116"                                      ; includes/mill.hpp :1417
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_115"                 ; includes/mill.hpp :1418
 LBL "IFNOT_115"                                       ; includes/mill.hpp :1418
 Q0 = QL132 - QL26                                     ; includes/mill.hpp :1421
 L X+Q0                                                ; includes/mill.hpp :1421
 LBL "ENDIF_115"                                       ; includes/mill.hpp :1422
 Q0 = QL129/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 "251$Pocket$recpock_fin"                           ; includes/mill.hpp :0035
 QL138 = 0                                             ; includes/mill.hpp :1445
 QL109 = ( QL109 / 2 )                                 ; includes/mill.hpp :1454
 QL110 = ( QL110 / 2 )                                 ; includes/mill.hpp :1455
 Q0 = QL110 - QL112                                    ; includes/mill.hpp :1459
 FN 9: IF Q0 EQU QL37 GOTO LBL "IFNOT_117"             ; includes/mill.hpp :1459
 FN 11: IF Q0 GT QL37 GOTO LBL "IFNOT_117"             ; includes/mill.hpp :1459
 FN 14: ERROR= 1003                                    ; includes/mill.hpp :1461
 LBL "IFNOT_117"                                       ; includes/mill.hpp :1462
 QL141 = QL112 / QL32                                  ; includes/mill.hpp :1467
 QL141 = INT( QL141 + 0.99 )                           ; includes/mill.hpp :0271
 FN 10: IF QL141 NE 0 GOTO LBL "IFNOT_118"             ; includes/mill.hpp :0272
 QL141 = 1                                             ; includes/mill.hpp :0272
 LBL "IFNOT_118"                                       ; includes/mill.hpp :0272
 LBL "e_251$Pocket$int_infeeds4"                       ; includes/mill.hpp :0040
 QL139 = QL112 / QL141                                 ; includes/mill.hpp :1469
 QL142=1                                               ; includes/mill.hpp :1473
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_119"                ; includes/mill.hpp :1473
 LBL "FOR_119"                                         ; includes/mill.hpp :1473
 QL142 = QL142 + 1                                     ; includes/mill.hpp :1473
 LBL "FORCMP_119"                                      ; includes/mill.hpp :1473
 FN 11: IF QL142 GT QL141 GOTO LBL "FORNOT_119"        ; includes/mill.hpp :1473
 QL137 = QL110 - (QL139 * (QL141-QL142))               ; includes/mill.hpp :1475
  FN 10: IF QL142 NE 1 GOTO LBL "IFNOT_120"            ; includes/mill.hpp :1476
  Q0 = ( QL137 - QL37 ) / 2                            ; includes/mill.hpp :1478
  APPR CT Y+QL137 CCA+180 R+Q0 RL                      ; includes/mill.hpp :1478
  QL140 = 0                                            ; includes/mill.hpp :1479
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_120"                ; includes/mill.hpp :1480
  LBL "IFNOT_120"                                      ; includes/mill.hpp :1480
  L  Y+QL137                                           ; includes/mill.hpp :1483
  QL140 = QL136                                        ; includes/mill.hpp :1484
   FN 9: IF QL138 EQU 0 GOTO LBL "IFNOT_121"           ; includes/mill.hpp :1485
   FN 12: IF QL138 LT 0 GOTO LBL "IFNOT_121"           ; includes/mill.hpp :1485
   RND R QL138                                         ; includes/mill.hpp :1485
   LBL "IFNOT_121"                                     ; includes/mill.hpp :1485
  LBL "ENDIF_120"                                      ; includes/mill.hpp :1486
 QL136 = QL109 - (QL139 * (QL141-QL142))               ; includes/mill.hpp :1487
  FN 10: IF QL111 NE 0 GOTO LBL "IFNOT_122"            ; includes/mill.hpp :1492
  QL138 = 0                                            ; includes/mill.hpp :1494
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_122"                ; includes/mill.hpp :1495
  LBL "IFNOT_122"                                      ; includes/mill.hpp :1495
  Q0 = QL137-QL26                                      ; includes/mill.hpp :1496
  FN 9: IF QL111 EQU Q0 GOTO LBL "ELSE0NOT_122"        ; includes/mill.hpp :1496
  FN 12: IF QL111 LT Q0 GOTO LBL "ELSE0NOT_122"        ; includes/mill.hpp :1496
  QL138 = QL137 - QL26                                 ; includes/mill.hpp :1498
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_122"                ; includes/mill.hpp :1499
  LBL "ELSE0NOT_122"                                   ; includes/mill.hpp :1499
  QL138 = QL111                                        ; includes/mill.hpp :1502
  LBL "ENDIF_122"                                      ; includes/mill.hpp :1503
 L  X-QL136                                            ; includes/mill.hpp :1507
  FN 9: IF QL138 EQU 0 GOTO LBL "IFNOT_123"            ; includes/mill.hpp :1508
  FN 12: IF QL138 LT 0 GOTO LBL "IFNOT_123"            ; includes/mill.hpp :1508
  RND R QL138                                          ; includes/mill.hpp :1508
  LBL "IFNOT_123"                                      ; includes/mill.hpp :1508
 L  Y-QL137                                            ; includes/mill.hpp :1509
  FN 9: IF QL138 EQU 0 GOTO LBL "IFNOT_124"            ; includes/mill.hpp :1510
  FN 12: IF QL138 LT 0 GOTO LBL "IFNOT_124"            ; includes/mill.hpp :1510
  RND R QL138                                          ; includes/mill.hpp :1510
  LBL "IFNOT_124"                                      ; includes/mill.hpp :1510
 L  X+QL136                                            ; includes/mill.hpp :1511
  FN 9: IF QL138 EQU 0 GOTO LBL "IFNOT_125"            ; includes/mill.hpp :1512
  FN 12: IF QL138 LT 0 GOTO LBL "IFNOT_125"            ; includes/mill.hpp :1512
  RND R QL138                                          ; includes/mill.hpp :1512
  LBL "IFNOT_125"                                      ; includes/mill.hpp :1512
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_119"                   ; includes/mill.hpp :1513
 LBL "FORNOT_119"                                      ; includes/mill.hpp :1513
 L  Y+QL137                                            ; includes/mill.hpp :1514
 FN 9: IF QL138 EQU 0 GOTO LBL "IFNOT_126"             ; includes/mill.hpp :1515
 FN 12: IF QL138 LT 0 GOTO LBL "IFNOT_126"             ; includes/mill.hpp :1515
 RND R QL138                                           ; includes/mill.hpp :1517
 QL136 = QL140 - QL111 - QL26                          ; includes/mill.hpp :1518
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_126"                 ; includes/mill.hpp :1519
 LBL "IFNOT_126"                                       ; includes/mill.hpp :1519
 QL136 = QL140 - QL37 - QL26                           ; includes/mill.hpp :1522
 LBL "ENDIF_126"                                       ; includes/mill.hpp :1523
 FN 9: IF QL136 EQU 0 GOTO LBL "IFNOT_127"             ; includes/mill.hpp :1524
 FN 11: IF QL136 GT 0 GOTO LBL "IFNOT_127"             ; includes/mill.hpp :1524
 QL136 = 0                                             ; includes/mill.hpp :1524
 LBL "IFNOT_127"                                       ; includes/mill.hpp :1524
 L X+QL136                                             ; includes/mill.hpp :1525
 Q0 = QL137/3                                          ; includes/mill.hpp :1526
 DEP CT CCA+15 R+Q0                                    ; includes/mill.hpp :1526
LBL 0                                                  ; includes/mill.hpp :0035
LBL "251$Pocket$recpock_ap_rough"                      ; includes/mill.hpp :0036
 QL116 = ( QL116 / 2 ) - QL37                          ; includes/mill.hpp :1622
 QL117 = ( QL117 / 2 ) - QL37                          ; includes/mill.hpp :1623
 QL149 = QL37 * 0.85                                   ; includes/mill.hpp :1629
 FN 9: IF QL117 EQU QL149 GOTO LBL "IFNOT_128"         ; includes/mill.hpp :1630
 FN 12: IF QL117 LT QL149 GOTO LBL "IFNOT_128"         ; includes/mill.hpp :1630
 QL147 = ( QL117 - QL149 ) / QL32                      ; includes/mill.hpp :1634
 QL147 = INT( QL147 + 0.99 )                           ; includes/mill.hpp :0271
  FN 10: IF QL147 NE 0 GOTO LBL "IFNOT_129"            ; includes/mill.hpp :0272
  QL147 = 1                                            ; includes/mill.hpp :0272
  LBL "IFNOT_129"                                      ; includes/mill.hpp :0272
 LBL "e_251$Pocket$int_infeeds5"                       ; includes/mill.hpp :0040
 QL145 = ( QL117 - QL149 ) / QL147                     ; includes/mill.hpp :1636
 QL147 = QL147 + 1                                     ; includes/mill.hpp :1637
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_128"                 ; includes/mill.hpp :1638
 LBL "IFNOT_128"                                       ; includes/mill.hpp :1638
 QL149 = QL117                                         ; includes/mill.hpp :1643
 QL147 = 1                                             ; includes/mill.hpp :1644
 LBL "ENDIF_128"                                       ; includes/mill.hpp :1645
  FN 10: IF QL118 NE 0 GOTO LBL "FORR0_130"            ; includes/mill.hpp :1651
 QL148=1                                               ; includes/mill.hpp :1652
 QL144=QL149                                           ; includes/mill.hpp :1652
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_132"                ; includes/mill.hpp :1652
  LBL "FOR_132"                                        ; includes/mill.hpp :1652
  QL148 = QL148 + 1                                    ; includes/mill.hpp :1652
  LBL "FORCMP_132"                                     ; includes/mill.hpp :1652
  FN 11: IF QL148 GT QL147 GOTO LBL "FORNOT_132"       ; includes/mill.hpp :1652
   FN 10: IF QL148 NE 1 GOTO LBL "IFNOT_133"           ; includes/mill.hpp :1654
   QL146 = QL116 - (QL145 * (QL147-QL148)) - QL144     ; includes/mill.hpp :1658
   Q0 = QL146                                          ; includes/mill.hpp :1659
   X+ Q0                                               ; includes/mill.hpp :1659
   FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_133"               ; includes/mill.hpp :1660
   LBL "IFNOT_133"                                     ; includes/mill.hpp :1660
   QL144 = QL144 + QL145                               ; includes/mill.hpp :1662
   QL146 = QL143                                       ; includes/mill.hpp :1663
   LBL "ENDIF_133"                                     ; includes/mill.hpp :1664
  QL143 = QL116 - (QL145 * (QL147-QL148))              ; includes/mill.hpp :1665
  Q0 = QL144                                           ; includes/mill.hpp :1669
  Y+ Q0                                                ; includes/mill.hpp :1669
  Q0 = -QL143                                          ; includes/mill.hpp :1670
  X+ Q0                                                ; includes/mill.hpp :1670
  Q0 = -QL144                                          ; includes/mill.hpp :1671
  Y+ Q0                                                ; includes/mill.hpp :1671
  Q0 = QL143                                           ; includes/mill.hpp :1672
  X+ Q0                                                ; includes/mill.hpp :1672
  FN 9: IF 0 EQU 0 GOTO LBL "FOR_132"                  ; includes/mill.hpp :1673
  LBL "FORNOT_132"                                     ; includes/mill.hpp :1673
 Q0 = QL144                                            ; includes/mill.hpp :1674
 Y+ Q0                                                 ; includes/mill.hpp :1674
 Q0 = QL146 - QL26                                     ; includes/mill.hpp :1675
 X+ Q0                                                 ; includes/mill.hpp :1675
 Q0 = QL144-QL144/2/3                                  ; includes/mill.hpp :1676
 Y+ Q0                                                 ; includes/mill.hpp :1676
 LBL "FORR0_130"                                       ; includes/mill.hpp :1677
  FN 10: IF QL118 NE 1 GOTO LBL "FORR1_130"            ; includes/mill.hpp :1651
 QL148=1                                               ; includes/mill.hpp :1652
 QL144=QL149                                           ; includes/mill.hpp :1652
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_135"                ; includes/mill.hpp :1652
  LBL "FOR_135"                                        ; includes/mill.hpp :1652
  QL148 = QL148 + 1                                    ; includes/mill.hpp :1652
  LBL "FORCMP_135"                                     ; includes/mill.hpp :1652
  FN 11: IF QL148 GT QL147 GOTO LBL "FORNOT_135"       ; includes/mill.hpp :1652
   FN 10: IF QL148 NE 1 GOTO LBL "IFNOT_136"           ; includes/mill.hpp :1654
   QL146 = QL116 - (QL145 * (QL147-QL148)) - QL144     ; includes/mill.hpp :1658
   Q0 = QL146                                          ; includes/mill.hpp :1659
   Y+ Q0                                               ; includes/mill.hpp :1659
   FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_136"               ; includes/mill.hpp :1660
   LBL "IFNOT_136"                                     ; includes/mill.hpp :1660
   QL144 = QL144 + QL145                               ; includes/mill.hpp :1662
   QL146 = QL143                                       ; includes/mill.hpp :1663
   LBL "ENDIF_136"                                     ; includes/mill.hpp :1664
  QL143 = QL116 - (QL145 * (QL147-QL148))              ; includes/mill.hpp :1665
  Q0 = QL144                                           ; includes/mill.hpp :1669
  X- Q0                                                ; includes/mill.hpp :1669
  Q0 = -QL143                                          ; includes/mill.hpp :1670
  Y+ Q0                                                ; includes/mill.hpp :1670
  Q0 = -QL144                                          ; includes/mill.hpp :1671
  X- Q0                                                ; includes/mill.hpp :1671
  Q0 = QL143                                           ; includes/mill.hpp :1672
  Y+ Q0                                                ; includes/mill.hpp :1672
  FN 9: IF 0 EQU 0 GOTO LBL "FOR_135"                  ; includes/mill.hpp :1673
  LBL "FORNOT_135"                                     ; includes/mill.hpp :1673
 Q0 = QL144                                            ; includes/mill.hpp :1674
 X- Q0                                                 ; includes/mill.hpp :1674
 Q0 = QL146 - QL26                                     ; includes/mill.hpp :1675
 Y+ Q0                                                 ; includes/mill.hpp :1675
 Q0 = QL144-QL144/2/3                                  ; includes/mill.hpp :1676
 X- Q0                                                 ; includes/mill.hpp :1676
 LBL "FORR1_130"                                       ; includes/mill.hpp :1677
LBL 0                                                  ; includes/mill.hpp :0036
LBL "251$Pocket$recpock_ap_fin"                        ; includes/mill.hpp :0037
 QL119 = ( QL119 / 2 )                                 ; includes/mill.hpp :1698
 QL120 = ( QL120 / 2 )                                 ; includes/mill.hpp :1699
 Q0 = QL120 - QL121                                    ; includes/mill.hpp :1703
 FN 9: IF Q0 EQU QL37 GOTO LBL "IFNOT_137"             ; includes/mill.hpp :1703
 FN 11: IF Q0 GT QL37 GOTO LBL "IFNOT_137"             ; includes/mill.hpp :1703
 FN 14: ERROR= 1003                                    ; includes/mill.hpp :1705
 LBL "IFNOT_137"                                       ; includes/mill.hpp :1706
 QL154 = QL121 / QL32                                  ; includes/mill.hpp :1711
 QL154 = INT( QL154 + 0.99 )                           ; includes/mill.hpp :0271
 FN 10: IF QL154 NE 0 GOTO LBL "IFNOT_138"             ; includes/mill.hpp :0272
 QL154 = 1                                             ; includes/mill.hpp :0272
 LBL "IFNOT_138"                                       ; includes/mill.hpp :0272
 LBL "e_251$Pocket$int_infeeds6"                       ; includes/mill.hpp :0040
 QL152 = QL121 / QL154                                 ; includes/mill.hpp :1713
  FN 10: IF QL122 NE 0 GOTO LBL "FORR0_139"            ; includes/mill.hpp :1719
 QL155=1                                               ; includes/mill.hpp :1720
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_141"                ; includes/mill.hpp :1720
  LBL "FOR_141"                                        ; includes/mill.hpp :1720
  QL155 = QL155 + 1                                    ; includes/mill.hpp :1720
  LBL "FORCMP_141"                                     ; includes/mill.hpp :1720
  FN 11: IF QL155 GT QL154 GOTO LBL "FORNOT_141"       ; includes/mill.hpp :1720
  QL151 = QL120 - (QL152 * (QL154-QL155))              ; includes/mill.hpp :1722
   FN 10: IF QL155 NE 1 GOTO LBL "IFNOT_142"           ; includes/mill.hpp :1723
   QL153 = 0                                           ; includes/mill.hpp :1725
   FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_142"               ; includes/mill.hpp :1726
   LBL "IFNOT_142"                                     ; includes/mill.hpp :1726
   QL153 = QL150                                       ; includes/mill.hpp :1729
   LBL "ENDIF_142"                                     ; includes/mill.hpp :1730
  QL150 = QL119 - (QL152 * (QL154-QL155))              ; includes/mill.hpp :1731
  Q0 = QL151                                           ; includes/mill.hpp :1735
  Y+ Q0 R-                                             ; includes/mill.hpp :1735
  Q0 = -QL150                                          ; includes/mill.hpp :1736
  X+ Q0                                                ; includes/mill.hpp :1736
  Q0 = -QL151                                          ; includes/mill.hpp :1737
  Y+ Q0                                                ; includes/mill.hpp :1737
  Q0 = +QL150                                          ; includes/mill.hpp :1738
  X+ Q0                                                ; includes/mill.hpp :1738
  FN 9: IF 0 EQU 0 GOTO LBL "FOR_141"                  ; includes/mill.hpp :1739
  LBL "FORNOT_141"                                     ; includes/mill.hpp :1739
 Q0 = QL151                                            ; includes/mill.hpp :1740
 Y+ Q0                                                 ; includes/mill.hpp :1740
 QL150 = QL153 - QL37 - QL26                           ; includes/mill.hpp :1741
  FN 9: IF QL150 EQU 0 GOTO LBL "IFNOT_143"            ; includes/mill.hpp :1742
  FN 11: IF QL150 GT 0 GOTO LBL "IFNOT_143"            ; includes/mill.hpp :1742
  QL150 = 0                                            ; includes/mill.hpp :1742
  LBL "IFNOT_143"                                      ; includes/mill.hpp :1742
 Q0 = QL150                                            ; includes/mill.hpp :1743
 X+ Q0 R0                                              ; includes/mill.hpp :1743
 Q0 = QL151 - ( QL151 / 6 ) - QL38                     ; includes/mill.hpp :1744
  FN 11: IF Q0 GT 0 GOTO LBL "IFNOT_144"               ; includes/mill.hpp :1744
  Y+ 0 R0                                              ; includes/mill.hpp :1745
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_144"                ; includes/mill.hpp :1746
  LBL "IFNOT_144"                                      ; includes/mill.hpp :1746
  Q0 = QL151 - ( QL151 / 6 ) - QL38                    ; includes/mill.hpp :1748
  Y+ Q0 R0                                             ; includes/mill.hpp :1748
  LBL "ENDIF_144"                                      ; includes/mill.hpp :1749
 LBL "FORR0_139"                                       ; includes/mill.hpp :1750
  FN 10: IF QL122 NE 1 GOTO LBL "FORR1_139"            ; includes/mill.hpp :1719
 QL155=1                                               ; includes/mill.hpp :1720
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_146"                ; includes/mill.hpp :1720
  LBL "FOR_146"                                        ; includes/mill.hpp :1720
  QL155 = QL155 + 1                                    ; includes/mill.hpp :1720
  LBL "FORCMP_146"                                     ; includes/mill.hpp :1720
  FN 11: IF QL155 GT QL154 GOTO LBL "FORNOT_146"       ; includes/mill.hpp :1720
  QL151 = QL120 - (QL152 * (QL154-QL155))              ; includes/mill.hpp :1722
   FN 10: IF QL155 NE 1 GOTO LBL "IFNOT_147"           ; includes/mill.hpp :1723
   QL153 = 0                                           ; includes/mill.hpp :1725
   FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_147"               ; includes/mill.hpp :1726
   LBL "IFNOT_147"                                     ; includes/mill.hpp :1726
   QL153 = QL150                                       ; includes/mill.hpp :1729
   LBL "ENDIF_147"                                     ; includes/mill.hpp :1730
  QL150 = QL119 - (QL152 * (QL154-QL155))              ; includes/mill.hpp :1731
  Q0 = QL151                                           ; includes/mill.hpp :1735
  X- Q0 R-                                             ; includes/mill.hpp :1735
  Q0 = -QL150                                          ; includes/mill.hpp :1736
  Y+ Q0                                                ; includes/mill.hpp :1736
  Q0 = -QL151                                          ; includes/mill.hpp :1737
  X- Q0                                                ; includes/mill.hpp :1737
  Q0 = +QL150                                          ; includes/mill.hpp :1738
  Y+ Q0                                                ; includes/mill.hpp :1738
  FN 9: IF 0 EQU 0 GOTO LBL "FOR_146"                  ; includes/mill.hpp :1739
  LBL "FORNOT_146"                                     ; includes/mill.hpp :1739
 Q0 = QL151                                            ; includes/mill.hpp :1740
 X- Q0                                                 ; includes/mill.hpp :1740
 QL150 = QL153 - QL37 - QL26                           ; includes/mill.hpp :1741
  FN 9: IF QL150 EQU 0 GOTO LBL "IFNOT_148"            ; includes/mill.hpp :1742
  FN 11: IF QL150 GT 0 GOTO LBL "IFNOT_148"            ; includes/mill.hpp :1742
  QL150 = 0                                            ; includes/mill.hpp :1742
  LBL "IFNOT_148"                                      ; includes/mill.hpp :1742
 Q0 = QL150                                            ; includes/mill.hpp :1743
 Y+ Q0 R0                                              ; includes/mill.hpp :1743
 Q0 = QL151 - ( QL151 / 6 ) - QL38                     ; includes/mill.hpp :1744
  FN 11: IF Q0 GT 0 GOTO LBL "IFNOT_149"               ; includes/mill.hpp :1744
  X- 0 R0                                              ; includes/mill.hpp :1745
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_149"                ; includes/mill.hpp :1746
  LBL "IFNOT_149"                                      ; includes/mill.hpp :1746
  Q0 = QL151 - ( QL151 / 6 ) - QL38                    ; includes/mill.hpp :1748
  X- Q0 R0                                             ; includes/mill.hpp :1748
  LBL "ENDIF_149"                                      ; includes/mill.hpp :1749
 LBL "FORR1_139"                                       ; includes/mill.hpp :1750
LBL 0                                                  ; includes/mill.hpp :0037
LBL "state_exec"                                       ; includes/stdlib.hh:0076
 FN 18: SYSREAD QL125 = ID 992 NR 11                   ; includes/geo.hpp  :0583
 FN 10: IF QL125 NE 1 GOTO LBL "IFNOT_150"             ; includes/geo.hpp  :0584
 QL125 = 3                                             ; includes/geo.hpp  :0586
 LBL 0                                                 ; includes/geo.hpp  :0587
 LBL "IFNOT_150"                                       ; includes/geo.hpp  :0588
 FN 18: SYSREAD QL125 = ID 992 NR 16                   ; includes/geo.hpp  :0590
 FN 10: IF QL125 NE 0 GOTO LBL "IFNOT_151"             ; includes/geo.hpp  :0591
 QL125 = 1                                             ; includes/geo.hpp  :0593
 LBL 0                                                 ; includes/geo.hpp  :0594
 LBL "IFNOT_151"                                       ; includes/geo.hpp  :0595
 FN 18: SYSREAD QL125 = ID 992 NR 10                   ; includes/geo.hpp  :0597
 FN 10: IF QL125 NE 1 GOTO LBL "IFNOT_152"             ; includes/geo.hpp  :0598
 QL125 = 2                                             ; includes/geo.hpp  :0600
 LBL 0                                                 ; includes/geo.hpp  :0601
 LBL "IFNOT_152"                                       ; includes/geo.hpp  :0602
 QL125 = 0                                             ; includes/geo.hpp  :0603
 LBL 0                                                 ; includes/geo.hpp  :0604
LBL 0                                                  ; includes/stdlib.hh:0076
LBL "EXIT"                                             ;                   :-001
END PGM MM
