BEGIN PGM 257.h MM ; h++_2_12 2013_11_14
 QL8 = SGN( Q201 )                                     ; src/257.hpp       :0025
 QL6 = Q203 + Q201                                     ; src/257.hpp       :0026
 CALL LBL "257$CirStud.MILL"
 QL34 = Q351                                           ; src/257.hpp       :0031
 QL35 = Q203                                           ; src/257.hpp       :0031
 QL36 = Q200                                           ; src/257.hpp       :0031
 QL37 = Q204                                           ; src/257.hpp       :0031
 QL38 = Q370                                           ; src/257.hpp       :0031
 QL39 = Q201                                           ; src/257.hpp       :0031
 CALL LBL "257$CirStud.init"
 QL40 = Q207                                           ; src/257.hpp       :0032
 QL41 = Q207                                           ; src/257.hpp       :0032
 QL42 = Q206                                           ; src/257.hpp       :0032
 QL43 = Q201                                           ; src/257.hpp       :0032
 CALL LBL "257$CirStud.set_feed"
 Q0 = ABS (Q223 + (2 * ABS( Q368 )) )                  ; src/257.hpp       :0036
 FN 9: IF Q0  EQU Q222  GOTO LBL "IFNOT_1"             ; src/257.hpp       :0036
 FN 12: IF Q0  LT Q222  GOTO LBL "IFNOT_1"             ; src/257.hpp       :0036
 FN 14: ERROR= 1098                                    ; src/257.hpp       :0038
 LBL "IFNOT_1"                                         ; src/257.hpp       :0039
 CALL LBL "257$CirStud.get_ToolLCut"
 QL2 = QL44                                            ; src/257.hpp       :0040
 QL3 = (Q222/2) + QL32                                 ; src/257.hpp       :0044
 FN 9: IF QL29  EQU QL30  GOTO LBL "IFNOT_2"           ; src/257.hpp       :0045
 FN 12: IF QL29  LT QL30  GOTO LBL "IFNOT_2"           ; src/257.hpp       :0045
 QL3 = QL3 + QL29                                      ; src/257.hpp       :0047
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_2"                   ; src/257.hpp       :0048
 LBL "IFNOT_2"                                         ; src/257.hpp       :0048
 QL3 = QL3 + QL30                                      ; src/257.hpp       :0051
 LBL "ENDIF_2"                                         ; src/257.hpp       :0052
 FN 9: IF Q376  EQU 0  GOTO LBL "IFNOT_3"              ; src/257.hpp       :0053
 FN 11: IF Q376  GT 0  GOTO LBL "IFNOT_3"              ; src/257.hpp       :0053
 QL4 = 0                                               ; src/257.hpp       :0055
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_3"                   ; src/257.hpp       :0056
 LBL "IFNOT_3"                                         ; src/257.hpp       :0056
 QL4 = Q376                                            ; src/257.hpp       :0059
 LBL "ENDIF_3"                                         ; src/257.hpp       :0060
 CALL LBL "read_wcs"
 QL0 = QL45                                            ; src/257.hpp       :0061
 QL1 = QL46                                            ; src/257.hpp       :0061
 QL48 = QL0+QL3*COS( QL4 )                             ; src/257.hpp       :0062
 QL49 = QL1+QL3*SIN( QL4 )                             ; src/257.hpp       :0062
 QL50 = Q203                                           ; src/257.hpp       :0062
 QL51 = QL32                                           ; src/257.hpp       :0062
 QL52 = Q204                                           ; src/257.hpp       :0062
 QL53 = Q201                                           ; src/257.hpp       :0062
 CALL LBL "prepos"
 FN 9: IF Q202  EQU 0  GOTO LBL "IFNOT_4"              ; src/257.hpp       :0066
 QL7 = ABS( Q202 )                                     ; src/257.hpp       :0068
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_4"                   ; src/257.hpp       :0069
 LBL "IFNOT_4"                                         ; src/257.hpp       :0069
 FN 14: ERROR= 1090                                    ; src/257.hpp       :0072
 LBL "ENDIF_4"                                         ; src/257.hpp       :0073
 FN 9: IF QL7  EQU QL2 GOTO LBL "IFNOT_5"              ; src/257.hpp       :0074
 FN 12: IF QL7  LT QL2 GOTO LBL "IFNOT_5"              ; src/257.hpp       :0074
 FN 9: IF QL2  EQU 0 GOTO LBL "IFNOT_5"                ; src/257.hpp       :0074
 FN 12: IF QL2  LT 0 GOTO LBL "IFNOT_5"                ; src/257.hpp       :0074
 QL7 = QL2                                             ; src/257.hpp       :0076
 LBL "IFNOT_5"                                         ; src/257.hpp       :0077
 QL7 = QL7 * QL8                                       ; src/257.hpp       :0078
 QL5=Q203+QL7                                          ; src/257.hpp       :0082
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_6"                  ; src/257.hpp       :0082
 LBL "FOR_6"                                           ; src/257.hpp       :0082
 QL5=QL5+QL7                                           ; src/257.hpp       :0082
 LBL "FORCMP_6"                                        ; src/257.hpp       :0082
  FN 10: IF QL8  NE -1 GOTO LBL "CTRLCMD0_7"           ; src/257.hpp       :0084
  FN 11: IF QL5  GT QL6 GOTO LBL "CTRLCMD0_7"          ; src/257.hpp       :0084
  FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_6"                 ; src/257.hpp       :0084
  LBL "CTRLCMD0_7"                                     ; src/257.hpp       :0084
  FN 10: IF QL8  NE +1 GOTO LBL "CTRLCMD1_8"           ; src/257.hpp       :0085
  FN 12: IF QL5  LT QL6 GOTO LBL "CTRLCMD1_8"          ; src/257.hpp       :0085
  FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_6"                 ; src/257.hpp       :0085
  LBL "CTRLCMD1_8"                                     ; src/257.hpp       :0085
 CC X+QL0 Y+QL1                                        ; src/257.hpp       :0086
 LP PR+QL3 PA+QL4 R0 FMAX                              ; src/257.hpp       :0087
 Q0 = QL5-(QL32*QL8 + QL7)                             ; src/257.hpp       :0088
 L  Z+Q0 R0 FMAX                                       ; src/257.hpp       :0088
 QL54 = 1                                              ; src/257.hpp       :0089
 QL55 = QL0                                            ; src/257.hpp       :0089
 QL56 = QL1                                            ; src/257.hpp       :0089
 QL57 = QL5                                            ; src/257.hpp       :0089
 QL58 = Q223/2+Q368                                    ; src/257.hpp       :0089
 QL59 = 0                                              ; src/257.hpp       :0089
 QL60 = Q222/2                                         ; src/257.hpp       :0089
 QL61 = QL4                                            ; src/257.hpp       :0089
 CALL LBL "257$CirStud.cir_stud"
 QL4 = QL62                                            ; src/257.hpp       :0089
  FN 9: IF Q376  EQU 0  GOTO LBL "IFNOT_9"             ; src/257.hpp       :0090
  FN 11: IF Q376  GT 0  GOTO LBL "IFNOT_9"             ; src/257.hpp       :0090
  Q0 = QL5-QL32*QL8                                    ; src/257.hpp       :0092
  L  Z+Q0 R0 FMAX                                      ; src/257.hpp       :0092
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_9"                  ; src/257.hpp       :0093
  LBL "IFNOT_9"                                        ; src/257.hpp       :0093
  L  Z+QL33 R0 FMAX                                    ; src/257.hpp       :0096
  QL4 = Q376                                           ; src/257.hpp       :0097
  LBL "ENDIF_9"                                        ; src/257.hpp       :0098
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_6"                     ; src/257.hpp       :0099
 LBL "FORNOT_6"                                        ; src/257.hpp       :0099
 CC X+QL0 Y+QL1                                        ; src/257.hpp       :0103
 LP PR+QL3 PA+QL4 R0 FMAX                              ; src/257.hpp       :0104
 Q0 = QL5-(QL32*QL8 + QL7)                             ; src/257.hpp       :0105
 L  Z+Q0 R0 FMAX                                       ; src/257.hpp       :0105
 QL54 = 1                                              ; src/257.hpp       :0106
 QL55 = QL0                                            ; src/257.hpp       :0106
 QL56 = QL1                                            ; src/257.hpp       :0106
 QL57 = QL6                                            ; src/257.hpp       :0106
 QL58 = Q223/2+Q368                                    ; src/257.hpp       :0106
 QL59 = 0                                              ; src/257.hpp       :0106
 QL60 = Q222/2                                         ; src/257.hpp       :0106
 QL61 = QL4                                            ; src/257.hpp       :0106
 CALL LBL "257$CirStud.cir_stud"
 QL4 = QL62                                            ; src/257.hpp       :0106
 L  Z+QL33 R0 FMAX                                     ; src/257.hpp       :0110
