title  soundf -- the speaker beeper    
        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
        waitl:
                mov cx,6630
                call waitf
                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