BEEP	PROC	FAR

	push	AX
	push	CX
	inc n

	mov	    AL, 10110110b
	out     43H, AL		; Установка битов у порта "управляющего" счетчиками (GATE2)
	mov     AX, 4000	; Выбор высоты звука
	out	    42H, AL
	mov	    AL, AH
	out	    42H, AL

	in      AL, 61H 	; Сохраняем в регистре AH значение хранящееся в порте 61h
	mov     AH, AL 		; выкл состояние динамика
	or      AL, 3 		; установливаем два младших бита в 1 у порта 61h для
	out     61H, AL     ; вкл динамика

	mov cx, 48000
	KILL_TIME: LOOP KILL_TIME

	mov     AL, AH
	out     61H, AL		; Выкл динамик

	pop     CX
	pop     AX

	mov     AL, 20h		; для разрешения обработки прерываний с более
	out     20h, AL		; низкими уровнями, чем только что обработанное

	iret
BEEP	ENDP