;V1.4 ----------- KCI -------------
;୮ ᫮ १஢ 譥
᪮ 孮 楢 १.
;-----------------------------
 G94 G97 G40 G90
;(X) न 業 㦭   X
 E30=PL1
;
;(Y) न 業 㦭   Y
 E31=PL2
;
;(Z) p 窨 砫 p⪨   Z
 E32=PL3
;
;(RGB)  ⮢  ᭮
 E33=PL4
;
;(RFB)  ⠫  ᭮
 E34=PL5
;
;(K) न ᭮    Z.
 E35=PL6
;
;(H)     Z.
 E57=PL7
;
;(a)  
 E55=PL8
E60=E57/TAN(E55)
E61=E60-E34
(BGT,E61,0.00001,ERROR1)
;
;(j)   ࠤ
 E39=PL9
;
;(d) 㡨  室
 E37=PL10
;
;v 롮 ⮢: 1- (  쥢 ਯ᪮); 2-樫. 
 E65=PL11
;
;F ࠡ  ( 㣥 室   ࠡ⪨ 祭 ).
 E25=PL15
;
;f  室 ( 㣥 室 ᫥ ࠡ⪨ 祭 ).
 E26=PL16
;
; १
 E36=PL0
 E70=2*E36
(BNE,E36,0,WW)
 (DIS," ४    १")
 "WW"
;
;(USF) ਯ   孮
 E43=PL12
;
;(USP) ਯ  㡨
 E44=PL13
;
;(QIL) ⪫  ࠧ 砫 ࠡ 
 E45=PL14
;
;(q-ࠢ 室 =0-⨢ ..; =1- ..) 
E68=PL17
(BEQ,E68,0,PROTIV)
E3=3
E4=2
(BNC,PO)
"PROTIV"
E3=2
E4=3
"PO"

; ---------  -----------
 (BGT,E39,0,B)
 E1=1
 E43=0
         "B"
 (BGT,E37,0,A)
 E2=1
 E44=0
         "A"

;室  8, ᫨ ⮢ 樫
(BEQ,E65,2,8)

;ਠ (v = 1)

;E40 = RG-RF-USF - 㡨 ᥣ ਠ  ࠤ
 E40=E33-E34-E43
       (BEQ,E39,0,6)
;-----P ⢠ p室--------
      ;E1-P 楫 ⢠ p室
       E1=INT(E40/E39)
      ;E38-P ⪠, 
       E38=E40-(E1*E39)
      ;E52-10% 㡨  p室
       E52=E39*0.10
      ;᫨ ⮪ <=10% 蠣  ࠤ p室  "6", ᫨ > p 1 p室
       (BLE,E38,E52,6)
              
       E1=E1+1
   "6"
      ; 蠣  ࠤ (j) E40
       E40=E40/E1     

;------
;E50 =    Z
 E50=E57
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;+E37
       (BEQ,E37,0,7)
;-----P ⢠ p室  㡨--------
      ;E2-P 楫 ⢠ p室
       E2=INT(E50/E37)
      ;E69-P ⪠, 
       E69=E50-(E2*E37)
      ;E54-10% 㡨  p室
       E54=E37*0.10
      ;᫨ ⮪ <=10% 蠣  ࠤ p室  "7", ᫨ > p 1 p室
       (BLE,E69,E54,7)
              
       E2=E2+1

   "7"
      ; 㡨  室 (d2) E53
       E53=E50/E2     
      ;   E57
       E57=E57-E53

; न 設    Z
E58=E35+E57+E44
; न ᭮    Z
E59=E35+E44
;न 砫  X=RGB-R१-10
E66=E33+E36+E45
E67=NEG(E66)
; न  ࠤ  孥 祭   X
E62=E33-E57/TAN(E55)
; ࠤ  祭  祭
E56=E53/TAN(E55)
; न 砫 ࠡ⪨ 祭   X(Y=0)
;(न ᪠ १  ஢ﬨ ࠡ⪨ )
 E46=E62+E36
 E47=NEG(E46)
;E47-P1   

;
;----------- 믮 横 ---------
 (DPI,$PS1,$PS2)

 (UIO,$PS1E30,$PS2E31)
 G0 $PS1E67 $PS2
 $PS3E32
            (RPT,E2)
