Code:
REM Above this is just LCD and button setups...
NS_CK VAR PORTC.1
NS_DA VAR PORTC.2
FREQ VAR WORD 'REM Consisting of FREQ.1 and FREQ.2 (Hi/Lo Byte)
MYREG VAR BYTE 'REM Register of NS73M
MYVAL VAR BYTE 'REM Value for register in NS73M
MYCON VAR BYTE 'REM Control Value for NS73M
START:
'REM The Theory is that we setup all parameters, then turn it on.
MYCON = %11001100 'REM Setup Control Address for NS73M
PAUSE 100 'REM Breathe a moment; let the chip get settled...
I2CWRITE NS_DA,NS_CK,MYCON,$0E,[$05] 'REM SOFTWARE RESET NS73M Chip
PAUSE 100
I2CWRITE NS_DA,NS_CK,MYCON,$01,[$B4] 'REM Pilot On, Subcarrier On
PAUSE 10
I2CWRITE NS_DA,NS_CK,MYCON,$02,[$07] 'REM 2mw Power, Unlock Detect ON
PAUSE 10
I2CWRITE NS_DA,NS_CK,MYCON,$08,[$1A] 'REM CEX Band 2
PAUSE 10
'REM Again, theory is that I am transmitting on 88.5MHz, as per datasheet...
I2CWRITE NS_DA,NS_CK,MYCON,$03,[$58] 'REM Frequency; Lower Byte
PAUSE 10
I2CWRITE NS_DA,NS_CK,MYCON,$04,[$2A] 'REM Frequency; Upper Byte
PAUSE 10
I2CWRITE NS_DA,NS_CK,MYCON,$00,[$A3] 'REM Power, 200mv Audio, 75us PE
PAUSE 10
I2CWRITE NS_DA,NS_CK,MYCON,$0E,[$05] 'REM SOFTWARE RESET NS73M
PAUSE 10
I2CWRITE NS_DA,NS_CK,MYCON,$06,[$1E] 'REM Charge Pumps
PAUSE 10
I2CWRITE NS_DA,NS_CK,MYCON,$0E,[$05] 'REM SOFTWARE RESET NS73M
PAUSE 10
REM Just a note to let me know it got through the code unscathed...
LCDOUT $FE, 1
LCDOUT $FE, 2
PAUSE 500
LCDOUT $FE, $80
LCDOUT "Transmitting?"
LCDOUT $FE, $C0
LCDOUT " supposedly..."
PAUSE 1000
END
At first I was trying this with a 16F84A, and moved to a 16F877A just to make sure there was nothing wrong with my chips. I get the same results; nothing.
Bookmarks