stereo fix

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 :)

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

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