Re: Convert from Hex to Binary....

[Mel Rothman <mel@xxxxxxxxxxxxxx>]

For what it's worth, the array method I suggested is a little faster than using cvtch and 
itoa.

itoa does not left pad results that have fewer than 8 binary digits. For example x'01' 
comes back as 1; x'02' comes back as '10', etc.

Here are my test results for 160,000 iterations using each of three different 
subprocedures:

0.960632 seconds - Using arrays

1.063816 seconds - using cvtch and itoa without padding '0's on the left

1.225792 seconds - using cvtch and itoa with additional logic to pad '0's on 
the left.
I used the following instructions, where int1 is the one byte returned by cvtch in 3i 0 
format, string9 is 9 characters and rtn is 8 characters:
evalr rtn = %str(itoa(int1:string9:2));
return %xlate(' ':'0':rtn);

CGIDEV2's timerStart and timerEelapsed subprocedures were used for timing.

Mel Rothman
Mel Rothman, Inc.

Leif Guldbrand wrote:
> Thanks for the answers from Jonathan, Mel and Bob,
>
> I have the program up'n running now.... :-)
>
> Bob...: 
> > I'll convert it for you.
>
> Thanks... a great offer, but I like to do it myself with some
> help now and then :-)  - - - - but I used your suggestion.
>
> Best regards,
> Leif