main.c

本代码是本人毕设所做的GPRS数传系统的软件部分

#include "commdrv.h"
#include "modemdrv.h"
#include "ppp.h"
#include "udp.h"
#include "ip.h"


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
	ModemBuffFlush (); // Flush contents of Modem Buffer
	if (ModemGetch () != 0x7F) { // Test for PPP packets
		Waitfor (":", 100); // Wait for "Username:" of ISP script
		PPPSendVoidLCP (); // ForcePPPtransactionsinsteadof
		// scripts
	}
	CommEventProc (ProcPPPReceive); // Install PPP service routine

	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 *udpdata, 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: // Data through UDP port 1082
	// Do something here
	break;
case 1083: // Data through UDP port 1083
	break;
	}
}
/***********************************************************************
Function : LinkTask
Parameters : None
Date : January 2001
Desc : This function synchronize the phone line with the PPP
link.
***********************************************************************/
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
	}
}
/***********************************************************************
Function : ApplicationTask
Parameters : None
Date : January 2001
Desc : This function checks channel 2 of the A/D and sends a warning
message to a remote server using UDP if a conversion is higher than
hexadecimal 0x35.
***********************************************************************/
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" , 7);
	}
}
/////////////////////////////////////////////////////////////////////////////
// M A I N
/////////////////////////////////////////////////////////////////////////////
void main(void) {

	IPInit (); // Initialize IP

	PPPInit (); // Initialize PPP interface
	IPBindAdapter (PPP); // Send IP packets using PPP format

	UDPSetCALLBACK (UDPReceive); // Set Callback 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
	{ // Create some stack variables
		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

		LinkTask (); // Synchronize PPP link with Modem
		PPPEntry (); // Poll for PPP packets

		ApplicationTask (); // Call application
	}
}