John's Vademecum - public:calculator:progs

DM15L Progs

anonymous@undisclosed.example.com (Anonymous) — Sun, 05 Apr 2026 08:46:21 +0000

DM15L Progs

Dumps taken from the DM15L using a serial console session in Putty.

Stock Swiss Micros Firmware

Dumps are also converted to readable program listings using the Swiss Micros online encode/decode tool at https://technical.swissmicros.com/decoders/nut/

Normal + "Complex Z to....."

LBL E converts Z=R±jX to RL, SWR, |ρ|∠ρ, |Z|∠Z

Data input :

if Z = R + j X, put R in Y-stack and X in X-stack and then run LBL E

R ENTER
X (and CHS as needed)
F
E

Results appear:

Stack X → Return Loss
Stack Y → SWR
Stack Z → (Re) |ρ| (Im) ∠ρ
Stack T → (Re) |Z| (Im) ∠Z

DM15_M1B
04  000000fffff000  00000000000008  0000000000000c  00000996010eae
08  00000000000000  2faf8befbe2280  00000000000000  00000000000000
10  91000000000000  00000000000000  00000000000000  02875000000998
14  f0000000000000  1b2d2d2d2d2d2d  000000000002ef  00000000000000
18  00000000000000  0000000000007f  00000000a00000  01900000000001
1c  02232142865997  01800000000002  02232142865997  01004474273000
20  05302556024001  00000000000000  00000000000000  00000000000000
ec  00000000000000  00000000000000  00000000000000  0000000000b237
f0  36a43433a43231  44db43e1a43433  42db41e1a43231  47c3fcf0f2bc35
f4  46fda5cff185cf  f145b3db44db43  fdfaf0f5a43231  fbf0f5a4323141
f8  c5420eb23344fc  c3f0f2bcfdfaf1  33fbf143fda2cf  f182cff142cafd
fc  0ab2c3fcf0f2bc  fdfaf132fbf142  0bb2fdfbf132fa  f142ccfdf0f20c
A: 000000fffff000  B: 000000fffffeae  C: 00000996010eae
S: 00000000000000
M: 00000000000000  N: 00000000000000  G: 04

Decoded Dump

001  LBL C        | 42,21,13
002  2            |        2
003  0            |        0
004  /            |       10
005  10^x         |       13
006  STO 2        |    44  2
007  1            |        1
008  +            |       40
009  RCL 2        |    45  2
010  1            |        1
011  -            |       30
012  /            |       10
013  RTN          |   43  32
014  LBL B        | 42,21,12
015  STO 2        |    44  2
016  1            |        1
017  -            |       30
018  RCL 2        |    45  2
019  1            |        1
020  +            |       40
021  /            |       10
022  LOG          |   43  13
023  2            |        2
024  0            |        0
025  *            |       20
026  CHS          |       16
027  RTN          |   43  32
028  LBL A        | 42,21,11
029  /            |       10
030  sqrt         |       11
031  STO 2        |    44  2
032  1            |        1
033  RCL+2        | 45,40, 2
034  1            |        1
035  RCL-2        | 45,30, 2
036  /            |       10
037  STO 3        |    44  3
038  1            |        1
039  -            |       30
040  RCL 3        |    45  3
041  1            |        1
042  +            |       40
043  /            |       10
044  LOG          |   43  13
045  2            |        2
046  0            |        0
047  CHS          |       16
048  *            |       20
049  STO 4        |    44  4
050  RCL 3        |    45  3
051  RTN          |   43  32
052  LBL E        | 42,21,15
053  STO 2        |    44  2
054  x<>y         |       34
055  STO 1        |    44  1
056  RCL 1        |    45  1
057  RCL 2        |    45  2
058  I            |   42  25
059  5            |        5
060  0            |        0
061  -            |       30
062  RCL 1        |    45  1
063  RCL 2        |    45  2
064  I            |   42  25
065  5            |        5
066  0            |        0
067  +            |       40
068  /            |       10
069  STO 3        |    44  3
070  Re<>Im       |   42  30
071  STO 4        |    44  4
072  Re<>Im       |   42  30
073  ABS          |   43  16
074  STO 5        |    44  5
075  1            |        1
076  RCL+5        | 45,40, 5
077  1            |        1
078  RCL-5        | 45,30, 5
079  /            |       10
080  STO 6        |    44  6
081  RCL 5        |    45  5
082  LOG          |   43  13
083  2            |        2
084  0            |        0
085  *            |       20
086  CHS          |       16
087  STO 7        |    44  7
088  RCL 1        |    45  1
089  RCL 2        |    45  2
090  I            |   42  25
091  ->P          |     43 1
092  STO 1        |    44  1
093  Re<>Im       |   42  30
094  STO 2        |    44  2
095  RCL 3        |    45  3
096  RCL 4        |    45  4
097  I            |   42  25
098  ->P          |     43 1
099  STO 3        |    44  3
100  Re<>Im       |   42  30
101  STO 4        |    44  4
102  RCL 1        |    45  1
103  RCL 2        |    45  2
104  I            |   42  25
105  RCL 3        |    45  3
106  RCL 4        |    45  4
107  I            |   42  25
108  RCL 6        |    45  6
109  RCL 7        |    45  7
110  RTN          |   43  32

"Normal"

### 27/7/22 ####
# This is the usual set of 3 useful tool progs I have in the DM15L for quick calculation/conversion
# of antenna parameters.
#

Ref Power ENTER Fwd Power fA → SWR x<>y RL
SWR fB → Return Loss
Return Loss fC → SWR

DM15_M1B
00  03400000000001  01000000000001  08000000000000  00000000000000
04  155000000ff000  00000000000008  0000000000000c  00002000010eae
08  00000000000000  2faf0bde7aa28f  000080bcbcaf80  00000000000000
10  00000000000000  01000000000001  00000000000000  03400000000001
14  f7365289440000  1b2d2d2d2d2d2d  000000000004f8  00000000000000
18  00000000000000  0000000000007f  00000000a00000  01387265622000
1c  01387265622000  01579783596001  05000000000001  02500000000003
20  01800000000002  00000000000000  00000000000000  00000000000000
f8  000000b23344fc  c3f0f2bcfdfaf1  33fbf143fda2cf  f182cff142cafd
fc  0ab2c3fcf0f2bc  fdfaf132fbf142  0bb2fdfbf132fa  f142ccfdf0f20c
A: 155000000ff000  B: 155000000ffeae  C: 00002000010eae
S: 00000000000000
M: 00000000000000  N: 05500000000001  G: 06

Decoded dump

LBL C
20

/
10^x
STO 2
1
+
RCL 2
1
-
/
RTN
LBL B
STO 2
1
-
RCL 2
1
+
/
LOG
20

*
CHS
RTN
LBL A
/
sqrt
STO 2
1
RCL+2
1
RCL-2
/
STO 3
1
-
RCL 3
1
+
/
LOG
20

CHS
*
STO 4
RCL 3
RTN

001  LBL C        | 42,21,13
002  2            |        2
003  0            |        0
004  /            |       10
005  10^x         |       13
006  STO 2        |    44  2
007  1            |        1
008  +            |       40
009  RCL 2        |    45  2
010  1            |        1
011  -            |       30
012  /            |       10
013  RTN          |   43  32
014  LBL B        | 42,21,12
015  STO 2        |    44  2
016  1            |        1
017  -            |       30
018  RCL 2        |    45  2
019  1            |        1
020  +            |       40
021  /            |       10
022  LOG          |   43  13
023  2            |        2
024  0            |        0
025  *            |       20
026  CHS          |       16
027  RTN          |   43  32
028  LBL A        | 42,21,11
029  /            |       10
030  sqrt         |       11
031  STO 2        |    44  2
032  1            |        1
033  RCL+2        | 45,40, 2
034  1            |        1
035  RCL-2        | 45,30, 2
036  /            |       10
037  STO 3        |    44  3
038  1            |        1
039  -            |       30
040  RCL 3        |    45  3
041  1            |        1
042  +            |       40
043  /            |       10
044  LOG          |   43  13
045  2            |        2
046  0            |        0
047  CHS          |       16
048  *            |       20
049  STO 4        |    44  4
050  RCL 3        |    45  3
051  RTN          |   43  32

N-Queens Benchmark 27/7/22

DM15_M1B
00  08000000000000  08000000000000  00000000000000  00000000000000
04  065140fffff000  00000000000008  0000000000000c  00000000999eae
08  00000000000000  22af8d9e7e0080  00000000000000  00000000000000
10  08000000000000  08000000000000  01000000000000  01000000000000
14  f0000000000537  1b2d2d2d2d2d2d  000000000007f7  00000000000000
18  00000000000000  0000000000007f  00000000a00000  04000000000000
1c  01000000000000  03000000000000  06000000000000  02000000000000
20  07000000000000  05000000000000  00000000000000  08000000000000
24  08760000000002  00000000000000  00000000000000  00000000000000
f4  00000000000000  00000000000000  00000000000000  b25104137030a0
f8  dff1117086bddf  f19730031276fb  3930b313ecfb86  c4973986973010
fc  ec39a9dff10249  3091dff1019650  973080dff11475  50300060f8a50a
A: 065140fffff000  B: 065140fffffeae  C: 00000000999eae
S: 00000000000000
M: aaaaaaaaaaaaaa  N: 06514000000000  G: 04

