Delta Percentage (Texas TI-58/59)

[hp41cx]

Code:

01 LBL
02 A
03 HIR
04 03
05 HIR
06 11
07 HIR
08 04
09 HIR
10 13
11 )
12 +/-
13 / (DIVIDE)
14 HIR
15 14
16 )
17 X
18 1
19 0
20 0
21 )
22 RTN

19.60 - 19.81 [A] 1.07%

[Gerson W. Barbosa]

TI-66:

Code:


000 LBL
001 D
002 -
003 x<>t
004 STO
005 00
006 =
007 /
008 RCL
009 00
010 X
011 1
012 0
013 0
014 =
015 RTN

CLR 19.6 x<>t 19.81 D --> 1.071428571

Gerson.

[hp41cx]

Good Gerson :-)

Code:


000 LBL
001 D
002 -
003 x<>t
004 HIR
005 02
006 )
007 /
008 HIR
009 12
010 X
011 1
012 0
013 0
014 )
015 RTN

Thanks !

[rprosperi]

(07-26-2016 04:11 AM)Gerson W. Barbosa Wrote:  TI-66:

Code:


000 LBL
001 D
002 -
003 x<>t
004 STO
005 00
006 =
007 /
008 RCL
009 00
010 X
011 1
012 0
013 0
014 =
015 RTN

CLR 19.6 x<>t 19.81 D --> 1.071428571

Gerson.

So, how does one enter the HIR codes for the TI-66? I've found lots of references to the 58/59 codes, plus even more references to the statement in the TI-66 manual that there are no HIR codes in the '66 (boy was that a challenge!) but clearly they work.

I can create the "HIR 02" using "STO 82 2" then deleting the "STO", but how does one generate the 2-digit "12" ? I tried "B", as on the 58, but this does not work.

[Gerson W. Barbosa]

(07-26-2016 07:14 PM)rprosperi Wrote:  I can create the "HIR 02" using "STO 82 2" then deleting the "STO", but how does one generate the 2-digit "12" ? I tried "B", as on the 58, but this does not work.

What about STO 12 then deleting STO? The resulting code doesn't work, however.

Gerson.

[Gerson W. Barbosa]

Back in the day I had a TI-59 for a while. After it was stolen I got a newly-released novelty as a replacement, an HP-15C. Somewhat cheaper, but the equals key was missing :-)

I was given this TI-66 last year, but I hadn't played with it yet. Thanks, hp41cx, for the opportunity.

Pressing C on both calculators (the HP-15C in USER mode) and R/S a few times will display my age then. Pressing the R/S key twice more will display my current age. Time flies!

TI-66:

Code:


000 LBL 
001 C
002 CLR 
003 x<>t
004 1
005 LBL
006 SUM
007 +
008 R/S
009 x<>t
010 GTO
011 SUM

HP-15C:

Code:


001 LBL C
002 1
003 ENTER
004 0
005 LBL 1
006 +
007 R/S
008 LAST x
009 x<>y
010 GTO 1

Gerson.

Edited for grammar.

[Mark]

(07-26-2016 09:15 PM)Gerson W. Barbosa Wrote:  

(07-26-2016 07:14 PM)rprosperi Wrote:  I can create the "HIR 02" using "STO 82 2" then deleting the "STO", but how does one generate the 2-digit "12" ? I tried "B", as on the 58, but this does not work.

What about STO 12 then deleting STO? The resulting code doesn't work, however.

Gerson.

Hello,

Unfortunately, the TI-66 doesn't handle the HIR instruction, it's even mentioned in its owner's manual. TI didn't care much about that : When they ordered that calc's design from Toshiba, they very well could have included that opcode in the Toshiba microcontroller's firmware... (have a look at Joerg Woerner's "datamath.org" website for more information)

EDIT : oops, didn't fully read rprosperi's post #4 which already flagged the manual, sorry. You tell that "clearly they work" .... on the TI-58/59 only, of course :-)


Marc

[Dieter]

(07-26-2016 04:11 AM)Gerson W. Barbosa Wrote:  TI-66:

Code:

...
004 STO
005 00
006 =
007 /
008 RCL
009 00
...

CLR 19.6 x<>t 19.81 D --> 1.071428571

You do not have to occupy a data register, also CLR is not required if you use brackets.
It can be done this way (keycodes for TI58/59):

Code:

000 76 LBL
001 11 D
002 53 (
003 53 (
004 32 x<>t
005 75 -
006 32 x<>t
007 54 )
008 94 +/-
009 55 /
010 32 x<>t
011 65 x
012 01 1
013 00 0
014 00 0
015 54 )
016 92 RTN

This way the Δ% operation can also be used in chain calculations.

Example:

Code:

   3  [x]                         3.
19,60 [x<>t] 19,81 [D]   1.071428571
      [=]                3.214285714

As an additional benefit, the t-register on exit holds the absolute change. ;-)

Dieter

[Gerson W. Barbosa]

Dieter,

Thanks for the improvement!

Hopefully the Fibonacci numbers program above won't need much change. For anything more complex than tiny programs like these the TI-66 is annoyingly slow (I remember the TI-59 was acceptably fast).

Gerson.