_dos_setvect(0x72,SB16_New); // INT 0x72 - IRQ10

ORG    0x100

jmp    int0x72

IRQSlave:
push    ax
push    dx
mov    al,1                ;флаг SB_RM_FLAG
mov    BYTE [cs:SBFlag],al ;узнаём порт (заполняется 32-битной программой, см. ниже)
mov    dx,WORD [cs:SBPort]
add    dx,0x00F
in    al,dx
mov    al,0x20
out    0x20,al
out    0xA0,al
pop    dx
pop    ax
iret

SBPort    dw 0x220
SBFlag    db 0

int0x72:
mov    ah,0x25
mov    al,0x72
mov    dx,IRQSlave
int    21h                 ;установка вектора прерывания в реальном режиме
mov    dx,int0x72          ;завершить работу программы, оставив её часть резидентной (от IRQSlave до int0x72)
int    27h

volatile u8 *SB_RM_FLAG; //флаг завершения чтения данных от обработчика прерывания реального режима

SB_RM_FLAG=(u8*)(((*(u16*)((0x72UL*4)+2))<<4)+(*(u16*)(0x72UL*4))); //указатель указывает на физический адрес вектора прерывания INT 0x72 реального режима

void interrupt far TimerNew(void)
{
if(SB_RM_FLAG)  //если флаг установлен
{
  SB_RM_FLAG=0;  //то сбрасываем его
  MIXER();       //подгружаем новые данные в свобродную половину буфера
}

out8(0x20,0x20); //шлём EOI ведущему и ведомому контроллеру прерываний
out8(0xA0,0x20);
}

/*
Real Mode Interrupt Handler Code for SoundBlaster16
*/
const u8 SB_New_RM_Handler[0x1D]=
{
0x50,                        //push    ax
0x52,                        //push    dx
0xB0,0x01,                   //mov    al,1
0x2E,0xA2,0x1C,0x00,         //mov    BYTE [cs:SBFlag],al
0x2E,0x8B,0x16,0x1A,0x00,    //mov    dx,WORD [cs:SBPort]
0x83,0xC2,0x0F,              //add    dx,0x00F
0xEC,                        //in    al,dx
0xB0,0x20,                   //mov    al,0x20
0xE6,0x20,                   //out    0x20,al
0xE6,0xA0,                   //out    0xA0,al
0x5A,                        //pop    dx
0x58,                        //pop    ax
0xCF,                        //iret
0x20,0x02,                   //SBPort    dw 0x220
0x00,                        //SBFlag    db 0
};

s8 DOS_Allocate(u16 paragraph,u16 *segment,u16 *selector) //выделяет память в адресном пространстве ниже 1 МБ
{
s8 r=0;
u16 _seg;
u16 _sel;
_asm
{
  mov ax,0x100
  mov bx,paragraph
  int 0x31
  jnc OK
  mov r,-1
  OK:
  mov _seg,ax
  mov _sel,dx
}
*segment=_seg;
*selector=_sel;
return r;
}

s8 Set_RM_Handler(u8 i,u16 s,u16 o) //установка обработчика прерывания реального режима (по номеру прерывания и по адресу сегмент:смещение)
{
s8 r=0;
_asm
{
  mov ax,0x201
  mov bl,i
  mov cx,s
  mov dx,o
  int 0x31
  jnc OK
  mov r,-1
  OK:
}
return r;
}

u16 SB_RM_SELECTOR; //селектор на участок памяти ниже 1 МБ (нужен для освобождения памяти по завершению работы программы)

s8 SB_Set_RM_Handler(u8 i,u8 *handler,u16 size)
{
u16 segment; //сегмент участка памяти ниже 1 МБ, полученный функцияе 0x100

if(DOS_Allocate((size+15)>>4,&segment,&SB_RM_SELECTOR))return -1; //просим необходимое число параграфов

u32 physical=((u32)segment)<<4; //вычисляем физический адрес (необходим для считывания флага, установленного обработчиком прерывания)

SB_RM_FLAG=(u8*)(physical+0x1C); //находим физический адрес нашего флага

*(u16*)&handler[0x1A]=SB_IO; //set SB I/O Port - записываем номер порта подтверждения прерывания (помогаем обработчику)

memcpy((void*)physical,handler,size); //копируем код обработчика в выделенную память ниже 1 МБ

if(Set_RM_Handler(i,segment,0))return -1; //устанавливаем обработчик прерывания РЕАЛЬНОГО режима из-под ЗАЩИЩЁННОГО.  Смещение = 0.

return 0;
}

