public love
extrn sound:far

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

dseg segment para 'data'

mus_f	dw 330,349,392,440,392,330,262,294,330,349,294
	dw 330,349,392,440,392,196,220,249,392,349,392,330
	dw 330,349,392,440,392,330,262,294,349,330,220
	dw 196,220,392,440,392,349,349,330,294,262,294,330,262
	dw 262,523,494,523,440,494,523,330,349,392,440
	dw 262,523,494,523,440,494,523,330,349,330,294
	dw 330,349,392,440,392,330,262,294,349,330,220
	dw 196,220,392,440,392,349,349,330,294,262,294,330,262,0
	
mus_t	dw 25,25,25,25,100,25,25,25,25,25,100
	dw 25,25,25,25,25,50,25,25,25,25,25,100
        dw 25,25,25,25,100,25,25,25,25,25,100
        dw 25,25,25,25,25,50,25,25,12,12,25,25,100
        dw 25,25,25,25,12,12,50,25,12,12,100
	dw 25,25,25,25,12,12,50,25,12,12,100
	dw 25,25,25,25,100,25,25,25,25,25,100
	dw 25,25,25,25,25,50,25,25,12,12,25,25,100

dseg ends
 
cseg	segment	para 'code'
	assume	cs:cseg,ds:dseg,ss:stack
love  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]

      mov ax,2
      mul bx
      mov bx,ax

      call sound
      add si,2
      add bp,2
      jmp freq
exit:  ret		
	
love endp
cseg	ends

	end	love