BEGIN PGM CheckSpiInMotion.h MM ; h++_2_01 2012_01_11
 CALL LBL "check_spindle_status"                       ; src/sub/CheckSpiInMotion.hpp:0006
FN 9: IF 0 EQU 0 GOTO LBL "EXIT"                       ; src/MillCommon.hpr:0064
LBL "check_spindle_status"                             ; src/MillCommon.hpr:0064
 QS2   = SYSSTR( ID 10025 NR 1 )                       ; includes/geo.hpp  :0806
 QS3   = "CfgGeoCycle"                                 ; includes/geo.hpp  :0807
 QS4   = "displaySpindleErr"                           ; includes/geo.hpp  :0808
 Q0 = CFGREAD( KEY_ QS2 TAG_ QS3 ATR_ QS4 )            ; includes/geo.hpp  :0809
 FN 10: IF Q0  NE 1  GOTO LBL "IFNOT_1"                ; includes/geo.hpp  :0809
  FN 18: SYSREAD Q1 = ID 992 NR 20                     ; includes/geo.hpp  :0811
  FN 10: IF Q1  NE 0  GOTO LBL "IFNOT_2"               ; includes/geo.hpp  :0811
   FN 18: SYSREAD QL0 = ID 20 NR 5                     ; includes/geo.hpp  :0816
   FN 9: IF QL0  EQU 0 GOTO LBL "IFNOT_3"              ; includes/geo.hpp  :0817
   FN 9: IF QL0  EQU 1 GOTO LBL "IFNOT_3"              ; includes/geo.hpp  :0817
    FN 14: ERROR= 1000                                 ; includes/geo.hpp  :0819
   LBL "IFNOT_3"                                       ; includes/geo.hpp  :0820
  FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_2"                  ; includes/geo.hpp  :0821
  LBL "IFNOT_2"                                        ; includes/geo.hpp  :0821
   CALL LBL "state_exec"                               ; includes/geo.hpp  :0827
   Q0 = QL1                                            ; includes/geo.hpp  :0827
   FN 9: IF Q0  EQU 0  GOTO LBL "IFNOT_4"              ; includes/geo.hpp  :0827
    LBL 0                                              ; includes/geo.hpp  :0827
   LBL "IFNOT_4"                                       ; includes/geo.hpp  :0827
   FN 20: WAIT FOR SYNC                                ; includes/geo.hpp  :0831
   QL0 = 100                                           ; includes/geo.hpp  :0832
   FN 17: SYSWRITE ID 13 NR3 =+9990                    ; includes/geo.hpp  :0833
   READ FROM PLC KEY "PLC_API_VERSION" TO QL0          ; includes/geo.hpp  :0834
   LBL 9990                                            ; includes/geo.hpp  :0835
   FN 10: IF QL0  NE 100  GOTO LBL "IFNOT_5"           ; includes/geo.hpp  :0836
    FN 18: SYSREAD QL0 = ID 2000 NR 10 IDX 4000        ; includes/geo.hpp  :0838
    FN 10: IF QL0  NE 1  GOTO LBL "IFNOT_6"            ; includes/geo.hpp  :0839
     FN 14: ERROR= 1000                                ; includes/geo.hpp  :0841
    LBL "IFNOT_6"                                      ; includes/geo.hpp  :0842
   FN 9: IF 0 EQU 0 GOTO LBL "ENDIF_5"                 ; includes/geo.hpp  :0843
   LBL "IFNOT_5"                                       ; includes/geo.hpp  :0843
    QS2   = SYSSTR( ID 10025 NR 1 )                    ; includes/geo.hpp  :0849
    QS3   = "CfgActivateKinem"                         ; includes/geo.hpp  :0850
    QS4   = "kinemToActivate"                          ; includes/geo.hpp  :0851
    QS2 = CFGREAD( KEY_ QS2 TAG_ QS3 ATR_ QS4 )        ; includes/geo.hpp  :0852
    QS3   = "CfgKinComposModel"                        ; includes/geo.hpp  :0853
    QS4   = "activeSpindle"                            ; includes/geo.hpp  :0854
    QS9 = CFGREAD( KEY_ QS2 TAG_ QS3 ATR_ QS4 )        ; includes/geo.hpp  :0855
    QS2   = ""                                         ; includes/geo.hpp  :0860
    QS3   = "CfgAxes"                                  ; includes/geo.hpp  :0861
    QS4   = "spindleIndices"                           ; includes/geo.hpp  :0862
    QL0=0                                              ; includes/geo.hpp  :0863
    FN 9: IF 0 EQU 0 GOTO LBL "FORCMP_7"               ; includes/geo.hpp  :0863
    LBL "FOR_7"                                        ; includes/geo.hpp  :0863
    QL0 = QL0 + 1                                      ; includes/geo.hpp  :0863
    LBL "FORCMP_7"                                     ; includes/geo.hpp  :0863
     FN 17: SYSWRITE ID 13 NR 3 = 9991                 ; includes/geo.hpp  :0865
     QS1 = CFGREAD( KEY_ QS2 TAG_ QS3 ATR_ QS4 IDX QL0 )
     Q0 = STRCOMP( SRC_ QS1 SEA_ QS9 )                 ; includes/geo.hpp  :0867
     FN 10: IF Q0  NE 0  GOTO LBL "IFNOT_8"            ; includes/geo.hpp  :0867
      QS1 = "ApiSpin[" || TOCHAR( DAT+QL0 DECIMALS 0 ) || "].NN_SpiMotionRequest"
      READ FROM PLC KEY QS1 TO QL0                     ; includes/geo.hpp  :0870
      FN 10: IF QL0  NE 0  GOTO LBL "IFNOT_9"          ; includes/geo.hpp  :0871
       FN 14: ERROR= 1000                              ; includes/geo.hpp  :0873
      LBL "IFNOT_9"                                    ; includes/geo.hpp  :0874
      FN 9: IF 0 EQU 0 GOTO LBL "FORNOT_7"             ; includes/geo.hpp  :0875
     LBL "IFNOT_8"                                     ; includes/geo.hpp  :0876
    FN 9: IF 0 EQU 0 GOTO LBL "FOR_7"                  ; includes/geo.hpp  :0877
    LBL "FORNOT_7"                                     ; includes/geo.hpp  :0877
    LBL 9991                                           ; includes/geo.hpp  :0878
   LBL "ENDIF_5"                                       ; includes/geo.hpp  :0879
  LBL "ENDIF_2"                                        ; includes/geo.hpp  :0880
 LBL "IFNOT_1"                                         ; includes/geo.hpp  :0881