LBL "e_2570"                                           ; src/257.hpp       :0008
FN 9: IF 0 EQU 0 GOTO LBL "EXIT"                       ;                   :-001
LBL "257$CirStud.MILL"                                 ; includes/mill.hpp :0058
 FN 18: SYSREAD QL10 = ID 20 NR 3                      ; includes/mill.hpp :0085
 FN 18: SYSREAD QL16 = ID 210 NR 3                     ; includes/mill.hpp :0090
 FN 9: IF QL10 EQU 0 GOTO LBL "CASE0_10"               ; includes/mill.hpp :0091
 FN 9: IF QL10 EQU 6 GOTO LBL "CASE1_10"               ; includes/mill.hpp :0091
 FN 9: IF QL10 EQU 1 GOTO LBL "CASE2_10"               ; includes/mill.hpp :0091
 FN 9: IF QL10 EQU 7 GOTO LBL "CASE3_10"               ; includes/mill.hpp :0091
 FN 9: IF QL10 EQU 2 GOTO LBL "CASE4_10"               ; includes/mill.hpp :0091
 FN 9: IF QL10 EQU 8 GOTO LBL "CASE5_10"               ; includes/mill.hpp :0091
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_10"              ; includes/mill.hpp :0091
 LBL "CASE0_10"                                        ; includes/mill.hpp :0093
 LBL "CASE1_10"                                        ; includes/mill.hpp :0094
 FN 18: SYSREAD QL13 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0095
 FN 18: SYSREAD QL14 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0096
 FN 18: SYSREAD QL15 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0097
 QL63 = QL16                                           ; includes/mill.hpp :0098
 QL64 = 1                                              ; includes/mill.hpp :0098
 CALL LBL "check_bit"
 QL17 = QL65                                           ; includes/mill.hpp :0098
 QL63 = QL16                                           ; includes/mill.hpp :0099
 QL64 = 2                                              ; includes/mill.hpp :0099
 CALL LBL "check_bit"
 QL18 = QL65                                           ; includes/mill.hpp :0099
 QL63 = QL16                                           ; includes/mill.hpp :0100
 QL64 = 0                                              ; includes/mill.hpp :0100
 CALL LBL "check_bit"
 QL19 = QL65                                           ; includes/mill.hpp :0100
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_10"              ; includes/mill.hpp :0101
 LBL "CASE2_10"                                        ; includes/mill.hpp :0102
 LBL "CASE3_10"                                        ; includes/mill.hpp :0103
 FN 18: SYSREAD QL13 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0104
 FN 18: SYSREAD QL14 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0105
 FN 18: SYSREAD QL15 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0106
 QL63 = QL16                                           ; includes/mill.hpp :0107
 QL64 = 2                                              ; includes/mill.hpp :0107
 CALL LBL "check_bit"
 QL17 = QL65                                           ; includes/mill.hpp :0107
 QL63 = QL16                                           ; includes/mill.hpp :0108
 QL64 = 0                                              ; includes/mill.hpp :0108
 CALL LBL "check_bit"
 QL18 = QL65                                           ; includes/mill.hpp :0108
 QL63 = QL16                                           ; includes/mill.hpp :0109
 QL64 = 1                                              ; includes/mill.hpp :0109
 CALL LBL "check_bit"
 QL19 = QL65                                           ; includes/mill.hpp :0109
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_10"              ; includes/mill.hpp :0110
 LBL "CASE4_10"                                        ; includes/mill.hpp :0111
 LBL "CASE5_10"                                        ; includes/mill.hpp :0112
 FN 18: SYSREAD QL13 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0113
 FN 18: SYSREAD QL14 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0114
 FN 18: SYSREAD QL15 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0115
 QL63 = QL16                                           ; includes/mill.hpp :0116
 QL64 = 0                                              ; includes/mill.hpp :0116
 CALL LBL "check_bit"
 QL17 = QL65                                           ; includes/mill.hpp :0116
 QL63 = QL16                                           ; includes/mill.hpp :0117
 QL64 = 1                                              ; includes/mill.hpp :0117
 CALL LBL "check_bit"
 QL18 = QL65                                           ; includes/mill.hpp :0117
 QL63 = QL16                                           ; includes/mill.hpp :0118
 QL64 = 2                                              ; includes/mill.hpp :0118
 CALL LBL "check_bit"
 QL19 = QL65                                           ; includes/mill.hpp :0118
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_10"              ; includes/mill.hpp :0119
 LBL "SWITCHEND_10"                                    ; includes/mill.hpp :0120
 QL28 = 0                                              ; includes/mill.hpp :0124
 QL20 = 0.001                                          ; includes/mill.hpp :0131
 QL9 = 1                                               ; includes/mill.hpp :0132
 FN 18: SYSREAD Q3 = ID 214 NR 8                       ; includes/mill.hpp :0133
 FN 18: SYSREAD Q0 = ID 1000 NR 7260                   ; includes/mill.hpp :0150
 FN 9: IF Q0  EQU 0  GOTO LBL "IFNOT_11"               ; includes/mill.hpp :0150
 FN 12: IF Q0  LT 0  GOTO LBL "IFNOT_11"               ; includes/mill.hpp :0150
 FN 18: SYSREAD QL12 = ID 50 NR 13                     ; includes/mill.hpp :0152
 FN 18: SYSREAD QL11 = ID 50 NR 14                     ; includes/mill.hpp :0153
 FN 18: SYSREAD QL29 = ID 50 NR 2                      ; includes/mill.hpp :0154
 FN 18: SYSREAD Q0 = ID 50 NR 5                        ; includes/mill.hpp :0155
 QL29 = QL29 + Q0                                      ; includes/mill.hpp :0155
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_11"                  ; includes/mill.hpp :0156
 LBL "IFNOT_11"                                        ; includes/mill.hpp :0156
 QL12 = 0                                              ; includes/mill.hpp :0159
 QL11 = 0                                              ; includes/mill.hpp :0160
 FN 18: SYSREAD QL29 = ID 200 NR 1                     ; includes/mill.hpp :0161
 LBL "ENDIF_11"                                        ; includes/mill.hpp :0162
 FN 18: SYSREAD QL30 = ID 200 NR 1                     ; includes/mill.hpp :0163
 FN 11: IF QL29  GT 0  GOTO LBL "IFNOT_12"             ; includes/mill.hpp :0170
 FN 14: ERROR= 1002                                    ; includes/mill.hpp :0172
 LBL "IFNOT_12"                                        ; includes/mill.hpp :0173
 FN 9: IF QL29  EQU QL30  GOTO LBL "IFNOT_13"          ; includes/mill.hpp :0174
 FN 12: IF QL29  LT QL30  GOTO LBL "IFNOT_13"          ; includes/mill.hpp :0174
 QL31 = QL29                                           ; includes/mill.hpp :0176
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_13"                  ; includes/mill.hpp :0177
 LBL "IFNOT_13"                                        ; includes/mill.hpp :0177
 QL31 = QL30                                           ; includes/mill.hpp :0180
 LBL "ENDIF_13"                                        ; includes/mill.hpp :0181
 QL29 = QL29 / QL13                                    ; includes/mill.hpp :0185
 QL30 = QL30 / QL13                                    ; includes/mill.hpp :0186
 QL12 = QL12 / QL15                                    ; includes/mill.hpp :0187
 CALL LBL "check_spindle_status"
 QL66 = 3                                              ; includes/mill.hpp :0195
 CALL LBL "swap_axes"
