'Frequency divider for picaxe 8M and CD4059 '32768/ 100 = 327.68 '327.68 = (328*17 + 327*8)/25 'Out0 = Jam J1,J5 & J6; Out1 = Jam J7; Out2 = Latch; Out4 = 50 Hz out 'Input 3= Main interrupt setfreq m8 let dirs = %00010111 high 2 'enable latch setint %00001000, %00001000 'interrupt on 100 Hz pulse high main_timebase: goto main_timebase 'wait until interrupted interrupt: toggle 4 'toggling divides interrupt frequency by 2 low 2 'reset latch inc b0 'increment loop count select b0 case 1 to 17 ' divide by 328 low 0 : high 1 case 18 to 24 ' divide by 327 high 0 : low 1 else 'outputs 0&1 don't change,this is iteration 25 let b0 = 0 endselect high 2 'enable latch setint %00001000, %00001000 'interrupt on 100 Hz pulse high return