/*
 *
 *   Title: cldump
 *   Description: dump the current register values for the Cirrus Logic PCMCIA controler
 *   on the In Hand Electronics ELF board
 *
 *  this program was developed using the devmem2.c application from Jan-Derk Bakker as a base.
 *
 * 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 <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include <errno.h>
#include <signal.h>
#include <fcntl.h>
#include <ctype.h>
#include <termios.h>
#include <sys/types.h>
#include <sys/mman.h>
  
#define FATAL do { fprintf(stderr, "Error at line %d, file %s (%d) [%s]\n", \
  __LINE__, __FILE__, errno, strerror(errno)); exit(1); } while(0)
 
#define MAP_SIZE 4096UL
#define MAP_MASK (MAP_SIZE - 1)
#define PCCardIndexRegister	0x300003e0
#define PCCardDataRegister	0x300003e1

int main(int argc, char **argv) {
    int fd;
    void *map_base, *virt_addr; 
	unsigned long read_result, writeval,i,begin_reg=0,end_reg=0x6;
	off_t target;
	int access_type = 'b';
	if(argc > 1) {
	begin_reg = strtoul(argv[1], 0, 0);
	    if(argc > 2) {
		end_reg = strtoul(argv[2], 0, 0);
	    }
	}

	
    if((fd = open("/dev/mem", O_RDWR | O_SYNC)) == -1) FATAL;
    
    for(i=begin_reg;i<end_reg;i++)
{
	
	/*write section*/

	fflush(stdout);
        /* Map one page */
	map_base = mmap(0, MAP_SIZE, PROT_READ | PROT_WRITE, MAP_SHARED, fd, PCCardIndexRegister & ~MAP_MASK);
	    if(map_base == (void *) -1) FATAL;
	fflush(stdout);
    
	virt_addr = map_base + (PCCardIndexRegister & MAP_MASK);
	writeval = i;
	*((unsigned char *) virt_addr) = writeval;
	read_result = *((unsigned char *) virt_addr);
	if(munmap(map_base, MAP_SIZE) == -1) FATAL;




	/*read section*/
	fflush(stdout);
	/* Map one page */
	map_base = mmap(0, MAP_SIZE, PROT_READ | PROT_WRITE, MAP_SHARED, fd, PCCardDataRegister & ~MAP_MASK);
	if(map_base == (void *) -1) FATAL;
	fflush(stdout);
    
	/*set the virtual address*/
	virt_addr = map_base + (PCCardDataRegister & MAP_MASK);

	/*read the virtual address*/
	read_result = *((unsigned char *) virt_addr);
	printf("Value at address 0x%X : 0x%X\n", writeval, read_result); 
    
	/*unmap the virtual address*/
	    if(munmap(map_base, MAP_SIZE) == -1) FATAL;
	fflush(stdout);
    }    
    return 0;
}