                        ; 
;
                        ;맮  #7
P5=U10K0*/I0K1+I8K27+I8K28+I8K29+I8K30
W16K3=MUX(17H,0,0),(P5,U10K0,I0K2)
;-------------------------------------------------
$                       ; 
W17K3=MUX(1,2,0),(I0K26,T6U,I0K1)
;
                        ;㬥 ४
; 6 M06=02,14,FF
U101K0=[W3K0=6]+U101K0*/I0K27*/I0K1
;AGTOL
U10K21=[W3K0=6]+U10K21*/I0K27*/I0K1
;
                        ;
;HLDR 
U10K2=I0K26+T6U+U10K2*/I0K1
;
                        ;
;GAMMA1
U11K16=U10K0+I0K2
; 3
U111K3=[W3K0=3]+U111K3*/[W3K0=4]*/[W3K0=5]*/[W3K0=19H]*/I0K1
; 4
U111K4=[W3K0=4]+U111K4*/[W3K0=3]*/[W3K0=5]*/[W3K0=19H]*/I0K1
;ROMAO
U11K3=U111K3
;ROMAA
U11K4=U111K4
;M19
U11K0=[W3K0=19H]+U11K0*/T5U*/T6U*/I0K1
T5I(10)=U11K0*I0K25
T6I(30)=U11K0*/I0K25
                        ;
T0I(7)=/T1D
T1I(7)=/T0D
;
                        ;ࠢ  SPEPN
C0I(2)=I2N0*I6K21
C0Z=/I6K21
;
;ASPEPEN
U10K20=[C0W=1]
                        ; 
;MUSPE
U10K0=/U10K20
;
                        ; 饣 
;RABI
W10K1=MUX(3,0),(I0K2,U10K0)
;
                        ;襭 
;COMU
U10K24=[W0K1=3]*I0K2
;U10K24=[W0K1=0]*I0K2
;
                        ;襭 M,S,T,᭠ 
;CEFA
U10K25=I0K2
;
                        ;ࠢ ஢ ⮢ ஢ 
;CEFAB
U10K26=/U101K0*/[W3K0=30H]
;                                PULT
;
;
;RESET 騩 
   U10K1=I2N7
;
                        ;Indication off status Machine
;F1
U100K0=U10K0*T0D
DOF MTOFF :U10K0
   W11N0=MUX(2,1),(U100K0,U10K0)
ENDF MTOFF
DOE MTON :I0K2
   W11N0=3
ENDE MTON
;
;Off switch JOG
W15K0=MUX(8),(I0K2)
                ;**************************************
                        ;MDI, AUTO, STEP
                ;**************************************
DOF  BLOCK: I8K24+I8K25+I8K26
;F2
   U100K13=/I0N10
   W11N1=MUX(1,27,28),(U10K0,U100K13,I0N10)
;F3
   W11N2=1
;F4
   DOF:U10K0
         W11N3=1
   ENDF
   DOE:[C3W=0]
         W11N3=4
   ENDE
   DOE:[C3W=1]
         W11N3=5
   ENDE
;F5
   DOF:U10K0
         W12N0=1
   ENDF
   DOE:[C4W=0]
         W12N0=7
   ENDE
   DOE:[C4W=1]
         W12N0=6
   ENDE
;F6
   W12N1=1
;F7
   W12N2=25
;F8
   W12N3=26
;
                        ;STATUS of PROCESS
;Spindle Clamp/Unclamp
   DOF:U10K0
         W13N0=0
   ENDF
   DOE:[C3W=0]
         W13N0=50
   ENDE
   DOE:[C3W=1]
         W13N0=49
   ENDE
;Cooling (ON/OFF)
   DOF:U10K0
         W13N1=0
   ENDF
   DOE:[C4W=0]
         W13N1=53
   ENDE
   DOE:[C4W=1]
         W13N1=54
   ENDE
;M01 (ON/OFF)
   DOF:U10K0
         W13N2=0
   ENDF
   DOE:[C5W=0]
         W13N2=156
   ENDE
   DOE:[C5W=1]
         W13N2=157
   ENDE
   W13N3=0
   W14N0=0
   W14N1=0
   W14N2=0
   W14N3=0
;Spindle Clamp/Unclamp
   C3I(2)=I2N3*/I0K7*I0K2
   ;U4A=/[C3W]
;Cooling Turn (ON/OFF)
   C4I(2)=I2N4*I0K2+[W3K0=8]*[C4W=0]
   C4Z=[W3K0=9]
   ;U4A=/[C4W]
;Support M01 Turn (ON/OFF)
   C5I(2)=I2N1*I0K2
;Support M01 USO
   P1=[C5W=1]
   P2=[C5W=0]
;
;Command (USO=1)
   DOF:P1
;Number first connector
        W17K0=23
;(U)SO=1
        W23K0=85
;U(S)O=1
        W23K1=83
;US(O)=1
        W23K2=79
;USO(=)1
        W23K3=61
;USO=(1)
        W24K0=49
;LF
        W24K1=10
   ENDF
;
;Command (USO=0)
   DOF:P2
;Number first connector
        W17K0=23
;(U)SO=0
        W23K0=85
;U(S)O=0
        W23K1=83
;US(O)=0
        W23K2=79
;USO(=)0
        W23K3=61
;USO=(0)
        W24K0=48
;LF
        W24K1=10
   ENDF
;
;Program Unload. Command (REL)
   P0=I2N6
   DOF:P0