Decoded Dump

LBL A
CLR_REG
8
STO .0
LBL 0
RCL 0
RCL .0
TEST 5
GTO 4
1
STO+0
RCL 0
STO I
RCL .0
STO (i)
LBL 1
1
STO+.1
RCL 0
STO 9
LBL 2
1
STO-9
RCL 9
x=0
GTO 0
RCL 0
STO I
RCL (i)
RCL 9
STO I
R_down
RCL (i)
-
x=0
GTO 3
ABS
RCL 0
RCL 9
-
TEST 6
GTO 2
LBL 3
RCL 0
STO I
1
STO-(i)
RCL (i)
TEST 0
GTO 1
1
STO-0
RCL 0
TEST 0
GTO 3
LBL 4
RCL .1
RTN

001  LBL A        | 42,21,11
002  CLR_REG      |   42  34
003  8            |        8
004  STO .0       |    44 .0
005  LBL 0        | 42,21, 0
006  RCL 0        |    45  0
007  RCL .0       |    45 .0
008  TEST 5       | 43,30, 5
009  GTO 4        |    22  4
010  1            |        1
011  STO+0        | 44,40, 0
012  RCL 0        |    45  0
013  STO I        |   44  25
014  RCL .0       |    45 .0
015  STO (i)      |   44  24
016  LBL 1        | 42,21, 1
017  1            |        1
018  STO+.1       | 44,40,.1
019  RCL 0        |    45  0
020  STO 9        |    44  9
021  LBL 2        | 42,21, 2
022  1            |        1
023  STO-9        | 44,30, 9
024  RCL 9        |    45  9
025  x=0          |   43  20
026  GTO 0        |    22  0
027  RCL 0        |    45  0
028  STO I        |   44  25
029  RCL (i)      |   45  24
030  RCL 9        |    45  9
031  STO I        |   44  25
032  R_down       |       33
033  RCL (i)      |   45  24
034  -            |       30
035  x=0          |   43  20
036  GTO 3        |    22  3
037  ABS          |   43  16
038  RCL 0        |    45  0
039  RCL 9        |    45  9
040  -            |       30
041  TEST 6       | 43,30, 6
042  GTO 2        |    22  2
043  LBL 3        | 42,21, 3
044  RCL 0        |    45  0
045  STO I        |   44  25
046  1            |        1
047  STO-(i)      | 44,30,24
048  RCL (i)      |   45  24
049  TEST 0       | 43,30, 0
050  GTO 1        |    22  1
051  1            |        1
052  STO-0        | 44,30, 0
053  RCL 0        |    45  0
054  TEST 0       | 43,30, 0
055  GTO 3        |    22  3
056  LBL 4        | 42,21, 4
057  RCL .1       |    45 .1
058  RTN          |   43  32

Savage Benchmark 23/01/26

DM15_M1B
00  01000000000000  01000000000000  01000000000000  00000000000000
04  32499970322000  00000000000008  0000000000000c  40997997010eae
08  00000000000000  3ebeefb6e4228f  e79282e8bc2ac0  00000000000000
10  00000000000000  08000000000000  06000000000000  02498970322003
14  f0000000000504  1b2d2d2d2d2d2d  000000000001fc  00000000000000
18  00000000000000  0000000000007f  00000000a00000  06000000000000
1c  04000000000000  07000000000000  05000000000000  03000000000000
20  00000000000000  00000000000000  04000000000000  08000000000000
24  02100000000001  00000000000000  00000000000000  00000000000000
fc  000000000000b2  1b82fac9b9cbbb  caba0bc1c1c1f1  40f9f9f4f2e80a
A: 32499970322000  B: 32499970322eae  C: 40997997010eae
S: 00000000000000
M: 00000000000000  N: 02499970322003  G: 09

UPDATED "Butterworth" program 12/2/22

############################
#
#  Updated 12/2/22 : change to reduce amount of looping/storing 
#  Sub routine "LBL 8" changed
DM15_M1B
00  05108827280994  05000000000999  05000000000999  00000000000000
04  24547fff912000  00000000000008  0000000000000c  00012012012eae
08  00000000000000  b6000a9eda000f  e6220040000000  00000000000000
10  07000000000000  05108827295994  08007000000000  05000000000001
14  f0000000012435  1b2d2d2d2d2d2d  000000000006f1  00000000000000
18  00000000000000  0000000000007f  00000000a00300  07293277408990
1c  01261776142994  04547284088990  01261776142994  07293277408990
20  05108827280994  01103787069994  04026420096990  08509227540993
24  02583151782990  04031222906993  05481145266989  07025940305993
28  09506412356989  00000000000000  00000000000000  00000000000000
2c  03500000000006  00000000000000  00000000000000  00000000000000
f0  00000000000000  00b2fcf2c7fdfc  f230fcf0f8f1fb  f1fcf200171195
f4  96ce50ff20eb87  012640b340ff72  c56930ff83ff0a  17b2139596fdf0
f8  f52805b2139596  fcf0f5280410ff  1950ffa3fdf2eb  87032607b297fa
fc  f1fdf0f0f0f130  06b21514ec00ff  b21415ec09b2fd  fcb6fcf2598608
A: 24547fff912000  B: 24547fff912eae  C: 00012012012eae
S: 00000100000000
M: 05108827280994  N: 04547284088990  G: 23

Dump above decoded at Swiss micros

001  LBL 8        | 42,21, 8
002  RCL (i)      |   45  24
003  RCL .9       |    45 .9
004  2            |        2
005  *            |       20
006  PI           |   43  26
007  *            |       20
008  /            |       10
009  RTN          |   43  32
010  LBL 9        | 42,21, 9
011  x=0          |   43  20
012  GTO 5        |    22  5
013  GTO 4        |    22  4
014  RTN          |   43  32
015  LBL .0       | 42,21,.0
016  x=0          |   43  20
017  GTO 4        |    22  4
018  GTO 5        |    22  5
019  RTN          |   43  32
020  LBL 6        | 42,21, 6
021  RCL 0        |    45  0
022  1            |        1
023  0            |        0
024  0            |        0
025  0            |        0
026  /            |       10
027  1            |        1
028  +            |       40
029  STO I        |   44  25
030  RTN          |   43  32
031  LBL 7        | 42,21, 7
032  GSB 6        |    32  6
033  LBL 3        | 42,21, 3
034  RCL I        |   45  25
035  INT          |   43  44
036  2            |        2
037  /            |       10
038  FRAC         |   42  44
039  F? 0         | 43, 6, 0
040  GTO 9        |    22  9
041  GTO .0       |    22 .0
042  LBL 4        | 42,21, 4
043  GSB 8        |    32  8
044  5            |        5
045  0            |        0
046  *            |       20
047  STO (i)      |   44  24
048  ISG I        | 42, 6,25
049  GTO 3        |    22  3
050  RTN          |   43  32
051  LBL 5        | 42,21, 5
052  GSB 8        |    32  8
053  5            |        5
054  0            |        0
055  /            |       10
056  STO (i)      |   44  24
057  ISG I        | 42, 6,25
058  GTO 3        |    22  3
059  RTN          |   43  32
060  GTO 7        |    22  7
061  LBL A        | 42,21,11
062  ENG 3        | 42, 9, 3
063  SF 0         | 43, 4, 0
064  STO .9       |    44 .9
065  x<>y         |       34
066  TEST 2       | 43,30, 2
067  CF 0         | 43, 5, 0
068  ABS          |   43  16
069  STO 0        |    44  0
070  GSB 6        |    32  6
071  LBL 1        | 42,21, 1
072  RCL I        |   45  25
073  INT          |   43  44
074  GSB 0        |    32  0
075  F? 0         | 43, 6, 0
076  1/x          |       15
077  STO (i)      |   44  24
078  ISG I        | 42, 6,25
079  GTO 1        |    22  1
080  GTO 7        |    22  7
081  LBL 0        | 42,21, 0
082  2            |        2
083  *            |       20
084  1            |        1
085  -            |       30
086  1            |        1
087  8            |        8
088  0            |        0
089  *            |       20
090  RCL 0        |    45  0
091  2            |        2
092  *            |       20
093  /            |       10
094  SIN          |       23
095  2            |        2
096  *            |       20
097  RTN          |   43  32

Dump

################################

DM15_M1B
00  01040000000003  01750000000002  01750000000002  00000000000000
04  08200000910000  00000000000008  0000000000000c  00002000009eae
08  00000000000000  2faf8bf9fe2280  be220040bcaf80  00000000000000
10  00000000000000  00000000000000  00000000000000  06283185308000
14  f7365289446075  1b2d2d2d2d2d2d  000000000007f2  000000000003ff
18  00000000000000  0000000000007f  00000000a00000  01924950591000
1c  01924950591000  01000000000001  05000000000001  02500000000003
20  01800000000002  00000000000000  00000000000000  00000000000000
f0  00000000000000  00000000000000  b23344fcc3f0f2  bcfdfaf133fbf1
f4  43fda2cff182cf  f142cafd0ab2c3  fcf0f2bcfdfaf1  32fbf1420bb2fd
f8  fbf132faf142cc  fdf0f20cb2fcf0  f1bcfdc3f3c6f1  fdf0f5ba0db2ca
fc  fcf0f5fcc3f3c6  f1ccfdf0f10eb2  c3fcf0f2bcfdfa  f1c5fbf1c1c100
A: 08200000910000  B: 08200000910eae  C: 00002000009eae
S: 00000100000000
M: 00000000000990  N: 08200000000990  G: 19

