BEGIN PGM ProbeCoCal.h MM ; h++_2_10 2012_10_26
QL0 = 1                                                ; src/sub/ProbeCoCal.hpp:0007
CALL LBL "Probe.PROBE"                                 ; src/sub/ProbeCoCal.hpp:0007
CALL LBL "Query.QUERY"                                 ; src/sub/ProbeCoCal.hpp:0008
 QL17 = Q10                                            ; includes/probe.hpp:1571
 FN 9: IF +0 EQU +0 GOTO LBL "e_Probe.get_Safety1"     ; includes/probe.hpp:1571
 LBL "e_Probe.get_Safety1"                             ; includes/probe.hpp:0146
 FN 18: SYSREAD QL2 = ID 990 NR 2 IDX 16               ; src/sub/ProbeCoCal.hpp:0056
 FN 10: IF QL2  NE 1  GOTO LBL "IFNOT_1"               ; src/sub/ProbeCoCal.hpp:0057
  CALL LBL "state_exec"                                ; src/sub/ProbeCoCal.hpp:0059
  Q0 = QL36                                            ; src/sub/ProbeCoCal.hpp:0059
  FN 10: IF Q0  NE 0  GOTO LBL "EXIT"                  ; src/sub/ProbeCoCal.hpp:0059
  FN 18: SYSREAD Q0 = ID 210 NR 9                      ; includes/probe.hpp:0749
  FN 9: IF Q0  EQU 0  GOTO LBL "IFNOT_3"               ; includes/probe.hpp:0749
   FN 14: ERROR= 1112                                  ; includes/probe.hpp:0751
  LBL "IFNOT_3"                                        ; includes/probe.hpp:0752
  CALL LBL "Probe.set_dataquery"                       ; src/sub/ProbeCoCal.hpp:0062
  Q909 = Q14                                           ; includes/probe.hpp:1578
  FN 9: IF +0 EQU +0 GOTO LBL "e_Probe.get_ProbePosAngle1"
  LBL "e_Probe.get_ProbePosAngle1"                     ; includes/probe.hpp:0147
  QL12 = Q407                                          ; src/sub/ProbeCoCal.hpp:0064
  QL13 = Q320                                          ; src/sub/ProbeCoCal.hpp:0065
  QL7 = Q301                                           ; src/sub/ProbeCoCal.hpp:0066
  QL14 = Q380                                          ; src/sub/ProbeCoCal.hpp:0067
  QL5 = Q423                                           ; src/sub/ProbeCoCal.hpp:0068
  QL6 = Q433                                           ; src/sub/ProbeCoCal.hpp:0069
  QL15 = Q434                                          ; src/sub/ProbeCoCal.hpp:0070
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_1"                   ; src/sub/ProbeCoCal.hpp:0071
 LBL "IFNOT_1"                                         ; src/sub/ProbeCoCal.hpp:0071
  FN 9: IF 0 EQU 0 GOTO LBL "EXIT"                     ; src/sub/ProbeCoCal.hpp:0075
 LBL "ENDIF_1"                                         ; src/sub/ProbeCoCal.hpp:0109
 FN 18: SYSREAD Q0 = ID 210 NR 3                       ; includes/probe.hpp:0797
 FN 9: IF Q0  EQU 0  GOTO LBL "IFNOT_4"                ; includes/probe.hpp:0797
  FN 14: ERROR= 1008                                   ; includes/probe.hpp:0799
 LBL "IFNOT_4"                                         ; includes/probe.hpp:0800
 FN 18: SYSREAD Q0 = ID 210 NR 4 IDX 1                 ; includes/probe.hpp:0807
 FN 9: IF Q0  EQU 1  GOTO LBL "IFNOT_5"                ; includes/probe.hpp:0807
  FN 14: ERROR= 1007                                   ; includes/probe.hpp:0809
 LBL "IFNOT_5"                                         ; includes/probe.hpp:0810
 FN 18: SYSREAD Q0 = ID 210 NR 4 IDX 2                 ; includes/probe.hpp:0811
 FN 9: IF Q0  EQU 1  GOTO LBL "IFNOT_6"                ; includes/probe.hpp:0811
  FN 14: ERROR= 1007                                   ; includes/probe.hpp:0813
 LBL "IFNOT_6"                                         ; includes/probe.hpp:0814
 FN 18: SYSREAD Q0 = ID 210 NR 4 IDX 3                 ; includes/probe.hpp:0815
 FN 9: IF Q0  EQU 1  GOTO LBL "IFNOT_7"                ; includes/probe.hpp:0815
  FN 14: ERROR= 1007                                   ; includes/probe.hpp:0817
 LBL "IFNOT_7"                                         ; includes/probe.hpp:0818
 QL37 = 3                                              ; src/sub/ProbeCoCal.hpp:0118
 CALL LBL "swap_axes"                                  ; src/sub/ProbeCoCal.hpp:0118
 FN 17: SYSWRITE ID 990 NR 1 = 1                       ; src/sub/ProbeCoCal.hpp:0119
 QS11 = "---"                                          ; src/sub/ProbeCoCal.hpp:0120
 QS12 = "---"                                          ; src/sub/ProbeCoCal.hpp:0121
 QL9 = Q10                                             ; includes/probe.hpp:1571
 FN 9: IF +0 EQU +0 GOTO LBL "e_Probe.get_Safety2"     ; includes/probe.hpp:1571
 LBL "e_Probe.get_Safety2"                             ; includes/probe.hpp:0146
 QL11 = Q6                                             ; includes/probe.hpp:1557
 FN 9: IF +0 EQU +0 GOTO LBL "e_Probe.get_ProbeRad1"   ; includes/probe.hpp:1557
 LBL "e_Probe.get_ProbeRad1"                           ; includes/probe.hpp:0144
 FN 18: SYSREAD QL10 = ID 350 NR 12 IDX 0              ; src/sub/ProbeCoCal.hpp:0129
 FN 9: IF Q195 EQU 0 GOTO LBL "CASE0_8"                ; src/sub/ProbeCoCal.hpp:0133
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_8"               ; src/sub/ProbeCoCal.hpp:0133
  LBL "CASE0_8"                                        ; src/sub/ProbeCoCal.hpp:0135
  FN 17: SYSWRITE ID 350 NR 15 = Q909                  ; includes/probe.hpp:0413
  Q14 = Q909                                           ; includes/probe.hpp:0417
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_8"              ; src/sub/ProbeCoCal.hpp:0137
  LBL "SWITCHDEF_8"                                    ; src/sub/ProbeCoCal.hpp:0138
  FN 17: SYSWRITE ID 350 NR 12 = QL10                  ; includes/probe.hpp:0394
  FN 17: SYSWRITE ID 350 NR 11 = 0                     ; includes/probe.hpp:0395
  FN 17: SYSWRITE ID 350 NR 14 IDX1 = 0                ; includes/probe.hpp:0396
  FN 17: SYSWRITE ID 350 NR 14 IDX2 = 0                ; includes/probe.hpp:0397
  FN 17: SYSWRITE ID 350 NR 15 = Q909                  ; includes/probe.hpp:0413
  Q14 = Q909                                           ; includes/probe.hpp:0417
 LBL "SWITCHEND_8"                                     ; src/sub/ProbeCoCal.hpp:0140
 CALL LBL "read_wcs"                                   ; src/sub/ProbeCoCal.hpp:0144
 QL18 = QL38                                           ; src/sub/ProbeCoCal.hpp:0144
 QL19 = QL39                                           ; src/sub/ProbeCoCal.hpp:0144
 QL20 = QL40                                           ; src/sub/ProbeCoCal.hpp:0144
 QL16 = QL20                                           ; src/sub/ProbeCoCal.hpp:0145
 FN 9: IF Q195 EQU 1 GOTO LBL "CASE0_9"                ; src/sub/ProbeCoCal.hpp:0149
 FN 9: IF Q195 EQU 2 GOTO LBL "CASE1_9"                ; src/sub/ProbeCoCal.hpp:0149
 FN 9: IF Q195 EQU 3 GOTO LBL "CASE2_9"                ; src/sub/ProbeCoCal.hpp:0149
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_9"               ; src/sub/ProbeCoCal.hpp:0149
  LBL "CASE0_9"                                        ; src/sub/ProbeCoCal.hpp:0151
  QL20 = QL20 + Q902                                   ; src/sub/ProbeCoCal.hpp:0152
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_9"              ; src/sub/ProbeCoCal.hpp:0153
  LBL "CASE1_9"                                        ; src/sub/ProbeCoCal.hpp:0154
  QL20 = QL20 - ( QL9 + QL11 + QL13 )                  ; src/sub/ProbeCoCal.hpp:0155
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_9"              ; src/sub/ProbeCoCal.hpp:0156
  LBL "CASE2_9"                                        ; src/sub/ProbeCoCal.hpp:0157
  QL41 = QL12                                          ; src/sub/ProbeCoCal.hpp:0158
  QL42 = QL20-QL9-QL12-QL13                            ; src/sub/ProbeCoCal.hpp:0158
  QL43 = 0.002                                         ; src/sub/ProbeCoCal.hpp:0158
  QL44 = QL14                                          ; src/sub/ProbeCoCal.hpp:0158
  QL45 = QL13                                          ; src/sub/ProbeCoCal.hpp:0158
  CALL LBL "Probe.find_aequator"                       ; src/sub/ProbeCoCal.hpp:0158
  CALL LBL "read_wcs"                                  ; src/sub/ProbeCoCal.hpp:0159
  QL20 = QL40                                          ; src/sub/ProbeCoCal.hpp:0159
  QL20 = QL20 + Q902                                   ; src/sub/ProbeCoCal.hpp:0160
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_9"              ; src/sub/ProbeCoCal.hpp:0161
 LBL "SWITCHEND_9"                                     ; src/sub/ProbeCoCal.hpp:0162
 QL3 = 1                                               ; src/sub/ProbeCoCal.hpp:0166
 FN 9: IF Q195 EQU 0 GOTO LBL "CASE0_10"               ; src/sub/ProbeCoCal.hpp:0167
 FN 9: IF Q195 EQU 1 GOTO LBL "CASE1_10"               ; src/sub/ProbeCoCal.hpp:0167
 FN 9: IF Q195 EQU 2 GOTO LBL "CASE2_10"               ; src/sub/ProbeCoCal.hpp:0167
 FN 9: IF Q195 EQU 3 GOTO LBL "CASE3_10"               ; src/sub/ProbeCoCal.hpp:0167
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_10"              ; src/sub/ProbeCoCal.hpp:0167
  LBL "CASE0_10"                                       ; src/sub/ProbeCoCal.hpp:0169
  QL24 = QL18                                          ; src/sub/ProbeCoCal.hpp:0170
  QL25 = QL19                                          ; src/sub/ProbeCoCal.hpp:0171
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_10"             ; src/sub/ProbeCoCal.hpp:0172
  LBL "CASE1_10"                                       ; src/sub/ProbeCoCal.hpp:0173
  QL3 = 0                                              ; src/sub/ProbeCoCal.hpp:0174
  LBL "CASE2_10"                                       ; src/sub/ProbeCoCal.hpp:0175
  LBL "CASE3_10"                                       ; src/sub/ProbeCoCal.hpp:0176
  QL46 = 0                                             ; src/sub/ProbeCoCal.hpp:0180
  QL47 = 1                                             ; src/sub/ProbeCoCal.hpp:0180
  CALL LBL "Probe.ori_spindle"                         ; src/sub/ProbeCoCal.hpp:0180
  QL1 = QL48                                           ; src/sub/ProbeCoCal.hpp:0180
  QL24 = QL18                                          ; src/sub/ProbeCoCal.hpp:0184
  QL25 = QL19                                          ; src/sub/ProbeCoCal.hpp:0185
  QL21=0                                               ; src/sub/ProbeCoCal.hpp:0186
  FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_11"                ; src/sub/ProbeCoCal.hpp:0186
  LBL "FOR_11"                                         ; src/sub/ProbeCoCal.hpp:0186
  QL21 = QL21 + 1                                      ; src/sub/ProbeCoCal.hpp:0186
  LBL "FORCMP_11"                                      ; src/sub/ProbeCoCal.hpp:0186
  FN 9: IF QL21 EQU 2   GOTO LBL "FORNOT_11"           ; src/sub/ProbeCoCal.hpp:0186
  FN 11: IF QL21 GT 2   GOTO LBL "FORNOT_11"           ; src/sub/ProbeCoCal.hpp:0186
   QL49 = QL3                                          ; src/sub/ProbeCoCal.hpp:0189
   QL50 = QL12                                         ; src/sub/ProbeCoCal.hpp:0189
   QL51 = QL24                                         ; src/sub/ProbeCoCal.hpp:0189
   QL52 = QL25                                         ; src/sub/ProbeCoCal.hpp:0189
   QL53 = QL20                                         ; src/sub/ProbeCoCal.hpp:0189
   QL54 = QL14                                         ; src/sub/ProbeCoCal.hpp:0189
   QL55 = QL5                                          ; src/sub/ProbeCoCal.hpp:0189
   QL56 = QL7                                          ; src/sub/ProbeCoCal.hpp:0189
   QL57 = QL16                                         ; src/sub/ProbeCoCal.hpp:0189
   QL58 = QL13                                         ; src/sub/ProbeCoCal.hpp:0189
   CALL LBL "Probe.meas_circle"                        ; src/sub/ProbeCoCal.hpp:0189
   QL24 = QL59                                         ; src/sub/ProbeCoCal.hpp:0189
   QL25 = QL60                                         ; src/sub/ProbeCoCal.hpp:0189
   QL30 = QL61                                         ; src/sub/ProbeCoCal.hpp:0189
  FN 9: IF 0 EQU 0 GOTO LBL "FOR_11"                   ; src/sub/ProbeCoCal.hpp:0190
  LBL "FORNOT_11"                                      ; src/sub/ProbeCoCal.hpp:0190
  FN 10: IF QL1  NE 1  GOTO LBL "IFNOT_12"             ; src/sub/ProbeCoCal.hpp:0194
   QL46 = 180                                          ; src/sub/ProbeCoCal.hpp:0196
   QL47 = 1                                            ; src/sub/ProbeCoCal.hpp:0196
   CALL LBL "Probe.ori_spindle"                        ; src/sub/ProbeCoCal.hpp:0196
   QL49 = QL3                                          ; src/sub/ProbeCoCal.hpp:0198
   QL50 = QL12                                         ; src/sub/ProbeCoCal.hpp:0198
   QL51 = QL24                                         ; src/sub/ProbeCoCal.hpp:0198
   QL52 = QL25                                         ; src/sub/ProbeCoCal.hpp:0198
   QL53 = QL20                                         ; src/sub/ProbeCoCal.hpp:0198
   QL54 = QL14                                         ; src/sub/ProbeCoCal.hpp:0198
   QL55 = QL5                                          ; src/sub/ProbeCoCal.hpp:0198
   QL56 = QL7                                          ; src/sub/ProbeCoCal.hpp:0198
   QL57 = QL16                                         ; src/sub/ProbeCoCal.hpp:0198
   QL58 = QL13                                         ; src/sub/ProbeCoCal.hpp:0198
   CALL LBL "Probe.meas_circle"                        ; src/sub/ProbeCoCal.hpp:0198
   QL27 = QL59                                         ; src/sub/ProbeCoCal.hpp:0198
   QL28 = QL60                                         ; src/sub/ProbeCoCal.hpp:0198
   QL31 = QL61                                         ; src/sub/ProbeCoCal.hpp:0198
   QL32 = ( QL27 - QL24 ) / 2                          ; src/sub/ProbeCoCal.hpp:0199
   QL33 = ( QL28 - QL25 ) / 2                          ; src/sub/ProbeCoCal.hpp:0200
   FN 10: IF QL3  NE 1  GOTO LBL "IFNOT_13"            ; src/sub/ProbeCoCal.hpp:0201
    QL35 =  ( QL30 + QL31 ) / 2 - QL12                 ; src/sub/ProbeCoCal.hpp:0203
   FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_13"                ; src/sub/ProbeCoCal.hpp:0204
   LBL "IFNOT_13"                                      ; src/sub/ProbeCoCal.hpp:0204
    QL35 = QL12 - ( QL30 + QL31 ) / 2                  ; src/sub/ProbeCoCal.hpp:0207
   LBL "ENDIF_13"                                      ; src/sub/ProbeCoCal.hpp:0208
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_12"                 ; src/sub/ProbeCoCal.hpp:0209
  LBL "IFNOT_12"                                       ; src/sub/ProbeCoCal.hpp:0209
   Q909 = 0                                            ; src/sub/ProbeCoCal.hpp:0212
   QL32 = 0                                            ; src/sub/ProbeCoCal.hpp:0213
   QL33 = 0                                            ; src/sub/ProbeCoCal.hpp:0214
   FN 10: IF QL3  NE 1  GOTO LBL "IFNOT_14"            ; src/sub/ProbeCoCal.hpp:0215
    QL35 = QL30 - QL12                                 ; src/sub/ProbeCoCal.hpp:0217
   FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_14"                ; src/sub/ProbeCoCal.hpp:0218
   LBL "IFNOT_14"                                      ; src/sub/ProbeCoCal.hpp:0218
    QL35 = QL12 - QL30                                 ; src/sub/ProbeCoCal.hpp:0221
   LBL "ENDIF_14"                                      ; src/sub/ProbeCoCal.hpp:0222
  LBL "ENDIF_12"                                       ; src/sub/ProbeCoCal.hpp:0223
  Z+QL16 R0 FMAX                                       ; src/sub/ProbeCoCal.hpp:0224
  L  X+QL24 Y+QL25                                     ; src/sub/ProbeCoCal.hpp:0229
  Q905 = QL10                                          ; src/sub/ProbeCoCal.hpp:0234
  Q906 = QL35                                          ; src/sub/ProbeCoCal.hpp:0235
  Q907  = QL32                                         ; src/sub/ProbeCoCal.hpp:0236
  Q908  = QL33                                         ; src/sub/ProbeCoCal.hpp:0237
  QS11 = TOCHAR( DAT+QL12 DECIMALS 4 )                 ; src/sub/ProbeCoCal.hpp:0238
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_10"             ; src/sub/ProbeCoCal.hpp:0239
 LBL "SWITCHEND_10"                                    ; src/sub/ProbeCoCal.hpp:0240
 FN 9: IF QL6  EQU 0  GOTO LBL "IFNOT_15"              ; src/sub/ProbeCoCal.hpp:0244
  QL46 = 0                                             ; src/sub/ProbeCoCal.hpp:0246
  QL47 = 0                                             ; src/sub/ProbeCoCal.hpp:0246
  CALL LBL "Probe.ori_spindle"                         ; src/sub/ProbeCoCal.hpp:0246
  CALL LBL "read_wcs"                                  ; src/sub/ProbeCoCal.hpp:0247
  QL22 = QL40                                          ; src/sub/ProbeCoCal.hpp:0247
  FN 9: IF QL6 EQU +1 GOTO LBL "CASE0_16"              ; src/sub/ProbeCoCal.hpp:0248
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_16"             ; src/sub/ProbeCoCal.hpp:0248
   LBL "CASE0_16"                                      ; src/sub/ProbeCoCal.hpp:0250
   QL23 = 180                                          ; src/sub/ProbeCoCal.hpp:0251
   FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_16"            ; src/sub/ProbeCoCal.hpp:0252
   LBL "SWITCHDEF_16"                                  ; src/sub/ProbeCoCal.hpp:0253
   QL23 = 0                                            ; src/sub/ProbeCoCal.hpp:0254
  LBL "SWITCHEND_16"                                   ; src/sub/ProbeCoCal.hpp:0255
  Q0 = QL22-QL13                                       ; src/sub/ProbeCoCal.hpp:0256
  QL62 = 1                                             ; src/sub/ProbeCoCal.hpp:0257
  QL63 = QL24                                          ; src/sub/ProbeCoCal.hpp:0257
  QL64 = QL25                                          ; src/sub/ProbeCoCal.hpp:0257
  QL65 = Q0                                            ; src/sub/ProbeCoCal.hpp:0257
  QL66 = 3                                             ; src/sub/ProbeCoCal.hpp:0257
  QL67 = QL23                                          ; src/sub/ProbeCoCal.hpp:0257
  QL68 = QL16                                          ; src/sub/ProbeCoCal.hpp:0257
  QL69 = QL13                                          ; src/sub/ProbeCoCal.hpp:0257
  CALL LBL "Probe.meas_pos"                            ; src/sub/ProbeCoCal.hpp:0257
  QL22 = QL72                                          ; src/sub/ProbeCoCal.hpp:0257
  QL34 = QL22 - QL12 - QL15                            ; src/sub/ProbeCoCal.hpp:0259
  Q905 = QL34                                          ; src/sub/ProbeCoCal.hpp:0263
  QS12 = TOCHAR( DAT+QL15 DECIMALS 4 )                 ; src/sub/ProbeCoCal.hpp:0264
 LBL "IFNOT_15"                                        ; src/sub/ProbeCoCal.hpp:0265
 CALL LBL "Probe.reset_caldata_tmp"                    ; src/sub/ProbeCoCal.hpp:0269
 FN 10: IF QL2  NE 1  GOTO LBL "IFNOT_17"              ; src/sub/ProbeCoCal.hpp:0273
  QL73 = Q905                                          ; src/sub/ProbeCoCal.hpp:0275
  QL74 = Q906                                          ; src/sub/ProbeCoCal.hpp:0275
  QL75 = Q907                                          ; src/sub/ProbeCoCal.hpp:0275
  QL76 = Q908                                          ; src/sub/ProbeCoCal.hpp:0275
  QL77 = Q909                                          ; src/sub/ProbeCoCal.hpp:0275
  CALL LBL "Probe.write_caldata"                       ; src/sub/ProbeCoCal.hpp:0275
  FN 9: IF Q195 EQU 0 GOTO LBL "CASE0_18"              ; src/sub/ProbeCoCal.hpp:0276
  FN 9: IF Q195 EQU 1 GOTO LBL "CASE1_18"              ; src/sub/ProbeCoCal.hpp:0276
  FN 9: IF Q195 EQU 2 GOTO LBL "CASE2_18"              ; src/sub/ProbeCoCal.hpp:0276
  FN 9: IF Q195 EQU 3 GOTO LBL "CASE3_18"              ; src/sub/ProbeCoCal.hpp:0276
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_18"             ; src/sub/ProbeCoCal.hpp:0276
   LBL "CASE0_18"                                      ; src/sub/ProbeCoCal.hpp:0278
   FN 16: F-PRINT ProbeCoCal.a / TCHPR461.TXT          ; src/sub/ProbeCoCal.hpp:0279
   FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_18"            ; src/sub/ProbeCoCal.hpp:0280
   LBL "CASE1_18"                                      ; src/sub/ProbeCoCal.hpp:0281
   FN 16: F-PRINT ProbeCoCal.a / TCHPR462.TXT          ; src/sub/ProbeCoCal.hpp:0282
   FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_18"            ; src/sub/ProbeCoCal.hpp:0283
   LBL "CASE2_18"                                      ; src/sub/ProbeCoCal.hpp:0284
   FN 16: F-PRINT ProbeCoCal.a / TCHPR463.TXT          ; src/sub/ProbeCoCal.hpp:0285
   FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_18"            ; src/sub/ProbeCoCal.hpp:0286
   LBL "CASE3_18"                                      ; src/sub/ProbeCoCal.hpp:0287
   FN 16: F-PRINT ProbeCoCal.a / TCHPR460.TXT          ; src/sub/ProbeCoCal.hpp:0288
   FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_18"            ; src/sub/ProbeCoCal.hpp:0289
  LBL "SWITCHEND_18"                                   ; src/sub/ProbeCoCal.hpp:0290
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_17"                  ; src/sub/ProbeCoCal.hpp:0291
 LBL "IFNOT_17"                                        ; src/sub/ProbeCoCal.hpp:0291
 LBL "ENDIF_17"                                        ; src/sub/ProbeCoCal.hpp:0324
