NAME BEEPLOW


DATA SEGMENT RW PUBLIC
DATA ENDS


stack   stackseg        00H
        assume  ds:data
        assume  es:nothing
        assume  ss:stack

CODE SEGMENT ER PUBLIC

PUBLIC BEEP_INIT
PUBLIC BEEP_ON
PUBLIC BEEP_OFF


;--------------------
; Beep initialize
;--------------------
BEEP_INIT PROC NEAR
	push	ax
	mov	al ,0b6h
	out	43h ,al		; set mode
	pop	ax
	ret
BEEP_INIT ENDP


;--------------------
; Beep on
;--------------------
BEEP_ON PROC NEAR
	push	ax
	mov	ax ,018dh	; set freq
	out	42h ,al
	mov	al ,ah
	out	42h ,al
	in	al ,61h		; BEEP on
	or	al ,03h
	out	61h ,al
	pop	ax
	ret
BEEP_ON ENDP


;--------------------
; Beep off
;--------------------
BEEP_OFF PROC NEAR
	push	ax
	in	al ,61h		; BEEP off
	and	al ,0fch
	out	61h ,al
	pop	ax
	ret
BEEP_OFF ENDP


CODE ENDS

END