www.pudn.com > 8051_pppsrc.zip > MAIN.C, change:2001-03-12,size:5813b

#include <iogp20.h> 
#include "CommDrv.h" 
#include "ModemDrv.h" 
#include "ppp.h" 
#include "UDP.h" 
#include "IP.h" 
#include "SLIP.h" 
 
//#define USE_SLIP			// Uncomment this line if SLIP is to be used 
 
BYTE RemoteServer [4] = {200, 168, 3, 11};	// Remote Server to send notifications		 
 
const char * ModemCommand [] = {	// Array of modem initialization commands 
	"ATZ\r",			// Reset Command 
	"ATE0\r",			// Disable Echo  
	"AT&C1\r",			// Track presence of data carrier 
	"AT&D3\r"			// Reset modem when an on-to-off transition of DTR ocurres	 
}; 
 
 
 
 
/*********************************************************************** 
Function : 	ModemHandler 
 
Parameters : 	Code - Numeric response code from a Modem dial command 
 
Date : 		January 2001 
 
Desc : 		This function handles the numeric responses from a dial command 
		issued to the modem 
 
***********************************************************************/ 
void ModemHandler (BYTE Code) { 
 
	switch (Code) { 
		case '0':		// OK 
		break; 
 
		case '1':		// CONNECT 
#ifdef USE_SLIP 
			CommEventProc (ProcSLIPReceive);	// Install SLIP service routine 
#else 
 
			ModemBuffFlush ();			// Flush contents of Modem Buffer  
			if (ModemGetch () != 0x7F) {		// Test for PPP packets 
				Waitfor (":", 100);		// Wait for "Username:" of ISP script 
				PPPSendVoidLCP ();		// Force PPP transactions instead of scripts 
		            } 
			CommEventProc (ProcPPPReceive);		// Install PPP service routine 
#endif 
		break; 
 
		case '2':		// RING 
		break; 
 
		case '3':		// NO CARRIER 
		break; 
 
		case '4':		// ERROR 
		break; 
 
		case '6':		// NO DIAL TONE 
		break; 
 
		case '7':		// BUSY 
		break; 
 
		case '8':		// NO ANSWER 
		break; 
 
		case '9':		// CONNECT 2400 
		break; 
 
		default:		// TIME OUT, NO RESPONSE FROM MODEM RECEIVED! 
        	break; 
	} 
} 
 
 
 
/*********************************************************************** 
Function : 	UDPReceive 
 
Parameters : 	Data of UDP packet,  
		size - size of data in bytes 
		RemoteIP - sender IP address 
		port - UDP port number 
 
Date : 		January 2001 
 
Desc : 		This function is executed each time a UDP packet is received  
		and validated. 
 
***********************************************************************/ 
void UDPReceive (BYTE *data, BYTE size, DWORD RemoteIP, WORD port) { 
	 
	switch (port) {						// Select the port number of the UDP packet 
		case 1080:					// If port number equals 1080 then reply with ADC channel 0 
			ADSCR &= 0x00;				// Get an A/D lecture 
			while (!(0x80 & ADSCR));		 
			udp_out->Payload [0] = ADR;		// Format UDP payload 
			UDPSendData ((BYTE *)&RemoteIP, 11222, 0, 1);	// Send UDP reply 
		break; 
 
		case 1081:					// Port = 1081, reply with ADC ch1	 
			ADSCR &= 0x01; 
			while (!(0x80 & ADSCR)); 
			udp_out->Payload [0] = ADR; 
			UDPSendData ((BYTE *)&RemoteIP, 11222, 0, 1); 
		break; 
 
		case 1082:					// Do something here 
		break; 
 
		case 1083:					 
		break; 
	} 
} 
 
 
void LinkTask (void) { 
	if ((PPPStatus & LinkOn) && (!ModemOnLine())) {		// PPP Link ON while Phone is on-hook! 
		PPPStatus &= ~LinkOn;				// Clear PPP link flag 
		PORTC = 0x00;	 
		CommEventProc (ProcModemReceive);		// Install Modem handler 
	} 
} 
 
void ApplicationTask (void) {			 
	ADSCR &= 0x02;						// Test A/D channel 2 
	while (!(0x80 & ADSCR));				// Wait for A/D conversion 
	if (ADR > 0x35) {					// If sample is above 0x35  
								// Send a potification 
		if (!ModemOnLine ()) {					// Test if Modem on-line 
			NoOperation;					// Modem Not on-line, we can re-dial here 
		} 
		UDPSendData ((BYTE *)&RemoteServer, 8010, "Warning from HC08!" , 18); 
	} 
} 
 
 
///////////////////////////////////////////////////////////////////////////// 
// M A I N  
///////////////////////////////////////////////////////////////////////////// 
void main(void) {  
 
  InitPLL ();					// Init PLL to 4.9152MHz 
 
  CONFIG1 = (BYTE)0x0B;			// LVI operates in 5-V mode, 
					// STOP instruction enabled 
					// COP Module Dissabled 
 
  CONFIG2 = (BYTE)0x03;			// Oscillator enabled to operate during stop mode 
					// Internal data bus clock used as clock source for SCI 
					 
 
  PORTC = 0;  
  DDRC = 0xFF; 
   
	IPInit ();				// Initialize IP 
 
#ifdef USE_SLIP 
	SLIPInit ();				// Initialize SLIP implementation 
	IPBindAdapter (SLIP);			// Send IP packets using SLIP format 
#else 
	PPPInit ();				// Initialize PPP interface 
	IPBindAdapter (PPP);			// Send IP packets using PPP format 
#endif	 
	UDPSetCALLBACK (UDPReceive);		// Set Callback function for incoming UDP data 
 
	ModemInit ();				// Modem Init 
	ModemBindBuff (PPPGetInputBuffer());	// Set Modem Buffer for command reception 
	CommEventProc (ProcModemReceive);	// re-direct incoming SCI characters to the Modem interface 
	OpenComm (BAUDS_2400, 			// Open the serial port 
		ENABLE_RX | 			// Enable SCI Rx and Tx modules 
		ENABLE_TX | 			 
		ENABLE_RX_EVENTS);		// Enable Rx IRQs 
 
	{ 
		BYTE Res = 0;			// Create two temp vars in the stack 
		BYTE index; 
	 
			for (index = 0; index = 3; index++) {		// Loop through Modem initiazation commands 
				transmit (ModemCommand [index]);	// Transmit modem command 
				Res = Waitfor ("OK", 30);		// Wait for OK  
 
				if (!Res) {				// Invalid response received 
					// Do something here 
 
					ModemReset ();			// Reset modem  
					index = 0;			// Loop again	 
				}	 
			} 
			Res = ModemDial ("6842626");			// Dial ISP 
			ModemHandler (Res); 				// Handle Modem response 
	} 
 
	EnableInterrupts;						 
	for (;;) {							// Application Loop 
#ifdef USE_SLIP 
		SLIPEntry();						// Poll SLIP packets 
#else 
		LinkTask ();						// Synchronize PPP link with Modem  
		PPPEntry ();						// Poll for PPP packets 
#endif 
		ApplicationTask ();					// Call application task 
    } 
}