The sophisticated HP-65

[Thomas Klemm]

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