public sound
cseg segment para 'code'
     assume cs:cseg
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

sound proc far
      push ax
      push bx
      push cx
      push dx
      push di 
      mov cx,0
      mov al,0b6h   ;10
      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     ;20
      out 61h,al
wait1:
      mov cx,633
	call waitf
      dec bx
      jnz wait1
      mov al,ah
      out 61h,al
	pop di
      pop dx       ;30
      pop cx
      pop bx
      pop ax
      ret
sound endp
 
cseg ends
     end