;--------- FLC -------------
;   
;-----------------------------
G0 G94 G97 G40 G90
;p    ⢥p
E39=PL9
TMR=E39
;    TMR. 
(BGT,TMR,0,A)
E2=81
(BNC,B)
"A"
E2=82
"B"
; ⢮ ⢥p⨩
E1=PL5
; न 業 㦭   .
E30=PL1
; न 業 㦭   Y.
E31=PL2
; ࠤ 㦭. 
E32=PL4
; 㣮 p ⢥p.
E33=PL6
; 㣮  ᫥騬 ⢥ﬨ.
E34=PL7
; न 窨 砫 ࠡ⪨     ࠡ⪨  Z.
E36=PL3
; न 㡨 ⢥.
E37=PL8
E38=0
(DPI,$PS1,$PS2)
(UIO,$PS1E30,$PS2E31)
E25=E33
GE2 RE36 $PS3E37
(RPT,E1)
(URT,E25)
$PS1E32 $PS2E38
E25=E25+E34
(ERP)
G80
(URT,0)
;------------------------
E30=NEG(E30)
E31=NEG(E31)
(UIO,$PS1E30,$PS2E31)
;---------  -----------
