CPU = 16F876
MHZ = 10
CONFIG 16254

;***********************************************
; http://www.basicmicro.com                    
; Title : sound.bas                             
; Author : Dale Kubin                          
; Date : 04/29/02                              
; Sound command. Play a sound of 2500hz 
; for 1 second.                              
;***********************************************

freq var word
dur var word

	main:
  		Freq = 2500
		Dur = 1000
  			;Now play it
		sound B0,[dur\freq]
  	goto main