'Frequency divider for picaxe 8M and CD4059
'32768/ 120 = 273.0666667
'273.0666667 = (273*14 + 274*1)/15
'Out0 = Jam J1; Out1= Jam 5; Out2 = Latch; Out4 = 60 Hz out
'Input 3= Main interrupt


setfreq m8
let dirs = %00010111
high 2
setint %00001000, %00001000 	'interrupt on main timebase pulse high 

main_timebase:  			'loop until interrupted
goto main_timebase

interrupt:
toggle 4				'toggling divides interrupt frequency by 2
low 2					'reset latch
inc b0					

select b0  			
case 1				'divide by 274
high 1 : low 0 				
 				
case 2 to 14			'divide by 273
low 1 : high 0				

else  				'outputs 0&1 don't change,this is iteration 15
let b0 = 0 				'start loop again	
endselect

high 2					'set latch
setint %00001000, %00001000 	'interrupt on main timebase pulse high 
return