[tcl] Make this function more maintainable (get rid of old PASM style var names, splitting them up into saner chunks.)
[tcl] Make this function more maintainable (get rid of old PASM style var
names, splitting them up into saner chunks.)



git-svn-id: 6e74a02f85675cec270f5d931b0f6998666294a3@29535 d31e2699-5ff4-0310-a27c-f18f2fbe73fe

ashgti/parrot,ashgti/parrot,ashgti/parrot,ashgti/parrot,ashgti/parrot,ashgti/parrot,ashgti/parrot