;!0                               
U255N0=U255N2
;!1
U255N1=/U255N2
$
;S-ࠧ ࠧ/ମ
U10N2=I0K2
U10N3=/I0K2
;                             0,6c
T32I(6)=/T33D
T33I(6)=/T32D
;=======================  HHPS ===================================
                  ;   ⥫㠫 HHPS
!HHPSON=!HHPS *[W100N0=30] * I0K2
        ;।ࣨ I7N31  ୮ 樠樨 
        ;P30 -  祭 HHPS  ;P31 -  몫祭 HHPS
P30=!HHPSON
P31=/!HHPSON
DOF HHPSON:!HHPSON * [W100N0=30]+P30
        ;롮 ० ࠡ MANU, MANJ
    !MODE=MUX(8,8,16),(P30,!CMANU,!CINC)
        ;⠭ ०  HHPS
    DOF SETMAN: !CMANU+P30
        !MANU  = !1
        !INC   = !1
    ENDF SETMAN
    DOF SETINC: !CINC
        !MANU  = !1
        !INC   = !0
    ENDF SETINC
    DOF SETHPG: !HPG
        !MANU  = !0
        !INC   = !1
    ENDF SETHPG
    ;롮 業 ᪮  ६饭 JOG
    C31A=!JN + C31A*/!JP
    C31I(6)=!JN + !JP
    DOF:[C31W=0] * /!100
        !SPEEDJ =  0
        U17N16  = !0
        U17N17  = !0
        U17N18  = !0
    ENDF
    DOE:[C31W=1] * /!100
        !SPEEDJ =  1
        U17N16  = !1
        U17N17  = !0
        U17N18  = !0
    ENDE        
    DOE:[C31W=2] * /!100
        !SPEEDJ =  5
        U17N16  = !0
        U17N17  = !1
        U17N18  = !0
    ENDE
    DOE:[C31W=3] * /!100
        !SPEEDJ = 20
        U17N16  = !1
        U17N17  = !1
        U17N18  = !0
    ENDE
    DOE:[C31W=4] * /!100
        !SPEEDJ = 50
        U17N16  = !0
        U17N17  = !0
        U17N18  = !1
    ENDE
    DOF:[C31W=5] + !100
        !SPEEDJ = 100
        U17N16  = !1
        U17N17  = !0
        U17N18  = !1
    ENDF
        ;롮 蠣  ० MANJ
    C30I(4) = !F1HHPS * I8K28
    DOF:([C30W=0] + [C30W=1]) * /!HPG
        !JOG   = 1
        U17N20 = !0
        U17N21 = !0
        C30W   = 1
    ENDF
    DOE:[C30W=2]*/!HPG
        !JOG   = 2
        U17N20 = !1
        U17N21 = !0
    ENDE
    DOE:[C30W=3]*/!HPG
        !JOG   = 4
        U17N20 = !0
        U17N21 = !1
    ENDE
        ; ࠡ 筮   ࢠ HPG
!HPG=!CHPG + !HPG * /!CMANU * /!CINC
        ;롮 蠣 ࢠ
    C34I(3) = !F3HHPS * !HPG
    DOF:[C34W=0]
        U15N16 = !0
        U15N17 = !1
        U15N18 = !0
        U15N19 = !0
        U17N4  = !0
        U17N5  = !0
    ENDF
    DOE:[C34W=1]
        U15N16 = !0
        U15N17 = !0
        U15N18 = !1
        U15N19 = !0
        U17N4  = !1
        U17N5  = !0
    ENDE
    DOE:[C34W=2]
        U15N16 = !0
        U15N17 = !0
        U15N18 = !0
        U15N19 = !1
        U17N4  = !0
        U17N5  = !1
    ENDE
        ;롮  X
    U15K16=I7N8+P30+U15K16*/I7N9*/I7N10
    DOF:U15K16
        W17N1=10H        
        W15N0=1
    ENDF
        ;롮  Y
    U15K17=I7N9+U15K17*/I7N8*/I7N10
    DOF:U15K17
        W17N1=21H
        W15N0=2
    ENDF
        ;롮  Z
    U15K18=I7N10+U15K18*/I7N8*/I7N9
    DOF:U15K18
        W17N1=32H
        W15N0=4
    ENDF
        ;   ࢠ  ࠭
    U15N7 = /U15N0 * /U15N1 * /U15N2
        ; 祭 ࢠ
    U15N24 = !HPG * [W15K0>0] * (U15N16+U15N17+U15N18+U15N19)
        ;롮 ࠢ   X,Y,Z
    U15K31 = I7N17
    U17N19 = U15K31
        ; ᪠
    U10K4 = [W8N0>0] * (I7N17+I7N16)
        ;ਧ X+
    U105K8 = I0K16 * /U15K31 * /!HPG
        ;ਧ X-
    U105K9 = I0K16 * U15K31 * /!HPG
        ;ਧ X ࠭
    U105K10 = U15K16 * I0K4
        ;ਧ Y+
    U105K11 = I0K17 * /U15K31 * /!HPG
        ;ਧ Y-
    U105K12 = I0K17 * U15K31 * /!HPG
        ;ਧ Y ࠭
    U105K13 = U15K17 * I0K4
        ;ਧ Z+
    U105K14 = I0K18 * /U15K31 * /!HPG
        ;ਧ Z-
    U105K15 = I0K18 * U15K31 * /!HPG
        ;ਧ Z ࠭
    U105K16 = U15K18 * I0K4
