;  NC-220 (CACTA)
W17K3=MUX(11,0),(I2N10,I0K2)
$
T253I(7)=/T254D
T254I(7)=/T253D
; ==============
;⨪  MANU  MANJ
;I0A2 -Z
;I0A0 +Z
;I0A3 -X
;I0A1 +X
W16K3=MUX(17H,0),(I0N5,U10K0)
DOF OSU:I0N5
W15N0=1
W15N1=2
W15K3=W1N1*7FH
U15K3=I8K27+I8K28
U15K6=I8K27+I8K28
U15K7=I8K27+I8K28
U15K31=I0A2+I0A3+(I2N12+I2N14)*[W100N0=3]
;
;
;
;
;
;
;
;䠩 FILMOV ( , S , F   )
;1-TE10.E11
;2-SE25
;3-FE26
;4-(TRD,E10,E11)
;5-E25=300
;6-E26=0.3
;
DOF:I00N05
;
;    5-   FILMOV
;  25  300
P60=I00K02
W200K1=MUX(0),(P60)
U255K01=P60+U255K01
DOF: P60*[W200K0=0]*/[W200K1=1]
    W12K1=5
W200K0=1
ENDF
;
;    6-   FILMOV
;  26  0.3
DOE: I00K24*[W200K0=1]*/[W200K1=1]
    W12K1=6
W200K0=2
ENDE
;
;        FILMOV
DOE: I00K24*[W200K0=2]*/[W200K1=1]
    W12K1=0
W200K0=0
W200K1=1
ENDE
;
;    1-   FILMOV
T64I(5)=I00K01*[W200K1=1]+T64D
U237K31=[W12K1=1]*I00K24
DOF: T64U*[W200K0=0]*[W200K1=1]
    W12K1=1
W200K0=1
ENDF
;
;    2-   FILMOV
DOE: I00K24*[W200K0=1]*[W200K1=1]
    W12K1=2
W200K0=2
ENDE
;
;    3-   FILMOV
DOE: I00K24*[W200K0=2]*[W200K1=1]
    W12K1=3
W200K0=3
ENDE
;
;        FILMOV
DOE: I00K24*[W200K0=3]*[W200K1=1]
    W12K1=0
W200K0=0
ENDE
;
;
;    4-   FILMOV
DOF:I00K27
W12K1=4
W200K0=4
ENDF
;
DOF:I00K24*[W200K0=4]
W12K1=0
W200K0=0
ENDF
ENDF
;
ENDF OSU
;
U15K16=I0N4*(I0A1+I0A3+(I2N12+I2N13)*[W100N0=3])*/U15N24*/U15N25+/I0N4*(I2N12+I2N13)*[W100N0=3]
U15K17=I0N4*(I0A0+I0A2+(I2N14+I2N15)*[W100N0=3])*/U15N24*/U15N25+/I0N4*(I2N14+I2N15)*[W100N0=3]
U10K4=(U15K16+U15K17)*((I0N4*/U15N24*/U15N25)+(/I0N4*[W100N0=3]))*(I8K27+I8K28)
; ==============
DOF OSU:/I0N5
W15N0=1
W15N1=2
W15N2=08H
U15N24=U15N0
U15N25=U15N9
ENDF OSU
; 室 ᥩ  0
P1=I8K30*I0K7
T1I(40)=P1+T1D
T2I(20)=T1U+T2D
U203K0=/T2D
;ORIENTACIA SHPINDEL
U11K0=[W3K0=19H]*U11K16+U11K0*/T46U*/T47U*/I0K1
T46I(10)=U11K0*I0K25
T47I(50)=U11K0*/I0K25
U21K1=T47U+U21K1*/I0K1
;
;CEFAB
U10K26=/U10K21*/[W3K0=30H]*/[W12K1>0]*/U100K6
;M06
U100K6=[W3K0=6]+U100K6*/I0K27*/I0K1
U10K21=[W3K0=6]+U237K31+U10K21*/I0K27*/I0K1
;
U21K9=U10K0
;
T63I(100)=P0+P1+P5+T63D
;
                  ; 
C0I(2)=I2N7
                  ;1  
DOF:[C0W=0]*/I0K1
W11N0=1
W11N1=0
  DOF:/[W100N0=3]
     W11N2=3
  ENDF
  DOF:[W100N0=3]
     W11N2=23
  ENDF
  DOF:/[W100N0=4]
     W11N3=4
  ENDF
  DOF:[W100N0=4]
     W11N3=24
  ENDF
  DOF:U10K0*T253D
      W12N0=5
  ENDF
  DOE:U10K0*T254D
   W12N0=0
  ENDE
  DOE:I0K2
      W12N0=25
  ENDE
W12N1=0
W12N2=7
W12N3=8
                  ;
DOF:I2N0
W100N0=1
ENDF
                  ;
DOF:I2N1
W100N0=2
ENDF
                  ;ᥩ
DOF:I2N2
W100N0=3
W100N1=4
ENDF
                  ;
DOF:I2N3
W100N0=4
W100N1=3
ENDF
                  ; 
DOF:I2N4
W100N0=5
ENDF
                  ;
DOF:I2N5
W100N0=6
ENDF
                  ;
P2=I2N6
U10K1=P2
ENDF
;
                  ;2-  
DOF:[C0W=1]*/I0K1
W11N0=9
W11N1=10
W11N2=0
W11N3=12
W12N0=13
W12N1=0
W12N2=15
W12N3=16
;
                           ;
DOF:I2N0
W100N0=15
ENDF
                           ;
