Subversion Repositories svnkaklik

Rev

Rev 410 | Go to most recent revision | Details | Last modification | View Log

Rev Author Line No. Line
6 kaklik 1
#include "D:\@Kaklik\programy\PIC_C\mereni_ultraz\main.h"
2
#use fast_io(A)
3
 
4
void main()
5
{
6
 
7
   setup_counters(RTCC_INTERNAL,WDT_18MS);
8
 
9
   set_tris_A(0b11111100);
10
   output_high(pin_A3);
11
 
12
mainloop:
13
   output_high(pin_A0); 
14
   output_low(pin_A1);
15
   delay_us(9);
16
   output_high(pin_A1);
17
   output_low(pin_A0);
18
   delay_us(9);
19
 
20
   goto mainloop;
21
 
22
}
23