From 13dab7c80d0907a275cfedaa3d15ecf334515b5e Mon Sep 17 00:00:00 2001
From: d_m <d_m@plastic-idolatry.com>
Date: Sun, 28 Jul 2024 00:47:43 -0400
Subject: [PATCH] use ESC to restart game, update README

---
 README.md  |   7 +++++++
 kodiak.rom | Bin 10933 -> 10942 bytes
 kodiak.tal |  10 +++++++---
 3 files changed, 14 insertions(+), 3 deletions(-)

diff --git a/README.md b/README.md
index 9f514f6..cc333ec 100644
--- a/README.md
+++ b/README.md
@@ -4,6 +4,13 @@
 
 ![screenshot of initial solitaire deal](start.png)
 
+## controls
+
+ - Use the mouse to move the pointer
+ - Click to pick up cards; click again to drop them
+ - Press *Esc* to restart the game
+ - Press *Return* to print internal game state
+
 ## details
 
 Currently *Kodiak* is very limited:
diff --git a/kodiak.rom b/kodiak.rom
index 8176869d1b12e09cbb8d95e79df237ed29495f13..fd02040d62defbbb432b7cf61dd9492d5f7e7026 100644
GIT binary patch
delta 305
zcmdlQx-WEsJR1WeLju>TiHg#UOcQN=xF0l3Fkis=rJ=z*XX6w`M#dSFr!o35%5Hwj
zxRjCc$>eTkX_31L3<3^p2bdgKUo_auBrq^Lu=!5j#hlD&G+B-%ka6MU0v0XKng)gj
zHSq;JMw1t_7&2;YzRIG<!pouX{bWP4Sc5c>!8e(kQ<c$fvLUB~w%r0o28#wA^M>Ap
z{|j>(#6UV_;DT)l|9hZ<Ja&`kaC%DESu9{UV3D8jf0qISW6lBw1&bV|qy<39znn7i
zb_<vpEG+VYqE;5`L58*^{Ckz~zXd372{d)G1(!R}+6JytEh|&o1w2-!IY7chts%hP
gZUK*ti5f^qt%1?rPDQPO+1}0$C}6W$o_m@+00pvO7XSbN

delta 292
zcmdlNx;1oyyd2lk1jfk?CJhn^j8zRj4J-+a#SH-stqF`d4Obg@Cp!9Y-)Wd&zJT*X
zLxVZP#u<!^jFTtNV)SE_*!+@lDI??k$^FdIA~zBk1RU6QGdZw6Zm^e0U|@D&^O(Gk
zIhj#&vJy)m<DAJQELxo94Gaxx;tO~*Cog9)WK`UIlSPk(gHwTlCE@$AoXH}bs*I+S
ztvDUTOcyXRSTyLEH}od_UzpP%2GS&BI(Y)82vEUNPER2Do>Pp~bOD2c#pD7maRnLE
z1<VW<7WqH{D~t6YooxyKUM2i*S-@jz3DWAw<qp);$yKUlXllEF$IvtfNSLTK1lZdx
f;4wB)0|}`$FxuOxs5LO#+t~pHj5lj=Pm>1#>Ks~R

diff --git a/kodiak.tal b/kodiak.tal
index 25fa22e..521e9e2 100644
--- a/kodiak.tal
+++ b/kodiak.tal
@@ -58,12 +58,15 @@
     #0100 .Screen/w DEO2
     #00c0 .Screen/h DEO2
 
+    reset BRK
+
+@reset
     init-rng-from-datetime
     init-stock
     .waste #18 initialize
     .foundation #04 initialize
     .tableau #85 initialize
-    .held #0d initialize
+    .held #02 initialize
     .dragging #05 initialize
     .prev #06 initialize
 
@@ -79,7 +82,7 @@
     draw
     ;on-mouse .Mouse/vect DEO2
     ;on-key .Controller/vect DEO2
-    BRK
+    JMP2r
 
 @dump-byte ( byte^ -- )
     DUP #04 SFT ,&hex JSR #0f AND ,&hex JMP
@@ -578,7 +581,8 @@
     &start POP !draw-cards )
 
 @on-press ( -> )
-    .Controller/key DEI #0d NEQ ?{ dump-state JMP2r }
+    .Controller/key DEI #0d EQU ?dump-state
+    .Controller/key DEI #1b EQU ?reset
     JMP2r
 (    .Controller/button DEI         ( button^ )
     .prev/button LDZ #ff EOR AND   ( press^ )