;--------TGT----------
;ﭭ 横 १ p pאַ㣮쭮 ,   Z
G0G97G90G40G29
;(Z) ᮫⭠ p 窨 p    Z
E31=PL1
;(X) ᮫⭠ p 窨 砫 ࠡ⪨   X
E32=PL2
;(I) p 筮 p    Z
E33=PL3
;(O) ७  
E34=PL4
;(K) ਭ 㬥
E35=PL5
;(t) 뤥p ६
E36=PL11
;(D) p 譥 p    X
E37=PL6
;(q)  ᮥ  譨 㣫 ; 0 -/1-R (p)/2-B (᪠)
E38=PL7
;(w)  ᮥ  p 㣫 ; 0 -/1-R (p)/2-B (᪠)
E39=PL8
;(c) 稭 p p㣫 / ᪨  譨 㣫 
E40=PL9
;(p) 稭 p p㣫 / ᪨  p 㣫 
E41=PL10
E42=NEG(E41)
;v=0/1 (=0 - ⪨ ; =1 - ⪮ )
 E43=0
 E43=PL12
;----------------------
;(M) p p饭 诨           
 E3=PL17
;(F)  p⪨               
 E25=PL13
;(S) p p饭 诨 p p⪥ 
 E26=PL14
;(f)  ⪨                
 E27=PL15
;(s) p p饭 诨 p ⪥  
 E28=PL16
 
                 FE25 SE26 ME3
;
E50=0
E51=1
E52=2
;---------------------믮 横---------------------------------
;p 砫 ⪨  Z+c+p
 E45 = E31 + E40 + E41
;p  ⪨  I-K-c-p
 E46 = E33 - E35 - E40 - E41
;p p 室  Z 
 E49 = ABS(2*E40 + 2*E41 + E35)
 E61 = ABS(E33 - E31)
 E62 = ABS(E49 - E61)
 E63 = E40 + E41
 
TMR=E36
(DPI, $PS1, $PS2)
G0 $PS1E31 $PS2E32
;
;------------Q=0; R/B -
;Q!=0 p室  "Q1"
(BNE,E38,E50,Q1) 
(BEQ,E39,E51,RR)
(BNC,00)
;
"Q1"
;------------Q=1  R
(BNE,E38,E51,Q2)
(BEQ,E39,E51,RR)
(BNC,RB)
;
"Q2"
;------------Q=2  B
(BEQ,E39,E51,BR)
;
"00"
(TGL, $PS1E33, $PS2E34, KE35, DE37, BE40, BE42)
(BEQ,E43,0,END)
(BNC,C)
;
"RB"
(TGL, $PS1E33, $PS2E34, KE35, DE37, RE40, BE42)
(BEQ,E43,0,END)
(BNC,C)
;
"BR"
(TGL, $PS1E33, $PS2E34, KE35, DE37, BE40, RE42)
(BEQ,E43,0,END)
(BNC,C)
;
"RR"
(TGL, $PS1E33, $PS2E34, KE35, DE37, RE40, RE42)
(BEQ,E43,0,END)
;
"C"
;---------------------
;⪠  
  (BGT,E27,0,1)
   E27=E25
     "1"
   (BGT,E28,0,2)
   E28=E26 
     "2"
                 FE27 SE28 ME3
 
 (BLE,E62,1,L)
 
 E48 = E45 + 1
 (BNC,CLEAR) 
 
 "L"
 (BLE,E62,0.00001,END)
 E48 = E46 - E62/2
 
 "CLEAR" 
;p p 室  X 
 E47 = E34 - 2
 
G0 G27 $PS1E48 $PS2E32
               $PS2E47
G1 G4  $PS1E45 $PS2E34
G1 G4  $PS1E46
G0     $PS1E48 $PS2E37
G0     $PS1E31 $PS2E32
 
"END"
