The sophisticated HP-65
08-01-2022, 10:12 PM
Post: #1
 Matt Agajanian Senior Member Posts: 1,079 Joined: Dec 2013
The sophisticated HP-65
Even with 100 semi-merged steps and nine (eight if you’re using functions that need R9), the HP-65 can definitely be a strong programmable.

So, what is the most sophisticated program you’ve written for the 65?
08-02-2022, 02:48 AM (This post was last modified: 08-06-2022 04:11 AM by [kby].)
Post: #2
 [kby] Member Posts: 174 Joined: Mar 2014
RE: The sophisticated HP-65
I managed to do all 6 hyperbolics and inverses in 100 steps accessed through spelling out the function with the 5 soft keys as “arc”, “co”, “sin”, “tan”, and “sec.”

I’ve tried getting a two variable stats package using a common summation logic and merge-able cards but haven’t quite figured out how to squeeze out a few more steps yet.
08-02-2022, 05:05 PM (This post was last modified: 08-03-2022 06:44 AM by C.Ret.)
Post: #3
 C.Ret Member Posts: 262 Joined: Dec 2013
RE: The sophisticated HP-65
(08-01-2022 10:12 PM)Matt Agajanian Wrote:  So, what is the most sophisticated program you’ve written for the 65?

Up to now, the most sophisticated program I write for the HP-65 is concerning the position of any rational in the Calkin–Wilf tree. It was a part of the numerous exchanges and works-out from the MPO96 challenge in the french forum www.silicium.org (Sept 06,2020).

Label A is used to calculate the index of U(n) from the rational A/B (the GCD is in register R2 at the end of the calculation): a [ENTER^] b (A) displays U(n) .
Label D makes it possible to determine the rational A/B from the index of U(n): n [ D ] displays A then [SST] displays B.

08-02-2022, 08:30 PM
Post: #4
 Thomas Klemm Senior Member Posts: 2,110 Joined: Dec 2013
RE: The sophisticated HP-65
(08-02-2022 05:05 PM)C.Ret Wrote:  It was a part of the numerous exchanges and works-out from the MPO96 challenge in the french forum www.silicium.org (Sept 06,2020).

Quote:Tu me rappelles le temps béni où je travaillais à Marseille, la ligne de TGV fonctionnait de puis quelques semaines, un collègue fort sympathique, marseillais de bonne souche, était très fier d'annoncer à tout le monde qu'il était le plus rapide d'entre nous, un "champoing du monde" qui sera dans moins de 5h à Paris. Sauf qu'il est monté du mauvais coté de la rame qui se séparée à Avignon, il est arrivé à destination encore plus vite, en moins de 3h il était à Toulouse.

Here's the program that can be used in this online emulator for the HP-65:
Code:
PROG 100 001: 23    : LBL 002: 11    : A 003: 33 02 : STO 2 004: 35 07 : g x<>y 005: 33 01 : STO 1 006: 83    : . 007: 05    : 5 008: 33 04 : STO 4 009: 00    : 0 010: 33 03 : STO 3 011: 23    : LBL 012: 00    : 0 013: 02    : 2 014: 33    : STO 015: 71    : x 016: 04    : 4 017: 00    : 0 018: 34 02 : RCL 2 019: 34 01 : RCL 1 020: 51    : - 021: 35 24 : g x>y 022: 33 02 : STO 2 023: 35 01 : g NOP 024: 35 24 : g x>y 025: 22    : GTO 026: 00    : 0 027: 42    : CHS 028: 33 01 : STO 1 029: 34 04 : RCL 4 030: 33    : STO 031: 61    : + 032: 03    : 3 033: 71    : x 034: 35 21 : g x!=y 035: 22    : GTO 036: 00    : 0 037: 34 03 : RCL 3 038: 84    : R/S 039: 23    : LBL 040: 14    : D 041: 33 03 : STO 3 042: 01    : 1 043: 33 02 : STO 2 044: 23    : LBL 045: 08    : 8 046: 02    : 2 047: 71    : x 048: 35 22 : g x<=y 049: 22    : GTO 050: 08    : 8 051: 33 04 : STO 4 052: 00    : 0 053: 33 01 : STO 1 054: 23    : LBL 055: 02    : 2 056: 34 03 : RCL 3 057: 34 04 : RCL 4 058: 02    : 2 059: 81    : / 060: 33 04 : STO 4 061: 35 22 : g x<=y 062: 22    : GTO 063: 03    : 3 064: 31    : f 065: 83    : INT 066: 35 24 : g x>y 067: 22    : GTO 068: 04    : 4 069: 34 01 : RCL 1 070: 84    : R/S 071: 34 02 : RCL 2 072: 24    : RTN 073: 23    : LBL 074: 03    : 3 075: 51    : - 076: 33 03 : STO 3 077: 34 02 : RCL 2 078: 33    : STO 079: 61    : + 080: 01    : 1 081: 22    : GTO 082: 02    : 2 083: 23    : LBL 084: 04    : 4 085: 34 01 : RCL 1 086: 33    : STO 087: 61    : + 088: 02    : 2 089: 22    : GTO 090: 02    : 2 091: 35 01 : g NOP 092: 35 01 : g NOP 093: 35 01 : g NOP 094: 35 01 : g NOP 095: 35 01 : g NOP 096: 35 01 : g NOP 097: 35 01 : g NOP 098: 35 01 : g NOP 099: 35 01 : g NOP 100: 35 01 : g NOP CARD 6 Title: MPO95 Calkin-Wilf suite U(n)=A/B A: A/B -> n B:  C:  D: n -> A/B E:  HELP 1 END

