stereo fix

README.md

@@ -1,16 +1,21 @@
-Technical Difficulties No Internet (aka The Dino Crisis)
+# Technical Difficulties No Internet (aka The Dino Crisis)
 Warsaw, Miami 2024
 
-A very small entry to (SV2K24SE)[https://sillyventure.eu/en/].
+A very small entry to [SV2K24SE](https://sillyventure.eu/en/).
+
 Code: [Pecus](https://github.com/Pecusx) and [pirx](https://github.com/pkali)
+
 Msx: Alex and Jochen Hippel
 
 Used portions of LZSS player by [DMSC](https://github.com/dmsc/lzss-sap)
 
 Assembly:
-`mads dino.asm -o:dino_.xex -d:ALONE=0`
-`mads intro/tech_diff.asm -o:tech_diff.xex`
-`cat intro/tech_diff.xex dino_.xex > tdc.xex; rm dino_.xex`
+```
+mads dino.asm -o:dino_.xex -d:ALONE=0
+mads intro/tech_diff.asm -o:tech_diff.xex
+cat intro/tech_diff.xex dino_.xex > tdc.xex; rm dino_.xex
+```
 
 Stand-alone game (no intro):
-`mads dino.asm -o:dino.xex -d:ALONE=1`
+```
+mads dino.asm -o:dino.xex -d:ALONE=1```

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 :)
@@ -137,6 +137,7 @@ NewGame
     jsr SetStatusToR
     jsr SetStart        
     jsr WorldToScreen
+    mva #>font4 chbas
     jsr FadeColorsIN
     jsr PlayInGameMusic
     jsr GameR
@@ -148,6 +149,7 @@ NewGame
     jsr SetStatusToL
     jsr SetStart        
     jsr WorldToScreen
+    mva #>font4l chbas
     jsr FadeColorsIN
     jsr PlayInGameMusic
     jsr GameL

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