Dump above decoded @ Swiss Micros

# https://technical.swissmicros.com/decoders/nut/
#
001  LBL 0        | 42,21, 0
002  ENTER        |       36
003  ENTER        |       36
004  1            |        1
005  -            |       30
006  x<>y         |       34
007  1            |        1
008  +            |       40
009  /            |       10
010  LOG          |   43  13
011  2            |        2
012  0            |        0
013  *            |       20
014  CHS          |       16
015  RTN          |   43  32
016  LBL E        | 42,21,15
017  1            |        1
018  0            |        0
019  /            |       10
020  10^x         |       13
021  1            |        1
022  EEX          |       26
023  3            |        3
024  CHS          |       16
025  *            |       20
026  5            |        5
027  0            |        0
028  *            |       20
029  sqrt         |       11
030  RTN          |   43  32
031  LBL D        | 42,21,14
032  x^2          |   43  11
033  5            |        5
034  0            |        0
035  /            |       10
036  1            |        1
037  EEX          |       26
038  3            |        3
039  CHS          |       16
040  /            |       10
041  LOG          |   43  13
042  1            |        1
043  0            |        0
044  *            |       20
045  RTN          |   43  32
046  LBL C        | 42,21,13
047  2            |        2
048  0            |        0
049  /            |       10
050  10^x         |       13
051  STO 2        |    44  2
052  1            |        1
053  +            |       40
054  RCL 2        |    45  2
055  1            |        1
056  -            |       30
057  /            |       10
058  RTN          |   43  32
059  LBL B        | 42,21,12
060  STO 2        |    44  2
061  1            |        1
062  -            |       30
063  RCL 2        |    45  2
064  1            |        1
065  +            |       40
066  /            |       10
067  LOG          |   43  13
068  2            |        2
069  0            |        0
070  *            |       20
071  CHS          |       16
072  RTN          |   43  32
073  LBL A        | 42,21,11
074  /            |       10
075  sqrt         |       11
076  STO 2        |    44  2
077  1            |        1
078  RCL+2        | 45,40, 2
079  1            |        1
080  RCL-2        | 45,30, 2
081  /            |       10
082  STO 3        |    44  3
083  1            |        1
084  -            |       30
085  RCL 3        |    45  3
086  1            |        1
087  +            |       40
088  /            |       10
089  LOG          |   43  13
090  2            |        2
091  0            |        0
092  CHS          |       16
093  *            |       20
094  STO 4        |    44  4
095  RCL 3        |    45  3
096  RTN          |   43  32

Dump

######################################################


DM15
00  01544068044001  01544068044001  01544068044001  00000000000000
04  1154407ffff000  00000000000008  0000000000000c  00000000000eae
08  00000000000000  362f0d9e8a808f  00000000002a00  00000000000000
10  00000000000000  00000000000000  00000000000000  02000000000001
14  f0000000000027  c0d2d2d2d2d2d2  000000000004f8  00000000000000
18  00000000000000  0000000000007f  00000000a00000  00000000000000
c0  01406828223000  01406828223000  01544068044001  00000000000000
f8  000000b23344fc  c3f0f2bcfdfaf1  33fbf143fda2cf  f182cff142cafd
fc  0ab2c3fcf0f2bc  fdfaf132fbf142  0bb2fdfbf132fa  f142ccfdf0f20c
A: 1154407ffff000  B: 1154407ffffeae  C: 00000000000eae
S: 00000000000000
M: 15440680436000  N: 01544068044001  G: 04

Decode of Dump above

#
001  LBL C        | 42,21,13
002  2            |        2
003  0            |        0
004  /            |       10
005  10^x         |       13
006  STO 2        |    44  2
007  1            |        1
008  +            |       40
009  RCL 2        |    45  2
010  1            |        1
011  -            |       30
012  /            |       10
013  RTN          |   43  32
014  LBL B        | 42,21,12
015  STO 2        |    44  2
016  1            |        1
017  -            |       30
018  RCL 2        |    45  2
019  1            |        1
020  +            |       40
021  /            |       10
022  LOG          |   43  13
023  2            |        2
024  0            |        0
025  *            |       20
026  CHS          |       16
027  RTN          |   43  32
028  LBL A        | 42,21,11
029  /            |       10
030  sqrt         |       11
031  STO 2        |    44  2
032  1            |        1
033  RCL+2        | 45,40, 2
034  1            |        1
035  RCL-2        | 45,30, 2
036  /            |       10
037  STO 3        |    44  3
038  1            |        1
039  -            |       30
040  RCL 3        |    45  3
041  1            |        1
042  +            |       40
043  /            |       10
044  LOG          |   43  13
045  2            |        2
046  0            |        0
047  CHS          |       16
048  *            |       20
049  STO 4        |    44  4
050  RCL 3        |    45  3
051  RTN          |   43  32
########################################################################

Dump 23/12/21

### 23/12/21
# A = Stack Y -> Ref, Stack X ->Fwd -> [f][A] -> Stack Y = RL, Stack X = SWR
# B = SWR -> RL
# C = RL -> SWR
# D = PiAttn : (y = attn, x = Zo) -> [f][D] -> (y = series R, x = shunt Rs)
# E = Fibonacci Number x = n -> f(n)
# 


DM15_M1B
00  03400000000001  01000000000001  08000000000000  00000000000000
04  155000000ff000  00000000000008  0000000000000c  00002000010eae
08  00000000000000  2faf0bde7aa28f  000080bcbcaf80  00000000000000
10  00000000000000  01000000000001  00000000000000  03400000000001
14  f7365289446057  1b2d2d2d2d2d2d  000000000001f1  00000000000000
18  00000000000000  0000000000007f  00000000a00000  01387265622000
1c  01387265622000  01579783596001  05000000000001  02500000000003
20  01800000000002  00000000000000  00000000000000  00000000000000
f0  00000000000000  000000000000b2  3344fcc3f0f2bc  fdfaf133fbf143
f4  fda2cff182cff1  42cafd0ab2c3fc  f0f2bcfdfaf132  fbf1420bb2fdfb
f8  f132faf142ccfd  f0f20cb2333444  c0cffdc2cff2fb  ba32f143c0cffd
fc  a2cff182cff142  ccfdc3f0f241c5  400db21182c5b1  fa01f0c1f1400e
A: 155000000ff000  B: 155000000ffeae  C: 00002000010eae
S: 00000000000000
M: 00000000000000  N: 05500000000001  G: 06

Decode of dump above

# 
#
001  LBL E        | 42,21,15
002  STO 0        |    44  0
003  1            |        1
004  ENTER        |       36
005  0            |        0
006  LBL 1        | 42,21, 1
007  +            |       40
008  LSTx         |   43  36
009  x<>y         |       34
010  DSE 0        | 42, 5, 0
011  GTO 1        |    22  1
012  RTN          |   43  32
013  LBL D        | 42,21,14
014  STO 0        |    44  0
015  x<>y         |       34
016  STO 1        |    44  1
017  2            |        2
018  0            |        0
019  CHS          |       16
020  /            |       10
021  10^x         |       13
022  STO 2        |    44  2
023  1            |        1
024  RCL+2        | 45,40, 2
025  1            |        1
026  RCL-2        | 45,30, 2
027  /            |       10
028  RCL*0        | 45,20, 0
029  STO 3        |    44  3
030  1            |        1
031  RCL 2        |    45  2
032  x^2          |   43  11
033  -            |       30
034  2            |        2
035  RCL*2        | 45,20, 2
036  /            |       10
037  RCL*0        | 45,20, 0
038  STO 4        |    44  4
039  RCL 4        |    45  4
040  RCL 3        |    45  3
041  RTN          |   43  32
042  LBL C        | 42,21,13
043  2            |        2
044  0            |        0
045  /            |       10
046  10^x         |       13
047  STO 2        |    44  2
048  1            |        1
049  +            |       40
050  RCL 2        |    45  2
051  1            |        1
052  -            |       30
053  /            |       10
054  RTN          |   43  32
055  LBL B        | 42,21,12
056  STO 2        |    44  2
057  1            |        1
058  -            |       30
059  RCL 2        |    45  2
060  1            |        1
061  +            |       40
062  /            |       10
063  LOG          |   43  13
064  2            |        2
065  0            |        0
066  *            |       20
067  CHS          |       16
068  RTN          |   43  32
069  LBL A        | 42,21,11
070  /            |       10
071  sqrt         |       11
072  STO 2        |    44  2
073  1            |        1
074  RCL+2        | 45,40, 2
075  1            |        1
076  RCL-2        | 45,30, 2
077  /            |       10
078  STO 3        |    44  3
079  1            |        1
080  -            |       30
081  RCL 3        |    45  3
082  1            |        1
083  +            |       40
084  /            |       10
085  LOG          |   43  13
086  2            |        2
087  0            |        0
088  CHS          |       16
089  *            |       20
090  STO 4        |    44  4
091  RCL 3        |    45  3
092  RTN          |   43  32
=======================================================================
#

Dump 10/2/22

