Сгенерировать через Speaker IBM PC 10 звуковых сигналов

begin
asm
 
MOV AL, 10110110b    //подготовка слова настройки режима
OUT 43h, AL        //программирование режима работы канала 2
MOV DX, 1000        //засылка в регистр DX значения 1000
 
@P:            //начало главного цикла
MOV AX, DX        //подготовка коэффициента деления N=1000
OUT 42h, AL        //засылка младшего байта N в канал 2 (спикер)
MOV AL, AH        //пересылка старшего байта N в AL
OUT 42h, AL        //засылка старшего байта N в канал 2 (спикер)
 
IN AL, 61h        //считываем значение (вкл/выкл) спикера
OR AL, 00000011b    //изменяем значение на ВКЛ
OUT 61h, AL        //включение звукового тона
 
MOV BX, 4000        //временная задержка 4000 итераций большого цикла
@L1:            //начало большого цикла
   MOV CX, 0        //макс. Кол-во итераций малого цикла (0--)
   @M1:            //начало малого цикла
      NOP            // эти команды дают задержку
      NOP
      NOP
   DEC CX        //уменьшаем СХ тут
   JNZ @M1        //пока СХ не станет=0 повторяем М1 цикл
DEC BX            //уменьшаем ВХ тут
JNZ @L1            //пока ВХ не станет=0 повторяем L1 цикл
 
IN AL, 61h        //считываем значение 61h
AND AL, 11111100b    //устанавливаем в выкл положение
OUT 61h, AL        //выключаем звуковой тон
 
MOV BX, 4000        //временная задержка 4000 итераций большого цикла
@L2:             //начало большого цикла
   MOV CX, 0        //макс. Кол-во итераций малого цикла (0--)
   @M2:             //начало малого цикла
      NOP            // эти команды дают задержку
      NOP
      NOP
   DEC CX        //уменьшаем СХ тут
   JNZ @M2        //пока СХ не станет=0 повторяем М2 цикл
DEC BX            //уменьшаем ВХ тут
JNZ @L2            //пока ВХ не станет=0 повторяем L2 цикл
 
ADD DX, 1000        //увеличиваем коэффициент деления
CMP DX, 11000        //сравниваем DX с 11000
JNZ @P            //если DX не равен 11000 то выполняем главный цикл Р опять
 
end;
end.