(HP-67) Transmission Line Circuit Design (multi-programs)

[Greg]

Here's the program from Part 1, in HP-67 format.

I've also changed LBL 1-4 so that entering 1 [a] gives f MHz, 2 [a] calcs Z0 ohms, 3 [a] calcs C pF, and 4 [a] calcs len. That's the same order as the labels for the [A]-[D] keys so they're easier to remember.

Code:


PROG
224
001: 31 25 11 : f LBL A
002: 33 00    : STO 0
003: 03       : 3
004: 00       : 0
005: 00       : 0
006: 35 52    : h x<->y
007: 81       : /
008: 83       : .
009: 00       : 0
010: 02       : 2
011: 05       : 5
012: 04       : 4
013: 81       : /
014: 33 01    : STO 1
015: 35 72    : h PAUSE
016: 03       : 3
017: 06       : 6
018: 00       : 0
019: 35 52    : h x<->y
020: 81       : /
021: 33 02    : STO 2
022: 35 72    : h PAUSE
023: 34 00    : RCL 0
024: 43       : EEX
025: 06       : 6
026: 71       : x
027: 33 07    : STO 7
028: 35 22    : h RTN
029: 31 25 12 : f LBL B
030: 33 03    : STO 3
031: 35 22    : h RTN
032: 31 25 13 : f LBL C
033: 33 04    : STO 4
034: 31 22 09 : f GSB 9
035: 35 22    : h RTN
036: 31 25 14 : f LBL D
037: 33 05    : STO 5
038: 35 22    : h RTN
039: 32 25 11 : g LBL a
040: 35 33    : h STI
041: 23 05    : DSP 5
042: 31 22 24 : f GSB (i)
043: 31 25 09 : f LBL 9
044: 34 04    : RCL 4
045: 43       : EEX
046: 01       : 1
047: 02       : 2
048: 42       : CHS
049: 71       : x
050: 33 08    : STO 8
051: 34 07    : RCL 7
052: 31 51    : f x=0
053: 35 22    : h RTN
054: 71       : x
055: 35 73    : h pi
056: 02       : 2
057: 71       : x
058: 71       : x
059: 35 62    : h 1/x
060: 33 06    : STO 6
061: 35 22    : h RTN
062: 31 25 02 : f LBL 2
063: 34 05    : RCL 5
064: 34 02    : RCL 2
065: 71       : x
066: 31 64    : f TAN
067: 35 62    : h 1/x
068: 34 06    : RCL 6
069: 71       : x
070: 33 03    : STO 3
071: 84       : R/S
072: 31 25 04 : f LBL 4
073: 34 06    : RCL 6
074: 34 03    : RCL 3
075: 81       : /
076: 32 64    : g TAN-1
077: 34 02    : RCL 2
078: 81       : /
079: 33 05    : STO 5
080: 84       : R/S
081: 31 25 03 : f LBL 3
082: 34 02    : RCL 2
083: 34 05    : RCL 5
084: 71       : x
085: 31 64    : f TAN
086: 34 03    : RCL 3
087: 71       : x
088: 33 06    : STO 6
089: 31 22 08 : f GSB 8
090: 84       : R/S
091: 31 25 08 : f LBL 8
092: 34 07    : RCL 7
093: 71       : x
094: 35 73    : h pi
095: 02       : 2
096: 71       : x
097: 71       : x
098: 35 62    : h 1/x
099: 33 08    : STO 8
100: 43       : EEX
101: 01       : 1
102: 02       : 2
103: 42       : CHS
104: 81       : /
105: 33 04    : STO 4
106: 35 22    : h RTN
107: 31 25 01 : f LBL 1
108: 02       : 2
109: 04       : 4
110: 00       : 0
111: 33 09    : STO 9
112: 31 25 06 : f LBL 6
113: 02       : 2
114: 33 51 09 : STO - 9
115: 34 03    : RCL 3
116: 34 04    : RCL 4
117: 71       : x
118: 35 62    : h 1/x
119: 01       : 1
120: 03       : 3
121: 83       : .
122: 04       : 4
123: 07       : 7
124: 05       : 5
125: 71       : x
126: 34 09    : RCL 9
127: 71       : x
128: 33 12    : STO B
129: 34 05    : RCL 5
130: 03       : 3
131: 06       : 6
132: 00       : 0
133: 71       : x
134: 34 09    : RCL 9
135: 81       : /
136: 31 64    : f TAN
137: 34 12    : RCL B
138: 35 52    : h x<->y
139: 51       : -
140: 83       : .
141: 00       : 0
142: 01       : 1
143: 32 71    : g x<=y
144: 22 06    : GTO 6
145: 34 09    : RCL 9
146: 01       : 1
147: 01       : 1
148: 08       : 8
149: 01       : 1
150: 01       : 1
151: 35 52    : h x<->y
152: 81       : /
153: 33 00    : STO 0
154: 84       : R/S
155: 84       : R/S
156: 84       : R/S
157: 84       : R/S
158: 84       : R/S
159: 84       : R/S
160: 84       : R/S
161: 84       : R/S
162: 84       : R/S
163: 84       : R/S
164: 84       : R/S
165: 84       : R/S
166: 84       : R/S
167: 84       : R/S
168: 84       : R/S
169: 84       : R/S
170: 84       : R/S
171: 84       : R/S
172: 84       : R/S
173: 84       : R/S
174: 84       : R/S
175: 84       : R/S
176: 84       : R/S
177: 84       : R/S
178: 84       : R/S
179: 84       : R/S
180: 84       : R/S
181: 84       : R/S
182: 84       : R/S
183: 84       : R/S
184: 84       : R/S
185: 84       : R/S
186: 84       : R/S
187: 84       : R/S
188: 84       : R/S
189: 84       : R/S
190: 84       : R/S
191: 84       : R/S
192: 84       : R/S
193: 84       : R/S
194: 84       : R/S
195: 84       : R/S
196: 84       : R/S
197: 84       : R/S
198: 84       : R/S
199: 84       : R/S
200: 84       : R/S
201: 84       : R/S
202: 84       : R/S
203: 84       : R/S
204: 84       : R/S
205: 84       : R/S
206: 84       : R/S
207: 84       : R/S
208: 84       : R/S
209: 84       : R/S
210: 84       : R/S
211: 84       : R/S
212: 84       : R/S
213: 84       : R/S
214: 84       : R/S
215: 84       : R/S
216: 84       : R/S
217: 84       : R/S
218: 84       : R/S
219: 84       : R/S
220: 84       : R/S
221: 84       : R/S
222: 84       : R/S
223: 84       : R/S
224: 84       : R/S
DATA
26
01: 0
02: 0
03: 0
04: 0
05: 0
06: 0
07: 0
08: 0
09: 0
10: 0
11: 0
12: 0
13: 0
14: 0
15: 0
16: 0
17: 0
18: 0
19: 0
20: 0
21: 0
22: 0
23: 0
24: 0
25: 0
26: 0
STATE
7
DEG
FIX
5
0
0
0
1
HELP
12
Transmission Line Design
H. M. Meyer, Jr. W6GGV
Ham Radio Magazine, Nov 1980. Page 40.
https://www.americanradiohistory.com/Archive-DX/Ham%20Radio/80s/Ham-Radio-198011.pdf
f= frequency in MHz, Z0= impedance in ohms
C= capacitance in pF, len= length in inches.
Z0 [B] C [C] len [D], 1 [a] work out f
f [A] C [C] len [D], 2 [a] work out Z0
f [A] Z0 [B] len [D], 3 [a] work out C
f [A] Z0 [B] C [C], 4 [a] work out len

Note: Labels changed from original so that 1-4 [a] works out values for A-D keys in same order.
CARD
11
Title: MoHPC13449 Transmission Line Design
A: f MHz
B: Z0
C: C pF
D: len "
E: 
a: Calc
b: 
c: 
d: 
e: 
END