The Museum of HP Calculators

Bode of 3rd over 3rd*S^N Transfer Fn 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 "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