OOPS thanks for catching that Dave,
I posted the wrong code.
here is the correct code
Code:
' PIC: 16LF84A (low voltage)
' LCD connections
' DB4 PortA.0
' DB5 PortA.1
' DB6 PortA.2
' DB7 PortA.3
' RS PortA.4 (add 4.7K pullup resistor to 5 volts)
' E PortB.3
'
' RXD PortB.6
' TXD PortB.7
' RESET PortB.5
Include "modedefs.bas" ' Include serial modes
LF CON 10 ' Line feed constant
RXD VAR PORTB.6 'recive data pin
TXD VAR PORTB.7 'transmit data pin
RESET VAR PORTB.5 'reset pin
SRIN VAR byte[2] 'array to hold modem tx data
SRIN[0]=0 'init SRIN byte to zero
SRIN[1]=0 'init SRIN byte to zero
pause 1000
loop: Lcdout $fe, 1 ' Clear LCD screen
Lcdout $fe,$80
Lcdout "Reseting Modem"
'Reset Command. reset pin must be held low for 300ms then return
'to high state within 5ms.
low reset
pause 300
high reset
pause 1000
Lcdout $fe, 1 ' Clear LCD screen
Lcdout $fe,$80
Lcdout "Sending"
Lcdout $fe,$C0 ' Move curser to second line
Lcdout "serout command"
serout2 TXD,813,["AT",13] 'Send AT command to modem
pause 200
serin2 RXD,813,3000,cont,[STR SRIN\2] 'Recieve 2 bytes from modem
cont:
Lcdout $fe, 1 ' Clear LCD screen
Lcdout $fe,$80
Lcdout "recieved: ",#SRIN[0],#SRIN[1] 'Display results from Modem
finish:
goto finish
oh, by the way, how do you keep the code snipets formatted?
thanks
Bookmarks