BEGIN PGM 253_ap.h MM ; h++ 2 13 8 2015_05_07
 QL6 = SGN( Q201 )                                     ; src/253.hpp       :0027
 QL4 = Q203 + Q201                                     ; src/253.hpp       :0028
 CALL LBL "253_ap$Pocket.PRINT"
 CALL LBL "253_ap$Pocket.MILL"
 QL37 = Q351                                           ; src/253.hpp       :0033
 QL38 = Q203                                           ; src/253.hpp       :0033
 QL39 = Q200                                           ; src/253.hpp       :0033
 QL40 = Q204                                           ; src/253.hpp       :0033
 QL41 = 1                                              ; src/253.hpp       :0033
 QL42 = Q201                                           ; src/253.hpp       :0033
 CALL LBL "253_ap$Pocket.init"
 CALL LBL "253_ap$Pocket.get_ToolLCut"
 QL2 = QL43                                            ; src/253.hpp       :0037
 Q0 = Q218/2                                           ; src/253.hpp       :0041
 Q1 = Q218/2                                           ; src/253.hpp       :0041
 FN 9: IF Q0 EQU QL31 GOTO LBL "IF_1"                  ; src/253.hpp       :0041
 FN 12: IF Q0 LT QL31 GOTO LBL "IF_1"                  ; src/253.hpp       :0041
 FN 9: IF Q1 EQU QL32 GOTO LBL "IF_1"                  ; src/253.hpp       :0041
 FN 12: IF Q1 LT QL32 GOTO LBL "IF_1"                  ; src/253.hpp       :0041
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_1"                   ; src/253.hpp       :0041
 LBL "IF_1"                                            ; src/253.hpp       :0041
 FN 14: ERROR= 1029                                    ; src/253.hpp       :0043
 LBL "IFNOT_1"                                         ; src/253.hpp       :0044
 Q0 = Q219/2                                           ; src/253.hpp       :0045
 Q1 = Q219/2                                           ; src/253.hpp       :0045
 FN 9: IF Q0 EQU QL31 GOTO LBL "IF_2"                  ; src/253.hpp       :0045
 FN 12: IF Q0 LT QL31 GOTO LBL "IF_2"                  ; src/253.hpp       :0045
 FN 9: IF Q1 EQU QL32 GOTO LBL "IF_2"                  ; src/253.hpp       :0045
 FN 12: IF Q1 LT QL32 GOTO LBL "IF_2"                  ; src/253.hpp       :0045
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_2"                   ; src/253.hpp       :0045
 LBL "IF_2"                                            ; src/253.hpp       :0045
 FN 14: ERROR= 1028                                    ; src/253.hpp       :0047
 LBL "IFNOT_2"                                         ; src/253.hpp       :0048
 FN 9: IF Q218 EQU Q219 GOTO LBL "IFNOT_3"             ; src/253.hpp       :0049
 FN 11: IF Q218 GT Q219 GOTO LBL "IFNOT_3"             ; src/253.hpp       :0049
 FN 14: ERROR= 1032                                    ; src/253.hpp       :0051
 LBL "IFNOT_3"                                         ; src/253.hpp       :0052
 FN 12: IF Q351 LT -1 GOTO LBL "IF_4"                  ; src/253.hpp       :0056
 FN 11: IF Q351 GT 1 GOTO LBL "IF_4"                   ; src/253.hpp       :0056
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_4"                   ; src/253.hpp       :0056
 LBL "IF_4"                                            ; src/253.hpp       :0056
 FN 14: ERROR= 1011                                    ; src/253.hpp       :0058
 LBL "IFNOT_4"                                         ; src/253.hpp       :0059
 FN 9: IF Q352 EQU -1 GOTO LBL "CASE0_5"               ; src/253.hpp       :0064
 FN 9: IF Q352 EQU +1 GOTO LBL "CASE1_5"               ; src/253.hpp       :0064
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_5"               ; src/253.hpp       :0064
 LBL "CASE0_5"                                         ; src/253.hpp       :0066
 QL7 = 1                                               ; src/253.hpp       :0067
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_5"               ; src/253.hpp       :0068
 LBL "CASE1_5"                                         ; src/253.hpp       :0069
 QL7 = 2                                               ; src/253.hpp       :0070
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_5"               ; src/253.hpp       :0071
 LBL "SWITCHDEF_5"                                     ; src/253.hpp       :0072
  FN 9: IF Q367 EQU 0 GOTO LBL "CASE0_6"               ; src/253.hpp       :0073
  FN 9: IF Q367 EQU 1 GOTO LBL "CASE1_6"               ; src/253.hpp       :0073
  FN 9: IF Q367 EQU 2 GOTO LBL "CASE2_6"               ; src/253.hpp       :0073
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_6"              ; src/253.hpp       :0073
  LBL "CASE0_6"                                        ; src/253.hpp       :0075
  LBL "CASE1_6"                                        ; src/253.hpp       :0076
  LBL "CASE2_6"                                        ; src/253.hpp       :0077
  QL7 = 1                                              ; src/253.hpp       :0078
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_6"              ; src/253.hpp       :0079
  LBL "SWITCHDEF_6"                                    ; src/253.hpp       :0080
  QL7 = 2                                              ; src/253.hpp       :0081
  LBL "SWITCHEND_6"                                    ; src/253.hpp       :0082
 LBL "SWITCHEND_5"                                     ; src/253.hpp       :0083
 CALL LBL "read_wcs"
 QL0 = QL44                                            ; src/253.hpp       :0088
 QL1 = QL45                                            ; src/253.hpp       :0088
 TRANS DATUM AXIS IX+QL0 IY+QL1                        ; src/253.hpp       :0089
 FN 9: IF Q374 EQU 0 GOTO LBL "CASE0_7"                ; src/253.hpp       :0090
 FN 9: IF Q374 EQU 1 GOTO LBL "CASE1_7"                ; src/253.hpp       :0090
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_7"               ; src/253.hpp       :0090
 LBL "CASE0_7"                                         ; src/253.hpp       :0092
  FN 9: IF Q367 EQU 0 GOTO LBL "CASE0_8"               ; src/253.hpp       :0093
  FN 9: IF Q367 EQU 1 GOTO LBL "CASE1_8"               ; src/253.hpp       :0093
  FN 9: IF Q367 EQU 2 GOTO LBL "CASE2_8"               ; src/253.hpp       :0093
  FN 9: IF Q367 EQU 3 GOTO LBL "CASE3_8"               ; src/253.hpp       :0093
  FN 9: IF Q367 EQU 4 GOTO LBL "CASE4_8"               ; src/253.hpp       :0093
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_8"              ; src/253.hpp       :0093
  LBL "CASE0_8"                                        ; src/253.hpp       :0095
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_8"              ; src/253.hpp       :0096
  LBL "CASE1_8"                                        ; src/253.hpp       :0097
  Q0 = Q218/2                                          ; src/253.hpp       :0098
  TRANS DATUM AXIS IX+Q0 IY+0                          ; src/253.hpp       :0098
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_8"              ; src/253.hpp       :0099
  LBL "CASE2_8"                                        ; src/253.hpp       :0100
  Q0 = Q218/2 - Q219/2                                 ; src/253.hpp       :0101
  TRANS DATUM AXIS IX+Q0 IY+0                          ; src/253.hpp       :0101
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_8"              ; src/253.hpp       :0102
  LBL "CASE3_8"                                        ; src/253.hpp       :0103
  Q0 = Q218/2 - Q219/2                                 ; src/253.hpp       :0104
  TRANS DATUM AXIS IX-Q0 IY+0                          ; src/253.hpp       :0104
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_8"              ; src/253.hpp       :0105
  LBL "CASE4_8"                                        ; src/253.hpp       :0106
  Q0 = Q218/2                                          ; src/253.hpp       :0107
  TRANS DATUM AXIS IX-Q0 IY+0                          ; src/253.hpp       :0107
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_8"              ; src/253.hpp       :0108
  LBL "SWITCHDEF_8"                                    ; src/253.hpp       :0109
  FN 14: ERROR= 1011                                   ; src/253.hpp       :0110
  LBL "SWITCHEND_8"                                    ; src/253.hpp       :0111
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_7"               ; src/253.hpp       :0112
 LBL "CASE1_7"                                         ; src/253.hpp       :0113
  FN 9: IF Q367 EQU 0 GOTO LBL "CASE0_9"               ; src/253.hpp       :0114
  FN 9: IF Q367 EQU 1 GOTO LBL "CASE1_9"               ; src/253.hpp       :0114
  FN 9: IF Q367 EQU 2 GOTO LBL "CASE2_9"               ; src/253.hpp       :0114
  FN 9: IF Q367 EQU 3 GOTO LBL "CASE3_9"               ; src/253.hpp       :0114
  FN 9: IF Q367 EQU 4 GOTO LBL "CASE4_9"               ; src/253.hpp       :0114
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_9"              ; src/253.hpp       :0114
  LBL "CASE0_9"                                        ; src/253.hpp       :0116
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_9"              ; src/253.hpp       :0117
  LBL "CASE1_9"                                        ; src/253.hpp       :0118
  Q0 = Q218/2                                          ; src/253.hpp       :0119
  TRANS DATUM AXIS IX+0 IY+Q0                          ; src/253.hpp       :0119
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_9"              ; src/253.hpp       :0120
  LBL "CASE2_9"                                        ; src/253.hpp       :0121
  Q0 = Q218/2 - Q219/2                                 ; src/253.hpp       :0122
  TRANS DATUM AXIS IX+0 IY+Q0                          ; src/253.hpp       :0122
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_9"              ; src/253.hpp       :0123
  LBL "CASE3_9"                                        ; src/253.hpp       :0124
  Q0 = Q218/2 - Q219/2                                 ; src/253.hpp       :0125
  TRANS DATUM AXIS IX+0 IY-Q0                          ; src/253.hpp       :0125
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_9"              ; src/253.hpp       :0126
  LBL "CASE4_9"                                        ; src/253.hpp       :0127
  Q0 = Q218/2                                          ; src/253.hpp       :0128
  TRANS DATUM AXIS IX+0 IY-Q0                          ; src/253.hpp       :0128
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_9"              ; src/253.hpp       :0129
  LBL "SWITCHDEF_9"                                    ; src/253.hpp       :0130
  FN 14: ERROR= 1011                                   ; src/253.hpp       :0131
  LBL "SWITCHEND_9"                                    ; src/253.hpp       :0132
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_7"               ; src/253.hpp       :0133
 LBL "SWITCHDEF_7"                                     ; src/253.hpp       :0134
 FN 14: ERROR= 1011                                    ; src/253.hpp       :0135
 LBL "SWITCHEND_7"                                     ; src/253.hpp       :0136
 FN 9: IF Q215 EQU 0 GOTO LBL "IF_10"                  ; src/253.hpp       :0142
 FN 9: IF Q215 EQU 1 GOTO LBL "IF_10"                  ; src/253.hpp       :0142
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_10"                  ; src/253.hpp       :0142
 LBL "IF_10"                                           ; src/253.hpp       :0142
 QL47 = Q207                                           ; src/253.hpp       :0144
 QL48 = Q207                                           ; src/253.hpp       :0144
 QL49 = Q206                                           ; src/253.hpp       :0144
 QL50 = -57239891                                      ; src/253.hpp       :0144
 CALL LBL "253_ap$Pocket.set_feed"
  FN 9: IF Q374 EQU 0 GOTO LBL "CASE0_11"              ; src/253.hpp       :0145
  FN 9: IF Q374 EQU 1 GOTO LBL "CASE1_11"              ; src/253.hpp       :0145
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/253.hpp       :0145
  LBL "CASE0_11"                                       ; src/253.hpp       :0147
   FN 9: IF QL7 EQU 1 GOTO LBL "CASE0_12"              ; src/253.hpp       :0148
   FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_12"            ; src/253.hpp       :0148
   LBL "CASE0_12"                                      ; src/253.hpp       :0150
   Q0 = -(Q218/2 -QL32 - (Q219/2 -QL32))               ; src/253.hpp       :0151
   QL51 = Q0                                           ; src/253.hpp       :0151
   QL52 = 0                                            ; src/253.hpp       :0151
   QL53 = Q203                                         ; src/253.hpp       :0151
   QL54 = QL35                                         ; src/253.hpp       :0151
   QL55 = QL35                                         ; src/253.hpp       :0151
   QL56 = Q201                                         ; src/253.hpp       :0151
   CALL LBL "prepos"
   FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_12"            ; src/253.hpp       :0152
   LBL "SWITCHDEF_12"                                  ; src/253.hpp       :0153
   Q0 = (Q218/2 -QL32 - (Q219/2 -QL32))                ; src/253.hpp       :0154
   QL51 = Q0                                           ; src/253.hpp       :0154
   QL52 = 0                                            ; src/253.hpp       :0154
   QL53 = Q203                                         ; src/253.hpp       :0154
   QL54 = QL35                                         ; src/253.hpp       :0154
   QL55 = QL35                                         ; src/253.hpp       :0154
   QL56 = Q201                                         ; src/253.hpp       :0154
   CALL LBL "prepos"
   LBL "SWITCHEND_12"                                  ; src/253.hpp       :0155
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/253.hpp       :0156
  LBL "CASE1_11"                                       ; src/253.hpp       :0157
   FN 9: IF QL7 EQU 1 GOTO LBL "CASE0_13"              ; src/253.hpp       :0158
   FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_13"            ; src/253.hpp       :0158
   LBL "CASE0_13"                                      ; src/253.hpp       :0160
   Q0 = -(Q218/2 -QL32 - (Q219/2 -QL32))               ; src/253.hpp       :0161
   QL51 = 0                                            ; src/253.hpp       :0161
   QL52 = Q0                                           ; src/253.hpp       :0161
   QL53 = Q203                                         ; src/253.hpp       :0161
   QL54 = QL35                                         ; src/253.hpp       :0161
   QL55 = QL35                                         ; src/253.hpp       :0161
   QL56 = Q201                                         ; src/253.hpp       :0161
   CALL LBL "prepos"
   FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_13"            ; src/253.hpp       :0162
   LBL "SWITCHDEF_13"                                  ; src/253.hpp       :0163
   Q0 = (Q218/2 -QL32 - (Q219/2 -QL32))                ; src/253.hpp       :0164
   QL51 = 0                                            ; src/253.hpp       :0164
   QL52 = Q0                                           ; src/253.hpp       :0164
   QL53 = Q203                                         ; src/253.hpp       :0164
   QL54 = QL35                                         ; src/253.hpp       :0164
   QL55 = QL35                                         ; src/253.hpp       :0164
   QL56 = Q201                                         ; src/253.hpp       :0164
   CALL LBL "prepos"
   LBL "SWITCHEND_13"                                  ; src/253.hpp       :0165
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_11"             ; src/253.hpp       :0166
  LBL "SWITCHEND_11"                                   ; src/253.hpp       :0167
 QL4 = Q203 + Q201                                     ; src/253.hpp       :0168
  FN 9: IF Q202 EQU 0 GOTO LBL "IFNOT_14"              ; src/253.hpp       :0169
  QL5 = ABS( Q202 )                                    ; src/253.hpp       :0171
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_14"                 ; src/253.hpp       :0172
  LBL "IFNOT_14"                                       ; src/253.hpp       :0172
  FN 14: ERROR= 1090                                   ; src/253.hpp       :0175
  LBL "ENDIF_14"                                       ; src/253.hpp       :0176
  FN 9: IF QL5 EQU QL2 GOTO LBL "IFNOT_15"             ; src/253.hpp       :0177
  FN 12: IF QL5 LT QL2 GOTO LBL "IFNOT_15"             ; src/253.hpp       :0177
  FN 9: IF QL2 EQU 0 GOTO LBL "IFNOT_15"               ; src/253.hpp       :0177
  FN 12: IF QL2 LT 0 GOTO LBL "IFNOT_15"               ; src/253.hpp       :0177
  QL5 = QL2                                            ; src/253.hpp       :0179
  LBL "IFNOT_15"                                       ; src/253.hpp       :0180
 QL5 = QL5 * QL6                                       ; src/253.hpp       :0181
 QL57 = 0                                              ; src/253.hpp       :0185
 QL58 = Q218                                           ; src/253.hpp       :0185
 QL59 = Q219                                           ; src/253.hpp       :0185
 QL60 = QL5                                            ; src/253.hpp       :0185
 QL61 = Q374                                           ; src/253.hpp       :0185
 QL62 = QL7                                            ; src/253.hpp       :0185
 QL63 = Q352                                           ; src/253.hpp       :0185
 CALL LBL "253_ap$Pocket.slot_ap"
 Q0 = QL4-QL35*QL6                                     ; src/253.hpp       :0186
 Z+Q0 R0 FMAX                                          ; src/253.hpp       :0186
 LBL "IFNOT_10"                                        ; src/253.hpp       :0187
 FN 9: IF Q215 EQU 0 GOTO LBL "IF_16"                  ; src/253.hpp       :0193
 FN 9: IF Q215 EQU 2 GOTO LBL "IF_16"                  ; src/253.hpp       :0193
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_16"                  ; src/253.hpp       :0193
 LBL "IF_16"                                           ; src/253.hpp       :0193
 QL47 = Q385                                           ; src/253.hpp       :0195
 QL48 = Q385                                           ; src/253.hpp       :0195
 QL49 = Q206                                           ; src/253.hpp       :0195
 QL50 = -57239891                                      ; src/253.hpp       :0195
 CALL LBL "253_ap$Pocket.set_feed"
  FN 9: IF Q374 EQU 0 GOTO LBL "CASE0_17"              ; src/253.hpp       :0196
  FN 9: IF Q374 EQU 1 GOTO LBL "CASE1_17"              ; src/253.hpp       :0196
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_17"             ; src/253.hpp       :0196
  LBL "CASE0_17"                                       ; src/253.hpp       :0198
   FN 9: IF QL7 EQU 1 GOTO LBL "CASE0_18"              ; src/253.hpp       :0199
   FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_18"            ; src/253.hpp       :0199
   LBL "CASE0_18"                                      ; src/253.hpp       :0201
   Q0 = -(Q218/2 -QL32 - (Q219/2 -QL32))               ; src/253.hpp       :0202
   QL51 = Q0                                           ; src/253.hpp       :0202
   QL52 = 0                                            ; src/253.hpp       :0202
   QL53 = Q203                                         ; src/253.hpp       :0202
   QL54 = QL35                                         ; src/253.hpp       :0202
   QL55 = QL35                                         ; src/253.hpp       :0202
   QL56 = Q201                                         ; src/253.hpp       :0202
   CALL LBL "prepos"
   FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_18"            ; src/253.hpp       :0203
   LBL "SWITCHDEF_18"                                  ; src/253.hpp       :0204
   Q0 = (Q218/2 -QL32 - (Q219/2 -QL32))                ; src/253.hpp       :0205
   QL51 = Q0                                           ; src/253.hpp       :0205
   QL52 = 0                                            ; src/253.hpp       :0205
   QL53 = Q203                                         ; src/253.hpp       :0205
   QL54 = QL35                                         ; src/253.hpp       :0205
   QL55 = QL35                                         ; src/253.hpp       :0205
   QL56 = Q201                                         ; src/253.hpp       :0205
   CALL LBL "prepos"
   LBL "SWITCHEND_18"                                  ; src/253.hpp       :0206
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_17"             ; src/253.hpp       :0207
  LBL "CASE1_17"                                       ; src/253.hpp       :0208
   FN 9: IF QL7 EQU 1 GOTO LBL "CASE0_19"              ; src/253.hpp       :0209
   FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_19"            ; src/253.hpp       :0209
   LBL "CASE0_19"                                      ; src/253.hpp       :0211
   Q0 = -(Q218/2 -QL32 - (Q219/2 -QL32))               ; src/253.hpp       :0212
   QL51 = 0                                            ; src/253.hpp       :0212
   QL52 = Q0                                           ; src/253.hpp       :0212
   QL53 = Q203                                         ; src/253.hpp       :0212
   QL54 = QL35                                         ; src/253.hpp       :0212
   QL55 = QL35                                         ; src/253.hpp       :0212
   QL56 = Q201                                         ; src/253.hpp       :0212
   CALL LBL "prepos"
   FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_19"            ; src/253.hpp       :0213
   LBL "SWITCHDEF_19"                                  ; src/253.hpp       :0214
   Q0 = (Q218/2 -QL32 - (Q219/2 -QL32))                ; src/253.hpp       :0215
   QL51 = 0                                            ; src/253.hpp       :0215
   QL52 = Q0                                           ; src/253.hpp       :0215
   QL53 = Q203                                         ; src/253.hpp       :0215
   QL54 = QL35                                         ; src/253.hpp       :0215
   QL55 = QL35                                         ; src/253.hpp       :0215
   QL56 = Q201                                         ; src/253.hpp       :0215
   CALL LBL "prepos"
   LBL "SWITCHEND_19"                                  ; src/253.hpp       :0216
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_17"             ; src/253.hpp       :0217
  LBL "SWITCHEND_17"                                   ; src/253.hpp       :0218
 QL4 = Q203 + Q201                                     ; src/253.hpp       :0219
  FN 9: IF Q338 EQU 0 GOTO LBL "IFNOT_20"              ; src/253.hpp       :0220
  QL5 = ABS( Q338 )                                    ; src/253.hpp       :0222
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_20"                 ; src/253.hpp       :0223
  LBL "IFNOT_20"                                       ; src/253.hpp       :0223
  QL5 = ABS( Q201 )                                    ; src/253.hpp       :0226
  LBL "ENDIF_20"                                       ; src/253.hpp       :0227
  FN 9: IF QL5 EQU QL2 GOTO LBL "IFNOT_21"             ; src/253.hpp       :0228
  FN 12: IF QL5 LT QL2 GOTO LBL "IFNOT_21"             ; src/253.hpp       :0228
  FN 9: IF QL2 EQU 0 GOTO LBL "IFNOT_21"               ; src/253.hpp       :0228
  FN 12: IF QL2 LT 0 GOTO LBL "IFNOT_21"               ; src/253.hpp       :0228
  QL5 = QL2                                            ; src/253.hpp       :0230
  LBL "IFNOT_21"                                       ; src/253.hpp       :0231
 Q0 = ABS( Q201 )                                      ; src/253.hpp       :0232
  FN 9: IF QL5 EQU Q0 GOTO LBL "IFNOT_22"              ; src/253.hpp       :0232
  FN 12: IF QL5 LT Q0 GOTO LBL "IFNOT_22"              ; src/253.hpp       :0232
  QL5 = ABS( Q201 )                                    ; src/253.hpp       :0234
  LBL "IFNOT_22"                                       ; src/253.hpp       :0235
 QL5 = QL5 * QL6                                       ; src/253.hpp       :0236
 QL57 = 1                                              ; src/253.hpp       :0240
 QL58 = Q218                                           ; src/253.hpp       :0240
 QL59 = Q219                                           ; src/253.hpp       :0240
 QL60 = QL5                                            ; src/253.hpp       :0240
 QL61 = Q374                                           ; src/253.hpp       :0240
 QL62 = QL7                                            ; src/253.hpp       :0240
 QL63 = Q352                                           ; src/253.hpp       :0240
 CALL LBL "253_ap$Pocket.slot_ap"
 Q0 = QL4-QL35*QL6                                     ; src/253.hpp       :0241
 Z+Q0 R0 FMAX                                          ; src/253.hpp       :0241
 LBL "IFNOT_16"                                        ; src/253.hpp       :0242
 FN 9: IF Q374 EQU 0 GOTO LBL "CASE0_23"               ; src/253.hpp       :0247
 FN 9: IF Q374 EQU 1 GOTO LBL "CASE1_23"               ; src/253.hpp       :0247
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_23"              ; src/253.hpp       :0247
 LBL "CASE0_23"                                        ; src/253.hpp       :0249
  FN 9: IF Q367 EQU 0 GOTO LBL "CASE0_24"              ; src/253.hpp       :0250
  FN 9: IF Q367 EQU 1 GOTO LBL "CASE1_24"              ; src/253.hpp       :0250
  FN 9: IF Q367 EQU 2 GOTO LBL "CASE2_24"              ; src/253.hpp       :0250
  FN 9: IF Q367 EQU 3 GOTO LBL "CASE3_24"              ; src/253.hpp       :0250
  FN 9: IF Q367 EQU 4 GOTO LBL "CASE4_24"              ; src/253.hpp       :0250
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_24"             ; src/253.hpp       :0250
  LBL "CASE0_24"                                       ; src/253.hpp       :0252
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_24"             ; src/253.hpp       :0253
  LBL "CASE1_24"                                       ; src/253.hpp       :0254
  Q0 = Q218/2                                          ; src/253.hpp       :0255
  TRANS DATUM AXIS IX-Q0 IY+0                          ; src/253.hpp       :0255
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_24"             ; src/253.hpp       :0256
  LBL "CASE2_24"                                       ; src/253.hpp       :0257
  Q0 = Q218/2 - Q219/2                                 ; src/253.hpp       :0258
  TRANS DATUM AXIS IX-Q0 IY+0                          ; src/253.hpp       :0258
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_24"             ; src/253.hpp       :0259
  LBL "CASE3_24"                                       ; src/253.hpp       :0260
  Q0 = Q218/2 - Q219/2                                 ; src/253.hpp       :0261
  TRANS DATUM AXIS IX+Q0 IY+0                          ; src/253.hpp       :0261
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_24"             ; src/253.hpp       :0262
  LBL "CASE4_24"                                       ; src/253.hpp       :0263
  Q0 = Q218/2                                          ; src/253.hpp       :0264
  TRANS DATUM AXIS IX+Q0 IY+0                          ; src/253.hpp       :0264
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_24"             ; src/253.hpp       :0265
  LBL "SWITCHEND_24"                                   ; src/253.hpp       :0266
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_23"              ; src/253.hpp       :0267
 LBL "CASE1_23"                                        ; src/253.hpp       :0268
  FN 9: IF Q367 EQU 0 GOTO LBL "CASE0_25"              ; src/253.hpp       :0269
  FN 9: IF Q367 EQU 1 GOTO LBL "CASE1_25"              ; src/253.hpp       :0269
  FN 9: IF Q367 EQU 2 GOTO LBL "CASE2_25"              ; src/253.hpp       :0269
  FN 9: IF Q367 EQU 3 GOTO LBL "CASE3_25"              ; src/253.hpp       :0269
  FN 9: IF Q367 EQU 4 GOTO LBL "CASE4_25"              ; src/253.hpp       :0269
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_25"             ; src/253.hpp       :0269
  LBL "CASE0_25"                                       ; src/253.hpp       :0271
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_25"             ; src/253.hpp       :0272
  LBL "CASE1_25"                                       ; src/253.hpp       :0273
  Q0 = Q218/2                                          ; src/253.hpp       :0274
  TRANS DATUM AXIS IX+0 IY-Q0                          ; src/253.hpp       :0274
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_25"             ; src/253.hpp       :0275
  LBL "CASE2_25"                                       ; src/253.hpp       :0276
  Q0 = Q218/2 - Q219/2                                 ; src/253.hpp       :0277
  TRANS DATUM AXIS IX+0 IY-Q0                          ; src/253.hpp       :0277
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_25"             ; src/253.hpp       :0278
  LBL "CASE3_25"                                       ; src/253.hpp       :0279
  Q0 = Q218/2 - Q219/2                                 ; src/253.hpp       :0280
  TRANS DATUM AXIS IX+0 IY+Q0                          ; src/253.hpp       :0280
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_25"             ; src/253.hpp       :0281
  LBL "CASE4_25"                                       ; src/253.hpp       :0282
  Q0 = Q218/2                                          ; src/253.hpp       :0283
  TRANS DATUM AXIS IX+0 IY+Q0                          ; src/253.hpp       :0283
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_25"             ; src/253.hpp       :0284
  LBL "SWITCHDEF_25"                                   ; src/253.hpp       :0285
  FN 14: ERROR= 1011                                   ; src/253.hpp       :0286
  LBL "SWITCHEND_25"                                   ; src/253.hpp       :0287
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_23"              ; src/253.hpp       :0288
 LBL "SWITCHEND_23"                                    ; src/253.hpp       :0289
 Z+QL36 R0 FMAX                                        ; src/253.hpp       :0293
 FN 10: IF Q367 NE 0 GOTO LBL "IFNOT_26"               ; src/253.hpp       :0294
 X+0 R0 FMAX                                           ; src/253.hpp       :0296
 Y+0 R0 FMAX                                           ; src/253.hpp       :0297
 LBL "IFNOT_26"                                        ; src/253.hpp       :0298
 TRANS DATUM AXIS IX-QL0 IY-QL1                        ; src/253.hpp       :0299
