Мелодия системного динамика, Все о системном динамике Опции

[КМА]

Здравствуйте, уважаемые.

Есть задача:

Написать программу исполняющую на системном динамике песню про веселых гусей.

К сожалению, я пока не обладаю соответствующими навыками в программировании на ассемблере, но был бы очень признателен людям, которые откликнулись бы на эту тему и написали все что знаю о системном динамике, как к нему обращаться и работать. Как завершение этой темы, общими усилиями, хотелось бы написать процедуру биликанья динамика, т. е. в соответствии от введенной цифры он биликал бы соответствующую ноту. Вот.

Заранее благодарен тем, кто откликнется.

[КМА]

М

КМА, следи за тем, что печатаешь. Я исправил.. Лопарь

Я тута помучился чуть-чуть, и вообщем сделал такую прикольную вещь. По возможности оставил комментарии, мало ли кому понадобиться. Только она играет "Веселую овечку Мери".

TITLE mary        
;=================
;= сегмент стека =
;=================
mary_stack SEGMENT PARA STACK 'stack'
        db 64 dup('stack')
mary_stack ENDS   
;==================
;= сегмент данных =
;==================
mary_data SEGMENT PARA  PUBLIC 'data'
; время задержки  
mary_time dw 6 dup (25), 50
          dw 2 dup (25, 25), 50, 25, 25, 50
          dw 12 dup (25), 100
; цельная нота, это 100 (1 сек), половинная 50, 25 это четверть, и т. д.
;++++++++++++++++++++++
; мелодия мери    
mary_freq dw 330, 294, 262, 293, 3 dup(330)     ; 1-2 такт
          dw 3 dup(294), 330, 2 dup(392)        ; 3-4 такт
          dw 330, 294, 262, 294, 4 dup (330)    ; 5-6 такт
          dw 2 dup (294), 330, 294, 262, 0FFFFh ; 7-8 такт
; нота соответствуют частотам
; до 130,8        
; диез 138,6      
; ре 146,8        
; ми 164,8        
; диез 155,6      
; фа 174,8        
; соль 196        
; диез 185        
; ля 220          
; диез 207,7      
; си 246,9        
; ----------      
; до 261          
; диез 277,2      
; ре 293,7        
; диез 311,1      
; ми 329,6        
; фа 349,2        
; диез 370        
; соль 392        
; диез 415        
; ля 440          
; диез 464,2      
; cи 493,9        
mary_data ENDS    
;================ 
;= сегмент кода = 
;================ 
mary_code SEGMENT PARA PUBLIC 'code'
                  
mary proc far     
assume CS: mary_code, DS: mary_data, SS: mary_stack
        push DS   
        xor ax, ax   ; обнуляем ax
        push ax      ; DS:0000 по нему будем выходить в ОС
                  
        mov ax, mary_data ; явно определим сегмент данных
        mov DS, ax
        ; подготовим все для проигрыша звука, т. е.
        lea si, mary_freq   ; загрузим в si массив мелодии
        call play           ; запускаем процедуру play
       ret        
mary endp         
                  
; Процедра play проигрывает мелодию
; в регистре si должен находиться адрес массива мелодии
play proc near    
        push ax           ; cохраняем регистры
        push di   
        push si   
        push bp   
       @freq:     
         mov di, [si]     ; загружаем в di следующую ноту
         cmp di, 0FFFFh   ; сравниваем, не конец ли? (0FFFFh признак окончания)
         je @end_play     ; если конец, то заканчиваем проигрывать
                          ; если нет, то воспроизведем звук
         mov bx, mary_time+bp
         call sound       ; вызвав процедуру sound
         add si, 2        ; ставим указатель на следующую ноту
         add bp, 2        ; и соответственно на следующий такт
         jmp @freq        ; прыгаем на следующий проигрыш ноты
                  
       @end_play: 
         pop bp           ; восстанавливаем регистры
         pop si   
         pop di   
         pop ax   
      ret         
play endp         
                  
; процедура sound проигрывает звук
; в di соответствущая нота
; в bx задержка   
sound proc near   
        push ax       ; сохраним регистры
        push bx   
        push cs   
        push dx   
        push di   
                  
        mov al, 0BCh
        out 43h, al        ; запишем в al значение таймера
        mov dx, 14h        ; делитель времени
        mov ax, 4F33h      ; 1331000 делить на частоту
        div di    
        out 42h, al        ; младший байт счетчика таймера
        mov al, ah
        out 42h, al
        in al, 61h
        mov ah, al
        or al, 3           ; включаем динамики
        out 61h, al
        @waits:            ; делаем задержку
         mov cx, 10000     ; в 10 милисекунд
         loop $   
         dec bx            ; пока не кончиться bx
         jnz @waits        ; будем выводить звук
        mov al, ah
        out 61h, al        ; восстанавливаем порт в начальное состояник
                  
        pop di        ; восстановим регистры
        pop dx    
        pop cx    
        pop bx    
        pop ax    
       ret        
sound endp        
mary_code ENDS    
          END mary