LBL 0                                                  ; includes/mill.hpp :0058
LBL "257$CirStud.init"                                 ; includes/mill.hpp :0059
 FN 9: IF Q110 EQU 1 GOTO LBL "CASE0_14"               ; includes/mill.hpp :0205
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_14"              ; includes/mill.hpp :0205
 LBL "CASE0_14"                                        ; includes/mill.hpp :0207
 QL28 = +QL34                                          ; includes/mill.hpp :0208
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_14"              ; includes/mill.hpp :0209
 LBL "SWITCHDEF_14"                                    ; includes/mill.hpp :0210
 QL28 = -QL34                                          ; includes/mill.hpp :0211
 LBL "SWITCHEND_14"                                    ; includes/mill.hpp :0212
 FN 10: IF QL17  NE 1  GOTO LBL "IFNOT_15"             ; includes/mill.hpp :0213
 QL28 = -QL28                                          ; includes/mill.hpp :0215
 LBL "IFNOT_15"                                        ; includes/mill.hpp :0216
 FN 10: IF QL18  NE 1  GOTO LBL "IFNOT_16"             ; includes/mill.hpp :0217
 QL28 = -QL28                                          ; includes/mill.hpp :0219
 LBL "IFNOT_16"                                        ; includes/mill.hpp :0220
 QL26 = QL29 * QL38                                    ; includes/mill.hpp :0224
 QL67 = QL39                                           ; includes/mill.hpp :0228
 CALL LBL "check_depth_sign"
 FN 9: IF QL39  EQU 0  GOTO LBL "EXIT"                 ; includes/mill.hpp :0229
 QL27 = QL39                                           ; includes/mill.hpp :0230
 QL21 = QL35                                           ; includes/mill.hpp :0235
 QL32 = ABS( QL36 )                                    ; includes/mill.hpp :0236
 FN 9: IF QL32  EQU 0.001  GOTO LBL "IFNOT_18"         ; includes/mill.hpp :0237
 FN 11: IF QL32  GT 0.001  GOTO LBL "IFNOT_18"         ; includes/mill.hpp :0237
 QL32 = 0.001                                          ; includes/mill.hpp :0237
 LBL "IFNOT_18"                                        ; includes/mill.hpp :0237
 FN 9: IF QL37  EQU QL32  GOTO LBL "IFNOT_19"          ; includes/mill.hpp :0238
 FN 11: IF QL37  GT QL32  GOTO LBL "IFNOT_19"          ; includes/mill.hpp :0238
 QL33 = QL32                                           ; includes/mill.hpp :0240
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_19"                  ; includes/mill.hpp :0241
 LBL "IFNOT_19"                                        ; includes/mill.hpp :0241
 QL33 = QL37                                           ; includes/mill.hpp :0244
 LBL "ENDIF_19"                                        ; includes/mill.hpp :0245
 QL33 = QL21 - ( QL33 * SGN( QL27 ) )                  ; includes/mill.hpp :0246
