extrn   soundf:far

stack   segment para stack 'stack'
        db      64 dup('stack...')
stack   ends

dseg    segment para 'data'
mus_freq dw      19,3 dup(896,19)
	 dw      330,330,349,392,392,349,330,294
         dw      262,262,294,330,330,294,294
         dw      330,330,349,392,392,349,330,294
	 dw	262,262,294,330,294,262,262
	 dw	294,294,330,262,294,330,349,330,262
	 dw	294,330,349,330,294,262,294,196,330
	 dw	330,330,349,392,392,349,330,349,294
	 dw	262,262,294,330,294,262,262
         dw      -1
mus_time dw	 25,3 dup(25,50)
	 dw      2 dup(12 dup(25),37,13,50)
         dw      5 dup(25),12,13,3 dup(25),12,13,13 dup(25),12,13,4 dup(25),37,13,50   
dseg    ends

cseg    segment para 'code'
        assume  cs:cseg,ss:stack,ds:dseg
music   proc far
        mov     ax,dseg
        mov     ds,ax
        lea     si,mus_freq
        lea     bp,ds:mus_time
freq:
        mov     di,[si]
        cmp     di,-1
        je      end_mus
        mov     bx,ds:[bp]
        call    soundf
        add     si,2
        add     bp,2
        jmp     freq
end_mus:
        mov     ah,4ch
        int     21h
music   endp

cseg    ends
        end     music