DM15L Progs - Make It Tea

Try to learn something about everything, and everything about somethingThomas Huxley “Darwin's bulldog” (1824-1895)
Trace: • MediaWiki VPS Install • DM15L Non-linear Curve Fit • Bikes • AntiX • DM42 Info • DM41X Info • Damasko DA36 Daily Rates (2016-2019) • Bloods • Suunto Vector • DM16L Info
You are here: Make It Tea » Public Area » Calculators » Programs » DM15L Progs
This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
<-[[.:start]]


====== DM15L Progs ======

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


[[public:calculator:guides:dm15l_start|]]

===== 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 <key>ENTER</key> 
  * X  (and <key>CHS</key> as needed)
  * <key>f</key>
  * <key>E</key> 

Results appear:

  * Stack X -> Return Loss
  * Stack Y -> SWR
  * Stack Z -> (Re) |ρ| (Im) ∠ρ
  * Stack T -> (Re) |Z| (Im) ∠Z


<code>
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

</code>

++++ Decoded Dump |

<code>

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
</code>

++++


==== "Normal" ====

<code>
### 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.
#
</code> 
  
  * Ref Power <key>ENTER</key> Fwd Power <key>'f'</key><key>'A'</key> -> SWR <key>'x<>y'</key> RL
  * SWR <key>'f'</key><key>B</key> ->  Return Loss
  * Return Loss <key>'f'</key><key>'C'</key> -> SWR

<code>
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

</code>

++++ Decoded dump | 

<code>

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

</code>

<code>
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


</code>

++++

==== N-Queens Benchmark 27/7/22 ====

<code>
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

</code>

++++ Decoded Dump | 

<code>
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

</code>

<code>

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

</code>

++++


==== Savage Benchmark 23/01/26 ====

<code>
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

</code>




==== UPDATED "Butterworth" program 12/2/22 ====

<code>
############################
#
#  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

</code>

++++ Dump above decoded at Swiss micros |

<code>
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


</code>

++++

==== Dump ====

<code>
################################

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

</code>

++++ Dump above decoded @ Swiss Micros |

<code>

# 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

</code>
++++

==== Dump ====

<code>

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


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

</code>

++++ Decode of Dump above |

<code>
#
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
########################################################################


</code>
++++

==== Dump 23/12/21 ====

<code>
### 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

</code>

++++ Decode of dump above |

<code>

# 
#
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
=======================================================================
#

</code>

++++

==== Dump 10/2/22 ====


<code>

#
#    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

</code>

++++ Decode of dump above |

<code>
=====================================================================
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
</code>

++++


==== Dump 07/02/25 ====

<code>

###############
# 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

</code>


==== Work Tools 23/01/26 ====

<code>

###################################
#
#   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

</code>

++++ Decoded Dump |

<code>
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


</code>

++++


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


==== Solve with an Integral ====

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

<code>

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


</code>

<code>


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

</code>


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


===== Program dumps for LF15C =====

==== Firmware details ====

[[..:3rd:lf15c|]]


  * 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 <key>STO</key>
    * 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 <key>RCL</key> until the terminal shows ''Paste PrgMemory:''
    * in Putty <key>Shift</key><key>Fn</key><key>Insert</key> 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
  * <key>'f'</key><key>'A'</key>
  * 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 