LBL 0                                                  ; includes/mill.hpp :0059
LBL "257$CirStud.set_feed"                             ; includes/mill.hpp :0060
 QL22 = QL40                                           ; includes/mill.hpp :0253
 QL23 = QL41                                           ; includes/mill.hpp :0254
 QL24 = QL42                                           ; includes/mill.hpp :0255
 FN 11: IF QL43  GT 0  GOTO LBL "IFNOT_20"             ; includes/mill.hpp :0256
  FN 9: IF QL43  EQU -57239891  GOTO LBL "IFNOT_21"    ; includes/mill.hpp :0258
  QL25 = QL22                                          ; includes/mill.hpp :0260
  LBL "IFNOT_21"                                       ; includes/mill.hpp :0261
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_20"                  ; includes/mill.hpp :0268
 LBL "IFNOT_20"                                        ; includes/mill.hpp :0268
 QL25 = QL43                                           ; includes/mill.hpp :0271
 LBL "ENDIF_20"                                        ; includes/mill.hpp :0272
LBL 0                                                  ; includes/mill.hpp :0060
LBL "257$CirStud.get_ToolLCut"                         ; includes/mill.hpp :0063
 QL44 = QL12                                           ; includes/mill.hpp :0309
LBL 0                                                  ; includes/mill.hpp :0063
LBL "read_wcs"                                         ; includes/stdlib.hh:0097
 FN 18: SYSREAD Q0 = ID 20 NR 3 IDX 0                  ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 0 GOTO LBL "CASE0_22"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 6 GOTO LBL "CASE1_22"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 1 GOTO LBL "CASE2_22"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 7 GOTO LBL "CASE3_22"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 2 GOTO LBL "CASE4_22"                 ; includes/geo.hpp  :0627
 FN 9: IF Q0 EQU 8 GOTO LBL "CASE5_22"                 ; includes/geo.hpp  :0627
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_22"              ; includes/geo.hpp  :0627
 LBL "CASE0_22"                                        ; includes/geo.hpp  :0629
 LBL "CASE1_22"                                        ; includes/geo.hpp  :0630
 FN 18: SYSREAD QL45 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0631
 FN 18: SYSREAD QL46 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0632
 FN 18: SYSREAD QL47 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0633
 LBL 0                                                 ; includes/geo.hpp  :0634
 LBL "CASE2_22"                                        ; includes/geo.hpp  :0635
 LBL "CASE3_22"                                        ; includes/geo.hpp  :0636
 FN 18: SYSREAD QL45 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0637
 FN 18: SYSREAD QL46 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0638
 FN 18: SYSREAD QL47 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0639
 LBL 0                                                 ; includes/geo.hpp  :0640
 LBL "CASE4_22"                                        ; includes/geo.hpp  :0641
 LBL "CASE5_22"                                        ; includes/geo.hpp  :0642
 FN 18: SYSREAD QL45 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0643
 FN 18: SYSREAD QL46 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0644
 FN 18: SYSREAD QL47 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0645
 LBL 0                                                 ; includes/geo.hpp  :0646
 LBL "SWITCHEND_22"                                    ; includes/geo.hpp  :0647
