From 3181d664f0f7346970f87e6f7f8037f00038831e Mon Sep 17 00:00:00 2001
From: d_m <d_m@plastic-idolatry.com>
Date: Wed, 7 Aug 2024 22:47:02 -0400
Subject: [PATCH] add 24x24 icon, clean up

---
 kodiak.rom | Bin 17954 -> 18026 bytes
 kodiak.tal |  27 +++++++++++++--------------
 2 files changed, 13 insertions(+), 14 deletions(-)

diff --git a/kodiak.rom b/kodiak.rom
index 4220d2b963f66285a4d64d893351b6590c37bc5e..722667214b065a786f2adaa14203016c29e8dc86 100644
GIT binary patch
delta 1139
zcmYL{T})g>6vxl(-o4!23+yht>{bf0B3up7u#j!{LfYM-fmTxsq#C1D>(CU8a1GX^
zk+(e&KNGanNwiPoh)SBq_>uJ^`k-J;d@&)7X-L}Iq<v@`OjxwE@=*6WcVp9eIOqJ%
z%$fPmoLQJ<YqM<5DvaV>mSU@jSu%^5QuYj{vjl+ubd#@};7i(jl)%7oObdA9Zfb}i
zf*IrjUhz@^q`gN7G(3hQ0-h(<Tq&F&AK(BA0gs8``^fNCRKPO;lT*iD9GwhJI#Z`U
z?X-H*JsDs#dlpY(ZBuduLrvKgtoBTxDLaftQ`Ql&CE3HCWX;8Q*bbJM7yhq=c1UQW
zLi<)|e~SPY!EfYmKF%6tjsJdjQFi)=`wk#@C%S1KegJPpun<atMtzn;edEsEgf5_;
zvq1p|Im;`FR+4i2<T-!bKwkxN3dVf7UDDRxW{YxJ8ym0)mTciJ5S$^faZbQ0!JG<d
zmqiTJ)LS0F%cS=Uc$$C{Oq2eEI)va60wjG*P6VdvhivT3I$><j;=|ct?xV2UL9Pcn
zm?azZY}bq@*j{v~_nL#ZBOdiC`Mu+gY6-#D!o4WmUkK7FCi|L1J=wa*T_U(aaN1L&
zgz|FRJyz;?xnBONABgMfZ0!0lsrK?#BZ~6vqE+RvbeIF^$jubg>4?fjbzD-e*2hgl
zK!lrrswjr}Mge|qP8WYR1{rIRMku}A6y?J_XyWw<-iSo;I@XG<Sz&y}w_cKuhYqJF
zFio0S67Ch@{%Fy@v&hNkSA0&mpDSL&5%LEVFAH~`_P5JFLcCkugWHad8^II=eU*Em
z$6NQfG7pLa-n<+#KT(2inj=2lm4nso!3*j$sNN<T<aBj6tCMG|53x(~-|8Lgxnf7n
ztBf_tk83mLCU}4Ud^f*&SzfKZ%v`w~F0g{^k37p-<b32Oc2pjTzR-9AnbRUl7b*@q
zD(<fZ<@n|Y@=COejmv1=55^{5MNMqz^7p!f4_4u83A_{qoJnAfky`)G3%09(c|poZ
zxyR)|tWEWPBE}PypX9aZUEzM@V8T;xS#l{BR}0R^9#ytEo(QO?N!gO($&_W0A8dO{
zCHm|yyvjF4c}=*lQ^M-?N{`3)tD^7YC)!(f?x94>PDh!Hg(LYKC0a9<m$H!MbFCKo
z^SPW#v=*PLKmE|D)m(b_HrNJgxc?7kXdXhTR9aa%8E&qCGR$AqoX-~u^1ZhEs><a%
OceXY*itD>G!T$h;WP{rP

delta 1049
zcmYLHZ)jUp6hHU9mo%?0HhF9Iy0t+cp^LU%*F-v#6w_XcPK9ml{IF>$a#uHH>oc8*
zs8i@cVbjsEmJ4-Ekh7s8T8ok)vVpeZC&9nq2c2#>gqAT=N4u>Q&GWvX+n0OJ?{~Q8
z_dEBVD--O@1e;8czmJnSO5BN<BWn#^buM8hM*w&;OInuTW9n}vh~QJ05is{Z6()#d
zH*x_V1yl&B-ytw?9}WsQMeMHH#T03P51<fmRG2>_!|S$yX@JqOeFyfA){lB)Q}1pz
z+*Sbj-u-;)mn8dU>gI0NQQpZqne(C0KM}?g!gxj)UkaltLfeHoFQ+u_wzZz`Dd=?@
zCNbO?n;fuX2;bQQ?3n9cOnJgukk_<<<Q{}T(9iH#Cti=^c)be-^^`p7nU%wOQY%*F
zVZB)^-jLJ!eyv!M|LCu?iacWMXC-;nXl^SJgS_yM666UEQTP=Bj}vf$7b$!~zz%|k
z36R1hyFz2@!+G4C^J3VZ!+UZAT$_o}eI;2Ab*OHaLb>r1fqcHA<hOWuBOaiFGE<oK
z)cX>g75)X`e?^c{ITf}D|1*NeYWxqvp9zElzQTPXSR^>9y7Ow=t(;&k&#N16W96M!
zP2vBhY$`|cjc|Wrr?QA$Z#F5(par6+UMXJ+dyK{9_DD;@6cFduRgGH->`MyJx%E={
z<;a7KjmUX3(-IZcA#O%-A&!f28yB!atfGj_@YTICT0fLYVTKHAN%+4D|MN6$8$nK*
zuCN+mR^c-^NP0-&dEviJ+b+xLdY&z*H_dxt{L6H~)YMpN)&Q^G#<e;q917~P&U!}~
znz078I*?VX-MpawI^9Ihh|ET_Y)C#CeUyDKKaF;>UFAQbFED1y;f8K&c_rBFpR#=U
zNBLI6MYb#t$Hv)naxFH@9Jwd{1=}r~?5C3lka;Pw^ldFbM=e~NR)Mb^lc(%1rSP?V
zF0zQ1(GW{(a$?<%)(F1p;IB4#_?m-vMBK^;LDCX&|6B<YH{$w-<lpNysclF#@{ZbW
z1;24z_@_N|0{iJ(<PqUd{6{(^dA#wF4JEaLbNMmhpL2n!?{o8BYJ^m=(wI~&t;EJq
zsh~Q@w!}jUKbv^I{ovLjIS03T>gZ16U|%meUUxd6(#ZOHThplb_4X>lE63NLyt|w)
H-fR8~XcK!E

diff --git a/kodiak.tal b/kodiak.tal
index ea97eb3..f9d3fdc 100644
--- a/kodiak.tal
+++ b/kodiak.tal
@@ -101,14 +101,8 @@
     ( author ) "by 20 "d_m 0a
     ( version ) "version 20 "2 0a
     ( date ) "7 20 "aug 20 "2024 00
-    00
-
-@icon-24x24
-    00 00 03 02 00 01 01 01 03 07 07 07 03 03 06 06
-    00 00 00 00 00 c3 c3 c3 00 81 81 ff ff ff bd bd
-    00 00 c0 40 00 80 80 8e c0 e0 e0 e0 c0 c0 60 6e
-    00 00 00 00 00 00 00 00 07 07 07 03 03 01 00 00
-    ( tbc... )
+    01 ( 1 extended field )
+    ( icon ) 83 =icon-24
 
 @setup-audio ( adsr* sample* slen* dur* vol^ dev^ -> )
     STHk  #0e ORA DEO           ( [dev^] ; <-vol )
@@ -421,9 +415,6 @@
     #0058 #00b4 audio-button-addr draw-button
     #0080 #00b4 ;about-button !draw-button
 
-@draw-bear-normal ( -> )
-    #00e8 #0098 ;sprites !draw-mouth
-
 @draw-bear-smile ( -> )
     #00e8 #0098 ;sprites #00c0 ADD2 !draw-mouth
 
@@ -1112,9 +1103,6 @@
     .Controller/button DEI .prev/button STZ
     BRK
 
-@on-release ( -> )
-    JMP2r
-
 @on-press ( -> )
     .Controller/key DEI #0d EQU ?dump-state ( ; 0x0d: return )
     .Controller/key DEI #1b EQU ?reset ( ; 0x1b: esc )
@@ -1225,6 +1213,17 @@
  38 38 38 38 38 38 fe 6c 18 18 18 18 18 18 5a 24
  78 38 38 38 38 38 fe 6c 38 18 18 18 18 18 5a 24
 
+@icon-24 ( 3x3 tiles )
+    00 00 03 02 00 01 01 01 03 07 07 07 03 03 06 06
+    00 00 00 00 00 c3 c3 c3 00 81 81 ff ff ff bd bd
+    00 00 c0 40 00 80 80 8e c0 e0 e0 e0 c0 c0 60 6e
+    00 00 00 00 00 00 00 00 07 07 07 03 03 01 00 00
+    3c 18 00 18 00 00 00 00 ff ff ff ff ff ff ff ff
+    01 08 04 00 00 00 00 00 ef ef ef cf cf 8f 0f 1f
+    00 00 00 00 00 00 00 00 01 03 07 1f 3f 3f 7f 7f
+    00 00 00 00 00 00 00 00 ff ff ff ff ff ff ff ff
+    00 00 00 00 00 00 00 00 ff fe fe fc fc f8 f0 f0
+
 @corner 00 00 00 1f 1f 18 18 18
 @vert   18 18 18 18 18 18 18 18
 @horiz  00 00 00 ff ff 00 00 00