SB_DisableIRQ(); //запрещаем прерывание от SB16 на время установки нового обработчика

if(SB_IRQ<8) //настройка прерывания от ведущего контроллера(Master PIC, IRQ0..7)
{
if(SB_Set_RM_Handler(SB_IRQ+0x08,(u8*)SB_New_RM_Handler,sizeof(SB_New_RM_Handler)))DPMI_Error();
}
else  //настройка прерывания от ведомого контроллера(Slave PIC, IRQ 8..15)
{
if(SB_Set_RM_Handler(SB_IRQ-8+0x70,(u8*)SB_New_RM_Handler,sizeof(SB_New_RM_Handler)))DPMI_Error();
}

SB_EnableIRQ(); //разрешаем прерывания Sound Blaster 16

.CODE

EXTRN    __GETDS:PROC        ;это ваткомовский прикол, без него вызов функций внутри обработчика приводит к аварийному вылету программы
EXTRN    UserCallBack_:PROC  ;это пользовательская функция коллбэка

PUBLIC    SystemCallBack_

SystemCallBack_:
    pushad
    push  ds
    push  es
    push  fs
    push  gs
    cld
    lodsw
    mov  es:[edi+0x2A],ax ;IP
    lodsw
    mov  es:[edi+0x2C],ax ;CS
    lodsw
    mov  es:[edi+0x20],ax ;FLAGS
    call  __GETDS
    push  ds
    pop  es
    call  UserCallBack_
    pop  gs
    pop  fs
    pop  es
    pop  ds
    popad
    iretd

END

void UserCallBack(void)
{
MIXER(); //загружаем новые данные

IO u8 ack=in8(SB_IO+0xF); //подтверждаем прерывание

out8(0x20,0x20); //EOI для Master и Slave PIC
out8(0xA0,0x20);
}

struct RMA //структура адреса реального режима
{
u16 s; //сегмент
u16 o; //смещение
};

RMA SB_RM_New;

s8 Set_RM_HandlerCallBack(u8 i,void far *handler)
{
if(CallBack_Allocate(handler,&SB_RM_New))return -1; //выделяем адрес коллбэка RM, при вызове которого будет происходить вызов PM функции handler
if(Set_RM_Handler(i,SB_RM_New))return -1;           //устанавливаем этот коллбэк в качестве вектора для обработчика RM прерывания!
return 0;
}

SB_DisableIRQ(); //запрещаем прерывания звуковой платы

if(SB_IRQ<8) //если IRQ от ведущего контроллера прерываний
{
if(Set_RM_HandlerCallBack(SB_IRQ+0x08,SystemCallBack))DPMI_Error();
}
else //если IRQ от ведомого
{
if(Set_RM_HandlerCallBack(SB_IRQ-8+0x70,SystemCallBack))DPMI_Error();
}

SB_EnableIRQ(); //разрешаем прерывания SoundBlaster

#pragma pack(1) //запрещаем выравнивание членов структуры, чтобы не было дырок
struct RMI      //виртуальные регистры для RM V86 (контекст для реального обработчика прерывания)
{
u32 EDI,ESI,EBP,ReservedByRMI,EBX,EDX,ECX,EAX;
u16 flags,ES,DS,FS,GS,IP,CS,SP,SS;
};

s8 CallBack_Allocate(void far *c,RMA *a) //32-битный указатель на SystemCallBack, получаем сегмент:смещения для вызова PM коллбэка в RM
{
union REGS r;
struct SREGS sr;
static RMI rmi;

memset(&sr,0,sizeof(sr));
memset(&rmi,0,sizeof(rmi)); //здесь контекст виртуальных регистров (в обработчике коллбэка восстанавливаем Flags, CS, IP - см. выше)

r.w.ax=0x303;
sr.ds=FP_SEG(c);
r.x.esi=FP_OFF(c);
sr.es=FP_SEG(&rmi);
r.x.edi=FP_OFF(&rmi);
int386x(0x31,&r,&r,&sr);

if(r.w.cflag)return -1;

a->s=r.w.cx;
a->o=r.w.dx;

return 0;
}

s8 Set_RM_Handler(u8 i,RMA a)
{
s8 r=0;
u16 s=a.s;
u16 o=a.o;
_asm
{
  mov ax,0x201
  mov bl,i
  mov cx,s
  mov dx,o
  int 0x31
  jnc OK
  mov r,-1
  OK:
}
return r;
}

_dos_setvect(0x72,SB16_New); // INT 0x72 - IRQ10