$
;LOG 1
U255K0=/U255K1
                        ; 
;
                        ;맮  #7
;P5=U10K0*/I0K1+I8K27+I8K28+I8K29+I8K30
;W16K3=MUX(7,0,0),(P5,U10K0,I0K2)
P1=U255K0
P2=U200K0
T8I(5)=P2+T8I*/T8U
T7I(10)=P1+T7I*/T7U
W16K3=MUX(0,23),(T7U,P1)
;-------------------------------------------------
$                       ; 
;  W17K3     21,22
DOF:/U252K8
W17K3=MUX(1,2,0),(I0K26,T6U,I0K1)
ENDF
;
                        ;㬥 ४
; 6 M06=02,14,FF
;U101K0=[W3K0=6]+U101K0*/I0K27*/I0K1
;AGTOL
U10K21=I4K17+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(10)=/T1D
T1I(10)=/T0D
;
                        ;ࠢ  SPEPN
;C0I(2)=I2N0*I6K21
;C0Z=/I6K21
;
;ASPEPEN
U10K20=/I0K0
                        ; 
;MUSPE
U10K0=/(U10K20*I0A0)
T30I(20)=/U10K0
U4A0=/U10K0
;
                        ; 饣 
;RABI
;W10K1=MUX(3,0),(I0K2,U10K0)
U10K8=T30U
U10K9=T30U
;
                        ;襭 
;COMU
U10K24=[W0K1=3]*I0K2
;U10K24=[W0K1=0]*I0K2
;
                       ;襭 M,S,T,᭠ 
;CEFA
U10K25=I0K2*/U237K10
;
                        ;ࠢ ஢ ⮢ ஢ 
;CEFAB
;U10K26=/U101K0*/[W3K0=30H]
U10K26=I0K2
;                                PULT
;
;RESET 騩 
U248K0=I5K30+I5K31+U248K0*/P22
;T26I(10)=U248K0
;P22=T26U
T19I(10)=[W17K0=21]   
P19=T19U
P10=I2N7+([W3K0=2]+[W3K0=30H])*I4K18
U10K1=P10+P19
;
                        ;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)
U222K0=[W1N2=75]
U222K1=[W1N2=80]
U222K2=[W1N2=85]
U222K3=[W1N2=90]
U222K4=[W1N2=95]
U222K5=[W1N2=100]
U222K6=[W1N2=105]
U222K7=[W1N2=110]
U222K8=[W1N2=115]
U222K9=[W1N2=120]
U222K10=[W1N2=125]
W15K3=MUX(0,10,20,30,40,50,60,70),(U222K0,U222K1,U222K2,U222K3,U222K4,U222K5,U222K6,U222K7)
W15K3=MUX(80,90,100),(U222K8,U222K9,U222K10)
;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)*U227K0+T61U
   U15K17=(I2N10+I2N11)*U227K0+T62U
;Choice of Direct
   U15K31=I2N9+I2N10+T63U
