BEGIN PGM 256.h MM ; h++_2_12 2015_07_07
 FN 10: IF Q437  NE 0  GOTO LBL "IFNOT_1"              ; src/256.hpp       :0026
 CALL PGM 256_0.CYC
  FN 9: IF 0 EQU 0 GOTO LBL "EXIT"                     ; src/256.hpp       :0029
 LBL "IFNOT_1"                                         ; src/256.hpp       :0030
 QL6 = SGN( Q201 )                                     ; src/256.hpp       :0034
 QL4 = Q203 + Q201                                     ; src/256.hpp       :0035
 CALL LBL "256$RecStud.MILL"
 QL32 = Q351                                           ; src/256.hpp       :0040
 QL33 = Q203                                           ; src/256.hpp       :0040
 QL34 = Q200                                           ; src/256.hpp       :0040
 QL35 = Q204                                           ; src/256.hpp       :0040
 QL36 = Q370                                           ; src/256.hpp       :0040
 QL37 = Q201                                           ; src/256.hpp       :0040
 CALL LBL "256$RecStud.init"
 QL38 = Q207                                           ; src/256.hpp       :0041
 QL39 = Q207                                           ; src/256.hpp       :0041
 QL40 = Q206                                           ; src/256.hpp       :0041
 QL41 = -57239891                                      ; src/256.hpp       :0041
 CALL LBL "256$RecStud.set_feed"
 CALL LBL "256$RecStud.get_ToolLCut"
 QL2 = QL42                                            ; src/256.hpp       :0045
 CALL LBL "read_wcs"
 QL0 = QL43                                            ; src/256.hpp       :0050
 QL1 = QL44                                            ; src/256.hpp       :0050
 TRANS DATUM AXIS IX+QL0 IY+QL1                        ; src/256.hpp       :0051
 CYCL DEF 10.0 ROTATION
 CYCL DEF 10.1 IROT+Q224
 FN 9: IF Q367 EQU 0 GOTO LBL "CASE0_3"                ; src/256.hpp       :0054
 FN 9: IF Q367 EQU 1 GOTO LBL "CASE1_3"                ; src/256.hpp       :0054
 FN 9: IF Q367 EQU 2 GOTO LBL "CASE2_3"                ; src/256.hpp       :0054
 FN 9: IF Q367 EQU 3 GOTO LBL "CASE3_3"                ; src/256.hpp       :0054
 FN 9: IF Q367 EQU 4 GOTO LBL "CASE4_3"                ; src/256.hpp       :0054
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_3"               ; src/256.hpp       :0054
 LBL "CASE0_3"                                         ; src/256.hpp       :0056
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_3"               ; src/256.hpp       :0057
 LBL "CASE1_3"                                         ; src/256.hpp       :0058
 Q0 = Q218/2                                           ; src/256.hpp       :0059
 Q1 = Q219/2                                           ; src/256.hpp       :0059
 TRANS DATUM AXIS IX+Q0 IY+Q1                          ; src/256.hpp       :0059
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_3"               ; src/256.hpp       :0060
 LBL "CASE2_3"                                         ; src/256.hpp       :0061
 Q0 = Q218/2                                           ; src/256.hpp       :0062
 Q1 = Q219/2                                           ; src/256.hpp       :0062
 TRANS DATUM AXIS IX-Q0 IY+Q1                          ; src/256.hpp       :0062
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_3"               ; src/256.hpp       :0063
 LBL "CASE3_3"                                         ; src/256.hpp       :0064
 Q0 = Q218/2                                           ; src/256.hpp       :0065
 Q1 = Q219/2                                           ; src/256.hpp       :0065
 TRANS DATUM AXIS IX-Q0 IY-Q1                          ; src/256.hpp       :0065
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_3"               ; src/256.hpp       :0066
 LBL "CASE4_3"                                         ; src/256.hpp       :0067
 Q0 = Q218/2                                           ; src/256.hpp       :0068
 Q1 = Q219/2                                           ; src/256.hpp       :0068
 TRANS DATUM AXIS IX+Q0 IY-Q1                          ; src/256.hpp       :0068
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_3"               ; src/256.hpp       :0069
 LBL "SWITCHDEF_3"                                     ; src/256.hpp       :0070
 FN 14: ERROR= 1011                                    ; src/256.hpp       :0071
 LBL "SWITCHEND_3"                                     ; src/256.hpp       :0072
 FN 9: IF Q202  EQU 0  GOTO LBL "IFNOT_4"              ; src/256.hpp       :0076
 QL5 = ABS( Q202 )                                     ; src/256.hpp       :0078
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_4"                   ; src/256.hpp       :0079
 LBL "IFNOT_4"                                         ; src/256.hpp       :0079
 FN 14: ERROR= 1090                                    ; src/256.hpp       :0082
 LBL "ENDIF_4"                                         ; src/256.hpp       :0083
 FN 9: IF QL5  EQU QL2 GOTO LBL "IFNOT_5"              ; src/256.hpp       :0084
 FN 12: IF QL5  LT QL2 GOTO LBL "IFNOT_5"              ; src/256.hpp       :0084
 FN 9: IF QL2  EQU 0 GOTO LBL "IFNOT_5"                ; src/256.hpp       :0084
 FN 12: IF QL2  LT 0 GOTO LBL "IFNOT_5"                ; src/256.hpp       :0084
 QL5 = QL2                                             ; src/256.hpp       :0086
 LBL "IFNOT_5"                                         ; src/256.hpp       :0087
 QL5 = QL5 * QL6                                       ; src/256.hpp       :0088
 QL3=Q203+QL5                                          ; src/256.hpp       :0092
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_6"                  ; src/256.hpp       :0092
 LBL "FOR_6"                                           ; src/256.hpp       :0092
 QL3=QL3+QL5                                           ; src/256.hpp       :0092
 LBL "FORCMP_6"                                        ; src/256.hpp       :0092
  FN 10: IF QL6  NE -1 GOTO LBL "CTRLCMD0_7"           ; src/256.hpp       :0094
  FN 11: IF QL3  GT QL4 GOTO LBL "CTRLCMD0_7"          ; src/256.hpp       :0094
  FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_6"                 ; src/256.hpp       :0094
  LBL "CTRLCMD0_7"                                     ; src/256.hpp       :0094
  FN 10: IF QL6  NE +1 GOTO LBL "CTRLCMD1_8"           ; src/256.hpp       :0095
  FN 12: IF QL3  LT QL4 GOTO LBL "CTRLCMD1_8"          ; src/256.hpp       :0095
  FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_6"                 ; src/256.hpp       :0095
  LBL "CTRLCMD1_8"                                     ; src/256.hpp       :0095
 Q0 = Q218+2*Q368                                      ; src/256.hpp       :0096
 Q1 = Q219+2*Q368                                      ; src/256.hpp       :0096
 QL46 = 1                                              ; src/256.hpp       :0096
 QL47 = Q437                                           ; src/256.hpp       :0096
 QL48 = QL3                                            ; src/256.hpp       :0096
 QL49 = Q424                                           ; src/256.hpp       :0096
 QL50 = Q425                                           ; src/256.hpp       :0096
 QL51 = Q0                                             ; src/256.hpp       :0096
 QL52 = Q1                                             ; src/256.hpp       :0096
 QL53 = Q220                                           ; src/256.hpp       :0096
 CALL LBL "256$RecStud.rec_stud"
 Q0 = Q203-QL30*QL6                                    ; src/256.hpp       :0097
 Z+Q0 R0 FMAX                                          ; src/256.hpp       :0097
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_6"                     ; src/256.hpp       :0098
 LBL "FORNOT_6"                                        ; src/256.hpp       :0098
 Q0 = Q218+2*Q368                                      ; src/256.hpp       :0102
 Q1 = Q219+2*Q368                                      ; src/256.hpp       :0102
 QL46 = 1                                              ; src/256.hpp       :0102
 QL47 = Q437                                           ; src/256.hpp       :0102
 QL48 = QL4                                            ; src/256.hpp       :0102
 QL49 = Q424                                           ; src/256.hpp       :0102
 QL50 = Q425                                           ; src/256.hpp       :0102
 QL51 = Q0                                             ; src/256.hpp       :0102
 QL52 = Q1                                             ; src/256.hpp       :0102
 QL53 = Q220                                           ; src/256.hpp       :0102
 CALL LBL "256$RecStud.rec_stud"
 L  Z+QL31 R0 FMAX                                     ; src/256.hpp       :0103
 FN 9: IF Q367 EQU 0 GOTO LBL "CASE0_9"                ; src/256.hpp       :0108
 FN 9: IF Q367 EQU 1 GOTO LBL "CASE1_9"                ; src/256.hpp       :0108
 FN 9: IF Q367 EQU 2 GOTO LBL "CASE2_9"                ; src/256.hpp       :0108
 FN 9: IF Q367 EQU 3 GOTO LBL "CASE3_9"                ; src/256.hpp       :0108
 FN 9: IF Q367 EQU 4 GOTO LBL "CASE4_9"                ; src/256.hpp       :0108
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_9"               ; src/256.hpp       :0108
 LBL "CASE0_9"                                         ; src/256.hpp       :0110
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_9"               ; src/256.hpp       :0111
 LBL "CASE1_9"                                         ; src/256.hpp       :0112
 Q0 = Q218/2                                           ; src/256.hpp       :0113
 Q1 = Q219/2                                           ; src/256.hpp       :0113
 TRANS DATUM AXIS IX-Q0 IY-Q1                          ; src/256.hpp       :0113
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_9"               ; src/256.hpp       :0114
 LBL "CASE2_9"                                         ; src/256.hpp       :0115
 Q0 = Q218/2                                           ; src/256.hpp       :0116
 Q1 = Q219/2                                           ; src/256.hpp       :0116
 TRANS DATUM AXIS IX+Q0 IY-Q1                          ; src/256.hpp       :0116
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_9"               ; src/256.hpp       :0117
 LBL "CASE3_9"                                         ; src/256.hpp       :0118
 Q0 = Q218/2                                           ; src/256.hpp       :0119
 Q1 = Q219/2                                           ; src/256.hpp       :0119
 TRANS DATUM AXIS IX+Q0 IY+Q1                          ; src/256.hpp       :0119
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_9"               ; src/256.hpp       :0120
 LBL "CASE4_9"                                         ; src/256.hpp       :0121
 Q0 = Q218/2                                           ; src/256.hpp       :0122
 Q1 = Q219/2                                           ; src/256.hpp       :0122
 TRANS DATUM AXIS IX-Q0 IY+Q1                          ; src/256.hpp       :0122
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_9"               ; src/256.hpp       :0123
 LBL "SWITCHEND_9"                                     ; src/256.hpp       :0124
 CYCL DEF 10.0 ROTATION
 CYCL DEF 10.1 IROT-Q224
 TRANS DATUM AXIS IX-QL0 IY-QL1                        ; src/256.hpp       :0127
