Post Reply 
The sophisticated HP-65
08-01-2022, 10:12 PM
Post: #1
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?
Find all posts by this user
Quote this message in a reply
08-02-2022, 02:48 AM (This post was last modified: 08-06-2022 04:11 AM by [kby].)
Post: #2
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.
Find all posts by this user
Quote this message in a reply
08-02-2022, 05:05 PM (This post was last modified: 08-03-2022 06:44 AM by C.Ret.)
Post: #3
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.

   
Find all posts by this user
Quote this message in a reply
08-02-2022, 08:30 PM
Post: #4
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).

This whole thread is worth reading but this is golden:
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    : -
Find all posts by this user
Quote this message in a reply
08-02-2022, 11:22 PM
Post: #5
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
Find all posts by this user
Quote this message in a reply
08-03-2022, 12:08 AM
Post: #6
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.
Find all posts by this user
Quote this message in a reply
08-03-2022, 01:37 AM
Post: #7
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
Find all posts by this user
Quote this message in a reply
08-03-2022, 06:42 AM (This post was last modified: 08-03-2022 06:43 AM by C.Ret.)
Post: #8
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...
Find all posts by this user
Quote this message in a reply
08-03-2022, 02:46 PM
Post: #9
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!)
Visit this user's website Find all posts by this user
Quote this message in a reply
08-03-2022, 04:18 PM
Post: #10
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.
Find all posts by this user
Quote this message in a reply
08-03-2022, 04:32 PM
Post: #11
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
Find all posts by this user
Quote this message in a reply
08-03-2022, 04:49 PM
Post: #12
RE: The sophisticated HP-65
(08-03-2022 06:42 AM)C.Ret Wrote:  I have to change my practice when posting;

Please keep these beautiful listings as it makes them reading easy:
[Image: attachment.php?aid=10951]

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.
Find all posts by this user
Quote this message in a reply
08-03-2022, 06:13 PM (This post was last modified: 08-03-2022 06:54 PM by C.Ret.)
Post: #13
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:

   
Find all posts by this user
Quote this message in a reply
01-22-2024, 05:21 PM
Post: #14
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
Find all posts by this user
Quote this message in a reply
01-22-2024, 06:11 PM
Post: #15
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?
Find all posts by this user
Quote this message in a reply
01-23-2024, 02:16 AM
Post: #16
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!!
Find all posts by this user
Quote this message in a reply
Post Reply 




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