'************************************************
'ADF4118 PLL Ver0.0.2
'Freq=1050-2050MHz'
'2007.03.14
'JA4LAO_Tuneo.Ito
'AT90S2313-10
'************************************************

Config Portd = Output

Dim I As Byte
Dim Pllcmd(5) As Long

Pllcmd(1) = &B000000000000001000111                         'INITIALIZATION LATCH
Pllcmd(2) = &B000000000000001000110                         'FUNCTION LATCH
Pllcmd(3) = &B000000000000000101000                         'REFERENCE COUNTER LATCH  1/10
Pllcmd(4) = &B100000010010100010001                         'AB COUNTER LATCH  1/2500
Pllcmd(5) = &B000000000000001000010                         'FUNCTION LATCH

For I = 1 To 5
    Reset Portd.3
    Shiftout Portd.4 , Portd.5 , Pllcmd(i) , 1
    Set Portd.3
Next I

End