This program is Copyright © HP and is used here by permission. It was originally printed in the Control 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
LINE KEYS 01 LBL "BODE3" 02 SF 00 03 CF 01 04 SF 02 05 CF 03 06 "Q?" 07 PROMPT 08 X=0? 09 CF 00 10 X<0? 11 SF 01 12 "G?" 13 PROMPT 14 STO 01 15 "H?" 16 PROMPT 17 STO 02 18 "K?" 19 PROMPT 20 STO 03 21 "N?" 22 PROMPT 23 STO 04 24 "R?" 25 PROMPT 26 X=0? 27 CF 02 28 X<0? 29 SF 03 30 "L?" 31 PROMPT 32 STO 05 33 "M?" 34 PROMPT 35 STO 06 36 "P?" 37 PROMPT 38 STO 07 39 LBL A 40 "FREQ.?" 41 PROMPT 42 2 43 * 44 PI 45 * 46 STO 08 47 RCL 06 48 FC? 02 49 GTO 02 50 RCL 08 51 X^2 52 FS? 03 53 CHS 54 - 55 LBL 02 56 RCL 07 57 RCL 08 58 / 59 RCL 05 60 RCL 08 61 * 62 - 63 R-P 64 RCL 08 65 RCL 04 66 Y^X 67 * 68 1 69 ASIN 70 RCL 04 71 * 72 X<>Y 73 RDN 74 + 75 R^ 76 STO 09 77 RDN 78 RCL 03 79 RCL 08 80 / 81 RCL 01 82 RCL 08 83 * 84 - 85 RCL 02 86 FC? 00 87 GTO 01 88 RCL 08 89 X^2 90 FS? 01 91 CHS 92 - 93 LBL 01 94 X<>Y 95 RCL 09 96 RDN 97 R-P 98 R^ 99 / 100 RDN 101 - 102 CHS 103 R^ 104 ENTER 105 LOG 106 20 107 * 108 "dB=" 109 XEQ d 110 X<>Y 111 "MAG=" 112 XEQ d 113 R^ 114 1 115 P-R 116 R-P 117 RDN 118 "=" ;"\0D=" 119 XEQ d 120 GTO A 121 LBL d 122 ARCL X 123 AVIEW 124 STOP 125 RTN 126 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall