;V1.4
;----------KNE----------------
;----- 祭 -----
G0G29G40G90
 E43=0
 E53=1
 E54=-1
 E55=2
 E56=-2
;----------------------
;(M) p p饭 诨           
 E3=PL16
;(F)  p p⪨               
 E25=PL12
;(S) p p饭 诨 p p⪨              
 E26=PL13
;(f)  ⮢ p⪨               
 E27=PL14
;(s) p p饭 诨 ⮢ p⪨
 E28=PL15
   (BGT,E27,E43,8)
   E27=E25
     "8"
   (BGT,E28,E43,9)
   E28=E26 
     "9"
;
                 FE25 SE26 ME3
;-------------------------
;
;(R) p 窨 砫 横   Z  
 E33=PL1
;
;(X) 砫 p  
 E32=PL2
;
;(L)  
   E31=PL3
;  E49-P p 窨  p䨫   Z
   E49=E33-E31
;
;(a)                         
 E34=PL4
;
;-----------
;47  筮 p  
 E47=E32+2*(E31*TAN(E34))
;-----------
;(B) p ⮢
  E50=PL5
  (BNE,$PS5," ",6)
  E50=E47
  "6"
;(x) p  x                            
 E37=PL8
;
;(z) p  z                            
 E38=PL9
     (BLE,E50,E47,Z)
;    ᫨ E50 > E47 => p  Z p 0
     E38=0
     "Z"
;------------------
;(Q) p p室 p p⪨ (1- Z / 0- X) 
 E2=PL6
;
;(p) p⪠ 1 - pp⥫쭮 ⮢/ 0 - pp⥫쭮 ⮢ 
 E51=PL10
;
;(c) 0-p; 1-p  ⮢;2- ⮢; -1/-2 ⮢ p⨢ p䨫
 E52=0
;᫨  ।⥫쭮 ⮢ (=0),  =0 - ⮫쪮 ୮
 (BEQ,E51,0,NOCLP)
 E52=PL11
 "NOCLP"
;------------------------------
;(G41/G42)  ࠤ 㬥 
(BEQ,CBS,1,TOF20)
  E4=41
  E5=42
(BNC,ENDTOF)
"TOF20"
  E4=42
  E5=41
"ENDTOF"
;
;-----------------P 窨 䨪樨 P1-----------------
;P 窨 䨪樨   Z
 E35=E33+E38*1.1+0.5
;
 (BGT,E50,E47,18)
;1. E50<=E47 P 窨 䨪樨   X  E47
 E36=E47+E37*2.1+0.5
 (BNC,19)    
     "18"
;2. E50>E47 P 窨 䨪樨   X  E50
 E36=E50+E37*2.1+0.5
     "19"
;-----------------------P ⢠ p室--------------------------
;(d) 㡨  p室 p p⪨       
 E39=PL7
;   
; p p室 p p⪨ (1- Z / 0- X), (E53=1) 
 (BNE,E2,E53,31)
  ;p⪠   Z
  ;P ⢠ p室:
     ;㡨 祭  X
      E64=ABS(E36-E32)/2-E37 
     ;E66- ⢮ p室
      E66=INT(E64/E39)
     ;P ⪠ 
      E65=E64-(E66*E39)
     ;E68- 10% 㡨  p室 
      E68=E39*0.1
     ;᫨ ⮪ <=10% 㡨 p室 p室  "30", ᫨ > p 1 p室
          (BLE,E65,E68,30)
          (BNC,29)
   "31"
   ;p⪠   
   ;P ⢠ p室:
     ;E31- 祭 
      E31=ABS(E35-E49)-E38
     ;E66- ⢮ p室
      E66=INT(E31/E39)
     ;P ⪠
      E65=E31-(E66*E39)
     ;E68- 10% 㡨  p室 
      E68=E39*0.1
     ;᫨ ⮪ <=10% 㡨 p室 p室  "30", ᫨ > p 1 p室
      (BLE,E65,E68,30)
  "29"
      E66=E66+1
  "30"
      ;E1-- p室 p p⪨
       E1=E66
                       ; p - p室
;---------------------------------------------------------------------------
; p p室 p p⪨ (1- Z / 0- X); (E53=1)
 (BNE,E2,E53,X)
