Врфсетипротчас ошибка генератора

[POST_VERSION] #DO NOT MOVE OR ALTER THIS LINE# V17.00 P0 E1 W17.00 T1391635708 M17.00 I0 O0
# Post Name           : MPFAN.pst
# Product             : Mill
# Machine Name        : Generic
# Control Name        : Fanuc
# Description         : Generic 4 Axis Mill Post
# 4-axis/Axis subs.   : Yes
# 5-axis              : No
# Subprograms         : Yes
# Executable          : MP 17.0
#
# WARNING: THIS POST IS GENERIC AND IS INTENDED FOR MODIFICATION TO
# THE MACHINE TOOL REQUIREMENTS AND PERSONAL PREFERENCE.
#
# THIS POST REQUIRES A VALID 3 OR 4 AXIS MACHINE DEFINITION.
# YOU WILL RECEIVE AN ERROR MESSAGE IF MORE THAN ONE ROTARY AXIS IS DETECTED IN
# THE ACTIVE AXIS COMBINATION WITH READ_MD SET TO YES. 
#
# Associated File List$
#
# Associated File List$
#
#region Revision log
# —————————————————————————
# Revision log:
# —————————————————————————
# CNC 06/09/05  —  Initial post setup for Mastercam X
# CNC 10/06/05  —  Changed parameter read for min_speed, modified pspindle, pprep$ and pset_mach
#               —  Modified pset_rot_label to use srot_y for horizontal machines
#               —  Added call to pset_mach in pq$ to set rotaxtyp$
# CNC 11/18/05  —  Added psynclath with call to pset_mach to set rotaxtyp$, removed call from pq$
# CNC 02/03/06  —  Added logic for high-speed toolpath tool inspection (see prapidout & plinout)
# CNC 06/26/06  —  Initial post setup for Mastercam X2
# CNC 12/15/06  —  Modified pset_mach for horizontal rotation when rotating about world Z axis.
# CNC 02/26/07  —  Modified pwcs
# CNC 11/02/07  —  Added prv_shftdrl$ = zero
# CNC 04/08/08  —  X3 release — Removed check for write_ops
# CNC 01/26/09  —  Initial post update for Mastercam X4
# CNC 04/15/09  —  Added read_md switch to enable or disable setting rotary axis from Machine Definition
# CNC 05/06/09  —  Modified pindxcalc to omit ctable check when rotary is not indexer
# CNC 06/09/09  —  Updated MD parameters
# CNC 08/31/09  —  Added check for read_md in pset_mach 
# CNC 02/03/10  —  Initial post update for Mastercam X5
# CNC 04/21/10  —  Added Toolpath Transform Enhancements
# CNC 08/17/10  —  Added fix for canned drill cycle incremental mode code output and Z output in incremental mode
#               —  Added fix for X coolant output
#               —  Added fix for MP line break pattern
#               —  Added fix for stock to leave output in tool table
#               —  Removed CD_VAR variables
#               —  Added axis sub direction logic
# CNC 08/23/10  —  Added logic to handle axis sub with signed or shortest direction and rotation >= 360 degrees
# CNC 02/17/11  —  Added three arctype$ initialization variables that are used for
#                  full arc and helix arc output, when CD is set to R or signed R
# CNC 05/20/11  —  Initial post update for Mastercam X6
# CNC 05/23/11  —  Modified pcoutrev to fix potential endless loop when processing axis sub
# CNC 09/01/11  —  Modified pcoutrev to fix potential endless loop when processing axis sub for null tool change operation
# CNC 11/21/11  —  Modified ptap$ and pmisc2$ logic. Post now uses switch (tap_feedtype) to control
#                  Feed per Unit (Inch/MM), or Feed per Revolution
# CNC 12/28/11  —  Minor spacing change
# CNC 02/21/12  —  Added support for CD option ‘Subprograms before / after main program’
# CNC 07/24/12  —  X coolant ‘With’ — separated coolant ‘with’ logic from cantext ‘with’ logic to give 
#                    more control over output location of X coolant ‘With’.  See pcan1 and pcan1_cool
# CNC 10/16/12  —  Initial post update for Mastercam X7
# CNC 04/23/13  —  Revised logic for rotary lock / unlock (See use_rot_lock)
# CNC 02/06/14  —  Initial post update for Mastercam X8
# CNC 05/09/14  —  Added «Convert Rapid To Feed» code
#
#endregion

#region Features, notes
# —————————————————————————
# Features:     
# —————————————————————————
# This post supports Generic Fanuc code for 3 and 4 axis milling.
# It is designed to support the features of Mastercam X Mill.
#
# NEW FEATURES FOR X:
# — Sub-program support
#     Choose the location of subprogram output using the Control Definition options
#     ‘Subprograms after main program’ or ‘Subprograms before main program’
# — Machine definition, control definition and toolpath group parameter read sections added.
# — Post sets rotary «switches» from MD and CD settings.  Also sets min/max spindle speed,
#     max feed rates and type of feed for rotary motion from MD and CD.  Includes option for
#     units/min and units/sec for inverse time feed rate.
# — Variable initialization with SET_BY_MD or SET_BY_CD are overwritten in this post by parameter or
#     variable settings from MD or CD.
# — Support for rotary axis lock/unlock codes when in index mode (see use_rot_lock)
# — Support for signed rotary axis direction and M-code specified axis direction (see use_rotmcode)
# — Switch to force rotary output to index mode when tool plane positioning with a full rotary (see force_index)
# — Enhanced tool information — Added switch for tool comments only, tooltable in header with no tool
#     comments at tool change or tooltable in header with tool comments at tool change (see tool_info)
#     Tooltable output includes cutter compensation type and stock to leave information
# — Enhanced tool staging options — enable or disable in CD.  Set stagetltype in post for output type:
#     Do not stage 1st tool, stage 1st tool at last tool change or stage 1st tool at end of file (peof)
# — Supports X comments including machine name, group name and group comment output (see pcomment2)
# — Additional date, time and data path output options (see pheader)  
# — Additional rigid tapping cycle (separate from original tapping cycle) and initial custom drill
#     cycle support (see pmisc2$ and pdrlcst$)
# — Support for 10 additional canned text options for X
# — Decimal support for sequence number output (set «Increment sequence number» in CD to a decimal value
#     for output.  I.E. «Increment sequence number» = .5, «Start sequence number» = 10 : N10, N10.5, N11, N11.5, etc…)
# — Switch for output of M00 or M01 at tool change (3 position switch, off, M00, M01 — see prog_stop)
# — Support for seperate XY, XZ and YZ plane/arc variables (see Arc page in CD)
# — Support for X style coolant.  Allows up to 10 different coolants to be turned on/off before, with, or after like
#     canned text.  Coolant output is handled by «coolant» variable and string selector for V9 style coolant,
#     «coolantx» variable and string selector for X style coolant.
#
# —————————————————————————
# Misc. Values:
# —————————————————————————
# Integers:
#
# mi1 — Work coordinate system
#        0 = Reference return is generated and G92 with the 
#            X, Y and Z home positions at file head.
#        1 = Reference return is generated and G92 with the 
#            X, Y and Z home positions at each tool.
#        2 = WCS of G54, G55…. based on Mastercam settings.
#
# mi2 — Absolute or Incremental positioning at top level
#        0 = absolute
#        1 = incremental
#
# mi3 — Select G28 or G30 reference point return.
#        0 = G28, 1 = G30
#
# mi4 — mi10 (NOT USED)
#
# Reals:
#
# mr1 — mr10 (NOT USED)
#
# —————————————————————————
#Canned text:
#    Entering cantext on a contour point from within Mastercam allows the
#    following functions to enable/disable.
#    Cantext value:
#    1 = Program Stop = output the «M00» stop code
#    2 = Optional Stop =  output the «M01» optional stop code
#    3 = Block Delete on = turn on block delete codes in NC lines
#    4 = Block Delete off = turn off block delete codes in NC lines
#
# —————————————————————————
#Milling toolpaths (4 axis)
#Layout:
# The term «Reference View» refers to the coordinate system associated
# with the Top view (Alt-F9, the upper gnomon of the three displayed).
# Create the part drawing with the axis of rotation about the axis
# of the «Reference View» according to the setting you entered for
# ‘vmc’ (vertical or horizontal) and ‘rot_on_x’ (machine relative
# axis of rotation).
# vmc = 1 (vertical machine) uses the top toolplane as the base machine
# view.
# vmc = 0 (horizontal machine) uses the front toolplane as the base machine
# view.
# Relative to the machine matrix —
# Rotation zero position is on the Z axis for rotation on X axis.
# Rotation zero position is on the Z axis for rotation on Y axis.
# Rotation zero position is on the X axis for rotation on Z axis.
# The machine view rotated about the selected axis as a «single axis
# rotation» are the only legal views for 4 axis milling.  Rotation
# direction around the part is positive in the CCW direction when
# viewed from the plus direction of the rotating axis.  Set the variable 
# ‘rot_ccw_pos’ to indicate the signed direction.  Always set the work
# origin at the center of rotation.
#
#Toolplane Positioning:
# Create the Cplane and Tplane as the rotation of the machine view about 
# the selected axis of rotation.  The toolplane is used to calculate
# the position of the rotary axis.  This is the default setting.
#
#3 Axis Rotary (Polar)
# Polar positioning is offered in Mastercam 3 axis toolpaths through the 
# rotary axis options dialog.  The selected toolpath is converted to angle
# and radius position.  The axis of rotation is forced to zero.
#
#Axis substitution:
# Use the Rotary axis substitution by drawing the geometry flattened
# from the cylinder.  The rotary axis button must be active for axis
# substitution information to be output to the NCI file. The radius of
# the rotary diameter is added to all the Z positions at output.  
#
#Simultaneous 4 Axis (11 gcode):
# Full 4 axis toolpaths can be generated from various toolpaths under the 
# ‘multi-axis’ selection (i.e. Rotary 4 axis). All 5 axis paths are
# converted to 4 axis paths where only the angle about the rotation axis
# is resolved. 
#
#Drill:
# All drill methods are supported in the post.  See Simultaneous 4 Axis.
#
# —————————————————————————
#Additional Notes:
# 1) G54 calls are generated where the work offset entry of 0 = G54,
#    1 = G55, etc.
# 2) Metric is applied from the NCI met_tool variable.
# 3) Incremental mode calculates motion from home position at toolchanges.
#    The home position is used to define the last position of the tool
#    for all toolchanges.  
# 4) The variable ‘absinc’ is now pre-defined, set mi2 (Misc. Integer) for
#    the ‘top level’ absolute/incremental program output.  Subprograms are
#    updated through the Mastercam dialog settings for sub-programs.
# 5) Always avoid machining to the center of rotation with rotary axis!
# 6) Transform subprograms are intended for use with G54.. workshifts. 
#
# END_HEADER$
#
#endregion

#region Debugging and factory set program switches
# —————————————————————————
# Debugging and Factory Set Program Switches  
# —————————————————————————
#Define Constants
m_one        := -1
zero         := 0
one          := 1
two          := 2
three        := 3
four         := 4
five         := 5
c9k          := 9999

bug4$        : 1     #Debug output with the tilde ‘~’.
                     #A value greater the zero applies the variable formatting with
                     #debug output (default is typically FS 1 but not a guarantee).
                     #A value of zero gets the value directly with NO formatting.

linktolvar$  : 0     #Associate X tolerance variables to V9- variable?
linkplnvar$  : 0     #Associate X plane specific variables to V9- variable?

skp_lead_flgs$ : 0   #Do NOT use v9 style contour flags
get_1004$    : 1     #Find gcode 1004 with getnextop?
rpd_typ_v7$  : 0     #Use Version 7 style contour flags/processing?
strtool_v7$  : 2     #Use Version 7+ toolname?
tlchng_aft$  : 2     #Delay call to toolchange until move line 
cant_tlchng$ : 1     #Ignore cantext entry on move with tlchng_aft 
newglobal$   : 1     #Error checking for global variables
getnextop$   : 1     #Build the next variable table
tooltable$   : 3     #Pre-read, call the pwrtt postblock

#endregion

#region General output settings
# —————————————————————————
# General Output Settings
# —————————————————————————
maxfeedpm    : 500   #SET_BY_MD Limit for feed in inch/min
ltol_m       : 0.05  #Length tolerance for arccheck, metric
vtol_m       : 0.0025#System tolerance, metric
maxfeedpm_m  : 10000 #SET_BY_MD Limit for feed in mm/min
force_wcs    : yes$  #Force WCS output at every toolchange?
stagetool    : 0     #SET_BY_CD 0 = Do not pre-stage tools, 1 = Stage tools
stagetltype  : 1     #0 = Do not stage 1st tool
                     #1 = Stage 1st tool at last tool change
                     #2 = Stage 1st tool at end of file (peof)
use_gear     : 0     #Output gear selection code, 0=no, 1=yes  
min_speed    : 50    #SET_BY_MD Minimum spindle speed
progname$    : 1     #Use uppercase for program name (sprogname)
prog_stop    : 1     #Program stop at toolchange: 0=None, 1=M01, 2 = M00
tool_info    : 2     #Output tooltable information?
                     #0 = Off — Do not output any tool comments or tooltable
                     #1 = Tool comments only
                     #2 = Tooltable in header — no tool comments at T/C
                     #3 = Tooltable in header — with tool comments at T/C
tlchg_home   : no$   #Zero return X and Y axis prior to tool change?

# The following three initializations are used for full arc and helix arc output when the CD
#   is set to output R or signed R for arcs
arctype$     : 2     #Arc center type XY plane 1=abs, 2=St-Ctr, 3=Ctr-St, 4=unsigned inc.
arctypexz$   : 2     #Arc center type XZ plane 1=abs, 2=St-Ctr, 3=Ctr-St, 4=unsigned inc.
arctypeyz$   : 2     #Arc center type YZ plane 1=abs, 2=St-Ctr, 3=Ctr-St, 4=unsigned inc.

#endregion

#region Rotary axis settings
# —————————————————————————
# Rotary Axis Settings
# —————————————————————————
read_md      : no$   #Set rotary axis switches by reading Machine Definition?
vmc          : 1     #SET_BY_MD 0 = Horizontal Machine, 1 = Vertical Mill 
rot_on_x     : 1     #SET_BY_MD Default Rotary Axis Orientation
                     #0 = Off, 1 = About X, 2 = About Y, 3 = About Z 
rot_ccw_pos  : 0     #SET_BY_MD Axis signed dir, 0 = CW positive, 1 = CCW positive
index        : 0     #SET_BY_MD Use index positioning, 0 = Full Rotary, 1 = Index only
ctable       : 5     #SET_BY_MD Degrees for each index step with indexing spindle
use_frinv    : no$   #SET_BY_CD Use Inverse Time Feedrates in 4 Axis, (0 = no, 1 = yes)
maxfrdeg     : 2000  #SET_BY_MD Limit for feed in deg/min
maxfrinv     : 999.99#SET_BY_MD Limit for feed inverse time
maxfrinv_m   : 99.99 #SET_BY_MD Maximum feedrate — inverse time
frc_cinit    : yes$  #Force C axis reset at toolchange
ctol         : 225   #Tolerance in deg. before rev flag changes
ixtol        : 0.01  #Tolerance in deg. for index error
frdegstp     : 10    #Step limit for rotary feed in deg/min
rot_type     : 1     #SET_BY_MD Rotary type — 0=signed continuous, 1=signed absolute, 2=shortest direction
force_index  : no$   #Force rotary output to index mode when tool plane positioning with a full rotary
use_rotmcode : 0     #Output M-Code for Axis direction (sindx_mc)
                     #0 = Signed direction (only valid when rot_type = 1)
                     #1 = M-Code for direction
toolismetric       : 0     #flag that tool is metric
tap_feedtype       : 1     #0 = Units Per Minute (G94)
                           #1 = Units Per Revolution (G95)

#Rotary Axis Label options
use_md_rot_label : no$  #Use rotary axis label from machine def? — Leave set to ‘no’ until available
srot_x       : «A»   #Label applied to rotary axis movement — rotating about X axis — used when use_md_rot_label = no
srot_y       : «B»   #Label applied to rotary axis movement — rotating about Y axis — used when use_md_rot_label = no
srot_z       : «C»   #Label applied to rotary axis movement — rotating about Z axis — used when use_md_rot_label = no
sminus       : «-»   #Address for the rotary axis (signed motion)

#Axis locking
use_rot_lock : no$  #Use rotary axis lock/unlock codes

#endregion

#region Common user-defined variable initializations (not switches!)
# —————————————————————————
# Common User-defined Variable Initializations (not switches!)
# —————————————————————————
xia          : 0     #Formatted absolute value for X incremental calculations
yia          : 0     #Formatted absolute value for Y incremental calculations
zia          : 0     #Formatted absolute value for Z incremental calculations
cia          : 0     #Formatted absolute value for C incremental calculations

cuttype      : 0     #Cut type flag
                     #0 = Tool Plane, 1 = Axis Subs,  2 = Polar, 3 = 4/5 axis
bld          : 0     #Block delete active
result       : 0     #Return value for functions
sav_spc      : 0     #Save spaces
sav_gcode    : 0     #Gcode saved 
sav_absinc   : 0     #Absolute/Incremental Saved Value
sav_coolant  : 0     #Coolant saved 
sav_frc_wcs  : 0     #Force work offset flag saved
toolchng     : 1     #On a toolchange flag 
toolchng0    : 0     #On a null toolchange flag 
spdir2       : 1     #Copy for safe spindle direction calculation 

#Drill variables
drlgsel      : -1    #Drill Select Initialize
drillref     : 0     #Select drill reference
drlgcode     : 0     #Save Gcode in drill   
sav_dgcode   : 0     #Drill gcode saved 

#Subprogram variables
mr_rt_actv   : 0     #Flag to indicate if G51/G68 is active                     
                     #0=Off, 1=Rotate initial, 2=G68 Subprogram call/start, 3=Mirror, Neg. enable restore
mr_rt_rst    : 0     #Flag to restore abs/inc when G51/G68 is active                     
rt_csav      : 0     #C saved value
end_sub_mny  : 0     #Many tool setting captured at transform sub end

#Rotary/Index variables
csav         : 0     #C saved value
prvcabs      : 0     #Saved cabs from pe_inc_calc,
                     #Used for rotary feed and direction calculations
cdelta       : 0     #Calculation for angle change
cdelta_calc  : 0     #Rotation calculation
rev          : 0     #Calculation for deg/min
sav_rev      : 0     #Saved revolution counter
indx_out     : c9k   #Rotation direction calculation
fmt     16  indx_mc  #Rotation direction calculation
rev_brkflag  : 0     #Revolution break flag. 0 = No break, 1 = Break every 90 or 360 degrees (see pmotion_su)                      
rot_locked   : 1     #Flag to track status of rotary lock (0=unlocked, 1=locked), (Not a switch — initialized to 1 to force unlock with first rotary move)

#Vector Constants for Rotatary Calculations
aaxisx       : 1     #A axis rotation vector constant
aaxisy       : 0     #A axis rotation vector constant
aaxisz       : 0     #A axis rotation vector constant
baxisx       : 0     #B axis rotation vector constant
baxisy       : 1     #B axis rotation vector constant
baxisz       : 0     #B axis rotation vector constant
caxisx       : 0     #C axis rotation vector constant
caxisy       : 0     #C axis rotation vector constant
caxisz       : 1     #C axis rotation vector constant

#Feedrate calculation variables
frdelta      : 0     #Calculation for deg/min
frinv        : 0     #Feedrate inverse time
frdeg        : 0     #Feedrate deg/min actual
prvfrdeg     : 0     #Feedrate deg/min actual
ldelta       : 0     #Calculation for deg/min, linear
cldelta      : 0     #Calculation for deg/min, linear and rotary
circum       : 0     #Calculation for deg/min
ipr_type     : 0     #Feedrate for Rotary, 0 = UPM, 1 = DPM, 2 = Inverse 

comp_type    : 0     #Cutter compensation type — 0=computer, 1=control, 2=wear, 3=reverse wear, 4=off
subs_before  : 0     #Flag to indicate whether subprograms are to be output before or after main program
first_sub    : 1     #Flag used to suppress blank line before first sub that gets output with subs before main

#rotary_axis2 values are not consistent with rot_on_x values.  Need to add 1 to rotary_axis2 to compare them.
rotary_axis2 : c9k   #Rotary axis selected in Multiaxis Drill and Curve 5 Axis, 0=X, 1=Y, 2=Z

#Coolant variables for X style coolant
cant_pos     : 0     #Read from current canned text (cant_pos1 — cant_pos20)
coolant_bin  : 0     #Binary value for current coolant command
coolant_on   : 0     #Binary value holding the sum of all coolants currently on
coolantx     : 0     #Selector variable for coolant string selector
local_int    : 0     #Local variable for output of coolant off commands
result2      : 0     #Return value for functions
suppress     : 0     #Flag used to suppress redundant coolant on commands
all_cool_off : 0     #First coolant off command shuts off ALL coolant options

