$
;ORIENTACIA SHPINDEL
U11K0=[W3K0=19H]*U11K16+U11K0*/T46U*/T47U*/I0K1
T46I(10)=U11K0*I0K25
T47I(50)=U11K0*/I0K25
U21K1=T47U+U21K1*/I0K1
U10K2=T47U
; 
;        0.01/0.1/1.0/10.0MM (0.001/0.01/0.1/1.0")
; 0-3   1- .; 4-7   2- .
W15N2=MUX(22H,44H),(I8K28,I8K27)
U110K4=/U15N24*/U15N25
;1- . 
U15N24=[W15N2>0]
;2- . 
U15N25=[W15N2>0]
;   1- .
U15N0=[W15N2>0]
;   2- .
U15N9=[W15N2>0]
;
;      
U11K20=I2N12*[W100N0=5]*I4K27+U11K20*/I2N13*[W100N0=5]
U11K21=I2N13*[W100N0=5]*I4K27+U11K21*/I2N12*[W100N0=5]
;REST
C5I(2)=I2N2*[C0W=0]
P5=C5R
C5Z=(I2N0+I2N1+I2N3+I2N4+I2N5+I2N6+I2N7)*[C5W=1]+I0K1
;
;
U202K0=/I2N2*[C0W=1]+[C0W=0]
;CEFAB
U10K26=/U10K21*/[W3K0=30H]
;M06
;U200K0=[W03K0=6H]+U200K0*/I0K26*/I0K27*/I0K1
;W12K1=MUX(0,1,0),(U10K0,U200K0,I0K2)
U10K21=[W3K0=6]+U10K21*/I0K26*/I0K27
;
;  W17K3     21,22
DOF:/U252K8
W17K3=MUX(10,9),(U10K0,I0K2)
ENDF
U21K9=U10K0
;
T63I(100)=P0+P1+P5+T63D
;
                  ;
P2=I2N6
U10K1=P2
;
DOF REST:[C5W=0]
                  ; 
C00I(2)=I2N7
                  ;1  
DOF:[C00W=0]
W11N0=1
W11N1=2
W11N2=3
W11N3=4
W12N0=5
W12N1=6
W12N2=7
W12N3=8
                  ;
DOF:I2N0
W100N0=1
ENDF
                  ; 
DOF:I2N1
W100N0=2
ENDF
                  ;
DOF:I2N2
W100N0=3
ENDF
                  ;
DOF:I2N3
W100N0=4
ENDF
                  ; 
DOF:I2N4
W100N0=5
ENDF
                  ;  
DOF:I2N5
W100N0=6
ENDF
ENDF
;
                  ;2-  
DOF:[C00W=1]
W11N0=9
W11N1=10
W11N2=11
W11N3=12
W12N0=13
W12N1=14
W12N2=15
W12N3=16
;
                           ;.  
DOF:I2N0
W100N0=15
ENDF
                           ;
DOF:I2N1
W100N0=10
ENDF
                           ;
DOF:I2N2
;W100N0=11
ENDF
                           ;
DOF:I2N3
W100N0=12
ENDF
                           ; 
DOF:I2N4
W100N0=13
ENDF
                           ;START/STOP
DOF:I2N5
W100N0=14
ENDF
ENDF
;
;
U10K4=[W100N0=14]*I2N8
U10K3=[W100N0=14]*I2N9
U102N0=/I0K28
                             ;START/STOP
DOF:[W100N0=14]*/[W02N1=0]
W15K0=15H
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
;
                           ;. 
U21K0=[W100N0=15]*I2N8*/I0K4
DOF:[W100N0=15]
T0I(4)=I0K4*I2N8*/T0U*/C12R
P22=I2N8
C12Z=P22
C12I(2)=T0U
U11K22=[C12W=1]
U11K23=/U11K22
U27K0=[C12W=0]*/C12R
U27K1=[C12W=1]
U27K2=C12R
W13N0=MUX(171,172,173),(U27K0,U11K22,U11K23)
W13N1=0
W13N2=0
W13N3=0
W14N0=0
W14N1=0
W14N2=0
W14N3=0
ENDF
                           ;/   
C6I(2)=[W100N0=4]*I2N10*/(U11K3+U11K4)
U103N0=[C6W=0]
U103N1=/U103N0
;
; M3 M4
C7Z=[W100N0=4]*I2N8+[W3K0=4]+I0K1+[W3K0=5]
C8Z=[W100N0=4]*I2N9+[W3K0=3]+I0K1+[W3K0=5]
C7I(2)=([C7W=0]*(I2N9*[W100N0=4]+[W3K0=3])+[C7W=1]*(I2N9*[W100N0=4]+[W3K0=4]))*U103N0
C8I(2)=([C8W=0]*(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=I0K1+I2N11*[W100N0=4]+[W3K0=41H]+U11K16*/U11K17*/U11K18*/U11K19*/(I2N15*[W100N0=4])
U11K17=I2N12*[W100N0=4]+[W3K0=42H]+U11K17*/U11K16*/U11K18*/U11K19*/(I2N15*[W100N0=4])
U11K18=I2N13*[W100N0=4]+[W3K0=43H]+U11K18*/U11K16*/U11K17*/U11K19*/(I2N15*[W100N0=4])
U11K19=I2N14*[W100N0=4]+[W3K0=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]+[W3K0=3]+[W3K0=4]
; 3 4 (ROMAO ROMAA)
W13N0=MUX(46,45),(U11K4,U103N3)
W13N1=MUX(48,47),(U11K3,U103N4)
;/   
W13N2=MUX(50,49),(U103N0,U103N1)
W13N3=MUX(60,59),(U11K16,U103N5)
W14N0=MUX(62,61),(U11K17,U103N6)
W14N1=MUX(64,63),(U11K18,U103N7)
W14N2=MUX(66,65),(U11K19,U103N8)
W14N3=MUX(68,67),(U103N9,U103N10)
ENDF
;
;                             
C9I(2)=[W100N0=12]*I2N8
U104N1=/U104N0
U104N0=[C9W=1]
C10I(2)=[W100N0=12]*I2N9
U104N2=[C10W=1]
U104N3=/U104N2
C11I(2)=[W100N0=12]*I2N10
U104N4=[C11W=1]
U104N5=/U104N4
;
DOF:[W100N0=12]
W13N0=MUX(58,57),(U104N0,U104N1)
W13N1=MUX(52,51),(U104N2,U104N3)
W13N2=MUX(54,53),(U104N4,U104N5)
W13N3=0
W14N0=0
W14N1=0
W14N2=0
W14N3=0
ENDF
;
                           ; 
DOF:[W100N0=13]*[W2N1=0]
W13N0=0
W13N1=0
W13N2=0
W13N3=0
W14N0=0
W14N1=0
W14N2=0
W14N3=0
ENDF
DOF:[W100N0=13]*[W2N1>0]
W13N0=MUX(255,0,0),(I2N8,I0K2,U10K0)
W13N1=MUX(255,0,0),(I2N9,I0K2,U10K0)
W13N2=MUX(255,0,0),(I2N10,I0K2,U10K0)
W13N3=MUX(255,0,0),(I2N11,I0K2,U10K0)
W14N0=MUX(255,0,0),(I2N12,I0K2,U10K0)
W14N1=MUX(255,0,0),(I2N13,I0K2,U10K0)
W14N2=MUX(255,0,0),(I2N14,I0K2,U10K0)
W14N3=MUX(255,0,0),(I2N15,I0K2,U10K0)
ENDF
;
U10K8=I0K2
U10K9=I0K2
U10K10=I0K2
U10K11=I0K2
U10K12=I0K2
U10K24=I0K2
                  ; 
C1I(2)=[W100N0=2]*I2N8*I0K2
C2I(2)=[W100N0=2]*I2N9*I0K2
C3I(2)=[W100N0=2]*I2N10*I0K2
P0=U10K0
C1Z=P0
C2Z=P0
C3Z=P0
DOF:[W100N0=2]*/[W2N1=0]
U4A8=I0K8
U4A9=I0K9
U4A10=I0K10
;W2N1=0
ENDF
DOF:[W100N0=2]+/I06K21
;U10K8=[C1W=1]*I0K2
;U10K9=[C2W=1]*I0K2
;U10K10=[C3W=1]*I0K2
;U10K11=I0K2
U101N8=/I0K8
U101N9=/I0K9
U101N10=/I0K10
W13N0=MUX(33,34),(U101N8,I0K8)
W13N1=MUX(35,36),(U101N9,I0K9)
W13N2=MUX(37,38),(U101N10,I0K10)
W13N3=0
W14N0=0
W14N1=0
W14N2=0
W14N3=0
ENDF
;
                  ; 
C4I(2)=[W100N0=5]*I2N8+[C4W=1]*/I06K21
U10K20=[C4W=1]
U10K0=[C4W=0]
U10K25=I0K2
DOF:[W100N0=5]*I2N8
W2N1=0
ENDF
DOF:[W100N0=5]
U101N16=[C4W=0]
U101N17=[C4W=1]
W13N0=MUX(19,20),(U101N16,U101N17)
W13N1=MUX(17,18),(U101N16,U101N17)
;W13N1=0
W13N2=0
W13N3=0
W14N0=0
W14N1=0
W14N2=0
W14N3=0
ENDF
;!!!!!
U15K0=[W100N0=6]*/[W02N1=0]
U15K3=[W100N0=6]*/[W02N1=0]
U15K6=[W100N0=6]
U15K2=[W100N0=6]*/[W02N1=0]
U15K11=[W100N0=6]*/[W02N1=0]
                  ;  
DOF:[W100N0=6]*/[W02N1=0]
W15K3=W1N0*7FH
U15K16=I2N8+I2N9
U15K17=I2N10+I2N11
U15K18=I2N12+I2N13
U15K31=I2N9+I2N11+I2N13
U10K4=U15K16+U15K17+U15K18
W13N0=MUX(23,21),(I2N8,I0K4)
W13N1=MUX(24,22),(I2N9,I0K4)
W13N2=MUX(27,25),(I2N10,I0K4)
W13N3=MUX(28,26),(I2N11,I0K4)
W14N0=MUX(31,29),(I2N12,I0K4)
W14N1=MUX(32,30),(I2N13,I0K4)
W14N2=0
W14N3=0
ENDF
DOF:[W100N0=6]*[W02N1=0]
W15K3=0
U10K4=U255N31
W13N0=21
W13N1=22
W13N2=25
W13N3=26
W14N0=29
W14N1=30
W14N2=0
W14N3=0
W2N1=0
ENDF
ENDF REST
;=====================================================================
; ,   21,22,   
;    W17K3.
;!  ࠢ  W17K3 = ....    ६ ப⪨ 
;            ᪫祭, ਬ:
;                   DOF:/U252K8
;                       W17K3=....
;                   ENDF
;       :
;         ASCII-: VIEWMSG + F5(  )
; :
;         ASCII-: VIEWOFF + F5(  )
;ᨣ U252K8   ணࠬ - ਧ ப⪨
U252K8="VIEWMSG"+U252K8*/"VIEWOFF"
DOF VIEWMSG: U252K8+"VIEWOFF"
             U252K9=[W17K3=0]*U252K8
;㧠  㫥묨 ᮮ饭ﬨ  ப⪥ = 0.01 (T50I)
             T50I(1)=U252K9*/T50U*/"VIEWOFF"
;⥫쭮 뢮 ᮮ饭  ࠭  ப⪥ = 2c (T51I)
             T51I(200)=U252K8*/T51U
;稪 ப⪨ ᮮ饭    21  22
             C32I(9)=T50U+T51U
             W252K0=DEC(C32W)
             DOF:C32R
                 C32W=1
             ENDF
;稪 ப⪨ 8- ⮢  W21K0  W22K3
    C33I(8)=C32R
;                       ப⪠ ᮮ饭  W21K0
    DOF:[C33W=0]
        W252K2=W21K0*W252K0
        DOF:[W252K2>0]
            W17K3=[ENC(W252K2)+0]
        ENDF
        DOE:
        W17K3=0
        ENDE
    ENDF
;                       ப⪠ ᮮ饭  W21K1
    DOF:[C33W=1]
        W252K2=W21K1*W252K0
        DOF:[W252K2>0]
            W17K3=[ENC(W252K2)+8]
        ENDF
        DOE:
            W17K3=0
        ENDE
    ENDF
;                       ப⪠ ᮮ饭  W21K2
    DOF:[C33W=2]
        W252K2=W21K2*W252K0
        DOF:[W252K2>0]
            W17K3=[ENC(W252K2)+16]
        ENDF
        DOE:
            W17K3=0
        ENDE
    ENDF
;                       ப⪠ ᮮ饭  W21K3
    DOF:[C33W=3]
        W252K2=W21K3*W252K0
        DOF:[W252K2>0]
            W17K3=[ENC(W252K2)+24]
        ENDF
        DOE:
            W17K3=0
        ENDE
    ENDF
;                       ப⪠ ᮮ饭  W22K0
    DOF:[C33W=4]
        W252K2=W22K0*W252K0
        DOF:[W252K2>0]
            W17K3=[ENC(W252K2)+32]
        ENDF
        DOE:
            W17K3=0
        ENDE
    ENDF
;                       ப⪠ ᮮ饭  W22K1
    DOF:[C33W=5]
        W252K2=W22K1*W252K0
        DOF:[W252K2>0]
            W17K3=[ENC(W252K2)+40]
        ENDF
        DOE:
            W17K3=0
        ENDE
    ENDF
;                       ப⪠ ᮮ饭  W22K2
    DOF:[C33W=6]
        W252K2=W22K2*W252K0
        DOF:[W252K2>0]
            W17K3=[ENC(W252K2)+48]
        ENDF
        DOE:
            W17K3=0
        ENDE
    ENDF
;                       ப⪠ ᮮ饭  W22K3
    DOF:[C33W=7]
        W252K2=W22K3*W252K0
        DOF:[W252K2>0]
            W17K3=[ENC(W252K2)+56]
        ENDF
        DOE:
            W17K3=0
        ENDE
    ENDF
ENDF VIEWMSG
;=====================================================================