#
#    10 Feb 2022
#    Butterworth Filter designer
#    enter filter order (n) into Y register (+ = HPF, - = LPF) , 
#    enter Freq into X register
#    execute program with [f] [A]
#    Values for each component are obtained from registers R1 -> Rn 

DM15_M1B
00  02251666050002  03218976343993  03218976343993  00000000000000
04  16640fff000000  00000000000008  0000000000000c  00012012012eae
08  00000000000000  36800bdf7e820f  bef20200000000  00000000000000
10  05000000000000  03218976343993  06005000000000  02000000000000
14  f0000000012377  1b2d2d2d2d2d2d  000000000005f0  00000000000000
18  00000000000000  0000000000007f  00000000a00300  04918158214989
1c  09947183945992  04918158214989  03218976343993  01103787069994
20  04547284088990  01103787069994  04026420096990  08509227540993
24  02583151782990  04031222906993  05481145266989  07025940305993
28  09506412356989  00000000000000  00000000000000  00000000000000
2c  04000000000007  00000000000000  00000000000000  00000000000000
f0  0000b2fcf2c7fd  fcf230fcf0f8f1  fbf1fcf2001811  9596ce50ff20eb
f4  87012640b340ff  72c56930ff83ff  0a17129596fdfc  b6fcf25986eb87
f8  022608b2139596  fdf0f58605b213  9596fcf0f58604  10ff1950ffa3fd
fc  f2eb87032607b2  97faf1fdf0f0f0  f13006b21514ec  00ffb21415ec09
A: 16640fff000000  B: 16640fff000eae  C: 00012012012eae
S: 00000100000000
M: 02000000000001  N: 06639528095001  G: 23

Decode of dump above

=====================================================================
001  LBL 9        | 42,21, 9
002  x=0          |   43  20
003  GTO 5        |    22  5
004  GTO 4        |    22  4
005  RTN          |   43  32
006  LBL .0       | 42,21,.0
007  x=0          |   43  20
008  GTO 4        |    22  4
009  GTO 5        |    22  5
010  RTN          |   43  32
011  LBL 6        | 42,21, 6
012  RCL 0        |    45  0
013  1            |        1
014  0            |        0
015  0            |        0
016  0            |        0
017  /            |       10
018  1            |        1
019  +            |       40
020  STO I        |   44  25
021  RTN          |   43  32
022  LBL 7        | 42,21, 7
023  GSB 6        |    32  6
024  LBL 3        | 42,21, 3
025  RCL I        |   45  25
026  INT          |   43  44
027  2            |        2
028  /            |       10
029  FRAC         |   42  44
030  F? 0         | 43, 6, 0
031  GTO 9        |    22  9
032  GTO .0       |    22 .0
033  LBL 4        | 42,21, 4
034  RCL (i)      |   45  24
035  5            |        5
036  0            |        0
037  *            |       20
038  STO (i)      |   44  24
039  ISG I        | 42, 6,25
040  GTO 3        |    22  3
041  RTN          |   43  32
042  LBL 5        | 42,21, 5
043  RCL (i)      |   45  24
044  5            |        5
045  0            |        0
046  /            |       10
047  STO (i)      |   44  24
048  ISG I        | 42, 6,25
049  GTO 3        |    22  3
050  RTN          |   43  32
051  LBL 8        | 42,21, 8
052  GSB 6        |    32  6
053  LBL 2        | 42,21, 2
054  RCL I        |   45  25
055  INT          |   43  44
056  RCL (i)      |   45  24
057  RCL .9       |    45 .9
058  2            |        2
059  *            |       20
060  PI           |   43  26
061  *            |       20
062  /            |       10
063  STO (i)      |   44  24
064  ISG I        | 42, 6,25
065  GTO 2        |    22  2
066  GTO 7        |    22  7
067  LBL A        | 42,21,11
068  ENG 3        | 42, 9, 3
069  SF 0         | 43, 4, 0
070  STO .9       |    44 .9
071  x<>y         |       34
072  TEST 2       | 43,30, 2
073  CF 0         | 43, 5, 0
074  ABS          |   43  16
075  STO 0        |    44  0
076  GSB 6        |    32  6
077  LBL 1        | 42,21, 1
078  RCL I        |   45  25
079  INT          |   43  44
080  GSB 0        |    32  0
081  F? 0         | 43, 6, 0
082  1/x          |       15
083  STO (i)      |   44  24
084  ISG I        | 42, 6,25
085  GTO 1        |    22  1
086  GTO 8        |    22  8
087  LBL 0        | 42,21, 0
088  2            |        2
089  *            |       20
090  1            |        1
091  -            |       30
092  1            |        1
093  8            |        8
094  0            |        0
095  *            |       20
096  RCL 0        |    45  0
097  2            |        2
098  *            |       20
099  /            |       10
100  SIN          |       23
101  2            |        2
102  *            |       20
103  RTN          |   43  32

Dump 07/02/25

###############
# 7 Feb 2025
# LBL A = y : ref/ x : fwd fA -> y : RL / x : SWR
# LBL B = SWR -> RL
# LBL C = RL -> SWR
# LBL D = Gas calc (tare ENTER gross ENTER cylinder "full gas weight" (i.e. 6/13/19kg) f D -> percentage full
# LBL E = DTT Freq <-> Channel conversion

DM15_M1B
00  09806650000000  02200000000001  03060000000002  00000000000000
04  066261ff934000  00000000000008  0000000000000c  00000991000eae
08  00000000000000  39a287df7e2200  dba00240000000  00000000000000
10  01579783596001  01579783596001  00000000000000  08000000000000
14  f0000000000014  1b2d2d2d2d2d2d  000000000005f0  00000000000000
18  00000000000000  0000000000007f  00000000a00000  01387265619000
1c  01387265622000  01579783596001  00000000000000  00000000000000
f0  0000b2fdfbf1c5  faf1c1c1ccfdf0  f20cb2c3fcf0f2  bcfdfaf1c5fbf1
f4  c1c10bb23344c3  fcf0f2bcfdfaf1  33fbf143fda2cf  f182cff142cafd
f8  0ab2fcf0f0f1fd  32fbc531fcf4f5  f4c0fafdf6f1fc  f0f0f1a3c5ebc1
fc  40c441c4420db2  faf6f0f3fcf809  b2fdf8fbf6f0f3  1978c5f6f0f30e
A: 066261ff934000  B: 066261ff934eae  C: 00000991000eae
S: 00000100000000
M: 03060000000002  N: 06626070150966  G: 04

Work Tools 23/01/26

###################################
#
#   Label A = DTT : Freq / Channel conversion
#   Label B = Gas : Tare/Gross/Size to calculate percentage-full
#   Label C = Return Loss to SWR conversion
#   Label D = SWR to Return Loss conversion
#   Label E = Reflected & Forward power to Return Loss and SWR calculation

DM15_M1B
00  03060000000002  04925000000001  04925000000001  00000000000000
04  2698000000f000  00000000000008  0000000000000c  00002001001eae
08  00000000000000  bfaf0bfe7e228f  02f082bcbcaf80  00000000000000
10  04002000000001  03650000000001  06000000000000  03060000000002
14  f0000000000100  1b2d2d2d2d2d2d  000000000005f0  00000000000000
18  00000000000000  0000000000007f  00000000a00000  01622214211999
1c  01387265622000  01579783596001  05000000000000  03000000000000
20  00000000000000  00000000000000  04000000000000  08000000000000
24  02100000000001  00000000000000  00000000000000  00000000000000
f0  0000b2faf6f0f3  fcf809b2fdf8fb  f6f0f31978c5f6  f0f30ab2fcf0f0
f4  f1fd32fbc531fc  f4f5f4c0fafdf6  f1fcf0f0f1a3c5  ebc140c441c442
f8  0bb2c3fcf0f2bc  fdfaf1c5fbf1c1  c10db2fdfbf1c5  faf1c1c1ccfdf0
fc  f20cb23344c3fc  f0f2bcfdfaf133  fbf143fda2cff1  82cff142cafd0e
A: 2698000000f000  B: 2698000000feae  C: 00002001001eae
S: 00000000000000
M: 06980000000000  N: 06980000000002  G: 06

Decoded Dump

