(41C) Decimal Bitwise Operations
06-21-2020, 01:47 PM
Post: #1
 Eddie W. Shore Senior Member Posts: 1,408 Joined: Dec 2013
(41C) Decimal Bitwise Operations
The document covers the following operations:

NOT: for integers
AND: for positive integers
OR: for positive integers
XOR: for positive integers
Simple conversions between Binary and Decimal bases (integers up to 1023)

No extra or additional modules required. Should work for the Swiss Micros DM41 and any emulators.

07-04-2022, 06:04 AM
Post: #2
 Thomas Klemm Senior Member Posts: 1,814 Joined: Dec 2013
RE: (41C) Decimal Bitwise Operations
Binary to Decimal Conversions

These programs are based on: (11C) Base Conversion
Only from-base and to-base are replaced by constant values.
An explanation can be found here and there.

Binary to Decimal:
Code:
  01 LBL "B-D"   02 STO 00   03 8   04 X<>Y   05 LBL 00   06 2   07 X<>Y   08 10   09 /   10 INT   11 X=0?   12 GTO 01   13 RDN   14 *   15 RDN   16 *   17 ST- 00   18 RDN   19 GTO 00   20 LBL 01   21 RCL 00   22 END

Decimal to Binary:
Code:
  01 LBL "D-B"   02 STO 00   03 8   04 X<>Y   05 LBL 00   06 10   07 X<>Y   08 2   09 /   10 INT   11 X=0?   12 GTO 01   13 RDN   14 *   15 RDN   16 *   17 ST+ 00   18 RDN   19 GTO 00   20 LBL 01   21 RCL 00   22 END

Examples

11011
XEQ B-D

27

110
XEQ D-B

1101110

This variant based on a program for the HP-25 saves one byte:
Code:
  01 LBL "B-D"   02 STO 00   03 8   04 X<>Y   05 LBL 00   06 10   07 /   08 INT   09 X=0?   10 GTO 01   11 X<>Y   12 ENTER^   13 ENTER^   14 +   15 RDN   16 *   17 ST- 00   18 RDN   19 GTO 00   20 LBL 01   21 RCL 00   22 END
 « Next Oldest | Next Newest »

User(s) browsing this thread: 1 Guest(s)