BEGIN PGM 233.h MM ; h++ 2 13 3 2014_05_07
 CALL LBL "MillData.Clear"
 QS23 = "MachiningRange=" || TOCHAR( DAT+Q215 DECIMALS0 )
 CALL LBL "MillData.Write"
 QS23 = "Strategy=" || TOCHAR( DAT+Q389 DECIMALS0 )    ; src/MillFacing.hpp:0016
 CALL LBL "MillData.Write"
 QS23 = "MillMainDir=" || TOCHAR( DAT+Q350 DECIMALS0 ) ; src/MillFacing.hpp:0017
 CALL LBL "MillData.Write"
 QS23 = "LenX=" || TOCHAR( DAT+Q218 DECIMALS4 )        ; src/MillFacing.hpp:0018
 CALL LBL "MillData.Write"
 QS23 = "LenY=" || TOCHAR( DAT+Q219 DECIMALS4 )        ; src/MillFacing.hpp:0019
 CALL LBL "MillData.Write"
 QS23 = "FirstEdgeZ=" || TOCHAR( DAT+Q227 DECIMALS4 )  ; src/MillFacing.hpp:0020
 CALL LBL "MillData.Write"
 QS23 = "SecEdgeZ=" || TOCHAR( DAT+Q386 DECIMALS4 )    ; src/MillFacing.hpp:0021
 CALL LBL "MillData.Write"
 QS23 = "DepthMaxInfeed=" || TOCHAR( DAT+Q202 DECIMALS4 )
 CALL LBL "MillData.Write"
 QS23 = "DepthMaxFinish=" || TOCHAR( DAT+Q338 DECIMALS4 )
 CALL LBL "MillData.Write"
 QS23 = "DepthAllowance=" || TOCHAR( DAT+Q369 DECIMALS4 )
 CALL LBL "MillData.Write"
 QS23 = "LateralAllowance=" || TOCHAR( DAT+Q368 DECIMALS4 )
 CALL LBL "MillData.Write"
 QS23 = "LateralOverrun=" || TOCHAR( DAT+Q357 DECIMALS4 )
 CALL LBL "MillData.Write"
 QS23 = "MaxOverlapFac=" || TOCHAR( DAT+Q370 DECIMALS4 )
 CALL LBL "MillData.Write"
 QS23 = "FeedRough=" || TOCHAR( DAT+Q207 DECIMALS4 )   ; src/MillFacing.hpp:0028
 CALL LBL "MillData.Write"
 QS23 = "FeedFinish=" || TOCHAR( DAT+Q385 DECIMALS4 )  ; src/MillFacing.hpp:0029
 CALL LBL "MillData.Write"
 QS23 = "FeedPre=" || TOCHAR( DAT+Q253 DECIMALS4 )     ; src/MillFacing.hpp:0030
 CALL LBL "MillData.Write"
 QS23 = "SafetyDist=" || TOCHAR( DAT+Q200 DECIMALS4 )  ; src/MillFacing.hpp:0031
 CALL LBL "MillData.Write"
 QS23 = "SafetyDistSec=" || TOCHAR( DAT+Q204 DECIMALS4 )
 CALL LBL "MillData.Write"
 QS23 = "Limit1=" || TOCHAR( DAT+Q347 DECIMALS0 )      ; src/MillFacing.hpp:0033
 CALL LBL "MillData.Write"
 QS23 = "Limit2=" || TOCHAR( DAT+Q348 DECIMALS0 )      ; src/MillFacing.hpp:0034
 CALL LBL "MillData.Write"
 QS23 = "Limit3=" || TOCHAR( DAT+Q349 DECIMALS0 )      ; src/MillFacing.hpp:0035
 CALL LBL "MillData.Write"
 QS23 = "RadiusAtLimit=" || TOCHAR( DAT+Q220 DECIMALS4 )
 CALL LBL "MillData.Write"
 CALL PGM MillCoFacing.CYC
LBL "e_2330"                                           ; src/MillFacing.hpp:0005
FN 9: IF 0 EQU 0 GOTO LBL "EXIT"                       ;                   :-001
LBL "MillData.Clear"                                   ; includes/memory.hpp:0025
 QS20 = "MEMORY..Clear"                                ; includes/memory.hpp:0235
 CALL LBL "fdbg"
 QS14 = ";"                                            ; includes/memory.hpp:0236
 QS15 = "="                                            ; includes/memory.hpp:0237
 QS9 = ""                                              ; includes/memory.hpp:0240
 QS10 = ""                                             ; includes/memory.hpp:0240
 QS11 = ""                                             ; includes/memory.hpp:0240
 QS12 = ""                                             ; includes/memory.hpp:0240
 QS13 = ""                                             ; includes/memory.hpp:0240
 Q4 = 0                                                ; includes/memory.hpp:0242
