'	Test Frequency out code
'
'	Count through Lookup tabe and use Frquency out.

frecount var word
frecount2 var word
freq	 var word

start:	frecount=0
loop:	If frecount >= 85 Then 
	  goto start
	Else
	  goto table
	endif	
play:	freqout PORTB.0,500,freq	
	goto loop

table:	lookup2	frecount,[27,29,31,33,35,37,39,41,44,46,49,52,55,58,62,65,69,73,78,82,87,92,98,104,110,117,123,131,139,147,156,165,175,185,196,208,220,233,247,262,277,294,311,330,349,370,392,415,440,466,494,523,554,587,622,659,698,740,784,831,880,932,988,1047,1109,1175,1245,1319,1397,1480,1568,1661,1760,1865,1776,2093,2217,2349,2489,2637,2794,2960,3136,3322],freq
	frecount = frecount + 1
	goto play