Adapting 'Accurate' TVM routine on HP-15C (and HP-34C) using MISO Technique

[Thomas Klemm]

(01-05-2014 01:06 AM)Jeff_Kearns Wrote:  Can anyone help me troubleshoot this routine?

The problem are these two lines:

022 RCL * 3
023 LSTx

The RCL multiplication doesn't change LASTx.

I've changed that to:

021 ENTER
022 RCL * 3
023 X<>Y

In addition to that I also replaced 100 by EEX 2.
Thus saving two instructions:

001 LBL E
002 STO(i)
003 RCL 2
004 EEX
005 2
006 ÷
007 ENTER
008 ENTER
009 1
010 +
011 LN
012 X<>Y
013 LSTx
014 1
015 X≠Y
016 -
017 ÷
018 *
019 RCL * 1
020 e^x
021 ENTER
022 RCL * 3
023 X<>Y
024 1
025 -
026 RCL * 4
027 EEX
028 2
029 RCL ÷ 2
030 RCL + 6
031 *
032 +
033 RCL + 5
034 RTN

Cheers
Thomas

Edit: Lines 027 - 031 could be improved a little as well.