(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
Search
Member List
Calendar
Help
