Tic-Tac-Toe for the HP-65

Back to main page | Email me at: Gene!


The program presented below will play Tic-tac-toe on the HP-65. It was written by Dick Hoppe and appeared in the V2N3P27 issue of PPC Journal (March 1975). Thanks to Dick wherever he is today!

Instructions:
1) Enter program.
2) Start a new game - the HP-65 goes first. Press RTN, R/S. See a 7 displayed.
3) Enter your move in reply to the HP-65's by entering the square you want and pressing R/S.
4) Continue with step 3 until you win, lose or draw the game.
5) When a win occurs, the display will display all 9 decimal digits. The display will flash if the HP-65 wins by offensively taking a square. It does not flash if it wins by a defensive move.
6) The keypad of the HP-65 is the playing board. A 1 is the lower left corner of the board, 5 is the center, etc.


Program Listing: Email if you have any questions.
Line      Instruction  Keycode
01         DSP          21
02         .            83
03         2            02
04         6            06
05         STO 1        33 01
06         7            07
07         R/S          84
08         2            02
09         STO 2        33 02
10         g X > Y      35 24
11         4            04
12         ENTER        41
13         g X <> Y     35 07
14         5            05
15         g X > Y      35 24
16         f            31
17         REG          43
18         g X = Y      35 23
19         3            03
20         E            15
21         -            51
22         g            35
23         ABS          06
24         1            01
25         g X = Y      35 23
26         9            09
27         A            11
28         R/S          84
29         4            04
30         g X NE Y     35 21
31         D            14
32         g NOP        35 01
33         9            09
34         RCL 1        34 01
35         -            51
36         R/S          84
37         8            08
38         RCL 1        34 01
39         C            13
40         LBL          23
41         A            11
42         R/S          84
43         8            08
44         g X NE Y     35 21
45         D            14
46         g NOP        35 01
47         3            03
48         RCL 2        34 02
49         -            51
50         R/S          84
51         6            06
52         RCL 2        34 02
53         LBL          23
54         C            13
55         -            51
56         g X = Y      35 23
57         5            05
58         LBL          23
59         D            14
60         DSP          21
61         9            09
62         f-1          32
63         COS          05
64         g LSTx       35 00
65         LBL          23
66         E            15
67         R/S          84
68         1            01
69         g X = Y      35 23
70         9            09
71         A            11
72         CLX          44
73         9            09
74         g X = Y      35 23
75         1            01
76         E            15
77         g RDN        35 08
78         LBL          23
79         B            12
80         1            01
81         0            00
82         g X <> Y     35 07
83         -            51
84         R/S          84
85         B            12
86         LBL          23
87         A            11
88         R/S          84
89         6            06
90         C            13
91         LBL          23
92         E            15
93         R/S          94
94         2            02
95         LBL          23
96         C            13
97         g X = Y      35 23
98         2            02
99         +            61
100        D            14

That's it!
Visitors since 8/4/97