Advanced Search

          REMAP = G10.1  modalgroup=1   argspec=xyz  ngc=g10_increment

o<g10_increment>sub
M66 L0 E0                    ;force sync, stop read ahead    

o100 if [EXISTS [#<X>]]      ;check for X-word, set to zero if missing                       
o100 else
    #<X> = 0                                                  
o100 endif
o101 if [EXISTS [#<Y>]]     ;check for Y-word, set to zero if missing  
o101 else
    #<Y> = 0                                                  
o101 endif
o102 if [EXISTS [#<Z>]]     ;check for Z-word, set to zero if missing  
o102 else
    #<Z> = 0                                                  
o102 endif

; calculate which parameter contains the current X,Y,Z offset values
#<x_current> = [5201 + #5220 * 20]
#<y_current> = [5202 + #5220 * 20]
#<z_current> = [5203 + #5220 * 20]

; add the passed X,Y,Z words to the current offset values
G10 L2 P0 X[#[#<x_current>] + #<X>] Y[#[#<y_current>] + #<Y>] Z[#[#<z_current>] + #<Z>]

M66 L0 E0                   ;force sync, stop read ahead
o<g10_increment>endsub
m2