LBL "e_2560"                                           ; src/256.hpp       :0011
FN 9: IF 0 EQU 0 GOTO LBL "EXIT"                       ;                   :-001
LBL "256$RecStud.MILL"                                 ; includes/mill.hpp :0058
 FN 18: SYSREAD QL8 = ID 20 NR 3                       ; includes/mill.hpp :0085
 FN 18: SYSREAD QL14 = ID 210 NR 3                     ; includes/mill.hpp :0090
 FN 9: IF QL8 EQU 0 GOTO LBL "CASE0_10"                ; includes/mill.hpp :0091
 FN 9: IF QL8 EQU 6 GOTO LBL "CASE1_10"                ; includes/mill.hpp :0091
 FN 9: IF QL8 EQU 1 GOTO LBL "CASE2_10"                ; includes/mill.hpp :0091
 FN 9: IF QL8 EQU 7 GOTO LBL "CASE3_10"                ; includes/mill.hpp :0091
 FN 9: IF QL8 EQU 2 GOTO LBL "CASE4_10"                ; includes/mill.hpp :0091
 FN 9: IF QL8 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 QL11 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0095
 FN 18: SYSREAD QL12 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0096
 FN 18: SYSREAD QL13 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0097
 QL54 = QL14                                           ; includes/mill.hpp :0098
 QL55 = 1                                              ; includes/mill.hpp :0098
 CALL LBL "check_bit"
 QL15 = QL56                                           ; includes/mill.hpp :0098
 QL54 = QL14                                           ; includes/mill.hpp :0099
 QL55 = 2                                              ; includes/mill.hpp :0099
 CALL LBL "check_bit"
 QL16 = QL56                                           ; includes/mill.hpp :0099
 QL54 = QL14                                           ; includes/mill.hpp :0100
 QL55 = 0                                              ; includes/mill.hpp :0100
 CALL LBL "check_bit"
 QL17 = QL56                                           ; 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 QL11 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0104
 FN 18: SYSREAD QL12 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0105
 FN 18: SYSREAD QL13 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0106
 QL54 = QL14                                           ; includes/mill.hpp :0107
 QL55 = 2                                              ; includes/mill.hpp :0107
 CALL LBL "check_bit"
 QL15 = QL56                                           ; includes/mill.hpp :0107
 QL54 = QL14                                           ; includes/mill.hpp :0108
 QL55 = 0                                              ; includes/mill.hpp :0108
 CALL LBL "check_bit"
 QL16 = QL56                                           ; includes/mill.hpp :0108
 QL54 = QL14                                           ; includes/mill.hpp :0109
 QL55 = 1                                              ; includes/mill.hpp :0109
 CALL LBL "check_bit"
 QL17 = QL56                                           ; 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 QL11 = ID 210 NR 4 IDX 1               ; includes/mill.hpp :0113
 FN 18: SYSREAD QL12 = ID 210 NR 4 IDX 2               ; includes/mill.hpp :0114
 FN 18: SYSREAD QL13 = ID 210 NR 4 IDX 3               ; includes/mill.hpp :0115
 QL54 = QL14                                           ; includes/mill.hpp :0116
 QL55 = 0                                              ; includes/mill.hpp :0116
 CALL LBL "check_bit"
 QL15 = QL56                                           ; includes/mill.hpp :0116
 QL54 = QL14                                           ; includes/mill.hpp :0117
 QL55 = 1                                              ; includes/mill.hpp :0117
 CALL LBL "check_bit"
 QL16 = QL56                                           ; includes/mill.hpp :0117
 QL54 = QL14                                           ; includes/mill.hpp :0118
 QL55 = 2                                              ; includes/mill.hpp :0118
 CALL LBL "check_bit"
 QL17 = QL56                                           ; 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
 QL26 = 0                                              ; includes/mill.hpp :0124
 QL18 = 0.001                                          ; includes/mill.hpp :0131
 QL7 = 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 QL10 = ID 50 NR 13                     ; includes/mill.hpp :0152
 FN 18: SYSREAD QL9 = ID 50 NR 14                      ; includes/mill.hpp :0153
 FN 18: SYSREAD QL27 = ID 50 NR 2                      ; includes/mill.hpp :0154
 FN 18: SYSREAD Q0 = ID 50 NR 5                        ; includes/mill.hpp :0155
 QL27 = QL27 + 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
 QL10 = 0                                              ; includes/mill.hpp :0159
 QL9 = 0                                               ; includes/mill.hpp :0160
 FN 18: SYSREAD QL27 = ID 200 NR 1                     ; includes/mill.hpp :0161
 LBL "ENDIF_11"                                        ; includes/mill.hpp :0162
 FN 18: SYSREAD QL28 = ID 200 NR 1                     ; includes/mill.hpp :0163
 FN 11: IF QL27  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 QL27  EQU QL28  GOTO LBL "IFNOT_13"          ; includes/mill.hpp :0174
 FN 12: IF QL27  LT QL28  GOTO LBL "IFNOT_13"          ; includes/mill.hpp :0174
 QL29 = QL27                                           ; 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
 QL29 = QL28                                           ; includes/mill.hpp :0180
 LBL "ENDIF_13"                                        ; includes/mill.hpp :0181
 QL27 = QL27 / QL11                                    ; includes/mill.hpp :0185
 QL28 = QL28 / QL11                                    ; includes/mill.hpp :0186
 QL10 = QL10 / QL13                                    ; includes/mill.hpp :0187
 CALL LBL "check_spindle_status"
 QL57 = 3                                              ; includes/mill.hpp :0195
 CALL LBL "swap_axes"
