(41C) Decimal Bitwise Operations

[Eddie W. Shore]

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.

Download the PDF here: https://drive.google.com/file/d/1g7fhB4e...sp=sharing

[Thomas Klemm]

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