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 3d5f058..9def452 100644 Binary files a/intro/tech_diff.xex and b/intro/tech_diff.xex differ 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 564f52f..c4335e7 100644 Binary files a/tdc.xex and b/tdc.xex differ