;!0                               
U255N0=U255N2
;!1
U255N1=/U255N2
$
;                             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*/I7N10
    DOF:U15K16
        W17N1=10H        
        W15N0=1
    ENDF
        ;롮  Z
    U15K17=I7N10+U15K17*/I7N8
    DOF:U15K17
        W17N1=32H
        W15N0=2
    ENDF
        ;   ࢠ  ࠭
    U15N7 = /U15N0 * /U15N1
        ; 祭 ࢠ
;    U15N24 = !HPG * [W15K0>0] * (U15N16+U15N17+U15N18+U15N19)
        ;롮 ࠢ   X,Y
    U15K31 = I7N17
    U17N19 = U15K31
        ; ᪠
    U10K4 = [W8N0>0] * (I7N17+I7N16)
        ;ਧ X+
    U105K8 = I0K16 * /U15K31 * /!HPG
        ;ਧ X-
    U105K9 = I0K16 * U15K31 * /!HPG
        ;ਧ X ࠭
    U105K10 = U15K16 * I0K4
        ;ਧ Z+
    U105K11 = I0K17 * /U15K31 * /!HPG
        ;ਧ Z-
    U105K12 = I0K17 * U15K31 * /!HPG
        ;ਧ Z ࠭
    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(31,32,38,37),(U105K11,U105K12,U105K13,I0K4)
         W14N1=0
         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(31,32,38,37),(U105K11,U105K12,U105K13,I0K4)
         W14N1=0
         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(31,32,38,37),(U105K11,U105K12,U105K13,I0K4)
         W14N1=0
         W14N2=0
         W14N3=MUX(190,191,192),(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=======================================
;
; 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
          W100N0=6
     ENDF
ENDF
; ***********************************************************************
;
; **********************  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)
U10K23=P3+P4+P8+P9+P10+P11+P13+P14+P15+P16+P17+P18+P19+P20+P21+P22+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
C7Z=[W100N0=4]*I2N8*[W6K1=17H]+[W3K0=4]+I0K1+[W3K0=5]
C8Z=[W100N0=4]*I2N9*[W6K1=17H]+[W3K0=3]+I0K1+[W3K0=5]
C7I(2)=([C7W=0]*([W6K1=17H]*I2N9*[W100N0=4]+[W3K0=3])+[C7W=1]*(I2N9*[W100N0=4]+[W3K0=4]))*U103N0
C8I(2)=([C8W=0]*([W6K1=17H]*I2N8*[W100N0=4]+[W3K0=4])+[C8W=1]*(I2N8*[W100N0=4]+[W3K0=3]))*U103N0
;
; 3 4 (ROMAO ROMAA)
U11K3=[C7W=1]
U11K4=[C8W=1]
U103N3=/U11K4
U103N4=/U11K3
;
;M40 - M44
U11K16=P0+[W06K1=17H]*I2N11*[W100N0=4]+[W03K0=41H]+U11K16*/U11K17*/U11K18*/U11K19*/(I2N15*[W100N0=4])
U11K17=[W06K1=17H]*I2N12*[W100N0=4]+[W03K0=42H]+U11K17*/U11K16*/U11K18*/U11K19*/(I2N15*[W100N0=4])
U11K18=[W06K1=17H]*I2N13*[W100N0=4]+[W03K0=43H]+U11K18*/U11K16*/U11K17*/U11K19*/(I2N15*[W100N0=4])
U11K19=[W06K1=17H]*I2N14*[W100N0=4]+[W03K0=44H]+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])
W15K3=0
U10K4=U255N31
;W13N0=21
;W13N1=22
;W13N2=29
;W13N3=30
;W14N0=0
;W14N1=0
;W14N2=0
;W14N3=0
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
 ;COMU
U10K24=[W0K1=3]
 ;CEFA
U10K25=I0K2
                  ;   F11-F18
;DOF:[W100N0=6]*/[W2N1=0]*[W6K1=17H]*/!HHPSON
DOF:[W100N0=6]*[W6K1=17H]*/!HHPSON
W15K3=0
U10K4=U255N31
W15K3=W1N0*7FH
U15K16=I2N8+I2N9
U15K17=I2N10+I2N11
U15K31=I2N9+I2N11
U10K4=U15K16+U15K17
W13N0=MUX(23,21),(I2N08,I0K4)
W13N1=MUX(24,22),(I2N09,I0K4)
W13N2=MUX(31,29),(I2N10,I0K4)
W13N3=MUX(32,30),(I2N11,I0K4)
W14N0=0
W14N1=0
W14N2=MUX(190,191,192),(U15N17,U15N18,U15N19)
W14N3=MUX(190,191,192),(U15N21,U15N22,U15N23)
        ;롮 蠣 ࢠ  X
    C35I(3) = I2N14
    DOF:[C35W=0]
        U15N16 = !0
        U15N17 = !1
        U15N18 = !0
        U15N19 = !0
    ENDF
    DOE:[C35W=1]
        U15N16 = !0
        U15N17 = !0
        U15N18 = !1
        U15N19 = !0
    ENDE
    DOE:[C35W=2]
        U15N16 = !0
        U15N17 = !0
        U15N18 = !0
        U15N19 = !1
    ENDE
        ;롮 蠣 ࢠ  Z
    C36I(3) = I2N15
    DOF:[C36W=0]
        U15N20 = !0
        U15N21 = !1
        U15N22 = !0
        U15N23 = !0
    ENDF
    DOE:[C36W=1]
        U15N20 = !0
        U15N21 = !0
        U15N22 = !1
        U15N23 = !0
    ENDE
    DOE:[C36W=2]
        U15N20 = !0
        U15N21 = !0
        U15N22 = !0
        U15N23 = !1
    ENDE
W15N0=1
W15N1=2
U15N24=[W15N0>0]*(U15N17+U15N18+U15N19)
U15N25=[W15N1>0]*(U15N21+U15N22+U15N23)
ENDF