LBL "e_253_ap0"                                        ; src/253.hpp       :0009
FN 9: IF 0 EQU 0 GOTO LBL "EXIT"                       ;                   :-001
LBL "253_ap$Pocket.PRINT"                              ; src/print/print.hpp:0059
 FN 18: SYSREAD QL8 = ID 992 NR 16                     ; src/print/print.hpp:0088
 FN 10: IF QL8 NE 1 GOTO LBL "IFNOT_27"                ; 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
 QL64 = 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 QL64 EQU 1 GOTO LBL "CASE0_28"              ; src/print/print.hpp:0105
  FN 9: IF QL64 EQU 2 GOTO LBL "CASE1_28"              ; src/print/print.hpp:0105
  FN 9: IF QL64 EQU 3 GOTO LBL "CASE2_28"              ; src/print/print.hpp:0105
  FN 9: IF QL64 EQU 4 GOTO LBL "CASE3_28"              ; src/print/print.hpp:0105
  FN 9: IF QL64 EQU 5 GOTO LBL "CASE4_28"              ; src/print/print.hpp:0105
  FN 9: IF QL64 EQU 6 GOTO LBL "CASE5_28"              ; src/print/print.hpp:0105
  FN 9: IF QL64 EQU 7 GOTO LBL "CASE6_28"              ; src/print/print.hpp:0105
  FN 9: IF QL64 EQU 8 GOTO LBL "CASE7_28"              ; src/print/print.hpp:0105
  FN 9: IF QL64 EQU 9 GOTO LBL "CASE8_28"              ; src/print/print.hpp:0105
  FN 9: IF QL64 EQU 10 GOTO LBL "CASE9_28"             ; src/print/print.hpp:0105
  FN 9: IF QL64 EQU 11 GOTO LBL "CASE10_28"            ; src/print/print.hpp:0105
  FN 9: IF QL64 EQU 12 GOTO LBL "CASE11_28"            ; src/print/print.hpp:0105
  FN 9: IF QL64 EQU 17 GOTO LBL "CASE12_28"            ; src/print/print.hpp:0105
  FN 9: IF QL64 EQU 21 GOTO LBL "CASE13_28"            ; src/print/print.hpp:0105
  FN 9: IF QL64 EQU 22 GOTO LBL "CASE14_28"            ; src/print/print.hpp:0105
  FN 9: IF QL64 EQU 23 GOTO LBL "CASE15_28"            ; src/print/print.hpp:0105
  FN 9: IF QL64 EQU 24 GOTO LBL "CASE16_28"            ; src/print/print.hpp:0105
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_28"             ; src/print/print.hpp:0105
  LBL "CASE0_28"                                       ; src/print/print.hpp:0106
  QS11 = QS11 || "\DE.TAB"                             ; src/print/print.hpp:0107
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_28"             ; src/print/print.hpp:0108
  LBL "CASE1_28"                                       ; src/print/print.hpp:0109
  QS11 = QS11 || "\CS.TAB"                             ; src/print/print.hpp:0110
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_28"             ; src/print/print.hpp:0111
  LBL "CASE2_28"                                       ; src/print/print.hpp:0112
  QS11 = QS11 || "\FR.TAB"                             ; src/print/print.hpp:0113
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_28"             ; src/print/print.hpp:0114
  LBL "CASE3_28"                                       ; src/print/print.hpp:0115
  QS11 = QS11 || "\IT.TAB"                             ; src/print/print.hpp:0116
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_28"             ; src/print/print.hpp:0117
  LBL "CASE4_28"                                       ; src/print/print.hpp:0118
  QS11 = QS11 || "\ES.TAB"                             ; src/print/print.hpp:0119
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_28"             ; src/print/print.hpp:0120
  LBL "CASE5_28"                                       ; src/print/print.hpp:0121
  QS11 = QS11 || "\PT.TAB"                             ; src/print/print.hpp:0122
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_28"             ; src/print/print.hpp:0123
  LBL "CASE6_28"                                       ; src/print/print.hpp:0124
  QS11 = QS11 || "\SV.TAB"                             ; src/print/print.hpp:0125
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_28"             ; src/print/print.hpp:0126
  LBL "CASE7_28"                                       ; src/print/print.hpp:0127
  QS11 = QS11 || "\DA.TAB"                             ; src/print/print.hpp:0128
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_28"             ; src/print/print.hpp:0129
  LBL "CASE8_28"                                       ; src/print/print.hpp:0130
  QS11 = QS11 || "\FI.TAB"                             ; src/print/print.hpp:0131
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_28"             ; src/print/print.hpp:0132
  LBL "CASE9_28"                                       ; src/print/print.hpp:0133
  QS11 = QS11 || "\NL.TAB"                             ; src/print/print.hpp:0134
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_28"             ; src/print/print.hpp:0135
  LBL "CASE10_28"                                      ; src/print/print.hpp:0136
  QS11 = QS11 || "\PL.TAB"                             ; src/print/print.hpp:0137
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_28"             ; src/print/print.hpp:0138
  LBL "CASE11_28"                                      ; src/print/print.hpp:0139
  QS11 = QS11 || "\HU.TAB"                             ; src/print/print.hpp:0140
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_28"             ; src/print/print.hpp:0141
  LBL "CASE12_28"                                      ; src/print/print.hpp:0142
  QS11 = QS11 || "\SL.TAB"                             ; src/print/print.hpp:0143
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_28"             ; src/print/print.hpp:0144
  LBL "CASE13_28"                                      ; src/print/print.hpp:0145
  QS11 = QS11 || "\NB.TAB"                             ; src/print/print.hpp:0146
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_28"             ; src/print/print.hpp:0147
  LBL "CASE14_28"                                      ; src/print/print.hpp:0148
  QS11 = QS11 || "\RO.TAB"                             ; src/print/print.hpp:0149
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_28"             ; src/print/print.hpp:0150
  LBL "CASE15_28"                                      ; src/print/print.hpp:0151
  QS11 = QS11 || "\SK.TAB"                             ; src/print/print.hpp:0152
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_28"             ; src/print/print.hpp:0153
  LBL "CASE16_28"                                      ; src/print/print.hpp:0154
  QS11 = QS11 || "\TR.TAB"                             ; src/print/print.hpp:0155
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_28"             ; src/print/print.hpp:0156
  LBL "SWITCHDEF_28"                                   ; src/print/print.hpp:0157
  QS11 = QS11 || "\EN.TAB"                             ; src/print/print.hpp:0158
  LBL "SWITCHEND_28"                                   ; src/print/print.hpp:0159
 LBL "IFNOT_27"                                        ; src/print/print.hpp:0160