; F11 (1- ) "⨢ "
    C33I(3)=T33D
    W13N0=[C33W+180]
; F12 (2- ) "० "
    U106N0 = !CMANU + P30 + U106N0 * /!CINC  */!CHPG
    U106N1 = !CINC  +       U106N1 * /!CMANU */!CHPG
    U106N2 = !CHPG  +       U106N2 * /!CMANU */!CINC
    W13N1=MUX(183,184,185),(U106N0,U106N1,U106N2)
; F13 (3- ) "  ६饭  /"
    DOF: /!HPG * /!100
         W13N2=[139-C31W]
    ENDF
    DOE: /!HPG * !100
         W13N2=134
    ENDE
    DOE:
         W13N2=0
    ENDE
; 롮  ﭨ ᥩ 4,5,6,7,8  ० MANU
    DOF: I8K27
         W13N3=MUX(23,24,34,33),(U105K8,U105K9,U105K10,I0K4)
         W14N0=MUX(27,28,36,35),(U105K11,U105K12,U105K13,I0K4)
         W14N1=MUX(31,32,38,37),(U105K14,U105K15,U105K16,I0K4)
         W14N2=0
         W14N3=0
    ENDF
; 롮  ﭨ ᥩ 4,5,6,7,8  ० MANJ (INC)
    DOF: I8K28
         W13N3=MUX(23,24,34,33),(U105K8,U105K9,U105K10,I0K4)
         W14N0=MUX(27,28,36,35),(U105K11,U105K12,U105K13,I0K4)
         W14N1=MUX(31,32,38,37),(U105K14,U105K15,U105K16,I0K4)
         W14N2=MUX(140,141,142),(U16K16,U16K17,U16K18)
         W14N3=0
    ENDF
; 롮  ﭨ ᥩ 4,5,6,7,8  ० HW (HPG)
    DOF: !HPG
         W13N3=MUX(23,24,34,33),(U105K8,U105K9,U105K10,I0K4)
         W14N0=MUX(27,28,36,35),(U105K11,U105K12,U105K13,I0K4)
         W14N1=MUX(31,32,38,37),(U105K14,U105K15,U105K16,I0K4)
         W14N2=0
         W14N3=MUX(173,174,175),(U15N17,U15N18,U15N19)
    ENDF
ENDF HHPSON
             ;室  ० 筮 
DOF: P31
     W17N0=0
     W15N3=0
     W13N0=0
     W13N1=0
     W13N2=0
     W13N3=0
     W14N0=0
     W14N1=0
     W14N2=0
     W14N3=0
ENDF
;E=========================== HHPS=======================================
;B==========ࠢ ஬ ࠭  ᬥ 㬥============
; ⥪饩 ࠭,  ன  㭪 
P23= I4K17
DOF: P23
     W101K0 = W6K1
ENDF
;⠭ ࠭ 7  ६ 믮 ᪠ 㬥
DOF: I4K17
     W16K3 = 17H
ENDF
;   ࠭ ᫥ 믮 ᬥ 㬥
DOE: I0K27
     W16K3 = W101K0
ENDE
DOE:
     W16K3=0
