Message #242893

[Runer112]

In the current state of Axe, I agree, the input comamnd is a little lacking in terms of supporting commands. It returns a string of tokens, but there are no Axe commands to handle strings of tokens...


However, you can always make your own. Here's a routine I whipped up to return 1 if a token pointed to is a 2-byte token, or 0 if it's a 1-byte token.

Code: Select All | Copy To Clipboard

1 2 3 4

.INPUT=pointer to token Lbl Is2B Return inData({},[BB5C5D5E606162637EAAEF00])+255/256

You could then call this routine from another routine, like this routine I wrote to print a length-prefixed string of tokens (that's what the input command returns) to the screen/buffer:

Code: Select All | Copy To Clipboard

1 2 3 4 5 6 7 8

.INPUT=pointer to first token Lbl Print →r₁+{-2}ʳ→r₂ Lbl PL Return!If -r₁ Text Select(r₁,+Is2B()+1→r₁)►Tok r₂:Goto PL