初学GPP，请懂得大侠帮我检查下我改的代码是否有问题

xiagq

我把这个处理出来的G代码和正在用的处理出来的G代码对比了下，是一样的。不知道还存在什么问题？？请指教
代码如下：
********************************************************
* 3 axes Post Processor for FANUC
********************************************************
FORMAT (COORDINATES) Xold Yold Zold DXcenter DYcenter ;
FORMAT (COORDINATES) Clear Depth ;
FORMAT (USER_2)      FlagSpin ;
FORMAT (USER_2)      YES NO ;
********************************************************
NON_MODAL  ALL_VAR ;
MODAL      X_CURPOS Y_CURPOS Z_CURPOS ;
MODAL      LIN_MOV CIRC_MOV MCH_FEED SPIN_SPEED SPIN_DIR ;
MODAL      CYC_DEPTH CYC_PECK CYC_DWELL CYC_RETR CYC_CLEAR Depth Clear ;
IDENTICAL  X_CURPOS X_ENDPT ;
IDENTICAL  Y_CURPOS Y_ENDPT ;
********************************************************
NEW_LINE_IS $ ;
      OUTPUT \J ;   
********************************************************
BEGINNING OF TAPE:
      YES              = 1 ;
      NO               = 0 ;
      Xold = X_HOME ;
      Yold = Y_HOME ;
      Zold = Z_HOME ;
      MCH_FEED = 9999 ;
      OUTPUT "%" \J ;
END OF TAPE:
      OUTPUT $ " M05" ;
      OUTPUT $ " M30" ;
      OUTPUT \J "%" ;
      IF_SET (PROC_CMNT _NE_ "No Text")
    PRINT0 \J "REN " PART_NAME "." TP_NAME "." POST_NAME " " PROC_CMNT "." POST_NAME ;
      END_IF ;
********************************************************
TOOL CHANGE:
      SET_ON  SPIN_SPEED SPIN_DIR ;
      OUTPUT $ "( " "D" DIAMETER_ " " "R" TOOL_RAD " )" ;
      OUTPUT $ " G90 G54 G17 G80 G40 G49 " ;
      OUTPUT $ " S" SPIN_SPEED " " SPIN_DIR  ;
********************************************************
LINEAR MOTION: FAST:
      FlagSpin = NO ;
      IF_SET (SPIN_SPEED) FlagSpin = YES ; END_IF ;
      IF_SET (SPIN_DIR)   FlagSpin = YES ; END_IF ;
      IF_SET (FlagSpin _EQ_ YES)
      SET_ON SPIN_SPEED SPIN_DIR ;
      OUTPUT $ " S" SPIN_SPEED " " SPIN_DIR ;
      END_IF ;
      OUTPUT $ ;
      IF_SET (LIN_MOV)  OUTPUT " "  LIN_MOV  ; END_IF ;
      IF_SET (X_CURPOS) OUTPUT " X" X_CURPOS ; END_IF ;
      IF_SET (Y_CURPOS) OUTPUT " Y" Y_CURPOS ; END_IF ;
      IF_SET (Z_CURPOS) OUTPUT " Z" Z_CURPOS ; END_IF ;
      SET_ON CIRC_MOV ;
      Xold = X_CURPOS ;
      Yold = Y_CURPOS ;
      Zold = Z_CURPOS ;
LINEAR MOTION:
      FlagSpin = NO ;
      IF_SET (SPIN_SPEED) FlagSpin = YES ; END_IF ;
      IF_SET (SPIN_DIR)   FlagSpin = YES ; END_IF ;
      IF_SET (FlagSpin _EQ_ YES)
      SET_ON SPIN_SPEED SPIN_DIR ;
      OUTPUT $ " S" SPIN_SPEED " " SPIN_DIR ;
      END_IF ;
      OUTPUT $ ;
      IF_SET (LIN_MOV)    OUTPUT " "  LIN_MOV    ; END_IF ;
      IF_SET (X_CURPOS)   OUTPUT " X" X_CURPOS   ; END_IF ;
      IF_SET (Y_CURPOS)   OUTPUT " Y" Y_CURPOS   ; END_IF ;
      IF_SET (Z_CURPOS)   OUTPUT " Z" Z_CURPOS   ; END_IF ;
      IF_SET (MCH_FEED)   OUTPUT " F" MCH_FEED   ; END_IF ;
      SET_ON CIRC_MOV ;
      Xold = X_CURPOS ;
      Yold = Y_CURPOS ;
      Zold = Z_CURPOS ;