LBL 0                                                  ; includes/mill.hpp :0058
LBL "256$RecStud.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
 QL26 = +QL32                                          ; 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
 QL26 = -QL32                                          ; includes/mill.hpp :0211
 LBL "SWITCHEND_14"                                    ; includes/mill.hpp :0212
 FN 10: IF QL15  NE 1  GOTO LBL "IFNOT_15"             ; includes/mill.hpp :0213
 QL26 = -QL26                                          ; includes/mill.hpp :0215
 LBL "IFNOT_15"                                        ; includes/mill.hpp :0216
 FN 10: IF QL16  NE 1  GOTO LBL "IFNOT_16"             ; includes/mill.hpp :0217
 QL26 = -QL26                                          ; includes/mill.hpp :0219
 LBL "IFNOT_16"                                        ; includes/mill.hpp :0220
 QL24 = QL27 * QL36                                    ; includes/mill.hpp :0224
 QL58 = QL37                                           ; includes/mill.hpp :0228
 CALL LBL "check_depth_sign"
 FN 9: IF QL37  EQU 0  GOTO LBL "EXIT"                 ; includes/mill.hpp :0229
 QL25 = QL37                                           ; includes/mill.hpp :0230
 QL19 = QL33                                           ; includes/mill.hpp :0235
 QL30 = ABS( QL34 )                                    ; includes/mill.hpp :0236
 FN 9: IF QL30  EQU 0.001  GOTO LBL "IFNOT_18"         ; includes/mill.hpp :0237
 FN 11: IF QL30  GT 0.001  GOTO LBL "IFNOT_18"         ; includes/mill.hpp :0237
 QL30 = 0.001                                          ; includes/mill.hpp :0237
 LBL "IFNOT_18"                                        ; includes/mill.hpp :0237
 FN 9: IF QL35  EQU QL30  GOTO LBL "IFNOT_19"          ; includes/mill.hpp :0238
 FN 11: IF QL35  GT QL30  GOTO LBL "IFNOT_19"          ; includes/mill.hpp :0238
 QL31 = QL30                                           ; 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
 QL31 = QL35                                           ; includes/mill.hpp :0244
 LBL "ENDIF_19"                                        ; includes/mill.hpp :0245
 QL31 = QL19 - ( QL31 * SGN( QL25 ) )                  ; includes/mill.hpp :0246
LBL 0                                                  ; includes/mill.hpp :0059
LBL "256$RecStud.set_feed"                             ; includes/mill.hpp :0060
 QL20 = QL38                                           ; includes/mill.hpp :0253
 QL21 = QL39                                           ; includes/mill.hpp :0254
 QL22 = QL40                                           ; includes/mill.hpp :0255
 FN 11: IF QL41  GT 0  GOTO LBL "IFNOT_20"             ; includes/mill.hpp :0256
  FN 9: IF QL41  EQU -57239891  GOTO LBL "IFNOT_21"    ; includes/mill.hpp :0258
  QL23 = QL20                                          ; 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
 QL23 = QL41                                           ; includes/mill.hpp :0271
 LBL "ENDIF_20"                                        ; includes/mill.hpp :0272
