Jak zaprogramować PIC16f84A do zapisu i odczytu impulsów?

/********************************************************************
* FileName:       main.c
* Dependencies:   p18f87j10.h, delays.h, 18f87j10i.lkr
* Processor:      PIC18F87J10
* Hardware:       PICkit 2
* Compiler:       MPLAB-C18
* Linker:         MPLINK 2.33.00 or higher
* Company:        Microchip Technology, Inc.
*
* Software License Agreement:
* $SLA$
*
*********************************************************************
* File Description:
* Simple program that with the push button switch not pressed, will
* display the A/D result from the potentiometer.  With the push button
* switch pressed, will increment the LEDs.
*
* Change History:
* 1.0 - first release of source code
********************************************************************/

#include <p18f87j10.h>
#include <delays.h>

#pragma config	DEBUG = OFF			// debugger off
#pragma config	XINST = OFF			// extended instruction set disabled
#pragma config	STVREN = OFF		// stack overflow interrupt disabled
#pragma config	WDTEN = OFF			// WDT disabled
#pragma	config	CP0 = OFF			// code protection disabled
#pragma	config	FCMEN = OFF			// fail safe clock monitor disabled
#pragma config	IESO = OFF			// internal/external clock switch disabled
#pragma config	FOSC = HS			// HS oscillator
#pragma config	MODE = MM			// Microcontroller mode
#pragma config	ECCPMX = DEFAULT	// Default setting for ECCP1
#pragma	config	CCP2MX = DEFAULT	// Default setting for ECCP2
#pragma	config	FOSC2 = ON			// Clock selected by OSCCON bits


void main(void)
{
	unsigned char i;

	PORTA = 0;					// Clear all port outputs
	PORTB = 0;
	PORTC = 0;
	PORTD = 0;
	PORTE = 0;
	PORTF = 0;
	PORTG = 0;
	PORTH = 0;
	PORTJ = 0;

	TRISA = 0x01;				// Make RA0 an input for potentiometer
	TRISB = 0x01;				// Make RB0 an input for push button switch
	TRISC = 0;					// All other ports are outputs
	TRISD = 0;
	TRISE = 0;
	TRISF = 0;
	TRISG = 0;
	TRISH = 0;
	TRISJ = 0;

	ADCON0bits.ADCAL = 0;		// No calibration
	ADCON0bits.CHS3 = 0;		// Select Channel 0
	ADCON0bits.CHS2 = 0;
	ADCON0bits.CHS1 = 0;
	ADCON0bits.CHS0 = 0;
	ADCON0bits.ADON = 1;		// Turn A/D on

	ADCON1bits.VCFG1 = 0;		// VREF- = AVSS
	ADCON1bits.VCFG0 = 0;		// VREG+ = AVDD
	ADCON1bits.PCFG3 = 1;		// Select 1 Analog channel, AN0
	ADCON1bits.PCFG2 = 1;
	ADCON1bits.PCFG1 = 1;
	ADCON1bits.PCFG0 = 0;

	ADCON2bits.ADFM = 0;		// Left justified result
	ADCON2bits.ACQT2 = 0;		// 0 Tad acquistion time
	ADCON2bits.ACQT1 = 0;
	ADCON2bits.ACQT0 = 0;
	ADCON2bits.ADCS2 = 0;		// Frc clock source
	ADCON2bits.ADCS1 = 1;
	ADCON2bits.ADCS0 = 1;
	
	PIR1bits.ADIF = 0;			// Clear A/D conversion complete interrupt flag
	ADCON0bits.ADCAL = 1;		// Enable calibration
	ADCON0bits.GO = 1;			// Start conversion
	while(!PIR1bits.ADIF);		// Wait for conversion to complete
	PIR1bits.ADIF = 0;			// Clear A/D conversion complete interrupt flag
	ADCON0bits.ADCAL = 0;		// Disable calibration

	while(1)
	{
		while(PORTBbits.RB0)		// While push button not pressed
		{
			ADCON0bits.GO = 1;		// Start converstion
			while(!PIR1bits.ADIF);	// Wait for conversion to complete
			PIR1bits.ADIF = 0;		// Clear A/D conversion complete interrupt flag
			PORTD = ADRESH;			// Write upper byte of A/D result to PORTC
			Delay1KTCYx(5);			// Delay for 5000 instruction cycles
		}
		i = 0;						// reset i
		while(!PORTBbits.RB0)		// While push button pressed
		{
			PORTD = i++;			// Increment i
			Delay10KTCYx(50);		// Delay
		}
	}
}