HAAS Workoffset #G110 to G129

[Odin]

Hello,

 where in the post do I change how the offsets are numbered after G59? I need the program to post out G110-G129 instead of G54.1 p2 and so forth. 

Here is the MPM HAAS VMC Post...... TIA

pwcs            #G54+ coordinate setting at toolchange
      if wcstype = two | wcstype > three,
        [
        sav_frc_wcs = force_wcs
        if sub_level$ > zero, force_wcs = zero
        if sav_mi9 = 1, workofs$ = sav_workofs
        if workofs$ < 0, workofs$ = 0
        if workofs$ <> prv_workofs$ | (force_wcs & toolchng) | sof,
          [
          if workofs$ < 6,
            [
            g_wcs = workofs$ + 54
            *g_wcs
            ]
          else,
            [
            if haas,
              [
              p_wcs = workofs$ - five        #G154 P1 to P99
              "G154", *p_wcs
              #g_wcs = workofs$ + 104        #G110 to G129
              #*g_wcs
              ]
            else,
              [
              p_wcs = workofs$ - five
              "G54.1", *p_wcs
              ]
            ]
          ]
        force_wcs = sav_frc_wcs
        !workofs$
        ]

[Colin Gilchrist]

The code already exists, but you need to change the comments, to control the use.

 

pwcs            #G54+ coordinate setting at toolchange
      if wcstype = two | wcstype > three,
        [
        sav_frc_wcs = force_wcs
        if sub_level$ > zero, force_wcs = zero
        if sav_mi9 = 1, workofs$ = sav_workofs
        if workofs$ < 0, workofs$ = 0
        if workofs$ <> prv_workofs$ | (force_wcs & toolchng) | sof,
          [
          if workofs$ < 6,
            [
            g_wcs = workofs$ + 54
            *g_wcs
            ]
          else,
            [
            if haas,
              [
              #p_wcs = workofs$ - five        #G154 P1 to P99
              #"G154", *p_wcs
              g_wcs = workofs$ + 104        #G110 to G129
              *g_wcs
              ]
            else,
              [
              p_wcs = workofs$ - five
              "G54.1", *p_wcs
              ]
            ]
          ]
        force_wcs = sav_frc_wcs
        !workofs$
        ]