FN 9: IF 0 EQU 0 GOTO LBL "EXIT"                       ;                   :-001
LBL "Probe.PROBE"                                      ; includes/probe.hpp:0120
 FN 18: SYSREAD Q3 = ID 1000 NR 7210 IDX 0             ; includes/probe.hpp:0171
 Q11 = 3                                               ; includes/probe.hpp:0175
 FN 18: SYSREAD Q5 = ID 350 NR 12 IDX 0                ; includes/probe.hpp:0176
 FN 18: SYSREAD Q6 = ID 350 NR 11 IDX 0                ; includes/probe.hpp:0177
 FN 18: SYSREAD Q7 = ID 1000 NR 6130                   ; includes/probe.hpp:0178
 FN 18: SYSREAD Q8 = ID 1000 NR 6120                   ; includes/probe.hpp:0179
 FN 18: SYSREAD Q10 = ID 1000 NR 6140 IDX 0            ; includes/probe.hpp:0180
 FN 18: SYSREAD Q9 = ID 1000 NR 6150 IDX 0             ; includes/probe.hpp:0181
 FN 18: SYSREAD Q12 = ID 1000 NR 6160                  ; includes/probe.hpp:0182
 FN 18: SYSREAD Q13 = ID 1000 NR 6161                  ; includes/probe.hpp:0183
 FN 18: SYSREAD Q14 = ID 1000 NR 6162                  ; includes/probe.hpp:0184
 FN 18: SYSREAD Q15 = ID 1000 NR 6165                  ; includes/probe.hpp:0185
 FN 18: SYSREAD Q16 = ID 350 NR 14 IDX 1               ; includes/probe.hpp:0186
 FN 18: SYSREAD Q17 = ID 350 NR 14 IDX 2               ; includes/probe.hpp:0187
 FN 18: SYSREAD Q18 = ID 350 NR 15                     ; includes/probe.hpp:0188
 FN 10: IF QL0  NE 1 GOTO LBL "IFNOT_19"               ; includes/probe.hpp:0192
 FN 10: IF Q15  NE 1 GOTO LBL "IFNOT_19"               ; includes/probe.hpp:0192
  FN 17: SYSWRITE ID 370 NR 5 = 0                      ; includes/probe.hpp:0194
 LBL "IFNOT_19"                                        ; includes/probe.hpp:0195
 FN 18: SYSREAD Q0 = ID 1000 NR 7411                   ; includes/probe.hpp:0199
 FN 10: IF Q0  NE 0  GOTO LBL "IFNOT_20"               ; includes/probe.hpp:0199
  FN 17: SYSWRITE ID 990 NR 3 = 1                      ; includes/probe.hpp:0201
 LBL "IFNOT_20"                                        ; includes/probe.hpp:0202
 QL80 = 1                                              ; includes/probe.hpp:0203
 FN 17: SYSWRITE ID 990 NR 2 = 3                       ; includes/probe.hpp:0207
 Q10 = Q10 + Q6                                        ; includes/probe.hpp:0356
 QS13 = "ProbeLength= " || TOCHAR( DAT+Q5 DECIMALS4 )  ; includes/probe.hpp:0360
 CALL LBL "fdbg"                                       ; includes/probe.hpp:0360
 QS13 = "ProbeRadius= " || TOCHAR( DAT+Q6 DECIMALS4 )  ; includes/probe.hpp:0361
 CALL LBL "fdbg"                                       ; includes/probe.hpp:0361
