public tiger
extrn sound:far

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

dseg segment para 'data'
      
mus_f	dw	262,294,330,262,262,294,330,262
	dw	330,349,392,330,349,392
	dw	392,440,392,394,330,262,392,440,392,394,330,262
	dw	294,196,262,294,196,262,0
mus_t	dw	10 dup(50),100,2 dup(50),100
	dw	4 dup(25),2 dup(50),4 dup(25),2 dup(100)
	dw	2 dup(50),100,2 dup(50),100
dseg ends
 
cseg	segment	para 'code'
	assume	cs:cseg,ds:dseg,ss:stack
tiger  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
tiger endp
cseg	ends

	end