It's a Fagor 8055i Control that was installed back in 2007 from what I can
see. I have looked thru the manuals and they don't have a ladder printout,
like they normally would/should. 

I believe its called Boolean??? I can somewhat figure out what is going on,
honestly it looks similar, and I may be wrong, to the way that things are
handled thru the HAL files.

The company that put the control on was not real receptive to making it what
the shop wanted, more what they wanted, programming and feature wise. 

I have been trying to fine tune the ladder logic on my linux controls in
regards to the tool turret operation, and figured if I could crack the code
on this one, I might be able to adopt some things to mine. This one runs
flawlessly.

Just for grins, here is what it looks like, I will add this is for a 6 OD, 6
ID tool turret, my machines have 7 OD and 7 ID. The 18" Cinci's came with
the 6/6 tool config, while the 10",12" and 15" machines came with the 7/7
config.


;  =======================================
;  =            TURRET LOGIC             =
;  =======================================
;          TURRET T1/T11 TO T6/T16
;          =======================
TUR-BCD1-I = B0R70    ; TURRET POSITION BCD1 14LS
TUR-BCD2-I = B1R70    ; TURRET POSITION BCD2 15LS
TUR-BCD4-I = B2R70    ; TURRET POSITION BCD4 16LS
;
MANPOSBCD1-I = B0R71    ; MANUAL TOOL SELECT BCD1
MANPOSBCD2-I = B1R71    ; MANUAL TOOL SELECT BCD2
MANPOSBCD4-I = B2R71    ; MANUAL TOOL SELECT BCD4
;
(MANUAL OR CUSTOM) AND NOT INCYCLE AND MANPOSMSD0-I AND DFU MANTLCHGPB-I
AND CPS R71 EQ 1 = CNCEX1(T1,M1011) 
(MANUAL OR CUSTOM) AND NOT INCYCLE AND MANPOSMSD0-I AND DFU MANTLCHGPB-I
AND CPS R71 EQ 2 = CNCEX1(T2,M1011) 
(MANUAL OR CUSTOM) AND NOT INCYCLE AND MANPOSMSD0-I AND DFU MANTLCHGPB-I
AND CPS R71 EQ 3 = CNCEX1(T3,M1011) 
(MANUAL OR CUSTOM) AND NOT INCYCLE AND MANPOSMSD0-I AND DFU MANTLCHGPB-I
AND CPS R71 EQ 4 = CNCEX1(T4,M1011) 
(MANUAL OR CUSTOM) AND NOT INCYCLE AND MANPOSMSD0-I AND DFU MANTLCHGPB-I
AND CPS R71 EQ 5 = CNCEX1(T5,M1011) 
(MANUAL OR CUSTOM) AND NOT INCYCLE AND MANPOSMSD0-I AND DFU MANTLCHGPB-I
AND CPS R71 EQ 6 = CNCEX1(T6,M1011) 
;
(MANUAL OR CUSTOM) AND NOT INCYCLE AND DFU MANTLCHGPB-I
AND CPS R71 EQ 1 AND NOT MANPOSMSD0-I = CNCEX1(T11,M1011) 
(MANUAL OR CUSTOM) AND NOT INCYCLE AND DFU MANTLCHGPB-I
AND CPS R71 EQ 2 AND NOT MANPOSMSD0-I = CNCEX1(T12,M1011) 
(MANUAL OR CUSTOM) AND NOT INCYCLE AND DFU MANTLCHGPB-I
AND CPS R71 EQ 3 AND NOT MANPOSMSD0-I = CNCEX1(T13,M1011) 
(MANUAL OR CUSTOM) AND NOT INCYCLE AND DFU MANTLCHGPB-I
AND CPS R71 EQ 4 AND NOT MANPOSMSD0-I = CNCEX1(T14,M1011) 
(MANUAL OR CUSTOM) AND NOT INCYCLE AND DFU MANTLCHGPB-I
AND CPS R71 EQ 5 AND NOT MANPOSMSD0-I = CNCEX1(T15,M1011) 
(MANUAL OR CUSTOM) AND NOT INCYCLE AND DFU MANTLCHGPB-I
AND CPS R71 EQ 6 AND NOT MANPOSMSD0-I = CNCEX1(T16,M1011) 
;
DFU TSTROBE AND CPS TBCD NE -1 AND CPS TBCD NE -2
AND CPS TBCD LE $16
 = CNCRD(TOOL, R55, M1001)  ; ACTIVE TOOL
 = MOV TBCD R52 1032        ; R52 REQUESTED TOOL POSITION IN BINARY
 = SET M699                 ; M699 = VALID TOOL REQEST
 = SET M760
