osd-contiki/tests/per.c

143 lines
2.9 KiB
C
Raw Normal View History

#include <mc1322x.h>
#include <board.h>
#include <stdio.h>
#include "tests.h"
#include "config.h"
/* This program communicates with itself and determines the packet */
/* error rate (PER) under a variety of powers and packet sizes */
/* Each test the packets are sent and received as fast as possible */
/* The program first scans on channel 11 and attempts to open a test */
/* session with a node. After opening a session, the nodes begin the */
/* test sequence */
#define DEBUG_MACA 1
2010-03-05 00:52:42 +01:00
/* how long to wait between session requests */
#define SESSION_REQ_TIMEOUT 10 /* phony seconds */
enum STATES {
SCANNING,
MAX_STATE
};
2010-03-05 00:52:42 +01:00
typedef uint32_t ptype_t;
enum PACKET_TYPE {
2010-03-05 00:52:42 +01:00
PACKET_SESS_REQ,
MAX_PACKET_TYPE
};
2010-03-05 00:52:42 +01:00
/* get protocol level packet type */
/* this is not 802.15.4 packet type */
ptype_t get_packet_type(packet_t *p) {
return MAX_PACKET_TYPE;
}
typedef uint32_t session_id_t;
/* phony get_time */
uint32_t get_time(void) {
static volatile int32_t cur_time = 0;
cur_time++;
return cur_time;
}
#define random_short_addr() (*MACA_RANDOM & ones(sizeof(short_addr_t)*8))
void build_session_req(volatile packet_t *p) {
p->length = 4;
p->data[0] = 0xff;
p->data[1] = 0x01;
p->data[2] = 0x23;
p->data[3] = 0x45;
return;
}
void session_req(short_addr_t addr) {
static volatile int time = 0;
volatile packet_t *p;
// if((get_time() - time) > SESSION_REQ_TIMEOUT) {
// time = get_time();
p = get_free_packet();
build_session_req(p);
tx_packet(p);
// }
return;
}
2010-03-05 00:52:42 +01:00
void print_packet(packet_t *p) { return; }
session_id_t open_session(short_addr_t addr) { return 0; }
void main(void) {
uint32_t state;
2010-03-05 00:52:42 +01:00
volatile packet_t *p;
session_id_t sesid;
ptype_t type;
short_addr_t addr, my_addr;
uart_init(INC,MOD);
print_welcome("Packet error test");
/* standard radio initialization */
reset_maca();
radio_init();
vreg_init();
flyback_init();
init_phy();
2010-03-05 00:52:42 +01:00
free_all_packets();
/* trim the reference osc. to 24MHz */
pack_XTAL_CNTL(CTUNE_4PF, CTUNE, FTUNE, IBIAS);
set_power(0x0f); /* 0dbm */
set_channel(0); /* channel 11 */
2010-03-05 00:52:42 +01:00
enable_irq(MACA);
/* initial radio command */
/* nop, promiscuous, no cca */
*MACA_CONTROL = (1 << PRM) | (NO_CCA << MODE);
2010-03-05 00:52:42 +01:00
/* generate a random short address */
my_addr = random_short_addr();
state = SCANNING;
while(1) {
2010-03-05 00:52:42 +01:00
switch(state) {
case SCANNING:
2010-03-05 00:52:42 +01:00
if((p = rx_packet())) {
/* extract what we need and free the packet */
print_packet(p);
type = get_packet_type(p);
addr = p->addr;
free_packet(p);
/* pick a new address if someone else is using ours */
if(addr == my_addr) {
my_addr = random_short_addr();
printf("DUP addr received, changing to new addr 0x%x02\n\r",my_addr);
}
/* if we have a packet */
2010-03-05 00:52:42 +01:00
/* check if it's a session request beacon */
if(type == PACKET_SESS_REQ) {
/* try to start a session */
2010-03-05 00:52:42 +01:00
sesid = open_session(p->addr);
}
2010-03-05 00:52:42 +01:00
} else {
session_req(my_addr);
}
break;
default:
break;
}
}
}