LBL 0                                                  ; src/MillCommon.hpr:0064
LBL "state_exec"                                       ; src/MillCommon.hpr:0064
 FN 18: SYSREAD QL1 = ID 992 NR 11                     ; includes/geo.hpp  :0483
 FN 10: IF QL1  NE 1  GOTO LBL "IFNOT_10"              ; includes/geo.hpp  :0484
  QL1 = 3                                              ; includes/geo.hpp  :0486
  LBL 0                                                ; includes/geo.hpp  :0487
 LBL "IFNOT_10"                                        ; includes/geo.hpp  :0488
 FN 18: SYSREAD QL1 = ID 992 NR 16                     ; includes/geo.hpp  :0490
 FN 10: IF QL1  NE 0  GOTO LBL "IFNOT_11"              ; includes/geo.hpp  :0491
  QL1 = 1                                              ; includes/geo.hpp  :0493
  LBL 0                                                ; includes/geo.hpp  :0494
 LBL "IFNOT_11"                                        ; includes/geo.hpp  :0495
 FN 18: SYSREAD QL1 = ID 992 NR 10                     ; includes/geo.hpp  :0497
 FN 10: IF QL1  NE 1  GOTO LBL "IFNOT_12"              ; includes/geo.hpp  :0498
  QL1 = 2                                              ; includes/geo.hpp  :0500
  LBL 0                                                ; includes/geo.hpp  :0501
 LBL "IFNOT_12"                                        ; includes/geo.hpp  :0502
 QL1 = 0                                               ; includes/geo.hpp  :0503
 LBL 0                                                 ; includes/geo.hpp  :0504
LBL 0                                                  ; src/MillCommon.hpr:0064
LBL "EXIT"                                             ; src/MillCommon.hpr:0064
END PGM MM