#Variables to capture parameter values — use to set post switches in pset_mach
rotaxerror   : 0     #Error flag
rot_axis     : 0     #Axis of rotation — 1=X, 2=Y, 3=Z
rot_dir      : 0     #Rotary direction — CW is positive, 0 = false, 1 = true
rot_index    : 0     #Index or continuous — 0 = continuous, 1 = index
rot_angle    : 0     #Degrees for each index step with indexing spindle
rot_zero     : 0     #Rotary zero degree position (NOT CURRENTLY IMPLEMENTED)
rot_ax_cnt   : 0     #Rotary axis counter
component_type : 0   #Component type: (See documentation for complete list — )
                       #0 = MACHINE
                       #1 = STOCK_COMPONENT
                       #2 = MISC_COMPONENT
                       #3 = MACHINE_BASE_COMPONENT
                       #4 = LINEAR_AXIS_COMPONENT
                       #5 = ROTARY_AXIS_COMPONENT
                       #6 = RECT_TABLE_COMPONENT
                       #12 = CHUCK_COMPONENT
                       #24 = TOOL_SPINDLE_COMPONENT
                       #23 = ATC_COMPONENT
z_dir        : 0     #Z Axis direction flag
axis_label   : 0     #Axis label — 1=X,2=Y,3=Z
srot_label   : «»    #Rotary Axis label (Generally A, B or C)
sav_srot_label : «»  #Store original rotary axis label (required for signed rotation output rot_type = 1)
sav_index    : 0     #Store original index value

#endregion

#region String definitions for NC output
# —————————————————————————
#String and string selector definitions for NC output
# —————————————————————————
#Address string definitions
strm         : «M»
strn         : «N»
stro         : «O»
strp         : «P»
srad         : «R»
srminus      : «R-«
sblank       : «»

#Cantext string definitions (spaces must be padded here)
sm00         : «M00»
sm01         : «M01»
strtextno    : «»
strcantext   : «»

#Transform mirror and rotate codes
strns_mir_on  : «G51.1» #Programmable mirror image code
strns_mir_off : «G50.1» #Programmable mirror image cancel code
strns_rot_on  : «G68»   #Coordinate System Rotation
strns_rot_off : «G69»   #Coordinate System Rotation Cancel

#Misc. string definitions
sopen_prn    : «(»   #String for open parenthesis «(» 
sclose_prn   : «)»   #String for close parenthesis «)»
sdelimiter   : «|»   #String for delimiter
sg95         : «G95» #Feed per rotation
sm29         : «M29» #Rigid tapping preperation support function
sg80         : «G80» #Cancel canned drilling cycle
sg43         : «G43» #Tool length compensation
sg49         : «G49» #Tool length compensation cancel
sg92         : «G92» #Set work piece coordinate system
sm06         : «M6»  #Toolchange

#endregion

#region Error messages
# —————————————————————————
# Error messages
# —————————————————————————
saxiserror   : «WARNING — DEFINED AXIS OF ROTATION DOES NOT MATCH OPERATION’S AXIS OF ROTATION — OUTPUT MAY BE INVALID»
sindxerror   : «WARNING — INDEX ANGLE DOES NOT MATCH POST SETTING (‘ctable’)»
stlorgerr    : «ERROR — TOOL ORIGIN DOES NOT MATCH CENTER OF ROTATION IN POLAR MILLING»
shomeserror  : «ERROR — WORK OFFSET USAGE DOES NOT SUPPORT TRANSFORM SUBPROGRAM»
sprgnerror   : «ERROR — SUBPROGRAM NUMBER MATCHES THE MAIN PROGRAM NUMBER»
srotaxerror  : «ERROR — MORE THAN 1 ROTARY AXIS DETECTED IN SELECTED AXIS COMBINATION — OUTPUT MAY BE INVALID»
#endregion

#region String select, lookup tables for NC output

# —————————————————————————
# General G and M Code String select tables
# —————————————————————————
# Motion G code selection
sg00    : «G0»       #Rapid
sg01    : «G1»       #Linear feed
sg02    : «G2»       #Circular interpolation CW 
sg03    : «G3»       #Circular interpolation CCW 
sg04    : «G4»       #Dwell
sgcode  : «»         #Target string

fstrsel sg00 gcode$ sgcode 5 -1
# —————————————————————————
# Select work plane G code
sg17    : «G17»      #XY plane code 
sg19    : «G19»      #YZ plane code 
sg18    : «G18»      #XZ plane code 
sgplane : «»         #Target string

fstrsel sg17 plane$ sgplane 3 -1
# —————————————————————————
#Select english/metric code 
sg20    : «G20»      #Inch code
sg21    : «G21»      #Metric code
smetric : «»         #Target string  

fstrsel sg20 met_tool$ smetric 2 -1
# —————————————————————————
#Select reference return code 
sg28    : «G28»      #First reference point return
sg30    : «G30»      #Second reference point return
sg28ref : «»         #Target string

fstrsel sg28 mi3$ sg28ref 2 -1
# —————————————————————————
# Cutter compensation G code selection
scc0    : «G40»      #Cancel cutter compensation
scc1    : «G41»      #Cutter compensation left
scc2    : «G42»      #Cutter compensation right
sccomp  : «»         #Target string

fstrsel scc0 cc_pos$ sccomp 3 -1
# —————————————————————————
# Canned drill cycle string select
sg81    : «G81»      #drill — no dwell 
sg81d   : «G82»      #drill — with dwell 
sg83    : «G83»      #peck drill — no dwell
sg83d   : «G83»      #peck drill — with dwell
sg73    : «G73»      #chip break — no dwell
sg73d   : «G73»      #chip break — with dwell
sg84    : «G84»      #tap — right hand
sg84d   : «G74»      #tap — left hand
sg85    : «G85»      #bore #1 — no dwell 
sg85d   : «G89»      #bore #1 — with dwell 
sg86    : «G86»      #bore #2 — no dwell
sg86d   : «G86»      #bore #2 — with dwell
sgm1    : «G76»      #fine bore — no dwell
sgm1d   : «G76»      #fine bore — with dwell
sgm2    : «G84»      #rigid tap  — right hand
sgm2d   : «G74»      #rigid tap  — left hand
sgdrill : «»         #Target string

fstrsel sg81 drlgsel sgdrill 16 -1
# —————————————————————————
# Select incremental or absolute G code 
sg90    : «G90»      #Absolute code
sg91    : «G91»      #Incremental code
sgabsinc : «»        #Target string  

fstrsel sg90 absinc$ sgabsinc 2 -1
# —————————————————————————
# Feed mode G code selection
sg94    : «G94»      #UPM
sg94d   : «G94»      #DPM, See pfcalc_deg if you use another gcode
sg93    : «G93»      #Inverse
sgfeed  : «»         #Target string

fstrsel sg94 ipr_type sgfeed 3 -1
# ————————————————————————— 
#Canned drill cycle reference height
sg98    : «G98»      #Reference at initht
sg99    : «G99»      #Reference at refht     
sgdrlref : «»        #Target string

fstrsel sg98 drillref sgdrlref 2 -1
# —————————————————————————
# Generate string for spindle 
sm04    : «M4»       #Spindle reverse 
sm05    : «M5»       #Spindle off
sm03    : «M3»       #Spindle forward 
spindle : «»         #Target string

fstrsel sm04 spdir2 spindle 3 -1
# —————————————————————————
# Coolant M code selection for V9 style coolant
# Note: To enable V9 style coolant, click on the General Machine Parameters icon
#   in the Machine Definition Manager, Coolant tab, enable first check box
#   Output of V9 style coolant commands in this post is controlled by scoolant
sm09    : «M9»       #Coolant Off
sm08    : «M8»       #Coolant Flood 
sm08_1  : «M8»       #Coolant Mist
sm08_2  : «M8»       #Coolant Tool
scoolant : «»        #Target string

fstrsel sm09 coolant$ scoolant 4 -1
# —————————————————————————
# Coolant output code selection for X style coolant
# Note: To enable X style coolant, click on the General Machine Parameters icon
#   in the Machine Definition Manager, Coolant tab, disable first check box
#   Output of X style coolant commands in this post is controlled by pcan, pcan1, & pcan2
scool50 : «M8»                 #Coolant 1 on value
scool51 : «M9»                 #Coolant 1 off value
scool52 : «M7»                 #Coolant 2 on value
scool53 : «M9»                 #Coolant 2 off value
scool54 : «M88»                #Coolant 3 on value
scool55 : «M89»                #Coolant 3 off value
scool56 : «M8(Coolant4=ON)»    #Coolant 4 on value
scool57 : «M9(Coolant4=OFF)»   #Coolant 4 off value
scool58 : «M8(Coolant5=ON)»    #Coolant 5 on value
scool59 : «M9(Coolant5=OFF)»   #Coolant 5 off value
scool60 : «M8(Coolant6=ON)»    #Coolant 6 on value
scool61 : «M9(Coolant6=OFF)»   #Coolant 6 off value
scool62 : «M8(Coolant7=ON)»    #Coolant 7 on value
scool63 : «M9(Coolant7=OFF)»   #Coolant 7 off value
scool64 : «M8(Coolant8=ON)»    #Coolant 8 on value
scool65 : «M9(Coolant8=OFF)»   #Coolant 8 off value
scool66 : «M8(Coolant9=ON)»    #Coolant 9 on value
scool67 : «M9(Coolant9=OFF)»   #Coolant 9 off value
scool68 : «M8(Coolant10=ON)»   #Coolant 10 on value
scool69 : «M9(Coolant10=OFF)»  #Coolant 10 off value
scoolantx  : «»                #Target string

fstrsel scool50 coolantx scoolantx 20 -1
# —————————————————————————
#X coolant has the option — First coolant off command shuts off ALL coolant options
sall_cool_off : «M09» #Coolant off command output with all_cool_off

# —————————————————————————
# Table rotation direction, index 
sindx_cw  : «M22»    #Rotate CW code 
sindx_ccw : «M21»    #Rotate CCW code
sindx_mc  : «»       #Target string

fstrsel sindx_cw indx_mc sindx_mc 2 -1
# —————————————————————————
# Define the gear selection code
flktbl  1       3       #Lookup table definition — table no. — no. entries
        40      0       #Low gear range
        41      400     #Med gear range
        42      2250    #Hi gear range

# —————————————————————————
# Define coolant binary value for X style coolant
flktbl  2       20      #Lookup table definition — table no. — no. entries
        1       50      #Coolant 1 on value
        2       51      #Coolant 1 off value
        4       52      #Coolant 2 on value
        8       53      #Coolant 2 off value
        16      54      #Coolant 3 on value
        32      55      #Coolant 3 off value
        64      56      #Coolant 4 on value
        128     57      #Coolant 4 off value
        256     58      #Coolant 5 on value
        512     59      #Coolant 5 off value
        1024    60      #Coolant 6 on value
        2048    61      #Coolant 6 off value
        4096    62      #Coolant 7 on value
        8192    63      #Coolant 7 off value
        16384   64      #Coolant 8 on value
        32768   65      #Coolant 8 off value
        65536   66      #Coolant 9 on value
        131072  67      #Coolant 9 off value
        262144  68      #Coolant 10 on value
        524288  69      #Coolant 10 off value

# —————————————————————————
# Month selector
smon0   : «»
smon1   : «JAN.»
smon2   : «FEB.»
smon3   : «MAR.»
smon4   : «APR.»
smon5   : «MAY.»
smon6   : «JUN.»
smon7   : «JUL.»
smon8   : «AUG.»
smon9   : «SEP.»
smon10  : «OCT.»
smon11  : «NOV.»
smon12  : «DEC.»
smonth  : «»         #Target string

fstrsel smon0 month$ smonth 13 -1
# —————————————————————————
# Cutter Compensation Type
scomp   : «COMPUTER»
scomp1  : «CONTROL COMP»
scomp2  : «WEAR COMP»
scomp3  : «REVERSE WEAR COMP»
scomp4  : «OFF»
scomp_type : «»      #Target string

fstrsel scomp comp_type scomp_type 5 -1
# —————————————————————————
# Rotary axis lock/unlock
sunlock   : «M11»    #Unlock Rotary Axis
slock     : «M10»    #Lock Rotary Axis
srot_lock : «»       #Target string

fstrsel sunlock rot_locked srot_lock 2 -1
#endregion

#region Format statements
# —————————————————————————
# Format statements — n=nonmodal, l=leading, t=trailing, i=inc, d=delta
# —————————————————————————
#Default english/metric position format statements
fs2 1   0.7 0.6      #Decimal, absolute, 7 place, default for initialize (:)
fs2 2   0.4 0.3      #Decimal, absolute, 4/3 place
fs2 3   0.4 0.3d     #Decimal, delta, 4/3 place
#Common format statements
fs2 4   1 0 1 0      #Integer, not leading
fs2 5   2 0 2 0l     #Integer, force two leading
fs2 6   3 0 3 0l     #Integer, force three leading
fs2 7   4 0 4 0l     #Integer, force four leading
fs2 9   0.1 0.1      #Decimal, absolute, 1 place
fs2 10  0.2 0.2      #Decimal, absolute, 2 place
fs2 11  0.3 0.3      #Decimal, absolute, 3 place
fs2 12  0.4 0.4      #Decimal, absolute, 4 place
fs2 13  0.5 0.5      #Decimal, absolute, 5 place
fs2 14  0.3 0.3d     #Decimal, delta, 3 place
fs2 15  0.2 0.1      #Decimal, absolute, 2/1 place (feedrate)
fs2 16  1 0 1 0n     #Integer, forced output
fs2 17  0.2 0.3      #Decimal, absolute, 2/3 place (tapping feedrate)

# These formats used for ‘Date’ & ‘Time’
fs2 18  2.2 2.2lt    #Decimal, force two leading & two trailing (time2)
fs2 19  2 0 2 0t     #Integer, force trailing                   (hour)
fs2 20  0 2 0 2lt    #Integer, force leading & trailing         (min)

# This format statement is used for sequence number output
# Number of places output is determined by value for «Increment Sequence Number» in CD
# Max depth to the right of the decimal point is set in the fs statement below
fs2 21  0^7 0^7      #Decimal, 7 place, omit decimal if integer value
fs2 22  0^3 0^3      #Decimal, 3 place, omit decimal if integer value

#endregion

#region Format assignments
# —————————————————————————
# Toolchange / NC output Variable Formats
# —————————————————————————
fmt  «T» 4  t$          #Tool number
fmt  «T» 4  first_tool$ #First tool used 
fmt  «T» 4  next_tool$  #Next tool used  
fmt  «D» 4  tloffno$    #Diameter offset number
fmt  «H» 4  tlngno$     #Length offset number
fmt  «G» 4  g_wcs       #WCS G address
fmt  «P» 4  p_wcs       #WCS P address
fmt  «S» 4  speed       #Spindle Speed
fmt  «M» 4  gear        #Gear range
# —————————————————————————
fmt  «N» 21 n$          #Sequence number
fmt  «X» 2  xabs        #X position output
fmt  «Y» 2  yabs        #Y position output
fmt  «Z» 2  zabs        #Z position output
fmt  «X» 3  xinc        #X position output
fmt  «Y» 3  yinc        #Y position output
fmt  «Z» 3  zinc        #Z position output
fmt  «A» 11 cabs        #C axis position
fmt  «A» 14 cinc        #C axis position
fmt  «A» 22 indx_out    #Index position
fmt  «R» 14 rt_cinc     #C axis position, G68
fmt  «I» 3  iout        #Arc center description in X
fmt  «J» 3  jout        #Arc center description in Y
fmt  «K» 3  kout        #Arc center description in Z
fmt  «R» 2  arcrad$     #Arc Radius
fmt  «F» 15 feed        #Feedrate
fmt  «P» 11 dwell$      #Dwell
fmt  «M» 5  cantext$    #Canned text
fmt  «F» 2  pitch       #Tap pitch (units per thread)
# —————————————————————————
#Move comment (pound) to output colon with program numbers
fmt  «O» 7  progno$     #Program number
#fmt «:» 7   progno$     #Program number
fmt  «O» 7  main_prg_no$ #Program number
#fmt «:» 7   main_prg_no$ #Program number
fmt  «O» 7  sub_prg_no$ #Program number
#fmt «:» 7   sub_prg_no$ #Program number
fmt  «X» 2  sub_trnsx$  #Rotation point
fmt  «Y» 2  sub_trnsy$  #Rotation point
fmt  «Z» 2  sub_trnsz$  #Rotation point
# —————————————————————————
fmt  «Q» 2  peck1$      #First peck increment (positive)
fmt  «Q» 2  shftdrl$    #Fine bore tool shift
fmt  «R» 2  refht_a     #Reference height
fmt  «R» 2  refht_i     #Reference height
# —————————————————————————
fmt «TOOL — »      4   tnote    #Note format
fmt «DIA. OFF. — » 4   toffnote #Note format
fmt «LEN. — »      4   tlngnote #Note format
fmt «TOOL DIA. — » 1   tldia$   #Note format
fmt «XY STOCK TO LEAVE — » 2  xy_stock #Note format 
fmt «Z STOCK TO LEAVE — »  2  z_stock  #Note format 
# —————————————————————————
fmt     4   year2       #Calculated year value
fmt     18  time2       #Capture 24-hour time value into ‘time2’ variable
fmt     19  hour        #Hour 
fmt     20  min         #Minutes
year2 = year$ + 2000

#endregion

#region Tool comment, tool table, manual entry output
# —————————————————————————
# Tool Comment / Manual Entry Section
# —————————————————————————
ptoolcomment    #Comment for tool
      tnote = t$, toffnote = tloffno$, tlngnote = tlngno$
      if tool_info = 1 | tool_info = 3,
        sopen_prn, pstrtool, sdelimiter, *tnote, sdelimiter, *toffnote, sdelimiter, *tlngnote, sdelimiter, *tldia$, sclose_prn, e$

ptooltable      #Tooltable output
      sopen_prn, *t$, sdelimiter, pstrtool, sdelimiter, *tlngno$,
        [if comp_type > 0 & comp_type < 4, sdelimiter, *tloffno$, sdelimiter, *scomp_type, sdelimiter, *tldia$],
        [if xy_stock <> 0 | z_stock <> 0, sdelimiter, *xy_stock, sdelimiter, *z_stock],
        sclose_prn, e$
      xy_stock = 0  #Reset stock to leave values
      z_stock = 0   #Reset stock to leave values

pstrtool        #Comment for tool
      if strtool$ <> sblank,
        [
        strtool$ = ucase(strtool$)
        *strtool$
        ]

pcomment$       #Comment from manual entry (must call pcomment2)
      pcomment2 #Required if doing boolean ‘if’ logic testing!

pcomment2       #Output Comment from manual entry
      scomm$ = ucase (scomm$)
      if gcode$ = 1005, sopen_prn, scomm$, sclose_prn, e$  #Manual entry — as comment
      if gcode$ = 1006, scomm$, e$                         #Manual entry — as code
      if gcode$ = 1007, sopen_prn, scomm$, sclose_prn      #Manual entry — as comment with move NO e$
      if gcode$ = 1026, scomm$                             #Manual entry — as code with move NO e$
      if gcode$ = 1008, sopen_prn, scomm$, sclose_prn, e$  #Operation comment
      if gcode$ = 1051, sopen_prn, scomm$, sclose_prn, e$  #Machine name
      if gcode$ = 1052, sopen_prn, scomm$, sclose_prn, e$  #Group comment
      if gcode$ = 1053, sopen_prn, scomm$, sclose_prn, e$  #Group name
      if gcode$ = 1054, sopen_prn, scomm$, sclose_prn, e$  #File Descriptor

#endregion

#region Header, date/time
# —————————————————————————
# Start of File and Toolchange Setup
# —————————————————————————
ptime           #Convert 24-hour time format into 12-hour AM/PM format
      if time$ >= 13, time2 = (time$ — 12)
      else, time2 = time$
      hour = int(time2), min = frac(time2)
      *hour, «:», *min,
      if time$ > 12, » PM»
      else, » AM»

pheader$         #Call before start of file                         
      if subs_before, » «, e$ #header character is output from peof when subs are output before main
      else, «%», e$
      sav_spc = spaces$
      spaces$ = 0
      *progno$, sopen_prn, sprogname$, sclose_prn, e$
      #sopen_prn, «PROGRAM NAME — «, sprogname$, sclose_prn, e$
      sopen_prn, «DATE=DD-MM-YY — «, date$, » TIME=HH:MM — «, time$, sclose_prn, e$ #Date and time output Ex. 12-02-05 15:52
      #sopen_prn, «DATE — «, month$, «-«, day$, «-«, year$, sclose_prn, e$  #Date output as month,day,year — Ex. 02-12-05
      #sopen_prn, «DATE — «, *smonth, » «, day$, » «, *year2, sclose_prn, e$ #Date output as month,day,year — Ex. Feb. 12 2005
      #sopen_prn, «TIME — «, time$, sclose_prn, e$  #24 hour time output — Ex. 15:52
      #sopen_prn, «TIME — «, ptime sclose_prn, e$  #12 hour time output 3:52 PM
      spathnc$ = ucase(spathnc$)
      smcname$ = ucase(smcname$)
      stck_matl$ = ucase(stck_matl$)
      snamenc$ = ucase(snamenc$)
      sopen_prn, «MCX FILE — «, *smcpath$, *smcname$, *smcext$, sclose_prn, e$
      sopen_prn, «NC FILE — «, *spathnc$, *snamenc$, *sextnc$, sclose_prn, e$
      sopen_prn, «MATERIAL — «, *stck_matl$, sclose_prn, e$
      spaces$ = sav_spc
