;========================================
;K01 -  ७  㬥
;========================================
;
SYVAR185.15CH="    1.02"
;
;⨫ (ਭ ஭)
E128=20
;
;==᫮===============================
G0 G97 G94 G40
E600=0
E601=0
E602=0
;======᫥  =============
(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"
E16=(10+26*E15)*32+9
;=========================================
;8&Axis& &1&0&                  
;=====砫 ᫮===================
;Orient 8;1;2;3;4
E11=PL2
;Z0
E125=PL3
;R0
E135=PL4
;XL
E130=PL5
;ZL
E120=PL6
;Xz
E126=PL7
;Zx
E127=PL8
;Xmaxi
E141=PL9
;Zmaxi
E142=PL10
;A
$PS10=$PS1
;Ncor
;E13=$PS11
;
;=== ᥩ===================
$PS1=$INAX1
$PS2=$INAX2
;
; । ࠫ쭮  
(GTA,$INAX2,111,E1)
; த쭠     ࠫ쭮
(BEQ,E1,1,END1)
(GTA,$INAX1,111,E1)
;  ࠫ쭠 E36=2,  E36=1
E36=2
(BEQ,E1,1,DIAM)
E36=1
"DIAM"
;
;=====
; :
; 砫쭠 窠      
;  ᥩ $INAX1  $INAX2,  #2
(GTA,$INAX1,4,E14)
(GTA,$INAX2,4,E17)
(BNE,E14,E17,END2)
;
;========= ⮢  㬥  ४ ===========
E13=0
; ⥭  ⨢ 㬥  E12
; ⥭  ⨢ ४   E13
(TRD,E12,E13)
;=====
; :  㬥     ४
(BNE,E13,0,END3)
;=====
; : 㬥     横 K01
(BEQ,E12,0,END4)
;
;=====
; :        
;
; ଠ  맮  㬥  横 K01:
; TxxxxM6, : xxxx -  㬥.
; ਬ: T4M6
;
; ᢮  ४ 祭 PL11   (K01...)
E13=PL11
;
; ====㫥  㬥  䠩 ४஢   ७====
;  䠩 ४஢  ஫  ( 3D 䨪)
(DER,5,E18,SYVAR11.CH,E131,SYVAR12.CH,E132,SYVAR13.CH,E133,SYVAR14.CH,E17,SYVAR15.CH,E134,SYVAR16.CH,E141,SYVAR17.CH,E136,SYVAR18.CH,E142)
ERR=1
(OPN,1,KARCOR/MP0,W)
ERR=0
(RED,1,5,E13)
(DIS,SYVAR11.CH)
(DIS,SYVAR12.CH)
(DIS,E131)
(DIS,E132)
;
(BNE,$PS10,$INAX1,O)
(BEQ,SYVAR11.CH,$INAX1,A1)
(BEQ,SYVAR11.CH,$INAX2,A2)
(BNC,ERR)
;
"A1"
E131=-E131*E36
(RQP,E12,E13,$PS1 E131)
(BNC,ENDA)
;
"A2"
E131=-E131
(RQP,E12,E13,$PS2 E131)
"ENDA"
;
(BNC,ENDKOR)
;
"O"
(BEQ,SYVAR12.CH,$PS1,O1)
(BEQ,SYVAR12.CH,$PS2,O2)
(BNC,ERR)
;
"O1"
E132=-E132*E36
(RQP,E12,E13,$PS1 E132)
(BNC,ENDO)
;
"O2"
E132=-E132
(RQP,E12,E13,$PS2 E132)
"ENDO"
"ENDKOR"
(CLO,1)
;
; ===========
; 
; ====⠭ 窨  ᥩ X,Z  । 孥 ஬ ⨫===
; न  窨  ᥩ X,Z   ᠭ
;  砫쭮 窥 99
;         ^
;         | DPMA
; |--*--| *
; |  0  | | DPMS
; |     | V
; |-----|
E10=99
(UAO,E10)
;
; ===========
;⮢⥫ ࠬ DPT  1- ண (㡮) ७
;
 ;DPMS ⠭ ᭮                 (PGCFIL *5 DPM)
E105=DPMS
 ;DPMF  ७                       (PGCFIL *5 DPM)
E25=DPMF
 ;DPMA ⠭ ⠭ ᪮ ७ (PGCFIL *5 DPM)
 ;E124 - ⠭ 室  ᪮ ७ (⪫뢠  窨 ७)
E124=E120+DPMA
;
 ;᪮ ண ७ G74
E25=500
(DPT,E124,E105,E25)
;
; 窨 砫 ७    Z
;E123=ZL+Z0
E123=E120+E125
;
             ; ஫ ᭮ 㯠
             SN(E16).BL=1
             (DLY,1.00)
Z E123
;====================================================
;筮 O1;O8
(BEQ,E11,8,RAST)
(BEQ,E11,1,RAST)
;
(BEQ,E11,4,TOKAR)
(BEQ,E11,3,TOKAR)
(BEQ,E11,2,TOKAR)
;
"RAST"
E9=-1
(BNC,NEXT)
"TOKAR"
E9=1
"NEXT"
;========
;室  ७   X
(BEQ,$PS10,$PS1,XXX)
;========
; "ZZZ"
;
;G0XE126 <      >
E126=E126*E9
X E126
             ;몫 ᭮ 㯠
             SN(E16).BL=0
             (DLY,1.00)
;
;㡮 (஥) ७   Z
G74 Z0 RE105 E600
;
;筮 ७   Z
;᪮ 筮 ७ G74
E25=120
(DPT,E123,E105,E25)
;
G74 Z0 R E105 E600
E602=E600
;
G74 Z0 R E105 E600
E602=E602+E600
;
G74 Z0 R E105 E600
E602=E602+E600
;
E602=E602/3
E602=-E602
(DIS,E602)
;
;====  㬥   Z  䠩 ४஢====
(RQP,E12,E12,ZE602)
; Z  祭 ⥪饣   ⠭ 祭 . E142
(RQR,E12,E12,Z,c0,m E142)
;====================
             ; ᭮ 㯠
             SN(E16).BL=1
             (DLY,1.00)
;====================
      ;  Z   砫 ७
Z E123
;====================
             ;몫 ᭮ 㯠
             SN(E16).BL=0
             (DLY,1.00)
;
(BNC,ENDERR)
;
;====================
"XXX"
;====================
;न 窨 砫 ७   X
E131=(E130+E128/2+DPMA)*E36*E9
X E131
;
;न 窨 砫 ७   Z
E132=E127-E128/2
Z E132
             ;몫 ᭮ 㯠
             SN(E16).BL=0
             (DLY,1.00)
;
;㡮 (஥) ७   X
E128=E128*E9
G74 X E128 R E105 E600
;
;筮 ७   X
;᪮ 3-⭮ 筮 ७ G74
E25=120
(DPT,E123,E105,E25)
;
G74 X E128 R E105 E600
E601=E600
;
G74 X E128 R E105 E600
E601=E601+E600
;
G74 X E128 R E105 E600
E601=E601+E600
;
E601=E601/3
E601=-E601
(DIS,E601)
             ; ᭮ 㯠
             SN(E16).BL=1
             (DLY,1.00)
      ;  X   砫 ७
X E131
;
      ;  Z   砫 ७
Z E123
             ;몫 ᭮ 㯠
             SN(E16).BL=0
             (DLY,1.00)
;
;====  㬥   X  䠩 ४஢====
(RQP, E12, E12, X E601)
; 祭 ⥪饣    X  ⠭ 祭 . E141
(RQR, E12, E12, X, c0, m E141)
;====================
;
(BNC,ENDERR)
;====================
;
"END1"
;#1
(DIS,"த쭠   . -")
(BNC,ENDERR)
;
"END2"
;#2
(DIS," ..   2- ᥩ")
(BNC,ENDERR)
;
"END3"
;#3
(DIS," ...  -")
(BNC,ENDERR)
;
"END4"
; : 㬥     横 K01
(DIS,"   . 横")
(BNC,ENDERR)
;
"ENDERR"
;
;======= DPM============================
;(DPT,DPMA,DPMS,DPMF)
E123=DPMA
E105=DPMS
E25=DPMF
(DPT,E123,E105,E25)
;
;=======  ⠫====================
(UAO,E14)
