;!0                               
!0=U255N2
;!1
!1=/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=C31A*/!JP+!JN
  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=!HPG*/!CMANU*/!CINC+!CHPG
  ;롮 蠣 ࢠ
  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=U15K16*/I7N9*/I7N10+I7N8+P30
  DOF:U15K16
    W17N1=10H
    W15N0=1
  ENDF
  ;롮  Y
  U15K17=U15K17*/I7N8*/I7N10+I7N9
  DOF:U15K17
    W17N1=21H
    W15N0=2
  ENDF
  ;롮  Z
  U15K18=U15K18*/I7N8*/I7N9+I7N10
  DOF:U15K18
    W17N1=32H
    W15N0=4
  ENDF
  ;   ࢠ  ࠭
  U15N7=/U15N0*/U15N1*/U15N2
  ; 祭 ࢠ
  U15N24=(U15N16+U15N17+U15N18+U15N19)*!HPG*[W15K0>0]
  ;롮 ࠢ   X,Y,Z
  U15K31=I7N17
  U17N19=U15K31
  ; ᪠
  U10K4=(I7N17+I7N16)*[W8N0>0]
  ;ਧ 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=U106N0*/!CINC*/!CHPG+!CMANU+P30
  U106N1=U106N1*/!CMANU*/!CHPG+!CINC
  U106N2=U106N2*/!CMANU*/!CINC+!CHPG
  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=U200K0*/P12*/I0K1+U199K0*I04K17
  ; ,    
  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=U200K1*/T31U*/I0K1+P12
  ;
  ;   06
  U200K2=U200K2*/I0K26*/I0K27*/I0K1+[W03K0=6]
  ;
  ; CEFAB
  U10K26=/U200K2*/U200K03*/[W03K0=30H]
  ;
  ;      
  U200K03=U200K1*U200K2
  ;
  ;     
  W12K1=MUX(1,0,0),(U200K03,I0K1,I0K2)
  ;
  ;  
  U199K1=I0K24*U200K2*U200K1+[W03K0=19H]
  U11K0=U11K0*/T34U*/T31U*/I0K1+U199K1
  ;  
  T34I(20)=U11K0*/I0K25
  ; MSG 9  
  ;U21K08=T34U+U21K08*/I0K25*/I0K1
  ;T35I(20)=U11K0*I0K25
  ;
  ;  
  T31I(60)=T34U*U200K2*U200K1+T31I*/T31U+I1A9
  U4A27=T31D
  ;   
  P06=I0K24
  C13Z=P06+I1A9
  C13I(4)=T32U*T31D
  ; T31U- " "
  ;
  ;  
  U199K2=[W15T0=W02K2]*U200K2*/U200K03+T31U*U200K2
  U199K3=[W02K2=0]*U200K2
  U10K21=U10K21*/I0K26*/I0K27*/I0K1+U199K2+U199K3
  ;
  ;    
  DOF:T31U
    W15T0=W200K2
  ENDF
  ;
  ; ****************        ********************
  U255N29=/[W02N0>0]+U255N29*/I04K17
  U204K24=/U200K0*T31D
  W100N0=MUX(15,15,0),(U204K24,U200K0,I0K1)
  DOF:([W02K2>0H]*[W02K2<21H]*U255N29+T32D)*[W100N0=15]
    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),(!HHPS,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:(I8K27+I8K28+I8K29+I8K30)*I2N5*/!HHPSON
    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=U10K23*/I5K30*/I5K31+U199K4+U199K5
  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=[W3K0=4]+[W3K0=5]+U199K6+I0K1
U199K7=[W100N0=4]*I2N9*[W6K1=17H]
C8Z=[W3K0=3]+[W3K0=5]+U199K7+I0K1
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=[W06K1=17H]*I2N11*[W100N0=4]+[W03K0=41H]+P0
U199K13=I2N15*[W100N0=4]+U11K17+U11K18+U11K19
U11K16=U11K16*/U199K13+U199K12
U199K14=[W06K1=17H]*I2N12*[W100N0=4]+[W03K0=42H]
U11K17=(/[W100N0=4]+/I2N15)*U11K17*/U11K16*/U11K18*/U11K19+U199K14
U199K15=[W06K1=17H]*I2N13*[W100N0=4]+[W03K0=43H]
U11K18=(/[W100N0=4]+/I2N15)*U11K18*/U11K16*/U11K17*/U11K19+U199K15
U199K16=[W06K1=17H]*I2N14*[W100N0=4]+[W03K0=44H]
U11K19=(/[W100N0=4]+/I2N15)*U11K19*/U11K16*/U11K17*/U11K18+U199K16
; 
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:(I8K27+I8K28+I8K29+I8K30)*[W100N0=6]*[W2N1=0]
  !SPEEDJ=0
  U10K4=U255N31
  W13N0=33
  W13N1=35
  W13N2=37
  W13N3=186
  W14N0=188
  W14N1=30
  W14N2=176
  W14N3=177
  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:(I8K27+I8K28+I8K29+I8K30)*[W100N0=6]*/[W2N1=0]*[W6K1=17H]
  !SPEEDJ=0
  U10K4=U255N31
  !SPEEDJ=100
  U15K16=I2N8
  U15K17=I2N9
  U15K18=I2N10
  U15K19=I2N11
  U15K20=I2N12
  U15K31=I2N15
  U10K4=(U15K16+U15K17+U15K18+U15K19+U15K20)*(I2N14+I2N15)
  U200N0=U15K16*I2N14
  U200N1=U15K16*I2N15
  U200N2=U15K17*I2N14
  U200N3=U15K17*I2N15
  U200N4=U15K18*I2N14
  U200N5=U15K18*I2N15
  U200N6=U15K19*I2N14
  U200N7=U15K19*I2N15
  U200N8=U15K20*I2N14
  U200N9=U15K20*I2N15
  W13N0=MUX(34,34,33),(U200N0,U200N1,I0K4)
  W13N1=MUX(36,36,35),(U200N2,U200N3,I0K4)
  W13N2=MUX(38,38,37),(U200N4,U200N5,I0K4)
  W13N3=MUX(187,187,186),(U200N6,U200N7,I0K4)
  W14N0=MUX(189,189,188),(U200N8,U200N9,I0K4)
  W14N1=0
  W14N2=MUX(178,176),(I2N14,I0K4)
  W14N3=MUX(179,177),(I2N15,I0K4)
ENDF
DOF  REST:[C5W=1]
  T1I(50)=/T2D
  T2I(105)=/T1D
  U100N1=T1D
  U100N0=T2D
  P04=U100N0
  DOF:P04
    W13N0=249
    W13N1=220
    W13N2=221
    W13N3=222
    W14N0=223
    W14N1=224
    W14N2=225
    W14N3=226
  ENDF
  P03=U100N1
  DOF:P03
    W13N0=220
  ENDF
  T48I(20)=/T49D
  T49I(20)=/T48D
  ;
  DOF:U100N0
    DOF:T48U
      W13N0=[W13N0+1]
      DOF:[W14N3=255]
        W14N3=248
      ENDF
      DOF:[W14N2=254]
        W14N2=248
        W14N3=255
      ENDF
      DOF:[W14N1=254]
        W14N1=248
        W14N2=254
      ENDF
      DOF:[W14N0=254]
        W14N0=248
        W14N1=254
      ENDF
      DOF:[W13N3=254]
        W13N3=248
        W14N0=254
      ENDF
      DOF:[W13N2=254]
        W13N2=248
        W13N3=254
      ENDF
      DOF:[W13N1=254]
        W13N1=248
        W13N2=254
      ENDF
    ENDF
    ;
    DOF:[W13N0=255]
      W13N0=248
      W13N1=254
      ;W13N1=220
      W13N2=221
      W13N3=222
      W14N0=223
      W14N1=224
      W14N2=225
      W14N3=226
    ENDF
  ENDF
  ;
  DOF:U100N1
    DOF:T48U
      W13N0=[W13N0+1]
    ENDF
    ;
    DOF:[W13N0>236]
      W13N0=[W13N0-17]
    ENDF
    ;
    DOF:T48U
      W13N1=[W13N0+8]
    ENDF
    ;
    DOF:[W13N1>236]
      W13N1=[W13N1-17]
    ENDF
    ;
    DOF:T48U
      W13N2=[W13N1+1]
    ENDF
    ;
    DOF:[W13N2>236]
      W13N2=[W13N2-17]
    ENDF
    ;
    DOF:T48U
      W13N3=[W13N2+5]
    ENDF
    ;
    DOF:[W13N3>236]
      W13N3=[W13N3-17]
    ENDF
    ;
    DOF:T48U
      W14N0=[W13N3+2]
    ENDF
    ;
    DOF:[W14N0>236]
      W14N0=[W14N0-17]
    ENDF
    ;
    DOF:T48U
      W14N1=[W14N0+10]
    ENDF
    ;
    DOF:[W14N1>236]
      W14N1=[W14N1-17]
    ENDF
    ;
    DOF:T48U
      W14N2=[W14N1+3]
    ENDF
    ;
    DOF:[W14N2>236]
      W14N2=[W14N2-17]
    ENDF
    ;
    DOF:T48U
      W14N3=[W14N2+4]
    ENDF
    ;
    DOF:[W14N3>236]
      W14N3=[W14N3-17]
    ENDF
    ;
  ENDF
ENDF  REST