LBL 0                                                  ; src/print/print.hpp:0059
LBL "253_ap$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
 QL10 = STRCOMP( SRC_ QS3 SEA_ QS0 )                   ; includes/mill.hpp :0075
 FN 9: IF QL10 EQU 0 GOTO LBL "IFNOT_29"               ; includes/mill.hpp :0076
 QL10 = 1                                              ; includes/mill.hpp :0076
 LBL "IFNOT_29"                                        ; includes/mill.hpp :0076
 FN 18: SYSREAD QL11 = ID 20 NR 3                      ; includes/mill.hpp :0080
 FN 18: SYSREAD QL34 = ID 200 NR 3 IDX 2               ; includes/mill.hpp :0084
 FN 18: SYSREAD QL17 = ID 210 NR 3                     ; includes/mill.hpp :0089
 FN 9: IF QL11 EQU 0 GOTO LBL "CASE0_30"               ; includes/mill.hpp :0090
 FN 9: IF QL11 EQU 6 GOTO LBL "CASE1_30"               ; includes/mill.hpp :0090
 FN 9: IF QL11 EQU 1 GOTO LBL "CASE2_30"               ; includes/mill.hpp :0090
 FN 9: IF QL11 EQU 7 GOTO LBL "CASE3_30"               ; includes/mill.hpp :0090
 FN 9: IF QL11 EQU 2 GOTO LBL "CASE4_30"               ; includes/mill.hpp :0090
 FN 9: IF QL11 EQU 8 GOTO LBL "CASE5_30"               ; includes/mill.hpp :0090
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_30"              ; includes/mill.hpp :0090
 LBL "CASE0_30"                                        ; includes/mill.hpp :0091
 LBL "CASE1_30"                                        ; includes/mill.hpp :0092
 FN 18: SYSREAD QL14 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0093
 FN 18: SYSREAD QL15 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0094
 FN 18: SYSREAD QL16 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0095
 QL66 = QL17                                           ; includes/mill.hpp :0096
 QL67 = 1                                              ; includes/mill.hpp :0096
 CALL LBL "check_bit"
 QL18 = QL68                                           ; includes/mill.hpp :0096
 QL66 = QL17                                           ; includes/mill.hpp :0097
 QL67 = 2                                              ; includes/mill.hpp :0097
 CALL LBL "check_bit"
 QL19 = QL68                                           ; includes/mill.hpp :0097
 QL66 = QL17                                           ; includes/mill.hpp :0098
 QL67 = 0                                              ; includes/mill.hpp :0098
 CALL LBL "check_bit"
 QL20 = QL68                                           ; includes/mill.hpp :0098
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_30"              ; includes/mill.hpp :0099
 LBL "CASE2_30"                                        ; includes/mill.hpp :0100
 LBL "CASE3_30"                                        ; includes/mill.hpp :0101
 FN 18: SYSREAD QL14 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0102
 FN 18: SYSREAD QL15 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0103
 FN 18: SYSREAD QL16 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0104
 QL66 = QL17                                           ; includes/mill.hpp :0105
 QL67 = 2                                              ; includes/mill.hpp :0105
 CALL LBL "check_bit"
 QL18 = QL68                                           ; includes/mill.hpp :0105
 QL66 = QL17                                           ; includes/mill.hpp :0106
 QL67 = 0                                              ; includes/mill.hpp :0106
 CALL LBL "check_bit"
 QL19 = QL68                                           ; includes/mill.hpp :0106
 QL66 = QL17                                           ; includes/mill.hpp :0107
 QL67 = 1                                              ; includes/mill.hpp :0107
 CALL LBL "check_bit"
 QL20 = QL68                                           ; includes/mill.hpp :0107
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_30"              ; includes/mill.hpp :0108
 LBL "CASE4_30"                                        ; includes/mill.hpp :0109
 LBL "CASE5_30"                                        ; includes/mill.hpp :0110
 FN 18: SYSREAD QL14 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0111
 FN 18: SYSREAD QL15 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0112
 FN 18: SYSREAD QL16 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0113
 QL66 = QL17                                           ; includes/mill.hpp :0114
 QL67 = 0                                              ; includes/mill.hpp :0114
 CALL LBL "check_bit"
 QL18 = QL68                                           ; includes/mill.hpp :0114
 QL66 = QL17                                           ; includes/mill.hpp :0115
 QL67 = 1                                              ; includes/mill.hpp :0115
 CALL LBL "check_bit"
 QL19 = QL68                                           ; includes/mill.hpp :0115
 QL66 = QL17                                           ; includes/mill.hpp :0116
 QL67 = 2                                              ; includes/mill.hpp :0116
 CALL LBL "check_bit"
 QL20 = QL68                                           ; includes/mill.hpp :0116
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_30"              ; includes/mill.hpp :0117
 LBL "SWITCHEND_30"                                    ; includes/mill.hpp :0118
 FN 9: IF QL14 EQU QL15 GOTO LBL "IFNOT_31"            ; includes/mill.hpp :0119
 FN 14: ERROR= 1108                                    ; includes/mill.hpp :0119
 LBL "IFNOT_31"                                        ; includes/mill.hpp :0119
 QL30 = 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_32"                 ; includes/mill.hpp :0129
 QL21 = 0.002                                          ; includes/mill.hpp :0130
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_32"                  ; includes/mill.hpp :0131
 LBL "IFNOT_32"                                        ; includes/mill.hpp :0131
 QL21 = 0.0002                                         ; includes/mill.hpp :0133
 LBL "ENDIF_32"                                        ; includes/mill.hpp :0134
 FN 18: SYSREAD QL9 = ID 992 NR 30                     ; includes/mill.hpp :0135
 FN 18: SYSREAD QL29 = ID 610 NR 6                     ; includes/mill.hpp :0136
 FN 18: SYSREAD QL13 = ID 950 NR 13                    ; includes/mill.hpp :0140
 FN 18: SYSREAD QL12 = ID 950 NR 14                    ; includes/mill.hpp :0141
 FN 18: SYSREAD QL31 = ID 200 NR 1 IDX 2               ; includes/mill.hpp :0142
 FN 18: SYSREAD QL32 = ID 200 NR 1 IDX 3               ; includes/mill.hpp :0143
 FN 11: IF QL31 GT 0 GOTO LBL "IFNOT_33"               ; includes/mill.hpp :0144
 FN 14: ERROR= 1002                                    ; includes/mill.hpp :0144
 LBL "IFNOT_33"                                        ; includes/mill.hpp :0144
 FN 9: IF QL31 EQU QL32 GOTO LBL "IFNOT_34"            ; includes/mill.hpp :0145
 FN 12: IF QL31 LT QL32 GOTO LBL "IFNOT_34"            ; includes/mill.hpp :0145
 QL33 = QL31                                           ; includes/mill.hpp :0146
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_34"                  ; includes/mill.hpp :0147
 LBL "IFNOT_34"                                        ; includes/mill.hpp :0147
 QL33 = QL32                                           ; includes/mill.hpp :0149
 LBL "ENDIF_34"                                        ; includes/mill.hpp :0150
 QL31 = QL31 / QL14                                    ; includes/mill.hpp :0154
 QL32 = QL32 / QL14                                    ; includes/mill.hpp :0155
 QL33 = QL33 / QL14                                    ; includes/mill.hpp :0156
 QL13 = QL13 / QL16                                    ; includes/mill.hpp :0157
 CALL LBL "check_spindle_status"
 QL69 = 3                                              ; includes/mill.hpp :0165
 CALL LBL "swap_axes"
