HP Forums - Delta Percentage (Texas TI-58/59)

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%

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.

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 !

(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.

(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.

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.

(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

(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

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.