/*

  pps-edgetest - a program for measuring interrupt latency when
  using PPS input. For ISA/PCI (16x50) serial ports only.

  Beerware License  2011-2012  Kasper Pedersen  <ntp@kasperkp.dk>

  TO COMPILE:
    gcc -O2 -o edgetest edgetest.c

  ABOUT:
    This program time stamps the PPS input through polling, and
    does it in a way that put hard upper and lower bounds on the
    timing of the event.
    
    This allows one to find the interrupt processing time incurred
    before the PPS timestamp is taken, as well as any interrupt
    generation delays in the hardware.
    On my 5000-series server, the delay is a constant 14us.
*/




#include <stdio.h>
#include <sys/time.h>
#include <sys/io.h>


#define PADDR 0x3F8

#define PBIT 7

#define PAOFFS 6


inline unsigned char rrr(void)
{
  return  inb(PADDR+PAOFFS)&(1<<PBIT);
}


int main(void)
{

    struct timeval tv;
    int t1,t3,t5;
    unsigned char b2,b4;

    if (ioperm(PADDR, PADDR+7, 1)) {
	printf("ioperm() failed - need to be root.\n");
	return -1;
    }
    

    printf("pps-edgetest  2012 Kasper Pedersen\n\n");

    printf("This program does a min/max time stamp of the DCD line.\n");
    printf("It reports a time window inside which the transition is guaranteed\n");
    printf("to have occurred. This is useful for adjusting out interrupt delay\n");
    printf("associated with the serial port and LinuxPPS.\n\n");
    
    printf("Two things to be aware of: First, The program assumes that the port\n");
    printf("is at IOaddr 0x%x. Second, the act of reading the port clears the\n",PADDR);
    printf("interrupt status; This will cause lost PPS events.\n\n");

    printf("Intended usage is to let your ntp daemon of choice stabilize, then\n");
    printf("run this program to observe the interrupt latency, and then manually\n");
    printf("tweak the offset in the configuration. Repeat until you are happy.\n");

    t1=rrr();
    gettimeofday(&tv,0);
    t1=tv.tv_usec;
    b2=rrr();
    gettimeofday(&tv,0);
    t3=tv.tv_usec;
    b4=rrr();
    gettimeofday(&tv,0);
    t5=tv.tv_usec;
    do {
	t1=t3;
	b2=b4;
	t3=t5;
	b4=rrr();
	gettimeofday(&tv,0);
	t5=tv.tv_usec;
    } while (!(b4&&!b2));
    if (t1>500000) t1-=1000000;
    if (t3>500000) t3-=1000000;
    if (t5>500000) t5-=1000000;
    printf("Rising edge:\n\
                    ___________________\n\
                   /         /\n\
                  /         /\n\
     ____________/_________/\n\
\n\
                |      |      |\n\
 %7i -------+      |      |\n\
 %7i --------------+      |\n\
 %7i ---------------------+\n\
\n",t1,t3,t5);


    t1=rrr();
    gettimeofday(&tv,0);
    t1=tv.tv_usec;
    b2=rrr();
    gettimeofday(&tv,0);
    t3=tv.tv_usec;
    b4=rrr();
    gettimeofday(&tv,0);
    t5=tv.tv_usec;
    do {
	t1=t3;
	b2=b4;
	t3=t5;
	b4=rrr();
	gettimeofday(&tv,0);
	t5=tv.tv_usec;
    } while (!(b2&&!b4));
    if (t1>500000) t1-=1000000;
    if (t3>500000) t3-=1000000;
    if (t5>500000) t5-=1000000;
    printf("Falling edge:\n\
     ______________________\n\
                 \\         \\ \n\
                  \\         \\\n\
                   \\_________\\_________\n\
\n\
                |      |      |\n\
 %7i -------+      |      |\n\
 %7i --------------+      |\n\
 %7i ---------------------+\n\
",t1,t3,t5);

}