From d0acb581318aed269e4605f1ba0e6acf4c668cb2 Mon Sep 17 00:00:00 2001
From: pkali <pawel.kalinowski@gmail.com>
Date: Tue, 20 Aug 2024 08:29:14 -0400
Subject: [PATCH] stereo fix

---
 dino.asm            |   2 +-
 intro/tech_diff.asm |   5 -----
 intro/tech_diff.xex | Bin 29244 -> 29239 bytes
 music/playlzs16.asm |  14 +++++++-------
 tdc.xex             | Bin 37753 -> 37764 bytes
 5 files changed, 8 insertions(+), 13 deletions(-)

diff --git a/dino.asm b/dino.asm
index 0cdd534..504c958 100644
--- a/dino.asm
+++ b/dino.asm
@@ -30,11 +30,11 @@ swap_table=$0600    ; table for swap bytes in left characters :)
     icl 'lib/MACRO.ASM'
 ;---------------------------------------------------
     .IF ALONE =1
-        ; dark screean and BASIC off
         org $2000
 PLAYER
         icl 'music/playlzs16.asm'  ; Music Player
         ORG $3000
+        ; dark screean and BASIC off
         mva #0 dmactls             ; dark screen
         mva #$ff portb
         ; and wait one frame :)
diff --git a/intro/tech_diff.asm b/intro/tech_diff.asm
index 37fc053..ae0e9fd 100644
--- a/intro/tech_diff.asm
+++ b/intro/tech_diff.asm
@@ -26,11 +26,6 @@ PLAYER
 ;---------------------------------------------------
     ORG $2c00
 start1
-    ;POKEY_INIT
-      mva #0 AUDCTL
-      sta AUDCTL+$10
-      mva #3 SKSTAT
-      sta SKSTAT+$10
     mva #$ff portb
     mwa #DL_pre dlptrs
     lda #@dmactl(narrow|dma)  ; narrow screen width, DL on
diff --git a/intro/tech_diff.xex b/intro/tech_diff.xex
index 3d5f05818afe2171538c552451407e121e80eccb..9def45200c6dcded0c879ec2bc979b7393666e98 100644
GIT binary patch
delta 371
zcmXv}ze@sf9KG*d)(wHzP)P)Sq-Z*?`VVSxa%c%cP%LP$A(~n>@*6aKK`{{|!Hyih
z!+}4FmK+uCT)te{Y;`oHh=aeD>nP$q-kaXzy=MzOSt#XQe1%{PC`Uw-cuXn~w@JKa
zdfgYN2v0qwP7DzPO7Ag_w1E0Z7*w&yfer=EEVSXqBDSv=21EKz4wK`kD%RUjkW51w
zQ6C-^xk?95R536q%a0aY3QXColRd#xN6YSP*RibiW(~U!-OBKO{8ySDevOQ{)cP80
zEogi)mu5iYBPD<UQO&k{1~8%5f+#27DbyzDg;vQHPi3;rI}0~?=S`C*D~!5HgNM8f
zM~dcU`W!pf+@?P2M|7KoG>P^1sfiO*#urq@m@4?n*_-HtewbR-GY3eT4Jr7t9?6^{
z&w`)LloI-&p9}8E5LY0d$)U9+RpI!vUvm6EcB?gpu90gnzp>-bM1*B@TRRt;r#~!l
BtC0Wz

delta 353
zcmXv}JxD@P7`^vB1!>Vqj0!(#3gppH(G;{hgj-8IY0^QewV@|^g@#+2Nt5u9gsvp`
z6SU+Hg28((@`7f69uFEcCleRD1bydl&T`Iy@72U_CQf<n8U#)tz2iH`J90Yct_8zn
z;VJaPm^Ps>2qW48=A%K#J5&S>$RXq2q)Xo<$iv@>Sz<2d9d$i@1E&p$kOhyFo!K$B
ztodoq#xLW_>~YRpd_6t0esovYnwMJ88TIU?CUk}=5k!zn%jKjAJ#o?k8Tl&`L)2kV
zkHJLhG^p2LONu{OJA?6>t>}k~4B*w{AyJs0#8{OOCXu9yD#{eJP-<PfEPJNz{jbnd
zX~ozQi}i>^;`OLR5|y}$(!^4Ff)%p}*JL54Nj+OZ(S+$kK=#9}1jWo9-gH+bB%J*b
o3I8~3*Sh!`ZwTvqM-o4VNS|$!0lOkYwo69*74^AxF1|;90k1luR{#J2

diff --git a/music/playlzs16.asm b/music/playlzs16.asm
index 6e2d073..550fb3f 100644
--- a/music/playlzs16.asm
+++ b/music/playlzs16.asm
@@ -45,7 +45,12 @@ bit_data    .ds     1
 ; Song Initialization - this runs in the first tick:
 ;
 .proc init_song
-
+    ;POKEY_INIT
+      mva #0 AUDCTL
+      sta AUDCTL+$10
+      mva #3 SKSTAT
+      sta SKSTAT+$10
+      
     ;clear buffers
     lda #0
     tax
@@ -54,12 +59,6 @@ bit_data    .ds     1
     inx
     bne @-
     
-    ;clear pokey_save
-    ldx #8
-@   sta pokey_save,x
-    dex
-    bpl @-
-    
     mva #1 bit_data
 
     ; here initializes song pointer:
@@ -73,6 +72,7 @@ clear
     ; Read just init value and store into buffer and POKEY
     jsr get_byte
     sta POKEY, x
+    sta pokey_save,x
     sty chn_copy, x
 cbuf
     sta buffers + 255
diff --git a/tdc.xex b/tdc.xex
index 564f52f8c3d0fe66c728140bc28e3cdaacf2df4d..c4335e70cc158bee34621f20914f5e6c14f78326 100644
GIT binary patch
delta 198
zcmXAhy$XU*7(j1I;g(C$)+aRf98JA~&}uKyqT>aP90ienxPzcjV`D?tMK0BBB|?yn
z{w*f7oHLzM?K$<p>Epo-<_Zvm1%^kA@VL+Lm>CmkMLJqN+C@qSQ`kKfgaaTFmcbEh
z1Xr*Sv+l5oaU*3iQ1PqgYPoQP^BpXaQL!MBR@lgow8{}?l{Y=b;c!-my|!IybxW^r
wrmf8Q5$EYK_494{pBi~mP!NNpbOX4&!>&u=^3r+WVc|ASMj_<0!2js$A61HINB{r;

delta 158
zcmV;P0Ac@xrvmw=0+1gC$skN#Adxg7KB5Sn${@-R`l$hh`WU6)X#tJDAf@4H0FA&P
zsUeM0AfgDM03f~~odD95<c<F!?ouGi5buQcg!o{h2))XYjvz+9AZmsBAif~550&j8
zz95z4*5vl>wC%C>r1+fx(w)j6k@n{I$`H%u_^rSo#pBQgt-m0};*bL%10Z0n|Nrj4
MAkYKuz_Ij@l9^CbKL7v#