Examples

11
ENTER↑
28
A
500.00

500
D
11.00
R/S
28.00

FYI: There are some inconsistencies between the numeric codes and their textual representations.
I assumed that the latter is correct.
Code:
008: 33 04 : STO 4 048: 35 22 : g x<=y 075: 51    : -
08-02-2022, 11:22 PM
Post: #5
 Don Shepherd Senior Member Posts: 749 Joined: Dec 2013
RE: The sophisticated HP-65
(08-01-2022 10:12 PM)Matt Agajanian Wrote:  Even with 100 semi-merged steps and nine (eight if you’re using functions that need R9), the HP-65 can definitely be a strong programmable.

So, what is the most sophisticated program you’ve written for the 65?

prime factor finder
08-03-2022, 12:08 AM
Post: #6
 Gene Moderator Posts: 1,380 Joined: Dec 2013
RE: The sophisticated HP-65
Everyone should check the early issues of the PPC Calculator Journal (what? you don't have the PDF copies of all those issues? - it's on the HHC conference drive and Jake Schwartz sells the scans cheap!)

Whole issues devoted to game programs as well as incredible non-games too.
08-03-2022, 01:37 AM
Post: #7
 Sylvain Cote Senior Member Posts: 2,128 Joined: Dec 2013
RE: The sophisticated HP-65
(08-03-2022 12:08 AM)Gene Wrote:  what? you don't have the PDF copies of all those issues? - it's on the HHC conference drive and Jake Schwartz sells the scans cheap!
Better, I have the original paper version .... oouuuu! LOL
Gene is absolutely right, Jakes thumb drive is a must have → PPC Archive V2.41, April 1, 2022
08-03-2022, 06:42 AM (This post was last modified: 08-03-2022 06:43 AM by C.Ret.)
Post: #8
 C.Ret Member Posts: 262 Joined: Dec 2013
RE: The sophisticated HP-65
(08-02-2022 08:30 PM)Thomas Klemm Wrote:  FYI: There are some inconsistencies between the numeric codes and their textual representations.
Thank you for the link to a very useful online emulator, the careful reading of my post and especially for pointing out inconsistencies. I have to change my practice when posting; copying and pasting my code from an emulator or a quality simulator will avoid the far too many errors and typos I made up to now!
I'm updating all of this...
08-03-2022, 02:46 PM
Post: #9
 Dave Britten Senior Member Posts: 2,319 Joined: Dec 2013
RE: The sophisticated HP-65
Cramming the N-Queens benchmark into 100 steps and no indirect addressing is probably the tightest fit I've pulled off.

(Also see the link at the bottom of that thread where Thomas Klemm managed to make it work on the 25!)
08-03-2022, 04:18 PM
Post: #10
 Thomas Klemm Senior Member Posts: 2,110 Joined: Dec 2013