LBL 0                                                  ; includes/mill.hpp :0060
LBL "256$RecStud.get_ToolLCut"                         ; includes/mill.hpp :0063
 QL42 = QL10                                           ; 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 QL43 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0631
 FN 18: SYSREAD QL44 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0632
 FN 18: SYSREAD QL45 = 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 QL43 = ID 270 NR 1 IDX 3               ; includes/geo.hpp  :0637
 FN 18: SYSREAD QL44 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0638
 FN 18: SYSREAD QL45 = 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 QL43 = ID 270 NR 1 IDX 1               ; includes/geo.hpp  :0643
 FN 18: SYSREAD QL44 = ID 270 NR 1 IDX 2               ; includes/geo.hpp  :0644
 FN 18: SYSREAD QL45 = 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 "256$RecStud.rec_stud"                             ; includes/mill.hpp :0067
 FN 9: IF QL51  EQU 0.001  GOTO LBL "IFNOT_23"         ; includes/mill.hpp :0835
 FN 11: IF QL51  GT 0.001  GOTO LBL "IFNOT_23"         ; includes/mill.hpp :0835
 QL51 = 0.001                                          ; includes/mill.hpp :0835
 LBL "IFNOT_23"                                        ; includes/mill.hpp :0835
 FN 9: IF QL52  EQU 0.001  GOTO LBL "IFNOT_24"         ; includes/mill.hpp :0836
 FN 11: IF QL52  GT 0.001  GOTO LBL "IFNOT_24"         ; includes/mill.hpp :0836
 QL52 = 0.001                                          ; includes/mill.hpp :0836
 LBL "IFNOT_24"                                        ; includes/mill.hpp :0836
 FN 11: IF QL51  GT QL49 GOTO LBL "IF_25"              ; includes/mill.hpp :0840
 FN 11: IF QL52  GT QL50 GOTO LBL "IF_25"              ; includes/mill.hpp :0840
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_25"                  ; includes/mill.hpp :0840
 LBL "IF_25"                                           ; includes/mill.hpp :0840
 FN 14: ERROR= 1098                                    ; includes/mill.hpp :0842
 LBL "IFNOT_25"                                        ; includes/mill.hpp :0843
 Q0 = 2*QL53                                           ; includes/mill.hpp :0844
 FN 12: IF Q0  LT QL51  GOTO LBL "IFNOT_26"            ; includes/mill.hpp :0844
 FN 14: ERROR= 1023                                    ; includes/mill.hpp :0846
 LBL "IFNOT_26"                                        ; includes/mill.hpp :0847
 Q0 = 2*QL53                                           ; includes/mill.hpp :0848
 FN 12: IF Q0  LT QL52  GOTO LBL "IFNOT_27"            ; includes/mill.hpp :0848
 FN 14: ERROR= 1023                                    ; includes/mill.hpp :0850
 LBL "IFNOT_27"                                        ; includes/mill.hpp :0851
 FN 10: IF QL53  NE 0  GOTO LBL "IFNOT_28"             ; includes/mill.hpp :0856
  FN 9: IF QL47 EQU 3 GOTO LBL "CASE0_29"              ; includes/mill.hpp :0858
  FN 9: IF QL47 EQU 1 GOTO LBL "CASE1_29"              ; includes/mill.hpp :0858
  FN 9: IF QL47 EQU 2 GOTO LBL "CASE2_29"              ; includes/mill.hpp :0858
  FN 9: IF QL47 EQU 4 GOTO LBL "CASE3_29"              ; includes/mill.hpp :0858
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_29"             ; includes/mill.hpp :0858
  LBL "CASE0_29"                                       ; includes/mill.hpp :0860
  CYCL DEF 10.0 ROTATION
  CYCL DEF 10.1 IROT+180
  QL72 = QL48                                          ; includes/mill.hpp :0863
  QL73 = QL49                                          ; includes/mill.hpp :0863
  QL74 = QL50                                          ; includes/mill.hpp :0863
  QL75 = QL51                                          ; includes/mill.hpp :0863
  QL76 = QL52                                          ; includes/mill.hpp :0863
  CALL LBL "256$RecStud.rec_stud_ap"
  CYCL DEF 10.0 ROTATION
  CYCL DEF 10.1 IROT-180
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_29"             ; includes/mill.hpp :0866
  LBL "CASE1_29"                                       ; includes/mill.hpp :0867
  QL72 = QL48                                          ; includes/mill.hpp :0868
  QL73 = QL49                                          ; includes/mill.hpp :0868
  QL74 = QL50                                          ; includes/mill.hpp :0868
  QL75 = QL51                                          ; includes/mill.hpp :0868
  QL76 = QL52                                          ; includes/mill.hpp :0868
  CALL LBL "256$RecStud.rec_stud_ap"
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_29"             ; includes/mill.hpp :0869
  LBL "CASE2_29"                                       ; includes/mill.hpp :0870
  CYCL DEF 10.0 ROTATION
  CYCL DEF 10.1 IROT+90
  QL72 = QL48                                          ; includes/mill.hpp :0873
  QL73 = QL50                                          ; includes/mill.hpp :0873
  QL74 = QL49                                          ; includes/mill.hpp :0873
  QL75 = QL52                                          ; includes/mill.hpp :0873
  QL76 = QL51                                          ; includes/mill.hpp :0873
  CALL LBL "256$RecStud.rec_stud_ap"
  CYCL DEF 10.0 ROTATION
  CYCL DEF 10.1 IROT-90
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_29"             ; includes/mill.hpp :0876
  LBL "CASE3_29"                                       ; includes/mill.hpp :0877
  CYCL DEF 10.0 ROTATION
  CYCL DEF 10.1 IROT+270
  QL72 = QL48                                          ; includes/mill.hpp :0880
  QL73 = QL50                                          ; includes/mill.hpp :0880
  QL74 = QL49                                          ; includes/mill.hpp :0880
  QL75 = QL52                                          ; includes/mill.hpp :0880
  QL76 = QL51                                          ; includes/mill.hpp :0880
  CALL LBL "256$RecStud.rec_stud_ap"
  CYCL DEF 10.0 ROTATION
  CYCL DEF 10.1 IROT-270
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_29"             ; includes/mill.hpp :0883
  LBL "SWITCHDEF_29"                                   ; includes/mill.hpp :0884
  FN 14: ERROR= 1011                                   ; includes/mill.hpp :0885
  LBL "SWITCHEND_29"                                   ; includes/mill.hpp :0886
 LBL 0                                                 ; includes/mill.hpp :0887
 LBL "IFNOT_28"                                        ; includes/mill.hpp :0888
 FN 12: IF QL26  LT 0  GOTO LBL "IFNOT_30"             ; includes/mill.hpp :0893
  FN 10: IF QL16  NE 1  GOTO LBL "IFNOT_31"            ; includes/mill.hpp :0895
  QL71 = QL14 - 2                                      ; includes/mill.hpp :0897
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_31"                 ; includes/mill.hpp :0898
  LBL "IFNOT_31"                                       ; includes/mill.hpp :0898
  QL71 = QL14 + 2                                      ; includes/mill.hpp :0901
  LBL "ENDIF_31"                                       ; includes/mill.hpp :0902
 FN 17: SYSWRITE ID 210 NR 3 = QL71                    ; includes/mill.hpp :0903
 QL47 = ( QL47 - 2.5 ) * ( -1 ) + 2.5                  ; includes/mill.hpp :0904
 LBL "IFNOT_30"                                        ; includes/mill.hpp :0905
 FN 9: IF QL46 EQU 0 GOTO LBL "CASE0_32"               ; includes/mill.hpp :0911
 FN 9: IF QL46 EQU 1 GOTO LBL "CASE1_32"               ; includes/mill.hpp :0911
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_32"              ; includes/mill.hpp :0911
 LBL "CASE0_32"                                        ; includes/mill.hpp :0913
 QL49 = QL49 / 2 + QL28                                ; includes/mill.hpp :0914
 QL50 = QL50 / 2 + QL28                                ; includes/mill.hpp :0915
 QL51 = QL51 / 2 + QL28                                ; includes/mill.hpp :0916
 QL52 = QL52 / 2 + QL28                                ; includes/mill.hpp :0917
 QL49 = QL49 + ( QL53 - QL53 * COS( 45 ) )             ; includes/mill.hpp :0918
 QL50 = QL50 + ( QL53 - QL53 * COS( 45 ) )             ; includes/mill.hpp :0919
 QL53 = QL53 + QL28                                    ; includes/mill.hpp :0920
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_32"              ; includes/mill.hpp :0921
 LBL "CASE1_32"                                        ; includes/mill.hpp :0922
 QL49 = QL49 / 2                                       ; includes/mill.hpp :0923
 QL50 = QL50 / 2                                       ; includes/mill.hpp :0924
 QL51 = QL51 / 2                                       ; includes/mill.hpp :0925
 QL52 = QL52 / 2                                       ; includes/mill.hpp :0926
 QL49 = QL49 + ( QL53 - QL53 * COS( 45 ) )             ; includes/mill.hpp :0927
 QL50 = QL50 + ( QL53 - QL53 * COS( 45 ) )             ; includes/mill.hpp :0928
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_32"              ; includes/mill.hpp :0929
 LBL "SWITCHDEF_32"                                    ; includes/mill.hpp :0930
 FN 14: ERROR= 1011                                    ; includes/mill.hpp :0931
 LBL "SWITCHEND_32"                                    ; includes/mill.hpp :0932
 FN 9: IF QL47 EQU 3 GOTO LBL "CASE0_33"               ; includes/mill.hpp :0938
 FN 9: IF QL47 EQU 1 GOTO LBL "CASE1_33"               ; includes/mill.hpp :0938
 FN 9: IF QL47 EQU 2 GOTO LBL "CASE2_33"               ; includes/mill.hpp :0938
 FN 9: IF QL47 EQU 4 GOTO LBL "CASE3_33"               ; includes/mill.hpp :0938
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_33"              ; includes/mill.hpp :0938
 LBL "CASE0_33"                                        ; includes/mill.hpp :0940
 CYCL DEF 10.0 ROTATION
 CYCL DEF 10.1 IROT+180
 LBL "CASE1_33"                                        ; includes/mill.hpp :0943
 QL59 = QL49                                           ; includes/mill.hpp :0944
 QL60 = QL50                                           ; includes/mill.hpp :0945
 QL61 = QL51                                           ; includes/mill.hpp :0946
 QL62 = QL52                                           ; includes/mill.hpp :0947
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_33"              ; includes/mill.hpp :0948
 LBL "CASE2_33"                                        ; includes/mill.hpp :0949
 CYCL DEF 10.0 ROTATION
 CYCL DEF 10.1 IROT+90
 QL59 = QL50                                           ; includes/mill.hpp :0952
 QL60 = QL49                                           ; includes/mill.hpp :0953
 QL61 = QL52                                           ; includes/mill.hpp :0954
 QL62 = QL51                                           ; includes/mill.hpp :0955
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_33"              ; includes/mill.hpp :0956
 LBL "CASE3_33"                                        ; includes/mill.hpp :0957
 CYCL DEF 10.0 ROTATION
 CYCL DEF 10.1 IROT+270
 QL59 = QL50                                           ; includes/mill.hpp :0960
 QL60 = QL49                                           ; includes/mill.hpp :0961
 QL61 = QL52                                           ; includes/mill.hpp :0962
 QL62 = QL51                                           ; includes/mill.hpp :0963
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_33"              ; includes/mill.hpp :0964
 LBL "SWITCHDEF_33"                                    ; includes/mill.hpp :0965
 FN 14: ERROR= 1011                                    ; includes/mill.hpp :0966
 LBL "SWITCHEND_33"                                    ; includes/mill.hpp :0967
 FN 9: IF QL61  EQU 0.001  GOTO LBL "IFNOT_34"         ; includes/mill.hpp :0971
 FN 11: IF QL61  GT 0.001  GOTO LBL "IFNOT_34"         ; includes/mill.hpp :0971
 QL61 = 0.001                                          ; includes/mill.hpp :0971
 LBL "IFNOT_34"                                        ; includes/mill.hpp :0971
 FN 9: IF QL62  EQU 0.001  GOTO LBL "IFNOT_35"         ; includes/mill.hpp :0972
 FN 11: IF QL62  GT 0.001  GOTO LBL "IFNOT_35"         ; includes/mill.hpp :0972
 QL62 = 0.001                                          ; includes/mill.hpp :0972
 LBL "IFNOT_35"                                        ; includes/mill.hpp :0972
 QL63 = QL59 - QL61                                    ; includes/mill.hpp :0976
 QL64 = QL60 - QL62                                    ; includes/mill.hpp :0977
 QL69 = ( SQRT( SQ( QL63 ) + SQ( QL64 ) ) ) / QL24     ; includes/mill.hpp :0978
 QL69 = INT( QL69 + 0.99 )                             ; includes/mill.hpp :0301
 FN 10: IF QL69  NE 0  GOTO LBL "IFNOT_36"             ; includes/mill.hpp :0302
 QL69 = 1                                              ; includes/mill.hpp :0302
 LBL "IFNOT_36"                                        ; includes/mill.hpp :0302
 LBL "e_256$RecStud$int_infeeds1"                      ; includes/mill.hpp :0050
 QL63 = QL63 / QL69                                    ; includes/mill.hpp :0980
 QL64 = QL64 / QL69                                    ; includes/mill.hpp :0981
 QL65 = QL59 - QL53 - QL63 - QL30                      ; includes/mill.hpp :0985
 QL66 = QL60 + QL30                                    ; includes/mill.hpp :0986
 FN 9: IF QL27  EQU QL28  GOTO LBL "IFNOT_37"          ; includes/mill.hpp :0987
 FN 12: IF QL27  LT QL28  GOTO LBL "IFNOT_37"          ; includes/mill.hpp :0987
 QL66 = QL66 + QL27                                    ; includes/mill.hpp :0989
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_37"                  ; includes/mill.hpp :0990
 LBL "IFNOT_37"                                        ; includes/mill.hpp :0990
 QL66 = QL66 + QL28                                    ; includes/mill.hpp :0993
 LBL "ENDIF_37"                                        ; includes/mill.hpp :0994
 Q0 = QL48-QL19                                        ; includes/mill.hpp :0995
 QL77 = -QL65                                          ; includes/mill.hpp :0995
 QL78 = -QL66                                          ; includes/mill.hpp :0995
 QL79 = QL19                                           ; includes/mill.hpp :0995
 QL80 = QL30                                           ; includes/mill.hpp :0995
 QL81 = QL31                                           ; includes/mill.hpp :0995
 QL82 = Q0                                             ; includes/mill.hpp :0995
 CALL LBL "prepos"
 L  Z+QL48 F QL22                                      ; includes/mill.hpp :0996
 QL70=1                                                ; includes/mill.hpp :1000
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_38"                 ; includes/mill.hpp :1000
 LBL "FOR_38"                                          ; includes/mill.hpp :1000
 QL70 = QL70 + 1                                       ; includes/mill.hpp :1000
 LBL "FORCMP_38"                                       ; includes/mill.hpp :1000
 FN 11: IF QL70 GT QL69   GOTO LBL "FORNOT_38"         ; includes/mill.hpp :1000
 QL67 = QL59 - (QL70 * QL63)                           ; includes/mill.hpp :1002
 QL68 = QL60 - (QL70 * QL64)                           ; includes/mill.hpp :1003
  FN 10: IF QL70  NE 1  GOTO LBL "IFNOT_39"            ; includes/mill.hpp :1004
   FN 10: IF QL46  NE 1  GOTO LBL "IFNOT_40"           ; includes/mill.hpp :1006
   Q0 = QL67-QL53-ABS(QL30)                            ; includes/mill.hpp :1008
   APPR LT X-Q0 Y-QL60 LEN 0 RL F QL20                 ; includes/mill.hpp :1008
   FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_40"                ; includes/mill.hpp :1009
   LBL "IFNOT_40"                                      ; includes/mill.hpp :1009
   Q0 = QL67-QL53-ABS(QL30)                            ; includes/mill.hpp :1012
   APPR LT X-Q0 Y-QL60 LEN 0 R0 F QL20                 ; includes/mill.hpp :1012
   LBL "ENDIF_40"                                      ; includes/mill.hpp :1013
  L  X-QL67                                            ; includes/mill.hpp :1014
  RND R QL53                                           ; includes/mill.hpp :1015
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_39"                 ; includes/mill.hpp :1016
  LBL "IFNOT_39"                                       ; includes/mill.hpp :1016
  L  X-QL67                                            ; includes/mill.hpp :1019
  RND R QL53                                           ; includes/mill.hpp :1020
  LBL "ENDIF_39"                                       ; includes/mill.hpp :1021
 L  X-QL67 Y+QL68                                      ; includes/mill.hpp :1022
 RND R QL53                                            ; includes/mill.hpp :1023
 L  X+QL67 Y+QL68                                      ; includes/mill.hpp :1024
 RND R QL53                                            ; includes/mill.hpp :1025
 L  X+QL67 Y-QL68                                      ; includes/mill.hpp :1026
 RND R QL53                                            ; includes/mill.hpp :1027
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_38"                    ; includes/mill.hpp :1028
 LBL "FORNOT_38"                                       ; includes/mill.hpp :1028
 L  X-QL61                                             ; includes/mill.hpp :1029
 RND R QL53                                            ; includes/mill.hpp :1030
 Q0 = QL62-QL53-ABS(QL30/16)                           ; includes/mill.hpp :1031
 L  Y-Q0                                               ; includes/mill.hpp :1031
 FN 10: IF QL46  NE 1  GOTO LBL "IFNOT_41"             ; includes/mill.hpp :1032
 Q0 = ABS(QL30)/(1-COS( 30 ))                          ; includes/mill.hpp :1034
 DEP CT  CCA+30 R+Q0                                   ; includes/mill.hpp :1034
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_41"                  ; includes/mill.hpp :1035
 LBL "IFNOT_41"                                        ; includes/mill.hpp :1035
 Q0 = ABS(QL30)/(1-COS( 30 ))                          ; includes/mill.hpp :1038
 CC IX-Q0 IY+0                                         ; includes/mill.hpp :1038
 CP IPA+30 DR+                                         ; includes/mill.hpp :1039
 LBL "ENDIF_41"                                        ; includes/mill.hpp :1040
 FN 9: IF QL47 EQU 2 GOTO LBL "CASE0_42"               ; includes/mill.hpp :1044
 FN 9: IF QL47 EQU 3 GOTO LBL "CASE1_42"               ; includes/mill.hpp :1044
 FN 9: IF QL47 EQU 4 GOTO LBL "CASE2_42"               ; includes/mill.hpp :1044
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_42"              ; includes/mill.hpp :1044
 LBL "CASE0_42"                                        ; includes/mill.hpp :1046
 CYCL DEF 10.0 ROTATION
 CYCL DEF 10.1 IROT-90
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_42"              ; includes/mill.hpp :1049
 LBL "CASE1_42"                                        ; includes/mill.hpp :1050
 CYCL DEF 10.0 ROTATION
 CYCL DEF 10.1 IROT-180
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_42"              ; includes/mill.hpp :1053
 LBL "CASE2_42"                                        ; includes/mill.hpp :1054
 CYCL DEF 10.0 ROTATION
 CYCL DEF 10.1 IROT-270
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_42"              ; includes/mill.hpp :1057
 LBL "SWITCHEND_42"                                    ; includes/mill.hpp :1058
 FN 12: IF QL26  LT 0  GOTO LBL "IFNOT_43"             ; includes/mill.hpp :1059
 FN 17: SYSWRITE ID 210 NR 3 = QL14                    ; includes/mill.hpp :1061
 LBL "IFNOT_43"                                        ; includes/mill.hpp :1062