********************************************************
CIRCULAR MOTION:
      FlagSpin = NO ;
      IF_SET (SPIN_SPEED) FlagSpin = YES ; END_IF ;
      IF_SET (SPIN_DIR)   FlagSpin = YES ; END_IF ;
      IF_SET (FlagSpin _EQ_ YES)
      SET_ON SPIN_SPEED SPIN_DIR ;
      OUTPUT $ " S" SPIN_SPEED " " SPIN_DIR ;
      END_IF ;
      DXcenter = X_CENTER - Xold ;
      DYcenter = Y_CENTER - Yold ;
      OUTPUT $ ;
      IF_SET (CIRC_MOV)          OUTPUT " "  CIRC_MOV ; END_IF ;
      IF_SET (X_CURPOS)          OUTPUT " X" X_ENDPT  ; END_IF ;
      IF_SET (Y_CURPOS)          OUTPUT " Y" Y_ENDPT  ; END_IF ;
      IF_SET (Z_CURPOS)          OUTPUT " Z" Z_ENDPT  ; END_IF ;
                                                  OUTPUT " I" DXcenter ;   
                                                  OUTPUT " J" DYcenter ;
      IF_SET (MCH_FEED)          OUTPUT " F" MCH_FEED ; END_IF ;
      SET_ON LIN_MOV ;
      Xold = X_CURPOS ;
      Yold = Y_CURPOS ;
      Zold = Z_CURPOS ;
********************************************************
CYCLE: ON:
      FlagSpin = NO ;
      IF_SET (SPIN_SPEED) FlagSpin = YES ; END_IF ;
      IF_SET (SPIN_DIR)   FlagSpin = YES ; END_IF ;
      IF_SET (FlagSpin _EQ_ YES)
      SET_ON SPIN_SPEED SPIN_DIR ;
      OUTPUT $ " S" SPIN_SPEED " " SPIN_DIR ;
      END_IF ;
      SET_ON X_CURPOS Y_CURPOS Z_CURPOS   ;
      SET_ON CYC_DEPTH CYC_RETR CYC_CLEAR MCH_FEED ;
      SET_ON Depth Clear ;
      Depth    =  Z_CURPOS - CYC_DEPTH ;
      Clear    =  Z_CURPOS + CYC_CLEAR ;
          OUTPUT $ " Z" Z_HOME  ;
          OUTPUT $ ;
          OUTPUT " "  CYC_RETR  ;
          OUTPUT " "  CYC_CODE  ;
          OUTPUT " X" X_CURPOS  ;
          OUTPUT " Y" Y_CURPOS  ;
          OUTPUT " Z" Depth     ;
          OUTPUT " R" Clear     ;
      IF_SET (CYC_PECK)        OUTPUT " Q" CYC_PECK  ; END_IF ;
      IF_SET (CYC_DWELL)       OUTPUT " P" CYC_DWELL ; END_IF ;
      IF_SET (CYC_XSHFT)       OUTPUT " I" CYC_XSHFT ; END_IF ;
      IF_SET (CYC_YSHFT)       OUTPUT " J" CYC_YSHFT ; END_IF ;
          OUTPUT " F" MCH_FEED  ;
      SET_ON  LIN_MOV CIRC_MOV ;
      SET_OFF CYC_DEPTH CYC_CLEAR;
      Xold = X_CURPOS ;
      Yold = Y_CURPOS ;
      Zold = Z_CURPOS ;
CYCLE:
      Depth = Z_CURPOS - CYC_DEPTH ;
      Clear = Z_CURPOS + CYC_CLEAR ;
      OUTPUT $ ;
      IF_SET (CYC_RETR)   OUTPUT " "  CYC_RETR   ; END_IF ;
      IF_SET (X_CURPOS)   OUTPUT " X" X_CURPOS   ; END_IF ;
      IF_SET (Y_CURPOS)   OUTPUT " Y" Y_CURPOS   ; END_IF ;
      IF_SET (Depth)      OUTPUT " Z" Depth      ; END_IF ;
      IF_SET (Clear)      OUTPUT " R" Clear      ; END_IF ;
      IF_SET (CYC_PECK)   OUTPUT " Q" CYC_PECK   ; END_IF ;
      IF_SET (CYC_DWELL)  OUTPUT " P" CYC_DWELL  ; END_IF ;
      IF_SET (CYC_XSHFT)  OUTPUT " I" CYC_XSHFT  ; END_IF ;
      IF_SET (CYC_YSHFT)  OUTPUT " J" CYC_YSHFT  ; END_IF ;
      IF_SET (SPIN_SPEED) OUTPUT " S" SPIN_SPEED ; END_IF ;
      IF_SET (SPIN_DIR)   OUTPUT " "  SPIN_DIR   ; END_IF ;
      IF_SET (MCH_FEED)   OUTPUT " F" MCH_FEED   ; END_IF ;
      SET_ON  LIN_MOV CIRC_MOV ;
      SET_OFF CYC_DEPTH CYC_CLEAR;
      Xold = X_CURPOS ;
      Yold = Y_CURPOS ;
      Zold = Z_CURPOS ;
CYCLE: OFF:
      OUTPUT $ " G80 Z" Z_HOME  ;
      SET_ON  LIN_MOV CIRC_MOV ;
********************************************************

r-o-o-n

xiagq

r-o-o-n

xiagq

r-o-o-n

xiagq

r-o-o-n

xiagq

r-o-o-n