$
;S-ࠧ  ࠧ/ମ
U10N2=/I0K2
U10N3=/I0K2

; ᬥ饭  ਢ
U220K2=I0K8*I0K9
T6I(10)=U220K2
U220K3=T6U

                                 ;" "
DOF MOVMAN: I8K27+I8K28+I8K29+I8K30
    U15K0=I0K2
    U15K6=I0K2
    U15K16=U15K6*(I2N8+I2N9)
    U15K17=U15K6*(I2N10+I2N11)
    U15K31=I2N8+I2N11
    U10K4=U15K16+U15K17
ENDF MOVMAN
DOE:
    U15K0=U255N0
    U15K6=U255N0
ENDE

                             ;   . F1 - F8
T4I(10)=/T5D
T5I(10)=/T4D
                                        ;F1
DOF:T4D*U10K0
    W11N0=2
ENDF
DOF:T5D*U10K0
    W11N0=1
ENDF
DOF:I0K2
    W11N0=3
ENDF

                                        ;F2
                                        ;F3
DOF:U4A1
    W11N2=4
ENDF
DOE:
    W11N2=5
ENDE

; JOG  ० MANJ         . F4
DOF:I8K28
W11N3=MUX(13,14,15,16,17,18),(U16K16,U16K17,U16K18,U16K19,U16K20,U16K21)
ENDF
DOE:
W11N3=1
ENDE

;롮 蠣  ० MANJ  . F4
U15K7=U10K0+I0K2
C3I(6)=I8K28*I2N3
U16K16=[C3W=0]
U16K17=[C3W=1]
U16K18=[C3W=2]
U16K19=[C3W=3]
U16K20=[C3W=4]
U16K21=[C3W=5]

;⠭ 業 ᪮  ६饭
U15K3=U10K0+I0K2
DOF:/I2N12
        W15K3=W1N0
    DOF MINUS:I2N8+I2N11
        W15K3=[W1N0+128]
    ENDF MINUS
ENDF
DOE:
        W15K3=100
    DOF MINUS:I2N8+I2N11
        W15K3=[100+128]
    ENDF MINUS
ENDE

;W17K2=0-255 -樥   祭  W15K3
U40K0=[W15K3=0]
U40K1=[W15K3=1]
U40K2=[W15K3=2]
U40K3=[W15K3=4]
U40K4=[W15K3=8]
U40K5=[W15K3=10]
U40K6=[W15K3=20]
U40K7=[W15K3=40]
U40K8=[W15K3=60]
U40K9=[W15K3=80]
U40K10=[W15K3=100]
W13N1=MUX(191,192,193,194,195,196,197,198),(U40K0,U40K1,U40K2,U40K3,U40K4,U40K5,U40K6,U40K7)
W13N1=MUX(199,200,201),(U40K8,U40K9,U40K10)

                              ;/몫 ࢠ  . F5
C4I(2)=I2N4
DOF: I2N4
     P1=[C4W=1]
     P2=[C4W=0]
ENDF
                                   ;  .F5
U40K16=/I0N15
W12N0=MUX(8,9),(I0N15,U40K16)
W14N2=MUX(151,150),(I0N15,U40K16)

                                   ;/몫 01  . F6
C5I(2)=I2N5
DOF: I2N5
     P3=[C5W=1]
     P4=[C5W=0]
ENDF
                                   ;  .F6
U40K17=/I0N10
W12N1=MUX(25,26),(I0N10,U40K17)
W14N1=MUX(157,156),(I0N10,U40K17)

                                   ;UCV=0,1,2,3,4  . F7
C6I(5)=I2N6
DOF: I2N6
     P5=[C6W=0]
     P6=[C6W=1]
     P7=[C6W=2]
     P8=[C6W=3]
     P9=[C6W=4]
ENDF
                                    ;  .F7
W12N2=27

                            ;  " "  . F8
U10K1=I2N7
                                    ;  .F8
W12N3=24

;믮   䠩 CMDFIL/MP0
W17K0=MUX(5,6,8,9,16,17,18,19),(P3,P4,P1,P2,P5,P6,P7,P8)
W17K0=MUX(20),(P9)
U10K23=P1+P2+P3+P4+P5+P6+P7+P8+P9+U10K23*/I5K30*/I0K1
U10K18=P1+P2+P3+P4+P5+P6+P7+P8+P9+U10K18*/I5K30*/I0K1
U10K19=P1+P2+P3+P4+P5+P6+P7+P8+P9+U10K19*/I5K30*/I0K1

