                INCLUDE SoundDevices.INC


                CODESEG



MACRO AdlOut Reg, Val
                MOV     DX,388h
                MOV     AL,Reg
                OUT     DX,AL
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX

                INC     DX
                MOV     AL,Val
                OUT     DX,AL
ENDM AdlOut

MACRO AdlWait
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
                IN      AL,DX
ENDM AdlWait



PUBLIC AdLibIntHandler

AdLibIntHandler:
                Chunk1

                Chunk2

                MonoChunk31

                Chunk41

                SHR     CL,3

                AdlOut  043h,CL

                Chunk5

END


{
}