;E41 = न 砫     祭
 E41=(E62-E40)+E36

 G1 G29 $PS3E58           FE25
            (RPT,E1)
;E42 = 業 ࠤ १ 
 E42=(E41+((E46-E41)/2))
 E48=NEG(E41)
 E49=NEG(E42)
 G1 G27 $PS1E47 $PS2      FE25
 GE3 G28 $PS1E48 IE49 J   FE25
 GE4 I J                  FE25
 GE3 $PS1E47 $PS2 IE49  J FE26
 E41=E41-E40
            (ERP)
 G0 $PS1E67 $PS2

 E58=E58-E53
; न  ࠤ  ᫥饣 祭   X
E57=E57-E53
E62=E33-E57/TAN(E55)
E46=E62+E36
E47=NEG(E46)
            (ERP)
 G0 G29 $PS3E32
; 
 E30=NEG(E30)
 E31=NEG(E31)
 (UIO,$PS1E30,$PS2E31)
;---------  ---------------
(BNC,FINISH)

;ਠ (v = 2)

"8"
;------
;E50 =    Z
 E50=E57
       (BEQ,E37,0,11)
;-----P ⢠ p室  㡨--------
      ;E2-P 楫 ⢠ p室
       E2=INT(E50/E37)
      ;E69-P ⪠, 
       E69=E50-(E2*E37)
      ;E54-10% 㡨  p室
       E54=E37*0.10
      ;᫨ ⮪ <=10% 蠣  ࠤ p室  "11", ᫨ > p 1 p室
       (BLE,E69,E54,11)
              
       E2=E2+1
  "11"
      ; 㡨  室 (d2) E50
       E53=E50/E2     

 E41=E33+E36
 E46=E33+2*E36+E45
;E47-P1   
 E47=NEG(E46)
 E40=0
 E57=E57-E53
;ࠧ ࠤ  祭
 E63=E34-E57/TAN(E55)
; ࠧ   X
 E56=E53/TAN(E55)
; न 設    Z
 E58=E35+E57+E44
; न ᭮    Z
 E59=E35+E44

;----------- 믮 横 ---------
 (DPI,$PS1,$PS2)
 (UIO,$PS1E30,$PS2E31)
 G0 $PS1E47 $PS2
 $PS3E32

            (RPT,E2)

;E40 = RGB-(RF⥪饣 祭)-USF
 E40=E33-E63-E43	
(BLE,E40,E63,JLESSK)
       (BEQ,E39,0,10)
;-----P ⢠ p室--------
      ;E1-P 楫 ⢠ p室
       E1=INT(E40/E39)
      ;E38-P ⪠, 
       E38=E40-(E1*E39)
      ;E52-10% 㡨  p室
       E52=E39*0.10
      ;᫨ ⮪ <=10% 蠣  ࠤ p室  "10", ᫨ > p 1 p室
N10       (BLE,E38,E52,10)
              
N11       E1=E1+1
   "10"
; 蠣  ࠤ (j) E40
       E40=E40/E1     

;஢ઠ: " १ > j", ᫨ ,  뢮 ।०
(BLE,E70,E40,ATTEN1)
(BNC,JLESSK)
"ATTEN1"
(DIS,"!: १ <= j")

"JLESSK"
(BGT,E40,E63,NOLAST)
E1=1
"NOLAST"
 G1 G29 $PS3E58          FE25
            (RPT,E1)
;E41 = न X  窥 P2
 E41=E41-E40
;E42 = न 業 㣨 室  祭
 E42=(E41+((E46-E41)/2))
 E48=NEG(E41)
 E49=NEG(E42)
 GE3 G28 $PS1E48 IE49 J   FE25
 GE4 I J                  FE25
 GE3 $PS1E47 $PS2 IE49  J FE26
            (ERP)
 E41=E33+E36
 E63=E63+E56
; न ⥪饣 祭   Z
 E58=E58-E53
            (ERP)
 G0 G29 $PS3E32
; 
 E30=NEG(E30)
 E31=NEG(E31)
 (UIO,$PS1E30,$PS2E31)
;---------  ---------------

(BNC,FINIS)
"ERROR1"
(DIS,"1! R設 > R᭮?")
(BNC,FINISH)

"FINISH"

"FINIS"