#endregion

#region Start of file

psof0$           #Start of file for tool zero                        
      psof$

psof$            #Start of file for non-zero tool number             
      pcuttype
      toolchng = one
      if ntools$ = one,
        [
        #skip single tool outputs, stagetool must be on
        stagetool = m_one
        !next_tool$
        ]
      pbld, n$, *smetric, e$
      if convert_rpd$, pconvert_rpd
      pbld, n$, [if gcode$, *sgfeed], *sgcode, *sgplane, scc0, sg49, sg80, *sgabsinc, [if gcode$, *feed], e$
      sav_absinc = absinc$
      if mi1$ <= one, #Work coordinate system
        [
        absinc$ = one
        pfbld, n$, sgabsinc, *sg28ref, «Z0.», e$
        pfbld, n$, *sg28ref, «X0.», «Y0.», e$
        pfbld, n$, sg92, *xh$, *yh$, *zh$, e$
        absinc$ = sav_absinc
        ]
      pcom_moveb
      pcheckaxis
      c_mmlt$ #Multiple tool subprogram call
      ptoolcomment
      comment$
      pcan
      pbld, n$, *t$, sm06, e$
      pindex
      if mi1$ > one, absinc$ = zero
      if use_rot_lock & (cuttype <> zero | (index = zero & prv_cabs <> fmtrnd(cabs))), prot_unlock
      if convert_rpd$, pconvert_rpd
      pcan1, pbld, n$, [if gcode$, *sgfeed], *sgcode, *sgabsinc, pwcs, pfxout, pfyout, pfcout,
        [if nextdc$ <> 7, *speed, *spindle], pgear, [if gcode$, *feed], strcantext, e$
      if use_rot_lock & cuttype = zero, prot_lock
      pbld, n$, sg43, *tlngno$, pfzout, pscool, pstagetool, e$
      absinc$ = sav_absinc
      pbld, n$, sgabsinc, e$
      pcom_movea
      toolchng = zero
      c_msng$ #Single tool subprogram call

#endregion

#region Tool change

#region Null tool change
ptlchg0$         #Call from NCI null tool change (tool number repeats)                        
      pcuttype
      toolchng0 = one
      pcom_moveb
      pcheckaxis
      c_mmlt$ #Multiple tool subprogram call
      comment$
      pcan
      result = newfs(15, feed)  #Reset the output format for ‘feed’
      pbld, n$, sgplane, e$
      pspindchng
      pbld, n$, pscool, e$
      if use_rot_lock & (cuttype <> zero | (index = zero & prv_cabs <> fmtrnd(cabs))), prot_unlock
      if mi1$ > one & workofs$ <> prv_workofs$,
        [
        sav_absinc = absinc$
        absinc$ = zero
        pbld, n$, sgabsinc, pwcs, pfxout, pfyout, pfzout, pfcout, e$
        pe_inc_calc
        ps_inc_calc
        absinc$ = sav_absinc
        ]
      if cuttype = zero, ppos_cax_lin
      if gcode$ = one, plinout
      else, prapidout
      if use_rot_lock & cuttype = zero, prot_lock
      pcom_movea
      toolchng0 = zero
      c_msng$ #Single tool subprogram call
      !xnci$, !ynci$, !znci$

#endregion

#region Tool change / stage tool
ptlchg$          #Tool change                                        
      pcuttype
      toolchng = one
      if mi1$ = one, #Work coordinate system
        [
        pfbld, n$, *sg28ref, «X0.», «Y0.», e$
        pfbld, n$, sg92, *xh$, *yh$, *zh$, e$
        ]
      if prog_stop = 1, pbld, n$, *sm01, e$
      if prog_stop = 2, pbld, n$, *sm00, e$
      pcom_moveb
      pcheckaxis
      c_mmlt$ #Multiple tool subprogram call
      ptoolcomment
      comment$
      pcan
      result = newfs(15, feed)  #Reset the output format for ‘feed’
      pbld, n$, *t$, sm06, e$
      pindex
      sav_absinc = absinc$
      if mi1$ > one, absinc$ = zero
      if use_rot_lock & (cuttype <> zero | (index = zero & prv_cabs <> fmtrnd(cabs))), prot_unlock
      if convert_rpd$, pconvert_rpd
      pcan1, pbld, n$, [if gcode$, *sgfeed], *sgcode, *sgabsinc, pwcs, pfxout, pfyout, pfcout,
        [if nextdc$ <> 7, *speed, *spindle], pgear, [if gcode$, *feed], strcantext, e$
      if use_rot_lock & cuttype = zero, prot_lock
      pbld, n$, sg43, *tlngno$, pfzout, pscool, pstagetool, e$
      absinc$ = sav_absinc
      pbld, n$, sgabsinc, e$
      pcom_movea
      toolchng = zero
      c_msng$ #Single tool subprogram call
      !xnci$, !ynci$, !znci$

pstagetool      #Pre-stage tools
      if stagetool = 1,
        [
        if ttblend$,  #Check for last toolchange
          [
          if stagetltype = 1, *next_tool$  #stage first tool at last toolchange
          ]
        else, *next_tool$ #stage tool at every toolchange
        ]

#endregion

#End of Tool change region
#endregion

#region Retract at end of tool path, reference return
pretract        #End of tool path, toolchange
      sav_absinc = absinc$
      absinc$ = one
      sav_coolant = coolant$
      coolant$ = zero

#      if nextop$ = 1003, #Uncomment this line to leave coolant on until eof unless
        [                 #  explicitely turned off through a canned text edit
        if all_cool_off,
          [
          #all coolant off with a single off code here
          if coolant_on, pbld, n$, sall_cool_off, e$
          coolant_on = zero
          ]
        else,
          [
          local_int = zero
          coolantx = zero
          while local_int < 20 & coolant_on > 0,
            [
            coolantx = and(2^local_int, coolant_on)
            local_int = local_int + one
            if coolantx > zero,
              [
              coolantx = local_int
              pbld, n$, scoolantx, e$
              ]
            coolantx = zero
            ]
          coolant_on = zero
          ]
        ]
      #cc_pos is reset in the toolchange here
      cc_pos$ = zero
      gcode$ = zero
      if use_rot_lock & rot_on_x,
        [
        if (index = one & (prv_indx_out <> fmtrnd(indx_out)) | (prv_cabs <> fmtrnd(cabs)))
          | nextop$ = 1003 | frc_cinit, prot_unlock
        ]
      pbld, n$, sccomp, *sm05, psub_end_mny, e$
      if convert_rpd$, pconvert_rpd
      pbld, n$, [if gcode$, sgfeed], sgabsinc, sgcode, *sg28ref, «Z0.», [if gcode$, feed], scoolant, e$
      if nextop$ = 1003 | tlchg_home, pbld, n$, *sg28ref, «X0.», «Y0.», protretinc, e$
      else, pbld, n$, protretinc, e$
      absinc$ = sav_absinc
      coolant$ = sav_coolant

protretinc      #Reset the C axis revolution counter
      if frc_cinit & rot_on_x,
        [
        rev = zero
        sav_rev = zero
        cabs = zero
        csav = zero
        indx_out = zero
        if index, e$, pindxcalc, pindex
        else, *cabs
        prvcabs = zero
        !csav, !cabs
        ]

#endregion

#region End-of-file
peof0$           #End of file for tool zero               
      peof$

peof$            #End of file for non-zero tool           
      pretract
      comment$
      if stagetool = 1 & stagetltype = 2, pbld, n$, *first_tool$, e$
      n$, «M30», e$
      if subs_before, #Merge subs before main program
        [             #At this point, the NC / Main program level is blank (Main prg was written to ext with subs before)
        subout$ = zero
        «%», e$
        mergesub$     #Merge transform subs
        clearsub$
        mergeaux$     #Merge non-transform subs
        clearaux$
        mergeext$     #Merge NC / Main program
        clearext$
        ]
      else,           #Merge subs after main program
        [             #At this point, the NC / Main program is written (Main prg was written to NC level with subs after)
        mergesub$
        clearsub$
        mergeaux$
        clearaux$
        ]
      subout$ = zero
      «%», e$

#endregion

#region Work offsets, gear selection
pwcs            #G54+ coordinate setting at toolchange
      if mi1$ > one,
        [
        sav_frc_wcs = force_wcs
        if sub_level$ > 0, force_wcs = zero
        if workofs$ <> prv_workofs$ | (force_wcs & toolchng),
          [
          if workofs$ < 6,
            [
            g_wcs = workofs$ + 54
            *g_wcs
            ]
          else,
            [
            p_wcs = workofs$ — five
            «G54.1», *p_wcs
            ]
          ]
        force_wcs = sav_frc_wcs
        !workofs$
        ]

pgear           #Find spindle gear from lookup table
      if use_gear = one,
        [
        gear = frange (one, speed)
        *gear
        ]

#endregion

#region Tool change setup, spindle speed, tool end 
#Toolchange setup
pspindchng      #Spindle speed change
      if prv_spdir2 <> spdir2 & prv_speed <> zero, pbld, n$, *sm05, e$
      if prv_speed <> speed | prv_spdir2 <> spdir2,
        [
        if speed, pbld, n$, *speed, *spindle, pgear, e$
        ]
      !speed, !spdir2

pspindle        #Spindle speed calculations for RPM
      speed = abs(ss$)
      if speed,
        [
        if speed > maxss$, speed = maxss$
        if speed < min_speed, speed = min_speed
        ]
      spdir2 = fsg3(spdir$)

pq$              #Setup post based on switch settings
      stagetool = bldnxtool$  #Set stagetool from CD setting 
      result = newfs(11, cdelta_calc)  #Format for 3 place precision 

ptoolend$        #End of tool path, before reading new tool data               
      !speed, !spdir2

ptlchg1002$      #Call at actual toolchange, end last path here                        
      if op_id$ <> prv_op_id$, pset_mach   #Set rotary switches by reading machine def parameters
      if cuttype <> one, sav_rev = rev #Axis Sub does not update to rev
      pspindle
      whatline$ = four #Required for vector toolpaths
      if gcode$ = 1000,
        [
        #Null toolchange
        ]
      else,
        [
        #Toolchange and Start of file
        if gcode$ = 1002,
          [
          #Actual toolchange
          pretract
          ]
        if stagetool = one, prv_next_tool$ = m_one
        prv_xia = vequ(xh$)
        prv_feed = c9k
        ]
      !op_id$

#endregion

#region Motion output
# —————————————————————————
# Motion NC output
# —————————————————————————

#region NC output postblocks
# —————————————————————————
#The variables for absolute output are xabs, yabs, zabs.
#The variables for incremental output are xinc, yinc, zinc.
# —————————————————————————

prapidout       #Output to NC of linear movement — rapid               
      if convert_rpd$, pconvert_rpd
      pcan1, pbld, n$, [if gcode$, `sgfeed], sgplane, `sgcode, sgabsinc, pccdia,
        pxout, pyout, pzout, pcout, [if gcode$, `feed], strcantext, pscool, e$
      #Modify following line to customize output for high-speed toolpath
      #tool inspection/change points
      if rpd_typ$ = 7, pbld, n$, «M00», «(TOOL INSPECTION POINT — POST CUSTOMIZATION REQUIRED)», e$

plinout         #Output to NC of linear movement — feed                    
      pcan1, pbld, n$, sgfeed, sgplane, `sgcode, sgabsinc, pccdia,
        pxout, pyout, pzout, pcout, feed, strcantext, pscool, e$
      #Modify following line to customize output for high-speed toolpath
      #tool inspection/change points
      if rpd_typ$ = 7, pbld, n$, «M00», «(TOOL INSPECTION POINT — POST CUSTOMIZATION REQUIRED)», e$

pcirout         #Output to NC of circular interpolation
      pcan1, pbld, n$, `sgfeed, sgplane, sgcode, sgabsinc, pccdia,
        pxout, pyout, pzout, pcout, parc, feed, strcantext, pscool, e$

#endregion

#region Motion preparation routines
pcom_moveb      #Common motion preparation routines, before
      pxyzcout
      ps_inc_calc

pncoutput       #Movement output
      pcom_moveb
      comment$
      pcan
      if mr_rt_actv,
        [
        !cabs, !cinc #No rotary in sub
        ]
      else,
        [
        if cuttype = zero, ppos_cax_lin #Toolplane rotary positioning
        ]

      if gcode$ = zero, prapidout
      if gcode$ = one, plinout
      if gcode$ > one & gcode$ < four, pcirout
      if mr_rt_rst, #Restore absolute/incremental for G51/G68
        [
        absinc$ = sav_absinc
        mr_rt_rst = zero
        ]
      pcom_movea

pcom_movea      #Common motion preparation routines, after
      pcan2
      pe_inc_calc

pdwl_spd$        #Call from NCI gcode 4
      pspindle
      comment$
      pspindchng
      pcan
      if fmtrnd(dwell$), pcan1, pbld, n$, *sgcode, *dwell$, strcantext, e$
      else, pcan1, pbld, n$, strcantext, e$
      pcan2

prapid$          #Output to NC of linear movement — rapid               
      pncoutput

pzrapid$         #Output to NC of linear movement — rapid Z only    
      pncoutput

plin$            #Output to NC of linear movement — feed                    
      pncoutput

pz$              #Output to NC of linear movement — feed Z only          
      pncoutput

pmx$             #Output to NC of vector NCI          
      pncoutput

pcir$            #Output to NC of circular interpolation                                
      pncoutput

#Pre-process rotary motion control flags
pmx0$            #5 axis gcode setup
      if drillcur$ = zero,
        [
        if fr$ = -2, gcode$ = zero
        else, gcode$ = one
        ]

plin0$           #Linear movement, mill motion test                                
      pmotion_su

pcir0$           #Circular interpolation, mill arc motion test                                
      pmotion_su

#endregion

#region Motion output components
# —————————————————————————
# Motion output components
# —————————————————————————
pbld            #Canned text — block delete
      if bld, ‘/’

pfbld           #Force — block delete
      «/»

pccdia          #Cutter Compensation
      #Force Dxx#   
      if prv_cc_pos$ <> cc_pos$ & cc_pos$, prv_tloffno$ = c9k
      sccomp
      if cc_pos$, tloffno$

pscool          #Coolant output
      scoolant   #Old style coolant — based on NCI variable «coolant$»
      pcan1_cool #X style coolant — based on Canned Text coolant

pfxout          #Force X axis output
      if absinc$ = zero, *xabs, !xinc
      else, *xinc, !xabs

pxout           #X output
      if absinc$ = zero, xabs, !xinc
      else, xinc, !xabs

pfyout          #Force Y axis output
      if absinc$ = zero, *yabs, !yinc
      else, *yinc, !yabs

pyout           #Y output
      if absinc$ = zero, yabs, !yinc
      else, yinc, !yabs

pfzout          #Force Z axis output
      if absinc$ = zero, *zabs, !zinc
      else, *zinc, !zabs

pzout           #Z output
      if absinc$ = zero, zabs, !zinc
      else, zinc, !zabs

pfcout          #Force C axis output 
      if index = zero & rot_on_x,
        [
        if use_rotmcode & cabs <> prv_cabs, *sindx_mc
        if absinc$ = zero, *cabs, !cinc
        else, *cinc, !cabs
        ]

pcout           #C axis output
      if index = zero & rot_on_x,
        [
        if use_rotmcode & cabs <> prv_cabs, *sindx_mc
        if absinc$ = zero, cabs, !cinc
        else, cinc, !cabs
        ]

pindex          #Index output
      if index & rot_on_x,
        [
        if (prv_indx_out <> fmtrnd(indx_out)) | (prv_cabs <> fmtrnd(cabs)),
          [
          if use_rot_lock, prot_unlock
          pbld, n$, [if use_rotmcode, `sindx_mc], *indx_out, e$
          !cabs, !cinc
          ]
        if use_rot_lock, prot_lock
        ]

prot_unlock     #Unlock Rotary axis
      rot_locked = zero
      pbld, n$, srot_lock, e$

prot_lock       #Lock Rotary axis
      if nextop$ <> 1003,
        [
        rot_locked = one
        pbld, n$, srot_lock, e$
        ]

parc            #Select the arc output
      if (plane$ = zero & (arctype$ = one | arctype$ = four)) |   #XY Plane
        (plane$ = one & (arctypeyz$ = one | arctypeyz$ = four)) | #YZ Plane
        (plane$ = two & (arctypexz$ = one | arctypexz$ = four)),  #XZ Plane
        [
        result = newfs(two, iout)
        result = newfs(two, jout)
        result = newfs(two, kout)
        ]
      else,
        [
        result = newfs(three, iout)
        result = newfs(three, jout)
        result = newfs(three, kout)
        ]
      if (plane$ = 0 & arctype$ < five) | (plane$ = 1 & arctypeyz$ < five) |
        (plane$ = 2 & arctypexz$ < five) | full_arc_flg$ | arc_pitch$,
        [
        #Arc output for IJK
        # If you do NOT want to force out the I,J,K values,
        # remove the «*» asterisks on the *i, *j, *k ‘s below…
        if plane$ = zero, *iout, *jout, kout #XY plane code — G17
        if plane$ = one, iout, *jout, *kout  #YZ plane code — G19
        if plane$ = two, *iout, jout, *kout  #XZ plane code — G18
        !i$, !j$, !k$
        ]
      else,
        [
        #Arc output for R
        if abs(sweep$)<=180 | (plane$ = 0 & arctype$ = five) | (plane$ = 1 & arctypeyz$ = five) |
          (plane$ = 2 & arctypexz$ = five), result = nwadrs(srad, arcrad$)
        else, result = nwadrs(srminus, arcrad$)
        *arcrad$
        ]

ppos_cax_lin    #Position the rotary axis before move — rapid
      if index, pindex
      else,
        [
        if fmtrnd(prv_cabs) <> fmtrnd(cabs) & rot_on_x,
          [
          sav_gcode = gcode$
          gcode$ = zero
          if convert_rpd$, pconvert_rpd
          pbld, n$, [if gcode$, sgfeed], sgcode, pcout, [if gcode$, feed], e$
          !cia
          ps_cinc_calc
          gcode$ = sav_gcode
          ]
        ]

#endregion

#End of Motion output region
#endregion

#region Drilling

#region Canned drill cycles, pre-process, first hole 

# —————————————————————————
# Drilling
# —————————————————————————
pdrill0$         #Pre-process before drill call
      sav_dgcode = gcode$ #Capture gcode for 5 axis drill

pdrlcommonb     #Canned Drill Cycle common call, before
      if initht$ <> refht$, drillref = zero
      else, drillref = one
      if sav_dgcode = 81,
        [
        result = newfs(two, zinc)
        if drillcyc$ = three | drillcyc$ = 7, drlgsel = fsg1(-ss$) + drillcyc$ * two
        else, drlgsel = fsg2(dwell$) + drillcyc$ * two
        prv_refht_a = c9k
        prv_refht_i = c9k
        prv_dwell$ = zero
        prv_shftdrl$ = zero
        ]
      if cuttype = three, sav_dgcode = gcode$
      else, z$ = depth$
      if cuttype = one, prv_zia = refht$ + (rotdia$/two)
      else, prv_zia = refht$
      pcom_moveb
      feed = fr_pos$
      comment$
      pcan
      #5 axis must map the true Z, correct Z calculation here
      if cuttype = three,
        [
        prv_zia = zabs + (-depth$) + refht$
        zia = fmtrnd(zabs)
        zinc = zia — prv_zia
        ]

prdrlout        #R drill position
      if cuttype = one, refht_a = refht$ + (rotdia$ / two)
      else, refht_a = refht$
      refht_i = refht$ — initht$
      if cuttype = three, refht_a = w$
      if absinc$ = zero, refht_a, !refht_i
      else, refht_i, !refht_a

pdrill$          #Canned Drill Cycle
      pdrlcommonb
      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout, pcout,
        prdrlout, dwell$, *feed, strcantext, e$
      pcom_movea

ppeck$           #Canned Peck Drill Cycle
      pdrlcommonb
      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout, pcout,
        prdrlout, *peck1$, *feed, strcantext, e$
      pcom_movea

pchpbrk$         #Canned Chip Break Cycle
      pdrlcommonb
      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout, pcout,
        prdrlout, *peck1$, *feed, strcantext, e$
      pcom_movea

