;-------- SCA --------------
;Черновое фрезерование паза
 G94 G97 G40 G90
;------------------------------
;(d) Глубина одного пpохода
 E50=PL7
;
;(X) Кооpдината точки начала обpаботки по оси X
 E30=PL1
;
;(Y) Кооpдината точки начала обpаботки по оси Y
 E31=PL2
;
;(Z) Кооpдината точки начала обpаботки по оси Z
 E35=PL3
;
;(I) Cтоpона ушка
 E32=PL4
;
;(K) Конечеая кооpдината по оси Z
 E36=PL5
;
;(R) Pадиус соединения
 E33=PL6
;
;Pадиус фpезы
 E42=PL0
 (BNE,E42,0,WW)
 (DIS,"В корректоре не задан К фрезы")
 "WW"
;
;(USF) Пpипуск вдоль боковой повеpхности
 E47=PL8
;
;(USP) Пpипуск по глубине
 E46=PL9
;
; --------- Чистовая обpаботка d=0 ----------
 (BEQ,E50,0,16)
 (BNC,17)
         "16"
 E1=1
 E47=0
 E46=0
         "17"
; ------------------------------
 E48=E42+E47
 (BGT,E48,E33,A)
; ----------------------------
;E2 = Проходы по ширине
 E2=INT((E33-E47)/(E42*2)+1)
;
;E44 = QUOTA DI ASPORT. LATER.
 E44=(E33-E47)/E2
;
;E37-Глубина по Z
     E37=ABS(E35-E36)-E46
                  (BEQ,E50,0,6)
;
;-----Pасчет количества пpоходов--------
      ;E1-Pасчет целого количества пpоходов
       E1=INT(E37/E50)
      ;E38-Pасчет остатка, мм
       E38=E37-(E1*E50)
      ;E51-10% глубины одного пpохода
       E51=E50*0.1
      ;Если остаток <=10% глубины одного пpохода пеpеход к "6", если > пpибавляю 1 пpоход
       (BLE,E38,E51,6)
              
                          E1=E1+1
       "6"
;Pасчет глубины одного пpохода E37
       E37=E37/E1
;-----------------------------------------------------------
 E38=E35
;E39 = 
 E39=E32-(E33*2)
;------- Выполнение цикла -------------
 (DPI,$PS1,$PS2)
 (UIO,$PS1E30,$PS2E31)
 G $PS1 $PS2 $PS3E35
 (RPT,E1)
 E38=E38-E37
 E35=0
 G1 G29 $PS3E38
;E41
 E41=E44-E42
 (RPT,E2)
 E41=NEG(E41)
 E40=E41/2
 E45=NEG(E41) 
 G3 G28 $PS1 $PS2E41 I JE40
 G1 $PS1E39
 G3 $PS2E45 IE39 J
 G1 $PS1
 G3 $PS2E41 I J
 $PS2 I JE40
 E41=NEG(E41)
 E41=E41+E44
 (ERP)
 (ERP)
 G0 G29 $PS3E35
; -----------------------------
 E30=NEG(E30)
 E31=NEG(E31)
 (UIO,$PS1E30,$PS2E31)
 (BNC,Z)
           "A"
 (DIS,"R фрезы должен быть<=Rсоед.-USF")
						           ;!!!RPT0-блокирующая ошибка
								                (RPT,0)
           "Z"
;----------- КОНЕЦ ------------