SIM card related Projects » SIMtrace

/* main_pwm - OpenPCD firmware for generating a PWM-modulated 13.56MHz

 *	      carrier

 *

 * To use this, you need to connect PIOA P0 with MFIN of the reader.

 * (C) 2006 by Harald Welte <hwelte@hmw-consulting.de>

 *

 *  This program is free software; you can redistribute it and/or modify

 *  it under the terms of the GNU General Public License as published by 

 *  the Free Software Foundation; either version 2 of the License, or

 *  (at your option) any later version.

 *

 *  This program is distributed in the hope that it will be useful,

 *  but WITHOUT ANY WARRANTY; without even the implied warranty of

 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 *  GNU General Public License for more details.

 *

 *  You should have received a copy of the GNU General Public License

 *  along with this program; if not, write to the Free Software

 *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

 *

#include <errno.h>

#include <string.h>

#include <lib_AT91SAM7.h>

#include <os/led.h>

#include <os/tc_cdiv.h>

#include <os/usb_handler.h>

#include <pcd/ssc.h>

#endif

static uint8_t mod_conductance = 0x3f;

static uint8_t cw_conductance = 0x3f;

static uint16_t duty_percent = 22;

#define ARRAY_SIZE(x) (sizeof(x) / sizeof((x)[0]))

static uint8_t pwm_freq_idx = 0;

static void rc632_modulate_mfin()

{

			RC632_TXCTRL_TX1_RF_EN|RC632_TXCTRL_TX2_RF_EN);

}

/* (77/40) ^ EXPcsCfgCW */

/* 1, 1.925, 3.705625, 7.13332812 */

#define COND_MANT(x)	(x & 0x0f)

#define COND_EXP(x)	((x & 0x30) >> 4)

	cond_rel = COND_MANT(inp) * rsrel_expfact[COND_EXP(inp)];

	cond_rel = cond_rel / 1000;

	return cond_rel;

}

	8, 9, 21, 10, 11, 35, 22, 12, 13, 23, 14, 50, 36, 15, 24, 25,

	37, 26, 27, 51, 38, 28, 29, 39, 30, 52, 31, 40, 41, 53, 42, 43,

	54, 44, 45, 55, 46, 47, 56, 57, 58, 59, 60, 61, 62, 63 };

{

		 "k: stop pwm          l: start pwn\r\n"

		 "n: decrease freq     m: incresae freq\r\n"

		 "v: decrease mod_cond b: increase mod_cond\r\n"

	DEBUGPCR("u: PA23 const 1      y: PA23 const 0\r\n"

		 "{: decrease cdiv_idx }: increse cdiv idx");

void _init_func(void)

{

	rc632_init();

	DEBUGPCRF("turning on RF");

	rc632_turn_on_rf(RAH);

	/* switch PA17 (connected to MFIN on board) to input */

	AT91F_PIO_CfgInput(AT91C_BASE_PIOA, AT91C_PIO_PA17);

	tc_cdiv_init();

	pwm_init();

	pwm_start(0);

	ssc_rx_init();

int _main_dbgu(char key)

{

	switch (key) {

	case 'o':

		if (duty_percent >= 1)

			duty_percent--;

		pwm_duty_set_percent(0, duty_percent);

		break;

	case 'p':

		if (duty_percent <= 99)

			duty_percent++;

		pwm_duty_set_percent(0, duty_percent);

		break;

	case 'k':

		pwm_stop(0);

		break;

	case 'l':

		pwm_start(0);

		break;

	case 'n':

		if (pwm_freq_idx > 0) {

			pwm_freq_idx--;

			pwm_stop(0);

			pwm_freq_set(0, pwm_freq[pwm_freq_idx]);

			pwm_start(0);

			pwm_duty_set_percent(0, 22);	/* 22% of 9.43uS = 2.07uS */

		}

		break;

	case 'm':

		if (pwm_freq_idx < ARRAY_SIZE(pwm_freq)-1) {

			pwm_freq_idx++;

			pwm_stop(0);

			pwm_freq_set(0, pwm_freq[pwm_freq_idx]);

			pwm_start(0);

			pwm_duty_set_percent(0, 22);	/* 22% of 9.43uS = 2.07uS */

		}

		break;

	case 'u':

		AT91F_PIO_CfgOutput(AT91C_BASE_PIOA, AT91C_PIO_PA23);

		AT91F_PIO_SetOutput(AT91C_BASE_PIOA, AT91C_PIO_PA23);

	case 'y':

		AT91F_PIO_CfgOutput(AT91C_BASE_PIOA, AT91C_PIO_PA23);

		AT91F_PIO_ClearOutput(AT91C_BASE_PIOA, AT91C_PIO_PA23);

		break;

	case 't':

		AT91F_PIO_CfgPeriph(AT91C_BASE_PIOA, 0, AT91C_PA23_PWM0);

		break;

	case 'f':

		DEBUGPCRF("%sabling Force100ASK", force_100ask ? "Dis":"En");

		if (force_100ask) {

			force_100ask = 0;

					      RC632_TXCTRL_FORCE_100_ASK);

			force_100ask = 1;

					    RC632_TXCTRL_FORCE_100_ASK);

		return 0;

		break;

	case 'v':

		if (mod_conductance > 0) {

			mod_conductance--;

					     rsrel_table[mod_conductance]);

		break;

	case 'b':

		if (mod_conductance < 0x3f) {

			mod_conductance++;

					     rsrel_table[mod_conductance]);

		break;

	case 'g':

		if (cw_conductance > 0) {

			cw_conductance--;

					     rsrel_table[cw_conductance]);

		break;

	case 'h':

		if (cw_conductance < 0x3f) {

			cw_conductance++;

					     rsrel_table[cw_conductance]);

		break;

	case '?':

		help();

		return 0;

		break;

		tc_cdiv_phase_inc();

		break;

	case '>':

		tc_cdiv_phase_dec();

		break;

	case '{':

		if (cdiv_idx > 0)

			cdiv_idx--;

		tc_cdiv_set_divider(cdivs[cdiv_idx]);

		break;

	case '}':

		if (cdiv_idx < ARRAY_SIZE(cdivs)-1)

			cdiv_idx++;

		tc_cdiv_set_divider(cdivs[cdiv_idx]);

		break;

		ssc_rx_start();

		break;

		ssc_rx_stop();

		break;

		return -EINVAL;

	}

		 pwm_freq[pwm_freq_idx], duty_percent, mod_conductance, cw_conductance,

		 cdivs[cdiv_idx]);

	return 0;

}

{

	usb_out_process();

	 * have empty request contexts */

}