MirrorRepos/RomWBW
1
0
Fork 1
mirror of https://github.com/wwarthen/RomWBW.git synced 2026-02-06 14:11:48 -06:00
Code Issues Projects Releases Wiki Activity

Fix BPBIOS Disk I/O

Browse Source
This commit is contained in:
Wayne Warthen
2020-02-05 14:04:17 -08:00
parent 6828269137
commit 2c3ebee6ca
4 changed files with 44 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

59
Source/Apps/Tune/Tune.asm
View File

@@ -747,8 +747,8 @@ FILTYP .DB 0 ; Sound file type (TYPPT2, TYPPT3, TYPMYM)
TMP .DB 0 ; work around use of undocumented Z80
;
MSGBAN .DB "Tune Player for RomWBW v2.2, 21-Nov-2019",0
MSGUSE .DB "Copyright (C) 2019, Wayne Warthen, GNU GPL v3",13,10
MSGBAN .DB "Tune Player for RomWBW v2.2a, 02-Feb-2020",0
MSGUSE .DB "Copyright (C) 2020, 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 <filename>.[PT2|PT3|MYM]",0
@@ -2629,47 +2629,47 @@ HEAP .EQU $
VARS
ChanA .DS CHP
ChanB .DS CHP
ChanC .DS CHP
ChanA .DS CHP
ChanB .DS CHP
ChanC .DS CHP
;GlobalVars
DelyCnt .DS 1
CurESld .DS 2
CurEDel .DS 1
DelyCnt .DS 1
CurESld .DS 2
CurEDel .DS 1
Ns_Base_AddToNs
Ns_Base .DS 1
AddToNs .DS 1
Ns_Base .DS 1
AddToNs .DS 1
AYREGS
VT_ .DS 256 ;CreatedVolumeTableAddress
VT_ .DS 256 ;CreatedVolumeTableAddress
EnvBase .EQU VT_+14
EnvBase .EQU VT_+14
T1_ .EQU VT_+16 ;Tone tables data depacked here
T1_ .EQU VT_+16 ;Tone tables data depacked here
T_OLD_1 .EQU T1_
T_OLD_2 .EQU T_OLD_1+24
T_OLD_3 .EQU T_OLD_2+24
T_OLD_0 .EQU T_OLD_3+2
T_NEW_0 .EQU T_OLD_0
T_NEW_1 .EQU T_OLD_1
T_NEW_2 .EQU T_NEW_0+24
T_NEW_3 .EQU T_OLD_3
T_OLD_1 .EQU T1_
T_OLD_2 .EQU T_OLD_1+24
T_OLD_3 .EQU T_OLD_2+24
T_OLD_0 .EQU T_OLD_3+2
T_NEW_0 .EQU T_OLD_0
T_NEW_1 .EQU T_OLD_1
T_NEW_2 .EQU T_NEW_0+24
T_NEW_3 .EQU T_OLD_3
PT2EMPTYORN .EQU VT_+31 ;1,0,0 sequence
PT2EMPTYORN .EQU VT_+31 ;1,0,0 sequence
NT_ .FILL 192 ;CreatedNoteTableAddress
NT_ .DS 192 ;CreatedNoteTableAddress
;local var
Ampl .EQU AYREGS+AmplC
Ampl .EQU AYREGS+AmplC
VAR0END .EQU VT_+16 ;INIT zeroes from VARS to VAR0END-1
VAR0END .EQU VT_+16 ;INIT zeroes from VARS to VAR0END-1
VARSEND .EQU $
VARSEND .EQU $
MDLADDR .EQU $
MDLADDR .EQU $
;
;===============================================================================
; MYM Player Storage
@@ -2678,10 +2678,11 @@ MDLADDR .EQU $
.ORG HEAP
; Reserve room for uncompressed data
uncomp:
.org $+(3*FRAG*REGS)
.DS (3*FRAG*REGS)
; The tune is stored here
rows: .dw 0
rows:
.DS 2 ; WORD value
data:
;
;===============================================================================

22
Source/BPBIOS/Build.cmd
View File

@@ -26,22 +26,22 @@ call :makebp 41nbnk
rem pause
cpmrm.exe -f wbw_hd0 ../../Binary/hd0.img 0:ws*.*
cpmrm.exe -f wbw_hd0 ../../Binary/hd_bp.img 0:ws*.*
cpmrm.exe -f wbw_hd0 ../../Binary/hd0.img 0:*.img
cpmcp.exe -f wbw_hd0 ../../Binary/hd0.img *.img 0:
cpmrm.exe -f wbw_hd0 ../../Binary/hd_bp.img 0:*.img
cpmcp.exe -f wbw_hd0 ../../Binary/hd_bp.img *.img 0:
cpmrm.exe -f wbw_hd0 ../../Binary/hd0.img 0:*.rel
cpmcp.exe -f wbw_hd0 ../../Binary/hd0.img *.rel 0:
cpmrm.exe -f wbw_hd0 ../../Binary/hd_bp.img 0:*.rel
cpmcp.exe -f wbw_hd0 ../../Binary/hd_bp.img *.rel 0:
rem cpmrm.exe -f wbw_hd0 ../../Binary/hd0.img 0:*.dat
rem cpmcp.exe -f wbw_hd0 ../../Binary/hd0.img *.dat 0:
rem cpmrm.exe -f wbw_hd0 ../../Binary/hd_bp.img 0:*.dat
rem cpmcp.exe -f wbw_hd0 ../../Binary/hd_bp.img *.dat 0:
cpmrm.exe -f wbw_hd0 ../../Binary/hd0.img 0:*.zex
cpmcp.exe -f wbw_hd0 ../../Binary/hd0.img *.zex 0:
cpmrm.exe -f wbw_hd0 ../../Binary/hd_bp.img 0:*.zex
cpmcp.exe -f wbw_hd0 ../../Binary/hd_bp.img *.zex 0:
cpmrm.exe -f wbw_hd0 ../../Binary/hd0.img 0:myterm.z3t
cpmcp.exe -f wbw_hd0 ../../Binary/hd0.img myterm.z3t 0:myterm.z3t
cpmrm.exe -f wbw_hd0 ../../Binary/hd_bp.img 0:myterm.z3t
cpmcp.exe -f wbw_hd0 ../../Binary/hd_bp.img myterm.z3t 0:myterm.z3t
goto :eof

3
Source/BPBIOS/hardhb.z80
View File

@@ -189,7 +189,8 @@ HDSK_RW1:
POP BC ; RESTORE INCOMING FUNCTION, DEVICE/UNIT
RET NZ ; ABORT IF SEEK RETURNED AN ERROR W/ ERROR IN A
LD HL,(HB_DSKBUF) ; GET BUFFER ADDRESS
LD DE,1 ; TRANSFER ONE SECTOR
LD D,BID_HB ; BUFFER IN HBIOS BANK
LD E,1 ; ONE SECTOR
CALL HBX_INVOKE ; DO IT
OR A ; SET FLAGS
RET Z ; DONE IF NO ERROR

1
Source/Images/Build.cmd
View File

@@ -33,3 +33,4 @@ call BuildHD.cmd nzcom zsys_wbw
call BuildHD.cmd cpm3
call BuildHD.cmd zpm3
call BuildHD.cmd ws4
call BuildHD.cmd bp