The Museum of HP Calculators

Word Encoder 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 "WRDENC"
 02 LBL 10
 03 LBL A
 04 FS? 00
 05 FS?C 02
 06 GTO 18
 07 FS? 01
 08 GTO 18
 09 STO 08
 10 RCL 25
 11 STO 02
 12 RCL 05
 13 STO 03
 14 RCL 06
 15 STO 04
 16 CLX
 17 STO 07
 18 RCL 00
 19 RCL 08
 20 1
 21 X>Y?
 22 GTO 18
 23 +
 24 12
 25 X<=Y?
 26 GTO 18
 27 RDN
 28 -
 29 X<0?
 30 GTO 02
 31 STO 00
 32 RCL 08
 33 SF 01
 34 GTO 11
 35 LBL 13
 36 LBL D
 37 9
 38 +
 39 LBL 12
 40 LBL C
 41 9
 42 +
 43 LBL 11
 44 LBL B
 45 FS? 01
 46 FS?C 02
 47 GTO 18
 48 RCL 05
 49  E2
 50 *
 51 +
 52 STO 05
 53 1
 54 ST+ 06
 55 RCL 06
 56 5
 57 X#Y?
 58 GTO 00
 59 RCL 05
 60  E10
 61 /
 62 STO IND 25
 63 CLX
 64 STO 05
 65 STO 06
 66 7ISZ
 67 LBL 00
 68 RCL 08
 69 RCL 07
 70 X#Y?
 71 GTO 01
 72 CF 01
 73 1
 74 ST+ 01
 75 RCL 00
 76 X<=Y?
 77 GTO 15
 78 7PRTX
 79 RTN
 80 LBL 01
 81 1
 82 ST+ 07
 83 RCL 07
 84 RTN
 85 LBL 14
 86 LBL E
 87 FS? 01
 88 FS?C 02
 89 GTO 18
 90 CF 01
 91 RCL 02
 92 STO 25
 93 RCL 03
 94 STO 05
 95 RCL 04
 96 STO 06
 97 RCL 08
 98 1
 99 +
100 ST+ 00
101 LBL 02
102 RCL 00
103 7PRTX
104 RTN
105 LBL 15
106 LBL a
107 FS? 01
108 GTO 18
109 RCL 05
110 RCL 06
111 2
112 *
113 10^X
114 /
115 STO IND 25
116 RCL 01
117 7CLREG
118 7P<>S
119  E2
120 /
121 ST+ 00
122 WDTA
123 LBL 19
124 LBL e
125 SF 00
126 CF 01
127 CF 02
128 7CLREG
129 7P<>S
130 7CLREG
131 1
132 STO 06
133 10
134 STO 25
135 49
136 STO 00
137 7PRTX
138 RTN
139 STOP
140 END

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