LBL 0                                                  ; includes/mill.hpp :0049
LBL "253_ap$Pocket.init"                               ; includes/mill.hpp :0050
 FN 9: IF Q110 EQU 1 GOTO LBL "CASE0_35"               ; includes/mill.hpp :0175
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_35"              ; includes/mill.hpp :0175
 LBL "CASE0_35"                                        ; includes/mill.hpp :0177
 QL30 = +QL37                                          ; includes/mill.hpp :0178
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_35"              ; includes/mill.hpp :0179
 LBL "SWITCHDEF_35"                                    ; includes/mill.hpp :0180
 QL30 = -QL37                                          ; includes/mill.hpp :0181
 LBL "SWITCHEND_35"                                    ; includes/mill.hpp :0182
 FN 10: IF QL18 NE 1 GOTO LBL "IFNOT_36"               ; includes/mill.hpp :0183
 QL30 = -QL30                                          ; includes/mill.hpp :0185
 LBL "IFNOT_36"                                        ; includes/mill.hpp :0186
 FN 10: IF QL19 NE 1 GOTO LBL "IFNOT_37"               ; includes/mill.hpp :0187
 QL30 = -QL30                                          ; includes/mill.hpp :0189
 LBL "IFNOT_37"                                        ; includes/mill.hpp :0190
 QL27 = QL31 * QL41                                    ; includes/mill.hpp :0194
 QL70 = QL42                                           ; includes/mill.hpp :0198
 CALL LBL "check_depth_sign"
 FN 9: IF QL42 EQU 0 GOTO LBL "EXIT"                   ; includes/mill.hpp :0199
 QL28 = QL42                                           ; includes/mill.hpp :0200
 QL22 = QL38                                           ; includes/mill.hpp :0205
 QL35 = ABS( QL39 )                                    ; includes/mill.hpp :0206
 FN 9: IF QL35 EQU 0.001 GOTO LBL "IFNOT_39"           ; includes/mill.hpp :0207
 FN 11: IF QL35 GT 0.001 GOTO LBL "IFNOT_39"           ; includes/mill.hpp :0207
 QL35 = 0.001                                          ; includes/mill.hpp :0207
 LBL "IFNOT_39"                                        ; includes/mill.hpp :0207
 FN 9: IF QL40 EQU QL35 GOTO LBL "IFNOT_40"            ; includes/mill.hpp :0208
 FN 11: IF QL40 GT QL35 GOTO LBL "IFNOT_40"            ; includes/mill.hpp :0208
 QL36 = QL35                                           ; includes/mill.hpp :0210
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_40"                  ; includes/mill.hpp :0211
 LBL "IFNOT_40"                                        ; includes/mill.hpp :0211
 QL36 = QL40                                           ; includes/mill.hpp :0214
 LBL "ENDIF_40"                                        ; includes/mill.hpp :0215
 QL36 = QL22 - ( QL36 * SGN( QL28 ) )                  ; includes/mill.hpp :0216
LBL 0                                                  ; includes/mill.hpp :0050
LBL "253_ap$Pocket.get_ToolLCut"                       ; includes/mill.hpp :0054
 QL43 = QL13                                           ; 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_41"                 ; includes/geo.hpp  :0618
 FN 17: SYSWRITE ID 991 NR 100 = 1                     ; includes/geo.hpp  :0620
 LBL "IFNOT_41"                                        ; 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_42"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 6 GOTO LBL "CASE1_42"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 1 GOTO LBL "CASE2_42"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 7 GOTO LBL "CASE3_42"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 2 GOTO LBL "CASE4_42"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 8 GOTO LBL "CASE5_42"                 ; includes/geo.hpp  :0627
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_42"              ; includes/geo.hpp  :0627
 LBL "CASE0_42"                                        ; includes/geo.hpp  :0629
 LBL "CASE1_42"                                        ; includes/geo.hpp  :0630
 FN 18: SYSREAD QL44 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0631
 FN 18: SYSREAD QL45 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0632
 FN 18: SYSREAD QL46 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0633
 LBL 0                                                 ; includes/geo.hpp  :0634
 LBL "CASE2_42"                                        ; includes/geo.hpp  :0635
 LBL "CASE3_42"                                        ; includes/geo.hpp  :0636
 FN 18: SYSREAD QL44 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0637
 FN 18: SYSREAD QL45 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0638
 FN 18: SYSREAD QL46 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0639
 LBL 0                                                 ; includes/geo.hpp  :0640
 LBL "CASE4_42"                                        ; includes/geo.hpp  :0641
 LBL "CASE5_42"                                        ; includes/geo.hpp  :0642
 FN 18: SYSREAD QL44 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0643
 FN 18: SYSREAD QL45 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0644
 FN 18: SYSREAD QL46 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0645
 LBL 0                                                 ; includes/geo.hpp  :0646
 LBL "SWITCHEND_42"                                    ; includes/geo.hpp  :0647
LBL 0                                                  ; includes/stdlib.hh:0081
LBL "253_ap$Pocket.set_feed"                           ; includes/mill.hpp :0051
 QL23 = QL47                                           ; includes/mill.hpp :0223
 QL24 = QL48                                           ; includes/mill.hpp :0224
 QL25 = QL49                                           ; includes/mill.hpp :0225
 FN 11: IF QL50 GT 0 GOTO LBL "IFNOT_43"               ; includes/mill.hpp :0226
  FN 9: IF QL50 EQU -57239891 GOTO LBL "IFNOT_44"      ; includes/mill.hpp :0228
  QL26 = QL23                                          ; includes/mill.hpp :0230
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_44"                 ; includes/mill.hpp :0231
  LBL "IFNOT_44"                                       ; includes/mill.hpp :0231
  FN 22: FUNCT QL47 FNR 910 PIN 59 PIN 2 PEX 26        ; includes/mill.hpp :0235
  LBL "ENDIF_44"                                       ; includes/mill.hpp :0236
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_43"                  ; includes/mill.hpp :0238
 LBL "IFNOT_43"                                        ; includes/mill.hpp :0238
 QL26 = QL50                                           ; includes/mill.hpp :0241
 LBL "ENDIF_43"                                        ; includes/mill.hpp :0242
LBL 0                                                  ; includes/mill.hpp :0051
LBL "prepos"                                           ; includes/stdlib.hh:0108
 QL71 = QL55                                           ; includes/geo.hpp  :0780
 QL72 = QL56                                           ; includes/geo.hpp  :0780
 QL73 = QL53                                           ; 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_45"                 ; includes/geo.hpp  :0784
 L  X+QL51 Y+QL52 R0 FMAX                              ; includes/geo.hpp  :0786
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_45"                  ; includes/geo.hpp  :0787
 LBL "IFNOT_45"                                        ; includes/geo.hpp  :0787
 X+QL51 R0 FMAX                                        ; includes/geo.hpp  :0790
 Y+QL52 R0 FMAX                                        ; includes/geo.hpp  :0791
 LBL "ENDIF_45"                                        ; includes/geo.hpp  :0792
 Q0 = QL53 - (ABS(QL54) * SGN(QL56))                   ; includes/geo.hpp  :0794
 Z+Q0 FMAX                                             ; includes/geo.hpp  :0794
