The Museum of HP Calculators

16 Point Gaussian Quadrature 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 "A-B"
 02 SCI 04
 03 "a?"
 04 PROMPT
 05 "b?"
 06 PROMPT
 07 STO 08
 08 X<>Y
 09 STO 07
 10 0
 11 STO 00
 12 CF 00
 13 LBL 01
 14 24
 15 STO 25
 16 XEQ 15
 17 XEQ 15
 18 XEQ 15
 19 XEQ 15
 20 XEQ 15
 21 XEQ 15
 22 XEQ 15
 23 XEQ 15
 24 FS? 00
 25 GTO 02
 26 SF 00
 27 GTO 01
 28 LBL 02
 29 RCL 08
 30 RCL 07
 31 -
 32 2
 33 /
 34 RCL 00
 35 *
 36 RTN
 37 LBL 15
 38 RCL IND 25
 39 FS? 00
 40 CHS
 41 RCL 08
 42 RCL 07
 43 -
 44 *
 45 RCL 08
 46 +
 47 RCL 07
 48 +
 49 2
 50 /
 51 XEQ "FX"
 52 DSE 25
 53 RCL IND 25
 54 DSE 25
 55 *
 56 ST+ 00
 57 RTN
 58 LBL "A-"
 59 SCI 04
 60 "a?"
 61 PROMPT
 62 STO 07
 63 0
 64 STO 00
 65 CF 00
 66 LBL 03
 67 24
 68 STO 25
 69 XEQ 16
 70 XEQ 16
 71 XEQ 16
 72 XEQ 16
 73 XEQ 16
 74 XEQ 16
 75 XEQ 16
 76 XEQ 16
 77 FS? 00
 78 GTO 04
 79 SF 00
 80 GTO 03
 81 LBL 04
 82 RCL 00
 83 2
 84 *
 85 RTN
 86 LBL 16
 87 RCL IND 25
 88 FS? 00
 89 CHS
 90 1
 91 +
 92 2
 93 X<>Y
 94 /
 95 RCL 07
 96 +
 97 1
 98 -
 99 XEQ "FX"
100 RCL IND 25
101 FS? 00
102 CHS
103 1
104 +
105 X^2
106 DSE 25
107 RCL IND 25
108 DSE 25
109 X<>Y
110 /
111 *
112 ST+ 00
113 RTN
114 LBL "FX"
115 RTN
116 END

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