LBL 0                                                  ; includes/probe.hpp:0120
LBL "Query.QUERY"                                      ; includes/query.hpp:0014
 FN 18: SYSREAD Q19 = ID 20 NR 3                       ; includes/query.hpp:0049
LBL 0                                                  ; includes/query.hpp:0014
LBL "state_exec"                                       ; includes/stdlib.hh:0042
 FN 20: WAIT FOR  SYNC                                 ; includes/geo.hpp  :0470
 FN 18: SYSREAD QL36 = ID 2000 NR 10 IDX 4158          ; includes/geo.hpp  :0472
 FN 10: IF QL36  NE 1  GOTO LBL "IFNOT_21"             ; includes/geo.hpp  :0473
  QL36 = 3                                             ; includes/geo.hpp  :0475
  LBL 0                                                ; includes/geo.hpp  :0476
 LBL "IFNOT_21"                                        ; includes/geo.hpp  :0477
 FN 18: SYSREAD QL36 = ID 990 NR 2 IDX 16              ; includes/geo.hpp  :0479
 FN 10: IF QL36  NE 0  GOTO LBL "IFNOT_22"             ; includes/geo.hpp  :0480
  QL36 = 1                                             ; includes/geo.hpp  :0482
  LBL 0                                                ; includes/geo.hpp  :0483
 LBL "IFNOT_22"                                        ; includes/geo.hpp  :0484
 FN 18: SYSREAD QL36 = ID 2000 NR 10 IDX 4157          ; includes/geo.hpp  :0486
 FN 10: IF QL36  NE 1  GOTO LBL "IFNOT_23"             ; includes/geo.hpp  :0487
  QL36 = 2                                             ; includes/geo.hpp  :0489
  LBL 0                                                ; includes/geo.hpp  :0490
 LBL "IFNOT_23"                                        ; includes/geo.hpp  :0491
 QL36 = 0                                              ; includes/geo.hpp  :0492
 LBL 0                                                 ; includes/geo.hpp  :0493
LBL 0                                                  ; includes/stdlib.hh:0042
LBL "Probe.set_dataquery"                              ; includes/probe.hpp:0149
 FN 18: SYSREAD Q900 = ID 20 NR 1                      ; includes/probe.hpp:1595
 FN 18: SYSREAD QL81 = ID 20 NR 11                     ; includes/probe.hpp:1596
 QS900 = ""                                            ; includes/probe.hpp:1598
 Q900 = Q900 + ( QL81 / 10 )                           ; includes/probe.hpp:1604
 Q901        = Q5                                      ; includes/probe.hpp:1605
 Q902        = Q6                                      ; includes/probe.hpp:1606
 Q903         = Q16                                    ; includes/probe.hpp:1607
 Q904         = Q17                                    ; includes/probe.hpp:1608
 Q905     = Q5                                         ; includes/probe.hpp:1609
 Q906     = Q6                                         ; includes/probe.hpp:1610
 Q907      = Q16                                       ; includes/probe.hpp:1611
 Q908      = Q17                                       ; includes/probe.hpp:1612
 Q909      = Q14                                       ; includes/probe.hpp:1613
LBL 0                                                  ; includes/probe.hpp:0149
LBL "swap_axes"                                        ; includes/stdlib.hh:0050
 FN 17: SYSWRITE ID 212 = QL37                         ; includes/geo.hpp  :0749
LBL 0                                                  ; includes/stdlib.hh:0050
LBL "read_wcs"                                         ; includes/stdlib.hh:0043
 FN 18: SYSREAD Q0 = ID 20 NR 3 IDX 0                  ; includes/geo.hpp  :0540
 FN 9: IF Q0 EQU 0 GOTO LBL "CASE0_24"                 ; includes/geo.hpp  :0540
 FN 9: IF Q0 EQU 6 GOTO LBL "CASE1_24"                 ; includes/geo.hpp  :0540
 FN 9: IF Q0 EQU 1 GOTO LBL "CASE2_24"                 ; includes/geo.hpp  :0540
 FN 9: IF Q0 EQU 7 GOTO LBL "CASE3_24"                 ; includes/geo.hpp  :0540
 FN 9: IF Q0 EQU 2 GOTO LBL "CASE4_24"                 ; includes/geo.hpp  :0540
 FN 9: IF Q0 EQU 8 GOTO LBL "CASE5_24"                 ; includes/geo.hpp  :0540
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_24"              ; includes/geo.hpp  :0540
  LBL "CASE0_24"                                       ; includes/geo.hpp  :0542
  LBL "CASE1_24"                                       ; includes/geo.hpp  :0543
  FN 18: SYSREAD QL38 = ID 270 NR 1 IDX 2              ; includes/geo.hpp  :0544
  FN 18: SYSREAD QL39 = ID 270 NR 1 IDX 3              ; includes/geo.hpp  :0545
  FN 18: SYSREAD QL40 = ID 270 NR 1 IDX 1              ; includes/geo.hpp  :0546
  LBL 0                                                ; includes/geo.hpp  :0547
  LBL "CASE2_24"                                       ; includes/geo.hpp  :0548
  LBL "CASE3_24"                                       ; includes/geo.hpp  :0549
  FN 18: SYSREAD QL38 = ID 270 NR 1 IDX 3              ; includes/geo.hpp  :0550
  FN 18: SYSREAD QL39 = ID 270 NR 1 IDX 1              ; includes/geo.hpp  :0551
  FN 18: SYSREAD QL40 = ID 270 NR 1 IDX 2              ; includes/geo.hpp  :0552
  LBL 0                                                ; includes/geo.hpp  :0553
  LBL "CASE4_24"                                       ; includes/geo.hpp  :0554
  LBL "CASE5_24"                                       ; includes/geo.hpp  :0555
  FN 18: SYSREAD QL38 = ID 270 NR 1 IDX 1              ; includes/geo.hpp  :0556
  FN 18: SYSREAD QL39 = ID 270 NR 1 IDX 2              ; includes/geo.hpp  :0557
  FN 18: SYSREAD QL40 = ID 270 NR 1 IDX 3              ; includes/geo.hpp  :0558
  LBL 0                                                ; includes/geo.hpp  :0559
 LBL "SWITCHEND_24"                                    ; includes/geo.hpp  :0560
