The Museum of HP Calculators


Paraxial Ray Tracing #2 - Storing 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 Optics 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 "PRXRT2"
 02 LBL 10
 03 LBL A
 04 7CLREG
 05 7P<>S
 06 7CLREG
 07 SF 02
 08 7DSP0
 09 4
 10 STO 25
 11 7PRTX
 12 LBL 11
 13 LBL B
 14 7DSP0
 15 RCL 25
 16 STOP
 17 7DSP3
 18 7PRTX
 19 FS?C 02
 20 GTO 01
 21 X<0?
 22 XEQ 16
 23 .999
 24 X<>Y
 25 X>Y?
 26 GTO 06
 27  E1-
 28 XEQ 18
 29 .2
 30 GTO 19
 31 LBL 01
 32 X<0?
 33 SF 00
 34  E3
 35 *
 36 ST+ IND 25
 37 7
 38 RCL 25
 39 X=Y?
 40 GTO 17
 41 GTO 11
 42 LBL 06
 43 9.999
 44 X<>Y
 45 X>Y?
 46 GTO 07
 47  E2-
 48 XEQ 18
 49 .3
 50 GTO 19
 51 LBL 07
 52 99.999
 53 X<>Y
 54 X>Y?
 55 GTO 08
 56  E3-
 57 XEQ 18
 58 .4
 59 GTO 19
 60 LBL 08
 61  E4-
 62 XEQ 18
 63 .5
 64 GTO 19
 65 LBL 16
 66 LBL b
 67 CHS
 68 .4
 69 XEQ 02
 70 RDN
 71 RTN
 72 LBL 18
 73 LBL d
 74 *
 75 GTO 02
 76 LBL 19
 77 LBL e
 78 XEQ 02
 79 CF 00
 80 7ISZ
 81 RCL 25
 82 7DSP0
 83 7PRTX
 84 SF 02
 85 GTO 11
 86 RTN
 87 LBL 17
 88 LBL c
 89 8
 90 STO 25
 91 7DSP0
 92 7PRTX
 93 SF 02
 94 GTO 11
 95 RTN
 96 LBL 12
 97 LBL C
 98 STO 25
 99 7DSP0
100 7PRTX
101 0
102 STO IND 25
103 SF 02
104 GTO 11
105 LBL 02
106 FS? 00
107 CHS
108 ST+ IND 25
109 RTN
110 STOP
111 END

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