001  LBL E        | 42,21,15
002  /            |       10
003  sqrt         |       11
004  STO 2        |    44  2
005  1            |        1
006  RCL+2        | 45,40, 2
007  1            |        1
008  RCL-2        | 45,30, 2
009  /            |       10
010  STO 3        |    44  3
011  1            |        1
012  -            |       30
013  RCL 3        |    45  3
014  1            |        1
015  +            |       40
016  /            |       10
017  LOG          |   43  13
018  2            |        2
019  0            |        0
020  *            |       20
021  CHS          |       16
022  STO 4        |    44  4
023  RCL 3        |    45  3
024  RTN          |   43  32
025  LBL C        | 42,21,13
026  2            |        2
027  0            |        0
028  /            |       10
029  10^x         |       13
030  ENTER        |       36
031  ENTER        |       36
032  1            |        1
033  +            |       40
034  x<>y         |       34
035  1            |        1
036  -            |       30
037  /            |       10
038  RTN          |   43  32
039  LBL D        | 42,21,14
040  ENTER        |       36
041  ENTER        |       36
042  1            |        1
043  -            |       30
044  x<>y         |       34
045  1            |        1
046  +            |       40
047  /            |       10
048  LOG          |   43  13
049  2            |        2
050  0            |        0
051  *            |       20
052  CHS          |       16
053  RTN          |   43  32
054  LBL B        | 42,21,12
055  STO 2        |    44  2
056  R_down       |       33
057  STO 1        |    44  1
058  R_down       |       33
059  STO 0        |    44  0
060  ENTER        |       36
061  INT          |   43  44
062  x<>y         |       34
063  FRAC         |   42  44
064  1            |        1
065  0            |        0
066  0            |        0
067  *            |       20
068  1            |        1
069  6            |        6
070  /            |       10
071  +            |       40
072  .            |       48
073  4            |        4
074  5            |        5
075  4            |        4
076  *            |       20
077  RCL 1        |    45  1
078  x<>y         |       34
079  -            |       30
080  RCL 2        |    45  2
081  /            |       10
082  1            |        1
083  0            |        0
084  0            |        0
085  *            |       20
086  RTN          |   43  32
087  LBL A        | 42,21,11
088  3            |        3
089  0            |        0
090  6            |        6
091  x<>y         |       34
092  TEST 8       | 43,30, 8
093  GTO 9        |    22  9
094  3            |        3
095  0            |        0
096  6            |        6
097  -            |       30
098  8            |        8
099  /            |       10
100  RTN          |   43  32
101  LBL 9        | 42,21, 9
102  8            |        8
103  *            |       20
104  3            |        3
105  0            |        0
106  6            |        6
107  +            |       40
108  RTN          |   43  32

LBL A = DTT MHz or Channel No f A → Channel No or MHz
LBL B = Gas : tare weight ENTER gross kg ENTER cylinder size kg f B → Fill percentage %
LBL C = Return Loss dBf C → SWR
LBL D = SWR f D → Return Loss dB
LBL E = Reflected Power ENTER Forward Power f E → Return Loss dB (y), SWR (x)

Solve with an Integral

from HP34C manual pp233
Solves Bessel function for Bessel-zero mod. index value

DM15_M1B
00  02404827787000  00000000000000  01570796327996  30001fd33ff996
04  024048fffff000  00000000000008  0000000000000c  40999997000eae
08  00000000000000  2fbf8db6e42080  00000000000040  00000000000000
10  02404827787000  00000000000000  00000000000000  95139629874993
14  00000000000000  1b2d2d2d2d2d2d  000000000006fd  00000000000000
18  00000000000000  0000000000007f  00000000a00000  00000000000000
fc  00000000000000  00b2fdb6c8fc30  c703b2b170a2ed  b333efb6f0400a
A: 024048fffff000  B: 024048fffffeae  C: 40999997000eae
S: 00000000000000
M: 000000000060fd  N: 02404827787000  G: 04


LBL A
STO 0
0
PI
∫ 3
ABS
         // THIS IS A METHOD OF RESTRICTING SOLVE TO A CERTAIN ACCURACY TO REDUCE THE TIME..
x<=y?    // y has the Integration accuracy estimate. We test if our "zero" is <= this. No point in trying further. Limits search time
CLx      // if our current guess for "zero" is better than the integration accuracy estimate we wipe "x" to an "actual" zero so that the SOLVE will complete
x≠0?     // if it wasn't "zero" we replace the last estimate of the integration and the SOLVE continues
LASTx
RTN

LBL 3
SIN
RCL 0
*
COS
PI
/
RTN

be in RAD angle mode
put initial guesses of 0 ENTER 1 and then f SOLVE A
first bessel zero at mod index 2.405

Program dumps for LF15C

Firmware details

LF15C - firmware for the DM15

Start of thread : https://www.hpmuseum.org/forum/thread-20046.html
- Serial Port dump info : https://www.hpmuseum.org/forum/thread-20046-post-194697.html#pid194697
Serial Port settings
- Rate : 57600
- Data : 8 bit
- Stop : 1 bit
- Parity : None
- Flow Control : None
To extract a dump from calculator press and hold STO
- the non-zero digits can be copy/pasted into a text file for storage
To upload a previously saved dump
- copy it to clipboard and then
- press and hold RCL until the terminal shows Paste PrgMemory:
- in Putty ShiftFnInsert to paste clipboard text into terminal

Butterworth Filter

43 8 17 255 17 19 30 39 103 39 40 86 43 9 118 12 7 5 7 4 86 43 10 118 12 7 4 7 5 86 43 6 17 0 26 25 25 25 40 26 37 13 254 86 43 7 6 6 43 3 17 254 93 30 40 53 115 0 7 9 7 10 43 4 6 8 31 25 39 13 255 75 254 7 3 86 43 5 6 8 31 25 40 13 255 75 254 7 3 86 7 7 43 100 76 3 107 0 13 19 14 118 3 111 0 104 13 0 6 6 43 1 17 254 93 6 0 115 0 20 13 255 75 254 7 1 7 7 43 0 30 39 26 38 26 32 25 39 17 0 30 39 40 11 30 39 86 0

Order n (+ is HPF, - is LPF) → y
Frequency (Hz) → X
fA
Results are in R01 … R0n

Benchmarks

Savage, 8-queens, HP Maths and HP Trig

43 77 31 35 29 30 35 13 0 25 13 2 43 78 17 0 11 91 15 95 19 99 88 8 26 121 2 7 78 86 43 104 25 13 2 26 29 25 26 30 34 27 23 35 13 0 30 29 34 27 31 13 1 43 2 17 1 17 0 39 17 1 38 17 0 40 17 1 39 34 29 31 40 4 26 121 2 7 2 86 43 88 54 32 13 10 43 80 17 0 17 10 118 6 7 84 26 121 0 17 0 13 254 17 10 13 255 43 81 26 121 11 17 0 13 9 43 82 26 122 9 17 9 118 12 7 80 17 0 13 254 17 255 17 9 13 254 10 17 255 38 118 12 7 83 104 17 0 17 9 38 118 7 7 82 43 83 17 0 13 254 26 122 255 17 255 118 1 7 81 26 122 0 17 0 118 1 7 83 43 84 17 11 58 86 43 100 112 30 27 36 36 13 0 26 22 22 22 43 101 84 4 88 8 99 19 37 71 0 7 101 58 86 0

Savage is prog A : fA
8-Queens is prog 88 : f LBL 88
- Both the above use runTime to measure execution time - returns result in y and time in x
HP Museum Maths Benchmark is prog E : fE.
- Run for 60 seconds, press R/S and find result in reg 02 RCL02
HP Museum Trig Benchmark is prog 77 : fLBL 77.
- Run for 60 seconds, press R/S and find result in reg 02 RCL02

Work Tools

43 104 40 4 13 2 26 125 2 26 126 2 40 13 3 26 38 17 3 26 37 40 92 30 25 39 24 17 3 86 43 103 22 22 26 38 14 26 37 40 92 30 25 39 24 86 43 102 30 25 40 12 22 22 26 37 14 26 38 40 86 43 101 13 2 10 13 1 10 13 0 22 93 14 53 26 25 25 39 26 35 40 37 29 27 31 27 39 17 1 14 38 17 2 40 26 25 25 39 86 43 100 34 25 31 14 118 8 7 1 32 39 34 25 35 37 86 43 1 34 25 35 38 32 40 86 0

LBL A = DTT (Channel ↔ Freq )
LBL B = Gas
LBL C = Return Loss → SWR
LBL D = SWR → Return Loss
LBL E = Reflected Power & Forward Power → Return Loss & SWR

Work Tools & Benchmarks

43 55 31 35 29 30 35 13 0 25 13 2 43 56 17 0 11 91 15 95 19 99 88 8 26 121 2 7 56 86 43 44 25 13 2 26 29 25 26 30 34 27 23 35 13 0 30 29 34 27 31 13 1 43 45 17 1 17 0 39 17 1 38 17 0 40 17 1 39 34 29 31 40 4 26 121 2 7 45 86 43 88 54 32 13 10 43 80 17 0 17 10 118 6 7 84 26 121 0 17 0 13 254 17 10 13 255 43 81 26 121 11 17 0 13 9 43 82 26 122 9 17 9 118 12 7 80 17 0 13 254 17 255 17 9 13 254 10 17 255 38 118 12 7 83 104 17 0 17 9 38 118 7 7 82 43 83 17 0 13 254 26 122 255 17 255 118 1 7 81 26 122 0 17 0 118 1 7 83 43 84 17 11 58 86 43 66 112 30 27 36 36 13 0 26 22 22 22 43 67 84 4 88 8 99 19 37 71 0 7 67 58 86 43 104 40 4 13 2 26 125 2 26 126 2 40 13 3 26 38 17 3 26 37 40 92 30 25 39 24 17 3 86 43 103 22 22 26 38 14 26 37 40 92 30 25 39 24 86 43 102 30 25 40 12 22 22 26 37 14 26 38 40 86 43 101 13 2 10 13 1 10 13 0 22 93 14 53 26 25 25 39 26 35 40 37 29 27 31 27 39 17 1 14 38 17 2 40 26 25 25 39 86 43 100 34 25 31 14 118 8 7 1 32 39 34 25 35 37 86 43 1 34 25 35 38 32 40 86 0 0

LBL A = DTT (Channel ↔ Freq )
LBL B = Gas
LBL C = Return Loss → SWR
LBL D = SWR → Return Loss
LBL E = Reflected Power & Forward Power → Return Loss & SWR