ptap$            #Canned Tap Cycle
      pdrlcommonb
      result = newfs(17, feed)  # Set for tapping Feedrate format
      if met_tool$,
        [
        if toolismetric, pitch = n_tap_thds$  #Metric NC Code — Metric Tap
        else, pitch = (1/n_tap_thds$) * 25.4  #Metric NC Code — English Tap
        ]
      else,
        [
        if toolismetric, pitch = n_tap_thds$ * (1/25.4)  #English NC Code — Metric Tap
        else, pitch = 1/n_tap_thds$           #English NC Code — English Tap
        ]
      pitch = pitch * speed #Force Units Per Minute for regular Tap cycle
      pbld, n$, sg94, e$
      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout, pcout,
        prdrlout, *pitch, !feed, strcantext, e$
      pcom_movea

pbore1$          #Canned Bore #1 Cycle
      pdrlcommonb
      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout, pcout,
        prdrlout, dwell$, *feed, strcantext, e$
      pcom_movea

pbore2$          #Canned Bore #2 Cycle
      pdrlcommonb
      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout, pcout,
        prdrlout, *feed, strcantext, e$
      pcom_movea

pmisc1$          #Canned Fine Bore (shift) Cycle
      pdrlcommonb
      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout, pcout,
        prdrlout, shftdrl$, dwell$, *feed, strcantext, e$
      pcom_movea

pmisc2$          #Canned Rigid Tapping Cycle
      pdrlcommonb
      #RH/LH based on spindle direction
      if met_tool$,
        [
        if toolismetric, pitch = n_tap_thds$  #Metric NC Code — Metric Tap
        else, pitch = (1/n_tap_thds$) * 25.4  #Metric NC Code — English Tap
        ]
      else,
        [
        if toolismetric, pitch = n_tap_thds$ * (1/25.4)  #English NC Code — Metric Tap
        else, pitch = 1/n_tap_thds$           #English NC Code — English Tap
        ]
      if tap_feedtype = 0,
        [
        pitch = pitch * speed
        pbld, n$, sg94, e$
        ]
      else, pbld, n$, sg95, e$
      pbld, n$, sm29, *speed, e$
      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout,
        prdrlout, *pitch, !feed, strcantext, e$
      pcom_movea

#endregion

#region Custom drill cycles (cycles 8-19), first hole
pdrlcst$         #Custom drill cycles 8 — 19 (user option)
      #Use this postblock to customize drilling cycles 8 — 19
      if drillcyc$ = 8, pdrlcst8
      else,
        [
        pdrlcommonb
        sopen_prn, «CUSTOMIZABLE DRILL CYCLE — NOT CONFIGURED — FIRST HOLE», sclose_prn, e$
        pcom_movea
        ]

pdrlcst8         #Custom drill cycle 8 — example custom cycle
      pdrlcommonb
      sopen_prn, «CUSTOMIZABLE DRILL CYCLE EXAMPLE — FIRST HOLE», sclose_prn, e$
      pcan1, pbld, n$, *sgdrlref, *sgdrill, pxout, pyout, pfzout, pcout,
        prdrlout, shftdrl$, dwell$, *feed, strcantext, e$
      pcom_movea

#endregion

#region Canned drill cycles (additional holes)
# Additional Holes
pdrill_2$        #Canned Drill Cycle, additional points
      pdrlcommonb
      pcan1, pbld, n$, pxout, pyout, pzout, pcout, prdrlout, feed, strcantext, e$
      pcom_movea

ppeck_2$         #Canned Peck Drill Cycle
      pdrill_2$

pchpbrk_2$       #Canned Chip Break Cycle
      pdrill_2$

ptap_2$          #Canned Tap Cycle
      pdrill_2$

pbore1_2$        #Canned Bore #1 Cycle
      pdrill_2$

pbore2_2$        #Canned Bore #2 Cycle
      pdrill_2$

pmisc1_2$        #Canned Fine Bore (shift) Cycle
      pdrill_2$

pmisc2_2$        #Canned Rigid Tapping Cycle
      pdrlcommonb
      pcan1, pbld, n$, pxout, pyout, pzout, pcout, prdrlout, strcantext, e$
      pcom_movea
#endregion

#region Custom drill cycles (cycles 8-19), additional holes
pdrlcst_2$       #Custom drill cycles 8 — 19, additional points (user option)     
      #Use this postblock to customize drilling cycles 8 — 19
      if drillcyc$ = 8, pdrlcst8_2
      else,
        [
        sopen_prn, «CUSTOMIZABLE DRILL CYCLE — NOT CONFIGURED — NEXT HOLE», sclose_prn, e$
        pdrill_2$
        ]

pdrlcst8_2       #Custom drill cycle 8 — example custom cycle
      sopen_prn, «CUSTOMIZABLE DRILL CYCLE EXAMPLE — NEXT HOLE», sclose_prn, e$
      pdrill_2$
#endregion

#region Cancel canned drill cycle 
pcanceldc$       #Cancel canned drill cycle
      result = newfs(three, zinc)
      z$ = initht$
      if cuttype = one, prv_zia = initht$ + (rotdia$/two)
      else, prv_zia = initht$
      pxyzcout
      !zabs, !zinc
      prv_gcode$ = zero
      pcan
      pcan1, pbld, n$, sg80, strcantext, e$
      if (drillcyc$ = 3 | drillcyc$ = 7) & tap_feedtype, pbld, n$, sg94, e$
      result = newfs(15, feed)  #Reset the output format for ‘feed’      
      pcan2

#endregion

#end of Drilling region
#endregion

#region Subprograms
# —————————————————————————
#Subprogram postblocks
#sub_trnstyp — 0=mirror, 1=rotate, 2=scale, 3=translate
#sub_trnmthd (mirror) — 0=X axis, 1=Y axis, 2=line
#sub_trnmthd (rotate) — 0=tplane, 1=tplane origin only, 2=coordinates
# —————————————————————————
psub_call_m$     #Call to main level, single tool
      psub_call_trans

psub_call_mm$    #Call to main level, multiple tools
      psub_call_trans

psub_call_trans #Translate level calls from toolchange, user
      if mi1$ <= one, result = mprint(shomeserror)
      sav_absinc = absinc$
      pindex
      #Mirror or Rotate Coord’s
      if sub_trnstyp$ = zero, mr_rt_actv = three  #Mirror
      if mr_rt_actv,
        [
        if sub_trnstyp$ = zero,
          [
          #The original pattern is not mirrored
          if sub_chn_no$ <> one,
            [
            absinc$ = zero
            psub_mirror
            ]
          ]
        else,
          [
          #The original pattern is not rotated, calculate the rotation incremental angle for G68
          rt_csav = atan2(sub_m2$, sub_m1$)
          if sub_sec_no$,
            [
            rt_cinc = prv_rt_csav — rt_csav
            while rt_cinc > 180, rt_cinc = rt_cinc — 360
            while rt_cinc < -180, rt_cinc = rt_cinc + 360
            if rot_ccw_pos = one, rt_cinc = -rt_cinc
            !rt_csav
            absinc$ = zero
            psub_rotate
            ]
          else,
            [
            !rt_csav
            ]
          ]
        #Set restore flag and sign mr_rt_actv to indicate active
        mr_rt_rst = one
        mr_rt_actv = -abs(mr_rt_actv)
        ]
      else, #Translate all, Rotate toolplane
        [
        if sub_mny_t$,
          [
          if mi1$ > one, absinc$ = zero
          if convert_rpd$, pconvert_rpd
          pbld, n$, [if gcode$, *sgfeed], *sgcode, *sgabsinc, pwcs, pfxout, pfyout, pfzout, pfcout, [if gcode$, *feed], e$
          pe_inc_calc
          ps_inc_calc
          ]
        ]
      absinc$ = sav_absinc
      result = nwadrs(strp, main_prg_no$)
      if progno$ = main_prg_no$, result = mprint(sprgnerror)
      pbld, n$, «M98», *main_prg_no$, e$
      prv_feed = c9k #Force feed in sub

psub_mirror     #Mirror start code, user
      #Mirror Y axis
      if sub_trnmthd$, pbld, n$, *sgabsinc, strns_mir_on, *sub_trnsx$, e$
      #Mirror X axis
      else, pbld, n$, *sgabsinc, strns_mir_on, *sub_trnsy$, e$

psub_rotate     #Rotate start code, user
      if convert_rpd$, pconvert_rpd
      pbld, n$, [if gcode$, *sgfeed], *sgcode, *sgabsinc, strns_rot_on, *sub_trnsx$, *sub_trnsy$,
        [absinc$ = one], *sgabsinc, *rt_cinc, [if gcode$, *feed], e$

psub_st_m$       #Header in main level
      result = nwadrs(stro, main_prg_no$)
      if first_sub & subs_before, first_sub = zero #suppress blank line before first sub with subs before main
      else, » «, e$
      *main_prg_no$, e$
      #G51/G68 requires absolute position on first move
      if mr_rt_rst,
        [
        sav_absinc = absinc$
        if absinc$ = one,
          [
          absinc$ = zero
          prv_absinc$ = m_one
          prv_xabs = m_one
          prv_yabs = m_one
          ]
        ]
      else, pbld, n$, sgabsinc, e$

psub_end_m$      #End in main level
      n$, «M99», e$
      prv_absinc$ = m_one
      #Reset update variables for subs at main level
      #Mirror or Rotate cancel, flagged cleared on return
      if mr_rt_actv,
        [
        subout$ = zero
        no_nc_out$ = m_one
        sav_absinc = absinc$
        if sub_trnstyp$ = zero,
          [
          #The original pattern is not cancelled
          if sub_chn_no$ <> one,
            [
            absinc$ = zero
            pbld, n$, *sgabsinc, strns_mir_off, *sub_trnsx$, *sub_trnsy$, e$
            ]
          ]
        else, #Rotate
          [
          #The original pattern is not cancelled
          if sub_trnstyp$ = one & sub_trnmthd$ = two & esub_sec_no$,
            [
            absinc$ = zero
            pbld, n$, strns_rot_off, e$
            ]
          ]
        absinc$ = sav_absinc
        no_nc_out$ = zero
        mr_rt_rst = zero
        mr_rt_actv = zero
        ]
      end_sub_mny = sub_mny_t$

psub_end_mny    #End in main level for many tools sub, user
      #Check for coming out of xform with stage tool.
      if end_sub_mny & stagetool = one,
        [
        *t$
        end_sub_mny = zero
        ]

psub_call_s$     #Call to sub level
      result = nwadrs(strp, sub_prg_no$)
      sub_prg_no$ = sub_prg_no$ + 1000 #Add sub number offset
      if progno$ = sub_prg_no$, result = mprint(sprgnerror)
      pbld, n$, «M98», *sub_prg_no$, e$

psub_st_s$       #Header in sub leveln
      result = nwadrs(stro, sub_prg_no$)
      if first_sub & subs_before, first_sub = zero #suppress blank line before first sub with subs before main
      else, » «, e$
      *sub_prg_no$, e$
      pbld, n$, sgabsinc, e$

psub_end_s$      #End in sub level
      n$, «M99», e$
      prv_absinc$ = -1
#endregion

#region Canned text
# —————————————————————————
# Canned Text 
# —————————————————————————
pcan            #Canned text — before output call
      strcantext = sblank
      if cant_no$ > zero,
        [
        if cant_pos1$ = zero | cant_pos1$ = three, pcant_1
        if cant_pos2$ = zero | cant_pos2$ = three, pcant_2
        if cant_pos3$ = zero | cant_pos3$ = three, pcant_3
        if cant_pos4$ = zero | cant_pos4$ = three, pcant_4
        if cant_pos5$ = zero | cant_pos5$ = three, pcant_5
        if cant_pos6$ = zero | cant_pos6$ = three, pcant_6
        if cant_pos7$ = zero | cant_pos7$ = three, pcant_7
        if cant_pos8$ = zero | cant_pos8$ = three, pcant_8
        if cant_pos9$ = zero | cant_pos9$ = three, pcant_9
        if cant_pos10$ = zero | cant_pos10$ = three, pcant_10
        if cant_pos11$ = zero | cant_pos11$ = three, pcant_11
        if cant_pos12$ = zero | cant_pos12$ = three, pcant_12
        if cant_pos13$ = zero | cant_pos13$ = three, pcant_13
        if cant_pos14$ = zero | cant_pos14$ = three, pcant_14
        if cant_pos15$ = zero | cant_pos15$ = three, pcant_15
        if cant_pos16$ = zero | cant_pos16$ = three, pcant_16
        if cant_pos17$ = zero | cant_pos17$ = three, pcant_17
        if cant_pos18$ = zero | cant_pos18$ = three, pcant_18
        if cant_pos19$ = zero | cant_pos19$ = three, pcant_19
        if cant_pos20$ = zero | cant_pos20$ = three, pcant_20
        pbld, n$, strcantext, e$
        strcantext = sblank
        ]

pcan1           #Canned text — with move
      strcantext = sblank
      if cant_no$ > zero,
        [
        if cant_pos1$  = one, pcant_1
        if cant_pos2$  = one, pcant_2
        if cant_pos3$  = one, pcant_3
        if cant_pos4$  = one, pcant_4
        if cant_pos5$  = one, pcant_5
        if cant_pos6$  = one, pcant_6
        if cant_pos7$  = one, pcant_7
        if cant_pos8$  = one, pcant_8
        if cant_pos9$  = one, pcant_9
        if cant_pos10$ = one, pcant_10
        if cant_pos11$ = one, pcant_11
        if cant_pos12$ = one, pcant_12
        if cant_pos13$ = one, pcant_13
        if cant_pos14$ = one, pcant_14
        if cant_pos15$ = one, pcant_15
        if cant_pos16$ = one, pcant_16
        if cant_pos17$ = one, pcant_17
        if cant_pos18$ = one, pcant_18
        if cant_pos19$ = one, pcant_19
        if cant_pos20$ = one, pcant_20
        ]
      if cstop$, strcantext = strcantext + sm00
      if cgstop$, strcantext = strcantext + sm01
      #Output of strcantext occurs at the end of the output line 

pcan1_cool      #Canned text Coolant — with move
      if cant_no$ > zero,
        [
        if cant_pos1$  = four, pcant_1
        if cant_pos2$  = four, pcant_2
        if cant_pos3$  = four, pcant_3
        if cant_pos4$  = four, pcant_4
        if cant_pos5$  = four, pcant_5
        if cant_pos6$  = four, pcant_6
        if cant_pos7$  = four, pcant_7
        if cant_pos8$  = four, pcant_8
        if cant_pos9$  = four, pcant_9
        if cant_pos10$ = four, pcant_10
        if cant_pos11$ = four, pcant_11
        if cant_pos12$ = four, pcant_12
        if cant_pos13$ = four, pcant_13
        if cant_pos14$ = four, pcant_14
        if cant_pos15$ = four, pcant_15
        if cant_pos16$ = four, pcant_16
        if cant_pos17$ = four, pcant_17
        if cant_pos18$ = four, pcant_18
        if cant_pos19$ = four, pcant_19
        if cant_pos20$ = four, pcant_20
        ]

pcan2           #Canned text — after output call
      strcantext = sblank
      if cant_no$ > zero,
        [
        if cant_pos1$ = two | cant_pos1$ = five, pcant_1
        if cant_pos2$ = two | cant_pos2$ = five, pcant_2
        if cant_pos3$ = two | cant_pos3$ = five, pcant_3
        if cant_pos4$ = two | cant_pos4$ = five, pcant_4
        if cant_pos5$ = two | cant_pos5$ = five, pcant_5
        if cant_pos6$ = two | cant_pos6$ = five, pcant_6
        if cant_pos7$ = two | cant_pos7$ = five, pcant_7
        if cant_pos8$ = two | cant_pos8$ = five, pcant_8
        if cant_pos9$ = two | cant_pos9$ = five, pcant_9
        if cant_pos10$ = two | cant_pos10$ = five, pcant_10
        if cant_pos11$ = two | cant_pos11$ = five, pcant_11
        if cant_pos12$ = two | cant_pos12$ = five, pcant_12
        if cant_pos13$ = two | cant_pos13$ = five, pcant_13
        if cant_pos14$ = two | cant_pos14$ = five, pcant_14
        if cant_pos15$ = two | cant_pos15$ = five, pcant_15
        if cant_pos16$ = two | cant_pos16$ = five, pcant_16
        if cant_pos17$ = two | cant_pos17$ = five, pcant_17
        if cant_pos18$ = two | cant_pos18$ = five, pcant_18
        if cant_pos19$ = two | cant_pos19$ = five, pcant_19
        if cant_pos20$ = two | cant_pos20$ = five, pcant_20
        pbld, n$, strcantext, e$
        strcantext = sblank
        ]

pcant_1         #Canned text — output call
      cant_pos = cant_pos1$
      cantext$ = cant_val1$
      pcant_out

pcant_2         #Canned text — output call
      cant_pos = cant_pos2$
      cantext$ = cant_val2$
      pcant_out

pcant_3         #Canned text — output call
      cant_pos = cant_pos3$
      cantext$ = cant_val3$
      pcant_out

pcant_4         #Canned text — output call
      cant_pos = cant_pos4$
      cantext$ = cant_val4$
      pcant_out

pcant_5         #Canned text — output call
      cant_pos = cant_pos5$
      cantext$ = cant_val5$
      pcant_out

pcant_6         #Canned text — output call
      cant_pos = cant_pos6$
      cantext$ = cant_val6$
      pcant_out

pcant_7         #Canned text — output call
      cant_pos = cant_pos7$
      cantext$ = cant_val7$
      pcant_out

pcant_8         #Canned text — output call
      cant_pos = cant_pos8$
      cantext$ = cant_val8$
      pcant_out

pcant_9         #Canned text — output call
      cant_pos = cant_pos9$
      cantext$ = cant_val9$
      pcant_out

pcant_10        #Canned text — output call
      cant_pos = cant_pos10$
      cantext$ = cant_val10$
      pcant_out

pcant_11        #Canned text — output call
      cant_pos = cant_pos11$
      cantext$ = cant_val11$
      pcant_out

pcant_12        #Canned text — output call
      cant_pos = cant_pos12$
      cantext$ = cant_val12$
      pcant_out

pcant_13        #Canned text — output call
      cant_pos = cant_pos13$
      cantext$ = cant_val13$
      pcant_out

pcant_14        #Canned text — output call
      cant_pos = cant_pos14$
      cantext$ = cant_val14$
      pcant_out

pcant_15        #Canned text — output call
      cant_pos = cant_pos15$
      cantext$ = cant_val15$
      pcant_out

pcant_16        #Canned text — output call
      cant_pos = cant_pos16$
      cantext$ = cant_val16$
      pcant_out

pcant_17        #Canned text — output call
      cant_pos = cant_pos17$
      cantext$ = cant_val17$
      pcant_out

pcant_18        #Canned text — output call
      cant_pos = cant_pos18$
      cantext$ = cant_val18$
      pcant_out

pcant_19        #Canned text — output call
      cant_pos = cant_pos19$
      cantext$ = cant_val19$
      pcant_out

pcant_20        #Canned text — output call
      cant_pos = cant_pos20$
      cantext$ = cant_val20$
      pcant_out

pcant_out       #Canned text — build the string for output
      #Assign string select type outputs
      if cant_pos < three, #cant_pos indicates canned text output
        [
        if cantext$ = three, bld = one
        if cantext$ = four, bld = zero
        #Build the cantext string
        if cantext$ = one, strcantext = strcantext + sm00
        if cantext$ = two, strcantext = strcantext + sm01
        if cantext$ > four,
          [
          strtextno = no2str(cantext$)
          strcantext = strcantext + strm + strtextno
          ]
        ]
      else, #cant_pos indicates coolant output
        [
        coolant_bin = flook (two, cantext$) #Create binary value for each coolant using lookup table
        if frac(cantext$/two),  # coolant off
          [
          if all_cool_off,
            [
            if coolant_on, pbld, n$, sall_cool_off, e$
            coolant_on = zero
            ]
          else,
            [
            if coolant_on > 0,
              [
              coolant_on = coolant_on — coolant_bin/2 #Odd = off command, subtract appropriate binary value.
              coolantx = cantext$ — 50                #Create a coolantx value for string select
              pbld, n$, *scoolantx, e$
              ]
            ]
          ]
        else,                                         #Even = on command
          [   #Determine if this coolant is already on
          local_int = zero
          coolantx = zero
          suppress = zero
          while local_int < 20 & coolant_on > 0,
            [
            result2 = and(2^local_int, coolant_on)
            local_int = local_int + one
            if result2 = coolant_bin, suppress = one
            ]
          if suppress <> 1, #Don’t output an on code for a coolant that is already on
            [
            coolant_on = coolant_on + coolant_bin #Maintain binary sum of all coolants currently on
            coolantx = cantext$ — 50              #Create a coolantx value for string select
            if cant_pos = four, *scoolantx        #Coolant «With»
            else, pbld, n$, *scoolantx, e$        #Coolant «Before» or «After»
            ]
          ]
        ]

#endregion

#region Calculations

