From 6685ef1203e14b85067d73d128892696fcf71353 Mon Sep 17 00:00:00 2001
From: Pecusx <Pecus@poczta.fm>
Date: Thu, 20 Apr 2023 10:38:46 +0200
Subject: [PATCH] "Stereo" (splash screen only)

---
 scorch.xex                | Bin 56548 -> 56580 bytes
 splash_v2/lzss_player.asm |  21 ++++++++++++++++++++-
 2 files changed, 20 insertions(+), 1 deletion(-)

diff --git a/scorch.xex b/scorch.xex
index 4ad57c66c3b5fc3c0bd167f971c6f683e073835a..d00ea65c4bf0a4a4f68f665346cda75d8817885c 100644
GIT binary patch
delta 217
zcmV;~04D$BxdVi{1F()ae^_g&1C0;TjUUpf0fm;L2%rEUO>3P1(wz{}omp#?fQ`&z
z?(J&I5b1=Hgp^>V6vY(q{GtfGS!<mT(#jC`sbPhatteE5m7)knm9Q+efY263me2+u
zO>1g}mLN@Qun(1qAWdtPfYyNaiL{BalBATK0MeaVYmt)Xlgbdw6Xuj)ttnLQPHWHu
z?oVrAVr#6Bk~kj%0FaX*IF$*jkj<=+NN6CMv%ffWBpv^1OoMCY3g!y#tdQ#NtdJn9
TknXIIU;yF*;{sx{P+gRNS|e!f

delta 198
zcmV;%06G7Jx&!371F()ae}|B%0fm;L2%rEUF>9Rw(v*OW%wq1}YRVArgp!1mV5Jnr
z6!841VTF^eC{%@&q6kKnuqm~G&=y9P&;}qeYifm-ATevO50!}^F>958)`0ejw285j
zq?DZi(vgzplgbdz=9FNqDOBz<YtRGkGizWV&1$JjjR(}J1C1TflPx$B0^5(1K{%BO
zhLFvNkVt4Cb+g|%bR-?|YD`{h<_hKt?uU@-?uU>dhLG-ukYE7f0^<Tbvv6IMe+V*O
A`Tzg`

diff --git a/splash_v2/lzss_player.asm b/splash_v2/lzss_player.asm
index 4685f5d..6a0bdfd 100644
--- a/splash_v2/lzss_player.asm
+++ b/splash_v2/lzss_player.asm
@@ -6,12 +6,19 @@ song_end
 
 buffers
     .ds 256 * 9
+	
+POKEY2 = POKEY+$10	; stereo
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; Song Initialization - this runs in the first tick:
 ;
 .proc init_song
 
+; pokeys init
+	lda #3	; stereo
+	sta POKEY+$0f ; stereo
+	sta POKEY2+$0f ; stereo
+
     mva #1 bit_data
 
     ; Example: here initializes song pointer:
@@ -25,6 +32,8 @@ clear
     ; Read just init value and store into buffer and POKEY
     jsr get_byte
     sta POKEY, x
+	sta POKEY2,x	; stereo
+	sta stereo_buff,x ; stereo
     sty chn_copy, x
 cbuf
     sta buffers + 255
@@ -53,6 +62,12 @@ delay
 ; Play one frame of the song
 ;
 .proc play_frame
+	ldx #8	; stereo
+@	lda stereo_buff,x	; stereo
+	sta POKEY2,x	; stereo
+	dex	;stereo
+	bpl @-	; stereo
+	
     lda #>buffers
     sta bptr+1
 
@@ -94,7 +109,8 @@ do_copy_byte:
 
 store:
     ldy cur_pos
-    sta POKEY, x        ; Store to output and buffer
+    sta POKEY,x        ; Store to output and buffer
+	sta stereo_buff,x	; stereo
     sta (bptr), y
 
 skip_chn:
@@ -132,3 +148,6 @@ skip
     rts
 .endp
 
+stereo_buff	; stereo
+	.ds 9	; stereo
+	
\ No newline at end of file