LBL 0                                                  ; includes/stdlib.hh:0097
LBL "prepos"                                           ; includes/stdlib.hh:0124
 QL68 = QL52                                           ; includes/geo.hpp  :0780
 QL69 = QL53                                           ; includes/geo.hpp  :0780
 QL70 = QL50                                           ; includes/geo.hpp  :0780
 CALL LBL "retreat"
 L  X+QL48 Y+QL49 R0 FMAX                              ; includes/geo.hpp  :0782
 Q0 = QL50 + QL51                                      ; includes/geo.hpp  :0794
 Z+Q0 FMAX                                             ; includes/geo.hpp  :0794
LBL 0                                                  ; includes/stdlib.hh:0124
LBL "257$CirStud.cir_stud"                             ; includes/mill.hpp :0066
 QS16 = "MILL..cir_stud"                               ; includes/mill.hpp :0674
 CALL LBL "fdbg"
 TRANS DATUM AXIS IX+QL55 IY+QL56                      ; includes/mill.hpp :0679
 FN 12: IF QL28  LT 0  GOTO LBL "IFNOT_23"             ; includes/mill.hpp :0680
 QL62 = -QL61                                          ; includes/mill.hpp :0682
  FN 10: IF QL18  NE 1  GOTO LBL "IFNOT_24"            ; includes/mill.hpp :0683
  QL79 = QL16 - 2                                      ; includes/mill.hpp :0685
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_24"                 ; includes/mill.hpp :0686
  LBL "IFNOT_24"                                       ; includes/mill.hpp :0686
  QL79 = QL16 + 2                                      ; includes/mill.hpp :0689
  LBL "ENDIF_24"                                       ; includes/mill.hpp :0690
 FN 17: SYSWRITE ID 210 NR 3 = QL79                    ; includes/mill.hpp :0691
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_23"                  ; includes/mill.hpp :0692
 LBL "IFNOT_23"                                        ; includes/mill.hpp :0692
 QL62 = QL61                                           ; includes/mill.hpp :0695
 LBL "ENDIF_23"                                        ; includes/mill.hpp :0696
 QL60 = QL60 + ( QL32/10 )                             ; includes/mill.hpp :0700
 CC X+0 Y+0                                            ; includes/mill.hpp :0704
 FN 9: IF QL54 EQU 0 GOTO LBL "CASE0_25"               ; includes/mill.hpp :0705
 FN 9: IF QL54 EQU 1 GOTO LBL "CASE1_25"               ; includes/mill.hpp :0705
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_25"              ; includes/mill.hpp :0705
 LBL "CASE0_25"                                        ; includes/mill.hpp :0707
 QL58 = QL58 + ( QL59 + QL30 )                         ; includes/mill.hpp :0711
 QL60 = QL60 + QL29                                    ; includes/mill.hpp :0712
 QL71 = QL60 + QL32                                    ; includes/mill.hpp :0716
 LP PR+QL71 PA+QL62 R0 FMAX                            ; includes/mill.hpp :0717
 L  Z+QL57 F QL24                                      ; includes/mill.hpp :0718
 QL72 = (QL60 - QL58) / QL26                           ; includes/mill.hpp :0722
 LP PR+QL60 PA+QL62 R0 F QL22                          ; includes/mill.hpp :0723
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_25"              ; includes/mill.hpp :0724
 LBL "CASE1_25"                                        ; includes/mill.hpp :0725
 QL71 = QL60 + QL30 + QL32                             ; includes/mill.hpp :0729
 LP PR+QL71 PA+QL62 R0 FMAX                            ; includes/mill.hpp :0730
 L  Z+QL57 F QL24                                      ; includes/mill.hpp :0731
 QL72 = (QL60 - QL58) / QL26                           ; includes/mill.hpp :0735
 LP PR+QL60 PA+QL62 RL F QL22                          ; includes/mill.hpp :0736
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_25"              ; includes/mill.hpp :0737
 LBL "SWITCHDEF_25"                                    ; includes/mill.hpp :0738
 FN 14: ERROR= 1011                                    ; includes/mill.hpp :0739
 LBL "SWITCHEND_25"                                    ; includes/mill.hpp :0740
 QL72 = QL72 * 2                                       ; includes/mill.hpp :0744
 QL73 = FRAC( QL72 ) * 180                             ; includes/mill.hpp :0745
 FN 9: IF QL73  EQU 0  GOTO LBL "IFNOT_26"             ; includes/mill.hpp :0749
 FN 12: IF QL73  LT 0  GOTO LBL "IFNOT_26"             ; includes/mill.hpp :0749
 QL72 = INT( QL72 )                                    ; includes/mill.hpp :0751
 QL77 = QL58 + QL72*(QL26 / 2)                         ; includes/mill.hpp :0752
 QL78 = ACOS( QL77 / QL60 )                            ; includes/mill.hpp :0758
 QL78 = INT( (QL78 + 5) / 5 ) * 5                      ; includes/mill.hpp :0759
  FN 9: IF QL73  EQU QL78  GOTO LBL "IFNOT_27"         ; includes/mill.hpp :0760
  FN 11: IF QL73  GT QL78  GOTO LBL "IFNOT_27"         ; includes/mill.hpp :0760
  QL73 = QL78                                          ; includes/mill.hpp :0762
  QS16 = " Limit AngleAppr=" || TOCHAR( DAT+QL73 DECIMALS4 )
  CALL LBL "fdbg"
  LBL "IFNOT_27"                                       ; includes/mill.hpp :0764
 QL62 = QL62 - QL73                                    ; includes/mill.hpp :0765
 QL74 = SQRT( SQ(QL60) + SQ(QL77) - 2*QL60*QL77*COS( QL73 ) )
 QL75 = ASIN( QL60 * SIN( QL73 ) / QL74 )              ; includes/mill.hpp :0767
 QL76 = 180 - 2 * QL75                                 ; includes/mill.hpp :0768
 QL77 = ( QL77 ) - ( QL74 * SIN( QL75 ) ) / ( SIN( QL76 ) )
 Q0 = QL77 * COS( QL62 )                               ; includes/mill.hpp :0770
 Q1 = QL77 * SIN( QL62 )                               ; includes/mill.hpp :0770
 CC  X+Q0 Y+Q1                                         ; includes/mill.hpp :0770
 CP  PA+QL62 DR-                                       ; includes/mill.hpp :0771
 LBL "IFNOT_26"                                        ; includes/mill.hpp :0772
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_28"                 ; includes/mill.hpp :0776
 LBL "FOR_28"                                          ; includes/mill.hpp :0776
 QL72 = QL72 + -1                                      ; includes/mill.hpp :0776
 LBL "FORCMP_28"                                       ; includes/mill.hpp :0776
 FN 9: IF QL72  EQU 0   GOTO LBL "FORNOT_28"           ; includes/mill.hpp :0776
 FN 12: IF QL72  LT 0   GOTO LBL "FORNOT_28"           ; includes/mill.hpp :0776
 QL62 = ( QL62 + 180 ) % 360                           ; includes/mill.hpp :0778
 Q0 = (QL26 / 4) * COS( QL62 )                         ; includes/mill.hpp :0779
 Q1 = (QL26 / 4) * SIN( QL62 )                         ; includes/mill.hpp :0779
 CC  X-Q0 Y-Q1                                         ; includes/mill.hpp :0779
 CP  PA+QL62 DR-                                       ; includes/mill.hpp :0780
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_28"                    ; includes/mill.hpp :0781
 LBL "FORNOT_28"                                       ; includes/mill.hpp :0781
 CC X+0 Y+0                                            ; includes/mill.hpp :0785
 CP IPA-360 DR-                                        ; includes/mill.hpp :0786
 Q0 = (1/2 * QL58)*COS( QL62 )                         ; includes/mill.hpp :0787
 Q1 = (1/2 * QL58)*SIN( QL62 )                         ; includes/mill.hpp :0787
 CC X-Q0 Y-Q1                                          ; includes/mill.hpp :0787
 Q0 = 15 * 2                                           ; includes/mill.hpp :0788
 CP IPA-Q0 DR-                                         ; includes/mill.hpp :0788
 QL62 = QL62 - 2*15                                    ; includes/mill.hpp :0789
 FN 10: IF QL54  NE 1  GOTO LBL "IFNOT_29"             ; includes/mill.hpp :0790
 LP IPR+QL30 R0                                        ; includes/mill.hpp :0792
 LBL "IFNOT_29"                                        ; includes/mill.hpp :0793
 FN 12: IF QL28  LT 0  GOTO LBL "IFNOT_30"             ; includes/mill.hpp :0797
 QL62 = -QL62                                          ; includes/mill.hpp :0799
 FN 17: SYSWRITE ID 210 NR 3 = QL16                    ; includes/mill.hpp :0800
 LBL "IFNOT_30"                                        ; includes/mill.hpp :0801
 TRANS DATUM AXIS IX-QL55 IY-QL56                      ; includes/mill.hpp :0802