LBL 0                                                  ; includes/stdlib.hh:0043
LBL "Probe.find_aequator"                              ; includes/probe.hpp:0138
 QL85 = SQRT( SQ( QL41 ) - SQ( QL41 - QL43) )          ; includes/probe.hpp:0840
 QL95 = QL41 + Q10 + QL45 + Q6                         ; includes/probe.hpp:0841
 CC IX+0 IY+0                                          ; includes/probe.hpp:0845
 LP PR+QL95 PA+QL44 R0 F Q9                            ; includes/probe.hpp:0846
 CALL LBL "read_wcs"                                   ; includes/probe.hpp:0847
 QL86 = QL38                                           ; includes/probe.hpp:0847
 QL87 = QL39                                           ; includes/probe.hpp:0847
 QL88 = QL40                                           ; includes/probe.hpp:0847
 FN 10: IF Q3  NE 1  GOTO LBL "IFNOT_25"               ; includes/probe.hpp:0851
  LBL 0                                                ; includes/probe.hpp:0851
 LBL "IFNOT_25"                                        ; includes/probe.hpp:0851
 QL88 = QL42                                           ; includes/probe.hpp:0855
 QL44 = QL44 - 180                                     ; includes/probe.hpp:0856
 TCH PROBE 1.0 BEZUGSPUNKT POLAR
 TCH PROBE 1.1 X WINKEL: +QL44
 TCH PROBE 1.2 IX+0 IY+0 Z+QL88
 QL96 = 3                                              ; includes/probe.hpp:0860
 CALL LBL "read_measdata"                              ; includes/probe.hpp:0860
 QL89 = QL97                                           ; includes/probe.hpp:0860
 QL90 = QL98                                           ; includes/probe.hpp:0860
 QL93 = SQRT( SQ(QL89-QL86) + SQ(QL90-QL87) )          ; includes/probe.hpp:0861
 QL84=QL85*16                                          ; includes/probe.hpp:0865
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_26"                 ; includes/probe.hpp:0865
 LBL "FOR_26"                                          ; includes/probe.hpp:0865
 QL84=QL84/4                                           ; includes/probe.hpp:0865
 LBL "FORCMP_26"                                       ; includes/probe.hpp:0865
 FN 12: IF QL84 LT QL85   GOTO LBL "FORNOT_26"         ; includes/probe.hpp:0865
  LBL "DO_27"                                          ; includes/probe.hpp:0867
   QL94 = QL93                                         ; includes/probe.hpp:0869
   QL88 = QL88 + QL84                                  ; includes/probe.hpp:0870
   TCH PROBE 1.0 BEZUGSPUNKT POLAR
   TCH PROBE 1.1 X WINKEL: +QL44
   TCH PROBE 1.2 IX+0 IY+0 Z+QL88
   QL96 = 3                                            ; includes/probe.hpp:0874
   CALL LBL "read_measdata"                            ; includes/probe.hpp:0874
   QL89 = QL97                                         ; includes/probe.hpp:0874
   QL90 = QL98                                         ; includes/probe.hpp:0874
   QL93 = SQRT( SQ(QL89-QL86) +SQ(QL90-QL87) )         ; includes/probe.hpp:0875
  FN 9: IF QL93  EQU QL94  GOTO LBL "DONOT_27"         ; includes/probe.hpp:0876
  FN 11: IF QL93  GT QL94  GOTO LBL "DONOT_27"         ; includes/probe.hpp:0876
  FN 9: IF 0 EQU 0 GOTO LBL "DO_27"                    ; includes/probe.hpp:0876
  LBL "DONOT_27"                                       ; includes/probe.hpp:0876
  QL88 = QL88 - QL84                                   ; includes/probe.hpp:0877
  QL93 = QL94                                          ; includes/probe.hpp:0878
  LBL "DO_28"                                          ; includes/probe.hpp:0879
   QL94 = QL93                                         ; includes/probe.hpp:0881
   QL88 = QL88 - QL84                                  ; includes/probe.hpp:0882
   TCH PROBE 1.0 BEZUGSPUNKT POLAR
   TCH PROBE 1.1 X WINKEL: +QL44
   TCH PROBE 1.2 IX+0 IY+0 Z+QL88
   QL96 = 3                                            ; includes/probe.hpp:0886
   CALL LBL "read_measdata"                            ; includes/probe.hpp:0886
   QL89 = QL97                                         ; includes/probe.hpp:0886
   QL90 = QL98                                         ; includes/probe.hpp:0886
   QL93 = SQRT( SQ(QL89-QL86) +SQ(QL90-QL87) )         ; includes/probe.hpp:0887
  FN 9: IF QL93  EQU QL94  GOTO LBL "DONOT_28"         ; includes/probe.hpp:0888
  FN 11: IF QL93  GT QL94  GOTO LBL "DONOT_28"         ; includes/probe.hpp:0888
  FN 9: IF 0 EQU 0 GOTO LBL "DO_28"                    ; includes/probe.hpp:0888
  LBL "DONOT_28"                                       ; includes/probe.hpp:0888
  QL88 = QL88 + QL84                                   ; includes/probe.hpp:0889
  QL93 = QL94                                          ; includes/probe.hpp:0890
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_26"                    ; includes/probe.hpp:0891
 LBL "FORNOT_26"                                       ; includes/probe.hpp:0891
LBL 0                                                  ; includes/probe.hpp:0138
LBL "Probe.ori_spindle"                                ; includes/probe.hpp:0131
 QL46 = QL46 + Q14                                     ; includes/probe.hpp:0653
 FN 9: IF Q11 EQU 0 GOTO LBL "CASE0_29"                ; includes/probe.hpp:0654
 FN 9: IF Q11 EQU 1 GOTO LBL "CASE1_29"                ; includes/probe.hpp:0654
 FN 9: IF Q11 EQU 2 GOTO LBL "CASE2_29"                ; includes/probe.hpp:0654
 FN 9: IF Q11 EQU 3 GOTO LBL "CASE3_29"                ; includes/probe.hpp:0654
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_29"              ; includes/probe.hpp:0654
  LBL "CASE0_29"                                       ; includes/probe.hpp:0656
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_29"             ; includes/probe.hpp:0657
  LBL "CASE1_29"                                       ; includes/probe.hpp:0658
  FN 9: IF Q13 EQU 0 GOTO LBL "CASE0_30"               ; includes/probe.hpp:0659
  FN 9: IF Q13 EQU -1 GOTO LBL "CASE1_30"              ; includes/probe.hpp:0659
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_30"             ; includes/probe.hpp:0659
   LBL "CASE0_30"                                      ; includes/probe.hpp:0661
   FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_30"            ; includes/probe.hpp:0662
   LBL "CASE1_30"                                      ; includes/probe.hpp:0663
   FN 17: SYSWRITE ID 990 NR 8 = Q14                   ; includes/probe.hpp:0664
   LBL "SWITCHDEF_30"                                  ; includes/probe.hpp:0665
   CYCL DEF 13.0 ORIENTIERUNG
   CYCL DEF 13.1 WINKEL Q14
   M Q13                                               ; includes/probe.hpp:0668
  LBL "SWITCHEND_30"                                   ; includes/probe.hpp:0669
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_29"             ; includes/probe.hpp:0670
  LBL "CASE2_29"                                       ; includes/probe.hpp:0671
  Q0 = SIN( QL46 - Q14 )                               ; includes/probe.hpp:0672
  FN 10: IF Q0  NE 0  GOTO LBL "IFNOT_31"              ; includes/probe.hpp:0672
   FN 9: IF Q12 EQU 0 GOTO LBL "CASE0_32"              ; includes/probe.hpp:0674
   FN 9: IF Q12 EQU -1 GOTO LBL "CASE1_32"             ; includes/probe.hpp:0674
   FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_32"            ; includes/probe.hpp:0674
    LBL "CASE0_32"                                     ; includes/probe.hpp:0676
    FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_32"           ; includes/probe.hpp:0677
    LBL "CASE1_32"                                     ; includes/probe.hpp:0678
    FN 17: SYSWRITE ID 990 NR 8 = QL46                 ; includes/probe.hpp:0679
    QL48 = 1                                           ; includes/probe.hpp:0680
    LBL 0                                              ; includes/probe.hpp:0680
    LBL "SWITCHDEF_32"                                 ; includes/probe.hpp:0681
    CYCL DEF 13.0 ORIENTIERUNG
    CYCL DEF 13.1 WINKEL QL46
    M Q12                                              ; includes/probe.hpp:0684
    QL48 = 1                                           ; includes/probe.hpp:0685
    LBL 0                                              ; includes/probe.hpp:0685
   LBL "SWITCHEND_32"                                  ; includes/probe.hpp:0686
  LBL "IFNOT_31"                                       ; includes/probe.hpp:0687
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_29"             ; includes/probe.hpp:0688
  LBL "CASE3_29"                                       ; includes/probe.hpp:0689
  FN 9: IF Q13 EQU 0 GOTO LBL "CASE0_33"               ; includes/probe.hpp:0690
  FN 9: IF Q13 EQU -1 GOTO LBL "CASE1_33"              ; includes/probe.hpp:0690
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_33"             ; includes/probe.hpp:0690
   LBL "CASE0_33"                                      ; includes/probe.hpp:0692
   FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_33"            ; includes/probe.hpp:0693
   LBL "CASE1_33"                                      ; includes/probe.hpp:0694
   FN 17: SYSWRITE ID 990 NR 8 = QL46                  ; includes/probe.hpp:0695
   QL48 = 1                                            ; includes/probe.hpp:0696
   LBL 0                                               ; includes/probe.hpp:0696
   LBL "SWITCHDEF_33"                                  ; includes/probe.hpp:0697
   CYCL DEF 13.0 ORIENTIERUNG
   CYCL DEF 13.1 WINKEL QL46
   M Q13                                               ; includes/probe.hpp:0700
   QL48 = 1                                            ; includes/probe.hpp:0701
   LBL 0                                               ; includes/probe.hpp:0701
  LBL "SWITCHEND_33"                                   ; includes/probe.hpp:0702
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_29"             ; includes/probe.hpp:0703
 LBL "SWITCHEND_29"                                    ; includes/probe.hpp:0704
 QL48 = 0                                              ; includes/probe.hpp:0705
 LBL 0                                                 ; includes/probe.hpp:0705
