HP Forums

Description:
This program allows to convert numbers from one base to another.

Register:
Reg 1: from-base
Reg 2: to-base

Program:
STO 0
RCL 1
RCL 2
-
x<>y
LBL 0
RCL 1
x<>y
RCL 2
÷
INT
x=0
GTO 1
R↓
×
R↓
×
STO + 0
R↓
GTO 0
LBL 1
RCL 0

Examples:
Dec - Bin
Reg 1: 10
Reg 2: 2
21 - 10101

Hex - Dec
Reg 1: 16
Reg 2: 100
0xCAFE = 12:10:15:14
12101514 - 51966

Code:

01 -    44  0  STO 0

02 -    45  1  RCL 1

03 -    45  2  RCL 2

04 -       30  −

05 -       34  x<>y

06 -    45  1  RCL 1

07 -       34  x<>y

08 -    45  2  RCL 2

09 -       10  ÷

10 -    43 25  INTG

11 -    43 35  x=0

12 - 43,33 20  GTO 20

13 -       33  R↓

14 -       20  ×

15 -       33  R↓

16 -       20  ×

17 - 44 40  0  STO+ 0

18 -       33  R↓

19 - 43,33 06  GTO 06

20 -    45  0  RCL 0

Example: 2014₁₀ → 3736₈
10 STO 1
8 STO 2
2014 R/S

This is another solution that uses the function NPV:

Code:

01 -       36  ENTER

02 -       36  ENTER

03 -    45 15  RCL FV

04 -       10  ÷

05 -    43 25  INTG

06 -    43 13  CFo

07 -    45 15  RCL FV

08 -       10  ÷

09 -    43 25  INTG

10 -    43 35  x=0

11 - 43,33 14  GTO 14

12 -    43 14  CFj

13 - 43,33 07  GTO 07

14 -       33  R↓

15 -        1  1

16 -    45 14  RCL PMT

17 -       22  1/x

18 -       24  Δ%

19 -    44 12  STO i

20 -       33  R↓

21 -       33  R↓

22 -    42 13  NPV

23 -    45 14  RCL PMT

24 -    45 15  RCL FV

25 -       30  −

26 -       20  ×

27 -       40  +

Example: 2014₁₀ → 3736₈
10 STO PMT
8 STO FV
2014 R/S

BC:ANS=
N+
(FROM-TO)\(\times\)
\(\Sigma\)(I:0:LOG(N)\(\div\)LOG(TO):1:
L(N:IDIV(N:TO))\(\times\)FROM^I
)

Example: DEC → OCT

Code:

         2014

+   2 *   251

+  20 *    31

+ 200 *     3

         ----

         3736

10 → FROM
8 → TO
2014 → N
ANS

Code:

 23    : LBL

 11    : A

 33 01 : STO 1

 34 02 : RCL 2

 34 03 : RCL 3

 51    : -

 35 07 : g x<>y

 23    : LBL

 00    : 0

 34 02 : RCL 2

 35 07 : g x<>y

 34 03 : RCL 3

 81    : /

 31    : f

 83    : INT

 00    : 0

 35 23 : g x=y

 22    : GTO

 01    : 1

 61    : +

 35 08 : g Rv

 71    : x

 35 08 : g Rv

 71    : x

 34 01 : RCL 1

 61    : +

 33 01 : STO 1

 35 08 : g Rv

 22    : GTO

 00    : 0

 23    : LBL

 01    : 1

 34 01 : RCL 1

 24    : RTN

 23    : LBL

 12    : B

 34 02 : RCL 2

 34 03 : RCL 3

 33 02 : STO 2

 35 07 : g x<>y

 33 03 : STO 3

 24    : RTN

Code:

Title: Base Conversion

A: convert

B: switch

C: 

D: 

E:

Registers

R1: n
R2: from
R3: to

Examples

Base conversion between 40 and 100.

Initialization

40 STO 2
100 STO 3

Encoding

1503243917
A

38631977

Decoding

B
38631977
A

1503243917

References

Thomas Klemm

Thomas Klemm

Thomas Klemm

Thomas Klemm