;Number first connector
        W17K0=23
;(R)EL
        W23K0=82
;R(E)L
        W23K1=69
;RE(L)
        W23K2=76
;LF
        W23K3=10
   ENDF
;Start Command REL, USO=1, US0=0
;SPGCOM
   U10K18=P0+P1+P2+U10K18*/I5K30*/I5K31*/I0K1
;CMDLOG
   U10K19=P0+P1+P2+U10K19*/I5K30*/I5K31*/I0K1
ENDF BLOCK
            ;**********************************************
                        ;MANU, MANJ, PROF, HOME
            ;**********************************************
;COMMON FOR MANU, MANJ, PROF, HOME
DOF MANCOM: (I8K27+I8K28+I8K29+I8K30)*I0K2
;
;Manual Speed 
   U100K8=([W15K3=1]+[W15K3=129])*T0D
   U100K9=([W15K3=5]+[W15K3=133])*T0D
   U100K10=([W15K3=10]+[W15K3=138])*T0D
   U100K11=([W15K3=50]+[W15K3=178])*T0D
   U100K12=([W15K3=100]+[W15K3=228])*T0D
;Menu
;F2
;   W11N1=1
;F3
   W11N2=1
;F4
   W11N3=1
;F5
   W12N0=1
;F6 Choice of Speed
   P3=I2N5
   C2I(6)=P3
   W100K3=DEC(C2W)
   U100K31=[C2W=0]
   W15K3=MUX(100,1,5,10,50,100,0),(I2N12,U100K24,U100K25,U100K26,U100K27,U100K28,U100K31)
;RUN
   U10K4=U15K16+U15K17
ENDF MANCOM
;
;ONLY FOR MANU and PROF
DOF MANU: (I8K27+I8K29)*I0K2
;F6 Choice of Speed
   W12N1=MUX(10,11,12,13,14,9),(U100K24,U100K25,U100K26,U100K27,U100K28,U100K31)
;F7
   W12N2=1
;F8 RESET
   W12N3=26
;STATUS indication
;MOTION AXIS
;X+
   W13N0=MUX(23,21),(I2N8,I0K4)
;X-
   W13N1=MUX(24,22),(I2N9,I0K4)
;Z+
   W13N2=MUX(31,29),(I2N10,I0K4)
;Z-
   W13N3=MUX(32,30),(I2N11,I0K4)
   U100K1=I2N12*T0D
;Speed 100
   W14N0=MUX(0,171,171,171),(U100K1,I2N12,I0K2,U10K0)
;
;Set Mode
   W15K0=49H
;
;Choice of Axis
   U15K16=I2N8+I2N9
   U15K17=I2N10+I2N11
;Choice of Direct
   U15K31=I2N9+I2N11
ENDF MANU
;
DOF MANJ: I8K28*I0K2
;F6 Choice of Speed
   W12N1=MUX(10,11,12,13,14,9),(U100K24,U100K25,U100K26,U100K27,U100K28,U100K31)
;F7 Choice of JOG
   W12N2=MUX(15,16,17,18,19,20,8),(U16K16,U16K17,U16K18,U16K19,U16K20,U16K21,U16K22)
;F8 RESET
   W12N3=26
;STATUS indication
;MOTION AXIS
;X+
   W13N0=MUX(23,21),(I2N8,I0K4)
;X-
   W13N1=MUX(24,22),(I2N9,I0K4)
;Z+
   W13N2=MUX(31,29),(I2N10,I0K4)
;Z-
   W13N3=MUX(32,30),(I2N11,I0K4)
   U100K1=I2N12*T0D
;Speed 100
   W14N0=MUX(0,171,171,171),(U100K1,I2N12,I0K2,U10K0)
;
;Set Mode
   W15K0=0C9H
;
;Choice of JOG (0.001, 0.01, 0.1, 1., 10., 100 mm)
   P4=I2N6
   C1I(7)=P4
   W100K2=DEC(C1W)
   U100K22=[C1W=0]
   W16K2=W100K2
;
;Choice of Axis
   U15K16=I2N8+I2N9
   U15K17=I2N10+I2N11
;
;Choice of Direct
   U15K31=I2N9+I2N11
ENDF MANJ
;
DOF HOME: I8K30*I0K2
;F2
   W11N1=29
;F6 Choice of speed
   W12N1=MUX(10,11,12,13,14,9),(U100K24,U100K25,U100K26,U100K27,U100K28,U100K31)
   W12N2=1
;F8 RESET
   W12N3=26
;STATUS indication
;X
   W13N0=165
   W13N1=0
;Z
   W13N2=167
   W13N3=0
   W14N0=0
   W14N1=0
   W14N2=0
   W14N3=0
;
;Set Mode
   W15K0=49H
;楢
   U202K0=/I2N1
;
;Choice of Axis
   U15K16=I2N8
   U15K17=I2N10
ENDF HOME
;
DOF RESET: I8K31+[W8K3=8FH]*/I0K2
   W11N1=1
   W11N2=1
   W11N3=1
   W12N0=1
   W12N1=1
   W12N2=1
;   DOF:[W8K3=7]
;   W12N2=25
;   ENDF
;F8 RESET
   W12N3=26
;
;   W13N0=0
;   W13N1=0
;   W13N2=0
;   W13N3=0
;   W14N0=0
;   W14N1=0
;   W14N2=0
;   W14N3=0
   W15K0=8
;RUN OFF
   U10K4=U255K31
ENDF RESET