LBL 0                                                  ; includes/probe.hpp:0131
LBL "Probe.meas_circle"                                ; includes/probe.hpp:0141
 FN 18: SYSREAD QL107 = ID 350 NR 11 IDX 0             ; includes/probe.hpp:1084
 FN 10: IF QL49  NE 1  GOTO LBL "IFNOT_34"             ; includes/probe.hpp:1088
  QL101 = QL50 + Q10 + QL58 + Q6                       ; includes/probe.hpp:1090
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_34"                  ; includes/probe.hpp:1091
 LBL "IFNOT_34"                                        ; includes/probe.hpp:1091
  QL101 = QL50 - Q10 - QL58 - Q6                       ; includes/probe.hpp:1094
  FN 9: IF QL101  EQU 0.01  GOTO LBL "IFNOT_35"        ; includes/probe.hpp:1095
  FN 11: IF QL101  GT 0.01  GOTO LBL "IFNOT_35"        ; includes/probe.hpp:1095
   QL101 = 0.01                                        ; includes/probe.hpp:1097
  LBL "IFNOT_35"                                       ; includes/probe.hpp:1098
 LBL "ENDIF_34"                                        ; includes/probe.hpp:1099
 QL53 = QL53 - Q6                                      ; includes/probe.hpp:1100
 QS10 = ""                                             ; includes/probe.hpp:1101
 CC  X+QL51 Y+QL52                                     ; includes/probe.hpp:1167
 L  Z+QL57 R0 F Q9                                     ; includes/probe.hpp:1168
 LP PR+QL101 PA+QL54 F Q9                              ; includes/probe.hpp:1169
 QL100=0                                               ; includes/probe.hpp:1173
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_36"                 ; includes/probe.hpp:1173
 LBL "FOR_36"                                          ; includes/probe.hpp:1173
 QL100 = QL100 + 1                                     ; includes/probe.hpp:1173
 LBL "FORCMP_36"                                       ; includes/probe.hpp:1173
 FN 9: IF QL100 EQU QL55   GOTO LBL "FORNOT_36"        ; includes/probe.hpp:1173
 FN 11: IF QL100 GT QL55   GOTO LBL "FORNOT_36"        ; includes/probe.hpp:1173
  CC  X+QL51 Y+QL52                                    ; includes/probe.hpp:1178
  QL102 = QL54 + QL100 * ( 360 / QL55 )                ; includes/probe.hpp:1179
  FN 9: IF QL100  EQU 0  GOTO LBL "IFNOT_37"           ; includes/probe.hpp:1180
  FN 12: IF QL100  LT 0  GOTO LBL "IFNOT_37"           ; includes/probe.hpp:1180
   FN 10: IF QL56  NE 1  GOTO LBL "IFNOT_38"           ; includes/probe.hpp:1182
    LP PR+QL101 PA+QL102 F Q9                          ; includes/probe.hpp:1184
   FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_38"                ; includes/probe.hpp:1185
   LBL "IFNOT_38"                                      ; includes/probe.hpp:1185
    CP PA+QL102 DR+ F Q9                               ; includes/probe.hpp:1188
   LBL "ENDIF_38"                                      ; includes/probe.hpp:1189
  LBL "IFNOT_37"                                       ; includes/probe.hpp:1190
  FN 10: IF QL49  NE 1  GOTO LBL "IFNOT_39"            ; includes/probe.hpp:1191
   QL103 = QL102 - 180                                 ; includes/probe.hpp:1193
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_39"                 ; includes/probe.hpp:1194
  LBL "IFNOT_39"                                       ; includes/probe.hpp:1194
   QL103 = QL102                                       ; includes/probe.hpp:1197
  LBL "ENDIF_39"                                       ; includes/probe.hpp:1198
  LBL "WHILE_40"                                       ; includes/probe.hpp:1199
  FN 9: IF QL103  EQU 180  GOTO LBL "WHILENOT_40"      ; includes/probe.hpp:1199
  FN 12: IF QL103  LT 180  GOTO LBL "WHILENOT_40"      ; includes/probe.hpp:1199
   QL103 = QL103 - 360                                 ; includes/probe.hpp:1200
  FN 9: IF 0 EQU 0 GOTO LBL "WHILE_40"                 ; includes/probe.hpp:1200
  LBL "WHILENOT_40"                                    ; includes/probe.hpp:1200
  LBL "WHILE_41"                                       ; includes/probe.hpp:1201
  FN 9: IF QL103  EQU -180  GOTO LBL "WHILENOT_41"     ; includes/probe.hpp:1201
  FN 11: IF QL103  GT -180  GOTO LBL "WHILENOT_41"     ; includes/probe.hpp:1201
   QL103 = QL103 + 360                                 ; includes/probe.hpp:1202
  FN 9: IF 0 EQU 0 GOTO LBL "WHILE_41"                 ; includes/probe.hpp:1202
  LBL "WHILENOT_41"                                    ; includes/probe.hpp:1202
  L  Z+QL53 F Q9                                       ; includes/probe.hpp:1203
  FN 10: IF Q3  NE 1  GOTO LBL "IFNOT_42"              ; includes/probe.hpp:1207
   LP  PR+QL50 PA+QL102                                ; includes/probe.hpp:1209
   CALL LBL "read_wcs"                                 ; includes/probe.hpp:1210
   QL104 = QL38                                        ; includes/probe.hpp:1210
   QL105 = QL39                                        ; includes/probe.hpp:1210
   QL106 = QL40                                        ; includes/probe.hpp:1210
   LP  PR+QL101 PA+QL102                               ; includes/probe.hpp:1211
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_42"                 ; includes/probe.hpp:1212
  LBL "IFNOT_42"                                       ; includes/probe.hpp:1212
   CALL LBL "Probe.ori_probe"                          ; includes/probe.hpp:1215
   TCH PROBE 1.0 BEZUGSPUNKT POLAR
   TCH PROBE 1.1 X WINKEL:+QL103
   TCH PROBE 1.2 IX+0 IY+0 Z+QL53
   QL96 = 1                                            ; includes/probe.hpp:1219
   CALL LBL "read_measdata"                            ; includes/probe.hpp:1219
   QL104 = QL97                                        ; includes/probe.hpp:1219
   QL105 = QL98                                        ; includes/probe.hpp:1219
   QL106 = QL99                                        ; includes/probe.hpp:1219
  LBL "ENDIF_42"                                       ; includes/probe.hpp:1220
  QS10 = QS10 || TOCHAR( DAT+QL104 DECIMALS 4 ) || "/" ; includes/probe.hpp:1221
  QS10 = QS10 || TOCHAR( DAT+QL105 DECIMALS 4 ) || "/" ; includes/probe.hpp:1222
  FN 10: IF QL100  NE 0 GOTO LBL "IFNOT_43"            ; includes/probe.hpp:1223
  FN 9: IF QL107  EQU 0 GOTO LBL "IFNOT_43"            ; includes/probe.hpp:1223
  FN 12: IF QL107  LT 0 GOTO LBL "IFNOT_43"            ; includes/probe.hpp:1223
   FN 10: IF QL49  NE 1  GOTO LBL "IFNOT_44"           ; includes/probe.hpp:1225
    QL51 = QL104 + QL50 * COS( QL103 )                 ; includes/probe.hpp:1227
    QL52 = QL105 + QL50 * SIN( QL103 )                 ; includes/probe.hpp:1228
   FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_44"                ; includes/probe.hpp:1229
   LBL "IFNOT_44"                                      ; includes/probe.hpp:1229
    QL51 = QL104 - QL50 * COS( QL103 )                 ; includes/probe.hpp:1232
    QL52 = QL105 - QL50 * SIN( QL103 )                 ; includes/probe.hpp:1233
   LBL "ENDIF_44"                                      ; includes/probe.hpp:1234
  LBL "IFNOT_43"                                       ; includes/probe.hpp:1235
  FN 10: IF QL56  NE 1  GOTO LBL "IFNOT_45"            ; includes/probe.hpp:1239
   L  Z+QL57 R0 F Q9                                   ; includes/probe.hpp:1241
  LBL "IFNOT_45"                                       ; includes/probe.hpp:1242
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_36"                    ; includes/probe.hpp:1243
 LBL "FORNOT_36"                                       ; includes/probe.hpp:1243
 L  Z+QL57 R0 F Q9                                     ; includes/probe.hpp:1244
 QS14 = QS10                                           ; includes/probe.hpp:1249
 CALL LBL "Probe$CData.set_data"                       ; includes/probe.hpp:1249
 CALL LBL "Probe$CData.regress"                        ; includes/probe.hpp:1250
 QL59 = QL108                                          ; includes/probe.hpp:1250
 QL60 = QL109                                          ; includes/probe.hpp:1250
 QL61 = QL110                                          ; includes/probe.hpp:1250
 FN 10: IF QL61  NE 0  GOTO LBL "IFNOT_46"             ; includes/probe.hpp:1251
  QL59 = QL51                                          ; includes/probe.hpp:1253
  QL60 = QL52                                          ; includes/probe.hpp:1254
 LBL "IFNOT_46"                                        ; includes/probe.hpp:1255
 QS13 = "PROBE::meas_circle: X" || TOCHAR( DAT+QL59 DECIMALS 4 ) || " Y" || TOCHAR( DAT+QL60 DECIMALS 4 ) || " R" || TOCHAR( DAT+QL61 DECIMALS 4 )
 CALL LBL "fdbg"                                       ; includes/probe.hpp:1256