DOF:I2N1
W100N0=10
ENDF
                           ;
DOF:I2N2
W100N0=11
ENDF
                           ;
DOF:I2N3
W100N0=12
ENDF
                           ;
DOF:I2N4
W100N0=13
ENDF
                           ;
DOF:I2N5
W100N0=14
ENDF
                  ;
P2=I2N6
U10K1=P2
ENDF
DOF:I0K1
W11N0=0
W11N1=0
W11N2=0
W11N3=0
W12N0=0
W12N1=0
W12N2=0
W12N3=0
ENDF
;
DOF:[W100N0=1]
W13N0=0
W13N1=0
W13N2=0
W13N3=0
W14N0=0
W14N1=0
W14N2=0
W14N3=0
ENDF
                           ; ᥩ
DOF:([W100N0=3]+I0N4)*/(I8K24+I8K25+I8K26)
W13N0=0
W13N1=0
W13N2=0
W13N3=0
W14N0=MUX(24,22),(I2N12,I0K4)
W14N1=MUX(23,21),(I2N13,I0K4)
W14N2=MUX(32,30),(I2N14,I0K4)
W14N3=MUX(31,29),(I2N15,I0K4)
ENDF
DOE:([W100N0=3]+I0N4)*(I8K24+I8K25+I8K26)
W13N0=0
W13N1=0
W13N2=0
W13N3=0
W14N0=0
W14N1=0
W14N2=0
W14N3=0
ENDE
;
                           ;
DOF:[W100N0=14]
W13N0=0
W13N1=0
W13N2=0
W13N3=0
W14N0=0
W14N1=0
W14N2=0
W14N3=0
ENDF
;
DOF:[W100N0=15]
W13N0=0
W13N1=0
W13N2=0
W13N3=0
W14N0=0
W14N1=0
W14N2=0
W14N3=0
ENDF
                           ;/   
C6I(2)=[W100N0=4]*I2N10*/(U11K3+U11K4)
U103N0=[C6W=0]
U103N1=/U103N0
;
; M3 M4
C7Z=[W100N0=4]*I2N8+[W3K0=4]+I0K1+[W3K0=5]
C8Z=[W100N0=4]*I2N9+[W3K0=3]+I0K1+[W3K0=5]
C7I(2)=([C7W=0]*(I2N9*[W100N0=4]+[W3K0=3])+[C7W=1]*(I2N9*[W100N0=4]+[W3K0=4]))*U103N0
C8I(2)=([C8W=0]*(I2N8*[W100N0=4]+[W3K0=4])+[C8W=1]*(I2N8*[W100N0=4]+[W3K0=3]))*U103N0
;
; 3 4 (ROMAO ROMAA)
U11K3=[C7W=1]*(U11K16+U11K17)
U11K4=[C8W=1]*(U11K16+U11K17)
U103N3=/U11K4
U103N4=/U11K3
;
;M40 - M44
DOF:P0+[W3K0=41H]+C40R
C40W=1
ENDF
DOF:[W3K0=42H]
C40W=2
ENDF
C40I(3)=I2N11
U11K16=[C40W=1]*([W100N0=4]+[W100N1=3])+[W3K0=41H]+U11K16*/[W3K0=42H]
U11K17=[C40W=2]*([W100N0=4]+[W100N1=3])+[W3K0=42H]+U11K17*/[W3K0=41H]
; 
U103N5=/U11K16
U103N6=/U11K17
                             ;
DOF:[W100N1=3]+[W100N0=4]+[W3K0=3]+[W3K0=4]
; 3 4 (ROMAO ROMAA)
W13N0=MUX(46,45),(U11K4,U103N3)
W13N1=MUX(48,47),(U11K3,U103N4)
;/   
W13N2=MUX(50,49),(U103N0,U103N1)
; 
W13N3=MUX(60,62),(U11K16,U11K17)
W14N0=0
W14N1=0
W14N2=0
W14N3=0
ENDF
;
;                             
C9I(2)=[W100N0=12]*I2N8
U104N1=/U104N0
U104N0=[C9W=1]
C10I(2)=[W100N0=12]*I2N9
U104N2=[C10W=1]
U104N3=/U104N2
C11I(2)=[W100N0=12]*I2N10
U104N4=[C11W=1]
U104N5=/U104N4
;
DOF:[W100N0=12]
W13N0=MUX(58,57),(U104N0,U104N1)
W13N1=MUX(52,51),(U104N2,U104N3)
W13N2=MUX(54,53),(U104N4,U104N5)
W13N3=0
W14N0=0
W14N1=0
W14N2=0
W14N3=0
ENDF
;
DOF:[W100N0=13]
W13N0=0
W13N1=0
W13N2=0
W13N3=0
W14N0=0
W14N1=0
W14N2=0
W14N3=0
ENDF
;
U10K24=I0K8*I0K9
U10K8=I0K2
U10K9=I0K2
P0=U10K0
U4A8=I0K8
U4A9=I0K9
                  ; 
C4I(2)=/I0N4*[W100N0=5]*I2N8+[C4W=1]*/I6K21
U101N16=[C4W=0]
U101N17=[C4W=1]
U10K20=[C4W=1]
U10K0=[C4W=0]
U10K25=I0K2
DOF:[W100N0=5]*/I0N4
W13N0=MUX(17,18),(U101N16,U101N17)
W13N1=0
W13N2=0
W13N3=0
W14N0=0
W14N1=0
W14N2=0
W14N3=0
ENDF
;=====================================================================
