sub program no

[tryon]

I changed over my post to output local sub calls but dont like the numbering sceme. I would like my subs to start numbering from 9901 and up and not take the main program number into account? As it is now if my main is say O2000 then my subs will be named 11001,11002 etc.

 

 

psub_call_s #Call to sub level

#result = nwadrs(strp, sub_prg_no)

sub_prg_no = sub_prg_no + sav_progno + 9000 #Add sub number offset

if sav_progno = sub_prg_no, result = mprint(sprgnerror)

pbld, n, "M98", *sub_prg_no, e

sub_loc_call = sub_prg_no

 

this is what calls it. i have added to and modified this to get my calls right(almost).

 

TIA

[Jimmy Wakeford from Barefoot CNC]

Make sure you dont have any code setting sub_prg_no elsewhere first. Then

 

sub_prg_no : 9900 #initialize sub_prg_no

 

psub_call_s #Call to sub level

#result = nwadrs(strp, sub_prg_no)

sub_prg_no = sub_prg_no + 1 #change here

if sav_progno = sub_prg_no, result = mprint (sprgnerror)

pbld, n, "M98", *sub_prg_no, e

sub_loc_call = sub_prg_no

 

Jimmy

[Allan Brown]

sub_prg_no = sub_prg_no + 9000 #Add sub number offset

[tryon]

Thanks Jimmy and Dave.

 

I made it like what Jimmy had except changed the one line to what Dave had, with the exception of having to add 9900 to the sub_prg_no

 

thanks