;--------TGQ----------
;ﭭ 横 १ pאַ㣮쭮 ,   X
G0G97G90G40     
;(Z) ᮫⭠ p 窨 砫 ࠡ⪨   Z
E31=PL1
;(X) ᮫⭠ p 窨 p    X
E32=PL2
;(O) p 筮 p    X
E33=PL3
;(I) p 㡨 
E34=PL4
;(K) ਭ 㬥
E35=PL5
;(t) 뤥p ६
E36=PL11
;(D) p 譥 p    Z
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)
;
E50=0
E51=1
E52=2
;---------------------믮 横---------------------------------
TMR=E36
;pp .  p. (X,Z) . -  P
(DPI, $PS2, $PS1)
;(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, $PS2E33, $PS1E34, KE35, DE37, BE40, BE42)
(BNC,END)
;
"RB"
(TGL, $PS2E33, $PS1E34, KE35, DE37, RE40, BE42)
(BNC,END)
;
"BR"
(TGL, $PS2E33, $PS1E34, KE35, DE37, BE40, RE42)
(BNC,END)
;
"RR"
(TGL, $PS2E33, $PS1E34, KE35, DE37, RE40, RE42)
;
"END"
(DPI, $PS1, $PS2)
