;APR17 APW16
;=============================
; MAIN PROG.
;=============================
DEF NCK APR 17 APW 10 INT MACH_TYPE
DEF NCK APR 17 APW 10 STRING[6] NAME_OP
DEF NCK APR 17 APW 10 STRING[3] NAME_CLONE
DEF NCK APR 17 APW 10 INT CODE_PIECE ; work model code
DEF NCK APR 17 APW 14 INT LOAD_PIECE ; load work model code
DEF NCK APR 17 APW 10 STRING[20] NAME_PIECE ; work model name
DEF NCK APR 17 APW 10 INT PRESENCE_PIECE ; work presence check
DEF NCK APR 17 APW 10 INT BRUSH_CNT=0 ; USE THE BRUSH OFFSET COUNT

;------------------------------------
; Variables define Touch Probe
;------------------------------------
DEF NCK APR 17 APW 14 BOOL MANU_CALI
DEF NCK APR 17 APW 10 BOOL TB_CAL_ON
DEF NCK APR 17 APW 10 INT TB_CNT=1
DEF NCK APR 17 APW 10 INT TB_PRI_CNT=1

DEF NCK APR 17 APW 10 REAL PREV_ERR_X
DEF NCK APR 17 APW 10 REAL PREV_ERR_Y
DEF NCK APR 17 APW 10 REAL PREV_ERR_Z

DEF NCK APR 14 APW 10 INT T_NO_PROBE
DEF NCK APR 14 APW 10 INT MEAS_DAY
DEF NCK APR 14 APW 10 INT MEAS_HOUR
DEF NCK APR 14 APW 10 INT SET_HR
DEF NCK APR 14 APW 10 REAL LIM_ERR ; Mesurement tolerance
DEF NCK APR 14 APW 10 REAL PREV_ERR ; Mesurement tolerance for comparing with previous result
;------------------------------------

;-------------------------------------------------
; MCC CLEANING
;-------------------------------------------------
DEF NCK APR 17 APW 10 BOOL OPT_CLN
DEF NCK APR 17 APW 10 INT T_NO_CLEANUP
DEF NCK APR 17 APW 10 INT CLN_PRI_CNT
DEF NCK APR 17 APW 10 INT CLN_CNT

;-------------------------------------------------
; SPC
;-------------------------------------------------
DEF NCK APR 17 APW 10 INT NTSPC_MACHINING_SETTING_VALUE
DEF NCK APR 17 APW 10 INT NTSPC_MACHINING_ACTUAL_VALUE

;-------------------------------------------------
; FIRST TOOL CHANGE & TABLE TURNING
;-------------------------------------------------
DEF NCK APR 14 APW 10 BOOL OPT_TCALL
DEF NCK APR 14 APW 10 INT T_NO_1ST[WKTYPE_NUM]
DEF NCK APR 14 APW 10 INT ANG_A_1ST[WKTYPE_NUM]
DEF NCK APR 14 APW 10 INT ANG_B_1ST[WKTYPE_NUM]

;-------------------------------------------------
; LD/UNLD. POSITION
;-------------------------------------------------
DEF NCK APR 14 APW 10 REAL LOAD_POS_X
DEF NCK APR 14 APW 10 REAL LOAD_POS_Y
DEF NCK APR 14 APW 10 REAL LOAD_POS_Z
DEF NCK APR 14 APW 10 REAL UN_LOAD_POS_Z
DEF NCK APR 14 APW 10 REAL LOAD_POS_A
DEF NCK APR 14 APW 10 REAL UN_LOAD_POS_A
DEF NCK APR 14 APW 10 REAL LOAD_POS_B
DEF NCK APR 14 APW 10 REAL UN_LOAD_POS_B

;-------------------------------------------------
; EMG. RETURN
;-------------------------------------------------
DEF NCK APR 14 APW 10 INT NDEG_US
DEF NCK APR 14 APW 10 REAL POS_X_DEG
DEF NCK APR 14 APW 10 REAL POS_Y_DEG
DEF NCK APR 14 APW 10 REAL POS_Z_DEG
DEF NCK APR 14 APW 10 REAL VT1_BR[POT_NUM] ; TAP RETURN(RPM)
DEF NCK APR 14 APW 10 REAL PAS[POT_NUM] ; TAP RETURN (INDEX=NREP)

