TITLE PGM16_3A:  BEEP
EXTRN TIMER_FLAG:BYTE

PUBLIC BEEP

.MODEL SMALL
.CODE
BEEP PROC

PUSH CX

MOV BL,0B6H
OUT 43H,AL

MOV AX,1193
OUT 42H,AL
MOV AL,AH
OUT 42H,AL
;ACTIVATE SPEAKER

IN AL,61H
MOV AH,AL
OR AL,11B
OUT 61H,AL

MOV CX,9
B_1:CMP TIMER_FLAG,1
JNE B_1
MOV TIMER_FLAG,0
LOOP B_1

MOV AL,AH ;
END BEEP