ENDE
;E ========================================================================
;B ==========================   QQ1/MP0======================
C5I(2)=I2N2*[C0W=0]
P5=C5R
C5Z=(I2N0+I2N1+I2N3+I2N4+I2N5+I2N6+I2N7)*[C5W=1]+I0K1
;============================     ======================
U202K0=/I2N02*[C00W=1]+[C00W=0]
;B ==========================     ===================
DOF:/!HHPSON
;                        
;   C12I(5)= U200K0*/U200K1*[C12W=0]+[W12K1>0]*[C12W=1]+U11K0*[C12W=2]+T31D*[C12W=3]+U10K21*[C12W=4]+I0K27
   C12I(5)= U200K0*/U200K1*[C12W=0]+[W12K1>0]*[C12W=1]
   C12I(5)= U11K0*[C12W=2]+T31D*[C12W=3]
   C12I(5)= U10K21*[C12W=4]+I0K27
   C12Z=    I0K1+I04K17
   W17K3=   MUX(5,C12W),(C12R,I0K2)
; *********************                ************************
;   
   U199K0=[W02K2>0H]*[W02K2<21H]*/[W15T0=W02K2]
   U200K0=U199K0*I04K17+U200K0*/P12*/I0K1
; ,    
   T30I(10)=U200K0*/T30U
;    
   U200K4=SGN(W02K2-W200K2)
  DOF: T30U * U200K4
       W201K0=[BIN(W200K2)-1]
       W200K2=BCD(W201K0)
  ENDF
;    
  DOF:T30U*/U200K4
       W201K0=[BIN(W200K2)+1]
       W200K2=BCD(W201K0)
  ENDF
;  㬥  譥 ⠭筮  NC-230======
   DOF:I0K2
      W204K0=BCD(W201K0)
;
      W204K1=LOW(W204K0)
;⪨
      W204K2=HIG(W204K0)
      DOF:[W204K2=0]
          U5A10=/I0K2
          U5A11=/I0K2
      ENDF
      DOF:[W204K2=1]
          U5A10=/I0K2
          U5A11=I0K2
      ENDF
      DOF:[W204K2=2]
          U5A10=I0K2
          U5A11=/I0K2
      ENDF
      DOF TX0:[W204K1=0]
          U5A12=/I0K2
          U5A13=/I0K2
          U5A14=/I0K2
          U5A15=/I0K2 
      ENDF TX0
      DOF TX1:[W204K1=1]
          U5A12=/I0K2
          U5A13=/I0K2
          U5A14=/I0K2     
          U5A15=I0K2 
      ENDF TX1
      DOF TX2:[W204K1=2]
          U5A12=/I0K2
          U5A13=/I0K2
          U5A14=I0K2
          U5A15=/I0K2 
      ENDF TX2
      DOF TX3:[W204K1=3]
          U5A12=/I0K2
          U5A13=/I0K2
          U5A14=I0K2
          U5A15=I0K2 
      ENDF TX3
      DOF TX4:[W204K1=4]
          U5A12=/I0K2
          U5A13=I0K2
          U5A14=/I0K2
          U5A15=/I0K2 
      ENDF TX4
      DOF TX5:[W204K1=5]
          U5A12=/I0K2
          U5A13=I0K2
          U5A14=/I0K2
          U5A15=I0K2 
      ENDF TX5
      DOF TX6:[W204K1=6]
          U5A12=/I0K2
          U5A13=I0K2
          U5A14=I0K2
          U5A15=/I0K2 
      ENDF TX6
      DOF TX7:[W204K1=7]
          U5A12=/I0K2
          U5A13=I0K2
          U5A14=I0K2
          U5A15=I0K2 
      ENDF TX7
      DOF TX8:[W204K1=8]
          U5A12=I0K2
          U5A13=/I0K2
          U5A14=/I0K2
          U5A15=/I0K2 
      ENDF TX8
      DOF TX9:[W204K1=9]
          U5A12=I0K2
          U5A13=/I0K2
          U5A14=/I0K2
          U5A15=I0K2 
      ENDF TX9
   ENDF
; ***********************************************************************
;
;   12=1
   P12= [W200K2=W02K2]
   U200K1= P12+U200K1*/T31U*/I0K1
;
;   06
  U200K2= [W03K0=6]+U200K2*/I0K26*/I0K27*/I0K1
;
; CEFAB
  U10K26= /U200K2*/U200K03*/[W03K0=30H]