Savage is prog is prog 66 : f LBL 66
8-Queens is prog 88 : f LBL 88
- Both the above use runTime to measure execution time - returns result in y and time in x
HP Museum Maths Benchmark is prog is prog 44 : f LBL 44
- Run for 60 seconds, press R/S and find result in reg 02 RCL02
HP Museum Trig Benchmark is prog 55 : fLBL 55.
- Run for 60 seconds, press R/S and find result in reg 02 RCL02

Dot/Cross/Uvec

43 12 22 104 40 86 43 11 13 99 10 13 98 55 17 99 39 17 98 17 99 55 39 38 30 78 40 86 43 10 13 98 10 13 99 17 98 55 39 17 98 17 99 55 39 37 30 40 86 0 0

* Dot Product of 2 complex numbers in y and x

|Y||X|Cosθ
- Y = Y_re + j Y_im
- X = X_re + j X_im
- Dot Product Y ⋅ X = Y_reX_re + Y_imX_im
Another way without splitting the complex number into its real & imaginary parts
- Dot Product Y ⋅ X = (Y^*.X + Y.X^*) / 2
  - f LBL 10

Cross Product of 2 complex numbers in y and x
- |Y||X|Sinθ
  - Y = Y_re + j Y_im
  - X = X_re + j X_im
  - Cross Product Y ⊗ X = Y_reX_im - Y_imX_re
- Another way without splitting the complex number into its real & imaginary parts
  - Cross Product Y ⊗ X = (Y^*.X - Y.X^*) / 2i
    - f LBL 11

Unit Vector of a complex number in x : f LBL 12

Dot Product

LBL 10
STO 98
R↓
STO 99
RCL 98
f (i)
x
RCL 98
RCL 99
f (i)
x
+
2
/
RTN

Cross Product

LBL 11
STO 99
R↓
STO 98
f (i)
RCL 99
x
RCL 98
RCL 99
f (i)
x
-
2
f Re<>Im
/
RTN

UVEC

LBL 12
ENTER
ABS
/
RTN

Work Tools & Dot/Cross/UVEC

43 104 40 4 13 2 26 125 2 26 126 2 40 13 3 26 38 17 3 26 37 40 92 30 25 39 24 13 4 17 3 86 43 102 30 25 40 12 22 22 26 37 14 26 38 40 86 43 103 22 22 26 38 14 26 37 40 92 30 25 39 24 86 43 101 13 2 10 13 1 10 13 0 22 93 14 53 26 25 25 39 26 35 40 37 29 27 31 27 39 17 1 14 38 17 2 40 26 25 25 39 86 43 100 34 25 35 14 118 9 7 9 34 25 35 38 32 40 86 43 9 32 39 34 25 35 37 86 43 12 22 104 40 86 43 11 13 99 10 13 98 55 17 99 39 17 98 17 99 55 39 38 30 78 40 86 43 10 13 98 10 13 99 17 98 55 39 17 98 17 99 55 39 37 30 40 86 0 0

LBL A = DTT MHz or Channel No f A → Channel No or MHz
LBL B = Gas : tare weight ENTER gross kg ENTER cylinder size kg f B → Fill percentage %
LBL C = Return Loss dBf C → SWR
LBL D = SWR f D → Return Loss dB
LBL E = Reflected Power ENTER Forward Power f E → Return Loss dB (y), SWR (x)

LBL 10 = Dot Product
LBL 11 = Cross Product
LBL 12 = Unit Vector

Solve with an Integral

from HP34C manual pp233
Solves Bessel function for Bessel-zero mod. index value

differs from the DM15L (HP15C) version because the Integration Accuracy estimate is very small so the test of x < = y? will never be true
instead we store a required ACC value (much like in the HP42S/DM42) in R001 and test against this instead

Memory Dump

43 100 13 0 25 103 79 3 104 17 1 118 8 98 118 1 102 86 43 3 11 17 0 39 15 103 40 86 0 0

Code


LBL A
STO 0
0
PI
∫ 3
ABS
RCL 1
x>y? // test if current guess (y) is better (lower) than our required accuracy (x)
CLx   // if it is, we're near enough, put a real zero in x
x≠0   // if it isn't zero we need to continue
LASTx // put back the last guess into x and the SOLVE goes on
RTN


LBL 3
SIN
RCL 0
*
COS
PI
/
RTN

be in RAD angle mode
put your ACC value in R001 (e.g. 0.0001 or 0.00001)
put initial guesses of 1 ENTER 2 and then f SOLVE A
first bessel zero at mod index 2.4048

Integrate Tests

The 12 Integration examples from the PPC ROM handbook section IG

43 12 84 24 26 37 14 24 30 37 39 4 86 43 11 28 16 14 84 24 26 37 4 39 14 24 30 37 26 34 22 30 40 16 40 86 43 10 84 24 26 37 4 86 43 9 30 20 24 16 86 43 8 88 15 86 43 7 35 25 25 103 39 37 4 14 4 37 14 11 84 35 25 25 39 14 40 86 43 6 24 27 37 14 39 4 86 43 5 4 14 26 38 40 14 88 20 38 86 43 4 88 86 43 3 103 39 11 86 43 2 4 86 43 1 27 14 84 26 37 40 86 0 0

SCI04 display mode

12 programs. Set limits and then execute f ∫ prog number

For example for program 1

0 ENTER 1 f ∫ 0 1 gives answer 3.1416

Limits 0 → 1 answer 3.1416
Limits 0 → 1 answer 6.6667 E-1
Limits 0 → 1 answer 6.3662 E-1 (rads mode)
Limits 0 → 1 answer -1.000
Limits 0 → 1 answer 3.6490 E-2
Limits 0 → 2 answer 3.1416
Limits 0 → π answer 2.1102 E1
Limits 0 → 1 answer 5.0000 E-1 (rads mode)
Limits 0 → 1 answer 2.0000
Limits 0 → 1 answer 7.8540 E-1
Limits -1 → 1 answer 2.3857 E-2
Limits -1 → 1 answer 2.2033

Using FIX10 still allows the integrations to complete almost instantly except for Program 8 which takes around 8 seconds!

Dropping to FIX08 and program 8 integration completes almost instantaneously too. Strangely Program 8 has some odd behaviour regarding display precision.

FIX04 → FIX07 → instantaneous answer 0.5000….
FIX08 → instantaneous answer 0.50000….
FIX09 → 8 seconds answer 0.499964689
FIX10 → 8 seconds answer 0.4999747623
FIX11 → 10 seconds answer 0.49999489949
FIX12 → 10 seconds answer 0.499999962001
FIX13 → instantaneous answer 0.5000……
FIX14 → instantaneous answer 0.500000……
FIX15 → instantaneous answer 0.5000000……

Page Info

Page created Thu May 26 17:35:39 2022 by John Pumford-Green

Page last updated: 01/01/70 01:00 BST

Further Information

calculator, dm15l, lf15c

DM16L Progs

anonymous@undisclosed.example.com (Anonymous) — Tue, 27 Jan 2026 15:34:14 +0000

←Programs

DM16L Progs

Some Programming aids…

65C22 Timer values

To calculate T1CH & T1CL values for an audio frequency tone generator (akin to the DM41X Ladybug version DM41X Progs)

Counter calculation

The required count is calculated from Φ₂ and the audio frequency required.

Count (decimal)

{ Φ₂ / ( 2 x F ) } - 2

for 1000Hz and a 1MHz Φ₂ :

Count = { 1,000,000 / ( 2 X 1000 ) } - 2 = 498

498d → $01F2

Start in DEC mode (and UNSIGNED integers)

put required audio tone frequency in X

GSBA

Result is shown in hex

e.g.

DEC 1000 GSBA Result 001F2 H

$01F2

T1CH = $01
T1CL = $F2

The Program Listing

43,22,A   | g LBL A
44 0      | STO 0
2         | 20
0
42 44     | f WSIZE (i.e. WSIZE = 20)
1         | 1000000
0
0
0
0
0
0
45 0      | RCL 0
2         | 2
20        | x
10        | /
2         | 2
30        | -
23        | HEX
43 21     | g RTN

Version 2

To calculate VIA T1 values with different CPU Φ₂ clock frequencies.

Switch to DEC mode. Set word size to 24.

Put required CPU Φ₂ in Y and required audio freq. in X

GSBB

Answer is in HEX.

e.g 1MHz CPU Φ₂ and 1000Hz Audio

1000000 Enter 1000 GSBB

0001F2 H

Timer values T1CL → $F2 and T1CH → $01

or for 4MHz and 100Hz (e.g. for a 10ms TICK)

4000000 Enter 100 GSBB

4E1E H

Timer values T1CL → $1E and T1CH → $4E

Routine B

— John Pumford-Green 07/08/22 07:14

Further Information

calculator, dm16l

DM32 Progs

anonymous@undisclosed.example.com (Anonymous) — Wed, 21 Jan 2026 07:14:40 +0000

←Programs

DM32 Progs

Description

Return Loss & SWR from Complex Impedance

Input Rs and Xs to calculate |z|, |ρ|, VSWR and R.Loss

Complex numbers in DM32

The DM32/HP31Sii handles complex numbers by treating stack-X as Real, stack-Y and Imaginary for one complex number, and stack-Z as Real and stack-T as Imaginary for a second complex number.

