Dismal Arithmetic & 3 Progs for 49G & Others

[Gerald H]

Two programmes for the HP 35S, a translation of Dave Britten's 32S programmes above.

Given stack levels X & Y integers, programme A returns dismal sum & programme M returns dismal product.

Code:


Addition
1    LBL A
2    STO B
3    XEQ A038
4    x<>y
5    STO A
6    XEQ A038
7    x<y?
8    x<>y
9    3
10    10^x
11    /
12    1
13    +
14    STO D
15    0
16    STO C
17    RCL A
18    RCL D
19    IP
20    XEQ A046
21    RCL B
22    RCL D
23    IP
24    XEQ A046
25    x<y?
26    x<>y
27    RCL D
28    IP
29    1
30    -
31    10^x
32    *
33    STO+ C
34    ISG D
35    GTO A017
36    RCL C
37    RTN
38    x=0?
39    RTN
40    ABS
41    LOG
42    1
43    +
44    IP
45    RTN
46    1
47    -
48    10^x
49    /
50    IP
51    10
52    /
53    FP
54    10
55    *
56    RTN

Multiplication
1    LBL M
2    STO H
3    XEQ A038
4    STO J
5    x<>y
6    STO G
7    XEQ A038
8    3
9    10^x
10    /
11    STO K
12    0
13    STO I
14    0
15    STO L
16    RCL H
17    RCL J
18    IP
19    XEQ A046
20    STO M
21    RCL K
22    FP
23    1
24    +
25    STO K
26    RCL M
27    RCL G
28    RCL K
29    IP
30    XEQ A046
31    x>y?
32    x<>y
33    RCL K
34    IP
35    1
36    -
37    10^x
38    *
39    STO+ L
40    ISG K
41    GTO M026
42    10
43    RCL* I
44    RCL L
45    XEQ A001
46    STO I
47    DSE J
48    GTO M014
49    RCL I
50    RTN