;PLC PROGRAM 1620 - NC201 (17.09.2011) 
;
$
;
;VIDEO  #7 ( )
P11=I6K21
U52K0=P11+U52K0*/[W6K1=17H]
W16K3=MUX(17H,0,0),(U52K0,U10K0,I0K2)
;
;**********          **********
;
;*** ᫨ ⠭ 몫祭 - ⪠ 樨 
;----------   F1...F8  ----------
;    F1-16A20
DOF:/U10K20
W11N0=29
W11N1=0
W11N2=0
W11N3=0
W12N0=0
W12N1=0
W12N2=0
W12N3=0
;----------   F11...F18  ----------
;    箪 
C15I(2)=T23D
W14N3=[246+C15W]
;
W13N1=0
W13N2=0
W13N3=0
W14N0=0
W14N1=0
W14N2=0
END F
;
;*** ᫨ ⠭ 祭, ਢ ⪫祭:
DOF:I0A0*/U4A20
;----------   F1...F8  ----------
;    F1- ਢ (⮫쪮  ० MANU, MANJ)
;    F2-
;    F5-箪 ᬠ
;    F8-
  DOF:I8K27+I8K28
  W11N0=2
  END F
  DOF:/I8K27*/I8K28
  W11N0=0
  END F 
W11N1=0
W11N2=0
W11N3=0
W12N0=30
W12N1=0
W12N2=0
W12N3=0
;----------   F11...F18  ----------
W13N0=17
W13N1=0
W13N2=0
W13N3=0
W14N0=0
W14N1=0
W14N2=0
W14N3=MUX(186,52,51),(U26K17,U4A10,I0A0)
END F
;
;*** ᫨ ਢ  祭, ० MDI, AUTO, STEP 
DOF:U4A20
;----------   F1...F8  ----------
;    F2-
;    F3- UCV
;    F4-/⬥ M01
;    F5- ᬠ
;    F7-㧪 ணࠬ
;    F8-
DOF:(I8K25+I8K26)
W11N0=0
W11N1=0
W11N2=12
W11N3=MUX(5,6),(U26K4,U26K3)
W12N0=30
W12N1=0
W12N2=14
W12N3=0
END F
DOF:I8K24
W11N0=0
W11N1=0
W11N2=12
W11N3=MUX(5,6),(U26K4,U26K3)
W12N0=30
W12N1=0
W12N2=14
W12N3=9
END F
;----------   F11...F18  ----------
DOF:(I8K24+I8K25+I8K26)
W13N0=18
W13N1=MUX(46,48,45),(U11K3,U11K4,I0A0)
W13N2=0
W13N3=MUX(175,174,0),(U26K13,U26K14,I0A0)
W14N0=MUX(91,92,93,94),(I0A8,I0A9,I0A10,I0A11)
W14N0=MUX(95,96,97,98),(I0A12,I0A13,I0A14,I0A15)
W14N0=MUX(71,72,73,74),(U81K0,U81K1,U81K2,U81K3)
W14N0=MUX(75,76,77,78),(U81K4,U81K5,U81K6,U81K7)
W14N1=MUX(60,62,64,0),(U11K16,U11K17,U11K18,I00A0)
W14N2=MUX(53,54,53),(U26K10,U61K26,I0A0)
W14N3=MUX(186,52,51),(U26K17,U4A10,I0A0)
END F
END F
;
;*** ᫨ ਢ  祭, ० MANU 
DOF:U4A20*I8K27
;----------   F1...F8  ----------
;    F1-⪫- ਢ 
;    F2-
;    F3- UCV
;    F4-ࢠ /⪫
;    F5- ᬠ
;    F8-騩  
W11N0=13
W11N1=0
W11N2=12
W11N3=4
W12N0=30
W12N1=0
W12N2=0
W12N3=9
;----------   F11...F18  ----------
W13N0=18 
W13N1=MUX(128,129,130,131,132),(U108K27,U108K26,U108K25,U108K24,U108K23)
W13N1=MUX(133,134,135,136,137),(U108K22,U108K21,U108K20,U108K19,U108K18)
W13N1=MUX(138,139),(U108K17,U108K16)
W13N2=0
W13N3=MUX(175,174,0),(U26K13,U26K14,I0A0)
W14N0=MUX(173,172),(U26K0,U26K1)
W14N1=MUX(60,62,64,0),(U11K16,U11K17,U11K18,I0A0)
W14N2=MUX(53,54,53),(U26K10,U61K26,I0A0)
W14N3=MUX(186,52,51),(U26K17,U4A10,I0A0)
END F
;
;*** ᫨ ਢ  祭, ० MANJ 
DOF:U4A20*I8K28 
;----------   F1...F8  ----------
;    F1-⪫- ਢ 
;    F2-
;    F3- UCV
;    F4-ࢠ /⪫
;    F5- ᬠ
;    F7-롮 JOG
;    F8-騩  
W11N0=13
W11N1=0
W11N2=12
W11N3=4
W12N0=30
W12N1=0
W12N2=25
W12N3=9
;----------   F11...F18  ----------
W13N0=18
W13N1=MUX(128,129,130,131,132),(U108K27,U108K26,U108K25,U108K24,U108K23)
W13N1=MUX(133,134,135,136,137),(U108K22,U108K21,U108K20,U108K19,U108K18)
W13N1=MUX(138,139),(U108K17,U108K16)
W13N2=0
W13N3=MUX(175,174,0),(U26K13,U26K14,I0A0)
W14N0=MUX(173,172),(U26K0,U26K1)
W14N1=MUX(60,62,64,0),(U11K16,U11K17,U11K18,I0A0)
W14N2=MUX(53,54,53),(U26K10,U61K26,I0A0)
W14N3=MUX(186,52,51),(U26K17,U4A10,I0A0)
END F
;
;*** ᫨ ਢ  祭, ० PROF 
DOF:U4A20*I8K29 
;----------   F1...F8  ----------
;    F8- 
W11N0=0
W11N1=0
W11N2=0
W11N3=0
W12N0=0
W12N1=0
W12N2=0
W12N3=0
;----------   F11...F18  ----------
W13N0=18
W13N1=MUX(128,129,130,131,132),(U108K27,U108K26,U108K25,U108K24,U108K23)
W13N1=MUX(133,134,135,136,137),(U108K22,U108K21,U108K20,U108K19,U108K18)
W13N1=MUX(138,139),(U108K17,U108K16)
W13N2=0 
W13N3=0
W14N0=0
W14N1=0
W14N2=0
W14N3=0
END F
;
;*** ᫨ ਢ  祭, ० HOME 
DOF:U4A20*I8K30 
;----------   F1...F8  ----------
W11N0=0
W11N1=0
W11N2=0
W11N3=0
W12N0=0
W12N1=0
W12N2=0
W12N3=0
;----------   F11...F18  ----------
W13N0=18
W13N1=0
W13N2=MUX(165,176),(I5K8,I0A0) 
W13N3=MUX(167,177),(I5K9,I0A0)
W14N0=0
W14N1=0
W14N2=0
W14N3=0
END F
;
;*** ᫨ ० RESET 
DOF:I0A0*I8K31 
;----------   F1...F8  ----------
;    F8-
W11N0=0
W11N1=0
W11N2=0
W11N3=0
W12N0=0
W12N1=0
W12N2=0
W12N3=9
;----------   F11...F18  ----------
W13N0=MUX(18,17),(U4A20,I0A0)
W13N1=0
W13N1=0
W13N2=0 
W13N3=0
W14N0=0
W14N1=0
W14N2=0
W14N3=MUX(16,15),(I2N7,I0A0)
END F
;
;
;**********          **********
;        
U26K5=(I8K25+I8K26)*/I0K3*U10K20*I2N6
P16=U26K5
; ---- 祭/몫祭  01
C6I(2)=(I8K25+I8K26)*I2N3
P23=[C6W=1]
P24=[C6W=0]
U26K3=I0N10
U26K4=/I0N10
W17K0=MUX(19,7,8),(P16,P23,P24)
; ----   USO, REL -----
U26K12=P16+P23+P24
;
  DOF:U4A20
