;--------- FILFGR -------------
;        .
;------------------------------
G0 G94 G97 G40 G90
; ६    ⢥
E37=PL9
TMR=E37
(BGT,TMR,0,A)
E3=81
(BNC,B)
"A"
E3=82
"B"
; ⢮ ⢥⨩  X
E1=PL6
; ⢮ ⢥⨩  Y
E2=PL7
;  ஭  X
E31=PL4
;  ஭  Y
E32=PL5
; न ࢮ ⢥  X
E33=PL1
; न ࢮ ⢥  Y
E34=PL2
; न 窨 砫 ࠡ⪨     ࠡ⪨  Z
E35=PL3
; न 㡨 ⢥
E36=PL8
;-----------------------------
;       <    >
E31=E31/(E1-1)
E32=E32/(E2-1)
E41=0
E42=0
E5=E1-1
E37=E31
E38=0
;--------------------------
(DPI,$PS1,$PS2)
(UIO,$PS1E33,$PS2E34)
G$PS1 $PS2
GE3 RE35 $PS3E36
;$PS1 $PS2
;----------------------
(RPT,E2)
G91 $PS1E41 $PS2E42
(RPT,E5)
$PS1E37 $PS2E38
(ERP)
E41=0
E42=E32
E37=NEG(E37)
E38=NEG(E38)
(ERP)
G80 G90
G0 $PS1 $PS2
;----------------------------
E33=NEG(E33)
E34=NEG(E34)
(UIO,$PS1E33,$PS2E34)
;-----------------------
