include f675_20		-- Includes jpic675.jal
			-- (available at http://www.geocities.com/vsurducan/electro/PIC/lib.html)

const asynch_baudrate_sw = 115_200
const asynch_invert_sw   = true

const			asynch_sw_out_pin	= 1
const			asynch_sw_out_nr        = 1
var volatile byte	asynch_sw_out_port	is gpio
var volatile byte	asynch_sw_out_buffer	is _gpio_buffer
var volatile bit	asynch_sw_out_direction	is gp1_direction

const			asynch_sw_in_pin	= 0
const			asynch_sw_in_nr		= 0
var volatile byte	asynch_sw_in_port	is gpio
var volatile byte	asynch_sw_in_buffer	is _gpio_buffer
var volatile bit	asynch_sw_in_direction	is gp0_direction

include 675rs232_sw				-- Available @ www.wahoo-wa.net

osc_calibrate
asynch_sw_init_transmit				-- Set up 

gp2_direction = input				-- This is the voltage AD converter input

forever loop
	one_ch_ad_read (2,ref_vdd,left_justify)	-- Get voltage on GP2
	asynch_send_sw ( adresh )		-- Send the high byte to the PC
end loop