;  
P17=I2N12*(I2N8+I2N9+I2N10+I2N11)
C30I(2)=P17
P18=I2N12
C30Z=P18*U227K1
U227K0=[C30W=0]
U227K1=[C30W=1]
U227K2=U227K1*(I2N9*U15K16+I2N10*U15K17)+U227K2*/U227K0*/(I2N8+I2N11)
T63I(1)=U227K2
U227K3=U227K1*(I2N8+I2N9)+U227K3*/U227K0*/(I2N10+I2N11)
T61I(1)=U227K3
U227K4=U227K1*(I2N10+I2N11)+U227K4*/U227K0*/(I2N8+I2N9)
T62I(1)=U227K4
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+I2N10
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: I1N31+[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=U255K1
ENDF RESET
;=====================================================================
; ,   21,22,   
;    W17K3.
;!  ࠢ  W17K3 = ....    ६ ப⪨ 
;            ᪫祭, ਬ:
;                   DOF:/U252K8
;                       W17K3=....
;                   ENDF
;       :
;         ASCII-: VIEWMSG + F5(  )
; :
;         ASCII-: VIEWOFF + F5(  )
;ᨣ U252K8   ணࠬ - ਧ ப⪨
U252K8="VIEWMSG"+U252K8*/"VIEWOFF"
DOF VIEWMSG: U252K8+"VIEWOFF"
             U252K9=[W17K3=0]*U252K8
;㧠  㫥묨 ᮮ饭ﬨ  ப⪥ = 0.01 (T50I)
             T50I(1)=U252K9*/T50U*/"VIEWOFF"
;⥫쭮 뢮 ᮮ饭  ࠭  ப⪥ = 2c (T51I)
             T51I(200)=U252K8*/T51U
;稪 ப⪨ ᮮ饭    21  22
             C32I(9)=T50U+T51U
             W252K0=DEC(C32W)
             DOF:C32R
                 C32W=1
             ENDF
;稪 ப⪨ 8- ⮢  W21K0  W22K3
    C33I(8)=C32R
;                       ப⪠ ᮮ饭  W21K0
    DOF:[C33W=0]
        W252K2=W21K0*W252K0
        DOF:[W252K2>0]
            W17K3=[ENC(W252K2)+0]
        ENDF
        DOE:
        W17K3=0
        ENDE
    ENDF
;                       ப⪠ ᮮ饭  W21K1
    DOF:[C33W=1]
        W252K2=W21K1*W252K0
        DOF:[W252K2>0]
            W17K3=[ENC(W252K2)+8]
        ENDF
        DOE:
            W17K3=0
        ENDE
    ENDF
;                       ப⪠ ᮮ饭  W21K2
    DOF:[C33W=2]
        W252K2=W21K2*W252K0
        DOF:[W252K2>0]
            W17K3=[ENC(W252K2)+16]
        ENDF
        DOE:
            W17K3=0
        ENDE
    ENDF
;                       ப⪠ ᮮ饭  W21K3
    DOF:[C33W=3]
        W252K2=W21K3*W252K0
        DOF:[W252K2>0]
            W17K3=[ENC(W252K2)+24]
        ENDF
        DOE:
            W17K3=0
        ENDE
    ENDF
;                       ப⪠ ᮮ饭  W22K0
    DOF:[C33W=4]
        W252K2=W22K0*W252K0
        DOF:[W252K2>0]
            W17K3=[ENC(W252K2)+32]
        ENDF
        DOE:
            W17K3=0
        ENDE
    ENDF
;                       ப⪠ ᮮ饭  W22K1
    DOF:[C33W=5]
        W252K2=W22K1*W252K0
        DOF:[W252K2>0]
            W17K3=[ENC(W252K2)+40]
        ENDF
        DOE:
            W17K3=0
        ENDE
    ENDF
;                       ப⪠ ᮮ饭  W22K2
    DOF:[C33W=6]
        W252K2=W22K2*W252K0
        DOF:[W252K2>0]
            W17K3=[ENC(W252K2)+48]
        ENDF
        DOE:
            W17K3=0
        ENDE
    ENDF
;                       ப⪠ ᮮ饭  W22K3
    DOF:[C33W=7]
        W252K2=W22K3*W252K0
        DOF:[W252K2>0]
            W17K3=[ENC(W252K2)+56]
        ENDF
        DOE:
            W17K3=0
        ENDE
    ENDF
ENDF VIEWMSG
                        ;
T2I(2)=/T3D
T3I(2)=/T2D
;=====================================================================
;M50
;*******************
U240K0=[W3K0=50H]*I4K18+U240K0*/I0K1
;**********F*********
U249K0=I0K1+U249K0*/T29U
T29I(10)=U249K0
;W12K1=MUX(1,1),(I0K1,T29U)
;***** -********
W13N0=MUX(20,19,54,53),(U4A7,I0A5,U4A2,I0A4)
C31W=MUX(0,1),(I0A5,I0A4)
;********** *********
DOF:[C31W=0]
;********  ****
U233K0=U4A6*I0A6
U233K1=/U233K0
W13N1=MUX(12,11),(U233K1,U233K0)
W13N2=MUX(11,12),(U233K1,U233K0)
;******    **********
DOF:I0K4
P11=I2N0+I2N1
U239K0=I2N0+U239K0*/I2N1
C21A=U239K0
C21I(9)=P11
ENDF
;C21Z=I0K1
U241K0=[C21W=0]
U241K1=[C21W=1]
U241K2=[C21W=2]
U241K3=[C21W=3]
U241K4=[C21W=4]
U241K5=[C21W=5]
U241K6=[C21W=6]
U241K7=[C21W=7]
U241K8=[C21W=8]
W11N0=MUX(41,43,45,47,49,51,53,55),(U241K1,U241K2,U241K3,U241K4,U241K5,U241K6,U241K7,U241K8)
W11N1=MUX(42,44,46,48,50,52,54,56),(U241K1,U241K2,U241K3,U241K4,U241K5,U241K6,U241K7,U241K8)
W11N0=MUX(39),(U241K0)
W11N1=MUX(40),(U241K0)
;DOF:(I0K1+T29U)
W245K0=W241K0
W245K1=W241K1
;END
W12K1=MUX(1,2,3,4,5,6,7,8),(U245K1,U245K2,U245K3,U245K4,U245K5,U245K6,U245K7,U245K8)
;***********************
U4A6=U111K4+U238K0
U4A7=U4A6*I0A6*U111K4+U238K2
T21I(20)=U4A6
T22I(20)=U4A7
U10K5=T21D+T22D
W11N2=MUX(31,32),(U238K1,U238K0)
W11N3=MUX(33,34),(U238K3,U238K2)
P15=I2N2*I0K2*I8K27
C23I(2)=P15
C23Z=I0K1
U238K0=[C23W=1]
U238K1=/U238K0
P16=I2N3*I0A6*I0K2*I8K27*U238K0
C24I(2)=P16
C24Z=U238K1
U238K2=[C24W=1]
U238K3=/U238K2
;***********Program Unload. Command (REL)
DOF:I1N31
W12N2=25
   P0=I2N6
ENDF
;DOF:/I8K31
;W12N2=30
;ENDF
;*****************RIF************************
P29=U10K24
W17K0=MUX(23,21,19,20,23),(P0,P29,P30,P31,T24U)
U10K23=I0K2+U10K0
U10K18=P0+P29+P30+P31+T24U
U10K19=P0+P29+P30+P31+T24U
;***************ORA*******************
P30=I2N4*I1N30*I0K2
P31=I2N5*I1N30*I0K2
DOF:I0K2*I1N30
W12N0=35
W12N1=36
ENDF
DOF:/(I0K2*I1N30)
W12N0=1
W12N1=1
ENDF
ENDF
;**************************************
;****************   ***************
;U242K0=I0K7*(I8K25+I8K26)+U242K0*/T36U
;P13=U242K0
;T36I(5)=U242K0
;U15K0=T36D
;U10K4=T36U
;**********************************************
;*************** ****************
DOF:[C31W=1]
;******    **********
DOF:I0K4
T4I(10)=I2N0+I2N1
P11=(I2N0+I2N1)*/T4U+T4U*T2D
U239K0=I2N0+U239K0*/I2N1
C21A=U239K0
C21I(23)=P11
ENDF
;C21Z=I0K1
U241K0=[C21W=0]
U241K1=[C21W=1]
U241K2=[C21W=2]
U241K3=[C21W=3]
U241K4=[C21W=4]
U241K5=[C21W=5]
U241K6=[C21W=6]
U241K7=[C21W=7]
U241K8=[C21W=8]
U241K9=[C21W=9]
U241K10=[C21W=10]
U241K11=[C21W=11]
U241K12=[C21W=12]
U241K13=[C21W=13]
U241K14=[C21W=14]
U241K15=[C21W=15]
U241K16=[C21W=16]
U241K17=[C21W=17]
U241K18=[C21W=18]
U241K19=[C21W=19]
U241K20=[C21W=20]
U241K21=[C21W=21]
U241K22=[C21W=22]
W11N0=MUX(41,43,45,47,49,51,53,55),(U241K1,U241K2,U241K3,U241K4,U241K5,U241K6,U241K7,U241K8)
W11N1=MUX(42,44,46,48,50,52,54,56),(U241K1,U241K2,U241K3,U241K4,U241K5,U241K6,U241K7,U241K8)
W11N0=MUX(57,59,61,63,65,67,69,71),(U241K9,U241K10,U241K11,U241K12,U241K14,U241K15,U241K16,U241K18)
W11N1=MUX(58,60,62,64,66,68,70,72),(U241K9,U241K10,U241K11,U241K12,U241K14,U241K15,U241K16,U241K18)
W11N0=MUX(73,75,77,79),(U241K19,U241K20,U241K21,U241K22)
W11N1=MUX(74,76,78,80),(U241K19,U241K20,U241K21,U241K22)
W11N0=MUX(39),(U241K0)
W11N1=MUX(40),(U241K0)
;DOF:(I0K1+T29U)
W245K0=W241K0
W245K1=W241K1
W245K2=W241K2
W245K3=W241K3
;END
W12K1=MUX(1,2,3,4,5,6,7,8),(U245K1,U245K2,U245K3,U245K4,U245K5,U245K6,U245K7,U245K8)
W12K1=MUX(9,10,11,12,13,14,15,16),(U245K9,U245K10,U245K11,U245K12,U245K13,U245K14,U245K15,U245K16)
W12K1=MUX(17,18,19,20,21,22,1),(U245K17,U245K18,U245K19,U245K20,U245K21,U245K22,U241K0)
;************  ****************
W11N2=31
W11N3=32
;**************************
U4A9=I2N2*/I2N3
;*************************
U4A10=I2N3*/I2N2
;U4A5************* ********************
DOF:/I1N30
W12N0=21
C10I(2)=I2N4
U4A5=[C10W=1]
C10Z=U10K0
U244K10=/U4A5
;U4A2************* **********************
W12N1=22
C11I(2)=I2N5*U4A5
DOF:U4A5
C11W=MUX(0,1),(U111K3,U114K4)
ENDF
ENDF
U4A2=([C11W=1]+U111K4)*U4A5
C11Z=U10K0+/U4A5+I0K1+U111K3
;U4A4*******************************************
U4A4=U4A5
;U4A11************* *******************
U244K11=/U4A11
;U4A3*************  ************
U244K0=U4A2+U244K0*/T44U
U244K1=U244K0*/U4A2+U244K1*/T44U
T44I(30)=U244K1
U4A3=T44D
;**************  *****************
;************** ********************
W13N1=MUX(43,44),(U244K10,U4A5)
;*********************************************
W13N2=MUX(51,52),(U244K11,U4A11)
;
;***************Program Unload. Command (REL)
DOF:I1N31
W12N2=25
   P0=I2N6
ENDF
;DOF:/I8K31
;W12N2=30
;ENDF
;*****************RIF************************
P29=U10K24
W17K0=MUX(23,21,19,20,23),(P0,P29,P30,P31,T24U)
U10K23=I0K2+U10K0
U10K18=P0+P29+P30+P31+T24U
U10K19=P0+P29+P30+P31+T24U
;***************ORA*******************
P30=I2N4*I1N30*I0K2
P31=I2N5*I1N30*I0K2
DOF:I0K2*I1N30
W12N0=35
W12N1=36
ENDF
;DOF:/(I0K2*I8K30)
;W12N0=1
;W12N1=1
ENDF
;
;***********  *************
DOF:I1N30
W12N2=30
T13I(10)=I0A4*/I0A5+T13I*/T14U
P13=T13U
T14I(10)=I0A5*/I0A4+T14I*/T13U
P14=T14U
U237K1=(I1N30*(I2N6*(T13U+T14U)+P13+P14)+U237K1)*[C18W=0]
U237K2=/I2N6
P21=U237K1
C18W=MUX(1,0),(P21,U237K2)
DOF:P21*[C18W=1]
DOF:I0A5
W17K0=24
ENDF
DOF:I0A4
W17K0=25
ENDF
U10K18=P21+U10K18*/I5K30*/I5K31*/I0K1
U10K19=P21+U10K19*/I5K30*/I5K31*/I0K1
ENDF
U237K0=P21+U237K0*/T24U
T24I(10)=U237K0
U15K0=U237K0
U15K2=U237K0
U15K9=U237K0
U10K4=U237K0*I5K30+U15K16+U15K17
ENDF
;**************** **************
;M04- 
U250K0=I4K18*[W3K0=4]*I0A4+U250K0*/P24
U4A11=U4A2*U4A5*U250K0
;  PRO=2
U36K0=U10K0
U36K1=U10K1
U36K24=U10K24
U36K25=U10K25
U41K0=U250K0
U36K4=U250K0
C13I(2)=I2N6*/I1N30*/I1N31*/I27N30*/I27N31
P25=[C13W=1]
P26=[C13W=0]
P23=U250K0
P24=I0K1+U250K1+I0A7
T23I(20)=P24+T23I*/T23U
DOF:P23+P25
W16K3=39
ENDF
DOF:T23U+P26
W16K3=23
ENDF
DOF:/I1N30*/I1N31*I6K12+/I27N30*/I27N31*I6K13
W12N2=37
ENDF







