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