The Museum of HP Calculators

26 and 36 for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the HP-67 Games of Chance Solution Book. This program was ported to the HP-41C by reading with the HP-41C card reader and the card reader may be required for operation of this program. This program was entered and uploaded by Tony Duell.

This program is supplied without representation or warranty of any kind. Tony Duell, Hewlett Packard and The Museum of HP Calculators therefore assume no responsibility and shall have no liability, consequential or otherwise, of any kind arising from the use of this program material or any part thereof.

Documentation Information (CD or source code)
How to get this Program to your Calculator (via HP-IL, disk, wand, and fingers)
Download Binary (.raw) program for disk or PC HP-IL Card download
Download Hexadecimal (.dat) program for Serial Port download

Program Listing

LINE  KEYS
 01 LBL "G2636"
 02 LBL 10
 03 LBL A
 04 STO 20
 05 .25
 06 ST- 00
 07 0
 08 STO 01
 09 13
 10 STO 21
 11 LBL 18
 12 LBL d
 13 10
 14 STO 25
 15 0
 16 ENTER
 17 LBL 00
 18 10
 19 *
 20 XEQ 19
 21 RCL 20
 22 X=Y?
 23 XEQ 01
 24 CLX
 25 +
 26 +
 27 7DSZ
 28 GTO 00
 29 7PRTX
 30 RCL 21
 31 1
 32 -
 33 STO 21
 34 X#0?
 35 GTO 18
 36 1
 37 STO 25
 38 RCL 01
 39 33
 40 X<=Y?
 41 7ISZ
 42 7
 43 -
 44 X<=Y?
 45 7ISZ
 46 2
 47 /
 48 X=Y?
 49 XEQ 02
 50 2
 51 -
 52 X<>Y
 53 X<=Y?
 54 7ISZ
 55 1
 56 RCL 25
 57 X=Y?
 58 0
 59 ST+ 00
 60 RCL 01
 61 PSE
 62 X<>Y
 63 PSE
 64 RCL 00
 65 RTN
 66 LBL 01
 67 1
 68 ST+ 01
 69 CLX
 70 +
 71 RTN
 72 LBL 02
 73 .5
 74 STO 25
 75 CLX
 76 +
 77 RTN
 78 LBL 11
 79 LBL B
 80 SF 01
 81 STO 05
 82 ST- 02
 83 0
 84 STO 03
 85 STO 04
 86 XEQ 15
 87 XEQ 16
 88 LBL 17
 89 LBL c
 90 7DSP2
 91 RCL 04
 92 RCL 03
 93 X>Y?
 94 GTO 09
 95 X<>Y
 96 X>Y?
 97 GTO 04
 98 RCL 05
 99 ST+ 02
100 PSE
101 RCL 02
102 RTN
103 LBL 12
104 LBL C
105 CF 01
106 STO 05
107 ST- 02
108 0
109 STO 03
110 STO 04
111 XEQ 16
112 XEQ 15
113 GTO 17
114 LBL 13
115 LBL D
116 RCL 02
117 RTN
118 LBL 14
119 LBL E
120 STO 24
121 RTN
122 LBL 15
123 LBL a
124 7DSP2
125 LBL 05
126 XEQ 19
127 ST+ 03
128 LBL 03
129 36
130 RCL 03
131 X>Y?
132 GTO 04
133 PSE
134 X>0?
135 GTO 03
136 X<0?
137 GTO 05
138 RTN
139 LBL 04
140 7DSP2
141 RCL 05
142 CHS
143 STOP
144 LBL 16
145 LBL b
146 7DSP0
147 LBL 06
148 XEQ 19
149 ST+ 04
150 36
151 RCL 04
152 CF 22
153 PSE
154 FS?C 22
155 GTO 04
156 X>Y?
157 GTO 09
158 FS? 01
159 GTO 07
160 LBL 08
161 33
162 X<=Y?
163 RTN
164 GTO 06
165 LBL 07
166 RCL 03
167 X<>Y
168 X=Y?
169 GTO 08
170 X<=Y?
171 GTO 06
172 RTN
173 LBL 09
174 7DSP2
175 RCL 05
176 2
177 *
178 ST+ 02
179 STOP
180 LBL 19
181 LBL e
182 RCL 24
183 997
184 *
185 FRC
186 STO 24
187 6
188 *
189 1
190 +
191 INT
192 RTN
193 STOP
194 END

Go back to the HP-41 software library
Go back to the general software library
Go back to the main exhibit hall