LBL 0                                                  ; includes/probe.hpp:0141
LBL "Probe.meas_pos"                                   ; includes/probe.hpp:0140
 FN 9: IF QL66 EQU 2 GOTO LBL "CASE0_47"               ; includes/probe.hpp:0953
 FN 9: IF QL66 EQU 1 GOTO LBL "CASE1_47"               ; includes/probe.hpp:0953
 FN 9: IF QL66 EQU 3 GOTO LBL "CASE2_47"               ; includes/probe.hpp:0953
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_47"              ; includes/probe.hpp:0953
  LBL "CASE0_47"                                       ; includes/probe.hpp:0955
  QL66 = 1                                             ; includes/probe.hpp:0956
  QL67 = QL67 + 90                                     ; includes/probe.hpp:0957
  LBL "CASE1_47"                                       ; includes/probe.hpp:0958
  QL112 = QL63 - ( COS( QL67 ) * (Q10 + QL69 + Q6) )   ; includes/probe.hpp:0959
  QL113 = QL64 - ( SIN( QL67 ) * (Q10 + QL69 + Q6) )   ; includes/probe.hpp:0960
  QL114 = QL65 - Q6                                    ; includes/probe.hpp:0961
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_47"             ; includes/probe.hpp:0962
  LBL "CASE2_47"                                       ; includes/probe.hpp:0963
  QL112 = QL63                                         ; includes/probe.hpp:0964
  QL113 = QL64                                         ; includes/probe.hpp:0965
  QL114 = QL65 + Q10 + QL69                            ; includes/probe.hpp:0966
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_47"             ; includes/probe.hpp:0967
 LBL "SWITCHEND_47"                                    ; includes/probe.hpp:0968
 FN 9: IF QL62  EQU 1  GOTO LBL "IFNOT_48"             ; includes/probe.hpp:0969
  Q0 = QL68-QL114                                      ; includes/probe.hpp:0971
  QL115 = QL112                                        ; includes/probe.hpp:0971
  QL116 = QL113                                        ; includes/probe.hpp:0971
  QL117 = QL114                                        ; includes/probe.hpp:0971
  QL118 = 0                                            ; includes/probe.hpp:0971
  QL119 = Q0                                           ; includes/probe.hpp:0971
  QL120 = -1                                           ; includes/probe.hpp:0971
  CALL LBL "prepos"                                    ; includes/probe.hpp:0971
 LBL "IFNOT_48"                                        ; includes/probe.hpp:0972
 FN 10: IF Q3  NE 1  GOTO LBL "IFNOT_49"               ; includes/probe.hpp:0976
  QL70 = QL63                                          ; includes/probe.hpp:0978
  QL71 = QL64                                          ; includes/probe.hpp:0979
  QL72 = QL65                                          ; includes/probe.hpp:0980
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_49"                  ; includes/probe.hpp:0981
 LBL "IFNOT_49"                                        ; includes/probe.hpp:0981
  CALL LBL "Probe.ori_probe"                           ; includes/probe.hpp:0984
  LBL "WHILE_50"                                       ; includes/probe.hpp:0985
  FN 9: IF QL67  EQU 180  GOTO LBL "WHILENOT_50"       ; includes/probe.hpp:0985
  FN 12: IF QL67  LT 180  GOTO LBL "WHILENOT_50"       ; includes/probe.hpp:0985
   QL67 = QL67 - 360                                   ; includes/probe.hpp:0987
  FN 9: IF 0 EQU 0 GOTO LBL "WHILE_50"                 ; includes/probe.hpp:0988
  LBL "WHILENOT_50"                                    ; includes/probe.hpp:0988
  LBL "WHILE_51"                                       ; includes/probe.hpp:0989
  FN 9: IF QL67  EQU -180  GOTO LBL "WHILENOT_51"      ; includes/probe.hpp:0989
  FN 11: IF QL67  GT -180  GOTO LBL "WHILENOT_51"      ; includes/probe.hpp:0989
   QL67 = QL67 + 360                                   ; includes/probe.hpp:0991
  FN 9: IF 0 EQU 0 GOTO LBL "WHILE_51"                 ; includes/probe.hpp:0992
  LBL "WHILENOT_51"                                    ; includes/probe.hpp:0992
  FN 9: IF QL66 EQU 1 GOTO LBL "CASE0_52"              ; includes/probe.hpp:1041
  FN 9: IF QL66 EQU 3 GOTO LBL "CASE1_52"              ; includes/probe.hpp:1041
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_52"             ; includes/probe.hpp:1041
   LBL "CASE0_52"                                      ; includes/probe.hpp:1043
   QL114 = QL114 + Q6                                  ; includes/probe.hpp:1044
   TCH PROBE 1.0 BEZUGSPUNKT POLAR
   TCH PROBE 1.1 X WINKEL:+QL67
   TCH PROBE 1.2 IX+0 IY+0 Z+QL114
   FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_52"            ; includes/probe.hpp:1048
   LBL "CASE1_52"                                      ; includes/probe.hpp:1049
   TCH PROBE 1.0 BEZUGSPUNKT POLAR
   TCH PROBE 1.1 Z WINKEL:+QL67
   TCH PROBE 1.2 IX+0 IY+0 IZ+0
   FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_52"            ; includes/probe.hpp:1053
   LBL "SWITCHDEF_52"                                  ; includes/probe.hpp:1054
   FN 14: ERROR= 1011                                  ; includes/probe.hpp:1055
  LBL "SWITCHEND_52"                                   ; includes/probe.hpp:1056
  QL96 = 1                                             ; includes/probe.hpp:1058
  CALL LBL "read_measdata"                             ; includes/probe.hpp:1058
  QL70 = QL97                                          ; includes/probe.hpp:1058
  QL71 = QL98                                          ; includes/probe.hpp:1058
  QL72 = QL99                                          ; includes/probe.hpp:1058
 LBL "ENDIF_49"                                        ; includes/probe.hpp:1059
 QS13 = "PROBE::meas_pos: X" || TOCHAR( DAT+QL70 DECIMALS 4 ) || " Y" || TOCHAR( DAT+QL71 DECIMALS 4 ) || " Z" || TOCHAR( DAT+QL72 DECIMALS 4 )
 CALL LBL "fdbg"                                       ; includes/probe.hpp:1060
LBL 0                                                  ; includes/probe.hpp:0140
LBL "Probe.reset_caldata_tmp"                          ; includes/probe.hpp:0123
 FN 17: SYSWRITE ID 350 NR 12 = Q5                     ; includes/probe.hpp:0425
 FN 17: SYSWRITE ID 350 NR 11 = Q6                     ; includes/probe.hpp:0426
 FN 17: SYSWRITE ID 350 NR 14 IDX1 = Q16               ; includes/probe.hpp:0427
 FN 17: SYSWRITE ID 350 NR 14 IDX2 = Q17               ; includes/probe.hpp:0428
 FN 17: SYSWRITE ID 350 NR 15 = Q18                    ; includes/probe.hpp:0429
LBL 0                                                  ; includes/probe.hpp:0123
LBL "Probe.write_caldata"                              ; includes/probe.hpp:0124
 FN 18: SYSREAD QL121 = ID 20 NR 1                     ; includes/probe.hpp:0447
 FN 18: SYSREAD QL122 = ID 20 NR 11                    ; includes/probe.hpp:0448
 FN 18: SYSREAD Q0 = ID 1000 NR 7411                   ; includes/probe.hpp:0450
 FN 10: IF Q0  NE 1  GOTO LBL "IFNOT_53"               ; includes/probe.hpp:0450
  FN 17: SYSWRITE ID 50 NR 1 IDX 0 = QL73              ; includes/probe.hpp:0452
  FN 17: SYSWRITE ID 50 NR 2 IDX 0 = QL74              ; includes/probe.hpp:0453
  FN 17: SYSWRITE ID 50 NR 3 IDX 0 = QL74              ; includes/probe.hpp:0454
  FN 17: SYSWRITE ID 50 NR 5 IDX 0 = 0                 ; includes/probe.hpp:0455
  FN 17: SYSWRITE ID 50 NR 6 IDX 0 = 0                 ; includes/probe.hpp:0456
  FN 17: SYSWRITE ID 50 NR 24 IDX 0 = QL75             ; includes/probe.hpp:0457
  FN 17: SYSWRITE ID 50 NR 25 IDX 0 = QL76             ; includes/probe.hpp:0458
  FN 17: SYSWRITE ID 50 NR 26 IDX 0 = QL77             ; includes/probe.hpp:0459
  Q0 = QL121 + QL122/10                                ; includes/probe.hpp:0460
  FN 17: SYSWRITE ID 990 NR 7 = Q0                     ; includes/probe.hpp:0460
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_53"                  ; includes/probe.hpp:0461
 LBL "IFNOT_53"                                        ; includes/probe.hpp:0461
  FN 17: SYSWRITE ID 350 NR 12 = QL73                  ; includes/probe.hpp:0464
  FN 17: SYSWRITE ID 350 NR 11 = QL74                  ; includes/probe.hpp:0465
  FN 17: SYSWRITE ID 350 NR 14 IDX 1 = QL75            ; includes/probe.hpp:0466
  FN 17: SYSWRITE ID 350 NR 14 IDX 2 =  QL76           ; includes/probe.hpp:0467
  FN 17: SYSWRITE ID 350 NR 15 = QL77                  ; includes/probe.hpp:0468
  FN 17: SYSWRITE ID 990 NR 3 = 1                      ; includes/probe.hpp:0469
 LBL "ENDIF_53"                                        ; includes/probe.hpp:0470
LBL 0                                                  ; includes/probe.hpp:0124
LBL "fdbg"                                             ; includes/stdlib.hh:0079
 FN 10: IF Q999  NE +79513  GOTO LBL "IFNOT_54"        ; includes/stream.hpp:0052
  QS6 = QS13                                           ; includes/stream.hpp:0054
  FN 16: F-PRINT ProbeCoprintfile.a / %CycleDebug.A    ; includes/stream.hpp:0056
 LBL "IFNOT_54"                                        ; includes/stream.hpp:0060
