diff --git a/Doc/ChangeLog.txt b/Doc/ChangeLog.txt index a4e02563..105a66ca 100644 --- a/Doc/ChangeLog.txt +++ b/Doc/ChangeLog.txt @@ -4,6 +4,7 @@ Version 3.2.1 - WBW: Fixed SURVEY.COM (again) - DDW: Updates to DOS/65 binaries in disk images - PMS: Updates to VGMPLAY including support for YM2151 +- WBW: Fix for quark delay adjustment being trashed Version 3.2 ----------- diff --git a/Source/Apps/Tune/tune.asm b/Source/Apps/Tune/tune.asm index 994d113a..d5f05cb6 100644 --- a/Source/Apps/Tune/tune.asm +++ b/Source/Apps/Tune/tune.asm @@ -45,6 +45,7 @@ ; 2021-08-13 [WBW] Add support for LiNC Z50 Sound Card ; 2021-08-17 [WBW] When playing via HBIOS, call BF_SNDRESET at end ; 2022-03-20 [DDW] Add support for MBC PSG module +; 2023-03-30 [WBW] Fix for quark delay adjustment being trashed ;_______________________________________________________________________________ ; ; ToDo: @@ -301,6 +302,11 @@ GOPT3 LD A,0 ; SETUP value to PT3 sound files JR GOPTX ; Play PTx file GOPTX + LD HL,(QDLY) ; Get basic quark delay + OR A ; Clear carry + SBC HL,DE ; Adjust for file type + LD (QDLY),HL ; Save updated quark delay factor + CALL CRLF2 LD DE, MSGSONGNAME ; Print song name message CALL PRTSTR @@ -322,10 +328,6 @@ GOPTX2 LD A,(DE) CALL CRLF2 ; Formatting LD DE,MSGPLY ; Playing message CALL PRTSTR ; Print message - LD HL,(QDLY) ; Get basic quark delay - OR A ; Clear carry - SBC HL,DE ; Adjust for file type - LD (QDLY),HL ; Save updated quark delay factor CALL START ; Do initialization PTXLP CALL START+5 ; Play one quark LD A,(START+10) ; Get setup byte @@ -655,8 +657,8 @@ TMP .DB 0 ; work around use of undocumented Z80 HBIOSMD .DB 0 ; NON-ZERO IF USING HBIOS SOUND DRIVER, ZERO OTHERWISE OCTAVEADJ .DB 0 ; AMOUNT TO ADJUST OCTAVE UP OR DOWN -MSGBAN .DB "Tune Player for RomWBW v3.5, 20-Mar-2022",0 -MSGUSE .DB "Copyright (C) 2021, Wayne Warthen, GNU GPL v3",13,10 +MSGBAN .DB "Tune Player for RomWBW v3.5a, 30-Mar-2023",0 +MSGUSE .DB "Copyright (C) 2023, Wayne Warthen, GNU GPL v3",13,10 .DB "PTxPlayer Copyright (C) 2004-2007 S.V.Bulba",13,10 .DB "MYMPlay by Marq/Lieves!Tuore",13,10,13,10 .DB "Usage: TUNE .[PT2|PT3|MYM] [--hbios] [+tn|-tn]",0 diff --git a/Source/ver.inc b/Source/ver.inc index 5bd3ddd3..8d5d1e1d 100644 --- a/Source/ver.inc +++ b/Source/ver.inc @@ -2,7 +2,7 @@ #DEFINE RMN 2 #DEFINE RUP 1 #DEFINE RTP 0 -#DEFINE BIOSVER "3.2.1-dev.3" +#DEFINE BIOSVER "3.2.1-dev.4" #define rmj RMJ #define rmn RMN #define rup RUP diff --git a/Source/ver.lib b/Source/ver.lib index 6f85fecc..d0dd1e05 100644 --- a/Source/ver.lib +++ b/Source/ver.lib @@ -3,5 +3,5 @@ rmn equ 2 rup equ 1 rtp equ 0 biosver macro - db "3.2.1-dev.3" + db "3.2.1-dev.4" endm