LBL 0                                                  ; includes/memory.hpp:0025
LBL "MillData.Write"                                   ; includes/memory.hpp:0022
 QS20 = "MEMORY..Write"                                ; includes/memory.hpp:0051
 CALL LBL "fdbg"
 QL3 = STRLEN( SRC_ QS23 )                             ; includes/memory.hpp:0055
 FN 10: IF QL3 NE 0 GOTO LBL "IFNOT_2"                 ; includes/memory.hpp:0056
 QL1 = 0                                               ; includes/memory.hpp:0056
 LBL 0                                                 ; includes/memory.hpp:0056
 LBL "IFNOT_2"                                         ; includes/memory.hpp:0056
 QL2 = INSTR( SRC_ QS23 SEA_ QS15 BEG 0 )              ; includes/memory.hpp:0060
 FN 9: IF QL3 EQU QL2 GOTO LBL "IFNOT_3"               ; includes/memory.hpp:0061
 FN 11: IF QL3 GT QL2 GOTO LBL "IFNOT_3"               ; includes/memory.hpp:0061
 QS20 = " Missing registration"                        ; includes/memory.hpp:0063
 CALL LBL "fdbg"
 QL1 = 1                                               ; includes/memory.hpp:0064
 LBL 0                                                 ; includes/memory.hpp:0064
 LBL "IFNOT_3"                                         ; includes/memory.hpp:0065
 QL2 = QL2 + 1                                         ; includes/memory.hpp:0066
 QS18 = SUBSTR( SRC_ QS23 BEG 0 LEN QL2 )              ; includes/memory.hpp:0067
  FN 11: IF 0 GT Q4 GOTO LBL "FORR4_4"                 ; includes/memory.hpp:0073
 QL3 = STRLEN( SRC_ QS9 ) - INSTR( SRC_ QS9 SEA_ QS18 BEG 0 )
  FN 9: IF QL3 EQU 0 GOTO LBL "IFNOT_6"                ; includes/memory.hpp:0075
  QL2 = INSTR( SRC_ QS9 SEA_ QS18 BEG 0 )              ; includes/memory.hpp:0077
  QS16 = ""                                            ; includes/memory.hpp:0078
   FN 9: IF QL2 EQU 0 GOTO LBL "IFNOT_7"               ; includes/memory.hpp:0080
   QS16 = SUBSTR( SRC_ QS9 BEG 0 LEN QL2 )             ; includes/memory.hpp:0082
   LBL "IFNOT_7"                                       ; includes/memory.hpp:0083
  QL2 = INSTR( SRC_ QS9 SEA_ QS14 BEG QL2 ) + 1        ; includes/memory.hpp:0085
  QL3 = STRLEN( SRC_ QS9 ) - QL2                       ; includes/memory.hpp:0086
  QS17 = ""                                            ; includes/memory.hpp:0087
   FN 9: IF QL3 EQU 0 GOTO LBL "IFNOT_8"               ; includes/memory.hpp:0089
   QS17 = SUBSTR( SRC_ QS9 BEG QL2 LEN QL3 )           ; includes/memory.hpp:0091
   LBL "IFNOT_8"                                       ; includes/memory.hpp:0092
  QS9 = QS16 || QS17                                   ; includes/memory.hpp:0093
  LBL "IFNOT_6"                                        ; includes/memory.hpp:0094
 LBL "FORR0_4"                                         ; includes/memory.hpp:0095
  FN 11: IF 1 GT Q4 GOTO LBL "FORR4_4"                 ; includes/memory.hpp:0073
 QL3 = STRLEN( SRC_ QS10 ) - INSTR( SRC_ QS10 SEA_ QS18 BEG 0 )
  FN 9: IF QL3 EQU 0 GOTO LBL "IFNOT_10"               ; includes/memory.hpp:0075
  QL2 = INSTR( SRC_ QS10 SEA_ QS18 BEG 0 )             ; includes/memory.hpp:0077
  QS16 = ""                                            ; includes/memory.hpp:0078
   FN 9: IF QL2 EQU 0 GOTO LBL "IFNOT_11"              ; includes/memory.hpp:0080
   QS16 = SUBSTR( SRC_ QS10 BEG 0 LEN QL2 )            ; includes/memory.hpp:0082
   LBL "IFNOT_11"                                      ; includes/memory.hpp:0083
  QL2 = INSTR( SRC_ QS10 SEA_ QS14 BEG QL2 ) + 1       ; includes/memory.hpp:0085
  QL3 = STRLEN( SRC_ QS10 ) - QL2                      ; includes/memory.hpp:0086
  QS17 = ""                                            ; includes/memory.hpp:0087
   FN 9: IF QL3 EQU 0 GOTO LBL "IFNOT_12"              ; includes/memory.hpp:0089
   QS17 = SUBSTR( SRC_ QS10 BEG QL2 LEN QL3 )          ; includes/memory.hpp:0091
   LBL "IFNOT_12"                                      ; includes/memory.hpp:0092
  QS10 = QS16 || QS17                                  ; includes/memory.hpp:0093
  LBL "IFNOT_10"                                       ; includes/memory.hpp:0094
 LBL "FORR1_4"                                         ; includes/memory.hpp:0095
  FN 11: IF 2 GT Q4 GOTO LBL "FORR4_4"                 ; includes/memory.hpp:0073
 QL3 = STRLEN( SRC_ QS11 ) - INSTR( SRC_ QS11 SEA_ QS18 BEG 0 )
  FN 9: IF QL3 EQU 0 GOTO LBL "IFNOT_14"               ; includes/memory.hpp:0075
  QL2 = INSTR( SRC_ QS11 SEA_ QS18 BEG 0 )             ; includes/memory.hpp:0077
  QS16 = ""                                            ; includes/memory.hpp:0078
   FN 9: IF QL2 EQU 0 GOTO LBL "IFNOT_15"              ; includes/memory.hpp:0080
   QS16 = SUBSTR( SRC_ QS11 BEG 0 LEN QL2 )            ; includes/memory.hpp:0082
   LBL "IFNOT_15"                                      ; includes/memory.hpp:0083
  QL2 = INSTR( SRC_ QS11 SEA_ QS14 BEG QL2 ) + 1       ; includes/memory.hpp:0085
  QL3 = STRLEN( SRC_ QS11 ) - QL2                      ; includes/memory.hpp:0086
  QS17 = ""                                            ; includes/memory.hpp:0087
   FN 9: IF QL3 EQU 0 GOTO LBL "IFNOT_16"              ; includes/memory.hpp:0089
   QS17 = SUBSTR( SRC_ QS11 BEG QL2 LEN QL3 )          ; includes/memory.hpp:0091
   LBL "IFNOT_16"                                      ; includes/memory.hpp:0092
  QS11 = QS16 || QS17                                  ; includes/memory.hpp:0093
  LBL "IFNOT_14"                                       ; includes/memory.hpp:0094
 LBL "FORR2_4"                                         ; includes/memory.hpp:0095
  FN 11: IF 3 GT Q4 GOTO LBL "FORR4_4"                 ; includes/memory.hpp:0073
 QL3 = STRLEN( SRC_ QS12 ) - INSTR( SRC_ QS12 SEA_ QS18 BEG 0 )
  FN 9: IF QL3 EQU 0 GOTO LBL "IFNOT_18"               ; includes/memory.hpp:0075
  QL2 = INSTR( SRC_ QS12 SEA_ QS18 BEG 0 )             ; includes/memory.hpp:0077
  QS16 = ""                                            ; includes/memory.hpp:0078
   FN 9: IF QL2 EQU 0 GOTO LBL "IFNOT_19"              ; includes/memory.hpp:0080
   QS16 = SUBSTR( SRC_ QS12 BEG 0 LEN QL2 )            ; includes/memory.hpp:0082
   LBL "IFNOT_19"                                      ; includes/memory.hpp:0083
  QL2 = INSTR( SRC_ QS12 SEA_ QS14 BEG QL2 ) + 1       ; includes/memory.hpp:0085
  QL3 = STRLEN( SRC_ QS12 ) - QL2                      ; includes/memory.hpp:0086
  QS17 = ""                                            ; includes/memory.hpp:0087
   FN 9: IF QL3 EQU 0 GOTO LBL "IFNOT_20"              ; includes/memory.hpp:0089
   QS17 = SUBSTR( SRC_ QS12 BEG QL2 LEN QL3 )          ; includes/memory.hpp:0091
   LBL "IFNOT_20"                                      ; includes/memory.hpp:0092
  QS12 = QS16 || QS17                                  ; includes/memory.hpp:0093
  LBL "IFNOT_18"                                       ; includes/memory.hpp:0094
 LBL "FORR3_4"                                         ; includes/memory.hpp:0095
  FN 11: IF 4 GT Q4 GOTO LBL "FORR4_4"                 ; includes/memory.hpp:0073
 QL3 = STRLEN( SRC_ QS13 ) - INSTR( SRC_ QS13 SEA_ QS18 BEG 0 )
  FN 9: IF QL3 EQU 0 GOTO LBL "IFNOT_22"               ; includes/memory.hpp:0075
  QL2 = INSTR( SRC_ QS13 SEA_ QS18 BEG 0 )             ; includes/memory.hpp:0077
  QS16 = ""                                            ; includes/memory.hpp:0078
   FN 9: IF QL2 EQU 0 GOTO LBL "IFNOT_23"              ; includes/memory.hpp:0080
   QS16 = SUBSTR( SRC_ QS13 BEG 0 LEN QL2 )            ; includes/memory.hpp:0082
   LBL "IFNOT_23"                                      ; includes/memory.hpp:0083
  QL2 = INSTR( SRC_ QS13 SEA_ QS14 BEG QL2 ) + 1       ; includes/memory.hpp:0085
  QL3 = STRLEN( SRC_ QS13 ) - QL2                      ; includes/memory.hpp:0086
  QS17 = ""                                            ; includes/memory.hpp:0087
   FN 9: IF QL3 EQU 0 GOTO LBL "IFNOT_24"              ; includes/memory.hpp:0089
   QS17 = SUBSTR( SRC_ QS13 BEG QL2 LEN QL3 )          ; includes/memory.hpp:0091
   LBL "IFNOT_24"                                      ; includes/memory.hpp:0092
  QS13 = QS16 || QS17                                  ; includes/memory.hpp:0093
  LBL "IFNOT_22"                                       ; includes/memory.hpp:0094
 LBL "FORR4_4"                                         ; includes/memory.hpp:0095
 QL3 = STRLEN( SRC_ QS9 ) + STRLEN( SRC_ QS23 )        ; includes/memory.hpp:0101
  FN 9: IF QL3 EQU 2040 GOTO LBL "IFNOT_26"            ; includes/memory.hpp:0102
  FN 11: IF QL3 GT 2040 GOTO LBL "IFNOT_26"            ; includes/memory.hpp:0102
  QS9 = QS9 || QS23 || QS14                            ; includes/memory.hpp:0104
   FN 9: IF 0 EQU Q4 GOTO LBL "IFNOT_27"               ; includes/memory.hpp:0105
   FN 12: IF 0 LT Q4 GOTO LBL "IFNOT_27"               ; includes/memory.hpp:0105
   Q4 = 0                                              ; includes/memory.hpp:0106
   LBL "IFNOT_27"                                      ; includes/memory.hpp:0106
  QS20 = " registration: " || QS23                     ; includes/memory.hpp:0107
  CALL LBL "fdbg"
  QL1 = 0                                              ; includes/memory.hpp:0108
  LBL 0                                                ; includes/memory.hpp:0108
  LBL "IFNOT_26"                                       ; includes/memory.hpp:0109
 QL3 = STRLEN( SRC_ QS10 ) + STRLEN( SRC_ QS23 )       ; includes/memory.hpp:0101
  FN 9: IF QL3 EQU 2040 GOTO LBL "IFNOT_28"            ; includes/memory.hpp:0102
  FN 11: IF QL3 GT 2040 GOTO LBL "IFNOT_28"            ; includes/memory.hpp:0102
  QS10 = QS10 || QS23 || QS14                          ; includes/memory.hpp:0104
   FN 9: IF 1 EQU Q4 GOTO LBL "IFNOT_29"               ; includes/memory.hpp:0105
   FN 12: IF 1 LT Q4 GOTO LBL "IFNOT_29"               ; includes/memory.hpp:0105
   Q4 = 1                                              ; includes/memory.hpp:0106
   LBL "IFNOT_29"                                      ; includes/memory.hpp:0106
  QS20 = " registration: " || QS23                     ; includes/memory.hpp:0107
  CALL LBL "fdbg"
  QL1 = 0                                              ; includes/memory.hpp:0108
  LBL 0                                                ; includes/memory.hpp:0108
  LBL "IFNOT_28"                                       ; includes/memory.hpp:0109
 QL3 = STRLEN( SRC_ QS11 ) + STRLEN( SRC_ QS23 )       ; includes/memory.hpp:0101
  FN 9: IF QL3 EQU 2040 GOTO LBL "IFNOT_30"            ; includes/memory.hpp:0102
  FN 11: IF QL3 GT 2040 GOTO LBL "IFNOT_30"            ; includes/memory.hpp:0102
  QS11 = QS11 || QS23 || QS14                          ; includes/memory.hpp:0104
   FN 9: IF 2 EQU Q4 GOTO LBL "IFNOT_31"               ; includes/memory.hpp:0105
   FN 12: IF 2 LT Q4 GOTO LBL "IFNOT_31"               ; includes/memory.hpp:0105
   Q4 = 2                                              ; includes/memory.hpp:0106
   LBL "IFNOT_31"                                      ; includes/memory.hpp:0106
  QS20 = " registration: " || QS23                     ; includes/memory.hpp:0107
  CALL LBL "fdbg"
  QL1 = 0                                              ; includes/memory.hpp:0108
  LBL 0                                                ; includes/memory.hpp:0108
  LBL "IFNOT_30"                                       ; includes/memory.hpp:0109
 QL3 = STRLEN( SRC_ QS12 ) + STRLEN( SRC_ QS23 )       ; includes/memory.hpp:0101
  FN 9: IF QL3 EQU 2040 GOTO LBL "IFNOT_32"            ; includes/memory.hpp:0102
  FN 11: IF QL3 GT 2040 GOTO LBL "IFNOT_32"            ; includes/memory.hpp:0102
  QS12 = QS12 || QS23 || QS14                          ; includes/memory.hpp:0104
   FN 9: IF 3 EQU Q4 GOTO LBL "IFNOT_33"               ; includes/memory.hpp:0105
   FN 12: IF 3 LT Q4 GOTO LBL "IFNOT_33"               ; includes/memory.hpp:0105
   Q4 = 3                                              ; includes/memory.hpp:0106
   LBL "IFNOT_33"                                      ; includes/memory.hpp:0106
  QS20 = " registration: " || QS23                     ; includes/memory.hpp:0107
  CALL LBL "fdbg"
  QL1 = 0                                              ; includes/memory.hpp:0108
  LBL 0                                                ; includes/memory.hpp:0108
  LBL "IFNOT_32"                                       ; includes/memory.hpp:0109
 QL3 = STRLEN( SRC_ QS13 ) + STRLEN( SRC_ QS23 )       ; includes/memory.hpp:0101
  FN 9: IF QL3 EQU 2040 GOTO LBL "IFNOT_34"            ; includes/memory.hpp:0102
  FN 11: IF QL3 GT 2040 GOTO LBL "IFNOT_34"            ; includes/memory.hpp:0102
  QS13 = QS13 || QS23 || QS14                          ; includes/memory.hpp:0104
   FN 9: IF 4 EQU Q4 GOTO LBL "IFNOT_35"               ; includes/memory.hpp:0105
   FN 12: IF 4 LT Q4 GOTO LBL "IFNOT_35"               ; includes/memory.hpp:0105
   Q4 = 4                                              ; includes/memory.hpp:0106
   LBL "IFNOT_35"                                      ; includes/memory.hpp:0106
  QS20 = " registration: " || QS23                     ; includes/memory.hpp:0107
  CALL LBL "fdbg"
  QL1 = 0                                              ; includes/memory.hpp:0108
  LBL 0                                                ; includes/memory.hpp:0108
  LBL "IFNOT_34"                                       ; includes/memory.hpp:0109
 QS20 = " Overflow: " || QS23                          ; includes/memory.hpp:0114
 CALL LBL "fdbg"
 QL1 = 2                                               ; includes/memory.hpp:0115
 LBL 0                                                 ; includes/memory.hpp:0115
LBL 0                                                  ; includes/memory.hpp:0022
LBL "fdbg"                                             ; includes/stdlib.hh:0206
 FN 18: SYSREAD Q0 = ID 992 NR 16                      ; includes/stream.hpp:0063
 FN 10: IF Q0 NE 1 GOTO LBL "IFNOT_36"                 ; includes/stream.hpp:0063
 QS8 = QS20                                            ; includes/stream.hpp:0065
 FN 16: F-PRINT MillCoprintfile.a / PLC:\service\cycle_log.A
 LBL "IFNOT_36"                                        ; includes/stream.hpp:0071
LBL 0                                                  ; includes/stdlib.hh:0206
LBL "EXIT"                                             ;                   :-001
END PGM MM
