From 61ad2036722d256573578f3c5d26ad85f750f64e Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Wed, 5 Jun 2024 17:03:07 -0400
Subject: [PATCH] fish: missed some files

---
 games/sb/fish/graphics/fish_bg.png | Bin 0 -> 5327 bytes
 games/sb/fish/zx02_optim.s         | 163 +++++++++++++++++++++++++++++
 2 files changed, 163 insertions(+)
 create mode 100644 games/sb/fish/graphics/fish_bg.png
 create mode 100644 games/sb/fish/zx02_optim.s

diff --git a/games/sb/fish/graphics/fish_bg.png b/games/sb/fish/graphics/fish_bg.png
new file mode 100644
index 0000000000000000000000000000000000000000..dd381f8121c642e4c0b27cceb4fb3d589341dd06
GIT binary patch
literal 5327
zcmeHLc~lcu7Z0+@5>Xb77HbGd0ZlSVCO}fcBA`SQjev+d!^{Ln$wCq!AXWiIl;DC&
z+3GHeQd){qSriFat5CICsdYiyQe1E=AX;0YFTn**d(L+}=j(swoMh(R<@fIW-TUsD
z$$H7mX=Lkh)+7>%EDQ??Cy`7j;QpkUDfp$=B0_M{r$$C=!jWXEQl*d*@i<kJqQt4V
zmXMN2+N&~2kbM(%czw?Xe-jh3|7kd>G~iB8&J=#-1L?vs+sMOSJV`q#Tb;MMLp+0S
zP7dE6&e?ru=~jocm>nEBzel-goZF1b2lsd9d-(Ote$0w5?LHOO<oTd0X#3+InXcWr
z)20PaKq8y6&)9`i;8mmZ4_$j=wc@nXJsXSl6|#ZmV)3JI`zE;GE1~2TUjE=#rP;AU
zkF8aUoR^@5C58G{i*Citk8Y8@%;yE0&q>V#>8&AxgC)Y?;8)pz97<Mh5rj1bI-gn+
zkwbH`wArA^mLyi@Z18RKa@;+o%xQiiRMTry1iN`MHfAhuY}|C}P-ae5#fXXw>NAsH
z?%&#Xhc>aF>3Jmk_glv%JbEa2*lsdquRgMBlEuLye4j%Ct9XG^-I7s(luSzFv1ZXq
z#`fuYb=r-l(?8aEobUF3dizd9x4UT?EkSoTE3`hyuZp-^@^pQ0xtnM6?PdpyMVp^(
z>H4ZgQIa#l#*c$x7kiprVk@sSsw}JWcH7T#nC3WVZ<<TjSNfEks`+J=ZGt~+GE-!D
zVHeyK7Bgx_SkM~XxU&aOPT3Zf>*zpS-L&G_y78+vEM(W5jp>LEbn<dLZP#zvP{*~2
z*eVZ)Mwl&*{}Xk*({5grc&*>R`a!4FtyLBkN2(jHlB5B`FTOtd?WhY4<b?~r=BC&k
zyKa)TLvv=c^O;!@9*(P@a-NquLrR<8ikjm``x2g$u!Dy?$V%mKos;K^8^7KVe0KcB
ziqgwB?QRsRz8_d*p9;E8OMvc*7K`|(LdHNaMJ&$H%9Nn(NF=`itr9_(;~Hu#9!JOp
zv`2LfG%A4!Xmhz@NURLTml9#ADm)@}W+a-r9OYrO0Do&gEgt~La1BD$%Hri}zE(gp
z;_|`0LCmC4jV7Aq0$Q|KLJd}^a4O7z84x{GOC+&r{?=4K6(;3}hfIA50agOqQjJE*
zXEKwMlNrezhC&s`Wbt@BCd6j4*>qq*SEtA|h?Xu_yBZ({F+y-Psv?vcLLsLbFp*eA
zqDDZY0X_9qd@`k2{2E@ae#rvhgQ-Q7Ocn!T%4E!;9%@Z!5&(G_(7$@9Bf%kMhU02Q
zq6)=BlW@7lbtnXezV=rps^X35U?>xh$7R4&4R&R{wdFLSSn}G#KtUWKQyRSh*>72D
z2<aQL-ipnjF{U##5a9kA_buyJxf_jvl~~LVQJ{&2@Pr`(nqhxFra%ddZ@gur5a!F_
zKy)70+nWv}7((}D!5E#zhA=KB<$3dBeTF~@<!TKgM{xrb0A~;Y2gNWhhl}~pQG_j}
z!x#@h#ByOehXq4C9>>Rr$Knlvn57~>S0eF4qcT8Y0Lt4J#!)VZP3LkU5Dg2G(qmE7
zhwg(y9F7#|FkjpVg`xbZ3Y822<s@WC9L`kA<BSRe;rt+pP(Widpf?gpJfe{T2LVk)
z$P=}16p@4skI*0nHd#I_AFekW=CXNg4g?LxY{ZMgRcg?Q222*j;P@Kd4Q1hjWB{><
zp-%yTQ4Vt92di*IqfkXE6!8L@0fK7qe61FP<Afm^Bm~jm02E@we8`&*aU&s!4?}z|
zn+^fV5PJniNK^iowc+qk{RT@OMySF5DMr!YiHg7z23Ld2c*1y;s8r*j;3Mc@3Th+?
z$Bc0TtU(pJ6p_c_V0yf4*H?1lUs{31gE1}+N{6!9FdfEyae6FU3ezzd_QiNG59jbW
zZ=<UfQcW_V!h_-fkAN%Co<^>y9>zj>zHObn6gN}>5Jm@^{F5-|%Y>PRnei%PKjuF;
z@iQ6>88X0cPzHt<n1#&O!|)|%hOzS>eqPq%KimO8zu)AY_<c{;d%E6<fp;=~-(BzN
zdM5_n$@qPD{om-ae)Bqo%fVAnGI&|aaIF0UylB}=M3JH3`az3H2i!j}F!0?1lMjme
zx9kia3#3-cuz6|{$;QF(H6az182%x!)Ck3)mUk@7%{<^I$D2PSk<8@6kf2EI)dwY3
z`M*+aL%OW}bI$Mia|!PLyLEn`ul>@_Am+TqAHP`Sn76qubNer8)R8S4%31?<wbo9m
z$}JN;Eac{~|I93F?bSsUqJ^ikIsUary2fAT^c7uS*LkpoBb_Xpb@RJr6(Zt?joF_b
zrH}7v@%2OXyVp78_w|{+h-{2=+;+Efz1^AavA4{pytseA<f|=d1U0qP?~znq6P=V`
zcHVhh`4@ZQ4l~X~k{`EbuHE83XDVm$wC&DWTP!|bYy0W4wq@Fw=o4^?)%S7G<XN&W
z=TANEj_kM?vkS5#E_^henG<s928TAoot$O8wYD^e&7R>dwmiQrI-G!_3PfW=M`*I4
zdYEzuSlkOuKMV=Gr&dO7Z<#X*u_ve@7H;OW<CFh#nw(5X0(LIxn63YIhv(&>(An~;
zLt{D_WX*xSlDOiZnx$U(#jqsK-f^u-_fFA{Ll?4ZgfpLBNHtBJXHQ(%92=T&?Cg^B
zDq&`|XxMK>K{hR(<WGhdTt$yu>^KXXx0Z7Erp$(ScAQA6!Fwl>+e_R;cuiA%;Yv!?
z{l(3$S@$*yzKIo@;-B9O*sPU8t;x6~V#AZsA7w)mD0R@X10u70*GVDi>s?zj0`<;9
zWZoXFyLC&xeZDV*MEC2Pk$EGtCsJD3h<odrLdZd?7Zq4>1{c?&CSKeXhyuyLSc~)+
zKJ$fD&#=-}Y5ikjpp5;)9bC_)!9l|d$Y$v=S;L$3wufuAlyPRJ?aa)WhYd-)QXD7?
zA=tjt;pY=QM_1-%)#Ug54v|_H!@4y!CpI~C>byuJhjn%c-DQD={cBu+G-}JRZ@BL6
z<n@h{e`xbe_p!~zg3>5w5lKP#rQaf+iptF3ITl`~dov+BihcC+lai=wtc}Q|aR*X+
zopcLiy4pCt{+2-3(r+e%Hhx^N{BE`W*#oOysA54KC$FRNl(;}&dCf1qEbgxu$xpi-
zOV89E^qOm`8C`UJa^v+A0Vl7_E#5zu#HLL5w(8riIJ&IMD&n&P&QqZ;U2LhPW=g2T
zG}8x~CCJVA;u$;MX=@<w{`Fz{K$D0kOrCxubGWN+tS-d$yHQ^!WH5DK=C<m0)<A9@
z$IE%!&V^t7<Y@V!>Ci~z&eb_ZQQG~qymi9rV~^LlkZt*m*=IY-((e~j6DhrGOfLQ6
zSm*MzQ)5d}rH|^`YTa7B!!NoQB8r<WEtp98fNjv4-BSeW`BzRT+V-@%GA}>{x2w<n
z_B_y*vMl{fxoCu-ezawBR{DqE?BDxrwabTD$H#S+>Dn4*j#0N*^w$ecJr$4bD}K<|
zKAPH+vkxcQ9^Fo=+mXBy>6`lEl4n<cO<7e_xg63oLjI$WyzndSa5*snIvk*@-`rNj
zu3rDMlkKX6a|eBBr`nx<y4e0Od9_Q}r#HRQH=nyynO^hcv&(K{b#rWT*ahCW{HBO;
zPqJ9ukl}(->esRkdnlJrs&3r3$gNJ2Io<N}9~-D^pC^0tpBf<LpER9l@4Sux!-ymd
Lof%RwB_`u<k8JW4

literal 0
HcmV?d00001

diff --git a/games/sb/fish/zx02_optim.s b/games/sb/fish/zx02_optim.s
new file mode 100644
index 00000000..8b88caf8
--- /dev/null
+++ b/games/sb/fish/zx02_optim.s
@@ -0,0 +1,163 @@
+; De-compressor for ZX02 files
+; ----------------------------
+;
+; Decompress ZX02 data (6502 optimized format), optimized for speed and size
+;  138 bytes code, 58.0 cycles/byte in test file.
+;
+; Compress with:
+;    zx02 input.bin output.zx0
+;
+; (c) 2022 DMSC
+; Code under MIT license, see LICENSE file.
+
+
+;ZP=$80
+
+;offset          = ZP+0
+;ZX0_src         = ZP+2
+;ZX0_dst         = ZP+4
+;bitr            = ZP+6
+;pntr            = ZP+7
+
+            ; Initial values for offset, source, destination and bitr
+;zx0_ini_block:
+;            .byte $00, $00	; offset
+;comp_data:
+;		.byte $0, $0	; zx0_src
+;out_addr:
+;		.byte $0, $0	; zx0_dst
+;		.byte $80	; bitr
+
+;--------------------------------------------------
+; Decompress ZX0 data (6502 optimized format)
+
+	; destination page in A
+full_decomp:
+		sta	ZX0_dst+1
+
+		ldy	#$80
+		sty	bitr
+
+		ldy	#0		; always on page boundary
+		sty	ZX0_dst
+
+		sty	offset
+		sty	offset+1
+
+		; Y needs to be 0 here
+
+              ; Get initialization block
+;              ldy #7
+
+;copy_init:     lda zx0_ini_block-1, y
+ ;             sta offset-1, y
+  ;            dey
+   ;           bne copy_init
+
+; Decode literal: Ccopy next N bytes from compressed file
+;    Elias(length)  byte[1]  byte[2]  ...  byte[N]
+decode_literal:
+              jsr   get_elias
+
+cop0:         lda   (ZX0_src), y
+              inc   ZX0_src
+              bne   plus1
+              inc   ZX0_src+1
+plus1:             sta   (ZX0_dst),y
+              inc   ZX0_dst
+              bne   plus2
+              inc   ZX0_dst+1
+plus2:             dex
+              bne   cop0
+
+              asl   bitr
+              bcs   dzx0s_new_offset
+
+; Copy from last offset (repeat N bytes from last offset)
+;    Elias(length)
+              jsr   get_elias
+dzx0s_copy:
+              lda   ZX0_dst
+              sbc   offset  ; C=0 from get_elias
+              sta   pntr
+              lda   ZX0_dst+1
+              sbc   offset+1
+              sta   pntr+1
+
+cop1:
+              lda   (pntr), y
+              inc   pntr
+              bne   plus3
+              inc   pntr+1
+plus3:             sta   (ZX0_dst),y
+              inc   ZX0_dst
+              bne   plus4
+              inc   ZX0_dst+1
+plus4:             dex
+              bne   cop1
+
+              asl   bitr
+              bcc   decode_literal
+
+; Copy from new offset (repeat N bytes from new offset)
+;    Elias(MSB(offset))  LSB(offset)  Elias(length-1)
+dzx0s_new_offset:
+              ; Read elias code for high part of offset
+              jsr   get_elias
+              beq   exit  ; Read a 0, signals the end
+              ; Decrease and divide by 2
+              dex
+              txa
+              lsr   ; @
+              sta   offset+1
+
+              ; Get low part of offset, a literal 7 bits
+              lda   (ZX0_src), y
+              inc   ZX0_src
+              bne   plus5
+              inc   ZX0_src+1
+plus5:
+              ; Divide by 2
+              ror   ; @
+              sta   offset
+
+              ; And get the copy length.
+              ; Start elias reading with the bit already in carry:
+              ldx   #1
+              jsr   elias_skip1
+
+              inx
+              bcc   dzx0s_copy
+
+; Read an elias-gamma interlaced code.
+; ------------------------------------
+get_elias:
+              ; Initialize return value to #1
+              ldx   #1
+              bne   elias_start
+
+elias_get:    ; Read next data bit to result
+              asl   bitr
+              rol   ; @
+              tax
+
+elias_start:
+              ; Get one bit
+              asl   bitr
+              bne   elias_skip1
+
+              ; Read new bit from stream
+              lda   (ZX0_src), y
+              inc   ZX0_src
+              bne   plus6
+              inc   ZX0_src+1
+plus6:             ;sec   ; not needed, C=1 guaranteed from last bit
+              rol   ;@
+              sta   bitr
+
+elias_skip1:
+              txa
+              bcs   elias_get
+              ; Got ending bit, stop reading
+exit:
+              rts