;*** 祭 ࢠ F4 ( ० MANU, MANJ)
  C5I(2)=I2N3*(I8K27+I8K28)*U10K24 
  C5Z=/I8K27*/I8K28
  U26K0=I0N15
  U26K1=/I0N15
  P5=[C5W=1]
  P6=[C5W=0] 
;*** ࠢ ० 樨 न UCV F3 (MDI,AUTO,STEP,MANU,MANJ)
  C11I(4)=I2N2*/I8K29*/I8K30*/I8K31*U4A20 
  P19=[C11W=0]
  P20=[C11W=1]
  P21=[C11W=2]
  P22=[C11W=3]
  END F
U26K2=P5+P6+P19+P20+P21+P22
;
W17K0=MUX(15,16,17,18,1,2),(P19,P20,P21,P22,P5,P6)
U10K23=I0K2
U10K18=U26K2+U26K12+U10K18*/I5K30*/I5K31*/I0K1
U10K19=U10K18
;
DOF:I0A0*/U26K15*/I8K29*/I8K30*/I8K31
;*** ࠢ 祩    ० ஬ PROF,HOME,RESET,
;
;      M5,9, M0,M1 (U60K20), M2,M30 (U60K28)- ⪫祭   
U26K16=([W3K0=9H]+[W3K0=5])*I4K18+U60K28 
;   祭     8, 13, 14
U61K26=(([W3K0=8H]+[W3K0=13H]+[W3K0=14H])*I4K18)+U61K26*/U26K16 
U4A9=U61K26*/U60K20*/U10K3*I0A30
U26K10=U61K26*/I0A30
;
;*** ࠢ ᭮ ᬠ F5   ० ஬ HOME,RESET,
U220K8=I2N4 
END F
;*** ࠢ ᭮ ᬠ ⮬᪨  祭 ਢ 
P1=U4A20
U4A10=(P1+C0R+U4A10*T6D)*U4A20+U220K8
T6I(50)=U4A10
T8I(W0T0)=/T8U
C0I(240)=T8U
C0Z=T6D
;    ਧ ࠢ ᬠ ࠢ  诨  樨
U26K17=(U21K5+U21K7)*T49D
;
;**********             **********
;
;***   প  祭 ⠭
T20I(20)=U10K20
P9=T20U
;
;*** ࠡ⪠  0,3 ᥪ  ⨨   
;     ᫮  ਢ 몫祭
T5I(3)=/I0A22*/U4A20+T5D
;
;
;*** 祭 (SPEPN)
U10K20=(I0A24+U10K20*/T5D)*I0A0*I6K21
;
;*** ਧ 몫祭 ⠭ (MUSPE)
U10K0=/U10K20
;
;*** 襭 믮 㭪権 M, S, T (CEFA)
U10K25=I0K2*U10K20
;
;*** ⠭ CEFAB
U60K23=U60K2+U60K3+/U10K25+U60K5+U80K6+U81K11
U10K26=/U60K23
; 
;*** 祭 ᫥饣 ०  ᥩ  (RABI)
U10K8=I0K2*U10K20
U10K9=I0K2*U10K20
;
;*** 襭  ६饭 ᥩ (COMU)
U10K24=I0K2*U10K25*/U60K2*/U60K3*U4A20 
;
;*** ⮯ 诨 (HOLD)
U10K3=U60K2+U21K20+U21K5+/U10K25+/I0A7*(I8K25+I8K26) 
;
;*** ⮯  (FOLD)
U10K5=U21K19+U10K3
;
; ;
;*** 祭 ᬠ 诨
U4A2=U10K20
T31I(50)=U4A2
;        ਢ 
U4A18=U4A2 
;*** ࠢ 祭 ਢ  F1  ० MANU, MANJ
DOF:U10K20
C22I(2)=I2N0*(I8K27+I8K28)*U10K20
U26K8=[C22W=1]
U26K9=[C22W=0]
T41I(5)=U26K8
P25=U26K9
U100K2=P25
END F
C22Z=U10K0
;    祭 ਢ  (ON)
U4A20=(T41D*U10K20+U4A20)*I0A7*/U100K2*/U26K20
T46I(10)=U4A20
U26K20=T46U*/I0A28*/I0A29
;
;*** 롮 蠣 JOG F7  ० MANJ 
DOF:U10K20*I8K28
DOF:[C1W=0]
C1W=1
END F
P4=I2N6
C1I(7)=P4
W108K1=DEC(C1W)
W16K2=W108K1
END F
;
;***   F8 ᫨ ० MANU, MANJ, RESET   祭 ⠭ (9)
U10K1=I2N7*I0A0*(I8K31+I8K27+I8K28+I8K24)+P9
; 
;
;**********          **********
;
;*** ⨥ ⮢  ० MDI,AUTO,STEP
DOF:(I8K24+I8K25+I8K26)*I0K2
W15K0=0
END F
;***  롮 , ४  JOG, ४  F,  
;     ० MANU  祭 ࢠ
DOF:I8K27*I0K2*I0N15
W15K0=19H
END F
;***  롮 , ४  JOG, ४  F, 롮 JOG, 
;       ० MANJ  祭 ࢠ
DOF:I8K28*I0K2*I0N15
W15K0=99H
END F
;    몫祭 ࢠ
DOF:I8K27*I0K2*/I0N15
W15K0=49H
END F
;
DOF:I8K28*I0K2*/I0N15
W15K0=0C9H
END F
;***  ४  JOG, ४  F  ० PROF, HOME
DOF:(I08K29+I08K30)*I0K2
W15K0=18H
END F
;
;**********           **********
;
;***   
U4A15=U4A2
;
;*** ⠭ ४  JOG   ६饭  ०
;    MANU,MANJ,PROF 
DOF:I0K2*(I8K27+I8K28+I8K29)
U108K27=(I1A0+I2N12)*I0K8*I0K9
U108K16=[W1N1=0]*/U108K27
U108K17=[W1N1=12]*/U108K27
U108K18=[W1N1=25]*/U108K27
U108K19=[W1N1=37]*/U108K27
U108K20=[W1N1=50]*/U108K27
U108K21=[W1N1=62]*/U108K27
U108K22=[W1N1=75]*/U108K27
U108K23=[W1N1=87]*/U108K27
U108K24=[W1N1=100]*/U108K27
U108K25=[W1N1=112]*/U108K27
U108K26=[W1N1=125]*/U108K27
;
;    ᫨  ᪮७ ६饭   
;    ᪮ 0,5%,1%,2%,3%,4%,6%,10%,15%,20%,30%,50%  4000/ 
;    (20,40,80,120,160,240,400,600,800,1200,2000 /)
;    ᫨   ᪮७ ६饭 ᪮ 100% (4000 /)
W15K3=MUX(5,1,2,3,4,6),(U108K16,U108K17,U108K18,U108K19,U108K20,U108K21)
W15K3=MUX(10,15,20,30,50,100),(U108K22,U108K23,U108K24,U108K25,U108K26,U108K27)
W17K2=MUX(10,0),(U108K16,I0A0)
END F
;
;***  ६饭  ० MANU, MANJ, PROF
DOF:(I8K27+I8K28+I8K29)*I0A29
;    롮 
U15K16=I2N8+I2N9+I1A1+I1A2
U15K17=I2N10+I2N11+I1A3+I1A4
;    롮 ࠢ  
U15K31=I2N9+I2N11+I1A2+I1A4 
;     ६饭 ᫨  祭 ࢠ
DOF:U26K1
P31=U15K16+U15K17
U10K4=P31*/I4K30+U10K4*/I4K30*(U15K16+U15K17)
END F
;     ६饭 ᫨ 祭 ࢠ 
DOF:U26K0 
T24I(10)=U15K16+U15K17
P31=T24U 
U10K4=P31*/I4K30+U10K4*/I4K30*T24U
END F
END F
;
;*** ࠢ  ਢ
;    M3
U60K24=[W3K0=3H]*I4K18+U60K24*/U60K25*/U60K26*/U60K22*/U60K28*/I0K1
;    M4
U60K25=[W3K0=4H]*I4K18+U60K25*/U60K24*/U60K26*/U60K21*/U60K28*/I0K1
;    M13
U60K21=[W3K0=13H]*I4K18+U60K21*/U60K25*/U60K26*/U60K22*/U60K28*/I0K1
;    M14
U60K22=[W3K0=14H]*I4K18+U60K22*/U60K24*/U60K26*/U60K21*/U60K28*/I0K1
;    M5
U60K26=[W3K0=5H]*I4K18+U60K26*/U60K24*/U60K25*/U60K21*/U60K22*/I0K1
;    M0,M1  ஢  ४祭 
U60K20=([W3K0=0]+[W3K0=1]*I0N10)*I4K18+(U21K13+U21K14+U21K15)+U60K20*/I0K7
;    M30,M2
U60K28=([W3K0=30H]+[W3K0=2H])*I4K18 
U60K27=U60K24+U60K25+U60K21+U60K22
;
;     প ⪫祭 ⠭  ਢ
;    ᫨  ᯮ n=0  ਢ
;T1I(30)=U60K26
U60K5=U10K3*I0A23
;
;    祭 ⠭  ਢ
U4A19=(U60K27+I0A18)*/U26K6*/U60K5+T2U*/I0A23
;
;    ஢  ਢ (ON)
U60K31=I0A29*(/I1A5+U26K13) 
T2I(5)=U4A19
U60K30=U60K31*/U10K3*T2U*U60K27*/U60K20
;
;    롮 ࠢ  饭 诨  ணࠬ (ROMAO, ROMAA)
T0I(5)=U4A19
U11K3=(U60K24+U60K21)*/U11K0*/U10K3*T0U*U60K30 
U11K4=(U60K25+U60K22)*/U11K0*/U10K3*T0U*U60K30
;
;    롮 ࠢ  饭 诨  ⮫ 诨 (FOMAO)
W11K1=MUX(4,10H,30H,0),(U11K18,U11K17,U11K16,I0A0)
U11K5=I0A0 
U11K1=I0A21*/U11K0*T0U*/U11K3*/U11K4*/U60K27 
;
;
;*** 좥ୠ 
; 
U81K11=[W2K2=W100K1]*I4K18*[W3K0=6]
;    M6
U80K6=[W3K0=6]*I4K18*/U81K11*/U87K7+U80K6*/I0K27*/I0K26*/I0K1*/U87K7
; 襭 㬥  樨
DOF:U80K6
W81K0=DEC(W2K2)
END F
DOF:/U80K6
W81K0=0
END F 
;ਧ 訡
U87K7=U21K18+U21K10+U21K6+U21K8+U21K11+U21K17
;祭 ⥫  
U4A3=/U4A4*U80K6*/U81K12
;⠩     㬥
T18I(100)=U4A3
; 樨 㬥
W100K1=ENC(W0A1)
; 㬥 
U81K12=[W2K2=W100K1]*U80K6
;⠩ প  ⠭ ⥫  
T19I(1)=U81K12
;⠩   ᠤ १楤প
T21I(30)=T19U
P18=T19U
;ॢ ⥫
U4A4=P18*/U4A3+U4A4*/U87K7*/U82K25*/I0K1
;⠩    
T25I(20)=U4A4*I0A16
;ਧ ᠤ    
U82K25=U80K6*U4A4*I0A16*I0A17
;  ᬥ 㬥   ४஢ 
U10K21=(U82K25+U81K11)+U10K21*/I0K27*/I0K26*/I0K1
;
;
;*** 롮 
;
;ਧ  롮 
;M41
U144K8=[W3K0=41H]+U144K8*/[W3K0=42H]*/[W3K0=43H]*/I0K1
;M42
U144K9=[W3K0=42H]+U144K9*/[W3K0=41H]*/[W3K0=43H]*/I0K1
;M43
U144K10=[W3K0=43H]+U144K10*/[W3K0=41H]*/[W3K0=42H]*/I0K1
;  ஡    祭  
;M41
U11K16=/I0A20*/I0A21*I0A0
;M42
U11K17=/I0A20*I0A21*I0A0
;M43
U11K18=I0A20*/I0A21*I0A0
;  祭
U26K6=/(U11K16+U11K17+U11K18)
;
;
;***   
;
; ०   
U62K2=I1A5*U10K20
;० MDI, AUTO, STEP, MANU, MANJ
U61K7=I08K24+I8K25+I8K26+I8K27+I8K28
; ਢ 몫祭
U61K27=/U4A19*/I0K3
;  
U62K3=U62K2*U61K7*U61K27*I0A25*/I0A26
;   
U62K5=U62K2*U61K7*U61K27*I0A26*/I0A25
; 
U4A7=U62K3*/U4A8*/U62K5*/U62K4
;⦨ 
U4A8=U62K5*/U62K3*/U4A7
;稪 ᮢ 稪  
C12I(3)=U4A7*I0A27
;ਧ  
U62K4=C12R
; 稪 ᮢ   (᭨ ਧ  )
C12Z=U4A8+/U62K2
;ਧ       樨
U26K13=U62K2*U62K4
U26K14=U62K2*/U62K4
;
;
;
;**********           ********** 
;
;    訡 ਢ
U60K2=U21K2+U21K1 
;
;    訡 ,   
U60K3=U21K6+U21K10+U21K11+U21K12+U21K16+U21K17+U21K18
;
;*** 饭  訡
;
;    饭   . 
U21K0=/I0A0*/U21K9
;    饭    
U21K1=T20U*/I0A29*U4A20*T46U+U21K1*/I0K1 
;    饭    
U21K2=T20U*/I0A28*U4A19*/T2D
;    饭    
U21K3=/I0A22*U4A20*U10K20
;    饭   
;U21K4=T20U*/I0A30
;    饭    
U21K5=T31U*/I0A19*U10K20
;    饭    
U21K6=/T18D*/U80K6*/I0A16*I0A0*/U21K17*/U21K18
;    饭   
;U21K7=U4A10*/I0A18
;    饭    
DOF:I0A0
U21K9=/I0A7
END F
;    饭    
U21K10=I0A0*U80K6*([W2K2=0]+[W2K2>8])+U21K10*/I0K1*I0A0
;    饭    
U21K11=T25U*U4A4*/I0A17+U21K11*/I0K1*U10K20
;    饭   
U21K12=/U4A20*U4A19
;    饭   1- 
U21K13=U60K27*(U144K8*/U11K16)
;    饭   2- 
U21K14=U60K27*(U144K9*/U11K17)
;    饭   3- 
U21K15=U60K27*(U144K10*/U11K18)
;    饭  
U21K16=U62K2*U61K7*U4A19*/U62K4
;    饭    
U21K17=U10K20*T18U+U21K17*/I0K1*U10K20
;    饭     
U21K18=T21U*U4A4*/I0A16+U21K18*/I0K1*I0A0
;    饭  
U21K19=/I1A6*I1A7*U10K20
;    饭  
U21K20=/I1A6*/I1A7*U10K20 
;    饭   
U21K21=/I0A31*U10K20*(I08K25+I08K26) 
;
;*** TIMER 0,2S
T13I(1)=/T14D
T14I(1)=/T13D
;*** TIMER 0,3S
T48I(15)=/T49D
T49I(15)=/T48D
;*** TIMER 10S
T22I(50)=/T23D
T23I(50)=/T22D
;
;*****END*****