LBL 0                                                  ; includes/stdlib.hh:0108
LBL "253_ap$Pocket.slot_ap"                            ; includes/mill.hpp :0062
 QL75 = QL17                                           ; includes/mill.hpp :1767
 FN 12: IF QL30 LT 0 GOTO LBL "IFNOT_46"               ; includes/mill.hpp :1768
  FN 10: IF QL19 NE 1 GOTO LBL "IFNOT_47"              ; includes/mill.hpp :1770
  QL75 = QL75 - 2                                      ; includes/mill.hpp :1772
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_47"                 ; includes/mill.hpp :1773
  LBL "IFNOT_47"                                       ; includes/mill.hpp :1773
  QL75 = QL75 + 2                                      ; includes/mill.hpp :1776
  LBL "ENDIF_47"                                       ; includes/mill.hpp :1777
 FN 17: SYSWRITE ID 210 NR 3 = QL75                    ; includes/mill.hpp :1778
 LBL "IFNOT_46"                                        ; includes/mill.hpp :1779
 FN 10: IF QL62 NE 2 GOTO LBL "IFNOT_48"               ; includes/mill.hpp :1783
  FN 10: IF QL18 NE 1 GOTO LBL "IFNOT_49"              ; includes/mill.hpp :1785
  QL75 = QL75 - 1                                      ; includes/mill.hpp :1787
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_49"                 ; includes/mill.hpp :1788
  LBL "IFNOT_49"                                       ; includes/mill.hpp :1788
  QL75 = QL75 + 1                                      ; includes/mill.hpp :1791
  LBL "ENDIF_49"                                       ; includes/mill.hpp :1792
 QL66 = QL75                                           ; includes/mill.hpp :1793
 QL67 = 1                                              ; includes/mill.hpp :1793
 CALL LBL "check_bit"
 Q0 = QL68                                             ; includes/mill.hpp :1793
  FN 10: IF Q0 NE 1 GOTO LBL "IFNOT_50"                ; includes/mill.hpp :1793
  QL75 = QL75 - 2                                      ; includes/mill.hpp :1795
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_50"                 ; includes/mill.hpp :1796
  LBL "IFNOT_50"                                       ; includes/mill.hpp :1796
  QL75 = QL75 + 2                                      ; includes/mill.hpp :1799
  LBL "ENDIF_50"                                       ; includes/mill.hpp :1800
 FN 17: SYSWRITE ID 210 NR 3 = QL75                    ; includes/mill.hpp :1801
 LBL "IFNOT_48"                                        ; includes/mill.hpp :1802
 FN 9: IF QL57 EQU 0 GOTO LBL "CASE0_51"               ; includes/mill.hpp :1806
 FN 9: IF QL57 EQU 1 GOTO LBL "CASE1_51"               ; includes/mill.hpp :1806
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_51"              ; includes/mill.hpp :1806
 LBL "CASE0_51"                                        ; includes/mill.hpp :1808
 QL76 = QL58                                           ; includes/mill.hpp :1809
 QL77 = QL59                                           ; includes/mill.hpp :1809
 QL78 = QL63                                           ; includes/mill.hpp :1809
 QL79 = QL60                                           ; includes/mill.hpp :1809
 QL80 = QL61                                           ; includes/mill.hpp :1809
 CALL LBL "253_ap$Pocket$slot_ap_rough"
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_51"              ; includes/mill.hpp :1810
 LBL "CASE1_51"                                        ; includes/mill.hpp :1811
 QL81 = QL58                                           ; includes/mill.hpp :1812
 QL82 = QL59                                           ; includes/mill.hpp :1812
 QL83 = QL60                                           ; includes/mill.hpp :1812
 QL84 = QL61                                           ; includes/mill.hpp :1812
 CALL LBL "253_ap$Pocket$slot_ap_fin"
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_51"              ; includes/mill.hpp :1813
 LBL "SWITCHDEF_51"                                    ; includes/mill.hpp :1814
 FN 14: ERROR= 1011                                    ; includes/mill.hpp :1815
 LBL "SWITCHEND_51"                                    ; includes/mill.hpp :1816
 FN 17: SYSWRITE ID 210 NR 3 = QL17                    ; includes/mill.hpp :1820
LBL 0                                                  ; includes/mill.hpp :0062
LBL "check_bit"                                        ; includes/stdlib.hh:0124
 QL85=15                                               ; includes/geo.hpp  :0850
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_52"                 ; includes/geo.hpp  :0850
 LBL "FOR_52"                                          ; includes/geo.hpp  :0850
 QL85 = QL85 + -1                                      ; includes/geo.hpp  :0850
 LBL "FORCMP_52"                                       ; includes/geo.hpp  :0850
 FN 12: IF QL85 LT 0 GOTO LBL "FORNOT_52"              ; includes/geo.hpp  :0850
 QL68 = 2 ^ QL85                                       ; includes/geo.hpp  :0852
  FN 12: IF QL66 LT QL68 GOTO LBL "IFNOT_53"           ; includes/geo.hpp  :0853
   FN 10: IF QL85 NE QL67 GOTO LBL "IFNOT_54"          ; includes/geo.hpp  :0855
   QL68 = 1                                            ; includes/geo.hpp  :0857
   LBL 0                                               ; includes/geo.hpp  :0858
   LBL "IFNOT_54"                                      ; includes/geo.hpp  :0859
  QL66 = QL66 - 2^QL85                                 ; includes/geo.hpp  :0860
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_53"                 ; includes/geo.hpp  :0861
  LBL "IFNOT_53"                                       ; includes/geo.hpp  :0861
   FN 10: IF QL85 NE QL67 GOTO LBL "IFNOT_55"          ; includes/geo.hpp  :0864
   QL68 = 0                                            ; includes/geo.hpp  :0866
   LBL 0                                               ; includes/geo.hpp  :0867
   LBL "IFNOT_55"                                      ; includes/geo.hpp  :0868
  LBL "ENDIF_53"                                       ; includes/geo.hpp  :0869
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_52"                    ; includes/geo.hpp  :0870
 LBL "FORNOT_52"                                       ; includes/geo.hpp  :0870
 QL68 = -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_56"                 ; 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_57"                ; includes/geo.hpp  :0921
  FN 18: SYSREAD QL86 = ID 20 NR 5                     ; includes/geo.hpp  :0926
   FN 9: IF QL86 EQU 0 GOTO LBL "IFNOT_58"             ; includes/geo.hpp  :0927
   FN 9: IF QL86 EQU 1 GOTO LBL "IFNOT_58"             ; includes/geo.hpp  :0927
   FN 14: ERROR= 1000                                  ; includes/geo.hpp  :0929
   LBL "IFNOT_58"                                      ; includes/geo.hpp  :0930
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_57"                 ; includes/geo.hpp  :0931
  LBL "IFNOT_57"                                       ; includes/geo.hpp  :0931
  CALL LBL "state_exec"
  Q0 = QL87                                            ; includes/geo.hpp  :0937
   FN 9: IF Q0 EQU 0 GOTO LBL "IFNOT_59"               ; includes/geo.hpp  :0937
   LBL 0                                               ; includes/geo.hpp  :0937
   LBL "IFNOT_59"                                      ; includes/geo.hpp  :0937
  FN 20: WAIT FOR SYNC                                 ; includes/geo.hpp  :0941
  QL86 = 100                                           ; includes/geo.hpp  :0942
  FN 17: SYSWRITE ID 13 NR3 =+9990                     ; includes/geo.hpp  :0943
  READ FROM PLC KEY "PLC_API_VERSION" TO QL86          ; includes/geo.hpp  :0944
  LBL 9990                                             ; includes/geo.hpp  :0945
   FN 10: IF QL86 NE 100 GOTO LBL "IFNOT_60"           ; includes/geo.hpp  :0946
   FN 18: SYSREAD QL86 = ID 2000 NR 10 IDX 4000        ; includes/geo.hpp  :0948
    FN 10: IF QL86 NE 1 GOTO LBL "IFNOT_61"            ; includes/geo.hpp  :0949
    FN 14: ERROR= 1000                                 ; includes/geo.hpp  :0951
    LBL "IFNOT_61"                                     ; includes/geo.hpp  :0952
   FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_60"                ; includes/geo.hpp  :0953
   LBL "IFNOT_60"                                      ; 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
   QL86=0                                              ; includes/geo.hpp  :0973
   FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_62"               ; includes/geo.hpp  :0973
    LBL "FOR_62"                                       ; includes/geo.hpp  :0973
    QL86 = QL86 + 1                                    ; includes/geo.hpp  :0973
    LBL "FORCMP_62"                                    ; 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 QL86 )
    Q0 = STRCOMP( SRC_ QS2 SEA_ QS10 )                 ; includes/geo.hpp  :0977
     FN 10: IF Q0 NE 0 GOTO LBL "IFNOT_63"             ; includes/geo.hpp  :0977
     QS2 = "ApiSpin[" || TOCHAR( DAT+QL86 DECIMALS 0 ) || "].NN_SpiMotionRequest"
     READ FROM PLC KEY QS2 TO QL86                     ; includes/geo.hpp  :0980
      FN 10: IF QL86 NE 0 GOTO LBL "IFNOT_64"          ; includes/geo.hpp  :0981
      FN 14: ERROR= 1000                               ; includes/geo.hpp  :0983
      LBL "IFNOT_64"                                   ; includes/geo.hpp  :0984
     FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_62"             ; includes/geo.hpp  :0985
     LBL "IFNOT_63"                                    ; includes/geo.hpp  :0986
    FN 9: IF 0 EQU 0 GOTO LBL "FOR_62"                 ; includes/geo.hpp  :0987
    LBL "FORNOT_62"                                    ; includes/geo.hpp  :0987
   LBL 9991                                            ; includes/geo.hpp  :0988
   LBL "ENDIF_60"                                      ; includes/geo.hpp  :0989
  LBL "ENDIF_57"                                       ; includes/geo.hpp  :0990
 LBL "IFNOT_56"                                        ; includes/geo.hpp  :0991
LBL 0                                                  ; includes/stdlib.hh:0133
LBL "swap_axes"                                        ; includes/stdlib.hh:0120
 FN 17: SYSWRITE ID 212 = QL69                         ; includes/geo.hpp  :0841
