Dismal Arithmetic & 3 Progs for 49G & Others

[Dave Britten]

Here's a straight-forward UserRPL version I threw together on my 48SX. It's only intended to operate on non-negative integers; passing anything else has undefined results.

Code:

NUMLEN:
<<
  IF DUP 0 !=
  THEN ABS LOG 1 + IP
  END
>>

DIGIT:
<< 1 - ALOG / IP 10 MOD >>

DADD:
<< 0 0 -> A B C M
  << A NUMLEN B NUMLEN MAX 'M' STO
    1 M FOR I
      A I DIGIT B I DIGIT MAX I 1 - ALOG * 'C' STO+
    NEXT
    C
  >>
>>

DMULT:
<< 0 0 0 0 -> A B D M P S
  << B NUMLEN 'M' STO
    A NUMLEN
    IF DUP 0 !=
    THEN
      1 FOR I
        0 'P' STO A I DIGIT 'D' STO
        1 M FOR J
          B J DIGIT D MIN J 1 - ALOG * 'P' STO+
        NEXT
        S 10 * P DADD 'S' STO
      -1 STEP
      S
    END
  >>
>>

Usage is pretty straight-forward. Enter your two operands on the stack, and run DADD or DMULT. I might take a stab at doing a 32S version.