LBL 0                                                  ; includes/mill.hpp :0066
LBL "check_bit"                                        ; includes/stdlib.hh:0140
 QL80=15                                               ; includes/geo.hpp  :0852
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_31"                 ; includes/geo.hpp  :0852
 LBL "FOR_31"                                          ; includes/geo.hpp  :0852
 QL80 = QL80 + -1                                      ; includes/geo.hpp  :0852
 LBL "FORCMP_31"                                       ; includes/geo.hpp  :0852
 FN 12: IF QL80 LT 0   GOTO LBL "FORNOT_31"            ; includes/geo.hpp  :0852
 QL65 = 2 ^ QL80                                       ; includes/geo.hpp  :0854
  FN 12: IF QL63  LT QL65  GOTO LBL "IFNOT_32"         ; includes/geo.hpp  :0855
   FN 10: IF QL80  NE QL64  GOTO LBL "IFNOT_33"        ; includes/geo.hpp  :0857
   QL65 = 1                                            ; includes/geo.hpp  :0859
   LBL 0                                               ; includes/geo.hpp  :0860
   LBL "IFNOT_33"                                      ; includes/geo.hpp  :0861
  QL63 = QL63 - 2^QL80                                 ; includes/geo.hpp  :0862
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_32"                 ; includes/geo.hpp  :0863
  LBL "IFNOT_32"                                       ; includes/geo.hpp  :0863
   FN 10: IF QL80  NE QL64  GOTO LBL "IFNOT_34"        ; includes/geo.hpp  :0866
   QL65 = 0                                            ; includes/geo.hpp  :0868
   LBL 0                                               ; includes/geo.hpp  :0869
   LBL "IFNOT_34"                                      ; includes/geo.hpp  :0870
  LBL "ENDIF_32"                                       ; includes/geo.hpp  :0871
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_31"                    ; includes/geo.hpp  :0872
 LBL "FORNOT_31"                                       ; includes/geo.hpp  :0872
 QL65 = -1                                             ; includes/geo.hpp  :0873