;
;      
  U200K03= U200K1*U200K2
;
;     
  W12K1= MUX(1,0,0),(U200K03,I0K1,I0K2)
;
;  
  U199K1=[W03K0=19H]+I0K24*U200K2*U200K1
  U11K0=U199K1+U11K0*/T34U*/T31U*/I0K1
;  
  T34I(20)=U11K0*/I0K25
; MSG 9  
  ;U21K08=T34U+U21K08*/I0K25*/I0K1
  ;T35I(20)=U11K0*I0K25
;
;  
  T31I(60)=T34U*U200K2*U200K1+I1A9+T31I*/T31U
  U4A27=T31D
;   
  P06=I0K24
  C13Z=P06+I1A9
  C13I(4)=T32U*T31D
; T31U- " "
;
;  
  U199K2=T31U*U200K2+[W15T0=W02K2]*U200K2*/U200K03
  U199K3=[W02K2=0]*U200K2
  U10K21=U199K2+U199K3+U10K21*/I0K26*/I0K27*/I0K1
;
;    
  DOF:T31U
      W15T0=W200K2
  ENDF
;
; ****************        ********************
  U255N29=/[W02N0>0]+U255N29*/I04K17
  U204K24=/U200K0*T31D
  W100N0=MUX(15,15,0),(U204K24,U200K0,I0K1)
  DOF:[W100N0=15]*([W02K2>0H]*[W02K2<21H]*U255N29+T32D)
        W200K3=[BIN(W200K2)+70]
        U200K8=SGN(W201K0-3)
        U200K9=SGN(W201K0-2)
        U200K10=SGN(W201K0-1)
     DOF:   U200K8
            W13N0=0
     ENDF
     DOE:
            W13N0=[W200K3-3]
     ENDE
     DOF:   U200K9
            W13N1=0
     ENDF
     DOE:
            W13N1=[W200K3-2]
     ENDE
     DOF:   U200K10
            W13N1=0
     ENDF
     DOE:
            W13N2=[W200K3-1]
     ENDE
;
;    
     W201K1=[W200K3+20]
;
;    
     W203K0=[BIN(W2K2)+110]
     DOF:[W2K2>0]
        W13N3=MUX(W203K0,W201K1,W201K1),(T30U,T31U,I1A9)
        U200K11=SGN(16-W201K0)
        U200K12=SGN(17-W201K0)
        U200K13=SGN(18-W201K0)
     ENDF
     DOE:[W2K2=0]*T31D
     W13N3=0
     ENDE
;
; 
     DOF:[W4K0=0]*T31D
     W13N0=0
     W13N1=0
     W13N2=0
     W13N3=0
     W14N0=0
     W14N1=0
     W14N2=0
     ENDF
     DOF:T31I*T32D
         DOF:[C13W=0]
             W14N3=131
         ENDF
         DOF:[C13W=1]
             W14N3=132
         ENDF
         DOF:[C13W=2]
             W14N3=133
         ENDF
         DOF:[C13W=3]
             W14N3=133
         ENDF
         DOF:C13R
             W14N3=131
         ENDF
     ENDF
     DOF:/T31I
         W14N3=131
     ENDF
     DOF:U200K12*[W2K2>0]
         W14N2=0
     ENDF
     DOE:[W2K2>0]
         W14N2=[W200K3+3]
     ENDE
     DOF:U200K13*[W2K2>0]
         W14N1=0
     ENDF
     DOE:[W2K2>0]
         W14N1=[W200K3+2]
     ENDE
     DOF:U200K14*[W2K2>0]
         W14N0=0
     ENDF
     DOE:[W2K2>0]
         W14N0=[W200K3+1]
     ENDE
  ENDF
ENDF
;E ==========================    ===============
;
; MSG 10  
U21K9=U10K0
;
; -   " "  ,  ,
;    
P0=U10K0
T63I(20)=([W100N0=0]+P0+P5+T63D+P31)*!HHPS
;
U255N30=[W100N0=6]
;  
W15K0=MUX(0,0CDH,49H,0),(U10K0,!HHPSON,U255N30,I0K2)
;
      ;=======      F1-F8=======
                               ;
P2=I2N6
U10K1=P2
       DOF: /I2N6
            W12N2=7
       ENDF
       DOE:
            W12N2=27
       ENDE
                               ; HHPSI
