Maskinnära programmering 6B2266

PIC16F874
Blinkfrekvensen styrs av potentiometern
/* ADtest.c testprogram for 16f874 */
/* Blinkfrequency at RD0 varies with voltage on AN0 */
#include "16f874.h"
#pragma config |= 0x3ff2
#pragma bit out @ PORTD.0
void main(void)
{
char i, j, answer, blinktime;
TRISD.0 = 0; /* lightdiode at RD0 is output */
out = 1;
/* AD Setup. Se help Script! */
/* "fosc/8"."AN0"."go=0"."-"."on" */
ADCON0 = 0b01.000.0.0.1;
/* "leftjust"."fosc/8"."--"."internal ref, Vref+=Vcc, Vref-=Vss" */
ADCON1 = 0b0.1.00.1110;
TRISA.0 = 1; /* AN0 is input */
while(1)
{
char i = 3; do ; while ( --i 0); /* wait tACQ */
GO=1; /* start AD */
while(GO); /* wait for done */
blinktime = ADRESH; /* read result 8 msb */
/* double loop i,j generates blinkfrequency */
for( i=0;i < blinktime; i++)
{
for( j=0;j < 250; j++);
}
/* toggle lightdiode on/off */
out = ! out;
}
}
51