;-------------------------------------------------
; FIX SOL COUNT
;-------------------------------------------------
DEF NCK APR 14 APW 10 INT FIX_SOL_TYPE

;-------------------------------------------------
; OPT.
;-------------------------------------------------
DEF NCK APR 14 APW 10 BOOL OPT_PROBE ; T/PROBE USE
DEF NCK APR 17 APW 10 BOOL OPT_OVR_RPM ; LONG TOOL BREAKAGE IN SIMULATION MODE
DEF NCK APR 17 APW 10 BOOL OPT_SKP_BRUSH ; FACE BRUSH SKIP
DEF NCK APR 17 APW 10 BOOL OPT_CT_CHK ; CUTTING/NON-CUTTING TIME CHECK
DEF NCK APR 17 APW 10 BOOL OPT_RPM_FEED_CHK ;RPM / FEED OVERRIDE CHECK


;-------------------------------------------------
; TABLE TYPE
;-------------------------------------------------
DEF NCK APR 14 APW 10 BOOL OPT_A
DEF NCK APR 14 APW 10 BOOL OPT_B
DEF NCK APR 14 APW 10 BOOL OPT_AB

;=============================
; WARM-UP
;=============================
DEF NCK APR 14 APW 10 INT S_MAX_T_WARMINGUP
DEF NCK APR 14 APW 10 INT T_NO_WARMINGUP
DEF NCK APR 14 APW 10 INT NBR_CYCLE
DEF NCK APR 14 APW 10 BOOL OPT_COOLANT

;=============================
; ETC.
;=============================
REDEF $MA_ENC_COMP_ENABLE APR 7 APW 7

DEF NCK APR 14 APW 10 BOOL _TBD_CHECK
DEF NCK APR 14 APW 10 BOOL _CHANGE

;----------------------------------------------------
; TCY CYCLE TIME
;----------------------------------------------------
;DEF NCK APR 14 APW 10 BOOL CENTIEME=0
;DEF NCK APR 14 APW 10 BOOL SECONDES=1
;DEF NCK APR 14 APW 10 REAL R_[10]
;Def NCK APR 14 APW 10 string[2] langue

;----------------------------------------------------
; OMATIVE
;----------------------------------------------------
DEF CHAN STRING[20] _PM_TASK_NAME[1]
DEF CHAN INT _PM_OACM_REFRESH
DEF CHAN REAL _PM_OACM_PARAM[4]


;----------------------------------------------------
; SIEMENS STANDARD GUD ; missing variable in system
;----------------------------------------------------

N10 DEF CHAN INT _ZSD[15]=REP(-1)
N11 REDEF _ZSD INIRE
N12 DEF CHAN REAL _SC_C97[2,4]
N15 DEF CHAN REAL _CONT2[10]
N16 DEF CHAN REAL _SC_WO
N17 REDEF _SC_WO INIRE 0
N18 DEF CHAN INT _SC_PC
N19 REDEF _SC_PC INIRE 0
N20 DEF CHAN REAL _SC_POS[4]=SET(0,0,0,0)
N21 DEF CHAN INT _TC_FR
N22 DEF CHAN INT _TC_ST
N23 DEF CHAN INT _TC_MODE
N24 DEF CHAN REAL _TC_P[10]
N25 DEF CHAN INT _TC_DIR=-1
N26 DEF CHAN INT _TC_N_WZ
N27 DEF CHAN INT _TC_A_WZ
N28 DEF CHAN REAL _TC_A1
N29 DEF CHAN REAL _TC_A2
N30 DEF CHAN INT _TC_NUM
N31 DEF CHAN REAL _TC_FR_I
N31 DEF CHAN REAL _VAR_NUM
N32 DEF CHAN STRING[200] _VAR_TEXT
N33 DEF CHAN INT _SC_FIRST_CONT=0
N34 DEF CHAN INT _SC_LAST_CONT=0
N35 REDEF _SC_FIRST_CONT INIRE
N36 REDEF _SC_LAST_CONT INIRE