2023-03-09 21:35:56 -08:00
|
|
|
|
;
|
|
|
|
|
; Impulse Tracker VSound Driver
|
|
|
|
|
;
|
|
|
|
|
; Client for VSound.VxD to interface with Windows.
|
|
|
|
|
; Output is always 16-bit stereo, 44100Hz.
|
|
|
|
|
;
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
STEREOENABLED EQU 1
|
|
|
|
|
MIXRESOLUTION EQU 32 ; 32 bit mixing
|
|
|
|
|
OUTPUTFILTERENABLED EQU 0
|
|
|
|
|
TIMERCONST EQU 11932 ; 100 times a second
|
|
|
|
|
MIXTABLESIZE EQU 2*256*65
|
|
|
|
|
DMABUFFERLENGTH EQU 0 ; Does not have a DMA buffer in the mixsegment
|
|
|
|
|
|
|
|
|
|
.386P
|
|
|
|
|
|
|
|
|
|
Segment DriverHeader PARA Public 'Code' Use16
|
|
|
|
|
Assume CS:Driver, DS:Nothing
|
|
|
|
|
|
|
|
|
|
;***** Driver Header *******
|
|
|
|
|
|
|
|
|
|
include drhead.inc
|
|
|
|
|
|
|
|
|
|
EndS
|
|
|
|
|
|
|
|
|
|
Segment Driver PARA Public 'Code' Use16
|
|
|
|
|
Assume CS:Driver, DS:Nothing
|
|
|
|
|
|
|
|
|
|
ORG 0
|
|
|
|
|
StartDriver:
|
|
|
|
|
|
|
|
|
|
include vtable.inc
|
|
|
|
|
|
|
|
|
|
;******** Required ProcedureTable *************
|
|
|
|
|
|
|
|
|
|
include reqproc.inc
|
|
|
|
|
|
|
|
|
|
; <20><> Variables <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
OldTimerIRQHandler DD 0
|
|
|
|
|
TimerAccumulator DW 0
|
|
|
|
|
|
|
|
|
|
VSoundNoMemoryMsg DB "Impulse Tracker VSound Driver", 13
|
|
|
|
|
DB "Error: Insufficient memory", 0
|
|
|
|
|
VSoundDriverMsg DB "Impulse Tracker VSound Driver", 0
|
|
|
|
|
|
|
|
|
|
NoReinitMsg DB "VSound driver should NOT require reinitialisation ", 0
|
|
|
|
|
|
|
|
|
|
VSoundIDBuffer DB 8 Dup (0)
|
|
|
|
|
VSoundID DB "ITVXDDRV"
|
|
|
|
|
|
|
|
|
|
DefaultDriverName DB "ITVSOUND.DRV"
|
|
|
|
|
DriverName DD 0
|
|
|
|
|
|
|
|
|
|
Forced DB 0
|
|
|
|
|
Stereo DB 0
|
|
|
|
|
MixVolume DW 0
|
|
|
|
|
MixSegment DW 0
|
|
|
|
|
|
|
|
|
|
BytesToMix DW 1000
|
|
|
|
|
MixTransferOffset DW 0
|
|
|
|
|
MixTransferRemaining DW 0
|
|
|
|
|
CONFIGURATIONOFFSET EQU $+128
|
|
|
|
|
CONFIGSIZE EQU 4
|
|
|
|
|
MixMode DW 0
|
|
|
|
|
MixModeOffset DW 0
|
|
|
|
|
|
|
|
|
|
VSoundScreenList Label
|
|
|
|
|
DW 6
|
|
|
|
|
DW Near Ptr IdleFunctionList
|
|
|
|
|
DW Near Ptr GlobalKeyLink
|
|
|
|
|
|
|
|
|
|
DW Near Ptr FullScreenBox ; 0
|
|
|
|
|
DW Near Ptr ScreenHeader
|
|
|
|
|
DW Near Ptr FillHeader
|
|
|
|
|
DW Near Ptr VSoundHeaderLine
|
|
|
|
|
|
|
|
|
|
DW Near Ptr DriverText
|
|
|
|
|
|
|
|
|
|
DW Near Ptr MixModeText
|
|
|
|
|
DW Near Ptr MixModeButton1 ; 6
|
|
|
|
|
DW Near Ptr MixModeButton2 ;
|
|
|
|
|
DW Near Ptr MixModeButton3 ; 8
|
|
|
|
|
DW Near Ptr MixModeButton4 ; 9
|
|
|
|
|
|
|
|
|
|
DW Near Ptr ServerText
|
|
|
|
|
DW Near Ptr FrequencyText
|
|
|
|
|
|
|
|
|
|
DW 0
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
VSoundHeaderLine DW 10
|
|
|
|
|
DB "Virtual Sound Driver", 0
|
|
|
|
|
|
|
|
|
|
ServerText DW 1
|
|
|
|
|
DB 2, 47
|
|
|
|
|
DB 21h
|
|
|
|
|
VSoundString DB 64 Dup (0)
|
|
|
|
|
|
|
|
|
|
FrequencyText DW 1
|
|
|
|
|
DB 2, 48
|
|
|
|
|
DB 21h
|
|
|
|
|
DB "Playback Frequency: ", 0FDh, "DHz, Buffer Threshold: ", 0FDh, "D bytes", 0
|
|
|
|
|
Threshold DW 21*1024
|
|
|
|
|
MixSpeed DW 44100
|
|
|
|
|
DW 0
|
|
|
|
|
|
|
|
|
|
DriverText DW 1
|
|
|
|
|
DB 2, 46
|
|
|
|
|
DB 21h
|
|
|
|
|
DB "Virtual Sound Driver 1.0 for Impulse Tracker", 0
|
|
|
|
|
|
|
|
|
|
GlobalKeyLink DB 7
|
|
|
|
|
GlobalKeyLink2 DD 0
|
|
|
|
|
|
|
|
|
|
IdleFunctionList DD 0
|
|
|
|
|
DD 0
|
|
|
|
|
|
|
|
|
|
FillHeader DW 8
|
|
|
|
|
FillHeader2 DD 0
|
|
|
|
|
|
|
|
|
|
FullScreenBox DW 0
|
|
|
|
|
DB 0, 0, 79, 49
|
|
|
|
|
DB 4
|
|
|
|
|
|
|
|
|
|
ScreenHeader DW 8
|
|
|
|
|
ScreenHeader2 DD 0
|
|
|
|
|
|
|
|
|
|
MixModeText DW 1
|
|
|
|
|
DB 2, 14
|
|
|
|
|
DB 20h
|
|
|
|
|
DB "Mixing Mode", 0
|
|
|
|
|
|
|
|
|
|
MixModeButton1 DW 2
|
|
|
|
|
DW 0FFFFh, 7, 0FFFFh, 0FFFFh
|
|
|
|
|
DW 0
|
|
|
|
|
DW 0, 0
|
|
|
|
|
DW 6
|
|
|
|
|
DW Offset GetMixMode
|
|
|
|
|
DriverSegment1 DW 0
|
|
|
|
|
DW 0
|
|
|
|
|
DW Offset SetMixMode
|
|
|
|
|
DriverSegment2 DW 0
|
|
|
|
|
DB 3, 16, 32, 18, 8
|
|
|
|
|
DB 0
|
|
|
|
|
DB " 16 Bit, Non-Interpolated", 0
|
|
|
|
|
|
|
|
|
|
MixModeButton2 DW 2
|
|
|
|
|
DW 6, 8, 0FFFFh, 0FFFFh
|
|
|
|
|
DW 0
|
|
|
|
|
DW 0, 0
|
|
|
|
|
DW 6
|
|
|
|
|
DW Offset GetMixMode
|
|
|
|
|
DriverSegment3 DW 0
|
|
|
|
|
DW 2
|
|
|
|
|
DW Offset SetMixMode
|
|
|
|
|
DriverSegment4 DW 0
|
|
|
|
|
DB 3, 19, 32, 21, 8
|
|
|
|
|
DB 0
|
|
|
|
|
DB " 16 Bit, Interpolated", 0
|
|
|
|
|
|
|
|
|
|
MixModeButton3 DW 2
|
|
|
|
|
DW 7, 9, 0FFFFh, 0FFFFh
|
|
|
|
|
DW 0
|
|
|
|
|
DW 0, 0
|
|
|
|
|
DW 6
|
|
|
|
|
DW Offset GetMixMode
|
|
|
|
|
DriverSegment5 DW 0
|
|
|
|
|
DW 4
|
|
|
|
|
DW Offset SetMixMode
|
|
|
|
|
DriverSegment6 DW 0
|
|
|
|
|
DB 3, 22, 32, 24, 8
|
|
|
|
|
DB 0
|
|
|
|
|
DB " 32 Bit, Non-Interpolated", 0
|
|
|
|
|
|
|
|
|
|
MixModeButton4 DW 2
|
|
|
|
|
DW 8, 0FFFFh, 0FFFFh, 0FFFFh
|
|
|
|
|
DW 0
|
|
|
|
|
DW 0, 0
|
|
|
|
|
DW 6
|
|
|
|
|
DW Offset GetMixMode
|
|
|
|
|
DriverSegment7 DW 0
|
|
|
|
|
DW 6
|
|
|
|
|
DW Offset SetMixMode
|
|
|
|
|
DriverSegment8 DW 0
|
|
|
|
|
DB 3, 25, 32, 27, 8
|
|
|
|
|
DB 0
|
|
|
|
|
DB " 32 Bit, Interpolated", 0
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
; <20><> MixingRoutines <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
MixBufferPos DW 0
|
|
|
|
|
|
|
|
|
|
include mix.inc
|
|
|
|
|
include m12bit.mix
|
|
|
|
|
include m12biti.mix
|
|
|
|
|
include m32bit.mix
|
|
|
|
|
include m32biti.mix
|
|
|
|
|
|
|
|
|
|
ALIGN 2
|
|
|
|
|
|
|
|
|
|
MixFunctionTables Label
|
|
|
|
|
|
|
|
|
|
include m12bit.inc ; contains the tables
|
|
|
|
|
include m12biti.inc
|
|
|
|
|
include m32bit.inc
|
|
|
|
|
include m32biti.inc
|
|
|
|
|
|
|
|
|
|
include nodebug.inc
|
|
|
|
|
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
RelocationTable Label Word
|
|
|
|
|
DW Offset DriverSegment1, Offset DriverSegment2
|
|
|
|
|
DW Offset DriverSegment3, Offset DriverSegment4
|
|
|
|
|
DW Offset DriverSegment5, Offset DriverSegment6
|
|
|
|
|
DW Offset DriverSegment7, Offset DriverSegment8
|
|
|
|
|
DW 0
|
|
|
|
|
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
Proc GetMixMode Far
|
|
|
|
|
|
|
|
|
|
Push CS
|
|
|
|
|
Pop ES
|
|
|
|
|
Mov DI, Offset MixMode
|
|
|
|
|
|
|
|
|
|
Ret
|
|
|
|
|
|
|
|
|
|
EndP GetMixMode
|
|
|
|
|
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
Proc SetMixMode Far
|
|
|
|
|
|
|
|
|
|
Mov AX, [SI+22]
|
|
|
|
|
|
|
|
|
|
ClI
|
|
|
|
|
|
|
|
|
|
Mov CS:MixMode, AX
|
|
|
|
|
|
|
|
|
|
Mov BX, 180
|
|
|
|
|
Mul BX
|
|
|
|
|
Mov CS:MixModeOffset, AX
|
|
|
|
|
|
|
|
|
|
Mov DS, Word Ptr [CS:RecalculateAllVolumes+2]
|
|
|
|
|
Call CS:RecalculateAllVolumes
|
|
|
|
|
|
|
|
|
|
StI
|
|
|
|
|
|
|
|
|
|
Mov AX, 1
|
|
|
|
|
Ret
|
|
|
|
|
|
|
|
|
|
EndP SetMixMode
|
|
|
|
|
Assume DS:Nothing
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
; <20><> DetectCard <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
;
|
|
|
|
|
; Returns carry set if error, else carry clear. Has to setup internal vars
|
|
|
|
|
; (eg. appropriate IRQ/DMA whatever).
|
|
|
|
|
;
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
Proc DetectCard Far
|
|
|
|
|
|
|
|
|
|
Push CS
|
|
|
|
|
Push CS
|
|
|
|
|
Pop DS
|
|
|
|
|
Pop ES
|
|
|
|
|
Assume DS:Driver
|
|
|
|
|
|
|
|
|
|
Mov Forced, AL
|
|
|
|
|
|
|
|
|
|
Cmp BX, 217h
|
|
|
|
|
JAE DetectCardUseDriver
|
|
|
|
|
|
|
|
|
|
Mov CX, DS
|
|
|
|
|
ShL ECX, 16
|
|
|
|
|
Mov CX, Offset DefaultDriverName
|
|
|
|
|
|
|
|
|
|
DetectCardUseDriver:
|
|
|
|
|
Mov DriverName, ECX
|
|
|
|
|
|
|
|
|
|
; First need to find if VSound server is setup.
|
|
|
|
|
Mov DX, BasePort
|
|
|
|
|
Cmp DX, 0FFFFh
|
|
|
|
|
JNE PortSpecified
|
|
|
|
|
|
|
|
|
|
Mov DX, 400h
|
|
|
|
|
Jmp TestPort
|
|
|
|
|
|
|
|
|
|
PortSpecified:
|
|
|
|
|
Cmp AL, 1
|
|
|
|
|
JNE DetectCardError
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
TestPort:
|
|
|
|
|
Mov BasePort, DX
|
|
|
|
|
|
|
|
|
|
Xor AL, AL
|
|
|
|
|
Out DX, AL ; Reset, get identification
|
|
|
|
|
|
|
|
|
|
Mov CX, 8
|
|
|
|
|
Mov DI, Offset VSoundIDBuffer
|
|
|
|
|
Rep InsB
|
|
|
|
|
|
|
|
|
|
Mov SI, Offset VSoundIDBuffer ; DI now points to VSoundID
|
|
|
|
|
Mov CX, 8
|
|
|
|
|
RepE CmpsB
|
|
|
|
|
JNE DetectCardError
|
|
|
|
|
|
|
|
|
|
; We've found a VSound server. Get ServerString
|
|
|
|
|
|
|
|
|
|
Mov AL, 1
|
|
|
|
|
Out DX, AL
|
|
|
|
|
; DI now points to ServerString.
|
|
|
|
|
Mov DI, Offset VSoundString
|
|
|
|
|
Mov CX, 60
|
|
|
|
|
Rep InsB
|
|
|
|
|
|
|
|
|
|
Mov DI, Offset Threshold
|
|
|
|
|
Mov CX, 4
|
|
|
|
|
Rep InsB
|
|
|
|
|
|
|
|
|
|
Xor DWord Ptr [Threshold], 0FFFFFFFFh
|
|
|
|
|
|
|
|
|
|
Mov EAX, 'Jeff'
|
|
|
|
|
DB 85h
|
|
|
|
|
|
|
|
|
|
DetectCardError:
|
|
|
|
|
StC
|
|
|
|
|
Ret
|
|
|
|
|
|
|
|
|
|
EndP DetectCard
|
|
|
|
|
Assume DS:Nothing
|
|
|
|
|
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
InVSound DB -1
|
|
|
|
|
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
MixModeTable Label Word
|
|
|
|
|
DW Offset Mix0ModeMono, Mix0ModeStereo
|
|
|
|
|
DW Offset Mix0ModeMono, Mix0ModeStereo
|
|
|
|
|
DW Offset Mix6ModeMono, Mix6ModeStereo
|
|
|
|
|
DW Offset Mix6ModeMono, Mix6ModeStereo
|
|
|
|
|
|
|
|
|
|
Proc MixSamples ; Given DS:SI = info tables, CX = numchannels
|
|
|
|
|
|
|
|
|
|
; 1. Clean buffer
|
|
|
|
|
; + update variables
|
|
|
|
|
; 2. Update parameters
|
|
|
|
|
; 3. Mix func
|
|
|
|
|
; 4. Return
|
|
|
|
|
|
|
|
|
|
Push CX
|
|
|
|
|
|
|
|
|
|
Mov CX, BytesToMix
|
|
|
|
|
Mov ES, MixSegment
|
|
|
|
|
Mov DI, MIXTABLESIZE
|
|
|
|
|
Xor EAX, EAX
|
|
|
|
|
Mov DX, CX
|
|
|
|
|
Add CX, CX
|
|
|
|
|
|
|
|
|
|
Mov MixTransferOffset, DI ; } Memory write
|
|
|
|
|
|
|
|
|
|
Cmp Stereo, 0
|
|
|
|
|
JE MixSamples1
|
|
|
|
|
|
|
|
|
|
Mov DX, CX
|
|
|
|
|
|
|
|
|
|
MixSamples1:
|
|
|
|
|
Rep StosD ; } Memory write
|
|
|
|
|
Mov MixTransferRemaining, DX ; }
|
|
|
|
|
|
|
|
|
|
Pop CX
|
|
|
|
|
|
|
|
|
|
MixSamples2:
|
|
|
|
|
Test Byte Ptr [SI], 1
|
|
|
|
|
JZ MixSamplesEnd2
|
|
|
|
|
Cmp Byte Ptr [SI+36h], 100
|
|
|
|
|
JE MixSamplesEnd2
|
|
|
|
|
|
|
|
|
|
Push CX
|
|
|
|
|
Mov CX, [SI]
|
|
|
|
|
|
|
|
|
|
Test CH, 2
|
|
|
|
|
JZ MixSamples3
|
|
|
|
|
And Byte Ptr [SI], Not 1
|
|
|
|
|
|
|
|
|
|
Jmp MixSamplesEnd
|
|
|
|
|
; Cmp MixMode, 8 ; Is it volume ramping?
|
|
|
|
|
; JB MixSamplesEnd
|
|
|
|
|
|
|
|
|
|
MixSamples3:
|
|
|
|
|
Test CL, 20h ; New freq?
|
|
|
|
|
JZ MixSamples5
|
|
|
|
|
|
|
|
|
|
Mov AX, [SI+10h]
|
|
|
|
|
Mov DX, [SI+12h]
|
|
|
|
|
Mov BX, MixSpeed
|
|
|
|
|
Cmp DX, BX
|
|
|
|
|
JAE MixSamplesHandleError
|
|
|
|
|
|
|
|
|
|
Div BX
|
|
|
|
|
ShL EAX, 16
|
|
|
|
|
Xor AX, AX
|
|
|
|
|
Div BX
|
|
|
|
|
Mov STEPVALUE, EAX
|
|
|
|
|
|
|
|
|
|
MixSamples4:
|
|
|
|
|
Test CH, 1
|
|
|
|
|
JZ MixSamples5
|
|
|
|
|
|
|
|
|
|
Mov DWord Ptr [SI+1Ch], 0 ; Current Volume = 0
|
|
|
|
|
; for volume sliding.
|
|
|
|
|
MixSamples5:
|
|
|
|
|
Test CX, 8440h ; New volume or panning?
|
|
|
|
|
JZ MixSamplesMix
|
|
|
|
|
|
|
|
|
|
Xor AX, AX
|
|
|
|
|
Test CH, 8 ; Muted?
|
|
|
|
|
JNZ MixModeCommon
|
|
|
|
|
|
|
|
|
|
Mov BX, MixMode
|
|
|
|
|
Add BL, Stereo
|
|
|
|
|
Add BX, BX
|
|
|
|
|
Jmp [CS:MixModeTable+BX]
|
|
|
|
|
|
|
|
|
|
Mix0Mode: ; 16-bit mixing, no interpolation
|
|
|
|
|
Mix0ModeMono: ; and 16-bit mixing, interpolation
|
|
|
|
|
Mov AL, [SI+20h]
|
|
|
|
|
ShR AL, 1
|
|
|
|
|
Mov [SI+0Ch], AX
|
|
|
|
|
Mov [SI+0Eh], AX
|
|
|
|
|
Mov AX, 0
|
|
|
|
|
JZ MixModeCommon
|
|
|
|
|
Mov AL, 30 ; Use left only-mixing for mono
|
|
|
|
|
Jmp MixModeCommon
|
|
|
|
|
|
|
|
|
|
Mix0ModeStereo:
|
|
|
|
|
Mov AL, [SI+37h] ; Final pan
|
|
|
|
|
Cmp AL, 100
|
|
|
|
|
JE Mix0ModeSurround
|
|
|
|
|
|
|
|
|
|
Mul Byte Ptr [SI+20h] ; Final volume
|
|
|
|
|
Add AX, 64
|
|
|
|
|
ShR AX, 7
|
|
|
|
|
Mov [SI+0Ch], AX ; Store into right volume
|
|
|
|
|
|
|
|
|
|
Mov AL, 64
|
|
|
|
|
Sub AL, [SI+37h]
|
|
|
|
|
Mul Byte Ptr [SI+20h]
|
|
|
|
|
Add AX, 64
|
|
|
|
|
ShR AX, 7
|
|
|
|
|
Mov [SI+0Eh], AX ; Left volume
|
|
|
|
|
|
|
|
|
|
Mov CH, AL ; CH = left volume
|
|
|
|
|
Mov CL, [SI+0Ch] ; CL = right volume
|
|
|
|
|
Mov AX, 0
|
|
|
|
|
|
|
|
|
|
Test CX, CX
|
|
|
|
|
JZ MixModeCommon
|
|
|
|
|
|
|
|
|
|
Mov AL, 30 ; Left only...
|
|
|
|
|
Test CL, CL
|
|
|
|
|
JZ MixModeCommon
|
|
|
|
|
|
|
|
|
|
Mov AL, 60
|
|
|
|
|
Test CH, CH
|
|
|
|
|
JZ MixModeCommon
|
|
|
|
|
|
|
|
|
|
Mov AL, 90
|
|
|
|
|
Cmp CL, CH
|
|
|
|
|
JZ MixModeCommon
|
|
|
|
|
|
|
|
|
|
Mov AL, 120
|
|
|
|
|
Jmp MixModeCommon
|
|
|
|
|
|
|
|
|
|
Mix0ModeSurround:
|
|
|
|
|
Mov AL, [SI+20h]
|
|
|
|
|
ShR AL, 2
|
|
|
|
|
Mov [SI+0Ch], AX
|
|
|
|
|
Mov [SI+0Eh], AX
|
|
|
|
|
Mov AX, 0
|
|
|
|
|
JZ MixModeCommon
|
|
|
|
|
Mov AL, 150 ; Surround
|
|
|
|
|
Jmp MixModeCommon
|
|
|
|
|
|
|
|
|
|
Mix6ModeMono:
|
|
|
|
|
Mov AX, [SI+4Ah]
|
|
|
|
|
Mul MixVolume
|
|
|
|
|
ShRD AX, DX, 8
|
|
|
|
|
Mov [SI+0Ch], AX
|
|
|
|
|
Mov [SI+0Eh], AX
|
|
|
|
|
Test AX, AX
|
|
|
|
|
JZ MixModeCommon
|
|
|
|
|
Mov AX, 30
|
|
|
|
|
Jmp MixModeCommon
|
|
|
|
|
|
|
|
|
|
Mix6ModeStereo:
|
|
|
|
|
Mov AL, [SI+37h] ; Final pan
|
|
|
|
|
Cmp AL, 100
|
|
|
|
|
JE Mix6ModeSurround
|
|
|
|
|
|
|
|
|
|
Mul Byte Ptr MixVolume
|
|
|
|
|
Mul Word Ptr [SI+4Ah]
|
|
|
|
|
ShRD AX, DX, 14
|
|
|
|
|
Mov [SI+0Ch], AX ; Store into right volume
|
|
|
|
|
Mov BX, AX
|
|
|
|
|
ShL EAX, 16
|
|
|
|
|
|
|
|
|
|
Mov AL, 64 ; Do left volume
|
|
|
|
|
Sub AL, [SI+37h] ; AL = 64-FinalPan
|
|
|
|
|
Mul Byte Ptr MixVolume
|
|
|
|
|
Mul Word Ptr [SI+4Ah]
|
|
|
|
|
ShRD AX, DX, 14
|
|
|
|
|
Mov [SI+0Eh], AX
|
|
|
|
|
|
|
|
|
|
Mov ECX, EAX
|
|
|
|
|
|
|
|
|
|
; BX = right volume
|
|
|
|
|
; CX = Left volume
|
|
|
|
|
Mov AX, 0
|
|
|
|
|
Test ECX, ECX
|
|
|
|
|
JZ MixModeCommon
|
|
|
|
|
|
|
|
|
|
Mov AL, 30
|
|
|
|
|
Test BX, BX
|
|
|
|
|
JZ MixModeCommon
|
|
|
|
|
|
|
|
|
|
Mov AL, 60
|
|
|
|
|
Test CX, CX
|
|
|
|
|
JZ MixModeCommon
|
|
|
|
|
|
|
|
|
|
Mov AL, 90
|
|
|
|
|
Cmp CX, BX
|
|
|
|
|
JE MixModeCommon
|
|
|
|
|
|
|
|
|
|
Mov AL, 120
|
|
|
|
|
Jmp MixModeCommon
|
|
|
|
|
|
|
|
|
|
Mix6ModeSurround:
|
|
|
|
|
Mov AX, [SI+4Ah]
|
|
|
|
|
Mul MixVolume
|
|
|
|
|
ShRD AX, DX, 9
|
|
|
|
|
Mov [SI+0Ch], AX
|
|
|
|
|
Mov [SI+0Eh], AX
|
|
|
|
|
JZ MixModeCommon
|
|
|
|
|
Mov AX, 150
|
|
|
|
|
Jmp MixModeCommon
|
|
|
|
|
|
|
|
|
|
MixModeCommon: ; Requires AX = 30/60/90 etc. depending
|
|
|
|
|
; On mixing mode type.
|
|
|
|
|
; This will add 180 for 16-bit,
|
|
|
|
|
; And sort out loop types.
|
|
|
|
|
Mov BL, [SI+0Ah]
|
|
|
|
|
Test Byte Ptr [SI+18h], 2 ; 16 bit?
|
|
|
|
|
JZ MixModeCommon1
|
|
|
|
|
|
|
|
|
|
Add AX, 180
|
|
|
|
|
|
|
|
|
|
MixModeCommon1:
|
|
|
|
|
Cmp BL, 8
|
|
|
|
|
JB MixModeCommon3 ; No loop
|
|
|
|
|
JE MixModeCommon2 ; Forwards loop
|
|
|
|
|
|
|
|
|
|
Add AX, 10
|
|
|
|
|
|
|
|
|
|
MixModeCommon2:
|
|
|
|
|
Add AX, 10
|
|
|
|
|
|
|
|
|
|
MixModeCommon3:
|
|
|
|
|
Add AX, Offset MixFunctionTables
|
|
|
|
|
Add AX, MixModeOffset
|
|
|
|
|
Mov [SI+8], AX ; Offset...
|
|
|
|
|
|
|
|
|
|
MixSamplesMix:
|
|
|
|
|
Mov BX, [SI+8] ; BX = offset into
|
|
|
|
|
Mov EAX, [CS:BX+2]
|
|
|
|
|
Mov DWord Ptr PreMixFunction, EAX
|
|
|
|
|
Mov EAX, [CS:BX+6]
|
|
|
|
|
Mov DWord Ptr MixFunctionSeparateBackwards, EAX
|
|
|
|
|
|
|
|
|
|
Mov AX, BytesToMix
|
|
|
|
|
Mov MixBlockSize, AX
|
|
|
|
|
Mov MixBufferOffset, MIXTABLESIZE
|
|
|
|
|
|
|
|
|
|
Mov EAX, CURRENTPOSITION
|
|
|
|
|
Mov OLDPOSITION, EAX
|
|
|
|
|
|
|
|
|
|
Call Word Ptr [CS:BX]
|
|
|
|
|
|
|
|
|
|
And Word Ptr [SI], 0111100010001101b
|
|
|
|
|
Jmp MixSamplesEnd
|
|
|
|
|
|
|
|
|
|
MixSamplesHandleError:
|
|
|
|
|
Mov Word Ptr [SI], 200h
|
|
|
|
|
|
|
|
|
|
Test Byte Ptr [SI+3Ah], 80h
|
|
|
|
|
JNZ MixSamplesEnd
|
|
|
|
|
|
|
|
|
|
Mov BX, [SI+38h]
|
|
|
|
|
And Byte Ptr [BX], Not 4 ; Turn off channel
|
|
|
|
|
|
|
|
|
|
MixSamplesEnd:
|
|
|
|
|
Pop CX
|
|
|
|
|
|
|
|
|
|
MixSamplesEnd2:
|
|
|
|
|
Add SI, 128
|
|
|
|
|
Dec CX
|
|
|
|
|
JNZ MixSamples2
|
|
|
|
|
|
|
|
|
|
Ret
|
|
|
|
|
|
|
|
|
|
EndP MixSamples
|
|
|
|
|
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
Proc VSoundFillBuffer
|
|
|
|
|
Assume DS:Nothing
|
|
|
|
|
|
|
|
|
|
VSoundHandler3:
|
|
|
|
|
|
|
|
|
|
Mov DX, BasePort
|
|
|
|
|
Mov AL, 2
|
|
|
|
|
Out DX, AL
|
|
|
|
|
In AL, DX
|
|
|
|
|
Mov AH, AL
|
|
|
|
|
In AL, DX ; AX = BufferSize
|
|
|
|
|
|
|
|
|
|
Cmp AX, Threshold
|
|
|
|
|
JB VSoundHandler4
|
|
|
|
|
|
|
|
|
|
Ret
|
|
|
|
|
|
|
|
|
|
VSoundHandler4:
|
|
|
|
|
Call Update
|
|
|
|
|
Call MixSamples
|
|
|
|
|
|
|
|
|
|
; Convert the buffer
|
|
|
|
|
Mov DS, MixSegment
|
|
|
|
|
Mov SI, MixTransferOffset
|
|
|
|
|
Mov CX, BytesToMix ; CX = number of 32-bit samples to mix.
|
|
|
|
|
Mov DI, SI
|
|
|
|
|
|
|
|
|
|
; Transfer the buffer
|
|
|
|
|
Cmp Stereo, 0
|
|
|
|
|
JE VSoundHandlerMono
|
|
|
|
|
|
|
|
|
|
VSoundHandlerStereo:
|
|
|
|
|
Mov EAX, [SI]
|
|
|
|
|
Mov EBX, [SI+4]
|
|
|
|
|
|
|
|
|
|
SAR EAX, 13
|
|
|
|
|
SAR EBX, 13
|
|
|
|
|
|
|
|
|
|
Cmp EAX, -8000h
|
|
|
|
|
JL VSoundHandlerStereoClip1
|
|
|
|
|
Cmp EAX, 7FFFh
|
|
|
|
|
JG VSoundHandlerStereoClip2
|
|
|
|
|
|
|
|
|
|
VSoundHandlerStereo1:
|
|
|
|
|
Cmp EBX, -8000h
|
|
|
|
|
JL VSoundHandlerStereoClip3
|
|
|
|
|
Cmp EBX, 7FFFh
|
|
|
|
|
JG VSoundHandlerStereoClip4
|
|
|
|
|
|
|
|
|
|
VSoundHandlerStereo2:
|
|
|
|
|
Mov [DI], AX
|
|
|
|
|
Add SI, 8
|
|
|
|
|
Mov [DI+2], BX
|
|
|
|
|
Add DI, 4
|
|
|
|
|
|
|
|
|
|
Loop VSoundHandlerStereo
|
|
|
|
|
Jmp VSoundHandlerSend
|
|
|
|
|
|
|
|
|
|
VSoundHandlerMono:
|
|
|
|
|
Mov EAX, [SI]
|
|
|
|
|
SAR EAX, 14
|
|
|
|
|
|
|
|
|
|
Cmp EAX, -8000h
|
|
|
|
|
JL VSoundHandlerMonoClip1
|
|
|
|
|
Cmp EAX, 7FFFh
|
|
|
|
|
JG VSoundHandlerMonoClip2
|
|
|
|
|
|
|
|
|
|
VSoundHandlerMono1:
|
|
|
|
|
Mov [DI], AX
|
|
|
|
|
Add SI, 8
|
|
|
|
|
Mov [DI+2], AX
|
|
|
|
|
Add DI, 4
|
|
|
|
|
|
|
|
|
|
Loop VSoundHandlerMono
|
|
|
|
|
|
|
|
|
|
VSoundHandlerSend:
|
|
|
|
|
Mov CX, BytesToMix
|
|
|
|
|
Mov DX, BasePort
|
|
|
|
|
ShL CX, 2
|
|
|
|
|
Add DX, 2
|
|
|
|
|
Mov SI, MixTransferOffset
|
|
|
|
|
Rep OutsB
|
|
|
|
|
|
|
|
|
|
Jmp VSoundHandler3
|
|
|
|
|
|
|
|
|
|
VSoundHandlerStereoClip1:
|
|
|
|
|
Mov AX, 8000h
|
|
|
|
|
Jmp VSoundHandlerStereo1
|
|
|
|
|
|
|
|
|
|
VSoundHandlerStereoClip2:
|
|
|
|
|
Mov AX, 7FFFh
|
|
|
|
|
Jmp VSoundHandlerStereo1
|
|
|
|
|
|
|
|
|
|
VSoundHandlerStereoClip3:
|
|
|
|
|
Mov BX, 8000h
|
|
|
|
|
Jmp VSoundHandlerStereo2
|
|
|
|
|
|
|
|
|
|
VSoundHandlerStereoClip4:
|
|
|
|
|
Mov BX, 7FFFh
|
|
|
|
|
Jmp VSoundHandlerStereo2
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
VSoundHandlerMonoClip1:
|
|
|
|
|
Mov AX, 8000h
|
|
|
|
|
Jmp VSoundHandlerMono1
|
|
|
|
|
|
|
|
|
|
VSoundHandlerMonoClip2:
|
|
|
|
|
Mov AX, 7FFFh
|
|
|
|
|
Jmp VSoundHandlerMono1
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
EndP VSoundFillBuffer
|
|
|
|
|
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
Proc VSoundHandler
|
|
|
|
|
|
|
|
|
|
PushAD
|
|
|
|
|
Push DS
|
|
|
|
|
Push ES
|
|
|
|
|
|
|
|
|
|
Push CS
|
|
|
|
|
Pop DS
|
|
|
|
|
Assume DS:Driver
|
|
|
|
|
|
|
|
|
|
Add TimerAccumulator, TIMERCONST
|
|
|
|
|
JC VSoundHandler1
|
|
|
|
|
|
|
|
|
|
Mov AL, 20h
|
|
|
|
|
Out 20h, AL
|
|
|
|
|
Jmp VSoundHandler2
|
|
|
|
|
|
|
|
|
|
VSoundHandler1:
|
|
|
|
|
PushF
|
|
|
|
|
Call [OldTimerIRQHandler]
|
|
|
|
|
|
|
|
|
|
VSoundHandler2:
|
|
|
|
|
Add InVSound, 1
|
|
|
|
|
JNC VSoundExit
|
|
|
|
|
|
|
|
|
|
Call SaveEMSPageFrame
|
|
|
|
|
|
|
|
|
|
Assume DS:Nothing
|
|
|
|
|
Call VSoundFillBuffer
|
|
|
|
|
|
|
|
|
|
Call RestoreEMSPageFrame
|
|
|
|
|
|
|
|
|
|
VSoundExit:
|
|
|
|
|
Pop ES
|
|
|
|
|
Pop DS
|
|
|
|
|
PopAD
|
|
|
|
|
|
|
|
|
|
Sub CS:InVSound, 1
|
|
|
|
|
IRet
|
|
|
|
|
|
|
|
|
|
EndP VSoundHandler
|
|
|
|
|
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
Proc SetIRQ
|
|
|
|
|
|
|
|
|
|
PushAD
|
|
|
|
|
Push ES
|
|
|
|
|
|
|
|
|
|
Xor AX, AX
|
|
|
|
|
Mov ES, AX
|
|
|
|
|
|
|
|
|
|
Mov AL, 34h ; Program IRQ 0. LSB&MSB, Rate gen
|
|
|
|
|
Out 43h, AL ; bump the interrupt to be called
|
|
|
|
|
; 100 times a second.
|
|
|
|
|
Mov AX, TIMERCONST
|
|
|
|
|
Out 40h, AL
|
|
|
|
|
Mov AL, AH
|
|
|
|
|
Out 40h, AL
|
|
|
|
|
|
|
|
|
|
Mov AX, CS
|
|
|
|
|
ShL EAX, 16
|
|
|
|
|
Mov AX, Offset VSoundHandler
|
|
|
|
|
|
|
|
|
|
ClI
|
|
|
|
|
|
|
|
|
|
XChg [ES:20h], EAX ; Hook to timer interrupt
|
|
|
|
|
Mov CS:OldTimerIRQHandler, EAX
|
|
|
|
|
|
|
|
|
|
StI
|
|
|
|
|
|
|
|
|
|
Pop ES
|
|
|
|
|
PopAD
|
|
|
|
|
|
|
|
|
|
Ret
|
|
|
|
|
|
|
|
|
|
EndP SetIRQ
|
|
|
|
|
Assume DS:Nothing
|
|
|
|
|
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
Proc ResetIRQ
|
|
|
|
|
|
|
|
|
|
PushAD
|
|
|
|
|
Push ES
|
|
|
|
|
|
|
|
|
|
Xor AX, AX
|
|
|
|
|
Mov ES, AX
|
|
|
|
|
|
|
|
|
|
Mov AL, 34h ; Program IRQ 0. LSB&MSB, Rate gen
|
|
|
|
|
Out 43h, AL
|
|
|
|
|
|
|
|
|
|
Xor AL, AL
|
|
|
|
|
Out 40h, AL ; Interrupt called at normal 18.2 times
|
|
|
|
|
Out 40h, AL
|
|
|
|
|
|
|
|
|
|
Mov EAX, CS:OldTimerIRQHandler
|
|
|
|
|
Mov [ES:20h], EAX
|
|
|
|
|
|
|
|
|
|
Pop ES
|
|
|
|
|
PopAD
|
|
|
|
|
|
|
|
|
|
Ret
|
|
|
|
|
|
|
|
|
|
EndP ResetIRQ
|
|
|
|
|
Assume DS:Nothing
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;<3B><> InitSound <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
;
|
|
|
|
|
; Sets up any memory required for output
|
|
|
|
|
; Initiates output
|
|
|
|
|
;
|
|
|
|
|
; Parameters: AX = Number of Channels
|
|
|
|
|
;
|
|
|
|
|
; If sucessful, returns:
|
|
|
|
|
; Carry flag clear
|
|
|
|
|
; DS:SI = pointer to text to display
|
|
|
|
|
; AX = parameter 1 in text
|
|
|
|
|
; BX = parameter 2 in text
|
|
|
|
|
; CX = parameter 3 in text
|
|
|
|
|
; DX = parameter 4 in text
|
|
|
|
|
; DI = parameter 5 in text
|
|
|
|
|
;
|
|
|
|
|
; If unsucessful, returns:
|
|
|
|
|
; Carry flag set
|
|
|
|
|
;
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
Proc InitSound Far
|
|
|
|
|
|
|
|
|
|
Push CS
|
|
|
|
|
Pop DS
|
|
|
|
|
Assume DS:Driver
|
|
|
|
|
|
|
|
|
|
Mov SI, Offset RelocationTable
|
|
|
|
|
|
|
|
|
|
RelocationFix:
|
|
|
|
|
LodsW
|
|
|
|
|
Test AX, AX
|
|
|
|
|
JZ RelocationEnd
|
|
|
|
|
Mov BX, AX
|
|
|
|
|
Mov [BX], DS
|
|
|
|
|
Jmp RelocationFix
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
RelocationEnd:
|
|
|
|
|
Call GetEMSPageFrame
|
|
|
|
|
Mov EMSPageFrame, AX
|
|
|
|
|
|
|
|
|
|
Mov ECX, IdleUpdateInfoLine
|
|
|
|
|
Mov EDX, GlobalKeyList
|
|
|
|
|
Mov IdleFunctionList, ECX
|
|
|
|
|
Mov GlobalKeyLink2, EDX
|
|
|
|
|
|
|
|
|
|
Mov ECX, FillHeaderFunction
|
|
|
|
|
Mov EDX, DrawHeaderFunction
|
|
|
|
|
Mov FillHeader2, ECX
|
|
|
|
|
Mov ScreenHeader2, EDX
|
|
|
|
|
|
|
|
|
|
; Parags to allocate = (8/(.4*31*16))*MixSpeed + 2080
|
|
|
|
|
; = .04032258*MixSpeed = (65536*.04032258*MixSpeed) / 65536 + 2080
|
|
|
|
|
|
|
|
|
|
Mov AX, 2643
|
|
|
|
|
Mul MixSpeed
|
|
|
|
|
Add AX, 0FFFFh
|
|
|
|
|
AdC DX, 2080
|
|
|
|
|
Mov BX, DX
|
|
|
|
|
Mov AH, 48h
|
|
|
|
|
Int 21h
|
|
|
|
|
|
|
|
|
|
Mov SI, Offset VSoundNoMemoryMsg
|
|
|
|
|
JNC InitSound1
|
|
|
|
|
|
|
|
|
|
Pop ES
|
|
|
|
|
Ret
|
|
|
|
|
|
|
|
|
|
InitSound1:
|
|
|
|
|
Mov MixSegment, AX
|
|
|
|
|
|
|
|
|
|
Call SetIRQ
|
|
|
|
|
Call GetTempo
|
|
|
|
|
Call SetTempo
|
|
|
|
|
|
|
|
|
|
Mov SI, Offset VSoundDriverMsg
|
|
|
|
|
Mov AX, BasePort
|
|
|
|
|
|
|
|
|
|
ClC
|
|
|
|
|
Ret
|
|
|
|
|
|
|
|
|
|
EndP InitSound
|
|
|
|
|
Assume DS:Nothing
|
|
|
|
|
|
|
|
|
|
;<3B><> ReInitSound <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
;
|
|
|
|
|
; Reinitialises sound output
|
|
|
|
|
; Initiates sound output
|
|
|
|
|
;
|
|
|
|
|
; Parameters: AX = number of channels.
|
|
|
|
|
;
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
Proc ReInitSound Far
|
|
|
|
|
|
|
|
|
|
Push CS
|
|
|
|
|
Pop DS
|
|
|
|
|
|
|
|
|
|
Mov SI, Offset NoReinitMsg
|
|
|
|
|
Mov BX, 40
|
|
|
|
|
Call SetInfoLine
|
|
|
|
|
|
|
|
|
|
Ret
|
|
|
|
|
|
|
|
|
|
EndP ReInitSound
|
|
|
|
|
|
|
|
|
|
;<3B><> UnInitSound <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
;
|
|
|
|
|
; Stops sound output, releases any memory used by driver
|
|
|
|
|
;
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
Proc UnInitSound Far
|
|
|
|
|
|
|
|
|
|
Call GotoHomeDirectory
|
|
|
|
|
|
|
|
|
|
Mov DS, Word Ptr [CS:DriverName+2]
|
|
|
|
|
Mov DX, Word Ptr [CS:DriverName]
|
|
|
|
|
|
|
|
|
|
Mov AX, 3D02h ; Read write access
|
|
|
|
|
Int 21h
|
|
|
|
|
|
|
|
|
|
Push CS
|
|
|
|
|
Pop DS
|
|
|
|
|
Assume DS:Driver
|
|
|
|
|
|
|
|
|
|
JC SaveConfig2
|
|
|
|
|
|
|
|
|
|
Mov BX, AX
|
|
|
|
|
|
|
|
|
|
Mov AX, 4200h
|
|
|
|
|
Xor CX, CX
|
|
|
|
|
Mov DX, Offset CONFIGURATIONOFFSET
|
|
|
|
|
Int 21h
|
|
|
|
|
JC SaveConfig1
|
|
|
|
|
|
|
|
|
|
Mov AH, 40h
|
|
|
|
|
Mov CX, CONFIGSIZE
|
|
|
|
|
Mov DX, Offset MixMode
|
|
|
|
|
Int 21h
|
|
|
|
|
|
|
|
|
|
SaveConfig1:
|
|
|
|
|
Mov AH, 3Eh
|
|
|
|
|
Int 21h
|
|
|
|
|
|
|
|
|
|
SaveConfig2:
|
|
|
|
|
Mov AX, MixSegment
|
|
|
|
|
Test AX, AX
|
|
|
|
|
JZ UnInitSound1
|
|
|
|
|
|
|
|
|
|
Mov ES, AX
|
|
|
|
|
Mov AH, 49h ; Release MixSegment
|
|
|
|
|
Int 21h
|
|
|
|
|
|
|
|
|
|
Call ResetIRQ
|
|
|
|
|
|
|
|
|
|
UnInitSound1:
|
|
|
|
|
Mov DX, BasePort
|
|
|
|
|
Mov AL, 3
|
|
|
|
|
Out DX, AL
|
|
|
|
|
|
|
|
|
|
Ret
|
|
|
|
|
|
|
|
|
|
EndP UnInitSound
|
|
|
|
|
Assume DS:Nothing
|
|
|
|
|
|
|
|
|
|
;<3B><> Poll <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
;
|
|
|
|
|
; This procedure is called as often as possible by IT.EXE
|
|
|
|
|
; AX = Playmode (0 for nothing in particular, 1 = pattern, 2 = song)
|
|
|
|
|
;
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
Proc Poll Far
|
|
|
|
|
|
|
|
|
|
ClI
|
|
|
|
|
Add CS:InVSound, 1
|
|
|
|
|
JNC Poll1
|
|
|
|
|
|
|
|
|
|
Call VSoundFillBuffer
|
|
|
|
|
|
|
|
|
|
Poll1:
|
|
|
|
|
Sub CS:InVSound, 1
|
|
|
|
|
StI
|
|
|
|
|
|
|
|
|
|
Ret
|
|
|
|
|
|
|
|
|
|
EndP Poll
|
|
|
|
|
|
|
|
|
|
;<3B><> SetTempo <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
;
|
|
|
|
|
; Parameters: BX = tempo
|
|
|
|
|
;
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
Proc SetTempo Far
|
|
|
|
|
Assume DS:Nothing
|
|
|
|
|
|
|
|
|
|
Push AX
|
|
|
|
|
Push BX
|
|
|
|
|
Push DX
|
|
|
|
|
|
|
|
|
|
Push BX
|
|
|
|
|
|
|
|
|
|
Mov AX, MixSpeed
|
|
|
|
|
Mov BX, AX
|
|
|
|
|
Xor DX, DX
|
|
|
|
|
|
|
|
|
|
ShL AX, 1
|
|
|
|
|
RCL DX, 1 ; DX:AX = Mixspeed*2
|
|
|
|
|
|
|
|
|
|
ShR BX, 1 ; BX = Mixspeed/2
|
|
|
|
|
|
|
|
|
|
Add AX, BX
|
|
|
|
|
AdC DX, 0 ; DX:AX = Mixspeed*2.5
|
|
|
|
|
|
|
|
|
|
Pop BX ; BX = tempo
|
|
|
|
|
Div BX
|
|
|
|
|
|
|
|
|
|
Mov BytesToMix, AX
|
|
|
|
|
|
|
|
|
|
Pop DX
|
|
|
|
|
Pop BX
|
|
|
|
|
Pop AX
|
|
|
|
|
|
|
|
|
|
Ret
|
|
|
|
|
|
|
|
|
|
EndP SetTempo
|
|
|
|
|
|
|
|
|
|
;<3B><> SetMixVolume <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
;
|
|
|
|
|
; Parameters: AX = MixVolume
|
|
|
|
|
;
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
Proc SetMixVolume Far
|
|
|
|
|
|
|
|
|
|
PushA
|
|
|
|
|
Push DS
|
|
|
|
|
|
|
|
|
|
Mov BX, AX ; BX = MixVolume
|
|
|
|
|
Mov CS:MixVolume, AX
|
|
|
|
|
|
|
|
|
|
Mov AX, CS:MixSegment
|
|
|
|
|
Test AX, AX
|
|
|
|
|
JZ SetMixVolume2
|
|
|
|
|
|
|
|
|
|
Mov DS, AX
|
|
|
|
|
|
|
|
|
|
Mov CX, MIXTABLESIZE/2
|
|
|
|
|
Mov SI, MIXTABLESIZE-2; Starting point - working backwards
|
|
|
|
|
|
|
|
|
|
SetMixVolume1:
|
|
|
|
|
Mov AX, CX
|
|
|
|
|
|
|
|
|
|
Dec AX ; AH = volume, AL = wave value.
|
|
|
|
|
Xor DX, DX
|
|
|
|
|
XChg AH, DL ; DL = Volume, AX = wave value
|
|
|
|
|
CBW
|
|
|
|
|
|
|
|
|
|
IMul DX ; DX:AX = Volume * Wave Value
|
|
|
|
|
; Ranges -8192->8128
|
|
|
|
|
|
|
|
|
|
IMul BX ; DX:AX = Volume * Wave Value * Mixing Volume
|
|
|
|
|
; Ranges -1048576->1040384
|
|
|
|
|
|
|
|
|
|
Add AX, 64
|
|
|
|
|
AdC DX, 0
|
|
|
|
|
|
|
|
|
|
ShRD AX, DX, 7
|
|
|
|
|
Mov [SI], AX
|
|
|
|
|
Sub SI, 2
|
|
|
|
|
|
|
|
|
|
Dec CX
|
|
|
|
|
JNZ SetMixVolume1
|
|
|
|
|
|
|
|
|
|
SetMixVolume2:
|
|
|
|
|
Mov DS, Word Ptr [CS:RecalculateAllVolumes+2]
|
|
|
|
|
Call CS: RecalculateAllVolumes
|
|
|
|
|
|
|
|
|
|
Pop DS
|
|
|
|
|
PopA
|
|
|
|
|
|
|
|
|
|
Ret
|
|
|
|
|
|
|
|
|
|
EndP SetMixVolume
|
|
|
|
|
|
|
|
|
|
;<3B><> SetStereo <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
;
|
|
|
|
|
; Parameters: AL = Stereo on/off, 0 = off.
|
|
|
|
|
;
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
Proc SetStereo Far
|
|
|
|
|
|
|
|
|
|
Mov CS:Stereo, AL
|
|
|
|
|
Ret
|
|
|
|
|
|
|
|
|
|
EndP SetStereo
|
|
|
|
|
|
|
|
|
|
;<3B><> LoadSample <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
;
|
|
|
|
|
; Parameters: AX = sample to load
|
|
|
|
|
; DS:SI points to sample header
|
|
|
|
|
; ES:0 points to first sample
|
|
|
|
|
;
|
|
|
|
|
; Returns: **Carry set if NO error**
|
|
|
|
|
; **Carry clear if error**
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
include loadsam.inc
|
|
|
|
|
|
|
|
|
|
;<3B><> ReleaseSample <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
;
|
|
|
|
|
; Parameters: AX = sample to release
|
|
|
|
|
; DS:SI points to sample header
|
|
|
|
|
;
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
Proc ReleaseSample Far
|
|
|
|
|
|
|
|
|
|
Ret
|
|
|
|
|
|
|
|
|
|
EndP ReleaseSample
|
|
|
|
|
|
|
|
|
|
;<3B><> ResetMemory <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
;
|
|
|
|
|
; Frees all on-board memory
|
|
|
|
|
;
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
Proc ResetMemory Far
|
|
|
|
|
|
|
|
|
|
Ret
|
|
|
|
|
|
|
|
|
|
EndP ResetMemory
|
|
|
|
|
|
|
|
|
|
;<3B><> GetStatus <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
;
|
|
|
|
|
; Returns text to show on status line, AX = display parameter
|
|
|
|
|
; Carry set if not to show anything.
|
|
|
|
|
;
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
Proc GetStatus Far
|
|
|
|
|
|
|
|
|
|
StC
|
|
|
|
|
Ret
|
|
|
|
|
|
|
|
|
|
EndP GetStatus
|
|
|
|
|
|
|
|
|
|
;<3B><> SoundCardScreen <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
;
|
|
|
|
|
; Function to have driver interactive part of program
|
|
|
|
|
;
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
Proc SoundCardScreen Far
|
|
|
|
|
|
|
|
|
|
Mov AX, 5
|
|
|
|
|
Mov SI, 1
|
|
|
|
|
Mov CX, CS
|
|
|
|
|
Mov DX, Offset VSoundScreenList
|
|
|
|
|
|
|
|
|
|
ClC
|
|
|
|
|
|
|
|
|
|
Ret
|
|
|
|
|
|
|
|
|
|
EndP SoundCardScreen
|
|
|
|
|
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
Proc GetVariable Far
|
|
|
|
|
|
|
|
|
|
Ret
|
|
|
|
|
|
|
|
|
|
EndP GetVariable
|
|
|
|
|
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
Proc SetVariable Far
|
|
|
|
|
|
|
|
|
|
Ret
|
|
|
|
|
|
|
|
|
|
EndP SetVariable
|
|
|
|
|
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
|
|
|
|
EndDriver:
|
|
|
|
|
|
|
|
|
|
;******** Provided Variable Table *************
|
|
|
|
|
|
|
|
|
|
MaxNumberOfChannels DW 0FFFFh ; Maximum number of channels the
|
|
|
|
|
; driver can handle.
|
|
|
|
|
DW 0
|
|
|
|
|
DefaultChannels DW 128
|
|
|
|
|
DW 0
|
|
|
|
|
DW 4 Dup (0)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;******** Provided Procedure Table *************
|
|
|
|
|
|
|
|
|
|
ProvidedTableStart:
|
|
|
|
|
|
|
|
|
|
DW Offset DetectCard
|
|
|
|
|
|
|
|
|
|
DW Offset InitSound ; Playing related
|
|
|
|
|
DW Offset ReinitSound
|
|
|
|
|
DW Offset UninitSound
|
|
|
|
|
|
|
|
|
|
DW Offset Poll
|
|
|
|
|
|
|
|
|
|
DW Offset SetTempo ; Sound variable related
|
|
|
|
|
DW Offset SetMixVolume
|
|
|
|
|
DW Offset SetStereo
|
|
|
|
|
|
|
|
|
|
DW Offset LoadSample ; Sample related
|
|
|
|
|
DW Offset ReleaseSample
|
|
|
|
|
DW Offset ResetMemory
|
|
|
|
|
DW Offset GetStatus ; Returns string to show on status line
|
|
|
|
|
|
|
|
|
|
DW Offset SoundCardScreen ; Sound card 'screen'
|
|
|
|
|
|
|
|
|
|
DW Offset GetVariable ; For interface
|
|
|
|
|
DW Offset SetVariable
|
|
|
|
|
|
|
|
|
|
ProvidedTableEnd:
|
|
|
|
|
DW 32-(ProvidedTableEnd-ProvidedTableStart)/2 Dup (0)
|
|
|
|
|
|
|
|
|
|
EndS
|
|
|
|
|
|
|
|
|
|
End
|