LBL 0                                                  ; includes/stdlib.hh:0079
LBL "read_measdata"                                    ; includes/stdlib.hh:0044
 FN 18: SYSREAD Q0 = ID 20 NR 3 IDX 0                  ; includes/geo.hpp  :0573
 FN 9: IF Q0 EQU 0 GOTO LBL "CASE0_55"                 ; includes/geo.hpp  :0573
 FN 9: IF Q0 EQU 6 GOTO LBL "CASE1_55"                 ; includes/geo.hpp  :0573
 FN 9: IF Q0 EQU 1 GOTO LBL "CASE2_55"                 ; includes/geo.hpp  :0573
 FN 9: IF Q0 EQU 7 GOTO LBL "CASE3_55"                 ; includes/geo.hpp  :0573
 FN 9: IF Q0 EQU 2 GOTO LBL "CASE4_55"                 ; includes/geo.hpp  :0573
 FN 9: IF Q0 EQU 8 GOTO LBL "CASE5_55"                 ; includes/geo.hpp  :0573
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_55"              ; includes/geo.hpp  :0573
  LBL "CASE0_55"                                       ; includes/geo.hpp  :0575
  LBL "CASE1_55"                                       ; includes/geo.hpp  :0576
  FN 18: SYSREAD QL97 = ID 360 NR QL96 IDX 2           ; includes/geo.hpp  :0577
  FN 18: SYSREAD QL98 = ID 360 NR QL96 IDX 3           ; includes/geo.hpp  :0578
  FN 18: SYSREAD QL99 = ID 360 NR QL96 IDX 1           ; includes/geo.hpp  :0579
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_55"             ; includes/geo.hpp  :0580
  LBL "CASE2_55"                                       ; includes/geo.hpp  :0581
  LBL "CASE3_55"                                       ; includes/geo.hpp  :0582
  FN 18: SYSREAD QL97 = ID 360 NR QL96 IDX 3           ; includes/geo.hpp  :0583
  FN 18: SYSREAD QL98 = ID 360 NR QL96 IDX 1           ; includes/geo.hpp  :0584
  FN 18: SYSREAD QL99 = ID 360 NR QL96 IDX 2           ; includes/geo.hpp  :0585
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_55"             ; includes/geo.hpp  :0586
  LBL "CASE4_55"                                       ; includes/geo.hpp  :0587
  LBL "CASE5_55"                                       ; includes/geo.hpp  :0588
  FN 18: SYSREAD QL97 = ID 360 NR QL96 IDX 1           ; includes/geo.hpp  :0589
  FN 18: SYSREAD QL98 = ID 360 NR QL96 IDX 2           ; includes/geo.hpp  :0590
  FN 18: SYSREAD QL99 = ID 360 NR QL96 IDX 3           ; includes/geo.hpp  :0591
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_55"             ; includes/geo.hpp  :0592
  LBL "SWITCHDEF_55"                                   ; includes/geo.hpp  :0593
  FN 14: ERROR= 1079                                   ; includes/geo.hpp  :0594
 LBL "SWITCHEND_55"                                    ; includes/geo.hpp  :0595
LBL 0                                                  ; includes/stdlib.hh:0044
LBL "Probe.ori_probe"                                  ; includes/probe.hpp:0132
 FN 9: IF Q11 EQU 1 GOTO LBL "CASE0_56"                ; includes/probe.hpp:0713
 FN 9: IF Q11 EQU 2 GOTO LBL "CASE1_56"                ; includes/probe.hpp:0713
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_56"              ; includes/probe.hpp:0713
  LBL "CASE0_56"                                       ; includes/probe.hpp:0715
  FN 9: IF Q13 EQU 0 GOTO LBL "CASE0_57"               ; includes/probe.hpp:0716
  FN 9: IF Q13 EQU -1 GOTO LBL "CASE1_57"              ; includes/probe.hpp:0716
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_57"             ; includes/probe.hpp:0716
   LBL "CASE0_57"                                      ; includes/probe.hpp:0718
   FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_57"            ; includes/probe.hpp:0719
   LBL "CASE1_57"                                      ; includes/probe.hpp:0720
   FN 17: SYSWRITE ID 990 NR 8 = Q14                   ; includes/probe.hpp:0721
   LBL "SWITCHDEF_57"                                  ; includes/probe.hpp:0722
   CYCL DEF 13.0 ORIENTIERUNG
   CYCL DEF 13.1 WINKEL Q14
   M Q13                                               ; includes/probe.hpp:0725
  LBL "SWITCHEND_57"                                   ; includes/probe.hpp:0726
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_56"             ; includes/probe.hpp:0727
  LBL "CASE1_56"                                       ; includes/probe.hpp:0728
  FN 9: IF Q12 EQU 0 GOTO LBL "CASE0_58"               ; includes/probe.hpp:0729
  FN 9: IF Q12 EQU -1 GOTO LBL "CASE1_58"              ; includes/probe.hpp:0729
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHDEF_58"             ; includes/probe.hpp:0729
   LBL "CASE0_58"                                      ; includes/probe.hpp:0731
   FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_58"            ; includes/probe.hpp:0732
   LBL "CASE1_58"                                      ; includes/probe.hpp:0733
   FN 17: SYSWRITE ID 990 NR 8 = Q14                   ; includes/probe.hpp:0734
   LBL "SWITCHDEF_58"                                  ; includes/probe.hpp:0735
   CYCL DEF 13.0 ORIENTIERUNG
   CYCL DEF 13.1 WINKEL Q14
   M Q12                                               ; includes/probe.hpp:0738
  LBL "SWITCHEND_58"                                   ; includes/probe.hpp:0739
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_56"             ; includes/probe.hpp:0740
 LBL "SWITCHEND_56"                                    ; includes/probe.hpp:0741
LBL 0                                                  ; includes/probe.hpp:0132
LBL "Probe$CData.set_data"                             ; includes/circle.hpp:0011
 QS7 = QS14                                            ; includes/circle.hpp:0025
LBL 0                                                  ; includes/circle.hpp:0011
LBL "Probe$CData.regress"                              ; includes/circle.hpp:0013
 QL125 = 1                                             ; includes/circle.hpp:0071
 QL127 = 0                                             ; includes/circle.hpp:0073
 QL128 = 0                                             ; includes/circle.hpp:0073
 QL129 = 0                                             ; includes/circle.hpp:0073
 QL130 = 0                                             ; includes/circle.hpp:0073
 QL131 = 0                                             ; includes/circle.hpp:0074
 QL132 = 0                                             ; includes/circle.hpp:0074
 QL133 = 0                                             ; includes/circle.hpp:0074
 QL134 = 0                                             ; includes/circle.hpp:0074
 QL135 = 0                                             ; includes/circle.hpp:0074
 QL136 = 0                                             ; includes/circle.hpp:0074
 QL110 = 0                                             ; includes/circle.hpp:0078
 QL124=0                                               ; includes/circle.hpp:0083
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_59"                 ; includes/circle.hpp:0083
 LBL "FOR_59"                                          ; includes/circle.hpp:0083
 LBL "FORCMP_59"                                       ; includes/circle.hpp:0083
  QL137 = 2*QL124                                      ; includes/circle.hpp:0085
  CALL LBL "Probe$CData.get_data"                      ; includes/circle.hpp:0085
  Q0 = QL138                                           ; includes/circle.hpp:0085
  QL126 = QL139                                        ; includes/circle.hpp:0085
  FN 12: IF Q0  LT 0  GOTO LBL "FORNOT_59"             ; includes/circle.hpp:0085
  QL126 = QL126 / QL125                                ; includes/circle.hpp:0086
  Q0 = ABS( QL126 )                                    ; includes/circle.hpp:0090
  Q1 = 0.001 * SQRT( 10^10 / (QL124 + 1) )             ; includes/circle.hpp:0090
  FN 9: IF Q0  EQU Q1  GOTO LBL "IFNOT_61"             ; includes/circle.hpp:0090
  FN 12: IF Q0  LT Q1  GOTO LBL "IFNOT_61"             ; includes/circle.hpp:0090
   QL127 = 0                                           ; includes/circle.hpp:0092
   QL128 = 0                                           ; includes/circle.hpp:0093
   QL129 = 0                                           ; includes/circle.hpp:0094
   QL130 = 0                                           ; includes/circle.hpp:0095
   QL124 = 0                                           ; includes/circle.hpp:0096
   QL125 = QL125 * 10                                  ; includes/circle.hpp:0097
   FN 9: IF 0 EQU 0 GOTO LBL "FOR_59"                  ; includes/circle.hpp:0098
  LBL "IFNOT_61"                                       ; includes/circle.hpp:0099
  QL127 = QL127 + QL126                                ; includes/circle.hpp:0100
  QL129 = QL129 + SQ( QL126 )                          ; includes/circle.hpp:0101
  QL137 = 2*QL124+1                                    ; includes/circle.hpp:0102
  CALL LBL "Probe$CData.get_data"                      ; includes/circle.hpp:0102
  Q0 = QL138                                           ; includes/circle.hpp:0102
  QL126 = QL139                                        ; includes/circle.hpp:0102
  FN 12: IF Q0  LT 0  GOTO LBL "FORNOT_59"             ; includes/circle.hpp:0102
  QL126 = QL126 / QL125                                ; includes/circle.hpp:0103
  QL128 = QL128 + QL126                                ; includes/circle.hpp:0104
  QL130 = QL130 + SQ( QL126 )                          ; includes/circle.hpp:0105
  QL124 = QL124 + 1                                    ; includes/circle.hpp:0106
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_59"                    ; includes/circle.hpp:0107
 LBL "FORNOT_59"                                       ; includes/circle.hpp:0107
 FN 9: IF QL124  EQU 3  GOTO LBL "IFNOT_63"            ; includes/circle.hpp:0108
 FN 11: IF QL124  GT 3  GOTO LBL "IFNOT_63"            ; includes/circle.hpp:0108
  LBL 0                                                ; includes/circle.hpp:0108
 LBL "IFNOT_63"                                        ; includes/circle.hpp:0108
 QL123=0                                               ; includes/circle.hpp:0112
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_64"                 ; includes/circle.hpp:0112
 LBL "FOR_64"                                          ; includes/circle.hpp:0112
 QL123 = QL123 + 1                                     ; includes/circle.hpp:0112
 LBL "FORCMP_64"                                       ; includes/circle.hpp:0112
 FN 9: IF QL123 EQU QL124   GOTO LBL "FORNOT_64"       ; includes/circle.hpp:0112
 FN 11: IF QL123 GT QL124   GOTO LBL "FORNOT_64"       ; includes/circle.hpp:0112
  QL137 = 2*QL123                                      ; includes/circle.hpp:0114
  CALL LBL "Probe$CData.get_data"                      ; includes/circle.hpp:0114
  QL108 = QL139                                        ; includes/circle.hpp:0114
  QL137 = 2*QL123+1                                    ; includes/circle.hpp:0115
  CALL LBL "Probe$CData.get_data"                      ; includes/circle.hpp:0115
  QL109 = QL139                                        ; includes/circle.hpp:0115
  QL108 = QL108 / QL125                                ; includes/circle.hpp:0116
  QL109 = QL109 / QL125                                ; includes/circle.hpp:0117
  QL131 = QL131 + QL108 * ( 2*QL124*QL108 - 2*QL127 )  ; includes/circle.hpp:0118
  QL132 = QL132 + QL109 * ( 2*QL124*QL108 - 2*QL127 )  ; includes/circle.hpp:0119
  QL133 = QL133 + QL108 * ( 2*QL124*QL109 - 2*QL128 )  ; includes/circle.hpp:0120
  QL134 = QL134 + QL109 * ( 2*QL124*QL109 - 2*QL128 )  ; includes/circle.hpp:0121
  QL135 = QL135 + QL108 * ( QL124*QL108*QL108 + QL124*QL109*QL109 - QL129 - QL130 )
  QL136 = QL136 + QL109 * ( QL124*QL108*QL108 + QL124*QL109*QL109 - QL129 - QL130 )
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_64"                    ; includes/circle.hpp:0124
 LBL "FORNOT_64"                                       ; includes/circle.hpp:0124
 QL127 = QL131*QL134 - QL132*QL133                     ; includes/circle.hpp:0128
 FN 10: IF QL127  NE 0  GOTO LBL "IFNOT_65"            ; includes/circle.hpp:0129
  LBL 0                                                ; includes/circle.hpp:0131
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_65"                  ; includes/circle.hpp:0132
 LBL "IFNOT_65"                                        ; includes/circle.hpp:0132
  QL108 = ( QL134*QL135 - QL133*QL136 ) / ( QL131*QL134 - QL132*QL133 )
  QL109 = ( QL131*QL136 - QL132*QL135 ) / ( QL131*QL134 - QL132*QL133 )
 LBL "ENDIF_65"                                        ; includes/circle.hpp:0137
 QL123=0                                               ; includes/circle.hpp:0141
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_66"                 ; includes/circle.hpp:0141
 LBL "FOR_66"                                          ; includes/circle.hpp:0141
 QL123 = QL123 + 1                                     ; includes/circle.hpp:0141
 LBL "FORCMP_66"                                       ; includes/circle.hpp:0141
 FN 9: IF QL123 EQU QL124   GOTO LBL "FORNOT_66"       ; includes/circle.hpp:0141
 FN 11: IF QL123 GT QL124   GOTO LBL "FORNOT_66"       ; includes/circle.hpp:0141
  QL137 = 2*QL123                                      ; includes/circle.hpp:0143
  CALL LBL "Probe$CData.get_data"                      ; includes/circle.hpp:0143
  QL126 = QL139                                        ; includes/circle.hpp:0143
  QL126 = QL126 / QL125                                ; includes/circle.hpp:0144
  QL110 = QL110 + SQ( QL126 - QL108 )                  ; includes/circle.hpp:0145
  QL137 = 2*QL123+1                                    ; includes/circle.hpp:0146
  CALL LBL "Probe$CData.get_data"                      ; includes/circle.hpp:0146
  QL126 = QL139                                        ; includes/circle.hpp:0146
  QL126 = QL126 / QL125                                ; includes/circle.hpp:0147
  QL110 = QL110 + SQ( QL126 - QL109 )                  ; includes/circle.hpp:0148
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_66"                    ; includes/circle.hpp:0149
 LBL "FORNOT_66"                                       ; includes/circle.hpp:0149
 QL110 = SQRT( ( 1 / QL124 ) * QL110 )                 ; includes/circle.hpp:0150
 QL111=0                                               ; includes/circle.hpp:0154
 QL123=0                                               ; includes/circle.hpp:0154
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_67"                 ; includes/circle.hpp:0154
 LBL "FOR_67"                                          ; includes/circle.hpp:0154
 QL123=QL123+2                                         ; includes/circle.hpp:0154
 LBL "FORCMP_67"                                       ; includes/circle.hpp:0154
  QL137 = QL123                                        ; includes/circle.hpp:0156
  CALL LBL "Probe$CData.get_data"                      ; includes/circle.hpp:0156
  Q0 = QL138                                           ; includes/circle.hpp:0156
  QL131 = QL139                                        ; includes/circle.hpp:0156
  FN 12: IF Q0  LT 0  GOTO LBL "FORNOT_67"             ; includes/circle.hpp:0156
  QL137 = QL123+1                                      ; includes/circle.hpp:0157
  CALL LBL "Probe$CData.get_data"                      ; includes/circle.hpp:0157
  Q0 = QL138                                           ; includes/circle.hpp:0157
  QL132 = QL139                                        ; includes/circle.hpp:0157
  FN 12: IF Q0  LT 0  GOTO LBL "FORNOT_67"             ; includes/circle.hpp:0157
  QL131 = QL131 / QL125                                ; includes/circle.hpp:0158
  QL132 = QL132 / QL125                                ; includes/circle.hpp:0159
  QL111 = QL111 + SQ( SQRT( SQ( QL131 - QL108 ) + SQ( QL132 - QL109 ) ) - QL110 )
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_67"                    ; includes/circle.hpp:0161
 LBL "FORNOT_67"                                       ; includes/circle.hpp:0161
 QL111 = SQRT( QL111 / QL124 )                         ; includes/circle.hpp:0162
 QL108 = QL108 * QL125                                 ; includes/circle.hpp:0166
 QL109 = QL109 * QL125                                 ; includes/circle.hpp:0167
 QL110 = QL110 * QL125                                 ; includes/circle.hpp:0168
 QL111 = QL111 * QL125                                 ; includes/circle.hpp:0169