#region Position calculations
# —————————————————————————
# Position calculations, generally these do not need to be modified
# —————————————————————————
pmiscint$        #Capture the top level absinc for subprograms
      if sub_level$ <= zero, absinc$ = mi2$
      #Disable cutpos2 if not 4 axis, saves time
      if rot_on_x = zero, cutpos2$ = m_one

pmotion_su      #Motion Setup (Set brklinestype & linarc)
      brklinestype$ = zero
      linarc$ = zero
      if rot_on_x,
        [
        if cuttype = one,  #Axis Substitution 
          [
          linarc$ = one  #Linearize all arcs
          if rev_brkflag,  #Break rotation flag (set in pcoutrev)
            [
            brklinestype$ = 11  #Break all lines, use brklineslen$ for segment length
            #brklineslen$ = pi$ * rotdia$        #Break every 360 degrees
            brklineslen$ = pi$ * rotdia$ / four  #Break every 90 degrees
            rev_brkflag = zero  #Reset flag
            ]
          ]
        if cuttype = two, #Polar
          [
          brklinestype$ = rotary_axis$ + three
          linarc$ = one
          ]
        ]

pcuttype   #Determine the cut type
      #cuttype (0 = Tool Plane, 1 = Axis Subs,  2 = Polar, 3 = 4/5 axis)
      cuttype = rotary_type$
      if cuttype = three, cuttype = zero
      if mill5$, cuttype = three
      if cuttype = zero & force_index, index = 1  #If tool plane positioning & force index mode
      else, index = rot_index                     #otherwise use machine def. rotary axis setting
      #Check for Tool Origin in Polar Milling
      if cuttype = two & (tox$ | toy$ | toz$), result = mprint(stlorgerr)
      #Avoid calling G51/G68 with additional toolchanges
      if mr_rt_actv = zero,
        [
        #Transform Rotate, set mr_rt_actv if user selected ‘coordinates’ 
        #Mirror is set on sub call
        if sub_trnstyp$ = one & sub_trnmthd$ = two,
          [
          if sub_sec_no$, mr_rt_actv = two
          else, mr_rt_actv = one
          ]
        ]
      pfcalc_u_min
      pmotion_su

pcheckaxis      #Check for valid rotary axis
      #If selected axis combination has more than 1 rotary axis and toolpath has rotation
      if (cabs | cdelta | cuttype) & rotaxerror = 1, [if mprint(srotaxerror, 2) = 2, exitpost$]

      #If machine’s defined axis of rotation does not match operations axis of rotation
#      if (rotary_axis$ & (rotary_axis$ <> rot_on_x)) | (rotary_axis2 <> c9k &
#        ((rotary_axis2 + 1) <> rot_on_x)), [if mprint(saxiserror, 2) = 2, exitpost$]
#      rotary_axis2 = c9k

pxyzcout        #Map coordinates
      if rot_on_x,
        [
        if cuttype = zero, pxyzcout0    #Toolplane Positioning
        if cuttype = one, pxyzcout1     #Axis Substitution
        if cuttype = two, pxyzcout2     #Polar Conversion
        if cuttype = three, pxyzcout3   #Simulatneous 4 axis (Multi-axis)
        if rot_ccw_pos = one, csav = -csav
        if mr_rt_actv <> two,
          [
          pcoutrev
          if index, pindxcalc
          pfcalc
          ]
        else, feed = fr_pos$
        ]
      else,
        [
        xabs = vequ(x$)
        iout = vequ(i$)
        feed = fr_pos$
        ]

pxyzcout0       #Toolplane Positioning
      xabs = vequ(x$)
      iout = vequ(i$)
      if rot_on_x = two, csav = -c$
      else, csav = c$

pxyzcout1       #Axis substitution
      if rot_on_x = one, #X axis substitution
        [
        xabs = x$
        yabs = zero
        zabs = z$ + (rotdia$ / two)
        csav =  y$ * (360 / (pi$ * rotdia$))
        ]
      else, #Y axis substitution
        [
        xabs = zero
        yabs = y$
        zabs = z$ + (rotdia$ / two)
        csav =  x$ * (360 / (pi$ * rotdia$))
        ]
      #Reverse direction if needed
      if (rot_ccw_pos = 0 & rotaxis_dir$ = 1) | (rot_ccw_pos = 1 & rotaxis_dir$ = 0), csav = -csav

pxyzcout2       #polar interpolation
      #Drill polar is toolplane drilling toward center
      #if not a coincident axis
      #Also, Capture initial index position for Polar Milling
      if (opcode$ = three & rot_on_x <> three), pxyzcout0
      else,
        [
        if rot_on_x = one, #X axis rotation
          [
          csav = atan2(y$, z$)   #Z+ zero
          axisx$ = vequ(aaxisx)
          xabs = rotp(csav, x$)
          ]
        if rot_on_x = two, #Y axis rotation
          [
          csav = atan2(-x$, z$)   #Z+ zero
          axisx$ = vequ(baxisx)
          xabs = rotp(csav, x$)
          ]
        if rot_on_x = three, #Z axis rotation
          [
          csav = atan2(-y$, x$)   #X+ zero 
          axisx$ = vequ(caxisx)
          xabs = rotp(csav, x$)
          ]
        csav = csav + c$
        ]

pxyzcout3       #Multisurf rotary axis motion
      if rot_on_x = one, #Multisurf Rotary about X
        [
        csav = atan2 (vtooly$, vtoolz$)
        axisx$ = vequ (aaxisx)
        ]
      if rot_on_x = two, #Multisurf Rotary about Y
        [
        csav = atan2 (-vtoolx$, vtoolz$)
        axisx$ = vequ (baxisx)
        ]
      xabs = rotp (csav, x$)
      u$ = rotp (csav, u$)
      csav = csav + c$

#endregion

#region Rotary axis revolution / index calculations
pcoutrev        #Rotary axis revolution calculation (Modify for wind-up)
      cdelta = csav — prv_csav
      if cuttype = one & rot_type > zero & not(index) & toolchng = zero & toolchng0 = zero,  #Axis sub and signed direction or shortesat direction
        [
        cdelta_calc = abs(cdelta)
        cdelta_calc = fmtrnd(cdelta_calc)
        if cdelta_calc > 360,  #Break rotary motion  
          [
          rev_brkflag = one  #Break every 90 or 360 degrees (see plin0$)
          redo_proc$  #Reprocess NCI line
          ]
        ]
      while abs(cdelta) > ctol, #If motion exceeds ctol, add wind-up
        [
        if cdelta > zero,
          [
          rev = rev — one
          cdelta = cdelta — 360
          ]
        else,
          [
          rev = rev + one
          cdelta = cdelta + 360
          ]
        ]
      if cuttype <> one, cabs = rev * 360 + csav
      else, cabs = sav_rev * 360 + csav
      !csav
      if index <> 1 & rot_type > 0,  #Signed absolute output or shortest direction 
        [
        #Keep tablebetween 0 — 360
        while cabs < 0 & absinc$ <> 1, cabs = cabs + 360
        while cabs > 360 & absinc$ <> 1, cabs = cabs — 360
        # Calc signed direction.  Not sure why I need to flop indx_mc   
        #Phase shift delta 10 revolutions, check odd/even
        if frac(int((cdelta + 3600)/180)/two), indx_mc = zero   #indx_mc = one
        else, indx_mc = one                         #indx_mc = zero
        if cdelta < 0, indx_mc = zero
        else, indx_mc = one
        ]
      if rot_type = 1, pset_rot_label_sign  #Set rotary axis label with sign
      else, pset_rot_label  #Set rotary axis label

pindxcalc       #Index move calculations, direction is shortest
      #Check if in tolerance when not full rotary
      #ie. rotary has been defined as an indexer or force_index is yes$
      if rot_index = one,
        [
        cdelta = frac(abs(csav)/ctable)
        if cdelta > ixtol & cdelta < 1-ixtol, result = mprint(sindxerror)
        ]
      cdelta = prvcabs — cabs
      #Phase shift delta 10 revolutions, check odd/even
      if frac(int((cdelta + 3600)/180)/two), indx_mc = one
      else, indx_mc = zero
      #Set range 0-360
      indx_out = csav
      while indx_out < 0, indx_out = indx_out + 360
      while indx_out > 360, indx_out = indx_out — 360
      if rot_type = 1, pset_rot_label_sign  #Set rotary axis label
      else, pset_rot_label
#endregion

#region Set rotary axis label and sign

pset_rot_label  #Set rotary axis label
      if not(use_md_rot_label),
        [
        if rot_on_x = 1, srot_label = srot_x  #Rotating about X axis
        if rot_on_x = 2, srot_label = srot_y  #Rotating about Y axis
        if rot_on_x = 3,
          [
          if vmc, srot_label = srot_z  #Rotating about Z axis — vertical machine
          else, srot_label = srot_y  #Rotating about Y axis — horizontal machine
          ]
        ]
      result = nwadrs(srot_label, cabs)
      result = nwadrs(srot_label, cinc)
      result = nwadrs(srot_label, indx_out)

pset_rot_label_sign  #Set rotary axis label for signed output direction
      if use_md_rot_label,
        [
        if not(use_rotmcode),
          [
          if indx_mc = zero, srot_label = srot_label + sminus
          else, srot_label = sav_srot_label
          ]
        ]
      else,
        [
        if not(use_rotmcode),
          [
          if rot_on_x = 1, srot_label = srot_x  #Rotating about X axis
          if rot_on_x = 2, srot_label = srot_y  #Rotating about Y axis
          if rot_on_x = 3, srot_label = srot_z  #Rotating about Z axis
          if indx_mc = zero, srot_label = srot_label + sminus
          ]
        ]
      result = nwadrs(srot_label, cabs)
      result = nwadrs(srot_label, cinc)
      result = nwadrs(srot_label, indx_out)

#endregion

#region Feedrate calculations 
#Feedrate calculations
pconvert_rpd    #Convert rapid motion to linear motion at maximum feedrate when selected in CD
      gcode$ = one
      feed = pst_rpd_fr$
      ipr_type = zero

pfcalc          #Feedrate calculations, gcode 0 does not evaluate
      if gcode$ <> zero,
        [
        if fmtrnd(cabs) = prvcabs | index, pfcalc_u_min
        else,
          [
          if (cuttype = one & (cutpos2$ <= one | cutpos2$ = four)) | rotfeed4$ = 0,
          pfcalc_u_min
          else, pfclc_deg_inv
          ]
        if ipr_type <> prv_ipr_type, prv_feed = c9k
        ]

pfcalc_u_min    #Feedrate unit/min
      ipr_type = zero
      feed = fr_pos$
      if feed > maxfeedpm, feed = maxfeedpm
      prvfrdeg = feed

pfclc_deg_inv   #Feedrate deg/min
      circum = zabs * two * pi$
      if circum = zero, circum = c9k          #Don’t allow Zero
      ldelta = sqrt((xabs-prv_xabs)^2+(yabs-prv_yabs)^2+(zabs-prv_zabs)^2)
      cdelta = ((abs(cabs — prvcabs))/360)*circum
      if ldelta = zero, cldelta = cdelta
      else, cldelta = sqrt(cdelta^two + ldelta^two)
      if cldelta = zero, cldelta = c9k
      #Set rotary feedrate type from CD variable
      if rotfeed4$ = 2, use_frinv = yes$ #Use inverse time feedrate is set in CD
      else, use_frinv = no$             #Or not…
      if use_frinv,
        [
        #Feedrate inverse calculation
        ipr_type = two
        prv_feed = c9k #Always force feed
        if cuttype = three, cldelta = sqrt((x$-prv_x$)^2+(y$-prv_y$)^2+(z$-prv_z$)^2)
        if inversefeed$,  #Feedrate in seconds
          [
          frinv = (fr_pos$*(1/60))/cldelta
          if frinv > (maxfrinv/60), frinv = (maxfrinv/60)
          ]
        else,  #Feedrate in minutes
          [
          frinv = fr_pos$/cldelta
          if frinv > maxfrinv, frinv = maxfrinv
          ]
        feed = frinv
        ]
      else,
        [
        #Feedrate deg/min control and calculation
        ipr_type = zero  #Change to ipr_type = one to force new DPM
        frdeg = abs(cdelta/cldelta) * abs(fr_pos$ * (360/circum))
        if abs(frdeg — prvfrdeg) > frdegstp | ipr_type <> prv_ipr_type,
          [
          #Control output of frdeg
          prvfrdeg = frdeg
          feed = frdeg
          ]
        if frdeg > maxfrdeg, feed = maxfrdeg
        ]

#endregion

#region Incremental calculations
#Incremental calculations
ps_inc_calc     #Incremental calculations, start
      xia = fmtrnd(xabs)
      yia = fmtrnd(yabs)
      zia = fmtrnd(zabs)
      xinc = vsub (xia, prv_xia)
      ps_cinc_calc

ps_cinc_calc    #Incremental calculations, start rotary              
      cia = fmtrnd(cabs)
      cinc = cia — prv_cia

pe_inc_calc     #Incremental calculations, end
      prvcabs = fmtrnd(cabs) #Avoid updating until called explicitly
      !xia, !yia, !zia, !cia
      !x$, !y$, !z$, !cc_pos$, !cutpos2$
#endregion

#end of Calculations region
#endregion

#region Parameter read postblocks, parameter tables

# —————————————————————————
# Parameter read postblocks:
# —————————————————————————
pprep$          #Pre-process postblock — Allows post instructions after the post is parsed but before the NC and NCI file are opened.
#DO NOT ATTEMPT TO OUTPUT TO THE NC FILE IN THIS POSTBLOCK (OR ANY POSTBLOCKS YOU MAY CALL FROM HERE) BECAUSE THE NC OUTPUT FILE IS NOT YET OPENED!
      sav_index = index  #Save original index value
      rd_cd$             #Read CD Parameters
      rd_mch_ent_no$ = 0 #Read only the machine base parameters (use to collect common parameters from CNC_MACHINE_TYPE)
      rd_md$             #Read machine definition parameters

psynclath$      #Read NCI Axis-Combination (950) line
      pset_mach   #Set rotary switches by reading machine def parameters
      #Rotaxtyp = 1 sets initial matrix to top
      #Rotaxtyp = -2 sets initial matrix to front
      if vmc, rotaxtyp$ = one
      else, rotaxtyp$ = -2

pwrtt$          #Pre-read NCI file
      if tool_info > 1 & t$ > 0 & gcode$ <> 1003, ptooltable

pwrttparam$     #Pre-read parameter data
      #»pwrttparam», ~prmcode$, ~sparameter$, e$
      if prmcode$ = 15346, comp_type = rpar(sparameter$, 1) #Cutter compensation type — 0=computer, 1=control, 2=wear, 3=reverse wear, 4=off
      if prmcode$ = 10010, xy_stock = rpar(sparameter$, 1)  #Capture stock to leave (XY)
      if prmcode$ = 10068, z_stock = rpar(sparameter$, 1)   #Capture stock to leave (Z)

pparameter$     #Read operation parameters
      #rd_params is used to call pparameter postblock and read the parameters of the operation specified in rd_param_op_no
      #»pparameter», ~prmcode$, ~sparameter$, e$
      if prmcode$ = 12025, rotary_axis2 = rpar(sparameter$, 1) #Capture the axis of rotation in Multiaxis Drill and Curve 5 Axis
      # Check To See if tool is metric
      if prmcode$ = 20007, toolismetric = rparsngl(sparameter$, 11)

# —————————————————————————
# Parameter lookup tables — You must adjust the size value if you add any parameters to these tables!
# —————————————————————————
# Machine Definition Parameters 
fprmtbl 17000   14   #Table Number, Size
#       Param   Variable to load value into 
        17391   axis_label   #Axis label — 1=X,2=Y,3=Z
        17397   srot_label   #Rotary Axis label (Generally A, B or C) — Not yet available.
        17401   rot_zero     #Rotary zero degree position                            
        17402   rot_dir      #Rotary direction
        17408   rot_index    #Index or continuous
        17409   rot_angle    #Index step
        17410   rot_type     #Rotary type
        17605   min_speed    #Minimum spindle speed
        17058   maxfrinv     #Maximum feedrate — inverse time — inch — Minimum value from MD as this is inverse time
        17066   maxfrinv_m   #Maximum feedrate — inverse time — metric — Minimum value from MD as this is inverse time
        17992   maxfrdeg     #Maximum feedrate deg/min
        17055   maxfeedpm    #Limit for feed in inch/min
        17063   maxfeedpm_m  #Limit for feed in mm/min
        17101   all_cool_off #First coolant off command shuts off ALL coolant options

# Control Definition Parameters 
fprmtbl 18000   1    #Table Number, Size
#       Param   Variable to load value into 
        18713   subs_before  #Subprograms output before or after main program

# Toolpath Group Parameters 
fprmtbl 19000   0    #Table Number, Size
#       Param   Variable to load value into 

# —————————————————————————
pset_mach       #Set post switches by reading machine def parameters
      rot_ax_cnt = 0
      rotaxerror = 0
      rot_axis = 0  #Turn off rotary axis unless it is detected in machine read — supresses rotary output in 3 axis machines
      #maxfeedpm = 999999       #Uncomment these variables to force use of machine def values as initial lowest max feedrate value 
      #maxfeedpm_m = 9999999    #Otherwise the default (post) initialization setting is used as initial value
      !maxfeedpm, !maxfeedpm_m

      rd_mch_ent_no$ = syncaxis$  #Retrieve machine parameters based on current axis combination — read from .nci G950 line
      if read_md = yes$, rd_md$   #Read machine definition parameters — calls pmachineinfo$

      #We only need these set at toolchange (and start of file).  No need to set them each time a user may call rd_md
      if read_md = yes$, #Override initial post values if reading Machine Definition
        [
        rot_on_x = rot_axis
        rot_ccw_pos = rot_dir
        index = rot_index
        if rot_angle = zero, ctable = one #ctable zero will produce a divide by zero error, so force to one if zero in MD
        else, ctable = rot_angle
        if not(vmc) & rot_on_x = 3, rot_on_x = 2 #If HMC and rotating about world Z axis (machine Y axis)
        ]
      else, rot_index = sav_index

      if met_tool$ = 1,
        [
        maxfrinv = maxfrinv_m   #Set limit for feed inverse time
        maxfeedpm = maxfeedpm_m #Set limit for feed in mm/min
        ]
      sav_srot_label = srot_label #Backup the original rotary axis label 

# —————————————————————————
# Machine definition and control definition parameter capture:
# —————————————————————————
pmachineinfo$   #Machine information parameters postblock
      #rd_md is used to call pmachineinfo postblock and read the parameters of the selected axis
      #combination machine entity set in rd_mch_ent_no
      #rd_cd is used to call pmachineinfo postblock and read the active control definition parameters
      #rd_tlpathgrp is used to call pmachineinfo postblock and read the active toolpath group parameters
      #»—>pmachineinfo», ~prmcode$, »  «, ~sparameter$, e$  #Do not uncomment if being called from pprep$ — see pprep comment

      #Read parameter lookup tables — 
      if prmcode$ >= 17000 & prmcode$ < 18000, result = fprm(17000) #Run the parameter table for Machine Definition Parameters
      if prmcode$ >= 18000 & prmcode$ < 19000, result = fprm(18000) #Run the parameter table for Control Definition Parameters
      #Leave line below commented until you enter values in related lookup tables
      #if prmcode$ >= 19000 & prmcode$ < 19900, result = fprm(19000) #Run the parameter table for Toolpath Group Parameters

      #Count rotary axis and output error message if more than one is found in the active axis combination and read_md = yes$
      if prmcode$ = 19958,
        [
        component_type = rpar(sparameter$, 1)  #Component type
        if component_type = 5 & read_md = yes$,
          [
          rot_ax_cnt = rot_ax_cnt + 1  #Rotary component
          if rot_ax_cnt = 2, rotaxerror = rotaxerror + 1   #Post only supports 1 rotary per axis combination
          ]
        ]

      #Determine Z direction — set vmc
      if prmcode$ = 17392 & axis_label = 3,
        [
        z_dir = rpar(sparameter$, 1)  #Z axis direction — +X=1,+Y=2,+Z=3,-X=7,-Y=8,-Z=9
        if z_dir <> 3 & z_dir <> 9, vmc = 0   #0 = Horizontal Machine, 1 = Vertical Mill
        else, vmc = 1
        ]

      #Set axis of rotation for rotary component
      if prmcode$ = 17399,
        [
        rot_axis = rpar(sparameter$, 1)  #Axis of rotation — +X=1,+Y=2,+Z=3,-X=7,-Y=8,-Z=9
        if rot_axis > 3, rot_axis = rot_axis — 6 #Keep value positive (+X,+Y,+Z) for use in rot_on_x 
        ]
      #Read Linear Axis parameters — capture lowest feedrate value of all linear axis
      if maxfeedpm > prv_maxfeedpm, maxfeedpm = prv_maxfeedpm
      if maxfeedpm_m > prv_maxfeedpm_m, maxfeedpm_m = prv_maxfeedpm_m
      !maxfeedpm, !maxfeedpm_m
#endregion