C99I(2) = I2N0
C99Z=U230K0
U230K0=[W2N0>1]
W100N0=MUX(30,0),(I7N31,P99)
U7N31=[C99W=1]
P99=[C99W=0]*/!HHPSON
       DOF: /[W100N0=30]
            W11N0=1
       ENDF
       DOE:
            W11N0=21
       ENDE
      ;=======       F1-F8=======
                  ;   
         C0I(2)=I2N7
                  ;  
; ************************  1    ****************************
     DOF: [C0W=0]
          W11N1=2
       DOF: /[W100N0=3]
            W11N2=3
       ENDF
       DOE:
            W11N2=23
       ENDE
       DOF: /[W100N0=4]
            W11N3=4
       ENDF
       DOE:
            W11N3=24
       ENDE
       DOF: U10K0*T32D
            W12N0=0
       ENDF
       DOE: U10K0
            W12N0=5
       ENDE
       DOE:
            W12N0=25
       ENDE
       DOF: /[W100N0=6]
            W12N1=6
       ENDF
       DOE:
            W12N1=26
       ENDE
     W12N3=8
                  ;
     DOF: I2N1 * /!HHPSON
          W100N0=2
     ENDF
                  ;
     DOF: I2N2 * /!HHPSON
          W100N0=3
     ENDF
                  ;
     DOF: I2N3 * /!HHPSON
          W100N0=4
     ENDF
                  ; 
     DOF: I2N4
;         W100N0=5
     ENDF
                  ;  
     DOF: I2N5 * /!HHPSON * (I8K27+I8K28+I8K29+I8K30)
          W100N0=6
     ENDF
ENDF
     U255N24= I2N5 * [C0W=0] * /!HHPSON * /(I8K27+I8K28+I8K29+I8K30)
     W17K3= MUX(8,0),(U255N24,I0K2)
; ***********************************************************************
;
; **********************  2-    ****************************
DOF:[C0W=1]
W11N1=10
W11N2=11
       DOF: /[W100N0=12]
            W11N3=12
       ENDF
       DOE:
            W11N3=32
       ENDE
       DOF: /[W100N0=13]
            W12N0=13
       ENDF
       DOE:
            W12N0=33
       ENDE
       DOF: /[W100N0=14]
            W12N1=14
       ENDF
       DOE:
            W12N1=34
       ENDE
W12N3=16
                           ;
DOF:I2N1
W100N0=10
ENDF
                           ;
DOF:I2N2
;W100N0=11
ENDF
                           ;
DOF:I2N3
W100N0=12
ENDF
                           ;
DOF:I2N4
W100N0=13
ENDF
                           ;
    ;(VOL)
C14I(2)=[W100N0=13]*I2N8
U26K0=[C14W=1]
U26K1=[C14W=0]
P3=U26K0
P4=U26K1
    ; (URL)
;C15I(2)=[W100N0=13]*I2N9
;U26K2=[C15W=1]
;U26K3=[C15W=0]
;P6=U26K2
;P7=U26K3
    ; (UVR)
C16I(2)=[W100N0=13]*I2N10
U26K4=[C16W=1]
U26K5=[C16W=0]
P8=U26K4
P9=U26K5
    ; 1(USO)
C17I(2)=[W100N0=13]*I2N11
U26K6=[C17W=1]
U26K7=[C17W=0]
P10=U26K6
P11=U26K7
    ;(MBR)
C18I(2)=[W100N0=13]*I2N12
U26K8=[C18W=1]
U26K9=[C18W=0]
P13=U26K8
P14=U26K9
    ;  (RAP)
C19I(2)=[W100N0=13]*I2N13
U26K10=[C19W=1]
U26K11=[C19W=0]
P15=U26K10
P16=U26K11
    ; (UEP)
C20I(2)=[W100N0=13]*I2N14
U26K12=[C20W=1]
U26K13=[C20W=0]
P17=U26K12
P18=U26K13
    ;(UCV)