LBL 0                                                  ; includes/mill.hpp :0067
LBL "check_bit"                                        ; includes/stdlib.hh:0140
 QL83=15                                               ; includes/geo.hpp  :0852
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_44"                 ; includes/geo.hpp  :0852
 LBL "FOR_44"                                          ; includes/geo.hpp  :0852
 QL83 = QL83 + -1                                      ; includes/geo.hpp  :0852
 LBL "FORCMP_44"                                       ; includes/geo.hpp  :0852
 FN 12: IF QL83 LT 0   GOTO LBL "FORNOT_44"            ; includes/geo.hpp  :0852
 QL56 = 2 ^ QL83                                       ; includes/geo.hpp  :0854
  FN 12: IF QL54  LT QL56  GOTO LBL "IFNOT_45"         ; includes/geo.hpp  :0855
   FN 10: IF QL83  NE QL55  GOTO LBL "IFNOT_46"        ; includes/geo.hpp  :0857
   QL56 = 1                                            ; includes/geo.hpp  :0859
   LBL 0                                               ; includes/geo.hpp  :0860
   LBL "IFNOT_46"                                      ; includes/geo.hpp  :0861
  QL54 = QL54 - 2^QL83                                 ; includes/geo.hpp  :0862
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_45"                 ; includes/geo.hpp  :0863
  LBL "IFNOT_45"                                       ; includes/geo.hpp  :0863
   FN 10: IF QL83  NE QL55  GOTO LBL "IFNOT_47"        ; includes/geo.hpp  :0866
   QL56 = 0                                            ; includes/geo.hpp  :0868
   LBL 0                                               ; includes/geo.hpp  :0869
   LBL "IFNOT_47"                                      ; includes/geo.hpp  :0870
  LBL "ENDIF_45"                                       ; includes/geo.hpp  :0871
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_44"                    ; includes/geo.hpp  :0872
 LBL "FORNOT_44"                                       ; includes/geo.hpp  :0872
 QL56 = -1                                             ; includes/geo.hpp  :0873