;祭 ⠭
C0I(2)=I2N0
C0Z=/I6K21
;U10K20=I6K21
;ASPEPN
U10K20=[C0W=1]
;MUSPE
;U10K0=/I0A0
U10K0=/U10K20

;祭 ᥩ   ਢ
;RABI X
U10K8=I0K2
;RABI Z
U10K9=I0K2
;ࠧ襭  ਢ X ⠪ 3 ࠧꥬ 24OUT
U4A2=I0K8
;ࠧ襭  ਢ Z ⠪ 4 ࠧꥬ 24OUT
U4A3=I0K9

;COMU ࠧ襭 砫 
U10K24=I0K8*I0K9*[C15W=0]

;CEFA ࠧ襭 ।   M,S,T -㭪権 砫   
U10K25=U10K24*/U41K1*/U42K2

;CEFAB
U10K26=/[W3K0=30H]

;
C2I(2)=I2N2+[W3K0=8]*[C2W=0]
C2Z=[W3K0=9]+I0K1
U4A1=[C2W=1]
U40K18=/U4A1
W14N3=MUX(54,53),(U4A1,U40K18)

;
;室  1- 
U41K1=[W3K0=41H]+U41K1*/I0A27
;室  2- 
U42K2=[W3K0=42H]+U42K2*/I0A28
;GAMMA1
U11K16=I0A27
U11K17=I0A28
;ਧ  饭  M3
U111K3=[W3K0=3]+U111K3*/[W3K0=4]*/[W3K0=5]*/[W3K0=19H]*/I0K1
;ਧ  饭  M4
U111K4=[W3K0=4]+U111K4*/[W3K0=3]*/[W3K0=5]*/[W3K0=19H]*/I0K1
;ROMAO
U11K3=U111K3*/I0K28
;ROMAA
U11K4=U111K4*/I0K28
;ANGOM
U11K0=[W3K0=19H]+U11K0*/T0U*/T1U
;⠩ 诨 ਥ஢
T0I(5)=U11K0*I0K25
;⠩  訡 ਥ樨 
T1I(50)=U11K0*/I0K25
;MSG 10 ப RUMES5 " ਥ樨 诨"
U21K9=T1U+U21K9*/I0K1
                          ;/몫 ਭ    . F2
C7I(2)=I2N1*[W8K3>4]*/U11K3*/U11K4
C7Z=[W8K3<8]
U11K1=[C7W=1]
U40K19=/U4A20
;ਧ 饭 诨  ⠫ (ਭ㤨⥫쭮   03)
U40K20=U11K1+U11K3
W14N0=MUX(48,46,45),(U11K4,U40K20,U40K19)
;
; ﭨ ਭ㤨⥫쭮 饭 诨 .F2
W11N1=MUX(28,29),(U40K19,U11K1)
U43K0=[W1N2=75]
U43K1=[W1N2=80]
U43K2=[W1N2=85]
U43K3=[W1N2=90]
U43K4=[W1N2=95]
U43K5=[W1N2=100]
U43K6=[W1N2=105]
U43K7=[W1N2=110]
U43K8=[W1N2=115]
U43K9=[W1N2=120]
U43K10=[W1N2=125]
;ନ஢ 殮 ਭ..诨
W11K1=MUX(0,1,2,4,8,10H,20H,40H),(U43K0,U43K1,U43K2,U43K3,U43K4,U43K5,U43K6,U43K7)
W11K1=MUX(60H,70H,85H),(U43K8,U43K9,U43K10)

;祭  ਢ
U4A20=U11K3+U11K4+U11K0+U11K1


;FOLD ⠭ ,  诨  襫    U220K8  樨 POM 䠩 AXCFIL
U10K5=(U11K3+U11K4)*/U220K8+T6D

; 
U4A10=[W3K0=21H]+I0A3+U4A10*/I0A5
; ࠧ
U4A11=[W3K0=22H]+I0A4+U4A11*I0A5

;横᪠ ᬠ 10 ᥪ㭤 १  
T2I(W0T0)=(U4A2+U4A3)*/T2U
C1I(3)=T2U
P0=C1R
T3I(100)=P0+T3D
U4A0=T3D