%%

  * [[..:benchmarking:start#The SAVAGE benchmark|Savage]] is prog ''A'' : <key>'f'</key><key>'A'</key>
  * [[..:benchmarking:start#N-Queens|8-Queens]] is prog ''88'' : <key>'f'</key> <key>LBL</key> <key>8</key><key>8</key>
    * Both the above use ''runTime'' to measure execution time - returns result in y and time in x
  * [[..:benchmarking:start#HP Museum Maths Benchmark|]] is prog ''E'' : <key>'f'</key><key>'E'</key>. 
    * Run for 60 seconds, press <key>'R/S'</key> and find result in reg 02 <key>RCL</key><key>0</key><key>2</key>
  * [[..:benchmarking:start#HP Museum Trig Benchmark|]] is prog ''77'' :  <key>'f'</key><key>LBL</key> <key>7</key><key>7</key>. 
    * Run for 60 seconds, press <key>'R/S'</key> and find result in reg 02 <key>RCL</key><key>0</key><key>2</key>

==== 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


  * [[..:benchmarking:start#The SAVAGE benchmark|Savage]] is prog is prog ''66'' : <key>'f'</key> <key>LBL</key> <key>6</key><key>6</key>
  * [[..:benchmarking:start#N-Queens|8-Queens]] is prog ''88'' : <key>'f'</key> <key>LBL</key> <key>8</key><key>8</key>
    * Both the above use ''runTime'' to measure execution time - returns result in y and time in x
  * [[..:benchmarking:start#HP Museum Maths Benchmark|]] is prog is prog ''44'' : <key>'f'</key> <key>LBL</key> <key>4</key><key>4</key> 
    * Run for 60 seconds, press <key>'R/S'</key> and find result in reg 02 <key>RCL</key><key>0</key><key>2</key>
  * [[..:benchmarking:start#HP Museum Trig Benchmark|]] is prog ''55'' :  <key>'f'</key><key>LBL</key> <key>5</key><key>5</key>. 
    * Run for 60 seconds, press <key>'R/S'</key> and find result in reg 02 <key>RCL</key><key>0</key><key>2</key>


==== 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<sub>re</sub> + j Y<sub>im</sub>
      * X = X<sub>re</sub> + j X<sub>im</sub>
      * Dot Product Y ⋅ X = Y<sub>re</sub>X<sub>re</sub> + Y<sub>im</sub>X<sub>im</sub>
    * Another way without splitting the complex number into its real & imaginary parts
      * Dot Product Y ⋅ X = (Y<sup>*</sup>.X + Y.X<sup>*</sup>) / 2
        * <key>'f'</key> <key>LBL</key> ''10''


  * Cross Product of 2 complex numbers in y and x
    * ''|Y||X|Sinθ''
      * Y = Y<sub>re</sub> + j Y<sub>im</sub>
      * X = X<sub>re</sub> + j X<sub>im</sub>
      * Cross Product Y ⊗ X = Y<sub>re</sub>X<sub>im</sub> - Y<sub>im</sub>X<sub>re</sub>
    * Another way without splitting the complex number into its real & imaginary parts
      * Cross Product Y ⊗ X = (Y<sup>*</sup>.X - Y.X<sup>*</sup>) / 2i
        * <key>'f'</key> <key>LBL</key> ''11''



  * Unit Vector of a complex number in x : <key>'f'</key> <key>LBL</key> ''12''


=== Dot Product ===



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

</code>



=== Cross Product ===



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

</code>


=== UVEC ===

<code>

LBL 12
ENTER
ABS
/
RTN

</code>

==== 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'' <key>'f'</key> <key>'A'</key> -> ''Channel No'' or ''MHz''
  * ''LBL B'' = Gas :  ''tare weight'' <key>ENTER</key> ''gross kg'' <key>ENTER</key> ''cylinder size kg'' <key>'f'</key> <key>'B'</key> -> Fill percentage ''%''
  * ''LBL C'' = ''Return Loss dB''<key>'f'</key> <key>'C'</key> -> ''SWR''
  * ''LBL D'' = ''SWR'' <key>'f'</key> <key>'D'</key> -> ''Return Loss dB''
  * ''LBL E'' = ''Reflected Power'' <key>ENTER</key> ''Forward Power'' <key>'f'</key> <key>'E'</key> -> ''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 ===
 
<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

</code>

  * be in ''RAD'' angle mode
  * put your ''ACC'' value in ''R001'' (e.g. 0.0001 or 0.00001)
  * put initial guesses of <key>'1'</key> <key>ENTER</key> <key>'2'</key> and then <key>'f'</key> <key>SOLVE</key> <key>'A'</key>
  * 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 <key>'f'</key> <key>∫</key> ''prog number''

For example for program 1 

<key> 0 </key> <key>ENTER</key> <key> 1 </key>  <key>'f'</key> <key>∫</key> <key> 0 </key> <key> 1 </key> 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: ~~LASTMOD~~



===== Further Information =====


{{tag>calculator dm15l lf15c}}
Navigation

Search

Toolbox