LBL 0                                                  ; includes/stdlib.hh:0140
LBL "check_spindle_status"                             ; includes/stdlib.hh:0149
 FN 18: SYSREAD QL84 = ID 20 NR 5                      ; includes/geo.hpp  :0904
 FN 9: IF QL84  EQU 0 GOTO LBL "IFNOT_48"              ; includes/geo.hpp  :0905
 FN 9: IF QL84  EQU 1 GOTO LBL "IFNOT_48"              ; includes/geo.hpp  :0905
 FN 18: SYSREAD Q0 = ID 1000 NR 7441                   ; includes/geo.hpp  :0907
 QL54 = Q0                                             ; includes/geo.hpp  :0907
 QL55 = 0                                              ; includes/geo.hpp  :0907
 CALL LBL "check_bit"
 QL84 = QL56                                           ; includes/geo.hpp  :0907
  FN 10: IF QL84  NE 0  GOTO LBL "IFNOT_49"            ; includes/geo.hpp  :0908
  FN 14: ERROR= 1000                                   ; includes/geo.hpp  :0910
  LBL "IFNOT_49"                                       ; includes/geo.hpp  :0911
 LBL "IFNOT_48"                                        ; includes/geo.hpp  :0912
LBL 0                                                  ; includes/stdlib.hh:0149
LBL "swap_axes"                                        ; includes/stdlib.hh:0136
 FN 17: SYSWRITE ID 212 = QL57                         ; includes/geo.hpp  :0843
