Fagor BCSD - Page 40

·40·
Installation manual
BCSD
System
4.
PLC
REF. 1711
PLC program
() = ERA M1 2000 ; Delete PLC marks
= ERA O1 O512 ; Delete PLC outputs
= ERA C7 255 ; Delete PLC counters
= ERA T1 255 ; Delete PLC timers
= ERA R1 499 ; Delete PLC registers
= SET M_CY1 ; First PLC scan
;
() = GEAR1 ; No spindle gear change
;
END
;
;*********************************************************************
;*********************************************************************
;PLC PROGRAM
;*********************************************************************
;*********************************************************************
;
PRG
REA
;
;*********************************************************************
;CNC STATUS
;
; Knowledge of the status of the CNC: Manual/Automatic in ISO mode,
; Manual/Automatic in conversational mode.
;
;*********************************************************************
;
() = CNCRD(OPMODE,R1,M_CNCRD) ; ACTUAL OPERATION MODE (OPMODE)
= CNCRD(OPMODA,R2,M_CNCRD) ; MAIN CHANNEL OPERATION MODE (OPMODA)
;
CUSTOM ; CNC conversational mode
AND NOT B0R2 ; CNC in execution
= M_MAN_CONV ; CNC manual CONV mode
;
MANUAL ; CNC manual ISO mode
OR M_MAN_CONV ; CNC manual CONV mode
= M_MANUAL ; CNC manual in any mode
;
CUSTOM ; CNC conversational mode
AND B0R2 ; CNC in execution
= M_AUT_CONV ; CNC automatic CONV mode
;
AUTOMAT ; CNC automatic ISO mode
OR M_AUT_CONV ; CNC automatic CONV mode
= M_AUTO_MODE ; CNC automatic in any mode
;
;*********************************************************************
; DIGITAL DRIVER STATUS
;
; Digital drive enabling operation. Knowledge of the status of the
; digital drives.
;
;*********************************************************************
;
DRSTAFX = B1R3 ; X AXIS DRIVER STATUS
DRSTASX = B0R3 ; X AXIS DRIVER STATUS
;
CPS R3 GE 1 ; X drive ready
= M_DRV_X_NERR ; X drive no error
CPS R3 LT 2 ; X drive power
= M_DRV_X_NPOWER ; X drive no power
CPS R3 LT 3 ; X drive without torque
= B1R16 ; FEEDHOLD drive X with no torque
CPS R3 EQ 3 ; X drive with torque
= M_DRV_X_TORQUE ; X drive with torque
;
DRSTAFY = B1R4 ; Y AXIS DRIVER STATUS
DRSTASY = B0R4 ; Y AXIS DRIVER STATUS