;   NC-110
;$   
; SPEPN        
; 1
U10K20=I6K21*(U158K9+U10K20*/U158K13)
                        ;
                        T61I(70)=/T62D
                        T62I(70)=/T61D
;----------------------------------------------------------------------------
$   
;------------------------------PRO=1----------------------------------------------
;  
;U210K24 U210K25 .  ZNO (AXCFIL)   X  Y ᮮ⢥⢥
P3=U210K24
U210K24=P3
P4=U210K25
U210K25=P4
;     -----------------------------------------------------------
;       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
;    -----------------------------------------------------------------
; 
C23I(2)=I157K27
C23Z=I0K1
U159K27=I9K19
P12=I157K25*(I8K27+I8K28)
P13=I157K26*I8K24
U13K1=[C23W=1]
U13K2=P12*I9K19+U13K2*/I9K20*/I0K1*I9K19
U13K3=P13*I9K19+U13K3*/I9K21*/I0K1*I9K19
U159K25=U13K2
U159K26=U13K3
DOF RESET:I0K1
    W11K0=0
    W11K1=0
ENDF RESET
;     -----------------------------------------------------------
;(.)-(.)  
C22I(2)=I157K30
U159K1=[C22W=1]
U222K1=[C22W=1]
W20K0=MUX(1,0),(U222K1,I0K2)
W20K1=MUX(2,0),(U222K1,I0K2)
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)
                        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
                            W18K0=W1K0
                            W18K1=W1K1
                            W18K2=W1K2
                            W18K3=W1K3
                        ENDF AS1
;
C11I(2)=U158K8
U160K8=U11K22*T62D+U11K23
U11K22=[C11W=0]*I0K4
U11K23=[C11W=1]
                        ;   RABI=0 OC X
                        W13K3=88
                        U12K0=U158K10+U158K11
                        U12K2=U158K10
                        U160K11=/U158K10*[C0W=1]*T62D+U158K11
                        U160K10=/U158K11*[C0W=1]*T62D+U158K10
                 ;/ RABI
                  C0I(2)=U158K1
                  U160K1=[C0W=0]*[W0K1=0FH]*T62D+[C0W=1]
                 ; 
                        ;MUSP
                        U10K0=/U10K20
                        U160K13=U10K0
                        U160K9=U10K20+U10K0*T61D
                 ;
                  U21K10=U10K0
                  U21K8=U10K20
;                  W17K3=MUX(9,10),(U10K20,U10K0)
;RABI
U10K8=I0K2*[C0W=0]*/U222K1
U10K9=I0K2*/U222K1
U10K10=I0K2
U10K11=I0K2*[W11K0=0]*([W3K0=21H]+U10K11*/[W3K0=22H])
;U10K12=I0K2
                        ;COMU
U10K24=[W0K1=0FH]*I0K2*U10K11+[W0K1=7]*I0K2*/U10K11+U10K24*/U10K0
                        ;CEFA
U10K25=I0K2
;----  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=P1+[W14T3=W2K2]*[W3K0=6]+U10K21*/I0K26*/I0K27
                        ;HOME  
U202K0=/U157K0
                        ;HOME AS1
U10K27=I0K2
                        ;
                        ;  
;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+U10K0
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
;
;----------------------------------------------------------------------------
                        ; "   "    
U200K0=[W3K0=31H]+[W3K0=32H]+[W3K0=33H]+[W3K0=34H]*I0K11+U200K0*/I0K1*/[W9K0=74]
P14=(I8K24+I8K25+I8K26+I8K27+I8K28+I8K29+I8K30+I8K31)*/U200K0
DOF:P14
;W15K1=W8K3
ENDF
U200K1=[W3K0=31H]+U200K1*/I0K1*/P16
U200K2=[W3K0=32H]+U200K2*/I0K1*/P16
U200K3=[W3K0=33H]+U200K3*/I0K1*/P16
U200K4=[W3K0=34H]*I0K11+U200K4*/I0K1*/P16
W15K0=MUX(4DH,0),(U200K0,I0K2)
W15K1=MUX(64),(U15K2)
W15K3=MUX(100),(U200K0)
U15K16=U200K1*I8K30
U15K17=U200K2*I8K30
U15K18=U200K3*I8K30
U15K19=U200K4*I8K30*I0K11
P15=U15K16+U15K17+U15K18+U15K19
P16=[W9K0=74]*(U200K1+U200K2+U200K3+U200K4)
T60I(20)=P15+P16+T60D
U10K4=T60U*(I8K25+I8K30)
;----------------------------------------------------------------------------
                        ; 
DOF MANU :I08K27
    U241K0=U157K14+U241K0*/U241K1*/U241K2
    U159K14=U241K0
    U241K2=U157K16+U241K2*/U241K0*/U241K1
    U159K16=U241K2
    U241K1=U157K15+U241K1*/U241K0*/U241K2
    U159K15=U241K1
  DOF  X :U241K0
          W15K0=73
          W15K2=1
  ENDF X
  DOF  Y :U241K1
          W15K0=73
          W15K2=2
  ENDF Y
          U15K31=U157K20
          U10K4=U157K20+U157K4
  DOF  Z :U241K2
          W15K0=73
          W15K2=4
  ENDF Z
          W15K3=100
          U15K31=U157K20
          U10K4=U157K20+U157K4
ENDF MANU
;************************************************
;JOG U157K0=0.01, U157K1=0.1, U157K2=1, U157K3=10
;U158K2=DBT
;************************************************
W17K0=MUX(1,4,5,6,7,0),(U158K2,U157K0,U157K1,U157K2,U157K3,I00K2)
U232K1=U157K0+U157K1+U157K2+U157K3+U158K2
U10K23=U232K1
U10K19=U232K1
U10K18=U232K1
;---------------------------------------------------------------------------
P0=I8K24+I8K25+I8K26+I8K28+I8K29+I8K31
DOF:P0
;W159K0=0
;W159K1=0
W159K2=0
W159K3=0
W160K0=0
W160K1=0
W160K2=0
W160K3=0
ENDF
;----------------------------------------------------------------------------