LBL 0                                                  ; includes/stdlib.hh:0136
LBL "check_depth_sign"                                 ; includes/stdlib.hh:0144
 FN 9: IF QL58  EQU 0  GOTO LBL "IFNOT_50"             ; includes/geo.hpp  :0882
 FN 12: IF QL58  LT 0  GOTO LBL "IFNOT_50"             ; includes/geo.hpp  :0882
 FN 18: SYSREAD Q0 = ID 1000 NR 7441                   ; includes/geo.hpp  :0885
 QL54 = Q0                                             ; includes/geo.hpp  :0885
 QL55 = 2                                              ; includes/geo.hpp  :0885
 CALL LBL "check_bit"
 QL85 = QL56                                           ; includes/geo.hpp  :0885
  FN 10: IF QL85  NE 1  GOTO LBL "IFNOT_51"            ; includes/geo.hpp  :0892
  FN 14: ERROR= 1077                                   ; includes/geo.hpp  :0893
  LBL "IFNOT_51"                                       ; includes/geo.hpp  :0893
 LBL "IFNOT_50"                                        ; includes/geo.hpp  :0894
LBL 0                                                  ; includes/stdlib.hh:0144
LBL "256$RecStud.rec_stud_ap"                          ; includes/mill.hpp :0068
 FN 11: IF QL75  GT QL73 GOTO LBL "IF_52"              ; includes/mill.hpp :1089
 FN 11: IF QL76  GT QL74 GOTO LBL "IF_52"              ; includes/mill.hpp :1089
 FN 9: IF 0 EQU 0 GOTO LBL "IFNOT_52"                  ; includes/mill.hpp :1089
 LBL "IF_52"                                           ; includes/mill.hpp :1089
 FN 14: ERROR= 1098                                    ; includes/mill.hpp :1091
 LBL "IFNOT_52"                                        ; includes/mill.hpp :1092
 FN 12: IF QL26  LT 0  GOTO LBL "IFNOT_53"             ; includes/mill.hpp :1097
  FN 10: IF QL16  NE 1  GOTO LBL "IFNOT_54"            ; includes/mill.hpp :1099
  QL98 = QL14 - 2                                      ; includes/mill.hpp :1101
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_54"                 ; includes/mill.hpp :1102
  LBL "IFNOT_54"                                       ; includes/mill.hpp :1102
  QL98 = QL14 + 2                                      ; includes/mill.hpp :1105
  LBL "ENDIF_54"                                       ; includes/mill.hpp :1106
 FN 17: SYSWRITE ID 210 NR 3 = QL98                    ; includes/mill.hpp :1107
 LBL "IFNOT_53"                                        ; includes/mill.hpp :1108
 QL86 = QL73 / 2                                       ; includes/mill.hpp :1112
 QL87 = QL74 / 2                                       ; includes/mill.hpp :1113
 QL88 = QL75 / 2                                       ; includes/mill.hpp :1114
 QL89 = QL76 / 2                                       ; includes/mill.hpp :1115
 QL90 = QL86 - QL88                                    ; includes/mill.hpp :1119
 QL91 = QL87 - QL89                                    ; includes/mill.hpp :1120
 FN 9: IF QL90  EQU QL91  GOTO LBL "IFNOT_55"          ; includes/mill.hpp :1121
 FN 12: IF QL90  LT QL91  GOTO LBL "IFNOT_55"          ; includes/mill.hpp :1121
 QL96 = QL90 / QL24                                    ; includes/mill.hpp :1123
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_55"                  ; includes/mill.hpp :1124
 LBL "IFNOT_55"                                        ; includes/mill.hpp :1124
 QL96 = QL91 / QL24                                    ; includes/mill.hpp :1127
 LBL "ENDIF_55"                                        ; includes/mill.hpp :1128
 QL96 = INT( QL96 + 0.99 )                             ; includes/mill.hpp :0301
 FN 10: IF QL96  NE 0  GOTO LBL "IFNOT_56"             ; includes/mill.hpp :0302
 QL96 = 1                                              ; includes/mill.hpp :0302
 LBL "IFNOT_56"                                        ; includes/mill.hpp :0302
 LBL "e_256$RecStud$int_infeeds2"                      ; includes/mill.hpp :0050
 FN 9: IF QL96  EQU 1  GOTO LBL "IFNOT_57"             ; includes/mill.hpp :1130
 FN 11: IF QL96  GT 1  GOTO LBL "IFNOT_57"             ; includes/mill.hpp :1130
 QL96 = 1                                              ; includes/mill.hpp :1130
 LBL "IFNOT_57"                                        ; includes/mill.hpp :1130
 QL90 = QL90 / QL96                                    ; includes/mill.hpp :1131
 QL91 = QL91 / QL96                                    ; includes/mill.hpp :1132
 QL92 = QL86 + QL30                                    ; includes/mill.hpp :1136
 QL93 = QL87                                           ; includes/mill.hpp :1137
 FN 9: IF QL27  EQU QL28  GOTO LBL "IFNOT_58"          ; includes/mill.hpp :1138
 FN 12: IF QL27  LT QL28  GOTO LBL "IFNOT_58"          ; includes/mill.hpp :1138
 QL92 = QL92 + QL27                                    ; includes/mill.hpp :1140
 QL93 = QL93 + QL27                                    ; includes/mill.hpp :1141
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_58"                  ; includes/mill.hpp :1142
 LBL "IFNOT_58"                                        ; includes/mill.hpp :1142
 QL92 = QL92 + QL28                                    ; includes/mill.hpp :1145
 QL93 = QL93 + QL28                                    ; includes/mill.hpp :1146
 LBL "ENDIF_58"                                        ; includes/mill.hpp :1147
 Q0 = QL72-QL19                                        ; includes/mill.hpp :1151
 QL77 = -QL92                                          ; includes/mill.hpp :1151
 QL78 = -QL93                                          ; includes/mill.hpp :1151
 QL79 = 0                                              ; includes/mill.hpp :1151
 QL80 = QL30                                           ; includes/mill.hpp :1151
 QL81 = QL31                                           ; includes/mill.hpp :1151
 QL82 = Q0                                             ; includes/mill.hpp :1151
 CALL LBL "prepos"
 Z+QL72 F QL22                                         ; includes/mill.hpp :1152
 QL97=1                                                ; includes/mill.hpp :1153
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_59"                 ; includes/mill.hpp :1153
 LBL "FOR_59"                                          ; includes/mill.hpp :1153
 QL97 = QL97 + 1                                       ; includes/mill.hpp :1153
 LBL "FORCMP_59"                                       ; includes/mill.hpp :1153
 FN 11: IF QL97 GT QL96   GOTO LBL "FORNOT_59"         ; includes/mill.hpp :1153
 QL94 = QL86 - (QL97 * QL90)                           ; includes/mill.hpp :1155
 QL95 = QL87 - (QL97 * QL91)                           ; includes/mill.hpp :1156
  FN 10: IF QL97  NE 1  GOTO LBL "IFNOT_60"            ; includes/mill.hpp :1157
  X-QL94 R- F QL20                                     ; includes/mill.hpp :1159
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_60"                 ; includes/mill.hpp :1160
  LBL "IFNOT_60"                                       ; includes/mill.hpp :1160
  X-QL94                                               ; includes/mill.hpp :1163
  LBL "ENDIF_60"                                       ; includes/mill.hpp :1164
 Y+QL95 R+                                             ; includes/mill.hpp :1165
 X+QL94                                                ; includes/mill.hpp :1166
 Y-QL95                                                ; includes/mill.hpp :1167
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_59"                    ; includes/mill.hpp :1168
 LBL "FORNOT_59"                                       ; includes/mill.hpp :1168
 Q0 = QL94+QL28                                        ; includes/mill.hpp :1169
 X-Q0 R0                                               ; includes/mill.hpp :1169
 Q0 = QL95+QL28                                        ; includes/mill.hpp :1170
 Y-Q0 R0                                               ; includes/mill.hpp :1170
 FN 12: IF QL26  LT 0  GOTO LBL "IFNOT_61"             ; includes/mill.hpp :1174
 FN 17: SYSWRITE ID 210 NR 3 = QL14                    ; includes/mill.hpp :1176
 LBL "IFNOT_61"                                        ; includes/mill.hpp :1177
