'LMX2325 PLL Controller A vAR WORD 'A REGISTER B VAR WORD 'B REGISTER R var word 'R REGISTER abit var bit 'Bit used in sendbit routine c var byte 'temp variable ANSEL = %00000000 'Analog ports to digital mode TRISIO = %00000 'I/O's to outputs DEFINE OSC 4 '4MHz RC OSC INTERNAL DEFINE OSCCAL_1K 1 'For 12F675 to work correctly ?! 'GP0 is CLOCK 'GP1 is LE 'GP2 is DATA gpio.0 = 0 'CLOCK LOW gpio.1 = 0 'LE LOW gpio.2 = 0 'DATA LOW '4MHz ref, 0.0625MHz comparator freq, VCO = 2170MHz R = 64 B = 542 A = 32 main: 'serout2 gpio.4,16780,[10] 'Debug 'Send R counter and prescaler settings ................... 'MSB first abit = 0 'bit15 is prescaler bit 0=64, 1=32 gosub sendbit for c = 0 to 13 'Send R bits abit = R.0(13-c) '<