Code:
Define OSC 20 ' 20 MHz oscillator
RCSTA = %00000000
BAUDCON = %01000000
ADCON1 = 15 ' All I/O pins digital
Pause 100
pause 3000
:STPCMD
HIGH PORTD.0
PAUSE 10
LOW PORTD.0
Serout2 PORTC.6, 84, [$1B,"S",$d] 'SEND STOP COMMAND S
SERIN2 PORTC.7, 84, 1000, STPCMD,[WAIT ("K")]
HIGH PORTD.1
:DWNLDCMD
HIGH PORTD.0
PAUSE 10
LOW PORTD.0
Serout2 PORTC.6, 84, [$1B,"D",$d] 'SEND STOP COMMAND S
SERIN2 PORTC.7, 84, 1000, DWNLDCMD,[WAIT ("K")]
HIGH PORTD.2
'SEND OUT CONFIG REGISTERS FOR TROUBLESHOOTING
Serout2 PORTC.6, 84, [$d]
Serout2 PORTC.6, 84, [".......BIT7^..BIT0^",$d]
Serout2 PORTC.6, 84, ["TXSTA......",BIN TXSTA,$d]
Serout2 PORTC.6, 84, ["RXSTA......",BIN RCSTA,$d]
Serout2 PORTC.6, 84, ["BAUDCON....",BIN BAUDCON,$d]
Serout2 PORTC.6, 84, ["OSCTUNE....",BIN OSCTUNE,$d]
Serout2 PORTC.6, 84, ["OSCCON.....",BIN OSCCON,$d]
Serout2 PORTC.6, 84, ["PORTC......",BIN PORTC,$d]
Serout2 PORTC.6, 84, ["LATC.......",BIN LATC,$d]
Serout2 PORTC.6, 84, ["TRISC......",BIN TRISC,$d]
Serout2 PORTC.6, 84, ["UCON.......",BIN UCON,$d]
Serout2 PORTC.6, 84, ["HAVE A NICE DAY !",$d]
STOP
Bookmarks