LBL 0                                                  ; includes/mill.hpp :0068
LBL "prepos"                                           ; includes/stdlib.hh:0124
 QL99 = QL81                                           ; includes/geo.hpp  :0780
 QL100 = QL82                                          ; includes/geo.hpp  :0780
 QL101 = QL79                                          ; includes/geo.hpp  :0780
 CALL LBL "retreat"
 L  X+QL77 Y+QL78 R0 FMAX                              ; includes/geo.hpp  :0782
 Q0 = QL79 + QL80                                      ; includes/geo.hpp  :0794
 Z+Q0 FMAX                                             ; includes/geo.hpp  :0794
LBL 0                                                  ; includes/stdlib.hh:0124
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_62"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 6 GOTO LBL "CASE1_62"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 1 GOTO LBL "CASE2_62"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 7 GOTO LBL "CASE3_62"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 2 GOTO LBL "CASE4_62"                 ; includes/geo.hpp  :0802
 FN 9: IF Q0 EQU 8 GOTO LBL "CASE5_62"                 ; includes/geo.hpp  :0802
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_62"              ; includes/geo.hpp  :0802
 LBL "CASE0_62"                                        ; includes/geo.hpp  :0804
 LBL "CASE1_62"                                        ; includes/geo.hpp  :0805
 FN 18: SYSREAD QL102 = ID 270 NR 1 IDX 1              ; includes/geo.hpp  :0806
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_62"              ; includes/geo.hpp  :0807
 LBL "CASE2_62"                                        ; includes/geo.hpp  :0808
 LBL "CASE3_62"                                        ; includes/geo.hpp  :0809
 FN 18: SYSREAD QL102 = ID 270 NR 1 IDX 2              ; includes/geo.hpp  :0810
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_62"              ; includes/geo.hpp  :0811
 LBL "CASE4_62"                                        ; includes/geo.hpp  :0812
 LBL "CASE5_62"                                        ; includes/geo.hpp  :0813
 FN 18: SYSREAD QL102 = ID 270 NR 1 IDX 3              ; includes/geo.hpp  :0814
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_62"              ; includes/geo.hpp  :0815
 LBL "SWITCHEND_62"                                    ; includes/geo.hpp  :0816
 FN 11: IF QL100  GT 0  GOTO LBL "IFNOT_63"            ; includes/geo.hpp  :0817
 QL99 = QL101 + QL99                                   ; includes/geo.hpp  :0819
  FN 11: IF QL102  GT QL99  GOTO LBL "IFNOT_64"        ; includes/geo.hpp  :0820
  Z+QL99 R0 FMAX                                       ; includes/geo.hpp  :0822
  LBL "IFNOT_64"                                       ; includes/geo.hpp  :0823
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_63"                  ; includes/geo.hpp  :0824
 LBL "IFNOT_63"                                        ; includes/geo.hpp  :0824
 QL99 = QL101 - QL99                                   ; includes/geo.hpp  :0827
  FN 12: IF QL102  LT QL99  GOTO LBL "IFNOT_65"        ; includes/geo.hpp  :0828
  Z+QL99 R0 FMAX                                       ; includes/geo.hpp  :0830
  LBL "IFNOT_65"                                       ; includes/geo.hpp  :0831
 LBL "ENDIF_63"                                        ; includes/geo.hpp  :0832
LBL 0                                                  ; includes/stdlib.hh:0128
LBL "EXIT"                                             ;                   :-001
END PGM MM