RE: The sophisticated HP-65
(08-02-2022 11:22 PM)Don Shepherd Wrote:  prime factor finder

Here's a listing of the program that can be used with this online emulator for the HP-65:
Code:
001: 23    : LBL 002: 11    : A 003: 34 01 : RCL 1 004: 61    : + 005: 33 01 : STO 1 006: 34 02 : RCL 2 007: 35 07 : g x<>y 008: 81    : / 009: 32    : f-1 010: 83    : INT 011: 00    : 0 012: 35 21 : g x!=y 013: 24    : RTN 014: 35 01 : g NOP 015: 35 00 : g LSTx 016: 33 02 : STO 2 017: 31    : f 018: 09    : SQRT 019: 33 03 : STO 3 020: 34 01 : RCL 1 021: 84    : R/S 022: 00    : 0 023: 22    : GTO 024: 11    : A 025: 23    : LBL 026: 12    : B 027: 04    : 4 028: 11    : A 029: 02    : 2 030: 11    : A 031: 04    : 4 032: 11    : A 033: 02    : 2 034: 11    : A 035: 04    : 4 036: 11    : A 037: 06    : 6 038: 11    : A 039: 02    : 2 040: 11    : A 041: 06    : 6 042: 11    : A 043: 34 02 : RCL 2 044: 01    : 1 045: 35 23 : g x=y 046: 00    : 0 047: 24    : RTN 048: 34 01 : RCL 1 049: 34 03 : RCL 3 050: 35 24 : g x>y 051: 22    : GTO 052: 12    : B 053: 34 02 : RCL 2 054: 84    : R/S 055: 44    : CLx 056: 24    : RTN 057: 23    : LBL 058: 13    : C 059: 33 02 : STO 2 060: 31    : f 061: 09    : SQRT 062: 33 03 : STO 3 063: 00    : 0 064: 33 01 : STO 1 065: 02    : 2 066: 11    : A 067: 01    : 1 068: 11    : A 069: 02    : 2 070: 11    : A 071: 02    : 2 072: 11    : A 073: 34 02 : RCL 2 074: 01    : 1 075: 35 21 : g x!=y 076: 22    : GTO 077: 12    : B 078: 00    : 0 079: 24    : RTN 080: 35 01 : g NOP 081: 35 01 : g NOP 082: 35 01 : g NOP 083: 35 01 : g NOP 084: 35 01 : g NOP 085: 35 01 : g NOP 086: 35 01 : g NOP 087: 35 01 : g NOP 088: 35 01 : g NOP 089: 35 01 : g NOP 090: 35 01 : g NOP 091: 35 01 : g NOP 092: 35 01 : g NOP 093: 35 01 : g NOP 094: 35 01 : g NOP 095: 35 01 : g NOP 096: 35 01 : g NOP 097: 35 01 : g NOP 098: 35 01 : g NOP 099: 35 01 : g NOP 100: 35 01 : g NOP

Example

11111
C
41.00

R/S
271.00

R/S
0.00

Performance Question

Maybe someone with a better understanding of the internals of the HP-65 can answer the following question:
Would it make sense to invert the order of the three sections A, B and C since e.g. B is calling A often?