LBL 0                                                  ; includes/circle.hpp:0013
LBL "prepos"                                           ; includes/stdlib.hh:0048
 QL140 = QL119                                         ; includes/geo.hpp  :0693
 QL141 = QL120                                         ; includes/geo.hpp  :0693
 QL142 = QL117                                         ; includes/geo.hpp  :0693
 CALL LBL "retreat"                                    ; includes/geo.hpp  :0693
 L  X+QL115 Y+QL116 R0 FMAX                            ; includes/geo.hpp  :0698
 Q0 = QL117 + QL118                                    ; includes/geo.hpp  :0700
 Z+Q0 FMAX                                             ; includes/geo.hpp  :0700
LBL 0                                                  ; includes/stdlib.hh:0048
LBL "Probe$CData.get_data"                             ; includes/circle.hpp:0012
 QS8 = "/"                                             ; includes/circle.hpp:0038
 QL145 = STRLEN( SRC_ QS7 )                            ; includes/circle.hpp:0039
 QL138=0                                               ; includes/circle.hpp:0040
 QL143=0                                               ; includes/circle.hpp:0040
 QL144=-1                                              ; includes/circle.hpp:0040
 FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_70"                 ; includes/circle.hpp:0040
 LBL "FOR_70"                                          ; includes/circle.hpp:0040
 QL138 = QL138 + 1                                     ; includes/circle.hpp:0040
 LBL "FORCMP_70"                                       ; includes/circle.hpp:0040
 FN 11: IF QL138 GT QL137   GOTO LBL "FORNOT_70"       ; includes/circle.hpp:0040
  QL143 = QL144 + 1                                    ; includes/circle.hpp:0042
  QL144 = INSTR( SRC_ QS7 SEA_ QS8 BEG QL143 )         ; includes/circle.hpp:0043
  FN 12: IF QL144  LT QL145  GOTO LBL "IFNOT_71"       ; includes/circle.hpp:0044
   QL138 = -1                                          ; includes/circle.hpp:0046
   LBL 0                                               ; includes/circle.hpp:0047
  LBL "IFNOT_71"                                       ; includes/circle.hpp:0048
 FN 9: IF 0 EQU 0 GOTO LBL "FOR_70"                    ; includes/circle.hpp:0049
 LBL "FORNOT_70"                                       ; includes/circle.hpp:0049
 QL144 = QL144 - QL143                                 ; includes/circle.hpp:0050
 QS8 = SUBSTR( SRC_ QS7 BEG QL143 LEN QL144 )          ; includes/circle.hpp:0051
 QL139 = TONUMB( SRC_ QS8 )                            ; includes/circle.hpp:0052
LBL 0                                                  ; includes/circle.hpp:0012
LBL "retreat"                                          ; includes/stdlib.hh:0049
 FN 18: SYSREAD Q0 = ID20 NR3 IDX0                     ; includes/geo.hpp  :0708
 FN 9: IF Q0 EQU 0 GOTO LBL "CASE0_72"                 ; includes/geo.hpp  :0708
 FN 9: IF Q0 EQU 6 GOTO LBL "CASE1_72"                 ; includes/geo.hpp  :0708
 FN 9: IF Q0 EQU 1 GOTO LBL "CASE2_72"                 ; includes/geo.hpp  :0708
 FN 9: IF Q0 EQU 7 GOTO LBL "CASE3_72"                 ; includes/geo.hpp  :0708
 FN 9: IF Q0 EQU 2 GOTO LBL "CASE4_72"                 ; includes/geo.hpp  :0708
 FN 9: IF Q0 EQU 8 GOTO LBL "CASE5_72"                 ; includes/geo.hpp  :0708
 FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_72"              ; includes/geo.hpp  :0708
  LBL "CASE0_72"                                       ; includes/geo.hpp  :0710
  LBL "CASE1_72"                                       ; includes/geo.hpp  :0711
  FN 18: SYSREAD QL146 = ID 270 NR 1 IDX 1             ; includes/geo.hpp  :0712
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_72"             ; includes/geo.hpp  :0713
  LBL "CASE2_72"                                       ; includes/geo.hpp  :0714
  LBL "CASE3_72"                                       ; includes/geo.hpp  :0715
  FN 18: SYSREAD QL146 = ID 270 NR 1 IDX 2             ; includes/geo.hpp  :0716
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_72"             ; includes/geo.hpp  :0717
  LBL "CASE4_72"                                       ; includes/geo.hpp  :0718
  LBL "CASE5_72"                                       ; includes/geo.hpp  :0719
  FN 18: SYSREAD QL146 = ID 270 NR 1 IDX 3             ; includes/geo.hpp  :0720
  FN 9: IF 0 EQU 0 GOTO LBL "SWITCHEND_72"             ; includes/geo.hpp  :0721
 LBL "SWITCHEND_72"                                    ; includes/geo.hpp  :0722
 FN 11: IF QL141  GT 0  GOTO LBL "IFNOT_73"            ; includes/geo.hpp  :0723
  QL140 = QL142 + QL140                                ; includes/geo.hpp  :0725
  FN 11: IF QL146  GT QL140  GOTO LBL "IFNOT_74"       ; includes/geo.hpp  :0726
   Z+QL140 R0 FMAX                                     ; includes/geo.hpp  :0728
  LBL "IFNOT_74"                                       ; includes/geo.hpp  :0729
 FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_73"                  ; includes/geo.hpp  :0730
 LBL "IFNOT_73"                                        ; includes/geo.hpp  :0730
  QL140 = QL142 - QL140                                ; includes/geo.hpp  :0733
  FN 12: IF QL146  LT QL140  GOTO LBL "IFNOT_75"       ; includes/geo.hpp  :0734
   Z+QL140 R0 FMAX                                     ; includes/geo.hpp  :0736
  LBL "IFNOT_75"                                       ; includes/geo.hpp  :0737
 LBL "ENDIF_73"                                        ; includes/geo.hpp  :0738
LBL 0                                                  ; includes/stdlib.hh:0049
LBL "EXIT"                                             ;                   :-001
 FN 17: SYSWRITE ID 990 NR 1 = 0                       ; includes/probe.hpp:0369
 FN 17: SYSWRITE ID 990 NR 2 = 0                       ; includes/probe.hpp:0371
 FN 10: IF Q15  NE 1  GOTO LBL "IFNOT_76"              ; includes/probe.hpp:0372
  FN 17: SYSWRITE ID 370 NR 5 = Q15                    ; includes/probe.hpp:0374
 LBL "IFNOT_76"                                        ; includes/probe.hpp:0375
END PGM MM