C21I(4)=[W100N0=13]*I2N15
P19=[C21W=0]
P20=[C21W=1]
P21=[C21W=2]
P22=[C21W=3]
DOF:[W100N0=13]
W13N0=MUX(150,151),(U26K1,U26K0)
;W13N1=MUX(152,153),(U26K3,U26K2)
W13N1=0
W13N2=MUX(154,155),(U26K5,U26K4)
W13N3=MUX(156,157),(U26K7,U26K6)
W14N0=MUX(158,159),(U26K9,U26K8)
W14N1=MUX(160,161),(U26K11,U26K10)
W14N2=MUX(162,163),(U26K13,U26K12)
W14N3=164
ENDF
W17K0=MUX(8,9,12,13,14,15),(P3,P4,P8,P9,P10,P11)
W17K0=MUX(16,17,18,19,20,21),(P13,P14,P15,P16,P17,P18)
W17K0=MUX(22,23,24,25),(P19,P20,P21,P22)
U199K4=P3+P4+P8+P9+P10+P11+P13+P14
U199K5=P15+P16+P17+P18+P19+P20+P21+P22
U10K23=U199K4+U199K5+U10K23*/I5K30*/I5K31
U10K18=U10K23
U10K19=U10K23
                           ;START/STOP
DOF:I2N05
W100N0=14
ENDF
ENDF
; ***********************************************************************
;
                          ; 
DOF:[W100N0=1]*/[W2N1=0]*[W6K1=17H]*!HHPS
;W15K1=W2N1
W02N1=0
ENDF
DOF:[W100N0=1]
W101N0=[255-W8K3]
W13N0=MUX(1,2),(U101N0,I8K24)
W13N1=MUX(3,4),(U101N1,I8K25)
W13N2=MUX(5,6),(U101N2,I8K26)
W13N3=MUX(7,8),(U101N3,I8K27)
W14N0=MUX(9,10),(U101N4,I8K28)
W14N1=MUX(11,12),(U101N5,I8K29)
W14N2=MUX(13,14),(U101N6,I8K30)
W14N3=MUX(15,16),(U101N7,I8K31)
ENDF
;
                             ;START/STOP
;U10K4=[W100N0=14]*I2N8*[W6K1=17H]
U10K3=[W100N0=14]*I2N9*[W6K1=17H]
U102N0=/I0K28
DOF:[W100N0=14]*/[W2N1=0]*[W6K1=17H]
W15K0=11H
W16K0=100
ENDF
DOF:[W100N0=14]
W13N0=MUX(40,39),(I0K7,I0K4)
W13N1=MUX(42,41),(I0K28,U102N0)
W13N2=0
W13N3=0
W14N0=0
W14N1=0
W14N2=0
W14N3=0
ENDF
;
;/   
C6I(2)=[W100N0=4]*I2N10*/(U11K3+U11K4)*[W6K1=17H]
U103N0=[C6W=0]
U103N1=/U103N0
;
; M3 M4
U199K6=[W100N0=4]*I2N8*[W6K1=17H]
C7Z=U199K6+[W3K0=4]+I0K1+[W3K0=5]
U199K7=[W100N0=4]*I2N9*[W6K1=17H]
C8Z=U199K7+[W3K0=3]+I0K1+[W3K0=5]
U199K8=[W6K1=17H]*I2N9*[W100N0=4]+[W3K0=3]
U199K9=I2N9*[W100N0=4]+[W3K0=4]
C7I(2)=([C7W=0]*U199K8+[C7W=1]*U199K9)*U103N0
U199K10=[W6K1=17H]*I2N8*[W100N0=4]+[W3K0=4]
U199K11=I2N8*[W100N0=4]+[W3K0=3]
C8I(2)=([C8W=0]*U199K10+[C8W=1]*U199K11)*U103N0
;
; 3 4 (ROMAO ROMAA)
U11K3=[C7W=1]
U11K4=[C8W=1]
U103N3=/U11K4
U103N4=/U11K3
;
;M40 - M44
U199K12=P0+[W06K1=17H]*I2N11*[W100N0=4]+[W03K0=41H]
U199K13=U11K17+U11K18+U11K19+(I2N15*[W100N0=4])
U11K16=U199K12+U11K16*/U199K13
U199K14=[W06K1=17H]*I2N12*[W100N0=4]+[W03K0=42H]
U11K17=U199K14+U11K17*/U11K16*/U11K18*/U11K19*/(I2N15*[W100N0=4])
U199K15=[W06K1=17H]*I2N13*[W100N0=4]+[W03K0=43H]
U11K18=U199K15+U11K18*/U11K16*/U11K17*/U11K19*/(I2N15*[W100N0=4])
U199K16=[W06K1=17H]*I2N14*[W100N0=4]+[W03K0=44H]
U11K19=U199K16+U11K19*/U11K16*/U11K17*/U11K18*/(I2N15*[W100N0=4])
; 
U103N5=/U11K16
U103N6=/U11K17
U103N7=/U11K18
U103N8=/U11K19
U103N9=/U11K16*/U11K17*/U11K18*/U11K19
U103N10=/U103N9
                             ;