This is the reordered program:
Code:
001: 23    : LBL 002: 13    : C 003: 33 02 : STO 2 004: 31    : f 005: 09    : SQRT 006: 33 03 : STO 3 007: 00    : 0 008: 33 01 : STO 1 009: 02    : 2 010: 11    : A 011: 01    : 1 012: 11    : A 013: 02    : 2 014: 11    : A 015: 02    : 2 016: 11    : A 017: 34 02 : RCL 2 018: 01    : 1 019: 35 21 : g x!=y 020: 22    : GTO 021: 12    : B 022: 00    : 0 023: 24    : RTN 024: 23    : LBL 025: 12    : B 026: 04    : 4 027: 11    : A 028: 02    : 2 029: 11    : A 030: 04    : 4 031: 11    : A 032: 02    : 2 033: 11    : A 034: 04    : 4 035: 11    : A 036: 06    : 6 037: 11    : A 038: 02    : 2 039: 11    : A 040: 06    : 6 041: 11    : A 042: 34 02 : RCL 2 043: 01    : 1 044: 35 23 : g x=y 045: 00    : 0 046: 24    : RTN 047: 34 01 : RCL 1 048: 34 03 : RCL 3 049: 35 24 : g x>y 050: 22    : GTO 051: 12    : B 052: 34 02 : RCL 2 053: 84    : R/S 054: 44    : CLx 055: 24    : RTN 056: 23    : LBL 057: 11    : A 058: 34 01 : RCL 1 059: 61    : + 060: 33 01 : STO 1 061: 34 02 : RCL 2 062: 35 07 : g x<>y 063: 81    : / 064: 32    : f-1 065: 83    : INT 066: 00    : 0 067: 35 21 : g x!=y 068: 24    : RTN 069: 35 01 : g NOP 070: 35 00 : g LSTx 071: 33 02 : STO 2 072: 31    : f 073: 09    : SQRT 074: 33 03 : STO 3 075: 34 01 : RCL 1 076: 84    : R/S 077: 00    : 0 078: 22    : GTO 079: 11    : A 080: 35 01 : g NOP 081: 35 01 : g NOP 082: 35 01 : g NOP 083: 35 01 : g NOP 084: 35 01 : g NOP 085: 35 01 : g NOP 086: 35 01 : g NOP 087: 35 01 : g NOP 088: 35 01 : g NOP 089: 35 01 : g NOP 090: 35 01 : g NOP 091: 35 01 : g NOP 092: 35 01 : g NOP 093: 35 01 : g NOP 094: 35 01 : g NOP 095: 35 01 : g NOP 096: 35 01 : g NOP 097: 35 01 : g NOP 098: 35 01 : g NOP 099: 35 01 : g NOP 100: 35 01 : g NOP

A single test using 11113 with the emulator would indicate this.
08-03-2022, 04:32 PM
Post: #11
 Thomas Klemm Senior Member Posts: 2,110 Joined: Dec 2013
RE: The sophisticated HP-65
(08-03-2022 02:46 PM)Dave Britten Wrote:  Cramming the N-Queens benchmark into 100 steps and no indirect addressing is probably the tightest fit I've pulled off.

Again a listing of the program that can be used with this online emulator for the HP-65:
Code:
001: 33 05 : STO 5 002: 23    : LBL 003: 12    : B 004: 34 05 : RCL 5 005: 34 07 : RCL 7 006: 35 23 : g x=y 007: 22    : GTO 008: 06    : 6 009: 01    : 1 010: 33 01 : STO 1 011: 23    : LBL 012: 15    : E 013: 34 02 : RCL 2 014: 00    : 0 015: 23    : LBL 016: 14    : D 017: 01    : 1 018: 61    : + 019: 35 07 : g x<>y 020: 01    : 1 021: 00    : 0 022: 33 08 : STO 8 023: 81    : / 024: 00    : 0 025: 35 23 : g x=y 026: 22    : GTO 027: 03    : 3 028: 35 08 : g Rv 029: 41    : ENTER 030: 32    : f-1 031: 83    : INT 032: 51    : - 033: 35 07 : g x<>y 034: 35 00 : g LSTx 035: 34 08 : RCL 8 036: 71    : x 037: 34 01 : RCL 1 038: 35 23 : g x=y 039: 22    : GTO 040: 13    : C 041: 51    : - 042: 35    : g 043: 06    : ABS 044: 35 23 : g x=y 045: 22    : GTO 046: 13    : C 047: 35 08 : g Rv 048: 14    : D 049: 23    : LBL 050: 03    : 3 051: 34 02 : RCL 2 052: 34 08 : RCL 8 053: 71    : x 054: 34 01 : RCL 1 055: 61    : + 056: 33 02 : STO 2 057: 01    : 1 058: 33    : STO 059: 61    : + 060: 07    : 7 061: 12    : B 062: 23    : LBL 063: 06    : 6 064: 34 02 : RCL 2 065: 84    : R/S 066: 23    : LBL 067: 13    : C 068: 34 05 : RCL 5 069: 34 01 : RCL 1 070: 35 23 : g x=y 071: 22    : GTO 072: 05    : 5 073: 01    : 1 074: 61    : + 075: 33 01 : STO 1 076: 15    : E 077: 23    : LBL 078: 05    : 5 079: 34 07 : RCL 7 080: 01    : 1 081: 51    : - 082: 33 07 : STO 7 083: 00    : 0 084: 35 24 : g x>y 085: 44    : CLx 086: 84    : R/S 087: 34 02 : RCL 2 088: 34 08 : RCL 8 089: 81    : / 090: 41    : ENTER 091: 32    : f-1 092: 83    : INT 093: 51    : - 094: 33 02 : STO 2 095: 35 00 : g LSTx 096: 34 08 : RCL 8 097: 71    : x 098: 33 01 : STO 1 099: 13    : C 100: 35 01 : g NOP
08-03-2022, 04:49 PM
Post: #12
 Thomas Klemm Senior Member Posts: 2,110 Joined: Dec 2013
