Trace: • DM42 Progs • DM15L Startup Keys & Serial Console • DM41X HP16C Module • DM15L "Multi In Single Out" Solve

You are here: Home » Public Area » Calculators » Programs » DM42 Progs

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Next revision		Previous revision
public:calculator:progs:dm42_progs [24/04/23 17:08 BST] – created johnpublic:calculator:progs:dm42_progs [24/01/26 08:08 GMT] (current) – [Further Information] john
Line 2: Line 2:
  
  
-====== Dm42 Progs ======+====== DM42 Progs ======
  
-** Description **+Using the Swiss Micros online encode/decode tool    
 + 
 +https://technical.swissmicros.com/decoders/dm42/index.php 
 + 
 +to convert a "RAW" file into readable text: 
 + 
 +<code> 
 +00 { 110-Byte Prgm } 
 +01▸LBL "SWR" 
 +02 INPUT "Fwd" 
 +03 INPUT "Ref" 
 +04 RCL "Ref" 
 +05 RCL÷ "Fwd" 
 +06 SQRT 
 +07 STO "RHO" 
 +08 1 
 +09 RCL+ "RHO" 
 +10 1 
 +11 RCL- "RHO" 
 +12 ÷ 
 +13 STO "SWR" 
 +14 RCL "RHO" 
 +15 LOG 
 +16 20 
 +17 × 
 +18 +/- 
 +19 STO "RL" 
 +20 VIEW "Ref" 
 +21 PSE 
 +22 VIEW "Fwd" 
 +23 PSE 
 +24 VIEW "RL" 
 +25 PSE 
 +26 VIEW "SWR" 
 +27 PSE 
 +28 RCL "Ref" 
 +29 RCL "Fwd" 
 +30 RCL "RL" 
 +31 RCL "SWR" 
 +32 END 
 +</code> 
 +<code> 
 +00 { 41-Byte Prgm } 
 +01▸LBL ".flc" 
 +02 MVAR "freq" 
 +03 MVAR "C" 
 +04 MVAR "L" 
 +05 RCL "L" 
 +06 RCL "C" 
 +07 × 
 +08 SQRT 
 +09 PI 
 +10 × 
 +11 2 
 +12 × 
 +13 1/X 
 +14 RCL "freq" 
 +15 - 
 +16 END 
 +</code> 
 +<code> 
 +00 { 280-Byte Prgm } 
 +01▸LBL "LCC" 
 +02 INPUT "Vcc" 
 +03 INPUT "PWR" 
 +04 INPUT "freq" 
 +05 RCL "Vcc" 
 +06 X^2 
 +07 RCL "PWR" 
 +08 2 
 +09 × 
 +10 ÷ 
 +11 STO "RL" 
 +12 RCL "RL" 
 +13 50 
 +14 X≤Y? 
 +15 XEQ "LCC" 
 +16 RCL÷ "RL" 
 +17 1 
 +18 - 
 +19 SQRT 
 +20 STO "Qmin" 
 +21 VIEW "Qmin" 
 +22 PSE 
 +23▸LBL 01 
 +24 INPUT "Q" 
 +25 RCL "Qmin" 
 +26 X≥Y? 
 +27 GTO 01 
 +28 RCL "freq" 
 +29 2 
 +30 × 
 +31 PI 
 +32 × 
 +33 STO "w" 
 +34 RCL "Q" 
 +35 X^2 
 +36 1 
 +37 + 
 +38 RCL× "RL" 
 +39 STO "B" 
 +40 50 
 +41 ÷ 
 +42 1 
 +43 - 
 +44 SQRT 
 +45 STO "A" 
 +46 RCL "Q" 
 +47 RCL× "RL" 
 +48 STO "XL" 
 +49 RCL "B" 
 +50 RCL "Q" 
 +51 RCL- "A" 
 +52 ÷ 
 +53 STO "XC1" 
 +54 RCL "A" 
 +55 50 
 +56 × 
 +57 STO "XC2" 
 +58 RCL "XL" 
 +59 RCL÷ "w" 
 +60 STO "L" 
 +61 RCL "w" 
 +62 RCL× "XC1" 
 +63 1/X 
 +64 STO "C1" 
 +65 RCL "w" 
 +66 RCL× "XC2" 
 +67 1/X 
 +68 STO "C2" 
 +69 "Load" 
 +70 AVIEW 
 +71 PSE 
 +72 VIEW "RL" 
 +73 PSE 
 +74 "Inductor" 
 +75 AVIEW 
 +76 PSE 
 +77 VIEW "L" 
 +78 PSE 
 +79 "Shunt Cap" 
 +80 AVIEW 
 +81 PSE 
 +82 VIEW "C2" 
 +83 PSE 
 +84 "Series Cap" 
 +85 AVIEW 
 +86 PSE 
 +87 VIEW "C1" 
 +88 PSE 
 +89 RCL "RL" 
 +90 RCL "L" 
 +91 RCL "C2" 
 +92 RCL "C1" 
 +93 END 
 +</code> 
 +<code> 
 +00 { 290-Byte Prgm } 
 +01▸LBL "LCL" 
 +02 INPUT "Vcc" 
 +03 INPUT "PWR" 
 +04 INPUT "freq" 
 +05 RCL "Vcc" 
 +06 X^2 
 +07 RCL "PWR" 
 +08 2 
 +09 × 
 +10 ÷ 
 +11 STO "RL" 
 +12 RCL "RL" 
 +13 50 
 +14 X≤Y? 
 +15 XEQ "LCL" 
 +16 RCL÷ "RL" 
 +17 1 
 +18 - 
 +19 SQRT 
 +20 STO "Qmin" 
 +21 VIEW "Qmin" 
 +22 PSE 
 +23▸LBL 01 
 +24 INPUT "Q" 
 +25 RCL "Qmin" 
 +26 X≥Y? 
 +27 GTO 01 
 +28 RCL "freq" 
 +29 2 
 +30 × 
 +31 PI 
 +32 × 
 +33 STO "w" 
 +34 RCL "Q" 
 +35 X^2 
 +36 1 
 +37 + 
 +38 RCL× "RL" 
 +39 STO "A" 
 +40 50 
 +41 ÷ 
 +42 1 
 +43 - 
 +44 SQRT 
 +45 STO "B" 
 +46 RCL "RL" 
 +47 RCL× "Q" 
 +48 STO "XL1" 
 +49 RCL "B" 
 +50 50 
 +51 × 
 +52 STO "XL2" 
 +53 RCL "A" 
 +54 RCL "Q" 
 +55 RCL+ "B" 
 +56 ÷ 
 +57 STO "XC" 
 +58 RCL "XL1" 
 +59 RCL÷ "w" 
 +60 STO "L1" 
 +61 RCL "XL2" 
 +62 RCL÷ "w" 
 +63 STO "L2" 
 +64 RCL "XC" 
 +65 RCL× "w" 
 +66 1/X 
 +67 STO "C" 
 +68 "Load" 
 +69 AVIEW 
 +70 PSE 
 +71 VIEW "RL" 
 +72 PSE 
 +73 "Input Inductor" 
 +74 AVIEW 
 +75 PSE 
 +76 VIEW "L1" 
 +77 PSE 
 +78 "Shunt Cap" 
 +79 AVIEW 
 +80 PSE 
 +81 VIEW "C" 
 +82 PSE 
 +83 "Output Inductor" 
 +84 AVIEW 
 +85 PSE 
 +86 VIEW "L2" 
 +87 PSE 
 +88 RCL "RL" 
 +89 RCL "L1" 
 +90 RCL "C" 
 +91 RCL "L2" 
 +92 END 
 +</code> 
 +<code> 
 +00 { 260-Byte Prgm } 
 +01▸LBL "DTC" 
 +02 INPUT "Z" 
 +03 INPUT "Fmin" 
 +04 INPUT "Fmax" 
 +05 INPUT "L" 
 +06 INPUT "Qu" 
 +07 RCL "Fmin" 
 +08 RCL× "Fmax" 
 +09 SQRT 
 +10 2 
 +11 × 
 +12 PI 
 +13 × 
 +14 STO "w" 
 +15 RCL "L" 
 +16 RCL "w" 
 +17 X^2 
 +18 × 
 +19 1/X 
 +20 STO "Co" 
 +21 RCL "w" 
 +22 RCL "Fmax" 
 +23 RCL- "Fmin" 
 +24 2 
 +25 × 
 +26 PI 
 +27 × 
 +28 ÷ 
 +29 STO "Ql" 
 +30 RCL "Co" 
 +31 RCL "Ql" 
 +32 2 
 +33 SQRT 
 +34 × 
 +35 ÷ 
 +36 STO "C12" 
 +37 RCL "Ql" 
 +38 2 
 +39 SQRT 
 +40 × 
 +41 STO "Qj" 
 +42 RCL "Qj" 
 +43 1/X 
 +44 RCL "Qu" 
 +45 1/X 
 +46 - 
 +47 1/X 
 +48 STO "Qej" 
 +49 RCL× "w" 
 +50 RCL× "L" 
 +51 STO "Rej" 
 +52 RCL "Rej" 
 +53 RCL× "Z" 
 +54 RCL "Z" 
 +55 X^2 
 +56 - 
 +57 SQRT 
 +58 RCL× "w" 
 +59 1/X 
 +60 STO "Cjl" 
 +61 RCL "Co" 
 +62 RCL- "Cjl" 
 +63 RCL- "C12" 
 +64 STO "Cj" 
 +65 "Tank Cap" 
 +66 AVIEW 
 +67 PSE 
 +68 VIEW "Cj" 
 +69 PSE 
 +70 "Coupling Cap" 
 +71 AVIEW 
 +72 PSE 
 +73 VIEW "C12" 
 +74 PSE 
 +75 "End Cap" 
 +76 AVIEW 
 +77 PSE 
 +78 VIEW "Cjl" 
 +79 PSE 
 +80 RCL "Fmin" 
 +81 RCL "Cj" 
 +82 RCL "C12" 
 +83 RCL "Cjl" 
 +84 END 
 +</code> 
 +<code> 
 +00 { 49-Byte Prgm } 
 +01▸LBL ".VppdBm" 
 +02 MVAR "Vpp" 
 +03 MVAR "dBm" 
 +04 RCL "Vpp" 
 +05 X^2 
 +06 400 
 +07 ÷ 
 +08 1ᴇ-3 
 +09 ÷ 
 +10 LOG 
 +11 10 
 +12 × 
 +13 RCL "dBm" 
 +14 - 
 +15 END 
 +</code> 
 +<code> 
 +00 { 40-Byte Prgm } 
 +01▸LBL ".LXl" 
 +02 MVAR "L" 
 +03 MVAR "freq" 
 +04 MVAR "XL" 
 +05 RCL "freq" 
 +06 RCL× "L" 
 +07 2 
 +08 × 
 +09 PI 
 +10 × 
 +11 RCL "XL" 
 +12 - 
 +13 END 
 +</code> 
 +<code> 
 +00 { 42-Byte Prgm } 
 +01▸LBL ".CXc" 
 +02 MVAR "XC" 
 +03 MVAR "freq" 
 +04 MVAR "C" 
 +05 RCL "XC" 
 +06 RCL× "freq" 
 +07 RCL× "C" 
 +08 2 
 +09 × 
 +10 PI 
 +11 × 
 +12 1 
 +13 - 
 +14 END 
 +</code> 
 +<code> 
 +00 { 45-Byte Prgm } 
 +01▸LBL ".S→RL" 
 +02 MVAR "RL" 
 +03 MVAR "SWR" 
 +04 RCL "SWR" 
 +05 1 
 +06 - 
 +07 RCL "SWR" 
 +08 1 
 +09 + 
 +10 ÷ 
 +11 LOG 
 +12 20 
 +13 × 
 +14 +/- 
 +15 RCL- "RL" 
 +16 END 
 +</code> 
 +<code> 
 +00 { 58-Byte Prgm } 
 +01▸LBL ".S→RF" 
 +02 MVAR "Ref" 
 +03 MVAR "Fwd" 
 +04 MVAR "SWR" 
 +05 1 
 +06 RCL "Ref" 
 +07 RCL÷ "Fwd" 
 +08 SQRT 
 +09 + 
 +10 1 
 +11 RCL "Ref" 
 +12 RCL÷ "Fwd" 
 +13 SQRT 
 +14 - 
 +15 ÷ 
 +16 RCL- "SWR" 
 +17 END 
 +</code> 
 +<code> 
 +00 { 37-Byte Prgm } 
 +01▸LBL ".VppW" 
 +02 MVAR "Vpp" 
 +03 MVAR "Watt" 
 +04 RCL "Vpp" 
 +05 X^2 
 +06 400 
 +07 ÷ 
 +08 RCL- "Watt" 
 +09 END 
 +</code> 
 +<code> 
 +00 { 160-Byte Prgm } 
 +01▸LBL "OpBPF" 
 +02 INPUT "freq" 
 +03 INPUT "BW" 
 +04 INPUT "Gain" 
 +05 INPUT "C" 
 +06 RCL "freq" 
 +07 RCL÷ "BW" 
 +08 STO "Q" 
 +09 RCL "freq" 
 +10 2 
 +11 × 
 +12 PI 
 +13 × 
 +14 STO "w" 
 +15 RCL "Gain" 
 +16 RCL "C" 
 +17 RCL "Q" 
 +18 2 
 +19 × 
 +20 RCL "w" 
 +21 RCL× "C" 
 +22 ÷ 
 +23 STO "R3" 
 +24 RCL "Q" 
 +25 RCL "Gain" 
 +26 RCL× "w" 
 +27 RCL× "C" 
 +28 ÷ 
 +29 STO "R1" 
 +30 RCL "Q" 
 +31 RCL "Q" 
 +32 X^2 
 +33 2 
 +34 × 
 +35 RCL- "Gain" 
 +36 RCL× "w" 
 +37 RCL× "C" 
 +38 ÷ 
 +39 STO "R2" 
 +40 VIEW "R1" 
 +41 PSE 
 +42 VIEW "R2" 
 +43 PSE 
 +44 VIEW "R3" 
 +45 RCL "freq" 
 +46 RCL "R1" 
 +47 RCL "R2" 
 +48 RCL "R3" 
 +49 END 
 +</code> 
 +<code> 
 +00 { 51-Byte Prgm } 
 +01▸LBL ".PD" 
 +02 MVAR "R1" 
 +03 MVAR "R2" 
 +04 MVAR "Vin" 
 +05 MVAR "Vout" 
 +06 RCL "Vin" 
 +07 RCL "R1" 
 +08 RCL+ "R2" 
 +09 ÷ 
 +10 RCL "Vout" 
 +11 RCL÷ "R2" 
 +12 - 
 +13 END 
 +</code> 
 +<code> 
 +00 { 178-Byte Prgm } 
 +01 GTO ".S←→RL" 
 +02▸LBL "Lmat" 
 +03 INPUT "Rlo" 
 +04 INPUT "Rhi" 
 +05 RCL "Rhi" 
 +06 RCL "Rlo" 
 +07 X≥Y? 
 +08 XEQ "Lmat" 
 +09 RCL "Rhi" 
 +10 RCL÷ "Rlo" 
 +11 1 
 +12 - 
 +13 SQRT 
 +14 STO "Q" 
 +15 RCL× "Rlo" 
 +16 STO "XL" 
 +17 RCL "Rhi" 
 +18 RCL÷ "Q" 
 +19 STO "XC" 
 +20 INPUT "freq" 
 +21 RCL "freq" 
 +22 2 
 +23 × 
 +24 PI 
 +25 × 
 +26 STO "w" 
 +27 RCL "XL" 
 +28 RCL÷ "w" 
 +29 STO "L" 
 +30 RCL "XC" 
 +31 RCL× "w" 
 +32 1/X 
 +33 STO "C" 
 +34 "Q" 
 +35 AVIEW 
 +36 PSE 
 +37 VIEW "Q" 
 +38 PSE 
 +39 "Inductor" 
 +40 AVIEW 
 +41 PSE 
 +42 VIEW "L" 
 +43 PSE 
 +44 "Capacitor" 
 +45 AVIEW 
 +46 PSE 
 +47 VIEW "C" 
 +48 PSE 
 +49 RCL "Rlo" 
 +50 RCL "Rhi" 
 +51 RCL "L" 
 +52 RCL "C" 
 +53 END 
 +</code> 
 +<code> 
 +00 { 251-Byte Prgm } 
 +01▸LBL "Tmat" 
 +02 INPUT "Rhi" 
 +03 INPUT "Rlo" 
 +04 INPUT "freq" 
 +05 RCL "Rhi" 
 +06 RCL "Rlo" 
 +07 X>Y? 
 +08 XEQ "Tmat" 
 +09 RCL "Rhi" 
 +10 RCL÷ "Rlo" 
 +11 1 
 +12 - 
 +13 SQRT 
 +14 STO "Qmin" 
 +15 VIEW "Qmin" 
 +16 PSE 
 +17▸LBL 01 
 +18 INPUT "Q" 
 +19 RCL "Qmin" 
 +20 X≥Y? 
 +21 GTO 01 
 +22 RCL "Q" 
 +23 X^2 
 +24 1 
 +25 + 
 +26 RCL× "Rlo" 
 +27 STO "A" 
 +28 RCL÷ "Rhi" 
 +29 1 
 +30 - 
 +31 SQRT 
 +32 STO "B" 
 +33 RCL "Rlo" 
 +34 RCL× "Q" 
 +35 STO "XL1" 
 +36 RCL "Rhi" 
 +37 RCL× "B" 
 +38 STO "XL2" 
 +39 RCL "A" 
 +40 RCL "Q" 
 +41 RCL+ "B" 
 +42 ÷ 
 +43 STO "XC" 
 +44 RCL "freq" 
 +45 2 
 +46 × 
 +47 PI 
 +48 × 
 +49 STO "w" 
 +50 RCL "XL1" 
 +51 RCL÷ "w" 
 +52 STO "L1" 
 +53 RCL "XL2" 
 +54 RCL÷ "w" 
 +55 STO "L2" 
 +56 RCL "XC" 
 +57 RCL× "w" 
 +58 1/X 
 +59 STO "C" 
 +60 "L hi" 
 +61 AVIEW 
 +62 PSE 
 +63 VIEW "L1" 
 +64 PSE 
 +65 "C shunt" 
 +66 AVIEW 
 +67 PSE 
 +68 VIEW "C" 
 +69 PSE 
 +70 "L low" 
 +71 AVIEW 
 +72 PSE 
 +73 VIEW "L2" 
 +74 PSE 
 +75 RCL "Q" 
 +76 RCL "L1" 
 +77 RCL "C" 
 +78 RCL "L2" 
 +79 END 
 +</code> 
 +<code> 
 +00 { 135-Byte Prgm } 
 +01▸LBL "Piatt" 
 +02 INPUT "Att" 
 +03 INPUT "Z" 
 +04 RCL "Att" 
 +05 20 
 +06 +/- 
 +07 ÷ 
 +08 10^X 
 +09 STO "A" 
 +10 1 
 +11 RCL+ "A" 
 +12 1 
 +13 RCL- "A" 
 +14 ÷ 
 +15 RCL× "Z" 
 +16 STO "R1" 
 +17 1 
 +18 RCL "A" 
 +19 X^2 
 +20 - 
 +21 2 
 +22 RCL× "A" 
 +23 ÷ 
 +24 RCL× "Z" 
 +25 STO "R2" 
 +26 "Shunt R1" 
 +27 AVIEW 
 +28 PSE 
 +29 VIEW "R1" 
 +30 PSE 
 +31 "Series R2" 
 +32 AVIEW 
 +33 PSE 
 +34 VIEW "R2" 
 +35 PSE 
 +36 "Shunt R3" 
 +37 AVIEW 
 +38 PSE 
 +39 VIEW "R1" 
 +40 PSE 
 +41 RCL "Att" 
 +42 RCL "R1" 
 +43 RCL "R2" 
 +44 RCL "R1" 
 +45 END 
 +</code> 
 +<code> 
 +00 { 144-Byte Prgm } 
 +01▸LBL "MPad" 
 +02 INPUT "Zh" 
 +03 INPUT "Zl" 
 +04 RCL "Zl" 
 +05 RCL÷ "Zh" 
 +06 STO "A" 
 +07 1 
 +08 RCL- "A" 
 +09 SQRT 
 +10 RCL× "Zh" 
 +11 STO "R1" 
 +12 RCL "Zl" 
 +13 1 
 +14 RCL- "A" 
 +15 SQRT 
 +16 ÷ 
 +17 STO "R2" 
 +18 RCL "A" 
 +19 1/X 
 +20 1 
 +21 - 
 +22 SQRT 
 +23 RCL "A" 
 +24 1/X 
 +25 SQRT 
 +26 + 
 +27 X^2 
 +28 1/X 
 +29 LOG 
 +30 10 
 +31 × 
 +32 +/- 
 +33 STO "G" 
 +34 "Loss" 
 +35 AVIEW 
 +36 PSE 
 +37 VIEW "G" 
 +38 PSE 
 +39 "Series R(hiZ)" 
 +40 AVIEW 
 +41 PSE 
 +42 VIEW "R1" 
 +43 PSE 
 +44 "Shunt R(loZ)" 
 +45 AVIEW 
 +46 PSE 
 +47 VIEW "R2" 
 +48 PSE 
 +49 RCL "G" 
 +50 RCL "R1" 
 +51 RCL "R2" 
 +52 END 
 +</code> 
 +<code> 
 +00 { 141-Byte Prgm } 
 +01▸LBL "Tatt" 
 +02 INPUT "Att" 
 +03 INPUT "Z" 
 +04 RCL "Att" 
 +05 20 
 +06 ÷ 
 +07 10^X 
 +08 STO "G" 
 +09 RCL "G" 
 +10 1 
 +11 - 
 +12 RCL "G" 
 +13 1 
 +14 + 
 +15 ÷ 
 +16 RCL× "Z" 
 +17 STO "R1" 
 +18 STO "R2" 
 +19 RCL "G" 
 +20 RCL "G" 
 +21 X^2 
 +22 1 
 +23 - 
 +24 ÷ 
 +25 RCL× "Z" 
 +26 2 
 +27 × 
 +28 STO "R3" 
 +29 "Series R1" 
 +30 AVIEW 
 +31 PSE 
 +32 VIEW "R1" 
 +33 PSE 
 +34 "Shunt R3" 
 +35 AVIEW 
 +36 PSE 
 +37 VIEW "R3" 
 +38 PSE 
 +39 "Series R2" 
 +40 AVIEW 
 +41 PSE 
 +42 VIEW "R2" 
 +43 PSE 
 +44 RCL "Att" 
 +45 RCL "R1" 
 +46 RCL "R3" 
 +47 RCL "R2" 
 +48 END 
 +</code> 
 +<code> 
 +00 { 151-Byte Prgm } 
 +01▸LBL "Bias" 
 +02 INPUT "Vcc" 
 +03 INPUT "Hfe" 
 +04 INPUT "Ie" 
 +05 RCL "Vcc" 
 +06 12 
 +07 ÷ 
 +08 STO "Ve" 
 +09 0.7 
 +10 + 
 +11 STO "Vb" 
 +12 RCL "Ve" 
 +13 RCL÷ "Ie" 
 +14 STO "Re" 
 +15 RCL "Ie" 
 +16 RCL÷ "Hfe" 
 +17 STO "Ib" 
 +18 RCL "Vb" 
 +19 10 
 +20 RCL× "Ib" 
 +21 ÷ 
 +22 STO "R2" 
 +23 RCL "Vcc" 
 +24 RCL- "Vb" 
 +25 11 
 +26 RCL× "Ib" 
 +27 ÷ 
 +28 STO "R1" 
 +29 RCL "Vcc" 
 +30 2 
 +31 ÷ 
 +32 STO "Vc" 
 +33 RCL "Vcc" 
 +34 RCL- "Vc" 
 +35 RCL÷ "Ie" 
 +36 STO "Rc" 
 +37 RCL "R1" 
 +38 RCL "R2" 
 +39 RCL "Rc" 
 +40 RCL "Re" 
 +41 END 
 +</code> 
 +<code> 
 +00 { 26-Byte Prgm } 
 +01▸LBL "FIB" 
 +02 STO "N" 
 +03 1 
 +04 ENTER 
 +05 0 
 +06▸LBL A 
 +07 + 
 +08 LASTX 
 +09 X<>Y 
 +10 DSE "N" 
 +11 GTO A 
 +12 END 
 +</code> 
 +<code> 
 +00 { 10-Byte Prgm } 
 +01▸LBL "Eng3" 
 +02 ENG 03 
 +03 END 
 +</code> 
 +<code> 
 +00 { 10-Byte Prgm } 
 +01▸LBL "Fix6" 
 +02 FIX 06 
 +03 END 
 +</code> 
 +<code> 
 +00 { 19-Byte Prgm } 
 +01▸LBL "SM" 
 +02 STO 00 
 +03 0 
 +04 STO 01 
 +05▸LBL 01 
 +06 RCL 00 
 +07 STO+ 01 
 +08 DSE 00 
 +09 GTO 01 
 +10 RCL 01 
 +11 END 
 +</code> 
 +<code> 
 +00 { 49-Byte Prgm } 
 +01▸LBL "BM" 
 +02 0 
 +03 STO 02 
 +04 1.01234ᴇ6 
 +05 STO 00 
 +06 2.345 
 +07 STO 01 
 +08▸LBL 02 
 +09 RCL 01 
 +10 RCL 00 
 +11 × 
 +12 RCL 01 
 +13 - 
 +14 RCL 00 
 +15 ÷ 
 +16 RCL 01 
 +17 × 
 +18 3.5 
 +19 ÷ 
 +20 SQRT 
 +21 1 
 +22 STO+ 02 
 +23 GTO 02 
 +24 END 
 +</code> 
 +<code> 
 +00 { 33-Byte Prgm } 
 +01▸LBL "BMT" 
 +02 56.26 
 +03 STO 00 
 +04 0 
 +05 STO 02 
 +06▸LBL 04 
 +07 RCL 00 
 +08 SIN 
 +09 ASIN 
 +10 COS 
 +11 ACOS 
 +12 TAN 
 +13 ATAN 
 +14 LN 
 +15 E^X 
 +16 1 
 +17 STO+ 02 
 +18 GTO 04 
 +19 END 
 +</code> 
 +<code> 
 +00 { 64-Byte Prgm } 
 +01▸LBL "P→S" 
 +02 RECT 
 +03 INPUT "Rp" 
 +04 INPUT "Xp" 
 +05 RCL "Rp" 
 +06 RCL÷ "Xp" 
 +07 STO "Q" 
 +08 X^2 
 +09 1 
 +10 + 
 +11 RCL "Rp" 
 +12 X<>Y 
 +13 ÷ 
 +14 STO "Rs" 
 +15 RCL "Q" 
 +16 × 
 +17 STO "Xs" 
 +18 RCL "Rs" 
 +19 RCL "Xs" 
 +20 COMPLEX 
 +21 STO "Zs" 
 +22 END 
 +</code> 
 +<code> 
 +00 { 51-Byte Prgm } 
 +01▸LBL "S→P" 
 +02 RECT 
 +03 INPUT "Rs" 
 +04 INPUT "Xs" 
 +05 RCL÷ "Rs" 
 +06 STO "Q" 
 +07 X^2 
 +08 1 
 +09 + 
 +10 RCL× "Rs" 
 +11 STO "Rp" 
 +12 RCL÷ "Q" 
 +13 STO "Xp" 
 +14 RCL "Rp" 
 +15 RCL "Xp" 
 +16 END 
 +</code> 
 +<code> 
 +00 { 97-Byte Prgm } 
 +01▸LBL "Z→" 
 +02 RECT 
 +03 INPUT "Rs" 
 +04 INPUT "Xs" 
 +05 RCL "Rs" 
 +06 RCL "Xs" 
 +07 COMPLEX 
 +08 STO "Zs" 
 +09 50 
 +10 - 
 +11 RCL "Zs" 
 +12 50 
 +13 + 
 +14 ÷ 
 +15 STO "Rho" 
 +16 ABS 
 +17 STO "P" 
 +18 1 
 +19 RCL+ "P" 
 +20 1 
 +21 RCL- "P" 
 +22 ÷ 
 +23 STO "S" 
 +24 RCL "P" 
 +25 LOG 
 +26 20 
 +27 × 
 +28 STO "Rl" 
 +29 RCL "Zs" 
 +30 RCL "Rho" 
 +31 RCL "S" 
 +32 RCL "Rl" 
 +33 POLAR 
 +34 RTN 
 +35 END 
 +</code> 
 +<code> 
 +00 { 92-Byte Prgm } 
 +01▸LBL "PIXCIR" 
 +02 MVAR "R" 
 +03 MVAR "X" 
 +04 MVAR "Y" 
 +05 VARMENU "PIXCIR" 
 +06 STOP 
 +07 EXITALL 
 +08 2 
 +09 STO "GrMod" 
 +10 1 
 +11 360 
 +12 1ᴇ3 
 +13 ÷ 
 +14 + 
 +15 STO 01 
 +16 CLLCD 
 +17▸LBL 01 
 +18 RCL "Y" 
 +19 RCL "R" 
 +20 RCL 01 
 +21 IP 
 +22 SIN 
 +23 × 
 +24 - 
 +25 RCL "X" 
 +26 RCL "R" 
 +27 RCL 01 
 +28 IP 
 +29 COS 
 +30 × 
 +31 + 
 +32 PIXEL 
 +33 RCL 01 
 +34 ISG 01 
 +35 GTO 01 
 +36 XEQ "PIXCIR" 
 +37 END 
 +</code> 
 +<code> 
 +00 { 204-Byte Prgm } 
 +01▸LBL "BFil" 
 +02 ENG 03 
 +03 SF 00 
 +04 INPUT "MHz" 
 +05 1ᴇ6 
 +06 × 
 +07 STO "F" 
 +08 INPUT "N" 
 +09 X<0? 
 +10 CF 00 
 +11 XEQ 06 
 +12▸LBL 01 
 +13 RCL "I" 
 +14 IP 
 +15 XEQ 00 
 +16 FS? 00 
 +17 1/X 
 +18 STO IND "I" 
 +19 ISG "I" 
 +20 GTO 01 
 +21 "Coefficients" 
 +22 AVIEW 
 +23 STOP 
 +24 GTO 07 
 +25▸LBL 08 
 +26 RCL IND "I" 
 +27 RCL "F" 
 +28 2 
 +29 × 
 +30 PI 
 +31 × 
 +32 ÷ 
 +33 RTN 
 +34▸LBL 07 
 +35 XEQ 06 
 +36▸LBL 03 
 +37 RCL "I" 
 +38 IP 
 +39 2 
 +40 ÷ 
 +41 FP 
 +42 FS? 00 
 +43 GTO 09 
 +44 GTO 10 
 +45▸LBL 09 
 +46 "HPF" 
 +47 AVIEW 
 +48 X=0? 
 +49 GTO 05 
 +50 GTO 04 
 +51 RTN 
 +52▸LBL 10 
 +53 "LPF" 
 +54 AVIEW 
 +55 X=0? 
 +56 GTO 04 
 +57 GTO 05 
 +58 RTN 
 +59▸LBL 04 
 +60 XEQ 08 
 +61 50 
 +62 × 
 +63 STO IND "I" 
 +64 ISG "I" 
 +65 GTO 03 
 +66 RTN 
 +67▸LBL 05 
 +68 XEQ 08 
 +69 50 
 +70 ÷ 
 +71 STO IND "I" 
 +72 ISG "I" 
 +73 GTO 03 
 +74 RTN 
 +75▸LBL 06 
 +76 RCL "N" 
 +77 ABS 
 +78 1000 
 +79 ÷ 
 +80 1 
 +81 + 
 +82 STO "I" 
 +83 RTN 
 +84▸LBL 00 
 +85 2 
 +86 × 
 +87 1 
 +88 - 
 +89 180 
 +90 × 
 +91 RCL "N" 
 +92 ABS 
 +93 2 
 +94 × 
 +95 ÷ 
 +96 SIN 
 +97 2 
 +98 × 
 +99 RTN 
 +100 END 
 + 
 + 
 +</code> 
 + 
 + 
 +==== Page Info ==== 
 + 
 +Page created Thu May 26 17:32:54 2022 by John Pumford-Green 
 + 
 +Page last updated: ~~LASTMOD~~
  
-===== Section One ===== 
  
  
-===== Section Two ===== 
  
  
 --- //John Pumford-Green 24/04/23 16:08// --- //John Pumford-Green 24/04/23 16:08//
  
 +**Back to [[|Top]] of page**
  
 ===== Further Information ===== ===== Further Information =====
  
  
-{{tag>}}+{{tag>calculator dm42}}
  
  

Navigation