The Museum of HP Calculators

Oblique Cylinder Sums for the HP-41C/CV/CX

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 "CSUM"
 02 FIX 02
 03 LBL 03
 04 "LENS 1"
 05 AVIEW
 06 PSE
 07 "SPH^ CYL^ AX"
 08 PROMPT
 09 STO 02
 10 RDN
 11 STO 01
 12 RDN
 13 STO 00
 14 "LENS 2"
 15 AVIEW
 16 PSE
 17 "SPH^ CYL^ AX"
 18 PROMPT
 19 STO 05
 20 RDN
 21 STO 04
 22 RDN
 23 STO 03
 24 RCL 02
 25 2
 26 *
 27 RCL 01
 28 P-R
 29 STO 06
 30 RDN
 31 STO 07
 32 RCL 05
 33 2
 34 *
 35 RCL 04
 36 P-R
 37 RCL 06
 38 +
 39 X<>Y
 40 RCL 07
 41 +
 42 X<>Y
 43 R-P
 44 X<>Y
 45 X<0?
 46 GTO 01
 47 X<>Y
 48 GTO 02
 49 LBL 01
 50 180
 51 +
 52 X<>Y
 53 CHS
 54 LBL 02
 55 STO 08
 56 X<>Y
 57 2
 58 /
 59 STO 09
 60 RCL 01
 61 RCL 04
 62 +
 63 RCL 08
 64 -
 65 2
 66 /
 67 RCL 00
 68 +
 69 RCL 03
 70 +
 71 STO 10
 72 0
 73 RCL 08
 74 X<=Y?
 75 GTO 04
 76 CHS
 77 STO 08
 78 CHS
 79 RCL 20
 80 +
 81 STO 10
 82 90
 83 RCL 09
 84 X>Y?
 85 GTO 05
 86 +
 87 STO 09
 88 GTO 04
 89 LBL 05
 90 X<>Y
 91 -
 92 STO 09
 93 LBL 04
 94 FIX 02
 95 RCL 10
 96 STO 00
 97 CLA
 98 ARCL 10
 99 " SPH SUM"
100 AVIEW
101 STOP
102 RCL 08
103 STO 01
104 CLA
105 ARCL 08
106 " CYL SUM"
107 AVIEW
108 STOP
109 FIX 00
110 RCL 09
111 STO 02
112 CLA
113 ARCL 09
114 " AX SUM"
115 AVIEW
116 STOP
117 GTO 03
118 END

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