This means the normal 4 level stack can hold 2 complex numbers. This is similar to the HP41 Advantage Pack's method.

To store a complex number in a register actually requires two to be used - one for Real part and one for Imaginary part. This is similar to the HP15C/DM15L.

Once the real and imaginary values are on the stack various “Complex” functions are accessed by SHIFTCMPLXFunction for example to add

Z₁ = (10 + j20)

and

Z₂ = (30 - j25)

gives

Z₃ = Z₁ + Z₂ = ( 10 + j20 ) + ( 30 - j25 )

20 ENTER 10 ENTER
25 CHS ENTER 30

The stack will show

Then carry out the addition

SHIFT CMPLX +

The display will show

X has the real part of Z₃ (40) and Y has the imaginary part of Z₃ (-5)

Z₃ = ( 40 - j5 )

The program

LBL Z
INPUT R
INPUT X
X<>Y       ; swap so Real is R and Imag is X
0
ENTER
50         ; enter Zo as 50 + j 0 
CMPLX +    ; complex addition Z + Zo
STO A      ; store intermediate value Re (Z + Zo)
R↓        
STO B      ; store intermediate value Im (Z + Zo)
R↓         ; X and Y stack now holds input Z real & imag again   
0
ENTER
50         ; enter Zo as 50 + j 0 (again)
CMPLX -    ; complex subtraction Z - Zo
RCL B      ; Im (Z + Zo)  
RCL A      ; Re (Z + Zo)
CMPLX ÷    ; complex divide (STACK z,t holds (Z - Zo) stack x,y holds (Z + Zo) (from reg. A & B) to calculate complex reflection coeff. ρ
STO E      ; save Re ρ
R↓
STO F      ; save Im ρ
RCL E
y,x -> θ, r ; convert complex rectangular ρ to mag/angle - X holds the magnitude |ρ| ( Y holds the angle, but we don't care)
STO P       ; save |ρ|
1
RCL+ P
1
RCL- P
÷
STO S       ; store VSWR ( 1 + |ρ| ) / ( 1 - |ρ| ) 
RCL P       
LOG
20
X
STO Y       ; store Return Loss = 20 LOG |ρ|
RCL X
RCL R
y,x -> θ, r
STO Z       ; store magnitude of impedance |z|
RCL P       ; |ρ|
RCL S       ; VSWR
RCL Y       ; Return Loss
RTN

Example

Z = 65.2 + j 17.7
R = 65.2
X = 17.7

Results on stack:

|Z| = 67.6 ohms
|ρ| = 0.2
SWR = 1.5:1
Return Loss = 13.9dB

— John Pumford-Green 19/07/23 06:08

Further Information

calculator, dm32

DM41L Progs

anonymous@undisclosed.example.com (Anonymous) — Fri, 23 Jan 2026 14:50:00 +0000

←Programs

DM41L Progs

Memo 03319.pdf
- from HP Documents archive.

Memory Dump

15^th Feb 2025

DM41
00  91000000000000  09000000000000  02000000000000  02000000000000
04  02016000000000  00000000000000  00000000000000  00000000000000
08  2b000000000000  c0020020020000  0000000000c000  00000000000000
0c  000000000041a7  1d9001691ce1a7  0000002c028000  00000020004000
40  000020022ef0bf  00000000000000  00000000000000  00000000000000
94  00000000000000  ffffffffffffff  00000000000000  00000000000000
ac  00000000000000  00000000000000  323530313233ff  354c2042455441
b0  33373210444d31  52434320343738  31342e30300b4d  0b434153482024
b4  30b4001000201e  4d454d4f202020  9c000000c8072d  10428085c80609
b8  9c214a6d131610  5b409700b200a6  0102515250555e  83838331a69cce
bc  81121419193011  c600f400535647  10000000031008  53564720202020
1a4  00000000000000  00000000000000  00000000000000  ca110900c80029
1a8  00cf6aa64db400  a6547ead1584b4  43a66168a66a04  0119a64cac16a6
1ac  8e9201f220249b  414d4f554e543f  2024a65d1003f7  7ea646a64231f2
1b0  1316a65c66b400  b10002a654a66a  78b2001140a66a  a64466b3058368
1b4  00a91601a65d66  3f8c8e8bad17b4  a917f54954454d  454d4fa66b9c02
1b8  454d4f1031f44d  0309c600f51a4d  425431202185c6  20114043561210
1bc  5332524c301141  c60309c600f500  11414331222185  10435730114020
1c0  00524c32533212  85c80709c600f5  458e4311101042  714132f453495a
1c4  f547524f53538e  401a1415144231  11101042111643  52458e83687169
1c8  00474153f45441  85c20409c600f4  02131016411843  18421310164085
1cc  1310157145b201  c000f400445454  00000000000000  91000000000000
1d0  01175000000001  00000000000000  01015789474002  04620836303000
1d8  00000000000000  08111332867002  03457375047005  06100000000002
1dc  01860500000005  02473956524005  02000000000000  00000000000000
200  00000000000000  000000400002ef  ffffffffffffff  00000000000000
A: c000f400445454  B: 0000002c0280fd  C: 0000002c0280fd
S: 00100100000000
M: 00011cd5ff73cb  N: 000000000c1440  G: 00

This decodes as :

; SIZE = 50
; STACK = 2 2 9 -1 2.016
; REG00 = 0 -1 11.75 0
; REG04 = 101.5789474 4.620836303 0 0
; REG08 = 0 0 0 811.1332867
; REG12 = 345737.5047 610 186050 247395.6524
; REG16 = 2 0 0 0
; REG48 = 0 0
LBL "DTT"
305
X<>Y
X>Y?
GTO 01
8
*
306
+
RTN
LBL 01
306
-
8
/
RTN
END
LBL "GAS"
"TARE"
PROMPT
ENTER
INT
X<>Y
FRC
100
*
16
/
+
.454
*
STO 01
"GROSS"
PROMPT
X<>Y
-
STO 02
"SIZE"
PROMPT
/
100
*
RTN
END
LBL "RL2S"
STO 02
20
/
10^X
STO 00
1
+
RCL 00
1
-
/
STO 01
RCL 02
RCL 01
RTN
END
LBL "S2RL"
STO 00
1
-
RCL 00
1
+
/
LOG
20
*
CHS
STO 01
RCL 00
RCL 01
RTN
END
LBL "MEMO"  ; Key: -22
0
STO 01
"MEMO"
SEEKPTA  ;XROM 25,43
FIX 02
CF 23
"ITEM?"
AON
PROMPT
AOFF
FC? 23
GTO 03
CF 22
LBL 00
POSFL  ;XROM 25,29
X<0?
APPREC  ;XROM 25,04
X<0?
GTO 02
ENTER
INT
X=Y?
GTO 01
1
+
SEEKPT  ;XROM 25,42
GTO 00
LBL 01
GETREC  ;XROM 25,20
SEEKPT  ;XROM 25,42
36
POSA  ;XROM 25,28
X<0?
GTO 03
AVIEW
AROT  ;XROM 25,06
ANUM  ;XROM 25,02
STO 01
" $"
POSFL  ;XROM 25,29
0
LBL 02
"AMOUNT?"
PROMPT
ST+ 01
" $"
ARCL 01
9
DELCHR  ;XROM 25,12
FS? 22
APPCHR  ;XROM 25,03
RCLPT  ;XROM 25,33
INT
SEEKPT  ;XROM 25,42
LBL 03
GETREC  ;XROM 25,20
AVIEW
FC? 21
STOP
GTO 03
LBL E
DELREC  ;XROM 25,13
GTO 03
END
END
; MEM = 40  000020022ef0bf  00000000000000  00000000000000  00000000000000
; MEM = 94  00000000000000  ffffffffffffff  00000000000000  00000000000000
; MEM = ac  00000000000000  00000000000000  323530313233ff  354c2042455441
; MEM = b0  33373210444d31  52434320343738  31342e30300b4d  0b434153482024
; MEM = b4  30b4001000201e  4d454d4f202020  9c000000c8072d  10428085c80609
; MEM = b8  9c214a6d131610  5b409700b200a6  0102515250555e  83838331a69cce
; MEM = bc  81121419193011  c600f400535647  10000000031008  53564720202020
; MEM = 200  00000000000000  000000400002ef  ffffffffffffff  00000000000000

using the Voyager decoder at https://dm41.swissmicros.com/

Section Two

— John Pumford-Green 15/02/25 14:19 GMT

Further Information

calculator, dm41l

DM41X Progs

anonymous@undisclosed.example.com (Anonymous) — Sat, 14 Feb 2026 11:19:28 +0000

←Programs

DM41X Progs

DM41x RAW

HP Maths Benchmark	bm.raw
HP Trig Benchmark	bmt.raw
8-Queens Benchmark	nqu.raw
Savage Benchmark	svg.raw
Memo - as below - uses ascii file name “SITES” instead of “MEMO”	memo.raw
TR - from HP41cx User guide vol. 2	tr.raw
Sigma - from HP41cx User guide vol.2	sigma.raw

Using Solve and Integrate together

from HP343C handbook
DM41X version uses SOLVE and INTEG from Advantage Pac

Create a MYSOLVE wrapper that handles putting the correct SOLVE program name in ALPHA etc
Create the program that is to be solved and which has as it's function an integral
Create the program that defines the integral

MYSOLVE

LBL ¬MYSOLVE
¬MOD                    // the label of the program to be solved is put in ALPHA
SOLVE                   // we XEQ SOLVE (the Advantage Pac solver)
RTN

Solve : MOD

The program to be solved

LBL ¬MOD
¬BESSEL           // We put the name of the program with the integral in ALPHA
STO 00            // We store our current guess for X in R 00 to be accessible by the integral finction
0                 // put upper and lower limits for the integration in Y and X
PI
INTEG             // xeq INTEG from Advantage Pac
ABS               // our current guess, make it positive
X<=Y?             // Y has the Integration's estimate of accuracy - we use this to limit our search
ClX               // if our guess has returned a value from the integral that's less than the inherent accuracy then that's GOOD ENOUGH, we set X to zero and SOLVE completes     
X≠0?              // if we still don't have zero we put back the last guess and SOLVE continues
LastX
RTN

Integral : BESSEL

LBL ¬BESSEL
SIN
RCL 00
*
COS
PI
/
RTN

Running it

MYSOLVE sets up the ALPHA register with the name of the prog to be solved, so nothing needed in ALPHA at this time
put initial guesses in X and Y
- 1 ENTER 2
try FIX 4
Run MYSOLVE - via XEQ or set up a CST menu item for it

After a few minutes of Goose-flying we get the answer 2.4048

Useful Memo prog

MEMO

By Gary Goodman from HP document collection. Dated 24/3/85

65c22 Timer values

for VIA Tone generator

Needs Ladybug module

The required count is calculated from Φ₂ and the audio frequency required.

Count (decimal)

{ Φ₂ / ( 2 x F ) } - 2

for 1000Hz and a 1MHz Φ₂ :

Count = { 1,000,000 / ( 2 X 1000 ) } - 2 = 498

498d → $01F2

Run as XEQALPHATIALPHA

Prompt F for required audio tone frequency.

Enter freq

R/S

Result is the 2-byte value for T1CL & T1CH

e.g.

XEQALPHATIALPHA

R/S

Result:

$001F2

The Counter should be set to

T1CH = $01
T1CL = $F2

Entered as follows (make sure you're in DECS mode in Ladybug while entering the program - otherwise the 1000000 won't be interpreted correctly). When viewing/editing the program later it will look different!

LBL ¬TI
DECS
WSIZE 20
¬ F
PROMPT
STI 01
1000000
ENTERI
LDI 01
2
x
/
2
-
HEXS
RTN

BFil

Butterworth HPF/LPF Filter designer

LBL ¬BFIL
SF 00
¬MHZ ?
PROMPT
1 E6
*
STO 11
¬N
PROMPT
x<0?
CF 00
STO 10
XEQ 06
LBL 01
RCL 12
INT
XEQ 00
FS? 00
1/x
STO IND 12
ISG 12
GTO 01
¬COEFFICIENTS
FIX 3
STOP
ENG 3
XEQ 06
LBL 02
RCL 12
INT
RCL IND 12
RCL 11
2
*
PI
*
/
STO IND 12
ISG 12
GTO 02
XEQ 06
LBL 03
RCL 12
INT
2
/
FRC
FS? 00
GTO 09
GTO 10
LBL 09
¬HPF
x=0?
GTO 05
GTO 04
RTN
LBL 10
¬LPF
x=0?
GTO 04
GTO 05
RTN
LBL 04
RCL IND 12
50
*
STO IND 12
ISG 12
GTO 03
RTN
LBL 05
RCL IND 12
50
/
STO IND 12
ISG 12
GTO 03
RTN
LBL 06
RCL 10
ABS
1000
/
1
+
STO 12
RTN
LBL 00
2
*
1
-
180
*
RCL 10
ABS
2
*
/
SIN
2
*
RTN
END

Examples

5MHz 5-pole LPF

XEQALPHABFILALPHA

MHZ ?

5 R/S

Order/poles = N

Positive for HPF

Negative for LPF

5 pole LPF = -5

5CHSR/S

COEFFICIENTS
0.618

(at this point you can RCL 01 etc. up to RCL 05 to see the calculated Butterworth Coefficients)

R01 : 0.618
R02 : 1.618
R03 : 2.000
R04 : 1.618
R05 : 0.618

R/S

LPF
393.5 -12

The calculated component values are now in Reg 01 - Reg 05

R01 : 393.5pf
R02 : 2.575uH
R03 : 1.273nF
R04 : 2.575uH
R05 : 393.5pF

1MHz 7 pole HPF

XEQALPHABFILALPHA

MHZ ?

1 R/S

Order/poles = N

Positive for HPF

Negative for LPF

7 pole HPF = 7

7R/S

COEFFICIENTS
2.247

(at this point you can RCL 01 etc. up to RCL 07 to see the calculated Butterworth Coefficients)

R01 : 2.247
R02 : 0.802
R03 : 0.555
R04 : 0.500
R05 : 0.555
R06 : 0.802
R07 : 2.247

R/S

HPF
17.88 -06

The calculated component values are now in Reg 01 - Reg 07

R01 : 17.88uH
R02 : 2.553nF
R03 : 4.416uH
R04 : 1.592nF
R05 : 4.416uH
R06 : 2.553nF
R07 : 17.88uH

Page Info

Page created Thu May 26 18:35:00 2022 by John Pumford-Green

Page last updated: 14/02/26 11:19 GMT

— John Pumford-Green 24/04/23 16:07

Further Information

calculator, dm41x

DM42 Progs

anonymous@undisclosed.example.com (Anonymous) — Sat, 24 Jan 2026 08:08:10 +0000

←Programs

DM42 Progs

Using the Swiss Micros online encode/decode tool

https://technical.swissmicros.com/decoders/dm42/index.php

to convert a “RAW” file into readable text:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

00 { 10-Byte Prgm }
01▸LBL "Eng3"
02 ENG 03
03 END

00 { 10-Byte Prgm }
01▸LBL "Fix6"
02 FIX 06
03 END

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

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

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

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

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

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

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

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

Page Info

Page created Thu May 26 17:32:54 2022 by John Pumford-Green

Page last updated: 30/12/25 09:55 GMT

— John Pumford-Green 24/04/23 16:08

Back to Top of page

Further Information

calculator, dm42

HP11C Progs

anonymous@undisclosed.example.com (Anonymous) — Sat, 24 Jan 2026 08:12:17 +0000

←Programs

HP11C Progs

Description

Section One

Section Two

— John Pumford-Green 24/04/23 16:09

Further Information

calculator, hp11c

HP35s Progs

anonymous@undisclosed.example.com (Anonymous) — Sat, 24 Jan 2026 08:11:53 +0000

←Programs

HP35s Progs

============= 13/2/22 ===========================


#### HP35s Butterworth Filter designer
#
# Changed 12/2/22 to make it fit in a single prog label with no
# sub routines (ie using up additional labels). Frequency entry
# now in MHz.
# Results are copied from indirect-only registers 1->9 into Registers R -> Z 
# to make them accessible from RCL R, RCL S etc. on keyboard 
#



M001 LBL M
M002 SF 0
M003 INPUT F
M004 1E6
M005 X
M006 STO F
M007 INPUT N
M008 X<0?
M009 CF 0
M010 18.026
M011 STO A
M012 RCL A
M013 IP
M014 +/-
M015 STO J
M016 0
M017 STO(J)
M018 ISG A
M019 GTO M012
M020 ENG 3
M021 RCL N
M022 ABS
M023 1000
M024 /
M025 1
M026 +
M027 STO I
M028 STO H
M029 RCL I
M030 IP
M031 2
M032 X
M033 1
M034 -
M035 180
M036 X
M037 RCL N
M038 ABS
M039 2
M040 X
M041 /
M042 SIN
M043 2
M044 X
M045 FS? 0
M046 1/x
M047 STO(I)
M048 ISG I
M049 GTO M029
M050 RCL H
M051 STO I
M052 RCL I
M053 IP
M054 2
M055 /
M056 FP
M057 FS? 0
M058 GTO M101
M059 GTO M105
M060 RTN
M061 RCL(I)
M062 RCL F
M063 2
M064 X
M065 PI
M066 X
M067 /
M068 50
M069 X
M070 STO(I)
M071 RCL I
M072 17
M073 +
M074 +/-
M075 STO J
M076 RCL(I)
M077 STO(J)
M078 ISG I
M079 GTO M052
M080 RTN
M081 RCL(I)
M082 RCL F
M083 2
M084 X
M085 PI
M086 X
M087 /
M088 50
M089 /
M090 STO(I)
M091 RCL I
M092 17
M093 +
M094 +/-
M095 STO J
M096 RCL(I)
M097 STO(J)
M098 ISG I
M099 GTO M052
M100 RTN
M101 x=0?
M102 GTO M081
M103 GTO M061
M104 RTN
M015 x=0?
M106 GTO M061
M107 GTO M081
M108 RTN

Page Info

Page created Thu May 26 17:37:39 2022 by John Pumford-Green

Page last updated: 24/01/26 08:11 GMT

— John Pumford-Green 24/04/23 16:10

Further Information

calculator, hp35s

Programs

anonymous@undisclosed.example.com (Anonymous) — Tue, 04 Mar 2025 07:27:28 +0000

←Calculators

Programs

— John Pumford-Green 24/04/23 16:02