HP 50g Binary Number Formatting

[Claudio L.]

(04-24-2022 10:40 AM)3298 Wrote:  As do the majority of good RPL programs, because in most cases variables are both bulkier and slower.

Such antiquated concept... newRPL variables are often faster than the stack.

Anyway, here's my take in newRPL dialect:

Code:


«
  → N 
  « 
    ""                          @@ START WITH AN EMPTY STRING
    DO
      #10000b N #Fh BAND +      @@ ISOLATE 4 BITS, TURN THE 5TH BIT ON TO GET ALL 4 DIGITS
      →STR 3 6 SUB              @@ CONVERT TO STRING "#1xxxxb" AND EXTRACT THE 4 DIGITS
      SWAP +                    @@ PREPEND TO THE ORIGINAL STRING
      N 4 BLSR 'N' STO          @@ ROTATE 4 BITS TO THE RIGHT TO GET THE NEXT DIGIT
      IF N THEN " " SWAP + END  @@ PREPEND A SPACE IF THERE ARE ANY MORE NONZERO DIGITS
    UNTIL  
        N NOT                   @@ END THE LOOP WHEN NO MORE NONZERO DIGITS
   END
  »
»