RE: The sophisticated HP-65
(08-03-2022 06:42 AM)C.Ret Wrote:  I have to change my practice when posting;

But it would be helpful to also post the listing in a machine-readable format.
This makes it simple to run the program in an emulator.
08-03-2022, 06:13 PM (This post was last modified: 08-03-2022 06:54 PM by C.Ret.)
Post: #13
 C.Ret Member Posts: 262 Joined: Dec 2013
RE: The sophisticated HP-65
No problem...

My project is to continue to illustrate the listing of my programs with as much information as possible to understand the ins and outs, the methodology and how it all comes together.
But, I still will try when possible to copy-paste the codes and mnemonics from an emulator or a simulator.
This will limit errors (too many for my taste) due to inattentive transcriptions of my notes. Especially when I compose the program by improving it on a real machine.

I agree, color and layout are of great importance and cannot be changed, a lot of documentation here follows the same style. To illustrate:

01-22-2024, 05:21 PM
Post: #14
 John Garza (3665) Senior Member Posts: 328 Joined: Aug 2016
RE: The sophisticated HP-65
(08-01-2022 10:12 PM)Matt Agajanian Wrote:  Even with 100 semi-merged steps and nine (eight if you’re using functions that need R9), the HP-65 can definitely be a strong programmable.

So, what is the most sophisticated program you’ve written for the 65?

It's not just 100 steps as this is a mag card programmable; a virtual machine. Better to ask how many cards were used.

As for me it's a 4 card set to solve the Barrowman Equations.

-J
01-22-2024, 06:11 PM
Post: #15
 TomC Senior Member Posts: 315 Joined: Dec 2013
RE: The sophisticated HP-65
A couple interesting relevant points:

I had several programs accepted into the 'HP65 Users Library' back in the day.

Also, while in a numerical methods class (in the days of Fortran IV on an IBM1130 mainframe), we had a 'drag race' with my HP65 for estimating Pi via inscribed and circumscribed polygons.

While not a particularly sophisticated program, it uncovered the numerical accuracy superiority of the precision of the HP65 compared to Fortran of 1975 (I do not recall if I used single or double precision).

After this experiment, my Mathematics and Engineering profs ceased making fun of me carrying and using that expensive 'toy'!

TomC

(08-01-2022 10:12 PM)Matt Agajanian Wrote:  Even with 100 semi-merged steps and nine (eight if you’re using functions that need R9), the HP-65 can definitely be a strong programmable.

So, what is the most sophisticated program you’ve written for the 65?
01-23-2024, 02:16 AM
Post: #16
 Matt Agajanian Senior Member Posts: 1,079 Joined: Dec 2013
RE: The sophisticated HP-65
(01-22-2024 05:21 PM)John Garza (3665) Wrote:
(08-01-2022 10:12 PM)Matt Agajanian Wrote:  Even with 100 semi-merged steps and nine (eight if you’re using functions that need R9), the HP-65 can definitely be a strong programmable.

So, what is the most sophisticated program you’ve written for the 65?

It's not just 100 steps as this is a mag card programmable; a virtual machine. Better to ask how many cards were used.

As for me it's a 4 card set to solve the Barrowman Equations.

-J

Definitely ambitious!!
 « Next Oldest | Next Newest »

User(s) browsing this thread: 1 Guest(s)