#region Post text
# Do not add an #endregion tag — or any other #region tags — below this line.
# —————————————————————————
# POST TEXT 
# —————————————————————————
[CTRL_MILL|MPFAN]
[misc integers]
1. «Work Coordinates [0-1=G92, 2=G54’s]»//2
2. «Absolute/Incremental, top level [0=ABS, 1=INC]»
3. «Reference Return [0=G28, 1=G30]»
[simple drill]
1. «Drill/Counterbore»
7. «»
8. «»
9. «»
10. «»
11. «»
[peck drill]
3. «»
7. «Peck»
8. «»
9. «»
10. «»
11. «»
[chip break]
3. «»
7. «Peck»
8. «»
9. «»
10. «»
11. «»
[tap]
3. «»
7. «»
8. «»
9. «»
10. «»
11. «»
[bore1]
1. «Bore #1 (feed-out)»
7. «»
8. «»
9. «»
10. «»
11. «»
[bore2]
1. «Bore #2 (stop spindle, rapid out)»
3. «»
7. «»
8. «»
9. «»
10. «»
11. «»
[misc1]
1. «Fine Bore (shift)»
7. «»
8. «»
9. «»
10. «»
[misc2]
1. «Rigid Tapping Cycle»
3. «»
7. «»
8. «»
9. «»
10. «»
11. «»
[drill cycle descriptions]
7. «Fine bore (shift)»
8. «Rigid Tapping Cycle»
[canned text]
1. «Stop»
2. «Ostop»
3. «Bld on»
4. «bLd off»
5. «M5»
6. «M6»
7. «M7»
8. «M8»
9. «M9»
10. «M10»
[CTRL_MILL|DEFAULT]
[misc integers]
1. «Work Coordinates [0-1=G92, 2=G54’s]»//2
2. «Absolute/Incremental, top level [0=ABS, 1=INC]»
3. «Reference Return [0=G28, 1=G30]»
[simple drill]
1. «Drill/Counterbore»
7. «»
8. «»
9. «»
10. «»
11. «»
[peck drill]
3. «»
7. «Peck»
8. «»
9. «»
10. «»
11. «»
[chip break]
3. «»
7. «Peck»
8. «»
9. «»
10. «»
11. «»
[tap]
3. «»
7. «»
8. «»
9. «»
10. «»
11. «»
[bore1]
1. «Bore #1 (feed-out)»
7. «»
8. «»
9. «»
10. «»
11. «»
[bore2]
1. «Bore #2 (stop spindle, rapid out)»
3. «»
7. «»
8. «»
9. «»
10. «»
11. «»
[misc1]
1. «Fine Bore (shift)»
7. «»
8. «»
9. «»
10. «»
[misc2]
1. «Rigid Tapping Cycle»
3. «»
7. «»
8. «»
9. «»
10. «»
11. «»
[drill cycle descriptions]
7. «Fine bore (shift)»
8. «Rigid Tapping Cycle»
[canned text]
1. «Stop»
2. «Ostop»
3. «Bld on»
4. «bLd off»
5. «M5»
6. «M6»
7. «M7»
8. «M8»
9. «M9»
10. «M10»
[CTRL_TEXT_END]

Всем доброго времени суток!

После обновления Windows до версии 1903 перестал работать генератор отчетов.
При запуске любого отчета вылетает окно с ошибкой: Failed to set data for ‘H1’
При завершении работы генератора отчетов: Failed to create key ToolbarReportEdit

Где копануть?

3 года 11 месяцев назад

avatar

#ссылка

2 ответа

Спасибо за ответ.
Моя учетка имеет админский статус.

3 года 10 месяцев назад

avatar

#ссылка

Столкнулся с проблемой запуска генератора отчетов в АРМ ОрионПро 1.20.2 на Windows 7. Раньше работал нормально, почему так получилось, сказать не могу. Как исправить? https://yadi.sk/i/H8hEI6thSWNfnw     https://yadi.sk/i/Ccsi-8RkgoR8vA

3 года 9 месяцев назад

avatar

Кононов Михаил Юрьевич

207

#ссылка

Добавить ответ

Для добавления сообщений на форуме вам необходимо зарегистрироваться и указать мобильный телефон в своем профиле (зачем?)

ЗАДАН

3 года 11 месяцев назад

По каждому вопросу/ответу можно добавлять комментарии. Комментарии предназначены для уточнения вопроса/ответа.

Описание аварийных сигналов

КОД

ОПИСАНИЕ

A01

Предупредительный аварийный

сигнал температуры двигателя

(аналоговый датчик)

A02

Высокая температура двигателя

(аналоговый датчик)

A03

Неисправность аналогового датчика

температуры

A04

Высокая температура двигателя

цифровой датчик)

A05

Низкая температура двигателя

(аналоговый датчик)

A06

Предупредительный сигнал низкого

давления масла (аналоговый

датчик)

A07

Низкое давление масла

(аналоговый датчик)

A08

Неисправность аналогового датчика

давления

A09

Низкое давление масла (цифровой

датчик)Низкое давление масла

(аналоговый датчик)

A10

Неисправность цифрового датчика

давления

A11

Предупредительный аварийный

сигнал низкого уровня топлива

(аналоговый датчик)

A12

Низкий уровень топлива

(аналоговый датчик)

A13

Неисправность аналогового датчика

уровня

A14

Низкий уровень топлива (цифровой

датчик)

A15

Высокое напряжение батареи

A16

Низкое напряжение батареи

A17

Батарея неисправна

A18

Неисправность генератора

переменного тока зарядки батареи

A19

Отсутствие сигнала W / датчика

скорости

A20

Низкая скорость двигателя «W /

датчика скорости»

A21

Высокая скорость двигателя «W /

датчика скорости»

A22

Невыполнение запуска

A23

Аварийный останов

A24

Непредвиденная остановка

A25

Невыполнение остановки

Doc: I378RUGB05_16.doc

ОСНОВАНИЕ ПОДАЧИ АВАРИЙНОГО

СИГНАЛА

Температура двигателя превышает пороговое

значение подачи предупредительного сигнала,

заданного с помощью параметра P09.06.

Температура двигателя превышает пороговое

значение подачи аварийного сигнала, заданного с

помощью параметра P09.07.

Цепь резистивного датчика давления разомкнута

(датчик отсоединен). Если результат измерения

поступает с CAN, аварийный сигнал генерируется

соответствующим сообщением диагностики.

Перегрев двигателя, на который указывает активация

программируемого цифрового входа с

соответствующей функцией.

Температура двигателя меньше порогового значения,

заданного с помощью параметра P09.08.

Давление масла в двигателе меньше порогового

значения подачи предупредительного сигнала,

заданного с помощью параметра P08.06.

Давление масла в двигателе меньше порогового

значения, заданного с помощью параметра P08.07.

Цепь резистивного датчика давления разомкнута

(датчик отсоединен). Если результат измерения

поступает с CAN, аварийный сигнал генерируется

соответствующим сообщением диагностики.

Низкое давление масла, на которое указывает

активация программируемого цифрового входа с

соответствующей функцией.

При двигателе, выключенном на протяжении более

одной минуты, контакты датчика давления масла не

замкнулись для подачи сообщения об отсутствии

давления. Предполагается что произошел обрыв

соединения.

Уровень топлива ниже порогового значения подачи

предупредительного сигнала, заданного с помощью

параметра P10.07.

Уровень топлива ниже порогового значения подачи

аварийного сигнала, заданного с помощью параметра

P10.08.

Цепь резистивного датчика уровня топлива разомкнута

(датчик отсоединен).

На низкий уровень топлива указывает активация

программируемого цифрового входа с

соответствующей функцией.

Напряжение батареи выше порогового значения,

заданного с помощью параметра P05.02, в течение

времени, превышающего значение параметра P05.04.

Напряжение батареи ниже порогового значения,

заданного с помощью параметра P05.03, в течение

времени, превышающего значение параметра P05.04.

Исчерпаны попытки включения двигателя с

понижением напряжения батареи ниже минимального

порогового значения напряжения питания

Этот аварийный сигнал подается, когда система

обнаруживает включенное состояние двигателя

(наличие напряжения и/или частоты генератора или

«W / датчика скорости»), но напряжение на выходе

генератора переменного тока зарядки батареи (D+)

остается ниже порогового значения напряжения

включенного двигателя, соответствующего заданному

значению параметра P11.01, на протяжении более 4

секунд.

При активированном измерении скорости, этот

аварийный сигнал подается, когда система

обнаруживает включенное состояние двигателя

(наличие напряжения на выходе генератора

переменного тока зарядки батареи или напряжения

и/или частоты генератора), но игнал скорости «W /

датчика скорости» не обнаруживается в течение 5

секунд. Если результат измерения поступает с CAN,

аварийный сигнал генерируется соответствующим

сообщением диагностики.

Этот аварийный сигнал подается, когда система

обнаруживает включение двигателя (наличие

напряжения генератора переменного тока зарядки

батареи или напряжения и/или частоты генератора),

торможение не производится, а сигнал скорости «W /

датчика скорости» остается ниже порогового значения,

заданного с помощью параметра P07.05, на

протяжении времени, равному заданному значению

параметра P07.06.

Этот аварийный сигнал подается, когда величина

сигнала скорости «W / датчика скорости» остается

выше порогового значения, заданного с помощью

параметра P07.03, на протяжении времени, равного

заданному значению параметра P07.04.

Этот аварийный сигнал подается, если после

выполнения заданного количества попыток запуска

включения двигателя не произошло.

Этот аварийный сигнал подается при снятии питания с

клеммы +COM1 (при разрешении активации входа’

P23.03) или при размыкании программируемого

цифрового входа с функцией «Аварийный останов».

Этот аварийный сигнал подается тогда, когда

двигатель самостоятельно останавливается по

истечении минимального времени, необходимого для

подачи аварийного сигнала, при отсутствии команды

прибора на выключение.

Аварийный сигнал подается, если двигатель все еще

не остановился через 65 секунд после начала цикла

остановки.

Alarm description

COD

DESCRIPTION

A01

Engine temperature

prealarm (analog sensor)

A02

High engine temperature

(analog sensor)

A03

Analog temperature

sensor fault

A04

High engine temperature

(digital sensor)

A05

Low engine temperature

(analog sensor)

A06

Oil pressure prealarm

(analog sensor)

A07

Low oil pressure (analog

sensor)

A08

Analog pressure sensor

fault

A09

Low oil pressure (digital

sensor)

A10

Digital pressure sensor

fault

A11

Fuel level prealarm

(analog sensor)

A12

Fuel level low (analog

sensor)

A13

Analog level sensor fault

A14

Fuel level low (digital

sensor)

A15

High battery voltage.

A16

Low battery voltage

A17

Inefficient battery

A18

Battery alternator fault

A19

«Pick-up/W» signal fault

A20

«Pick-up/W» engine speed

low

A21

«Pick-up/W» engine speed

high

A22

Starting failed

A23

Emergency stopping

A24

Unexpected stop

A25

No stop

10/02/2014

ALARM EXPLANATION

Engine temperature higher than prealarm

threshold set in P09.06.

Engine temperature higher than alarm

threshold set in P09.07.

Open circuit (disconnected) resistive

temperature sensor. If the measurement has

been sent by the CAN, the alarm is generated

by a specific diagnostics message.

Engine overtemperature signal on activation

of digital input programmed with relevant

function.

Engine temperature lower than alarm

threshold set in P09.08.

Engine oil pressure lower than prealarm

threshold set in P08.06.

Engine oil pressure lower than alarm

threshold set in P08.07.

Open circuit (disconnected) resistive pressure

sensor. If the measurement has been sent by

the CAN, the alarm is generated by a specific

diagnostics message.

Low oil pressure signal on activation of digital

input programmed with relevant function.

Engine stopped for over one minute, but oil

sensor failed to close on no pressure signal.

Presumed break in connection.

Fuel level lower than prealarm threshold set in

P10.07.

Fuel level lower than alarm threshold set in

P10.08.

Open circuit (disconnected) resistive fuel level

sensor.

Low fuel level signal on activation of digital

input programmed with relevant function.

Battery voltage higher than threshold set in

P05.02 for time greater than P05.04.

Battery voltage lower than threshold set in

P05.03 for time greater than P05.04.

Starting attempts expired with battery voltage

below min. starting threshold.

This alarm is generated when the engine is

running (voltage and/or frequency from

generator or ‘Pick-up/W’) but the battery-

charger alternator signal (D+) remains below

engine running voltage threshold P11.01 for

more than 4 seconds.

With speed measurement enabled, This alarm

is generated when the engine is running

(battery charger alternator signal present or

voltage and/or frequency from generator) but

the ‘Pick-up/W’ speed signal hasn’t been

detected within 5 seconds. If the

measurement has been sent by the CAN, the

alarm is generated by a specific diagnostics

message.

This alarm is generated when the engine is

running (battery charger alternator signal

present or voltage and/or frequency from

generator) but the ‘Pick-up/W’ speed signal

remains below threshold P07.05 for longer

than the time set in P07.06.

This alarm is generated when the ‘Pick-up/W’

speed signal remains below threshold P07.03

for longer than the time set in P07.04.

This alarm is generated after the set number

of starting attempts if the engine hasn’t

started.

This alarm is generated when terminal

+COM1 is disconnected (with P23.03

enabled) or by the opening of a digital input

programmed with the ‘Emergency stop»

function’.

This alarm is generated when the engine

stops on its own after the alarms activation

time if it wasn’t stopped by the system.

Alarm generated if the engine still hasn’t

stopped 65 seconds after the stop phase

began.

p. 31 / 43

background image

Раздел 5 – Поиск и устранение неисправностей

Генераторы с воздушным охлаждением

40

5.1 РУКОВОДСТВО ПО ПОИСКУ И УСТРАНЕНИЮ НЕИСПРАВНОСТЕЙ

Неисправность

Причина

Устранение

Не

заводится двигатель.

1. Сгорел предохранитель.

1. Проверить цепь короткого
замыкания

, заменить 7,5A

предохранитель

на панели

управления

генератора.

2. Ослаблены, покрыты
коррозией

или неисправны

кабели

аккумуляторной батареи

2. Затянуть, почистить или при
необходимости

заменить.

3. Неисправен пусковой контактор. (8
кВт

)

3. *

4. Неисправен стартёр.

4. *

5. Разряжена аккумуляторная
батарея

.

5. Зарядить или заменить
аккумуляторную

батарею.

Двигатель

заводится, но не

запускается

1. Нет топлива.

1. Заполнить топливом / Открыть
топливный

клапан.

2. Неисправен топливный соленоид
(FS).

2. *

3. Отсоединен провод #14 от пульта
управления

двигателя.

3. *

4. Загрязненные свечи зажигания.

4. Очистить, проверить зазор или
заменить

свечи.

5. Сбился зазор клапана.

5. Еще раз отрегулировать зазор
клапан

.

6. Не работает дроссель.

6. Проверить свободу перемещения
дроссельной

заслонки.

1. Проверить, заменить
воздухоочиститель

.

Двигатель

запускается с

трудом

и работает тяжело.

1. Забит или поврежден
воздухоочиститель

.

2. Загрязненные свечи зажигания.

2. Очистить, проверить зазор или
заменить

свечи.

3. Неправильное давление топлива.

3. Убедиться, что давление топлива
составляет

0,024 — 0,029 атмосфер

(0,36 — 0,43 фунтов/ кв.дюйм) для LP, и
0,012 – 0,017 атмосфер (0,18-0,25
фунтов

/ кв.дюйм) для природного газа.

4. Селектор топлива установлен не в
то

положение.

4. Передвинуть селектор в нужное
положение

.

5. Дроссель остается закрытым.

5. Проверить свободу перемещения
дроссельной

заслонки.

1. Неисправен переключатель.

1. *

Переключатель

«AUTO/OFF/MANUAL»
установлен

в положение

«OFF», но двигатель
продолжает

работать.

2.

Переключатель

«AUTO/OFF/MANUAL» подключен не
правильно

.

3.

Неисправен

пульт управления.

2.

*

3.

*

1. Автомат цепи основной линии сети
электроснабжения

находится в

положении

«OFF» (или ОТКРЫТЫЙ).

1. Установить автомат в положение
«ON» (или ЗАКРЫТЫЙ).

С

генератора не

подается

переменный

ток

.

2. Неисправность внутри генератора.

2. *

1. Неисправен передаточный ключ.

1. *

2. Неисправно передаточное реле.

2. *

Не

происходит

перераспределение

на

резервный

источник во

время

отключения сети

электроснабжения

.

3. Разомкнута цепь передаточного
реле

.

3. *

 
Manual 
DCP
-
10
Genset Controller 
DCP-10 
I 
The interpretation of the Symbol:  
WARNING: 
A WARNING  indicates  a  potentially  hazardous  situation which,  if  not 
avoided,  could  result  in  death,  serious  personal  injury  or  property 
damage. 
CAUTION: 
A  CAUTION  indicates  a  potentially  hazardous  situation  which,  if  not 
avoided, could result in damage to equipment or property. 
NOTE:  
A NOTE provides other helpful information that does not fall under the 
warning or caution categories. 
DCP-10 
II  
WARNING: 
Read this entire manual pertaining to the work to be performed before 
installing, operating, or servicing this controller. Practice all plant and 
safety instructions and precautions. Failure to follow instructions can 
cause personal injury and/or property damage. 
The engine or other type of prime mover should be equipped with an 
overspeed shutdown device to protect against runaway or damage to 
the prime mover with possible personal injury, loss of life, or property 
damage. 
The  overspeed  shutdown  device  must  be  totally  independent  of  the 
prime  mover  control  system.  An  over  temperature  or  low  pressure 
shutdown device may also be needed for safety, as appropriate. 
CAUTION—BATTERY CHARGING 
To  prevent  damage  to  a  controller  that  uses  an  alternator  or  battery-
charging  device,  make  sure  the  charging  device  is  turned  off  before 
disconnecting the battery from the system. 
Controllers  contain  static-sensitive  parts.  Observe  the  following 
precautions to prevent damage to these parts: 
Do  not  disassemble  the  rear  back  of  controller  or  touch  the 
components and conductors on a printed circuit board. 
DCP-10 
III 
Contents 
1.  Description…………………………………………………………………………………………………… 
2.  Outline Dimension Drawings and Controller Wiring…………………………………………………  
3.  Panel Operation……………………………………………………………………………………………    
4.  Installation Guide…………………………………………………………………………………………     
5.  Control and Operation Instruction………………………………………………………………………   
6.  Measure and Display Data………………………………………………………………………………   
7.  Pre-alarm and Shutdown Alarm………………………………………………………………………… 
8.  Parameter Settings………………………………………………………………………………………    
9.  LCD Display and Menu System…………………………………………………………………………  
10. Preparation before Starting the Controller…………………………………………………………… 
11. Technical Specification…………………………………………………………………………………    
1 
2 
5 
6 
7 
12 
13 
17 
23 
28 
27 
DCP-10 
Page 1/27 
1. Description 
The  DCP-10  is  an  Automatic  Controller  for  generator.  When  running  in  “AUTO”  mode,  it  starts  the 
Genset  after  receiving  remote  start  signal  and  on  failure  automatically  stops  the  Genset.  The 
generator’s  controlling procedure  and  protection  parameters  can  be  modified,  which  fully  meets  the 
Genset’s requirements of automatic start, stop control and basic protection. 
  The module displays fault conditions, operational status and related metering data on panel LCD. 
  LCD has a backlight function so that the operator can read running parameters clearly even in the 
shadow. 
  The controller has 2 modes: AUTO and MANUAL. Either can be chosen through the panel push 
button. 
  Measures  and  displays  generator’s  output  voltage,  current,  oil  pressure,  coolant  temperature, 
frequency, DC source voltage, etc.  
  True RMS measure of voltage and current, which ensures the data more accurate. 
  Control the close/open of generator output switch. 
  Equipped with built-in communication interface to configure parameters by PC. 
  All connections of controller are by secure plug and socket, for ease and convenience to connect, 
