public my
extrn sound:far

STACK SEGMENT PARA STACK 'STACK'
DB 64 DUP('STACK')
STACK ENDS

dseg segment para 'data'

mus_f	dw 392,440,382,349,330,294,262,196,262,330,523,494,440,330,392,392
      dw 440,494,440,392,349,330,294,220,247,220,196,392,262,294,330,330
	dw 392,440,382,349,330,294,262,196,262,330,523,494,587,523,440,440
	dw 523,494,440,392,440,392,349,330,247,220,196,294,262,262
	dw 523,587,659,587,523,440,494,440,330,392,392
	dw 523,587,659,587,523,440,494,440,330,440,440
	dw 392,349,330,294,247,220,220,196,330,349,294,262,262,262,0	
	
mus_t	dw 50,50,50,50,50,50,200,200,50,50,50,50,100,25,200,200
	dw 50,50,50,50,50,50,200,200,50,50,50,50,100,25,200,200
      dw 50,50,50,50,50,50,200,200,50,50,50,50,100,25,200,200
 	dw 50,50,50,200,50,50,50,200,100,50,100,50,200,200
	dw 50,50,50,50,50,50,50,100,25,200,200
	dw 50,50,50,50,50,50,50,100,25,200,200
	dw 50,50,50,200,50,25,25,50,200,200,100,50,200,100

dseg ends
 
cseg	segment	para 'code'
	assume	cs:cseg,ds:dseg,ss:stack
my  proc far
	mov	ax,dseg
	mov	ds,ax
	
	lea	si,mus_f
	lea	bp,mus_t

freq:	mov	di,[si]
	cmp	di,0
	je	exit
	mov	bx,ds:[bp]
      call sound
      add si,2
      add bp,2
      jmp freq
exit:		
	ret
my endp
cseg	ends

	end my