%PLC DOSYASI         ,MX-O,
;
;######################################
;# GIRIS-CIKIS-ISARETCI TANIMLAMALARI #
;######################################
;
DEF  ACIL_I                 I1
DEF  X_LIM+                 I71
DEF  X_LIM-                 I69
DEF  X_REF                  I89
;
DEF  Z_LIM+                 I91
DEF  Z_LIM-                 I73
DEF  Z_REF                  I75
DEF  SPD_ALRM       I10 
DEF  OT_BYPASS      I3
DEF  PDL_AYACKAPA            I93
DEF  PDL_PUNILGER            I95
DEF  Z0             I99
DEF  Z1             I101
DEF  Z2             I103
DEF  Z3             I98
DEF  TARET_SW       I104
;
DEF  ACIL_O               O1
DEF  SERVON               O36
DEF  SPDRUN               O38
DEF  PUNTILRI             O53
DEF  PUNTGERI             O55
DEF  AYNCLAMP             O51
DEF  AYNUNCLAMP           O49
DEF  TCLAMP               O45
DEF  TUNCLMP              O47
DEF  BORYAG               O39
DEF  HID_MTR              O37
DEF  KZK_YGLM             O34
DEF  TURRET_CW            O41
DEF  TURRET_CCW           O43
;
;
DEF  LIMITLER       M1
DEF  SURUCULER      M2
;
;##################### 
;# BASLANGIC DONGUSU #
;#####################
;
CY1
;
() = ERA O1 24               
   = ERA M1 4000             
   = ERA R1 255              
   = ERA T1 255              
   = ERA C1 C255
   = /XFERINH
   = /STOP
   = CNCRD(TOOL,R222,M101)
   = CNCWR(R222,GUP166,M101)
      ; 
END 
;
;############### 
;# ANA PROGRAM #
;###############
;
PRG
REA
;I5 = TURRET_CW 
;I7 = M50
;M50 = TCLAMP 
;NOT M50 = TUNCLMP  
;;
DFU MSTROBE AND CPS MBCD* EQ $10 = TG4 6 2000
T6 = TCLAMP
DFU MSTROBE AND CPS MBCD* EQ $11 = TG4 7 2000
T7 = TUNCLMP
;;
;;
M2 AND (B1R563 OR M215) = TURRET_CW ; TURRET CW
;M2 AND (B2R563 OR M217) = O45         ; TURRET CCW
;(NOT M2 AND B3R563) OR M216 OR M301 = SET M7
;M7 = O49 = MSG5         ; TURRET KURMA
;B4R563 OR M233= RES M7 = RES M55
;
M300 AND M800 = RES M215 = SET M301 =TG2 10 1000
T10 = SET M217 = TG2 11 100
T11 = RES M800 = RES M217 = RES M216 = RES M800 = RES M300 = RES M301
DFU MSTROBE AND CPS MBCD* EQ $300 = SET M300
; 
;NOT I104=B0R80  ; TURRET KILITLEME
I87 = B0R81 ; SISTEM KILITLI
;
;
()=CNCWR(R10,GUP144,M100)
()=CNCRD(TOOL,R11,M101)
;CPS R11 EQ R10 = RES M86
;
I77 AND NOT M400 AND NOT M401 =MOV 1 R10 ; TAKIM 7
I77 AND I79 = M400 = MOV 2 R10 ; TAKIM 4
I79 AND I83 = M403= MOV 3 R10 ; TAKIM 8
I81 AND NOT M401 = MOV 4 R10 ; TAKIM 16
I81 AND I77 AND I83 = M401 = MOV 5 R10 ; TAKIM 14
I85 AND NOT M402 = MOV 6 R10 ; TAKIM 9
I83 AND I85 = M402 =MOV 7 R10 ; TAKIM 5
I83 AND NOT M403 AND NOT M402 AND NOT M401 = MOV 8 R10 ; TAKIM 2
;############
;# MPG TEST #
;############
B18R562=CUP 15                   
CPS C15 EQ 2 = M76
CPS C15 EQ 3 = M77
M76 = M100                     
M77 = ERA C15 C16
;
M100 = MSG15
;
NOT M100 = JMP L101
;
() = CNCRD(HANPF,R91,M1)
;
CPS R91 EQ R92
= MOV 0 R93
= OR KEYDIS4 $7FFFFF KEYDIS4
= CNCWR(R93,PLCFRO,M1)
;
CPS R91 NE R92
= AND KEYDIS4 $FF800000 KEYDIS4
;
()= MOV R91 R92
;
L101
;
DFD M100 = AND KEYDIS4 $FF800000 KEYDIS4
;
;##############
;# AYNA-PEDAL #
;##############
;
NOT INCYCLE AND NOT M601 = M211
;
M211 AND PDL_AYACKAPA = CUP 10 
CPS C10 EQ 2 = M70
CPS C10 EQ 3 = M71
M70 = M201 = RES M202
M71 = ERA C10 C11 = SET M202 = RES M201 
M201 = TG4 2 5000
T2=AYNCLAMP
;
M202 = TG4 3 5000
T3=AYNUNCLAMP
;
;
;###############
;# PUNTA-PEDAL #
;###############
;
NOT INCYCLE AND NOT M601 = M311
;
M311 AND PDL_PUNILGER = CUP 12 
CPS C12 EQ 2 = M80
CPS C12 EQ 3 = M81
M80 = M301 = RES M302
M81 = ERA C12 C13 = SET M302 = RES M301 
M301 = TG4 4 5000
T4 = PUNTGERI  
;
M302 = TG4 5 5000
T5 = PUNTILRI
;
;####################
;## TAKIM DEGISTIRE #
;####################
;
() = CNCRD(OPMODE,R280,M101)
CPS R280 EQ 20 OR
CPS R280 EQ 21 OR
CPS R280 EQ 22 OR
CPS R280 EQ 23 OR
CPS R280 EQ 24 OR
CPS R280 EQ 25
=M333              ; CNC SIMILASYONDA
;
;##########################
;#   ACIL DURUM HATTI     #
;##########################
;
(ACIL_I AND X_LIM+ AND X_LIM- AND Z_LIM+ AND Z_LIM-)
OR OT_BYPASS OR I5
= M10 = M2
;
M10 = /EMERGEN
/ALARM AND NOT LOPEN AND 
/EMERGEN
= ACIL_O 
= HID_MTR
;
;###################
;# IZIN SINYALLERI #
;###################
;
MSTROBE OR TSTROBE OR SSTROBE
= TG1 1 100             
;
NOT T1
= AUXEND
;
;###################
;# XFERINH SINYALI #
;###################
;
() = /XFERINH    
;
ACIL_I AND NOT T1 = /FEEDHOL 
;
;######################
;# EKSEN REFERANSLAMA #
;######################
;
NOT X_REF = DECEL1  ; X HOME
NOT Z_REF = DECEL2  ; Z HOME
;
REFPOIN1                     
AND REFPOIN2
= M22        
;
;###############
;# CYCLE START #
;###############
() = CNCRD(OPMODE,R113,M1)
CPS R113 EQ 43 = M52
;
() = CNCRD(OPMODE,R113,M1)
CPS R113 EQ 10 = M53
;
() = CNCRD(OPMODE,R113,M1)
CPS R113 EQ 40 = M54
;
START AND (MANUAL OR M52 OR M53 OR M54 OR (AUTOMAT AND M22)) = CYSTART 
;
; 
;###################
;# SURUCU IZINLERI #
;###################
;
M10 AND  
NOT LOPEN 
= M600  ; READY TO GET POWERED
;
M600
= SERVO1ON
= SERVO2ON
= SERVON
;#########
;# M3-M4 #
;#########
;
M703                         ; M03
OR M704                      ; OR M04
   = SET M200                ; SPINDLE RUN
