Post Reply 
Dismal Arithmetic & 3 Progs for 49G & Others
10-30-2015, 10:43 AM
Post: #28
RE: Dismal Arithmetic & 3 Progs for 49G & Others
Here a copy of Dave Britten's programmes for the HP 42S.

DIS+ performs dismal addition, DIS* dismal multiplication.

Code:

0.    { 174-Byte Prgm }
1.    LBL “DIS+”
2.    STO 02
3.    XEQ 00
4.    X<>Y
5.    STO 01
6.    XEQ 00
7.    X<Y?
8.    X<>Y
9.    1E3
10.    /
11.    1
12.    +
13.    STO 04
14.    0
15.    STO 03
16.    LBL 01
17.    RCL 01
18.    RCL 04
19.    IP
20.    XEQ 02
21.    RCL 02
22.    RCL 04
23.    IP
24.    XEQ 02
25.    X<Y?
26.    X<>Y
27.    RCL 04
28.    IP
29.    1
30.    -
31.    10^X
32.    *
33.    STO+ 03
34.    ISG 04
35.    GTO 01
36.    RCL 03
37.    RTN
38.    LBL 00
39.    X=0?
40.    RTN
41.    ABS
42.    LOG
43.    1
44.    +
45.    IP
46.    RTN
47.    LBL 02
48.    1
49.    -
50.    10^X
51.    /
52.    IP
53.    10
54.    /
55.    FP
56.    10
57.    *
58.    RTN
59.    LBL "DIS*"
60.    STO 06
61.    XEQ 00
62.    STO 08
63.    X<>Y
64.    STO 05
65.    XEQ 00
66.    1E3
67.    /
68.    STO 09
69.    0
70.    STO 07
71.    LBL 04
72.    0
73.    STO 10
74.    RCL 06
75.    RCL 08
76.    IP
77.    XEQ 02
78.    STO 11
79.    RCL 09
80.    FP
81.    1
82.    +
83.    STO 09
84.    LBL 03
85.    RCL 11
86.    RCL 05
87.    RCL 09
88.    IP
89.    XEQ 02
90.    X>Y?
91.    X<>Y
92.    RCL 09
93.    IP
94.    1
95.    -
96.    10^X
97.    *
98.    STO+ 10
99.    ISG 09
100.    GTO 03
101.    10
102.    RCL* 07
103.    RCL 10
104.    XEQ "DIS+"
105.    STO 07
106.    DSE 08
107.    GTO 04
108.    RCL 07
109.    END
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
RE: Dismal Arithmetic & 3 Progs for 49G & Others - Gerald H - 10-30-2015 10:43 AM



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