data segment
freq dw 262,294,330,262,262,294,330,262,330,349,392,330,349,392
     dw 392,440,392,349,330,262,392,440,392,349,330,262,262,196,262,262,196,262
	 dw -1

time dw 200,200,200,200,200,200,200,200,200,200,400,200,200,400
     dw 150,50,150,50,200,200,150,50,150,50,200,200,200,200,400,200,200,400

data ends

code segment
assume cs:code,ds:data
main proc far
start:mov ax,data
      mov ds,ax
      mov si,offset freq
      mov di,offset time
l1:  mov cx,[si]
      cmp cx,-1
      je exit
      mov bx,[di]
      call gensound
      add si,2
      add di,2
      jmp l1
exit:mov ax,4c00h
      int 21h
main endp

gensound proc near
       push dx
       mov al,0b6h
       out 43h,al
       mov dx,08h
       mov ax,3208h
       div cx
       out 42h,al  
       mov al,ah
       out 42h,al
       in al,61h
       mov ah,al
       or al,3
       out 61h,al
wait1: mov cx,663
	   call waitf
	   dec bx
	   jnz wait1
	   
  
  mov al,ah
  out 61h,al
  pop dx
  ret
  gensound 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
	
  code ends
  end start