;C21I(2)=I157K3
;DOF:[C21W=0]
;W11K3=83
;ENDF
;DOE:[C21W=1]
;W11K3=67
;ENDE
;       NC-110
; 
;RABI=1
;COMU=1
;HOLD=0
;START=0
;        p
;
;          
;     (C30W=1)0.01 mm / (=2)0.1 mm / (=3)1.0 mm / (=4)10.0 mm (0.001/0.01/0.1/1.0")
C30I(5)=I157K18*I0K2
C30Z=U10K0
C30W=MUX(1),(C30R)
W210K0=DEC(C30W)
W15N2=MUX(11H,22H,44H,88H,11H,0),(U210K0,U210K1,U210K2,U210K3,I0K2,U10K0)
;     ---------------------------
;       
U210K4=/U15N24*/U15N25
W17K3=MUX(0,1,2,3,4,0),(U210K4,U210K0,U210K1,U210K2,U210K3,C30Z)
;     ---------------------------
;       
;        (    MAS (PGCFIL))
C28I(4)=I157K14
C29I(4)=I157K15
U15N24=[C28W>0]*/I8K30
U15N25=[C29W>0]*/I8K30
W15N0=DEC(C28W)
W15N1=DEC(C29W)
;     ---------------------------
;       
U15N7=/U15N0*/U15N1*/U15N2*/U15N3*/U15N4*/U15N5*/U15N6
U15N15=/U15N8*/U15N9*/U15N10*/U15N11*/U15N12*/U15N13*/U15N14
;     ---------------------------
;         
U159K14=U15N24
U159K15=U15N25
;    -----------------------------------------------------------------
U10N0="CUB1"+U10N0*/"OC1"
U36N0="CUB2"+U36N0*/"OC2"
U13K0=I157K3
U249K30=I157K3
U249K31=/I157K3
U251K0="ON0"+U251K0*/"OFF0"
U251K1="ON1"+U251K1*/"OFF1"
U255K10=/I157K0
U255K11=/I157K1
U10N1="LO2"+U10N1*/"LO1"
;U36N1=U10N1
U255K0=/I157K1
T0I(50)="K"+T0I*/"L"
U11K22=T0D
U11K23=T0U
P31=U210K24
U210K24=P31
C31I(255)=P31
;W17K3=C31W
U115K0=" "+U115K0*/I0K1
;U10K6=I0K2
;   NC-110
$   
; SPEPN        
; 1     2     3      4       5
U10K20=I6K21*(U158K9+U10K20*/U158K13)
                        ;
                        T61I(70)=/T62D
                        T62I(70)=/T61D
;----------------------------------------------------------------------------
;------------------------------PRO=1----------------------------------------------
;TEACH
;  
    C23I(2)=I157K27*I0K2
    U13K1=[C23W=1]
    U159K27=I9K19
  
;   
    C23Z=I0K1
 
;   MANU/MANJ
    P12=I9K19*I157K26*(I8K27+I8K28)
    U13K2=(P12+U13K2*/I9K20*/I0K1)*I9K19
 
;    MDI
    P13=I9K19*I157K25*I8K24
    U13K3=(P13+U13K3*/I9K21*/I0K1)*I9K19
 
;MSG57  !  TEACH  
    U22K24=(I157K25+I157K26+U22K24*/I0K1)*/I9K19
 
;MSG58   MANU/MANJ  !!
    T45I(5)=P12+T45I*/I9K20
    U22K25=T45U
 
;MSG59   MDI     !!
    T46I(5)=P13+T46I*/I9K21
    U22K26=T46U
 
;MSG60   MANU  MANJ 
    T47I(10)=I9K20+T47D
    U22K27=T47D
 
;MSG61   MDI 
    T48I(100)=I9K21+T48D
    U22K28=T48D
 
;MSG62  TEACH   MANU/MANJ
    U22K29=I9K19*(I8K27+I8K28)
 
;MSG63  TEACH   MDI
    U22K30=I9K19*I8K24
;
;ACC
U10N2="1S"+U10N2*/"1E"*/"1L"
U10N3="1E"+U10N3*/"1S"*/"1L"
;
;     -----------------------------------------------------------
;(.)-(.)  
C22I(2)=I157K30
U159K1=[C22W=1]
U222K1=[C22W=1]
T5I(40)=U10K0
T7I(10)=I0K2
W20K0=MUX(0,1),(T5U,T7U)
W20K1=MUX(0,2),(T5U,T7U)
P23=I157K2*I5K24
P24=I157K3*I5K25
DOF:P23
    W18K1=[W18K1+1]
ENDF
DOF:P24
    W19K1=[W19K1+1]
ENDF
                        ; (.)-(.)   1- 
                        ;1)    T  1- 