move, maintain and replace the device. 
This manual is only suitable for DCP-10 Automatic control module, user must carefully read 
this manual first. 
DCP-10 
Page 2/27 
2. Outline Dimension Drawings and Controller Wiring 
2.1 Following Details: 
Module Dimensions  W120mm×H102mm 
Panel Cutout  W110mm×H92mm  
Thickness  D48mm (without connection) 
DCP-10 
Page 3/27 
2.2 Terminal Connections: 
Pin no.
Function Description  Signal  Dim 
1 
GEN. V
L1-N 
input  0-300Vac 
1mm² 
2 
GEN. V
L2-N
input  0-300Vac 
1mm² 
3 
GEN. V
L3-N
input  0-300Vac 
1mm² 
4 
GEN. Neutral   
1mm² 
5 
Not used   
6  Not used   
7  I1 Gen current input  0-5A 
2.5mm² 
8  I2 Gen current input  0-5A 
2.5mm² 
9  I3 Gen current input  0-5A 
2.5mm² 
10  Common port for current input   0-5A 
2.5mm² 
11  LOP sensor or switch signal  LOP sensor (<2KΩ) 
1mm² 
12  HET sensor or switch signal  HET sensor (<2KΩ) 
1mm² 
13  Configurable digital input signal 1  low level is active 
1mm² 
14  Configurable digital input signal 2  low level is active 
1mm² 
15  Configurable digital input signal 3  low level is active 
1mm² 
16 
Charge excitation power output  if not used, do not connect to negative 
1mm² 
17 
Configurable relay output 1  N.O. contact, 3A/30Vdc 
1mm² 
18 
Configurable relay output 2  N.O. contact, 3A/30Vdc 
1mm² 
19 
Configurable relay output 3  N.O. contact, 3A/30Vdc 
1mm² 
20 
+5V supply  Max 100mA, 
1mm² 
21 
Start (Crank) relay output  N.O. contact, 3A/30Vdc 
1mm² 
22 
Fuel solenoid relay output  N.O. contact, 3A/30Vdc 
1mm² 
23 
Battery supply (+B) 
1mm² 
24 
Battery supply (-B) 
12V/24V  (8-35Vdc continuous) 
1mm² 
DCP-10 
Page 4/27 
2.3 Typical Wiring Diagram 
(12/24V)
DC POWER
CRANKFUEL
CONFIG.OUTPUT
LOAD
M
CONFIG. INPUT
REMOTE START
COOLANT TEMP.
(OR TEMP. SWITCH)
OIL PRESSURE
(OR OIL SWITCH)
DCP-10
Fuse protection with a rating of 0.5A must be provided externally to the Controller. 
DCP-10 
Page 5/27 
3. Panel Operation 
The  operation  panel  consists  of  3  sections:  LCD  display  indicating  measurement  parameters,  LED 
indicator for common failure, and push buttons for Genset and selection of control modes. 
The  LCD  circularly  displays different  measuring  parameters. When  failure  occurs,  LCD  displays the 
corresponding fault icon. LCD also has a backlight so that the operator can clearly read information day 
or night. After pressing any button the backlight will automatically turn off in a certain time. 
The LCD display and its control push buttons provide a friendly operation interface for the operator to 
conveniently read information and parameter setting. 
3.1 Control buttons and LEDs 
Function Description 
Tag 
Scroll Button  
Enter  into  submenu  /  Modify  /  confirm  modification  /  scroll  menu  to 
display. 
MUTE / LAMP TEST Button 
When failure occurs, alarm buzzer sounds. Pressing mute button will 
mute the sound. LCD displays mute icon. Press and hold mute button 
for 2sec, all LEDs illuminate simultaneously. 
AUTO Mode Button / LED 
The  push  button  is  used  for  selecting  “AUTO  mode”.  When  the 
controller is running in AUTO mode, the LED above the push button 
illuminated. The activation and deactivation of the “remote start signal 
input” controls the starting and stopping of the Genset. 
MAN Mode Button / LED 
The  push  button  is  used  for  selecting  “manual  mode”.  When  the 
controller is running in MANUAL mode, the LED above the push button 
illuminated. The Start and Stop push buttons control the starting and 
stopping of the Genset.. 
START / VALUE INCREASE “+” Push Button 
The  push  button  is  used  for  manually  start  the  Genset  .When  the 
controller  is  in  MANUAL  mode,  press  this  push  button  to  start  the 
generator. 
When in parameter setting mode, this push button is used to increase 
values.  
STOP / RESET / VALUE DECREASE “-” Push Button  
The push button is used for MANUALLY stops the Genset. When the 
controller is in MAN mode, press and hold this button more than 2sec 
to stop the Genset.  
If failure occurs, press this button, the shutdown alarm lockout can be 
cleared. 
When in parameter setting mode, this push button is used to decrease 
values.   
COMMEN FAILURE LED 
LED will flash when pre-alarm (Warning) occurs. 
LED will illuminate permanently when shutdown alarm occurs. 
DCP-10 
Page 6/27 
4. Installation Guide
4.1 The cutout dimensional drawing installed on panel as above attached. 
The  controller  is  fixed  by  2  special  fittings.  The  shock-proof  equipment  must  be  mounted  if  the 
enclosure is mounted on  Genset  or  other  heavy  vibrant  device.  A  readily accessible  disconnect 
device shall be incorporated external to the equipment. 
4.2 Please refer to the above Typical Wiring Diagram 2.3 for connection. 
4.3 Installation of engine LOP and HET sensors: 
1211
Terminal
12
Battery negative (Genset enclosure)
11
Description
Sensor Com. Port
HET sensor/ temp switch
LOP sensor/ LOP switch
DCP-10
CAUTION: 
  Pin  no.  “11”  and  “12”  is  for  “LOP  sensor  or  switch  signal”  and  “HET 
sensor or switch signal” input respectively. Either switch or sensor can be 
chosen. When sensor is used, according to the actual situation, increase 
the  cross  section  area  of  cable  to  reduce  the  cable  resistance  from 
controller to engine, which ensures the accuracy of measured values for 
both oil pressure and engine temperature. 
  If  both  switches  and  sensors  are  required  for  oil  pressure  and  engine 
temperature,  connect  Pin  no.  “11”  and  “12”  as  above,  and  connect  2 
configurable inputs to the switches of oil pressure and temperature, then 
configure parameters by setting. 
DCP-10 
Page 7/27 
5. Control and Operation Instruction 
5.1 Operation Mode Setting: 
The controller has 2 modes: AUTO and MANUAL. 
Operation  Description 
Press and hold the “AUTO” button for 2sec, the LED above the button 
is illuminated; the controller is running in “AUTO” mode. 
Press and hold the “MAN” button for 2sec, the LED above the button is 
illuminated; the controller is running in “MAN” mode. 
NOTE: Only 1 mode can be selected from above 2 modes. 
5.2 AUTO control Sequence: 
Controller is running in “AUTO” mode. 
First of all, one of configurable inputs must be defined as Remote Start Signal. 
When the remote start signal is active, the controller implements following procedure: 
The  Start delay timer is activated, when it times  out the Preheat relay  output is energized (if preheat 
function selected), the timer starts. When it times out, the fuel relay output is energized, and operates the 
fuel solenoid of the engine. After 300ms delay, the start (crank) relay output is energized; the start motor 
engages  and begins to crank. When the engine speed reaches  the crank cutout RPM, the start relay 
output  is  de-energized  and  the  safety-on  delay  starts.  When  the  safety-on times  out,  if  the  controller 
detects that the parameters of the Genset such as voltage, frequency, oil pressure, coolant temperature 
are normal, and no other failure is detected this indicates the Genset has successfully started and running 
normally. The LCD displays the Genset Measuremen parameters. 
When the voltage and frequency of Generator is normal, Gen. Normal LED illuminates, the timer for 
Gen. On delay is activated, when it times out, GCB close/open relay closes,the transfer switch switches 
on Gen. The Gen Aux. Switch’s contact feeds back a signal to a configurable input on our controller. 
GCB closed LED illuminates. 
NOTE: 
  When remote  signal  is  active, the start-delay timer is  activated. During 
this  period,  if  remote  start  signal  is  inactive,  the  start  delay  timer 
terminates immediately; the controller will recovers to the original standby 
status.  
  During cranking or idle period, if remote start signal is inactive, controller 
stops the start procedure and recovers to original standby status.  
DCP-10 
Page 8/27 
NOTE: 
  While cranking, engine  ignites. The start motor  will power off when the 
output  frequency  of  generator  reaches  the  preset  value  (configurable 
crank cutout value), or if there are one of the following conditions occur:  
A. Generator’s voltage reaches 80% of rated voltage;  
B. Cranking time’s up,  
C. LOP switch is opened and the delay time’s up. 
D.  Oil  pressure  switch  is  opened  or  oil  pressure  is  higher  than  crank 
cutout value. 
E. Cutout P-delay time’s up. 
  Controller  can  not  implement  crank  procedure  if  the  frequency  of 
generator reaches the preset value (configurable cranking cutout value) 
or LOP switch is opened. 
CAUTION: 
  To  avoid  damage  to  the  start  motor  please  make  sure  the  generator’s 
voltage  is  higher  than  the  measurable  value  of  controller  while  cranking, 
since  the  crank  cutout  signal  is  sensed  from  the  generator  voltage  and 
frequency. 
NOTE: 
  Above  control  procedure,  assumes  that  one  of  configurable  inputs  has 
been configured as Gen Aux. Switch Closed and connects the switch’s 
N.O. Aux. contact signal to this port. If you do not configure an input as 
Gen Aux. Switch Closed, then the GCB closed LED illuminates is only 
an indication that the GCB close/open relay should have been closed.
If you have selected idle function, the idle relay will be closed at the same time as the crank relay is 
closed. The timers of idle and safety-on delay will begin counting down at the same time, and in priority 
to display the shorter one on the LCD, and the following procedure is the same as above. 
During the crank period, if the engine can not ignite and controller will not output start signal during crank 
rest,  Fail  to  Start  icon  on  LCD  flashes  at  this  time.  Once  crank  rest  timer  times  out  the  start  relay 
energizes once again and will attempt to start engine again. 
The above procedure will be repeated until engine successfully ignites or reaches the preset number of 
crank  attempt.  However,  if  any  shutdown  alarm  occurs  during  crank,  controller  will  stop  cranking 
immediately and only can be restarted after clearing failure and reset. 
Fail to Start: when the above procedure repeats again and again and reaches the preset number of 
crank attempt, the crank relay output is then de-energized. The failure LED illuminates and the LCD 
displays Fail to Start.  
CAUTION: 
  If Fail to Start occurs, operator must check the whole Genset system to 
find  out  failure  reason,  only  after  clearing  the  failure  can  press 
“STOP/RESET”  button  to  relieve  fault  lock  out  status,  and  restart  the 
Genset.  
Generator shutdown sequence: 
When the remote start signal is deactivated, the timer for cool down is activated,  When it times out, the 
fuel relay de-energizes, the timer for cool down is activated, 
DCP-10 
Page 9/27 
Stop  Failure: When  cool down  times  out, the fuel relay opens and the  timer for  Stop delay begins. 
When  it times out, if controller  detects  that  the  voltage  and frequency  of  generator or oil  pressure  of 
engine are greater than the preset values, the Fail to stop LED illuminates and the LCD displays Fail to 
stop. 
NOTE: 
  After stop failure, the controller will not energize the crank relay output if 
the failure has not been removed and the controller reset. 
5.3 MAN control sequence:   
Controller is in “MANUAL” mode. 
Generator starting sequence: 
Pressing “START” button the fuel relay energises, and operates the fuel solenoid of engine.After 300ms 
delay, the start relay output is energized, the start motor engages and begins to crank. When the engine 
speed reaches the crank cutout RPM, the start relay output is de-energized and the safety-on delay starts. 
When the safety-on times out, if the controller detects that the parameters of the Genset such as voltage, 
frequency, oil pressure and coolant temperature are normal, and no other failure is detected this indicates 
the Genset has successfully started and running normally. The LCD displays the Genset Measurement 
parameters. 
When generator is running normally, GCB close/open relay will not close automatically. Manually close 
the Gen switch, Gen is on load, the Gen Aux. Switch’s contact feeds back the signal to a configurable 
input on our controller, Gen. Normal LED illuminates. 
5.4 The start and stop sequence of engine whose fuel solenoid is N. O. type: 
Start control sequence: 
During the starting sequence, the fuel relay of controller will not energize, fuel solenoid is no power, so 
no signal is required for fuel solenoid to activate. 
Stop control sequence: 
During the stopping sequence, the fuel relay energizes, fuel solenoid is on power and energizes, and 
the engine begins to stop. After a delay (same as stop delay) fuel relay de-energizes, disconnecting the 
supply for the fuel solenoid. 
Other control sequence is same as engine whose fuel solenoid is N. C. type. 
NOTE: 
  When  the  controller  is  in  “MANUAL”  mode  and  Gen.  Normal  LED 
illuminates, you must define one configurable input as Gen Aux. Switch 
Closed  and  connect  the  switch’s  N.O.  Aux.  contact  signal  to  this  port, 
otherwise the GCB closed LED will not illuminate.  
DCP-10 
Page 10/27 
5.5 Idle function: 
For idle function configure one of the configurable outputs as idle. 
Refer to the flow chart 5.7 for start and stop for idle control flows. 
5.6 Preheat function: 
For  Preheat  function,  configure  one  of  the  configurable  outputs  as  Preheat.  The  controller  has  3 
selectable preheat control modes as below: 
Mode 1 — during preheat time, preheat relay output energizes. 
Mode 2 — during preheat time, preheat relay output energizes until the successful ignition. 
Mode 3 — during preheat time, preheat relay output energizes until safety-on delay times out. 
During crank period, the Preheat relay output will not energize in any of above modes. 
Refer to the flow chart 5.7 for start and stop for Preheat control flows. 
When the Preheat relay output energizes, LCD displays the icon of preheat operating status: 
DCP-10 
Page 11/27 
5.7 Flow chart for start and stop  
T1- start delay 
T2- crank time 
T3- pre-heat time 
T4- safety-on delay 
T5- idle time 
T6- stop delay 
NOTE: 
  If T4 is longer than T5, low oil pressure protection is ignored during T5. 
  If  T4  is  shorter  than  T5,  low  oil  pressure  protection  becomes  effective 
after T4 in T5. 
DCP-10 
Page 12/27 
6. Measure and Display Data 
Gen phase voltage L1-N   L2-N   L3-N 
Gen line voltage L1-L2 L2-L3 L3-L1 
Generator current I1 I2 I3  
Generator frequency Hz 
Engine speed RPM (signal derived from generator frequency) 
Engine oil pressure BAR / PSI (signal from engine LOP sensor)  
Engine coolant temperature ℃/℉ (signal from engine HET sensor) 
Battery voltage Vdc 
Genset Running hour Hour 
DCP-10 
Page 13/27 
7. Pre-alarm and Shutdown Alarm 
7.1  Pre-alarm (Warning) 
NOTE: (Pre-alarms are non-critical failure conditions and do not affect the operation of the generator 
system, they serve for drawing the operators’ attention to an undesirable condition so they can remove 
it to ensure continuous running of the system. When Pre-alarms occur, the LED indicator flashes, but 
failure will not be locked out and the unit will not shutdown. Once the Pre-alarm failure is removed the 
Pre-alarm LED will automatically turn off.) 
Pre-alarm / Description 
LCD Display 
CHARGE FAILURE:  After safety-on times up, if the charging voltage 
from  the  excitation  contact of  alternator  is  lower  than  the  “charge  V 
Pre-alarm”,  the  common  failure  LED  indicator  ( )  flashes,  the  LCD 
displays Charge failure icon: 
BATT.  UNDER  VOLT:  if  controller  detects  that  battery  voltage  has 
fallen  below  the  “Batt.  Under  volt”,  common  failure  LED  indicator 
flashes. For example, “Batt. Under volt” preset as: 23.6V, when battery 
voltage falls below this value, LCD flashing low value icon: 
BATT.  OVER  VOLT:  if  controller  detects  that  battery  voltage  has 
exceeded the “Batt. Over volt”, common failure LED indicator flashes. 
For example, “Batt. Over volt” preset as preset as: 28.2V, when battery 
voltage exceeds this value, LCD flashing high value icon: 
LOW OIL PRESS: if controller detects that the engine oil pressure has 
fallen below the “Oil-P low preALM” after the safety-on timer expired, 
common failure LED indicator flashes. For example, “Oil-P low preALM” 
preset  as:  2.2BAR,  when  engine  oil  pressure  falls  below  this  value, 
LCD flashing low value icon: 
HIGH TEMP: if controller detects that engine coolant temperature has 
exceeded  the  “high  temp  pre-alarm”,  common  failure  LED  indicator 
flashes.  For  example,  “high  temp  pre-alarm”  preset  as:  95℃
℃℃
℃,  when 
engine  coolant  temperature  exceeds  this  value,  LCD  flashing  high 
value icon: 
OVER  SPEED:  if  engine  speed  exceeds  the  “Over  SP  preALM”, 
common  failure  LED  indicator  flashes.  For  example,  “Over  SP 
preALM” preset as: 1600RPM, when engine speed exceeds this value, 
LCD flashing high value icon: 
UNDER SPEED: if engine speed falls below the “Under SP preALM” 
after  the  safety-on  timer  has  expired,  common  failure  LED  indicator 
flashes. For example, “Under SP preALM” preset as: 1440RPM, when 
engine speed falls below this value, LCD flashing low value icon: 
DCP-10 
Page 14/27 
OVER CURRENT: if any phase output current of generator exceeds the 
“over current pre-alarm” after the safety-on timer has expired, common 
failure  LED  indicator  flashes.  For  example,  “over  current  pre-alarm” 
preset as: 850A, when any phase output current of generator exceeds 
this value, LCD flashing high value icon for corresponding phase: 
GEN. OVER VOLT: if controller detects that any phase output voltage 
of generator has exceeded the “GEN-V over preALM”after the safety-
on  timer  has  expired,  common  failure  LED  indicator  flashes.  For 
example,  “Rated ph-voltage”  preset  as:  220V,  “GEN-V  over preALM” 
preset as: 115%, when any phase output voltage of generator exceeds 
this value, LCD flashing high value icon for corresponding phase: 
GEN. UNDER VOLT: if controller detects that any phase output voltage 
of  generator  has  fallen  below  the  “GEN-V  under  preALM”after  the 
safety-on timer has expired, common failure LED indicator flashes. For 
example,  “Rated  ph-voltage”  preset  as:  220V,  “GEN-V  under 
preALM”preset as: 90%, when any phase output voltage of generator 
falls below this value, LCD flashing low value icon for corresponding 
phase: 
LOW FUEL LEVEL: If a configurable input has been defined as low 
fuel  level,  when  the  input  signal  is  active,  common  failure  LED 
indicator flashes, LCD displaying low fuel level icon: 
AUXILIARY PRE-ALARM: if a configurable input is defined as pre-alarm, 
when the input signal is active, common failure LED indicator flashes. 
LCD displaying Aux. pre-alarm icon: 
NOTE: 
  To  make  “low  oil  pressure”  and  “high  temperature”  pre-alarm  active,  you 
must  use  LOP  sensor  and  HET  sensor,  if  you  only  use  LOP  and  HET 
switches, both pre-alarms are inactive. 
NOTE: 
  Controller  continuously  detects  battery  voltage  during  standby  and 
Battery Low/High Voltage pre-alarms are active. 
  Battery Low Voltage pre-alarm is inactive during cranking.  
CAUTION: 
  Under the period of safety-on delay, some pre-alarms (e.g.: under speed, 
low voltage and low oil pressure) are inactive, the safety-on delay must 
be carefully and properly set to make Genset have full protection.  
DCP-10 
Page 15/27 
7.2 Shutdown Alarm 
NOTE: (shutdown alarm failures immediately lock out the system and stop the Genset. The failure must 
be removed and the controller reset before restarting the Genset.) 
Shutdown Alarm / Description  LCD Display 
START FAILURE: if engine does not fire after the preset number of 
crank attempt has been made, the  Shutdown alarm LED illuminates. 
LCD displays “start failure” icon: 
STOP FAILURE: if engine does not stop after the stop delay expired, 
the Shutdown alarm LED illuminates. LCD displays stop failure icon: 
EMERGENCY STOP: Configure a configurable input as emergency stop, 
when  the  input  signal  is  active,  controller  immediately  stops  all  relay 
control outputs except alarm,Genset is shut down, the Shutdown alarm 
LED illuminates, LCD displays emergency stop icon: 
LOW OIL PRESS: if controller detects that the oil pressure level still falls 
below “Oil-P low Alarm” or LOP switch closes after the safety-on timer 
has  expired,  engine  stops  immediately,  the    Shutdown  alarm  LED 
illuminates. LCD displays low oil pressure icon: 
ENGINE  HIGH  TEMP:  if  controller  detects  that  engine  coolant 
temperature has exceeded the “Coolant Alarm” or HET switch closes, 
engine stops immediately, the  Shutdown alarm LED illuminates. LCD 
displays high temperature icon: 
OVER SPEED: if controller detects that engine speed exceeds “Over SP 
Alarm”, engine stops immediately, the  Shutdown alarm LED illuminates. 
LCD displays over speed icon: 
OVER CURRENT: After safety-on delay time out, if controller detects 
that any phase output current of generator exceeds the “over current 
alarm”,  the  Genset  will  be  shut  down  immediately,  the    Shutdown 
alarm LED illuminates. 
GEN. OVER VOLT: After safety-on delay times out, if controller detects 
that  one  of  the  phase  voltage  exceeds  the“GEN-V  over  Alarm”,  the 
engine  will  be  shut  down  immediately,  the    Shutdown  alarm  LED 
illuminates. 
GEN.  UNDER  VOLT:  After  safety-on  delay  times  up,  if  controller 
detects  that  any  phase  output  voltage  is  lower  than  the  “Vac  low 
alarm”, the engine will be shut down immediately, common failure LED 
illuminates. 
AUXILIARY  FAILURE:  If  a  configurable  input  has  been  defined  as 
Shutdown  Alarm,  when the input signal is active, common failure LED 
illuminates.  LCD displays Aux. shutdown alarm icon: 
DCP-10 
Page 16/27 
Code Table for Failure: 
Name  Code    Name  Code 
CHARGE FAILURE 
ENGINE HIGH TEMP 
BATT. UNDER VOLT 
OVER SPEED 
BATT. OVER VOLT 
UNDER SPEED 
START FAILURE 
OVER CURRENT 
STOP FAILURE 
GEN. OVER VOLT 
EMERGENCY STOP 
GEN. UNDER VOLT 
LOW OIL PRESS 
P-SENSOR OPEN 
NOTE: 
  Engine  speed  signal  is  derived  from  the  frequency  of  generator  output 
