Einzelnen Beitrag anzeigen

neolithos

Registriert seit: 31. Jul 2003
Ort: Dresden
1.386 Beiträge
 
Delphi 7 Architect
 
#1

Assembler 16Bit Sound

  Alt 4. Dez 2003, 21:25
Code:
Sound:
   ;
   ; Stellt Speaker auf eine Frequenz ein
   ; Eingabe:
   ;  - BX = Frequenz in Hz
   ;
   push ax
   push bx
   push dx
   
   mov ax, 34DDh
   mov dx, 0012h
   cmp dx, bx
   jnc Sound_End      ; klammer nicht hörbare töne aus und div durch 0
   div bx            ; 1193180 div Hz
   
   out 42h, al         ; Setze Tone
   mov al, ah
   out 42h, al
   
   in al, 61h
   test al, 3         ; ist Speaker schon an ?
   jnz Sound_End
   
   or al, 3
   out 61h, al         ; Speaker an
   
   mov al, 0B6h      ; Set up square wave
   out 43h, al
     
Sound_End:
   pop dx
   pop bx
   pop ax
   ret
Diese kleine Function wirft den Sound-Speaker an. Ich konnte einige Werte ermitteln, was sie bedeuten. Leider fehlt mir eine Gesamt-Übersicht über die Speaker-Funktion. Habe zwar schon gegoogelt konnte aber noch nix brachbares finden.

Hat jemand einen Link oder eine Erklärung, was mit welcher Port-Adresse machbar ist?
- ciao neo -
Es gibt niemals dumme Fragen, sondern nur dumme Antworten!
  Mit Zitat antworten Zitat