;
M705                         ; M05
OR M702                      ; OR M02
OR M730                      ; OR M30
OR M719                      ; OR M19
OR RESETOUT                  ; OR RESET
OR NOT /EMERGEN     ; OR EMERGENCY
   = RES M200 = RES M90 = RES M485               ; SPINDLE STOP
;
;
;##################
;# SPINDLE ENABLE #
;##################
() = GEAR1
;
;     
;
;##################
;# M CODE PROCESS #
;##################
DFU MSTROBE AND CPS MBCD* EQ $00 = M700     ; M00 Program STOP
CPS MBCD* EQ $01 = M701     ; M01 conditional STOP
M701 = M01STOP
DFU MSTROBE AND CPS MBCD* EQ $02 = M702     ; M02 end of program
DFU MSTROBE AND CPS MBCD* EQ $03 = M703     ; M03 Spindle CW
DFU MSTROBE AND CPS MBCD* EQ $04 = M704     ; M04 Spindle CCW
DFU MSTROBE AND CPS MBCD* EQ $05 = M705     ; M05 Spindle STOP
DFU MSTROBE AND CPS MBCD* EQ $08 = M708     ; M08 Coolant ON
DFU MSTROBE AND CPS MBCD* EQ $09 = M709     ; M09 Coolant OFF
DFU MSTROBE AND CPS MBCD* EQ $10 = M710     ; M19 Spindle orientation
DFU MSTROBE AND CPS MBCD* EQ $25 = M225     ; M25 TOOL CLAMP
DFU MSTROBE AND CPS MBCD* EQ $26 = M226     ; M08 TOOL UNCLAMP
DFU MSTROBE AND CPS MBCD* EQ $30 = M730     ; M30 end of program
;######################
;# BOR YAGI #
;######################
M708 OR B13R562 = SET M485 
M709 OR B29R562 = RES M485
M485 = BORYAG
;
;########
;# ISIK #
;########
;
;
;####################
;### MESAJLAR########
;####################
SPD_ALRM = ERR4   ; SPD HAZIR DEGIL
NOT M22 = MSG1       ; REFERANSA GTMEDI
;M90 = ERR5
END
