 ;27.04.2021 KRAUTER G.
 ;========================================
 ;D08 - 㯯 ⢥⨩  
 ;========================================
 ;
 G0 G94 G97 G40 G90 G29

 ;==============᫥  =============
(BGE,SK25,80,5)
(BGE,SK25,80,4)
(BGE,SK25,80,3)
(BGE,SK25,80,2)
E15=0
(BNC,PROEND)
"2"
E15=1
(BNC,PROEND)
"3"
E15=2
(BNC,PROEND)
"4"
E15=3
(BNC,PROEND)
"5"
E15=4
"PROEND"
  
;===================砫 ᫮=====================

;न 砫쭮 窨   
E350=PL1
E359=NEG(E350)

;न 砫쭮 窨   न
E351=PL2
E362=NEG(E351)
;ﭨ  窠   
E352=PL3
;ﭨ  窠   न
E353=PL4
;⢮ ⮫殢
E1=PL5
;⢮ ப
E2=PL6
; 
E25=PL7
;᭮ ﭨ
E355=PL8
;न  ⮢
E356=PL9
;2- ᭮ ﭨ
E357=PL10
;६饭    (0  1)
E358=PL11

 ;᫨ R2=0  R2<R1,  R2 ࠢ  R1
(BGT,E357,E355,R2)
E357=E355
"R2"

 
 ;  
$PS1=$INAX1
;  न
$PS2=$INAX2
;  诨
$PS3=$INAX3

(DPI,$PS1,$PS2)
(UIO,$PS1E350,$PS2E351)


;E360 - न ⥪  X
;E361 - न ⥪  Y


E360=0
E361=0
E3=0
E4=1

;६饭  2  ﭨ
E370=E356+E357
E371=E356+E355
G0 $PS3 E370
;६饭  न १
G0 $PS1 0 $PS2 0 
 (URT,E25)
 
"NXT"
"BCK"
(BEQ,E3,E1,NXTST)

;६饭  ᫥ 
G0 $PS1 E360 $PS2 E361
(CCL)
;६饭  ᭮ ﭨ 
  (BEQ,E358,1,11)
     G0 $PS3 E371
    (BNC,22)
  "11"
    G0 $PS3 E370
  "22"
  
  
; ᫥饩 न  X
E360=E360+E352
E3=E3+1
(BNC,BCK)
"NXTST"
(BEQ,E4,E2,END)
E360=E360-E352
E361=E361+E353
E4=E4+1
E3=0
E352=NEG(E352)
(BNC,NXT)

"END"











(URT,0)
(UIO,$PS1E359,$PS2E362)
 
 
 
 
 
  
  
 
;=====================================================================
 
 ;================================================================
 ; 横           
                