' Mini-Circuits DSN-2300A-1119 PLL Frequency Synthesizer Loader Code
' GBPPR HP8569B Tracking Generator / BASIC Stamp 2
'
' 2050 MHz Local Oscillator
'
' DSN-2300A-1119 Pin      BASIC Stamp Pin
' ----------------------------------------
' DATA (9)                 P1
' CLK  (11)                P0
' LE   (12)                P2
'
' 10 MHz reference frequency / 250 kHz step size
'
' {$STAMP BS2}
' {$PBASIC 2.5}

IVAL1 VAR Word
IVAL2 VAR Byte

FVAL1 VAR Word
FVAL2 VAR Byte

RVAL1 VAR Word
RVAL2 VAR Byte
RVAL3 VAR Word
RVAL4 VAR Byte

NVAL1 VAR Word
NVAL2 VAR Byte
NVAL3 VAR Word
NVAL4 VAR Byte
NVAL5 VAR Word
NVAL6 VAR Byte

IVAL1 = $9F80
IVAL2 = $13

FVAL1 = $9F80  ' Prescaler = /32
FVAL2 = $12

RVAL1 = $1000  ' R = 40 for DSN-2300A
RVAL2 = $A0

RVAL3 = $1000  ' R = 20 for DSN-1500A
RVAL4 = $50

NVAL1 = $2100  ' N = 8200 / B = 256 A = 8 for 2050 MHz
NVAL2 = $21

NVAL3 = $2048  ' N = 2304 / B = 72 A = 0 for 1152 MHz
NVAL4 = $01
NVAL5 = $204E  ' N = 2500 / B = 78 A = 4 for 1250 MHz
NVAL6 = $11

LOW 0
LOW 1
LOW 2
LOW 3
LOW 4


' Program DSN-2300A for 2050 MHz
'
' Load Initial
SHIFTOUT 1,0,1,[IVAL1\16]
SHIFTOUT 1,0,1,[IVAL2]
PULSOUT 2,1     ' Bring LE high, then low
PAUSE 5
' Load Function
SHIFTOUT 1,0,1,[FVAL1\16]
SHIFTOUT 1,0,1,[FVAL2]
PULSOUT 2,1     ' Bring LE high, then low
PAUSE 5
' Load /R
SHIFTOUT 1,0,1,[RVAL1\16]
SHIFTOUT 1,0,1,[RVAL2]
PULSOUT 2,1     ' Bring LE high, then low
PAUSE 5
' Load /N
SHIFTOUT 1,0,1,[NVAL1\16]
SHIFTOUT 1,0,1,[NVAL2]
PULSOUT 2,1     ' Bring LE high, then low
PAUSE 5

' Program DSN-1500A for 1152 MHz (Optional)
'
' Load Initial
SHIFTOUT 1,0,1,[IVAL1\16]
SHIFTOUT 1,0,1,[IVAL2]
PULSOUT 3,1     ' Bring LE high, then low
PAUSE 5
' Load Function
SHIFTOUT 1,0,1,[FVAL1\16]
SHIFTOUT 1,0,1,[FVAL2]
PULSOUT 3,1     ' Bring LE high, then low
PAUSE 5
' Load /R
SHIFTOUT 1,0,1,[RVAL3\16]
SHIFTOUT 1,0,1,[RVAL4]
PULSOUT 3,1     ' Bring LE high, then low
PAUSE 5

IF (IN15 = 0) THEN
  ' Load /N - AUX RF A
  SHIFTOUT 1,0,1,[NVAL3\16]
  SHIFTOUT 1,0,1,[NVAL4]
  PULSOUT 3,1     ' Bring LE high, then low
  PAUSE 5
ELSE
  ' Load /N - AUX RF B
  SHIFTOUT 1,0,1,[NVAL5\16]
  SHIFTOUT 1,0,1,[NVAL6]
  PULSOUT 3,1     ' Bring LE high, then low
  PAUSE 5
ENDIF

HIGH 4

END