From 7088e025273fe3b0ff3533a878d9604e626765d9 Mon Sep 17 00:00:00 2001
From: Pecusx <Pecus@poczta.fm>
Date: Thu, 20 Apr 2023 21:07:08 +0200
Subject: [PATCH] "Stereo" in game.

---
 artwork/sfx/rmtplayr_modified.asm |  39 +++++++++++++++++-------------
 scorch.bin                        | Bin 32768 -> 32768 bytes
 scorch.xex                        | Bin 56583 -> 56586 bytes
 3 files changed, 22 insertions(+), 17 deletions(-)

diff --git a/artwork/sfx/rmtplayr_modified.asm b/artwork/sfx/rmtplayr_modified.asm
index 003018d..506b580 100644
--- a/artwork/sfx/rmtplayr_modified.asm
+++ b/artwork/sfx/rmtplayr_modified.asm
@@ -616,28 +616,33 @@ qq3
 qq5
 	stx v_audctl
 rmt_p5
-	lda v_ainstrspeed
-
+;	lda v_ainstrspeed
+.IF TARGET = 800
+	ldx #$10				; pseudo stereo
+	bne SetPokey_OffsetX	; pseudo stereo
+.ELSE
 	rts
+.ENDIF
 SetPokey
-	ldy v_audctl
-
+	ldx #0	; POKEY registers offset (for stereo)
+SetPokey_OffsetX
 	lda trackn_audf+0
-	ldx trackn_audc+0
-	sta AUDF1
-	stx AUDC1
+	sta AUDF1,x
+	lda trackn_audc+0
+	sta AUDC1,x
 	lda trackn_audf+1
-	ldx trackn_audc+1
-	sta AUDF2
-	stx AUDC2
+	sta AUDF2,x
+	lda trackn_audc+1
+	sta AUDC2,x
 	lda trackn_audf+2
-	ldx trackn_audc+2
-	sta AUDF3
-	stx AUDC3
+	sta AUDF3,x
+	lda trackn_audc+2
+	sta AUDC3,x
 	lda trackn_audf+3
-	ldx trackn_audc+3
-	sta AUDF4
-	stx AUDC4
-	sty AUDCTL
+	sta AUDF4,x
+	lda trackn_audc+3
+	sta AUDC4,x
+	lda v_audctl
+	sta AUDCTL,x
 	rts
 RMTPLAYEREND
diff --git a/scorch.bin b/scorch.bin
index 92ee358b7126e0d70cf32986e7356a41111e456a..3f2622f968573e27b6a1e157df6961e23b2de41d 100644
GIT binary patch
delta 83
zcmV-Z0IdIjfC7Mk0<aBi0a3FKY|{Y&QM2N0ZUHu6q5!S(8l3>^t@aw70qd>v8l3{`
pt@j$81M98y8l42|t@s+91?#Q#8l48~t@#?A2kWKzowJ5-dJqU`C@BB{

delta 83
zcmV-Z0IdIjfC7Mk0<aBi0aLRMY|{Y&Q?uf2ZUHu>`e3B_t@0YK_8N@<>y82It@9eL
p_Zp1?>y88Kt@IkM_!^A_>y8EMt@RqN`5KJ|>y8KOjI)MsdJs@iD4+lU

diff --git a/scorch.xex b/scorch.xex
index 8131b04af994dad5aae5c584609cde4a8e92f6ef..68497d18339444a6910bc52123ae86dde4f455dc 100644
GIT binary patch
delta 129
zcmV-{0Dk|6x&w;31F*({0gSW9fm9j+<g*-{1}p;iualu77?V86^#N3~GRe~c0aUXF
z%WeTiq7cvmq5!S(8l3>rt@aw70n)AW8l3{tt@j$81JbSZ8l42vt@s+91=6kc8l48x
jt@#?A2hyeaoe0ukpa-RE3JMCUxw(_K%ufNqqX*3p6E!@v

delta 126
zcmV-^0D=FCx&w#01F*({0g1E6fm9j+;j<i^1}p;fualu77?V86^#N0}GRe~c0aLRE
z%WeTfrTSo``K|IAuJ#&@0Md>D(yj9vuJ;;^0@98H(yjCwuJ{^_1k#QL(yjFxuK5~`
g2GWiP(u@ewV4w%3YYGYqs=2n4y39`jzM~4w5XGuH^#A|>