The Museum of HP Calculators


Contract Bridge Scoring Pad #2 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 Solution Book. 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 "CBRDG2"
 02 LBL 16
 03 LBL b
 04 FS?C 02
 05 XEQ 17
 06 ST+ IND 25
 07 RTN
 08 LBL 17
 09 LBL c
 10 RCL 04
 11 X<=Y?
 12 SF 02
 13 RDN
 14  E5
 15 /
 16 RTN
 17 LBL 00
 18 0
 19 STO 21
 20 STO 02
 21 RCL 00
 22 7PRTX
 23 RCL 05
 24 X#0?
 25 GTO 07
 26 RCL 06
 27 X#0?
 28 GTO 09
 29 RCL 01
 30 STOP
 31 LBL 07
 32 RCL 06
 33 X#0?
 34 GTO 08
 35 RCL 01
 36 PSE
 37 RCL 22
 38 PSE
 39 GTO 07
 40 LBL 08
 41 RCL 01
 42 PSE
 43 GTO 08
 44 LBL 09
 45 RCL 01
 46 PSE
 47 RCL 23
 48 PSE
 49 GTO 09
 50 LBL 10
 51 LBL A
 52 20
 53 GTO 15
 54 LBL 12
 55 LBL C
 56 10
 57 STO 21
 58 X<>Y
 59 LBL 11
 60 LBL B
 61 30
 62 LBL 15
 63 LBL a
 64 STO 20
 65 RDN
 66 CF 02
 67 X<0?
 68 SF 02
 69 STO 04
 70 ABS
 71 STO 03
 72 RCL 04
 73 RCL 05
 74 *
 75 X>0?
 76 SF 00
 77 RCL 04
 78 RCL 06
 79 *
 80 X<0?
 81 SF 01
 82 CF 22
 83 RCL 23
 84 STOP
 85 FS?C 22
 86 STO 02
 87 RCL 22
 88 3
 89 *
 90 STOP
 91 FS?C 22
 92 XEQ 16
 93 RCL 24
 94 STOP
 95 STO 07
 96 RCL 03
 97 X<=Y?
 98 GTO 13
 99 RCL 02
100 X>0?
101 GTO 01
102 RCL 07
103 ENTER
104 FS? 00
105 +
106 FS? 01
107 +
108 RCL 09
109 *
110 GTO 18
111 LBL 01
112 2
113 FS? 00
114 3
115 FS? 01
116 3
117 RCL 08
118 *
119 RCL 07
120 *
121 RCL 08
122 +
123 RCL 02
124 *
125 GTO 18
126 LBL 18
127 LBL d
128 FS?C 02
129 GTO 19
130  E5
131 /
132 LBL 19
133 LBL e
134 ST- 00
135 RCL 04
136 X<0?
137 SF 02
138 GTO 00
139 LBL 13
140 LBL D
141 1.5
142 RCL 08
143 5
144 *
145 FS? 00
146 *
147 FS? 01
148 *
149 RCL 03
150 5
151 -
152 X<0?
153 0
154 *
155 XEQ 16
156 7ISZ
157 RCL 03
158 ST- 07
159 RCL 20
160 *
161 RCL 21
162 +
163 RCL 02
164 ENTER
165 +
166 X>0?
167 *
168 X=0?
169 RDN
170 XEQ 16
171 0
172 STO 25
173 RCL 07
174 RCL 08
175 *
176 RCL 02
177 *
178 ENTER
179 FS? 00
180 +
181 FS? 01
182 +
183 RCL 07
184 RCL 20
185 *
186 X<=Y?
187 RDN
188 XEQ 16
189 RCL 02
190 X>0?
191 RCL 09
192 XEQ 16
193 RCL 01
194 RCL 08
195 X<=Y?
196 XEQ 03
197 RCL 01
198 FRC
199  E5
200 *
201 RCL 08
202 X<=Y?
203 XEQ 04
204 RCL 05
205 RCL 06
206 R-P
207 4
208 X>Y?
209 GTO 00
210 RCL 22
211 9
212 *
213 STOP
214 LBL 03
215 2
216 ST+ 05
217 GTO 03
218 LBL 04
219 2
220 ST+ 06
221 LBL 03
222 RCL 01
223 ST+ 00
224 0
225 STO 01
226 RTN
227 GTO 67
228 END

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