 ;08.04.2021 KRAUTER G.
 ;========================================
 ;D05 - 窠  室
 ;========================================
 ;
 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"
  
;===================砫 ᫮=====================
  
;᭮ ﭨ R1
 E101=PL1 
;᭮ ﭨ R0
 E112=PL2
 ;㡨 ࠡ⪨ Z
 E102=PL3 
 ;騭 ⮢
 E103=PL4
 ; 業ਪ
 E104=PL5
 ;  १ F
 E25=PL6
 ; ⭮ 室 FBack
 E26=PL7 
 ;न 孮 ⮢ (᮫⭠) O
 E106=PL8
 ;2- ࠧ ᭮ R2
 E107=PL9
 ;६ 뤥প  t2
 E108=PL10
 ;ࠢ 室  ਠ E
 E109=PL11
 ; ਥ樨 诨 । 室
 E110=PL12
 
 
 
  ;᫨  ⭮ 室 =0,  ࠢ   १
  (BGT,E26,0,AAA)
     E26=E25
  "AAA"  
  ;᫨ ᭮ ﭨ R0=0,  ࠢ  R1
  (BGT,E107,0,BBB)
     E107=E101
  "BBB"  
  
  ;  
$PS1=$INAX1
;  न
$PS2=$INAX2
;  诨
$PS3=$INAX3
  
;=============================================
;               
;=============================================
;E300 - ⥪ न  Z
;E301 - न  X

  ;室 祭 Z : (O + R0)
      E300=E106+E112

  ;室   :
      G$PS3E300
  ;ਥ 诨:
      SPORA=0 
      SPOR=1

  ;஢ઠ 믮 ਥ樨:
     
       ;   ᨬ    
       ; = N*32+25, N 稭  
       ; 1-  
         (BGE,E15,0,111)
         (BGE,E15,1,222)
         (BGE,E15,2,333)
         (BGE,E15,3,444)
         (BGE,E15,4,555)
       "111"
           "CYC1"
         (DIS," ਥ樨 诨")
         (DLY,0.02) 
        (BNE,SK25.BL,1,CYC1)
        (BNC,ENDPR)
   
       "222"
           "CYC2"
         (DIS," ਥ樨 诨")
         (DLY,0.02) 
        (BNE,SK857.BL,1,CYC2)
        (BNC,ENDPR)
       "333"
           "CYC3"
         (DIS," ਥ樨 诨")
         (DLY,0.02) 
        (BNE,SK1689.BL,1,CYC3)
        (BNC,ENDPR)
       "444"
           "CYC4"
         (DIS," ਥ樨 诨")
         (DLY,0.02) 
        (BNE,SK2521.BL,1,CYC4)
        (BNC,ENDPR)
       "555"
           "CYC5"
         (DIS," ਥ樨 诨")
         (DLY,0.02) 
        (BNE,SK3353.BL,1,CYC5)
        (BNC,ENDPR)

      "ENDPR"
 
 
 ;६饭 (室  ⢥⨥):
 
  ;(1) 室    
      (GTA,$PS1,1,E205)
      E301=-E104
      G91G0$PS1E301
  ;(2) 室 㬥  ⢥⨥
      E300=E106-E103-E101
      G90G0$PS3E300
  ;(3) ⢮ ⭮
      E301=E104
      G91G0$PS1E301
  G90



;᢮ ࠬࠬ I  J 横 
;86 祭  ᨬ  
;ࠢ 室
(BEQ,E109,1,22)
(BEQ,E109,1,33)
(BEQ,E109,1,44)
(BEQ,E109,1,55)
E203=0
E204=0
(BNC,66)
"22"
E203=-0.2
E204=0
(BNC,66)
"33"
E203=0
E204=-0.2
(BNC,66)
"44"
E203=0.2
E204=0
(BNC,66)
"55"
E203=0
E204=0.2

"66"


;祭 ਥ樨
SPOR=0

FE25
  
  ; न १:
  E300=E106+E102
  ;१:
  G1$PS3E300 
  ;প  :
   (DLY,E108)
  ; ਥ樨  :
  SPORA=E110
  ;믮 ਥ樨:
  SPOR=1

  ;஢ઠ 믮 ਥ樨:
     
       ;   ᨬ    
       ; = N*32+25, N 稭  
       ; 1-  
         (BGE,E15,0,111)
         (BGE,E15,1,222)
         (BGE,E15,2,333)
         (BGE,E15,3,444)
         (BGE,E15,4,555)
       "111"
           "CYC1"
         (DIS," ਥ樨 诨")
         (DLY,0.02) 
        (BNE,SK25.BL,1,CYC1)
        (BNC,ENDPR)
   
       "222"
           "CYC2"
         (DIS," ਥ樨 诨")
         (DLY,0.02) 
        (BNE,SK857.BL,1,CYC2)
        (BNC,ENDPR)
       "333"
           "CYC3"
         (DIS," ਥ樨 诨")
         (DLY,0.02) 
        (BNE,SK1689.BL,1,CYC3)
        (BNC,ENDPR)
       "444"
           "CYC4"
         (DIS," ਥ樨 诨")
         (DLY,0.02) 
        (BNE,SK2521.BL,1,CYC4)
        (BNC,ENDPR)
       "555"
           "CYC5"
         (DIS," ਥ樨 诨")
         (DLY,0.02) 
        (BNE,SK3353.BL,1,CYC5)
        (BNC,ENDPR)

      "ENDPR"
  ;室:
  FE26
  G1G91$PS1E203$PS2E204
  G90
  ;室:
  E300=E106-E101
  G1$PS3E300
  SPORA=0
  
  ;室  ।⥫쭮 ⢥
   ;(1) 室    
      E301=-E104
      G91G0$PS1E301
  ;(2) 室 㬥  ⢥⨥
      E300=E106+E103+E112
      G90G0$PS3E300
  ;(3) ⢮ ⭮
      E301=E104
      G91G0$PS1E301
  G90
  
  ;室  2 ᭮ ﭨ   ண 室:
  E300=E300+E107
  G0$PS3E200
  
  ;⪫祭 ਥ樨:
  SPOR=0
  SPORA=0


 ;================================================================
 ; 横           
                