DOF:[W100N0=4]+[W03K0=3]+[W03K0=4]
; 3 4 (ROMAO ROMAA)
W13N0=MUX(46,45),(U11K4,U103N03)
W13N1=MUX(48,47),(U11K03,U103N04)
;/   
W13N2=MUX(50,49),(U103N00,U103N01)
W13N3=MUX(60,59),(U11K16,U103N05)
W14N0=MUX(62,61),(U11K17,U103N06)
W14N1=MUX(64,63),(U11K18,U103N07)
W14N2=MUX(66,65),(U11K19,U103N08)
W14N3=MUX(68,67),(U103N9,U103N10)
ENDF
;
;                             
C09I(2)=[W100N0=12]*I2N8*[W6K1=17H]
U104N1=/U104N0
U104N0=[C09W=1]
C10Z=/I2N9*/I1A22
C10I(2)=[W100N0=12]*I2N09*[W6K1=17H]+I1A22
U104N2=[C10W=1]
U104N3=/U104N2
C11I(2)=[W100N0=12]*I2N10*[W6K1=17H]+I1A15
U104N4=[C11W=1]
U5A1=U104N4
U104N5=/U104N4
C22I(2)=[W100N0=12]*I2N11*[W6K1=17H]+I1A12
U104N6=[C22W=1]
U4A30=U104N6
U104N7=/U104N6
;
DOF:[W100N0=12]
W13N0=MUX(58,57),(U104N0,U104N1)
W13N1=MUX(52,51),(U104N2,U104N3)
W13N2=MUX(54,53),(U104N4,U104N5)
W13N3=MUX(44,43),(U104N6,U104N7)
W14N0=0
W14N1=0
W14N2=0
W14N3=0
ENDF
  
                  ;  
DOF:([W100N0=6]*[W2N1=0])*(I8K27+I8K28+I8K29+I8K30)
W15K3=0
U10K4=U255N31
W13N0=33
W13N1=35
W13N2=37
W13N3=188
W14N0=0
W14N1=0
W14N2=194
W14N3=196
W02N1=0
ENDF
                  ; 
C4I(2)=[C0W=0]*I2N4*[W6K1=17H]
C4Z=/I6K21
 ;ASPEPN
U10K20=[C4W=1]
 ;MUSPE
U10K0=[C4W=0]
 ;RAB1
U10K8=I0K2
 ;RABI2
U10K9=I0K2
 ;RAB3
U10K10=I0K2
 ;RAB4
U10K11=I0K2
 ;RAB5
U10K12=I0K2
 ;COMU
U10K24=[W0K1=1FH]
 ;CEFA
U10K25=I0K2
                  ;   F11-F18
DOF:[W100N0=6]*/[W2N1=0]*[W6K1=17H]*(I8K27+I8K28+I8K29+I8K30)
W15K3=0
U10K4=U255N31
W15K3=100
U15K16=I2N8+U15K16*/I2N9*/I2N10*/I2N11*/I2N12
U15K17=I2N9+U15K17*/I2N8*/I2N10*/I2N11*/I2N12
U15K18=I2N10+U15K18*/I2N8*/I2N9*/I2N11*/I2N12
U15K19=I2N11+U15K19*/I2N8*/I2N9*/I2N10*/I2N12
;U15K20=I2N12+U15K20*/I2N8*/I2N9*/I2N10*/I2N11
U15K31=I2N15
U10K4=(U15K16+U15K17+U15K18+U15K19+U15K20)*(I2N14+I2N15)
W13N0=MUX(34,33),(U15K16,I0K4)
W13N1=MUX(36,35),(U15K17,I0K4)
W13N2=MUX(38,37),(U15K18,I0K4)
W13N3=MUX(189,188),(U15K19,I0K4)
W14N0=0
W14N1=0
W14N2=MUX(195,194),(I2N14,I0K4)
W14N3=MUX(197,196),(I2N15,I0K4)
ENDF
