The Museum of HP Calculators
The Museum of HP Calculators
This program is Copyright © HP and is used here by permission. It was originally printed in the HP-67 Math Pac 1. 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
LINE KEYS 01 LBL "BASE67" 02 LBL 10 03 LBL A 04 STO 24 05 FS? 00 06 ADV 07 FS? 00 08 7PRTX 09 10 10 STO 22 11 STO 23 12 E12 13 STO 08 14 RDN 15 RDN 16 RTN 17 LBL 11 18 LBL B 19 STO 23 20 FS? 00 21 7PRTX 22 FS? 00 23 ADV 24 SF 02 25 RTN 26 LBL 12 27 LBL C 28 STO 22 29 FS?C 02 30 GTO 00 31 FS? 00 32 ADV 33 LBL 00 34 FS? 00 35 7PRTX 36 RTN 37 LBL 13 38 LBL D 39 RCL 22 40 STO 20 41 RCL 23 42 STO 25 43 10 44 X#Y? 45 GTO 01 46 RCL 22 47 XEQ 18 48 STO 23 49 XEQ 19 50 GTO 05 51 LBL 01 52 RCL 22 53 X#Y? 54 GTO 02 55 RCL 23 56 XEQ 18 57 STO 22 58 XEQ 19 59 GTO 05 60 LBL 02 61 RCL 23 62 XEQ 18 63 STO 22 64 XEQ 19 65 RCL 21 66 STO 24 67 RCL 20 68 STO 22 69 XEQ 18 70 STO 23 71 XEQ 19 72 LBL 05 73 7PRTX 74 FS? 00 75 ADV 76 STOP 77 LBL 18 78 LBL d 79 10 80 STO 07 81 X<>Y 82 X<=Y? 83 GTO 06 84 1 E1 85 ST* 07 86 LBL 06 87 RCL 07 88 RTN 89 LBL 19 90 LBL e 91 0 92 STO 09 93 STO 21 94 RCL 24 95 LBL 09 96 1 97 X>Y? 98 GTO 08 99 ST+ 09 100 CLX 101 RCL 22 102 / 103 STO 24 104 GTO 09 105 LBL 08 106 RCL 22 107 RCL 24 108 * 109 STO 24 110 E4 111 + 112 E4 113 - 114 INT 115 RCL 21 116 RCL 23 117 * 118 + 119 STO 21 120 RCL 24 121 E4 122 + 123 E4 124 - 125 INT 126 RCL 24 127 - 128 ABS 129 STO 24 130 1 131 ST- 09 132 RCL 21 133 RCL 08 134 X<=Y? 135 GTO 04 136 RCL 24 137 X#0? 138 GTO 08 139 LBL 04 140 RCL 23 141 RCL 09 142 Y^X 143 RCL 21 144 * 145 STO 21 146 RTN 147 LBL 14 148 LBL E 149 STO 24 150 FS? 00 151 ADV 152 FS? 00 153 7PRTX 154 RCL 20 155 STO 22 156 RCL 25 157 STO 23 158 GTO 13 159 LBL 15 160 LBL a 161 FS? 00 162 GTO 00 163 SF 00 164 1 165 RTN 166 LBL 00 167 CF 00 168 0 169 RTN 170 STOP 171 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall