Wednesday, August 28, 1991
					01:48 AM PDT


The BASIC program does essentially the following in a loop:

	- Query the Mirage for the sampling rate, etc.
	- Format and display the data, adjust the sampling tone
	- Check for and handle any user input.


The following should prove helpful:  

	1-50	'main' -calls init and eventually the main loop
	100-190 Initialization: setting up the interface, loading
		the .ml code, etc.
	200-290 Main loop.  Updates the screen and the tone.
	300-395 Gets and handles user input
	400-405 Screen header print routines
	410-425 Routine to get pitch bend range
	450-465 Routine to get the MIDI channel
	500-550 Handles calling the machine language routine
	600-699 Help
	700-710 Calculates the internal filter frequency.  This 
		is because the tables in the Advanced Sampler's Guide
		don't list all of the notes.  I think I basically got
		lucky playing with some log functions and 'derived' the
		formula shown.
	750-790 Calculates the note name and accuracy in cents.  This
		is a pretty useful function, so I'll describe it.  The
		relationship between any two adjacent notes is a factor
		of the twelfth root of two.  This routine 'normalizes'
		the frequency by forcing it into an octave between two
		C's (ch and cl for Chigh and Clow).  The frequency for a
		C is 440 times (the twelfth root of two, cubed).  Taking
		12root2 (tr) to the third power produces the ratio of a
		minor third or three half steps.  This, times 440 (A)
		gives us a C.  This is not necessary, but I needed some
		basis, and C seemed like a good place.

		Now for the key to the whole thing.  Given a frequency,
		divide it by the frequency of the C below it.  Take the
		log of the result, and divide this by the log of the
		12root2.  Voila!  The result is the note number (0=C,
		11=B) and the fractional part.  Round to the nearest
		integer, and subtract from the original.  The integer is
		the note, the difference times 100 is the accuracy in
		cents.  If you don't care to go through the
		'normalizing' step (I wrote that part before I knew how
		to make this work), you simply need to do a modulo 12 on
		the result.  Make sure your modulo function handles
		negative numbers correctly.

Well, I hope that helps.   Feel free to drop me a line with any
questions.

					-jk

					Internet: johnny@ptp.hp.com
					CompuServe: 75036,1351