LBL 0                                                  ; includes/stdlib.hh:0140
LBL "check_spindle_status"                             ; includes/stdlib.hh:0149
 FN 18: SYSREAD QL81 = ID 20 NR 5                      ; includes/geo.hpp  :0904
 FN 9: IF QL81  EQU 0 GOTO LBL "IFNOT_35"              ; includes/geo.hpp  :0905
 FN 9: IF QL81  EQU 1 GOTO LBL "IFNOT_35"              ; includes/geo.hpp  :0905
 FN 18: SYSREAD Q0 = ID 1000 NR 7441                   ; includes/geo.hpp  :0907
 QL63 = Q0                                             ; includes/geo.hpp  :0907
 QL64 = 0                                              ; includes/geo.hpp  :0907
 CALL LBL "check_bit"
 QL81 = QL65                                           ; includes/geo.hpp  :0907
  FN 10: IF QL81  NE 0  GOTO LBL "IFNOT_36"            ; includes/geo.hpp  :0908
  FN 14: ERROR= 1000                                   ; includes/geo.hpp  :0910
  LBL "IFNOT_36"                                       ; includes/geo.hpp  :0911
 LBL "IFNOT_35"                                        ; includes/geo.hpp  :0912
LBL 0                                                  ; includes/stdlib.hh:0149
LBL "swap_axes"                                        ; includes/stdlib.hh:0136
 FN 17: SYSWRITE ID 212 = QL66                         ; includes/geo.hpp  :0843