;                        W20K0=MUX(1,0),(I0K2,U10K0)
;                        W20K1=MUX(2,0),(I0K2,U10K0)
                        DOF T:I4K17
                            W18K1=LOW(W2K2)
                            W18K1=XCH(W18K1)
                            W253K0=LOW(W2K3)
                            W18K2=XCH(W253K0)+HIG(W2K2)
                            W18K3=HIG(W2K3)
                        ENDF T
                        ;2)    AS1 (*3 IOCFIL)
                        DOF AS1:I4K20
                            W19K0=W1K0
                            W19K1=W1K1
                            W19K2=W1K2
                            W19K3=W1K3
                        ENDF AS1
                        ;MUSP
                        U10K0=/U10K20
                        U160K13=U10K0
                        U160K9=U10K20+U10K0*T61D
                 ;
DOF:[W22K3=0]
                  U21K10=U10K0
                  U21K8=U10K20
ENDF
DOE:
                  U21K8=/I0K2
ENDE
;                  W17K3=MUX(9,10),(U10K20,U10K0)
;RABI
C0I(2)=I157K3
;U10K8=I0K2*[C0W=0]*/U222K1
U10K8=I0K2
U10K9=I0K2
U10K10=I0K2
U36K0=U10K0
U36K8=I26K2*[C0W=0]*/U222K1
U36K9=I26K2*/U222K1
;U10K11=I0K2*[W11K0=0]*([W3K0=21H]+U10K11*/[W3K0=22H])
;U10K12=I0K2
                        ;COMU
;U10K24=[W0K1=0FH]*I0K2*U10K11+[W0K1=7]*I0K2*/U10K11+U10K24*/U10K0
U159K0=[W3K0=41H]+U159K0*/"A"*/I0K1
U10K24=I0K2*/I157K0*/U159K0
U36K24=U10K24
                        ;CEFA
U10K25=I0K2*/I157K0*/U159K0
U36K25=U10K25
;----  06    -----
U254K31=[W3K0=6]+U254K31*/I0K26*/I0K27*/I0K1
                        ;CEFAB
U10K26=/U254K31
; ---   4-   FILMOV -----------
;-----     
;P2=[W3K0=6]*/[W14T3=W2K2]
DOF:P2
    W12K1=1
ENDF
DOF:I0K24
    W12K1=[W12K1+1]
ENDF
P1=[W12K1=5]
DOF:[W12K1=5]+I0K1
    W12K1=0
ENDF
;------- W14T3     -------
DOF 1NT: P1
    W14T3=W2K2
ENDF 1NT
                        ;AGTOOL
U10K21=[W3K0=6]+P1+[W14T3=W2K2]*[W3K0=6]+U10K21*/I0K26*/I0K27
;U10K21=[W3K0=6]+U10K21*/I0K1*/I0K27*/I0K26
                        ;HOME  
U202K0=/U157K0
                        ;HOME AS1
U10K27=I5K24+I5K25
                        ;
                        ;  
;22 - 
;21 -  "C"
U233K7=[W3K0=22H]+U10K0+U233K7*/[W3K0=21H]
;---- M19  
W14K0=MUX(W1K0,0),(U11K0,I0K2)
W14K1=MUX(W1K1,0),(U11K0,I0K2)
W14K2=MUX(W1K2,0),(U11K0,I0K2)
W14K3=MUX(W1K3,0),(U11K0,I0K2)
;---- M19 -  ----
;---- M24=1 25=1 -    ----
;---- M24=0 25=1 -    ----
U11K0=U233K7*([W3K0=19H]+U11K0*/I0K1*/T17U*/T13U)
;  -  ..
U11K6=[W3K0=24H]+U11K6*/[W3K0=25H]*/I0K1
;  -  ..
U11K7=[W3K0=25H]+U11K7*/[W3K0=24H]*/I0K1
DOF:U11K0
T17I(20)=U11K0*I0K25
T13I(70)=U11K0*/I0K25
U10K2=T13U
ENDF
                        ; M19
                        ;
U11K16=I0K2
U233K3=U233K7*([W3K0=3]+U233K3*/[W3K0=4]*/[W3K0=5]*/[W3K0=19H]*/I0K1)
U233K4=U233K7*([W3K0=4]+U233K4*/[W3K0=3]*/[W3K0=5]*/[W3K0=19H]*/I0K1)
;ROMAO
U11K3=U233K3
;ROMAA
U11K4=U233K4
;