LBL 0                                                  ; includes/stdlib.hh:0120
LBL "check_depth_sign"                                 ; includes/stdlib.hh:0128
 FN 9: IF QL70 EQU 0 GOTO LBL "IFNOT_65"               ; includes/geo.hpp  :0880
 FN 12: IF QL70 LT 0 GOTO LBL "IFNOT_65"               ; 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
 QL88 = CFGREAD( KEY_ QS3 TAG_ QS4 ATR_ QS5 )          ; includes/geo.hpp  :0888
  FN 10: IF QL88 NE 1 GOTO LBL "IFNOT_66"              ; includes/geo.hpp  :0890
  FN 14: ERROR= 1077                                   ; includes/geo.hpp  :0891
  LBL "IFNOT_66"                                       ; includes/geo.hpp  :0891
 LBL "IFNOT_65"                                        ; 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_67"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 6 GOTO LBL "CASE1_67"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 1 GOTO LBL "CASE2_67"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 7 GOTO LBL "CASE3_67"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 2 GOTO LBL "CASE4_67"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 8 GOTO LBL "CASE5_67"                 ; includes/geo.hpp  :0802
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_67"              ; includes/geo.hpp  :0802
 LBL "CASE0_67"                                        ; includes/geo.hpp  :0804
 LBL "CASE1_67"                                        ; includes/geo.hpp  :0805
 FN 18: SYSREAD QL89 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0806
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_67"              ; includes/geo.hpp  :0807
 LBL "CASE2_67"                                        ; includes/geo.hpp  :0808
 LBL "CASE3_67"                                        ; includes/geo.hpp  :0809
 FN 18: SYSREAD QL89 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0810
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_67"              ; includes/geo.hpp  :0811
 LBL "CASE4_67"                                        ; includes/geo.hpp  :0812
 LBL "CASE5_67"                                        ; includes/geo.hpp  :0813
 FN 18: SYSREAD QL89 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0814
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_67"              ; includes/geo.hpp  :0815
 LBL "SWITCHEND_67"                                    ; includes/geo.hpp  :0816
 FN 11: IF QL72 GT 0 GOTO LBL "IFNOT_68"               ; includes/geo.hpp  :0817
 Q0 = QL73 + ABS( QL71 )                               ; includes/geo.hpp  :0819
  FN 11: IF QL89 GT Q0 GOTO LBL "IFNOT_69"             ; includes/geo.hpp  :0819
  Q1 = QL73 + ABS( QL71 )                              ; includes/geo.hpp  :0821
  Z+Q1 R0 FMAX                                         ; includes/geo.hpp  :0821
  LBL "IFNOT_69"                                       ; includes/geo.hpp  :0822
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_68"                  ; includes/geo.hpp  :0823
 LBL "IFNOT_68"                                        ; includes/geo.hpp  :0823
 Q0 = QL73 - ABS( QL71 )                               ; includes/geo.hpp  :0826
  FN 12: IF QL89 LT Q0 GOTO LBL "IFNOT_70"             ; includes/geo.hpp  :0826
  Q1 = QL73 - ABS( QL71 )                              ; includes/geo.hpp  :0828
  Z+Q1 R0 FMAX                                         ; includes/geo.hpp  :0828
  LBL "IFNOT_70"                                       ; includes/geo.hpp  :0829
 LBL "ENDIF_68"                                        ; includes/geo.hpp  :0830
LBL 0                                                  ; includes/stdlib.hh:0112
LBL "253_ap$Pocket$slot_ap_rough"                      ; includes/mill.hpp :0038
 QL96 = 1                                              ; includes/mill.hpp :1837
 QL90 = (QL77 - QL32 * 2 ) /2                          ; includes/mill.hpp :1841
 QL76 = ( QL76 / 2 ) - QL32 - QL90                     ; includes/mill.hpp :1842
 QL77 = ( QL77 / 2 ) - QL32                            ; includes/mill.hpp :1843
 QL94 = ( ABS( QL28 ) / ABS( QL79 ) )                  ; includes/mill.hpp :1847
 QL94 = INT( QL94 + 0.99 )                             ; includes/mill.hpp :0271
 FN 10: IF QL94 NE 0 GOTO LBL "IFNOT_71"               ; includes/mill.hpp :0272
 QL94 = 1                                              ; includes/mill.hpp :0272
 LBL "IFNOT_71"                                        ; includes/mill.hpp :0272
 LBL "e_253_ap$Pocket$int_infeeds1"                    ; includes/mill.hpp :0040
 QL93 = QL28 / QL94                                    ; includes/mill.hpp :1849
  FN 10: IF QL80 NE 0 GOTO LBL "FORR0_72"              ; includes/mill.hpp :1855
  FN 10: IF QL80 NE 1 GOTO LBL "IFNOT_74"              ; includes/mill.hpp :1856
  FN 9: IF QL30 EQU -1 GOTO LBL "IFNOT_74"             ; includes/mill.hpp :1856
  QL96 = -1                                            ; includes/mill.hpp :1858
  LBL "IFNOT_74"                                       ; includes/mill.hpp :1859
 Q0 = -QL76 *QL96                                      ; includes/mill.hpp :1860
 X+ Q0 R0 F QL23                                       ; includes/mill.hpp :1860
 Y+ 0                                                  ; includes/mill.hpp :1861
 QL95 = 1                                              ; includes/mill.hpp :1862
 QL91 = 1                                              ; includes/mill.hpp :1862
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_75"                 ; includes/mill.hpp :1862
  LBL "FOR_75"                                         ; includes/mill.hpp :1862
  QL95 = QL95 + 1                                      ; includes/mill.hpp :1862
  LBL "FORCMP_75"                                      ; includes/mill.hpp :1862
  FN 11: IF QL95 GT QL94 GOTO LBL "FORNOT_75"          ; includes/mill.hpp :1862
  QL92 = QL22 + QL95 * QL93                            ; includes/mill.hpp :1864
  Z+QL92 R0 F QL25                                     ; includes/mill.hpp :1865
   FN 10: IF QL78 NE 0 GOTO LBL "IFNOT_76"             ; includes/mill.hpp :1869
    FN 9: IF QL91 EQU +1 GOTO LBL "CASE0_77"           ; includes/mill.hpp :1871
    FN 9: IF QL91 EQU -1 GOTO LBL "CASE1_77"           ; includes/mill.hpp :1871
    FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_77"           ; includes/mill.hpp :1871
    LBL "CASE0_77"                                     ; includes/mill.hpp :1873
    Q0 = QL76 *QL96                                    ; includes/mill.hpp :1874
    X+ Q0 F QL23                                       ; includes/mill.hpp :1874
    FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_77"           ; includes/mill.hpp :1875
    LBL "CASE1_77"                                     ; includes/mill.hpp :1876
    Q0 = -QL76 *QL96                                   ; includes/mill.hpp :1877
    X+ Q0 F QL23                                       ; includes/mill.hpp :1877
    FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_77"           ; includes/mill.hpp :1878
    LBL "SWITCHEND_77"                                 ; includes/mill.hpp :1879
   QL91 = QL91 * -1                                    ; includes/mill.hpp :1880
   FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_76"                ; includes/mill.hpp :1881
   LBL "IFNOT_76"                                      ; includes/mill.hpp :1881
   Q0 = QL76 *QL96                                     ; includes/mill.hpp :1884
   X+ Q0 F QL23                                        ; includes/mill.hpp :1884
   Q0 = ( QL92 - QL35 )                                ; includes/mill.hpp :1885
   IZ-Q0 R0 F QL26                                     ; includes/mill.hpp :1885
   Q0 = -QL76 *QL96                                    ; includes/mill.hpp :1886
   X+ Q0 R0 F QL26                                     ; includes/mill.hpp :1886
   LBL "ENDIF_76"                                      ; includes/mill.hpp :1887
  FN 9: IF 0 EQU 0 GOTO LBL "FOR_75"                   ; includes/mill.hpp :1888
  LBL "FORNOT_75"                                      ; includes/mill.hpp :1888
 LBL "FORR0_72"                                        ; includes/mill.hpp :1889
  FN 10: IF QL80 NE 1 GOTO LBL "FORR1_72"              ; includes/mill.hpp :1855
  FN 10: IF QL80 NE 1 GOTO LBL "IFNOT_79"              ; includes/mill.hpp :1856
  FN 9: IF QL30 EQU -1 GOTO LBL "IFNOT_79"             ; includes/mill.hpp :1856
  QL96 = -1                                            ; includes/mill.hpp :1858
  LBL "IFNOT_79"                                       ; includes/mill.hpp :1859
 Q0 = -QL76 *QL96                                      ; includes/mill.hpp :1860
 Y+ Q0 R0 F QL23                                       ; includes/mill.hpp :1860
 X- 0                                                  ; includes/mill.hpp :1861
 QL95 = 1                                              ; includes/mill.hpp :1862
 QL91 = 1                                              ; includes/mill.hpp :1862
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_80"                 ; includes/mill.hpp :1862
  LBL "FOR_80"                                         ; includes/mill.hpp :1862
  QL95 = QL95 + 1                                      ; includes/mill.hpp :1862
  LBL "FORCMP_80"                                      ; includes/mill.hpp :1862
  FN 11: IF QL95 GT QL94 GOTO LBL "FORNOT_80"          ; includes/mill.hpp :1862
  QL92 = QL22 + QL95 * QL93                            ; includes/mill.hpp :1864
  Z+QL92 R0 F QL25                                     ; includes/mill.hpp :1865
   FN 10: IF QL78 NE 0 GOTO LBL "IFNOT_81"             ; includes/mill.hpp :1869
    FN 9: IF QL91 EQU +1 GOTO LBL "CASE0_82"           ; includes/mill.hpp :1871
    FN 9: IF QL91 EQU -1 GOTO LBL "CASE1_82"           ; includes/mill.hpp :1871
    FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_82"           ; includes/mill.hpp :1871
    LBL "CASE0_82"                                     ; includes/mill.hpp :1873
    Q0 = QL76 *QL96                                    ; includes/mill.hpp :1874
    Y+ Q0 F QL23                                       ; includes/mill.hpp :1874
    FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_82"           ; includes/mill.hpp :1875
    LBL "CASE1_82"                                     ; includes/mill.hpp :1876
    Q0 = -QL76 *QL96                                   ; includes/mill.hpp :1877
    Y+ Q0 F QL23                                       ; includes/mill.hpp :1877
    FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_82"           ; includes/mill.hpp :1878
    LBL "SWITCHEND_82"                                 ; includes/mill.hpp :1879
   QL91 = QL91 * -1                                    ; includes/mill.hpp :1880
   FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_81"                ; includes/mill.hpp :1881
   LBL "IFNOT_81"                                      ; includes/mill.hpp :1881
   Q0 = QL76 *QL96                                     ; includes/mill.hpp :1884
   Y+ Q0 F QL23                                        ; includes/mill.hpp :1884
   Q0 = ( QL92 - QL35 )                                ; includes/mill.hpp :1885
   IZ-Q0 R0 F QL26                                     ; includes/mill.hpp :1885
   Q0 = -QL76 *QL96                                    ; includes/mill.hpp :1886
   Y+ Q0 R0 F QL26                                     ; includes/mill.hpp :1886
   LBL "ENDIF_81"                                      ; includes/mill.hpp :1887
  FN 9: IF 0 EQU 0 GOTO LBL "FOR_80"                   ; includes/mill.hpp :1888
  LBL "FORNOT_80"                                      ; includes/mill.hpp :1888
 LBL "FORR1_72"                                        ; includes/mill.hpp :1889
