public  soundf
cseg    segment para    'code'
        assume  cs:cseg
soundf       proc    far
        push    ax
        push    bx
        push    cx
        push    dx
        push    di
        mov     al,0b6h
        out     43h,al

        mov     dx,12h
        mov     ax,348ch
        div     di
        out     42h,al
        mov     al,ah
        out     42h,al

        in      al,61h
        mov     ah,al
        or      al,3
        out     61h,al
;        mov     cx,2800
wait1:
	mov     cx,9999
        call    waitf
;        loop    wait1
        dec     bx
        jnz     wait1
        mov     al,ah
        out     61h,al
        pop     di
        pop     dx
        pop     cx
        pop     bx
        pop     ax
        ret
soundf        endp

waitf   proc    near
        push    ax
waitf1:
        in      al,61h
        and     al,10h
        cmp     al,ah
        je      waitf1
        mov     ah,al
        loop    waitf1
        pop     ax
        ret
waitf   endp


cseg    ends
	end