voltage, it  is  used  for  control  and  failure  protection parameters,  for  the 
convenience of user, some data is expressed by RPM, RPM = Hz * 60 / 
pair of poles. 
  While the Genset is running, if there are high coolant temperature, low oil 
pressure  or  over  speed  failure  occurs,  the  controller  will  shutdown  it 
immediately without delay. During the cool down period, if there is low oil 
pressure failure, the alarm will be active no matter if there is idle function. 
CAUTION: 
  During  the  period  of  safety-on  delay,  low  oil  pressure  protection  is 
inactive. To avoid starting an engine with no oil, you must make sure the 
oil  levels  are  normal  and  the  safety-on  delay  shall  be  carefully  and 
properly set for the first commissioning. 
DCP-10 
Page 17/27 
8. Parameters Setting 
8.1  System Parameters: 
NO.  Items  Preset  Value Range 
1.1  CT ratio 
100  1-2000 
1.2  VT ratio 
1.0  1.0-100.0 
1.3  Rated ph-voltage 
220  45-9999Vac 
1.4  AC voltage 
2 
1,3  (3 for 3 phase 4 wire, 1 for signal 
phase 2 wire) 
1.5  Startup mode 
0  0-1 / 0 (MAN) / 1 (AUTO) 
1.6  Oil pressure unit 
0  0-1 (0-BAR,1-PSI) 
1.7  Temperature unit 
0 
0-1 (0-℃,1-℉) 
1.8  Comm. Address 
1  1-247 
1.9  Default settings 
1.10  On-line update 
1.11  Scroll time 
0S  0-10 S   / 0 (not used) 
NOTE: 
  For 1.5 Startup Mode, When parameter is configured as “1”, the controller 
will  be  in  AUTO  mode  when  it  is  powered  on;  When  parameter  is 
configured as “0”, the controller will be in Manual mode when it is powered 
on. 
  After the oil pressure and temperature units changed, the corresponding 
failure alarm value must be reset according to actual situation. 
  Engine speed is calculated by the number of “pair of poles”.  RPM=Hz * 60 
/ pair of poles, when rated frequency is 50 Hz, if pair of poles set as “2”, 
then running speed is 1500 RPM, if pair of poles set as “1” , then running 
speed is 3000 RPM. 
8.2  Generator Parameters: 
NO.  Items  Preset  Value Range 
2.1  V under Alarm 
0  20-200%   / 0 (not set) 
2.2  V under preALM 
90%  20-200%   / 0 (not set) 
2.3  V over preALM 
115%  20-200%   / 9999 (not set) 
2.4  V over Alarm 
9999  20-200%   / 9999 (not set) 
2.5  Hz low alarm 
45.0Hz  10.0-100.0Hz   / 0 (not set) 
2.6  Hz high alarm 
57.0Hz  10.0-100.0Hz   / 999.9 (not set) 
2.7  Over current pre-alarm 
100%  0-200%  
2.8  Over current alarm 
150%  0-200% 
2.9  Over current action 
0 
0-1 (0- electrical tripping,  
1-shutdown alarm) 
2.10  Alarm delay 
10S  0-600 S 
2.11  Gen. On delay 
5S  1-9999 S 
2.12  GCB opening delay 
5S  1-9999 S 
DCP-10 
Page 18/27 
8.3  Engine Parameters: 
NO.  Items  Preset  Value Range 
3.1  Pair of poles 
2  1-4 
3.2  Fuel mode 
0  0-1 / 0(NC) / 1 (NO) 
3.3  T-sensor type 
12  0-15   / 0 (not used) 
3.4  P-sensor type 
11  0-15   / 0 (not used) 
3.5  Start delay 
10S  0-300 S 
3.6  Crank attempt 
3 times  1-10 times   
3.7  Crank time 
5S  0-30 S   
3.8  Crank rest 
10S  0-300 S   
3.9  Crank cutout RPM 
300RPM  1-9999 RPM 
3.10  Crank cutout Oil-P 
1.0BAR 
0.1-150.0BAR/999.9(not set)    
3.11  cutout P-delay 
0  1-60 S  / 0(not set) 
3.12  Idle delay 
0  0-9999 S 
3.13  Preheat delay 
3S  0-300 S 
3.14  Preheat mode 
1  1-3 
3.15  Safety-on delay 
10S  0-600 S 
3.16  Cool down delay 
300S  0-600 S                
3.17  Stop delay 
20S  0-60 S 
3.18  Under SP Alarm 
0RPM  0-9999 RPM   / 0 (not set) 
3.19  Under SP preALM 
1440RPM  0-9999 RPM   / 0 (not set) 
3.20  Over SP preALM 
1600RPM  1-9999 RPM   / 9999 (not set) 
3.21  Over SP Alarm 
1710RPM  1-9999 RPM   / 9999 (not set) 
3.22  Oil-P low Alarm 
1.1BAR  0-45.0 BAR 
3.23  Oil-P low preALM 
1.4BAR  0-45.0 BAR 
3.24  Coolant preALM 
92℃  70-320℃   / 9999 (not set) 
3.25  Coolant Alarm 
100℃  70-320℃   / 9999 (not set) 
3.26  Batt. Undervolt. 
8.0V  1.0-25.0V   / 0 (not set) 
3.27  Batt. overvolt. 
28.0V  1.0-35.0V   / 99.9 (not set) 
3.28  charge V Pre-alarm 
8.0V  1.0-25.0V   / 0 (not set) 
8.4  Configurable Inputs and Outputs: 
NO.  Items  Preset  Value Range 
4.1  Configurable input 1 
8  0-12 (define code as 8.7) 
4.2  Configurable input 2 
7  0-12 (define code as 8.7) 
4.3  Configurable input 3 
12  0-12 (define code as 8.7) 
4.4  Input 1 delay 
2S  0-60 S 
4.5  Input 2 delay 
2S  0-60 S 
4.6  Input 3 delay 
2S  0-60 S 
4.7  Configurable relay 1 
2  0-80 (define code as 8.8) 
4.8  Configurable relay 2 
3  0-80 (define code as 8.8) 
4.9  Configurable relay 3 
5  0-80 (define code as 8.8) 
NOTE: D-Input Delay is only for 1 to 4 codes in 8.7. 
DCP-10 
Page 19/27 
8.5  Calibration Menu: 
NO.  Items  Preset  Value Range 
5.1  GEN. V1 offset 
±10.0% 
5.2  GEN. V2 offset 
±10.0% 
5.3  GEN. V3 offset 
±10.0% 
5.4  Current I1 offset 
±10.0% 
5.5  Current I2 offset 
±10.0% 
5.6  Current I3 offset 
±10.0% 
5.7  Pressure offset 
±10.0% 
5.8  Temperature offset 
±10.0% 
5.9  Batt. V offset 
±10.0% 
8.6  The optional items for P/T-sensor: 
Code  The brand model of LOP sensor   The brand model of HET sensor 
0  not used  not used 
1  close for low oil pressure  close for high temperature  
2  open for low oil pressure  open for high temperature  
3  VDO 5 bar 
VDO 120 ℃ 
4  VDO 10 bar 
VDO 150 ℃ 
5  Datcon 7 bar  Datcon 
6  Murphy 7 bar  Murphy 
7  Pre-set 1  PT100 
8  Pre-set 2  Pre-set 1 
9  Pre-set 3  Pre-set 2 
10  Pre-set 4  Pre-set 3 
11  configured by user  Pre-set 4 
12    configured by user 
NOTE: 
  When  the  controller  leaves  factory,  the  optional  types  and  functions  of 
LOP sensor and HET sensor have been preset as the above table. If the 
using sensor is not listed in this table, the user can select “configurable”, 
and write sensor parameters to controller via software. 
  LOP sensor parameter addendum: 
VDO 5 bar: 
VDO 10 bar: 
P(Bar) 
0.0    0.5   1.0   1.5   2.0   2.5   3.0   3.5   4.0   4.5   5 
P(PSI) 
0  7.3
14.5
21.8
29.0
36.3
43.5
50.8
58.0
65.3
72.5
R(Ω) 
11  29  47  65  82  100  117  134  151  167  184 
P(Bar) 
0.0   1.0   2.0   3.0   4.0   5.0   6.0   7.0   8.0   9.0   10.0 
P(PSI) 
0  14.5
29.0
43.5
58.0
72.5
87.0
101.5
116.0
130.5
145.0
R(Ω) 
10  31  52  71  90  106  124  140  155  170  184 
DCP-10 
Page 20/27 
Datcon 7 bar: 
Murphy 7 bar: 
Pre-set 1: 
Pre-set 2: 
Pre-set 3: 
Pre-set 4: 
Type 11:
::
: 
  HET sensor parameter addendum: 
VDO 120℃
℃℃
℃: 
VDO 150℃
℃℃
℃: 
P(Bar) 
0.0   0.7   1.4   2.1   2.8   3.4   4.1   4.8   5.5   6.2   6.9 
P(PSI) 
0  10.0
20.0
30.0
40.0
50.0
60.0
70.0
80.0
90.0
100.0
R(Ω) 
240  200  165  135  115  95  78  63  48  35  25 
P(Bar) 
0.0   0.7   1.4   2.1   2.8   3.4   4.1   4.8   5.5   6.2   6.9 
P(PSI) 
0  10.0
20.0
30.0
40.0
50.0
60.0
70.0
80.0
90.0
100.0
R(Ω) 
240  205  171  143  123  103  88  74  60  47  33 
P(Bar) 
0.0   1.0   2.0   3.0   4.0   5.0   6.0   7.0   8.0   9.0   10.0 
P(PSI) 
0  14.5
29.0
43.5
58.0
72.5
87.0
101.5
116.0
130.5
145.0
R(Ω) 
15  31  49  66  85  101  117  132  149  164  178 
P(Bar) 
0.0   1.0   2.0   3.0   4.0   5.0   6.0   7.0   8.0   9.0   10.0 
P(PSI) 
0  14.5
29.0
43.5
58.0
72.5
87.0
101.5
116.0
130.5
145.0
R(Ω) 
30  41  65  88  110  115  145  150  172  185  190 
P(Bar) 
0.0  1.7  3.4  5.2  6.9  8.6  10.3
P(PSI) 
0  25  50  75  100  125  150       
R(Ω) 
21  36  52  72  84  100  120       
P(Bar) 
0.0   1.0   2.0   3.0   4.0   5.0   6.0   6.5   7.0   8.0   9.0 
P(PSI) 
0  14.5  29.0  43.5  58.0  72.5  87.0  94.3  101.5
116.0
130.5
R(Ω) 
251  195  155  127  107  88  72  65  61  54  48 
P(Bar)  0.0  0.5  1.0  1.5  2.0  2.5  3.0  3.5  4.0  4.5 
R(Ω) 
21.5
25  27.6
30.2
33.5
36.8
40.3
43.2
46.9
50.6
V  0.48  0.55  0.6  0.65  0.71  0.77  0.83  0.88  0.94  1.0 
T(℃) 
40  50  60  70  80  90  100  110  120  130  140 
T(℉) 
104  122  140  158  176  194  212  230  248  266  284 
R(Ω) 
291  197  134  97  70  51  38  29  22  18  15 
T(℃) 
50  60  70  80  90  100  110  120  130  140  150 
T(℉) 
122  140  158  176  194  212  230  248  266  284  302 
R(Ω) 
322  221  155  112  93  62  47  37  29  23  19 
DCP-10 
Page 21/27 
Datcon: 
Murphy: 
PT100: 
Pre-set 1: 
Pre-set 2: 
Pre-set 3: 
Pre-set 4: 
Type 12:
::
: 
8.7  The optional items for configurable input: 
Code  Optional Function  NOTE 
0  not used   
1  Pre-alarm (active immediately)  low level is active 
2  Shutdown Alarm(active immediately)  low level is active 
3  Pre-alarm (active after safety-on delay)  low level is active 
4  Shutdown Alarm(active after safety-on delay)  low level is active 
T(℃) 
40    50    60    70    80    90   100   110   120   130   140 
T(℉) 
104   122   140   158   176   194   212   230 
248   266   284 
R(Ω) 
900  600  400  278  200  141  104  74  50  27  4 
T(℃)  40  50  60  70  80  90  100  110  120  130  140 
T(℉) 
104  122  140  158  176  194  212  230  248  266  284 
R(Ω) 
1029  680  460  321  227  164  120  89  74  52  40 
T(℃) 
-100
-50  0  20  40  60  80  100  150  200  300 
T(℉) 
-148
-58  32  68  104  140  176  212  302  392  572 
R(Ω) 
60  81  100  108  116  123  131  139  157  176  212 
T(℃)  20  30  40  50  60  70  80  90  100  110  120 
T(℉)  68  86  104  122  140  158  176  194  212  230  248 
R(Ω) 
900  600  420  282  152  113  86  62  48  40  30 
T(℃)      30  50  60  70  80  90  100  110  120 
T(℉)      86  122  140  158  176  194  212  230  248 
R(Ω) 
980  400  265  180  125  90  65  50  38 
T(℃)  20  30  40  50  60  70  80  90  100  110  120 
T(℉)  68  86  104  122  140  158  176  194  212  230  248 
R(Ω) 
805  540  380  260  175  118  83  58  42  30  21 
T(℃)  28  35  40  50  60  70  80  90  95  98   
T(℉)  82  95  104  122  140  158  176  194  203  208 
R(Ω) 
579  404  342  250  179  136  103  77  67  63   
T(℃)  150  130  110  90  80  70  50  25  0  0 
R(Ω)  6.9  10.8  17.7  30.6  41.1  56.3  111.8
300  964.4
964.4
DCP-10 
Page 22/27 
5  LOP switch  low level is active 
6  HET switch  low level is active 
7  Emergency stop  low level is active 
8  Remote start signal  low level is active 
9  Reserved  low level is active 
10  Gen Aux. Switch closed  low level is active 
11  Low fuel level  low level is active 
12  Lamp test  low level is active 
8.8  The optional items for configurable output: 
Code  Failure Type Define  Code  Failure Type Define 
0  Not used  1  Over current tripping 
2  Alarm  3  Pre-alarm 
4  Idle 0 (N.C.)  5  Preheat 
6  Speed up  7  Reserved 
8  Fuel pump control  9  Running 
10  System in AUTO mode  11  Reserved 
12  System in MAN mode  13  Reserved 
14  Idle 1 (N.O.)  15  Reserved 
16  GCB failure (within 5s)  17  Fail to start 
NOTE: 
  If define one configurable relay as Speed up, the relay will close after the 
engine  has  successfully  started.  If  there  is  idle  function,  the  relay  will 
close after idle timer times out.
DCP-10 
Page 23/27 
9. LCD Display and Menu System 
Using  a  backlit  TN  type  LCD  to  display  data  and  information.  After  pressing  any  push  button  the 
backlight will automatically turn off in a preset time. In normal operating status, you can set the page 
scroll time to circularly display each page of measuring data. Press “ ” manually scrolls to view each 
measuring data. When failure occurs, LCD displays the corresponding failure icon. 
Press and hold “ ” button 2sec to enter into parameters setting menu, then use “ ” or “ ” to scroll 
page, press “ ” again to select the required modify item, press “ ” or “ ”, LCD displays 0 0 0 0 when 
prompted to enter password, then use “ ” or “ ” to modify the first digital value, press “ ” move to 
modify the next one, after this, the first digital value will be displayed as “H”. Press “ ” to confirm after 
the  password  is  set  as  2213,  then  you  can  modify  parameters.  Otherwise  it  will  prompt  to  key  in 
password again. Press and hold “ ” for more than 2sec to quit parameters setting mode after finishing 
configuration. 
9.1  Static LCD displays 
Controller is in standby status, circularly displays each measuring data:  
→
→→
→ 
Controller is normally running, circularly displays each measuring data:   
→
→→
→ 
→
→→
→ 
→
→→
→ 
→
→→
→ 
NOTE: 
  When T-sensor or P-sensor is set as “not used”, LCD will not display related 
measuring data.  
DCP-10 
Page 24/27 
9.2  Setting running parameters 
For example: (setting CT ratio at 1000/5, then CT should be configured as 200) 
Operation  Description 
Press and hold “ ” 2sec, enter into parameters setting menu, then LCD 
displays: 
press “ ”, then LCD displays: 
Press “ ”, prompted enter password, then LCD displays: 
Press “ ” or “ ”  prompted enter  password: (2213),  then press    “ ” 
again, press “ ” or “ ” to change parameter, change at 200, then LCD 
displays: 
Press “ ” to confirm,then press “ ”, then LCD displays: 
Press “ ” again to quit, or press and hold “ ” more than 2s also can 
quit, then LCD displays: 
For example: (setting controller crank attempt at 2) 
Operation  Description 
Press  and  hold  “ ”  2sec,  enter  into  parameters  settings  menu,  then 
LCD displays: 
Press “ ” 28 times and then press “ ”, then LCD displays: 
press “ ” prompted enter password, then LCD displays: 
Key in password: (2213), press “ ”, then LCD displays: 
Press “ ” or “ ” change parameter, change at 2, Press “ ” to confirm 
change,  and  then  press  and  hold  “
”  for  more  than  2sec  will  quit 
parameter settings menu. 
DCP-10 
Page 25/27 
For example: (resume parameters of controller to factory default) 
Operation  Description 
Press and hold “ ” 2sec, enter into parameter settings menu, then LCD 
displays: 
Press “ ” 8 times, then LCD displays: 
press “ ” prompted enter password, then key in  password: (2213) 
Press “ ” to recover default, press and hold “ ” for more than 2sec will 
quit parameters setting menu. 
For example: (configure controller as online program mode) 
Operation  Description 
Press and hold “ ” 2sec, enter into parameter settings menu, then LCD 
displays: 
Press “ ” 9 times and then LCD displays: 
press “ ” prompted enter password, then  key in password: (3132) 
Press  “ ”  again  to  enter  into  online  program  mode,  use  the 
communication cable and the software to program, please make sure 
the  power  supply  is  normal  during  programming,  the  controller  will 
reset  automatically  after  programming.  If  you  have  entered  into  this 
mode already, but you do not program, you need to turn the controller 
off to exit this mode. 
DCP-10 
Page 26/27 
10. Preparation before Starting the Controller 
10.1 Make sure the controller is correctly installed to meet the ambient requirements. 
10.2 Confirm  all  wiring  connections  of  the  controller  meet  the  correct  electric  specification  and 
corresponding to “2.3 typical wiring diagram”. Ensure the correct polarity of the DC supply source 
and that it has been protected by an external fuse. Otherwise damage to the controller may occur. 
10.3 We recommend mounting an “Emergency Stop” button externally. The emergency stop input could 
be  connected  to  N.O.  contact  of  emergency  stop  push  button,  and  the  other  contactor  point  be 
connected to the battery negative. 
10.4 Switch on DC working power, make sure the preset parameters meet practical operating conditions, 
such as P-sensor mode, T-sensor mode, etc. 
DCP-10 
Page 27/27 
11. Technical Specification 
DC working power 
Voltage range: 12V/24V   (8-35V continuous) 
Cranking drop outs: 0V for 100mS, assuming dc supply was at least 10V before dropout and recovers 
to 5V 
Max. operating current: @12V 180mA, @24V 90mA 
Standby current: TBA 
AC input voltage: phase voltage15-300Vac RMS (AC frequency≥40 Hz) 
AC input frequency: 3-70Hz (voltage ≥15V) 
Accuracy: 1% 
Aux Control relay output: 3A/30Vdc 
Start relay output: 3A/30Vdc 
Fuel relay output: 3A/30Vdc 
Protection: IP65 (when correctly installed) 
Operating ambient temperature:  -20 to 70℃  
Storage ambient temperature:  -30 to 80℃ 

Понравилась статья? Поделить с друзьями:

Не пропустите эти материалы по теме:

  • Яндекс еда ошибка привязки карты
  • Врожденные ошибки метаболизма
  • Врожденные ошибки иммунитета классификация
  • Время совершать ошибки кальян горчит
  • Время пролетело вспять наша встреча ошибка скачать

  • 0 0 голоса
    Рейтинг статьи
    Подписаться
    Уведомить о
    guest

    0 комментариев
    Старые
    Новые Популярные
    Межтекстовые Отзывы
    Посмотреть все комментарии