Le même programme uniquement en assembleur :
;*************************************************
- **************************;
;* S O U N D *;
;*------------------------------------------------
----------------------------*;
;* Fonction : Sort la gamme chromatique de l´octave 3 à l´octave 5 à *;
;* l´aide d´une routine universelle de générat° de sons. *;
;*------------------------------------------------
----------------------------*;
;* Auteur : MICHAEL TISHER *;
;* développé le : 06/08/1987 *;
;* dernière modif : 16/02/1992 *;
;*------------------------------------------------
----------------------------*;
;* Assemblage : MASM SOUNDA; *;
;* LINK SOUNDA; *;
;* EXE2BIN SOUNDA SOUNDA.COM ou *;
;* TASM SOUNDA *;
;* TLINK /TC SOUNDA *;
;*------------------------------------------------
----------------------------*;
;* Appel : SOUND *;
;*************************************************
- **************************;
code segment para ´CODE´ ;D éfinition du segment de code
org 100h ;I l commence à l´adresse 100(h)
;d irectement à la suite du PSP
assume cs:code, ds:code, es:code, ss:code
;_ _ Programme
__________________________________________________
_______________;
sound proc near
;- - sortir message
--------------------------------------------------
-----------
mov ah,9 ;N uméro de fonction pour sortir chaîne
mov dx,offset initm ;A dresse d´offset du message
int 21h ;A ppeler interruption du DOS
;- - Jouer gammes chromatiques
--------------------------------------------------
xor bl,bl ;C ommencer par le Do de la 3ème octave
mov dl,9 ;J ouer une demi seconde chaque fois
nextune: call play_tune ;J ouer note
inc bl ;N ote suivante
;- - Sortir message de fin
--------------------------------------------------
----
mov ah,9 ;N uméro de fonction pour sortir chaîne
mov dx,offset endmes ;A dresse d´offset du message
int 21h ;A ppeler interruption du DOS
mov ax,4C00h ;T erminer programme par appel d´une
int 21h ;f onction DOS en renvoyant le code d´erreur 0
sound endp
;_ _ Données du programme principal _____________________________________________
initm db 13,10,"SOUND (c) 1987 by Michael Tischer",13,10,13,10
db "Si le haut-parleur de votre PC fonctionne correctement, "
db "vous allez entendre",13,10,"maintenant la gamme chro"
db "matique des octaves 3à 5.",13,10,"$"
endmes db 13,10,"Fin",13,10,"$"
;- - PLAY_TUNE : Jouer une note
-------------------------------------------------
;- - Entrée : BL = n° de note par rapport au Do de la 3ème octave
;- - DL = Durée de note en 1/18èmes de seconde
;- - Sortie : Aucune
;- - Registres : AX,CX,ES et FLAGS sont modifiés
;- - Infos : Le contrôle n´est rendu à la routine d´appel qu´une
;- - fois la durée de note écoulée
play_tune proc near
push dx ;R anger DX et
push bx ;B X sur la pile
;- - Détourner interruption temporisateur sur routine utilisateur ---------------
push dx ;R anger DX et
push bx ;B X sur la pile
mov ax,351ch ;L ire adresse de l´interruption temporisateur
int 21h ;A ppeler interruption du DOS
mov time_anc,bx ;A dresse d´offset de l´ancienne interruption
mov time_anc+2,es ;e t ranger adresse de segment
mov dx,offset sound_ti ;A dresse offset nouvelle routine tempo.
mov ax,251ch ;F ixer nouvelle routine temporisateur
int 21h ;A ppeler interruption du DOS
pop bx ;R etirer BX et
pop dx ;D X de la pile
mov al,182 ;P réparer génération d´un son
out 43h,al ;E nvoyer valeur au Timer Command Register
xor bh,bh ;B H pour adressage table notes = 0
shl bx,1 ;D oubler n° note (car table de mots)
mov ax,[notes+bx] ;L ire valeur de note
out 42h,al ;O ctet faible dans Timer Counter Register
mov al,ah ;T ransférer octet fort dans AL
out 42h,al ;e t aussi dans Timer Counter Register
in al,61h ;L ire bit de contrôle du haut parleur
or al,11b ;D eux bits inférieurs activent haut-parleur
mov fin_s,1 ;N ote doit encore être jouée
mov cptr_s,dl ;e t sauvegarder
out 61h,al ;A ctiver haut-parleur
play: cmp fin_s,0 ;N ote terminée ?
jne play ;N on --> attendre encore
in al,61h ;L ire bit de contrôle du haut parleur
and al,11111100b ;A nnuler 2 bits inférieurs
out 61h,al ;D ésactiver haut-parleur
;- - Activer à nouveau ancienne interruption temporisateur ----------------------
mov cx,ds ;R anger DS
mov ax,251ch ;n ° fonction pour fixer vecteur d´interruption
lds dx,dword ptr time_anc ;C harger encienne adresse dans DX:DX
int 21h ;A ppeler interruption du DOS
mov ds,cx ;R amener DS
pop bx ;R etirer BX et
pop dx ;D X de la pile
ret
play_tune endp
;- - Nouvelle interruption temporisateur ----------------------------------------
sound_ti proc far ;E st appelée 18 fois par seconde
dec cs:cptr_s ;D écrémenter compteur
jne fin_st ;S i pas encore 0, alors fin
mov cs:fin_s,0 ;S ignaler durée de note écoulée
fin_st: jmp dword ptr cs:[time_anc] ;V ers ancienne interruption temporisateur
sound_ti endp
;_ _ Voici les variables dont ont besoin les 4 routines _________________________
time_anc dw (?),(?) ;A dresse ancienne interruption temporisateur
cptr_s db (?) ;D urée restante d´une note en 1/18èmes de seconde
fin_s db (?) ;I ndique si note a déjà été jouée
notes dw 9121,8609,8123,7670 ;V aleurs de notes pour l´octave 3
dw 7239,6833,6449,6087
dw 5746,5423,5119,4831
dw 4560,4304,4063,3834 ;V aleurs de notes pour l´octave 4
dw 3619,3416,3224,3043
dw 2873,2711,2559,2415
dw 2280,2152,2031,1917 ;V aleurs de notes pour l´octave 5
dw 1809,1715,1612,1521
dw 1436,1355,1292,1207
;_ _ Fin
__________________________________________________
______________________
code ends ;F in du segment de CODE
end sound ;F in du programme assembleur