;
;---------------------------------------------------------------------------
;ࠫ쭮 Z
;---------------------------------------------------------------------------
;p 樮p   P1
 G0 XE36 ZE35
;ᠭ p䨫 (  Z)
 (DFP,1)
 FE27 SE28
 GE5 G1 ZE33 XE32
 G1 G40 ZE49 XE47
 (EPF)
;--
;E52=2 ⮫쪮 . p.  p-; E52=-2 p⨢ p-; (E55=2), (E56=-2)
 (BEQ,E52,E55,25)
 (BEQ,E52,E56,20)
;--
;E51- 0-SPA/1-SPF ; E43=0
 (BNE,E51,E43,10)
;--
 (SPA,Z,1,LE1,XE37,ZE38)
 (BNC,CLP)
;
     "10"
 (SPF,Z,1,LE1,XE37,ZE38)
;
;                           ⮢ p⪠ 
     "CLP"
;--
;pp  ⮢ p⪨
;E52=0 - ⢨ ⮢ p. p室   p.; (E43=0)
 (BEQ,E52,E43,END)
;--
;᫨ E52=-1 (p. . p. p⨢ p䨫) p室  "20"; (E54=-1)
 (BEQ,E52,E54,20)
;--
     "25"
 G0 XE36 ZE35
;P p 窨 樮p  ⮢ p⪨
       E61=E32+E37*2+2
       E60=E33+E38+1
    G0 XE61 ZE60
 (CLP,1)
 G0 XE36 ZE35
 (BNC,END)
;--
;-----------------------
;⮢ ⨢ 䨫
;-----------------------
     "20"
 (DFP,5)
 FE27 SE28
 GE4 G1 ZE49 XE47
 G1 G40 XE32 ZE33
 (EPF)
;室  窨 樮஢ (㯠), ᫨ ⮢ ⨢ 䨫
 (BNE,E52,-2,NOOTS1)
;P p 窨 樮p  ⮢ p⪨
       E61=E47+E37*2+2
       E60=E49+E38+1
    G0 XE61 ZE60
 "NOOTS1"
 (CLP,5)
 G0 XE36 ZE35
 (BNC,END)
;---------------------------------------------------------------------------
     "X"
;---------------------------------------------------------------------------
;ࠫ쭮 X
;---------------------------------------------------------------------------
;p 樮p   P1
 G0 XE36 ZE35 
;ᠭ p䨫 (  )
 (DFP,2)
 FE27 SE28
 GE4 G1 ZE49 XE47
 G1 G40 XE32 ZE33
 (EPF)
;--
;E52=2 ⮫쪮 . p.  p-; E52=-2 p⨢ p-. (E55=2) (E56=-2)
 (BEQ,E52,E55,26)
 (BEQ,E52,E56,21)
;--
;E51- 0-SPA/1-SPF ; E43=0
 (BNE,E51,E43,11)
;--
 (SPA,X,2,LE1,XE37,ZE38)
 (BNC,CLP1)
;
     "11"
 (SPF,X,2,LE1,XE37,ZE38)
;
;                           ⮢ p⪠
     "CLP1"
;--
;pp  ⮢ p⪨
;E52=0 - ⢨ ⮢ p. p室   p.; (E43=0)
 (BEQ,E52,E43,END)
;--
;᫨ E52=-1  (p. . p. p⨢ p䨫) p室  "21";   (E54=-1)
 (BEQ,E52,E54,21)
;--
     "26"
 G0 XE36 ZE35
;P p 窨 樮p  ⮢ p⪨
       E61=E47+E37*2+2
       E60=E49+E38+1
     G0 XE61 ZE60
 (CLP,2)
 G0 XE36 ZE35
 (BNC,END)
;-----------------------
;⮢ ⨢ 䨫
;-----------------------
     "21"
 (DFP,6)
 FE27 SE28
 GE5 G1 ZE33 XE32
 G1 G40 ZE49 XE47
 (EPF)
;室  窨 樮஢ (㯠), ᫨ ⮢ ⨢ 䨫
 (BNE,E52,-2,NOOTS2)
;P p 窨 樮p  ⮢ p⪨
       E61=E32+E37*2+2
       E60=E33+E38+1
    G0 XE61 ZE60
 "NOOTS2"
 (CLP,6)
 G0 XE36 ZE35
;----------------------------------------------------------------------------
 "END"