;
CPS R55 GE 11
= SBS R55 10 R55
CPS R52 GE 11
= SBS R52 10 R52
;
CPS R55 NE R52 AND          ; TOOL REQUESTED DIFFRENT THEN ACTUAL
NOT M850 
AND M699 = SET M700         ; M700 = TOOL CHANGE IN PROGRESS
= RES M699
= SBS R52 R55 R59
M700 AND CPS R59 LT 0 = ADS R59 6 R59
;
DFU M700 OR DFU M750        ; VALID TOOL REQUESTED AND NOT THERE YET
 = SET TURRUNCLM-O          ; REQUEST TO UNCLAMP  
 = SET M701                 ; M701 = TURRET UNCLAMPED
;
(M700 OR M750) 
AND M701 AND TUR-UNCLMP-I AND NOT TUR-CLMPED-I ; CONFIRMED TURRET UNCLAMPED
 = RES M701 = SET M702      ; M702 =   TURRET READY TO ROTATE
;
M702 = TG2 27 300           ; 0.5 SEC. DELAY FOR ROTATE
T27
AND TUR-UNCLMP-I AND NOT TUR-CLMPED-I
= SET TURRINDEX-O           ; REQUEST TO ROTATE  
;
NOT M750 AND
M702 AND TURRINDEX-O AND DFU TUR-STR-REL-I ;  TURRET IS ROTATING
 = CUP 1                    ; COUNT UP COUNTER 1
M750 AND 
M702 AND TURRINDEX-O AND DFU TUR-STR-REL-I ;  TURRET IS ROTATING
 = CUP 2                    ; COUNT UP COUNTER 2
;
;PRESET COUNTER 1 TO VALUE 1 IF PAST POCKET 6
NOT M750 AND
M700 AND M702 AND CPS C1 GE 6 AND TURRINDEX-O = CPR 1 0 
M750 AND
M700 AND M702 AND CPS C1 GE 2 AND TURRINDEX-O = CPR 2 0 
;
TURRINDEX-O AND
(M700 OR M750) AND M702 AND ((CPS R59 EQ C1 AND M700) 
OR (CPS C2 EQ 1 AND M750))  ; FOUND REQUESTED TOOL
 = RES TURRINDEX-O          ; STOP ROTATION
 = RES M702 = SET M703      ; M703 = FOUND TOOL, STOP ROTATION
;
M703 = TG2 28 800           ; 0.5 SEC. DELAY FOR CLAMPING
T28 AND
(M700 OR M750) AND M703 AND NOT TURRINDEX-O
 = RES TURRUNCLM-O          ; CLAMP   TURRET
;
(M700 OR M750) AND M703 AND TUR-CLMPED-I AND NOT TUR-UNCLMP-I 
 = RES M703 
 = RES M700      ; DONE!!!!
 = RES M750
 = CPR 1 0 
 = CPR 2 0 
 = SET M810
 = SET M761
M761 = CNCRD(TOOL, R75, M1001) ; ACTIVE TOOL
;  =========== CHECK IF CORRECT TOOL ===========
M761 AND CPS R75 GE 11 = SBS R75 10 R75
M761 AND CPS R75 NE R70 = MSG11
CPS R75 EQ R70 = RES M761
; 


------------------------------------------------------------------------------
HPCC Systems Open Source Big Data Platform from LexisNexis Risk Solutions
Find What Matters Most in Your Big Data with HPCC Systems
Open Source. Fast. Scalable. Simple. Ideal for Dirty Data.
Leverages Graph Analysis for Fast Processing & Easy Data Exploration
http://p.sf.net/sfu/hpccsystems
_______________________________________________
Emc-users mailing list
Emc-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/emc-users

Reply via email to