LBL 0                                                  ; includes/stdlib.hh:0136
LBL "check_depth_sign"                                 ; includes/stdlib.hh:0144
 FN 9: IF QL67  EQU 0  GOTO LBL "IFNOT_37"             ; includes/geo.hpp  :0882
 FN 12: IF QL67  LT 0  GOTO LBL "IFNOT_37"             ; includes/geo.hpp  :0882
 FN 18: SYSREAD Q0 = ID 1000 NR 7441                   ; includes/geo.hpp  :0885
 QL63 = Q0                                             ; includes/geo.hpp  :0885
 QL64 = 2                                              ; includes/geo.hpp  :0885
 CALL LBL "check_bit"
 QL82 = QL65                                           ; includes/geo.hpp  :0885
  FN 10: IF QL82  NE 1  GOTO LBL "IFNOT_38"            ; includes/geo.hpp  :0892
  FN 14: ERROR= 1077                                   ; includes/geo.hpp  :0893
  LBL "IFNOT_38"                                       ; includes/geo.hpp  :0893
 LBL "IFNOT_37"                                        ; includes/geo.hpp  :0894
LBL 0                                                  ; includes/stdlib.hh:0144
LBL "retreat"                                          ; includes/stdlib.hh:0128
 FN 18: SYSREAD Q0 = ID20 NR3 IDX0                     ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 0 GOTO LBL "CASE0_39"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 6 GOTO LBL "CASE1_39"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 1 GOTO LBL "CASE2_39"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 7 GOTO LBL "CASE3_39"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 2 GOTO LBL "CASE4_39"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 8 GOTO LBL "CASE5_39"                 ; includes/geo.hpp  :0802
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_39"              ; includes/geo.hpp  :0802
 LBL "CASE0_39"                                        ; includes/geo.hpp  :0804
 LBL "CASE1_39"                                        ; includes/geo.hpp  :0805
 FN 18: SYSREAD QL83 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0806
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_39"              ; includes/geo.hpp  :0807
 LBL "CASE2_39"                                        ; includes/geo.hpp  :0808
 LBL "CASE3_39"                                        ; includes/geo.hpp  :0809
 FN 18: SYSREAD QL83 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0810
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_39"              ; includes/geo.hpp  :0811
 LBL "CASE4_39"                                        ; includes/geo.hpp  :0812
 LBL "CASE5_39"                                        ; includes/geo.hpp  :0813
 FN 18: SYSREAD QL83 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0814
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_39"              ; includes/geo.hpp  :0815
 LBL "SWITCHEND_39"                                    ; includes/geo.hpp  :0816
 FN 11: IF QL69  GT 0  GOTO LBL "IFNOT_40"             ; includes/geo.hpp  :0817
 QL68 = QL70 + QL68                                    ; includes/geo.hpp  :0819
  FN 11: IF QL83  GT QL68  GOTO LBL "IFNOT_41"         ; includes/geo.hpp  :0820
  Z+QL68 R0 FMAX                                       ; includes/geo.hpp  :0822
  LBL "IFNOT_41"                                       ; includes/geo.hpp  :0823
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_40"                  ; includes/geo.hpp  :0824
 LBL "IFNOT_40"                                        ; includes/geo.hpp  :0824
 QL68 = QL70 - QL68                                    ; includes/geo.hpp  :0827
  FN 12: IF QL83  LT QL68  GOTO LBL "IFNOT_42"         ; includes/geo.hpp  :0828
  Z+QL68 R0 FMAX                                       ; includes/geo.hpp  :0830
  LBL "IFNOT_42"                                       ; includes/geo.hpp  :0831
 LBL "ENDIF_40"                                        ; includes/geo.hpp  :0832
LBL 0                                                  ; includes/stdlib.hh:0128
LBL "fdbg"                                             ; includes/stdlib.hh:0216
 FN 10: IF Q999  NE +79513  GOTO LBL "IFNOT_43"        ; includes/stream.hpp:0053
 QS5 = QS16                                            ; includes/stream.hpp:0055
 FN 16: F-PRINT MillCoprintfile.a / %CycleDebug.A      ; includes/stream.hpp:0057
 LBL "IFNOT_43"                                        ; includes/stream.hpp:0061
LBL 0                                                  ; includes/stdlib.hh:0216
LBL "EXIT"                                             ;                   :-001
END PGM MM
