Gcode subroutings issues

O123 sub

   O<200> IF [5 LE 0.01]
      O123 RETURN
   O<200> ENDIF

   O124 WHILE [1]
      O124 BREAK
   O124 ENDWHILE

O123 endsub(End definitions)

M02

#<_tool_feed> = 100
   (Rectangle sub definition)
   O<multipass> SUB
      #<sub> = #1
      #<depth> = #2
      #<step> = #3
      #<surface> = #4
      #<rappid> = #5
      #<x0> = #6
      #<y0> = #7      
   
      G0 Z#<rappid>
      G0 X#<x0> Y#<y0>
      #<z> = #<surface>
      O<multipass-while> WHILE [#<z> GT #<depth>]
         
         #<z> = [#<z>-#<step>]
         O<multipass-if> IF [#<z> LT #<depth>]
            #<z>=#<depth>
         O<multipass-if> ENDIF 
         F#<_tool_feed>
         G1 Z#<z>   
         (call pass sub with the restof parameters)
         (DEBUG, #<sub>)
         #<sub> = #1
         O#<sub> CALL [#8] [#9] [#10] [#11] [#12] [#13] [#14] [#15] [#16] [#17] [#18] [#19]
      
      O<multipass-while> ENDWHILE
   
      G0 Z#<rappid>   
   O<multipass> ENDSUB




(Rectangle sub definition)
#<_spiral-rectangle> = 1000
O#<_spiral-rectangle> sub
   #<cx> = #1
   #<cy> = #2
   #<w>  = #3
   #<h>  = #4
   #<spiral-step> = #5 
   #<a>  = #6

   O<spiral-rectangle-if-0001> IF [#<spiral-step> GT 0.01]
        
      #<x1> = [#<cx>-#<w>/2]
      #<x2> = [#<cx>+#<w>/2]
      #<y1> = [#<cy>-#<h>/2]
      #<y2> = [#<cy>+#<h>/2]
      G1 X#<x1> Y#<y1>

      ; CW
      O<spiral-rectangle-while> WHILE [1]
      
         G1 X#<x1> Y#<y2>
         #<x1> = [#<x1> + #<spiral-step>]   
         O<spiral-rectangle-if-0002> IF [#<x1> GT #<x2>]
            G1 X[[#<x1>+#<x2>]/2]
            G1 Y[#<y1>]
            O<spiral-rectangle-while> BREAK
         O<spiral-rectangle-if-0002> ENDIF


         G1 X#<x2> Y#<y2>
         #<y2> = [#<y2> - #<spiral-step>]   
         O<spiral-rectangle-if-0003> IF [#<y1> GT #<y2>]
            G0 Y[[#<y1>+#<y2>]/2]
            G0 X[#<x1>]
            O<spiral-rectangle-while> BREAK
         O<spiral-rectangle-if-0003> ENDIF
   
         G1 X#<x2> Y#<y1>
         #<x2> = [#<x2> - #<spiral-step>]   
         O<spiral-rectangle-if-0004> IF [#<x1> GT #<x2>]
            G1 X[[#<x1>+#<x2>]/2]
            G1 Y[#<y1>]
            O<spiral-rectangle-while> BREAK
         O<spiral-rectangle-if-0004> ENDIF
   
         G1 X#<x1> Y#<y1> 
         #<y1> = [#<y1> + #<spiral-step>]   
         O<spiral-rectangle-if-0005> IF [#<y1> GT #<y2>]
            G0 Y[[#<y1>+#<y2>]/2]
            G0 X[#<x2>]
            O<spiral-rectangle-while> BREAK
         O<spiral-rectangle-if-0005> ENDIF
   
      O<spiral-rectangle-while> ENDWHILE

   O<spiral-rectangle-if-0001> ENDIF

O#<_spiral-rectangle> endsub(End definitions)

(Call spiral rectangle sub cX cY w h spiral-step depth depth-step surface rappid)

;               sub               depth step surf rappid   #x0 #y0 #cx #cy   w    h    [spir-step]
O<multipass> CALL [#<_spiral-rectangle>] [-5.1] [1] [0] [10]       [5] [2] [1]  [1]  [10] [20] [.1]
  
M02

o100 sub

(MSG, inside 100 sub)

o100 endsub

#<_tester> = 100

G17 G21 G8 G40 G49
G80
G90 G94
F600 S800
M3
M8

G00 X0 Y0 Z20

o[#<_tester>] call

M1

g28

M5
M9
M2

#<tester> = 100
o100 sub
	(MSG, inside 100 sub)
o100 endsub

o200 sub
    o[#<tester>] call
o200 endsub
...
o200 call

#<_tester> = 100
o100 sub
	(MSG, inside 100 sub)
o100 endsub

o200 sub
    o[#<_tester>] call
o200 endsub
...
o200 call