LBL 0                                                  ; includes/mill.hpp :0038
LBL "253_ap$Pocket$slot_ap_fin"                        ; includes/mill.hpp :0039
 QL102 = 1                                             ; includes/mill.hpp :1905
 QL97 = (QL82 - QL32 * 2 ) /2                          ; includes/mill.hpp :1909
 QL81 = ( QL81 / 2 )                                   ; includes/mill.hpp :1910
 QL82 = ( QL82 / 2 )                                   ; includes/mill.hpp :1911
 Q0 = ( QL32 *2 )                                      ; includes/mill.hpp :1915
 FN 9: IF QL82 EQU Q0 GOTO LBL "IFNOT_83"              ; includes/mill.hpp :1915
 FN 12: IF QL82 LT Q0 GOTO LBL "IFNOT_83"              ; includes/mill.hpp :1915
 FN 14: ERROR= 1002                                    ; includes/mill.hpp :1917
 LBL "IFNOT_83"                                        ; includes/mill.hpp :1918
 QL100 = ( ABS( QL28 ) / ABS( QL83 ) )                 ; includes/mill.hpp :1922
 QL100 = INT( QL100 + 0.99 )                           ; includes/mill.hpp :0271
 FN 10: IF QL100 NE 0 GOTO LBL "IFNOT_84"              ; includes/mill.hpp :0272
 QL100 = 1                                             ; includes/mill.hpp :0272
 LBL "IFNOT_84"                                        ; includes/mill.hpp :0272
 LBL "e_253_ap$Pocket$int_infeeds2"                    ; includes/mill.hpp :0040
 QL99 = QL28 / QL100                                   ; includes/mill.hpp :1924
  FN 10: IF QL84 NE 0 GOTO LBL "FORR0_85"              ; includes/mill.hpp :1930
  FN 10: IF QL84 NE 1 GOTO LBL "IFNOT_87"              ; includes/mill.hpp :1931
  FN 9: IF QL30 EQU -1 GOTO LBL "IFNOT_87"             ; includes/mill.hpp :1931
  QL102 = -1                                           ; includes/mill.hpp :1933
  LBL "IFNOT_87"                                       ; includes/mill.hpp :1934
 Q0 = -(QL81 -QL32 -QL97) *QL102                       ; includes/mill.hpp :1935
 X+ Q0 R0 F QL23                                       ; includes/mill.hpp :1935
 Y+ 0                                                  ; includes/mill.hpp :1936
 QL101 = 1                                             ; includes/mill.hpp :1937
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_88"                 ; includes/mill.hpp :1937
  LBL "FOR_88"                                         ; includes/mill.hpp :1937
  QL101 = QL101 + 1                                    ; includes/mill.hpp :1937
  LBL "FORCMP_88"                                      ; includes/mill.hpp :1937
  FN 11: IF QL101 GT QL100 GOTO LBL "FORNOT_88"        ; includes/mill.hpp :1937
  QL98 = QL22 + QL101 * QL99                           ; includes/mill.hpp :1939
  Z+QL98 R0 F QL25                                     ; includes/mill.hpp :1940
  Q0 = -QL81 *QL102                                    ; includes/mill.hpp :1944
  X+ Q0 R- F QL23                                      ; includes/mill.hpp :1944
  Q0 = -QL82 *QL102                                    ; includes/mill.hpp :1945
  Y+ Q0                                                ; includes/mill.hpp :1945
  Q0 = QL81 *QL102                                     ; includes/mill.hpp :1946
  X+ Q0                                                ; includes/mill.hpp :1946
  Q0 = QL82 *QL102                                     ; includes/mill.hpp :1947
  Y+ Q0                                                ; includes/mill.hpp :1947
  Q0 = -QL81 *QL102                                    ; includes/mill.hpp :1948
  X+ Q0                                                ; includes/mill.hpp :1948
  Q0 = -( QL32 + ( QL82 - QL32 ) /2 ) *QL102           ; includes/mill.hpp :1949
  Y+ Q0                                                ; includes/mill.hpp :1949
  Q0 = -(QL81 -QL32 -QL97) *QL102                      ; includes/mill.hpp :1950
  X+ Q0 R0                                             ; includes/mill.hpp :1950
  Y+ 0                                                 ; includes/mill.hpp :1951
  FN 9: IF 0 EQU 0 GOTO LBL "FOR_88"                   ; includes/mill.hpp :1952
  LBL "FORNOT_88"                                      ; includes/mill.hpp :1952
 LBL "FORR0_85"                                        ; includes/mill.hpp :1953
  FN 10: IF QL84 NE 1 GOTO LBL "FORR1_85"              ; includes/mill.hpp :1930
  FN 10: IF QL84 NE 1 GOTO LBL "IFNOT_90"              ; includes/mill.hpp :1931
  FN 9: IF QL30 EQU -1 GOTO LBL "IFNOT_90"             ; includes/mill.hpp :1931
  QL102 = -1                                           ; includes/mill.hpp :1933
  LBL "IFNOT_90"                                       ; includes/mill.hpp :1934
 Q0 = -(QL81 -QL32 -QL97) *QL102                       ; includes/mill.hpp :1935
 Y+ Q0 R0 F QL23                                       ; includes/mill.hpp :1935
 X- 0                                                  ; includes/mill.hpp :1936
 QL101 = 1                                             ; includes/mill.hpp :1937
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_91"                 ; includes/mill.hpp :1937
  LBL "FOR_91"                                         ; includes/mill.hpp :1937
  QL101 = QL101 + 1                                    ; includes/mill.hpp :1937
  LBL "FORCMP_91"                                      ; includes/mill.hpp :1937
  FN 11: IF QL101 GT QL100 GOTO LBL "FORNOT_91"        ; includes/mill.hpp :1937
  QL98 = QL22 + QL101 * QL99                           ; includes/mill.hpp :1939
  Z+QL98 R0 F QL25                                     ; includes/mill.hpp :1940
  Q0 = -QL81 *QL102                                    ; includes/mill.hpp :1944
  Y+ Q0 R- F QL23                                      ; includes/mill.hpp :1944
  Q0 = -QL82 *QL102                                    ; includes/mill.hpp :1945
  X- Q0                                                ; includes/mill.hpp :1945
  Q0 = QL81 *QL102                                     ; includes/mill.hpp :1946
  Y+ Q0                                                ; includes/mill.hpp :1946
  Q0 = QL82 *QL102                                     ; includes/mill.hpp :1947
  X- Q0                                                ; includes/mill.hpp :1947
  Q0 = -QL81 *QL102                                    ; includes/mill.hpp :1948
  Y+ Q0                                                ; includes/mill.hpp :1948
  Q0 = -( QL32 + ( QL82 - QL32 ) /2 ) *QL102           ; includes/mill.hpp :1949
  X- Q0                                                ; includes/mill.hpp :1949
  Q0 = -(QL81 -QL32 -QL97) *QL102                      ; includes/mill.hpp :1950
  Y+ Q0 R0                                             ; includes/mill.hpp :1950
  X- 0                                                 ; includes/mill.hpp :1951
  FN 9: IF 0 EQU 0 GOTO LBL "FOR_91"                   ; includes/mill.hpp :1952
  LBL "FORNOT_91"                                      ; includes/mill.hpp :1952
 LBL "FORR1_85"                                        ; includes/mill.hpp :1953
LBL 0                                                  ; includes/mill.hpp :0039
LBL "state_exec"                                       ; includes/stdlib.hh:0076
 FN 18: SYSREAD QL87 = ID 992 NR 11                    ; includes/geo.hpp  :0583
 FN 10: IF QL87 NE 1 GOTO LBL "IFNOT_92"               ; includes/geo.hpp  :0584
 QL87 = 3                                              ; includes/geo.hpp  :0586
 LBL 0                                                 ; includes/geo.hpp  :0587
 LBL "IFNOT_92"                                        ; includes/geo.hpp  :0588
 FN 18: SYSREAD QL87 = ID 992 NR 16                    ; includes/geo.hpp  :0590
 FN 10: IF QL87 NE 0 GOTO LBL "IFNOT_93"               ; includes/geo.hpp  :0591
 QL87 = 1                                              ; includes/geo.hpp  :0593
 LBL 0                                                 ; includes/geo.hpp  :0594
 LBL "IFNOT_93"                                        ; includes/geo.hpp  :0595
 FN 18: SYSREAD QL87 = ID 992 NR 10                    ; includes/geo.hpp  :0597
 FN 10: IF QL87 NE 1 GOTO LBL "IFNOT_94"               ; includes/geo.hpp  :0598
 QL87 = 2                                              ; includes/geo.hpp  :0600
 LBL 0                                                 ; includes/geo.hpp  :0601
 LBL "IFNOT_94"                                        ; includes/geo.hpp  :0602
 QL87 = 0                                              ; includes/geo.hpp  :0603
 LBL 0                                                 ; includes/geo.hpp  :0604
LBL 0                                                  ; includes/stdlib.hh:0076
LBL "EXIT"                                             ;                   :-001
END PGM MM
