Отправлено 507 07 октября 2004 г. 13:17 В ответ на: Красивый звучок при нажатии на кнопочки как бы организовать подручными средствами? отправлено Сантехник 07 октября 2004 г. 08:53

Хотя очень приятными такие звуки не назовёшь :) Однако можно поиграться с параметрами. Идея проги взята из ZX Ревю :)

Beep: clr A
movc A,@A+DPTR
mov R4,A ; *
mov A,#1
movc A,@A+DPTR
mov R2,A ; *

s_m2: mov A,#2
movc A,@A+DPTR
mov R3,A ; *

s_m1: mov A,#3
movc A,@A+DPTR
mov R1,A ; *

mov A,R2
s_m0: mov R0,A
djnz R0,$
cpl Speaker
djnz R1,s_m0

mov A,#4
movc A,@A+DPTR
add A,R2 ; *
mov R2,A
djnz R3,s_m1

mov A,#5
movc A,@A+DPTR
add A,R2 ; *
mov R2,A

djnz R4,s_m2

clr Speaker

ret

beep1: DB 30,50,4,10,30,256-4*30
beep2: DB 10,50,30,10,2,256-30*2
beep3: DB 3,250,6,100,0,256-50