The Museum of HP Calculators


Depth of Strata 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 Earth Sciences 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 "DSTRAT"
 02 LBL 10
 03 LBL A
 04 7CLREG
 05 STO 02
 06 RDN
 07 STO 01
 08 XEQ 00
 09 7PRTX
 10 RTN
 11 LBL 00
 12 SF 01
 13 RCL 02
 14 HR
 15 TAN
 16 STO 05
 17 RCL 03
 18 HR
 19 ENTER
 20 SIN
 21 STO 06
 22 RDN
 23 COS
 24 STO 07
 25 RCL 04
 26 HR
 27 SIN
 28 STO 08
 29 RCL 01
 30 RCL 05
 31 *
 32 RTN
 33 LBL 11
 34 LBL B
 35 7CLREG
 36 STO 03
 37 RDN
 38 STO 02
 39 RDN
 40 STO 01
 41 XEQ 00
 42 LBL 01
 43 RCL 05
 44 RCL 07
 45 *
 46 RCL 06
 47 FS? 01
 48 CHS
 49 +
 50 RCL 01
 51 *
 52 7PRTX
 53 RTN
 54 LBL 12
 55 LBL C
 56 7CLREG
 57 STO 03
 58 RDN
 59 STO 02
 60 RDN
 61 STO 01
 62 XEQ 00
 63 CF 01
 64 GTO 01
 65 LBL 13
 66 LBL D
 67 STO 04
 68 RDN
 69 STO 03
 70 RDN
 71 STO 02
 72 RDN
 73 STO 01
 74 XEQ 00
 75 LBL 02
 76 RCL 05
 77 RCL 07
 78 *
 79 RCL 08
 80 *
 81 RCL 06
 82 CHS
 83 FS? 01
 84 CHS
 85 +
 86 RCL 01
 87 *
 88 7PRTX
 89 RTN
 90 LBL 14
 91 LBL E
 92 STO 04
 93 RDN
 94 STO 03
 95 RDN
 96 STO 02
 97 RDN
 98 STO 01
 99 XEQ 00
100 CF 01
101 GTO 13
102 STOP
103 END

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