'Demo "barebones" Picaxe-08M polled interrupt handling. Ver 0.9   28th Oct 2004
'Overall effect is a Chernobyl alarm- a monitoring status beep & LED flash every
'minute if cool,but alarm instantly sounds if NTC sensor thermistor gets too warm!
'NB-works reliably as is,but possibly refine with READADC & PIN status check ?
' 
'Triggered by raised temps(~60C) when NTC R falls to ~30k,since Ch.1 input then 
'goes high.Returns to low (0) when it cools <60C. NTC & R voltage divider involves 
'+supply--(10k)--Pin 1--(100k NTC)--ground. Alter 10k &/or NTC value to suit your
'own alert temp (Jaycar 100k @ 25C used here).Red LED Ch.2 & Green LED Ch.4, with
'piezo on Ch.0.Program hosted for download at =>www.picaxe.orcon.net.nz/int08m.bas
'Protoboard layout =>www.picaxe.orcon.net.nz/pcxs08m.jpg (as used 08/M datalogger)
'via Stan. SWAN => s.t.swan@massey.ac.nz   for Dec. 04 "Silicon Chip" article.
'-------------------------------------------------------------------------------
 

SETINT %00000010,%00000010 		'Go to Interrupt routine when Pin 1 goes high

statusloop:					'Normal cool monitoring routine
sound 0,(100,10)				'Audible beep for operator if room very bright  
high 4					'\
pause 500					' Brief green LED flash in case noisy room
low 4  					'/
wait 60   			 	 	'Temperature status interval (wait 60 ~1min)
goto statusloop				'Continue "all OK" safety status looping 


interrupt:			        	'Beep/LED code when thermistor hot
sound 0,(100,10)				'Urgent beeps
high 2 					'\	
pause 100					' Rapid attention getting red LED flashing
low 2						'/
SETINT %00000010,%00000010 		're-enable interrupt
RETURN                    		'allow the interrupts