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