Rev Author Line No. Line
1744 kakl 1 #include "main.h"
2012 kaklik 2 #include <math.h>
1744 kakl 3  
2012 kaklik 4 #use fast_io (D)
5  
1886 kakl 6 #define VERSION 0.2
1757 kakl 7  
1759 kakl 8 #define START PIN_D4
9 #define STOP1 PIN_D5
2012 kaklik 10 #define STOP2 PIN_D7
1886 kakl 11  
1774 kaklik 12 #include "GP2.h"
1759 kakl 13  
1774 kaklik 14 #define ONE_WIRE_PIN PIN_E2
15 #include "ds1820.c"
16  
1744 kakl 17 void main()
18 {
2012 kaklik 19 /* setup_adc_ports(NO_ANALOGS|VSS_VDD);
1744 kakl 20 setup_adc(ADC_CLOCK_DIV_2);
21 setup_psp(PSP_DISABLED);
22 setup_spi(SPI_SS_DISABLED);
23 setup_wdt(WDT_OFF);
24 setup_timer_0(RTCC_INTERNAL);
25 setup_timer_1(T1_DISABLED);
26 setup_timer_2(T2_DISABLED,0,1);
27 setup_ccp1(CCP_OFF);
28 setup_comparator(NC_NC_NC_NC);
29 setup_vref(FALSE);
2012 kaklik 30 */
31 setup_adc_ports(NO_ANALOGS|VSS_VDD);
32 setup_adc(ADC_CLOCK_DIV_2);
33 setup_spi(SPI_SS_DISABLED);
34 setup_timer_0(RTCC_INTERNAL|RTCC_DIV_1);
35 setup_timer_1(T1_DISABLED);
36 setup_timer_2(T2_DISABLED,0,1);
37 setup_ccp1(CCP_OFF);
38 setup_comparator(NC_NC_NC_NC);// This device COMP currently not supported by the PICWizard
1744 kakl 39  
2012 kaklik 40  
41 set_tris_d(0x00);
42  
1745 kakl 43 TDC_reset();
1886 kakl 44  
1759 kakl 45 output_low(START);
46 output_low(STOP1);
47 output_low(STOP2);
1815 kaklik 48  
49 delay_ms(50);
50  
1886 kakl 51 int16 ret16;
52 int8 ret8;
1815 kaklik 53  
1967 kaklik 54 TDC_reset();
55 delay_ms(100);
1886 kakl 56  
1980 kaklik 57 while(TRUE)
58 {
59  
60  
1886 kakl 61 //----------------------------------------------- Nastaveni registru
1980 kaklik 62  
63 MRange=TDC_MRANGE2; // sets measurement mode
1965 kaklik 64 hit1=TDC_MRANGE2_HIT1_START;
1980 kaklik 65 hitin1=TDC_HITIN1_4; // set nomber of hits on channel 1
66 hitin2=TDC_HITIN2_0; // disable channel 2 (normal state for this mode)
67 en_int= TDC_INT_ALU | TDC_INT_ENDHIT | TDC_INT_TIMEOUT; // eneble all possible interrupt flags
68 en_err_val=TDC_ERRVAL_EN; // enable of error value output
69 clkhsdiv=TDC_CLKHSDIV_4; // divide clkHS by 4
70  
71 delval1=0x0; // windowing disabled
1965 kaklik 72 delval2=0x0;
73 delval3=0x0;
74  
75 TDC_update_registers();
1931 kaklik 76  
1967 kaklik 77 delay_ms(100);
1980 kaklik 78  
79 //----------------------------------------------- Mereni 2
1886 kakl 80  
81 TDC_init();
82  
1759 kakl 83 delay_ms(50);
1886 kakl 84  
85 TDC_start_cycle();
86  
87 delay_ms(200);
88  
2014 kaklik 89 output_high(STOP2); // Merime jenom jednim kanalem (druhy zrejme byt v H)
1886 kakl 90  
1759 kakl 91 output_high(START);
1886 kakl 92 output_low(START);
1967 kaklik 93 delay_us(150);
1798 kaklik 94  
1886 kakl 95 output_high(STOP1);
96 output_low(STOP1);
97 delay_us(1);
1759 kakl 98  
1815 kaklik 99 output_high(STOP1);
1886 kakl 100 output_low(STOP1);
1966 kaklik 101 delay_us(10);
1886 kakl 102  
103 output_high(STOP1);
104 output_low(STOP1);
1967 kaklik 105 delay_us(1);
1886 kakl 106  
107 //----------------------------------------------- Pocitani
1964 kaklik 108  
2013 kaklik 109 // printf("Time2: %LX %LX %LX %LX ", TDC_get_measurement(1), TDC_get_measurement(2), TDC_get_measurement(3), TDC_get_measurement(4));
2012 kaklik 110  
1886 kakl 111  
1964 kaklik 112 output_low(TDC_ENABLE); //status register
1886 kakl 113 ret8=0;
114 ret8=(0b1011<<4)|4;
115 spi_xfer(TDC_stream,ret8,8);
116 ret16=spi_xfer(TDC_stream,0,16);
117 output_high(TDC_ENABLE);
1967 kaklik 118 printf("[%Lu %Lu %Lu %Lu %Lu %Lu %Lu]\r\n", (1&(ret16)>>12), (1&(ret16)>>11), (1&(ret16)>>10), 1&(ret16)>>9, 7&(ret16)>>6, 7&(ret16)>>3, 7&TDC_get_status());
119  
2012 kaklik 120 printf("Time2: %3.7f %3.7f %3.7f \r\n", TDC_mrange2_get_time(1), TDC_mrange2_get_time(2), TDC_mrange2_get_time(3));
121  
122  
1980 kaklik 123 //----------------------------------------------- Nastaveni registru
124  
125 MRange=TDC_MRANGE1;
126 hit1=TDC_MRANGE1_HIT1_NOAC;
127 hit2=TDC_MRANGE1_HIT2_NOAC;
128 hitin1=TDC_HITIN1_1;
129 hitin2=TDC_HITIN2_1;
130 en_int= TDC_INT_ALU | TDC_INT_ENDHIT | TDC_INT_TIMEOUT;
131 en_err_val=TDC_ERRVAL_EN;
132 clkhsdiv=TDC_CLKHSDIV_4;
133 delval1=0x0;
134 delval2=0x0;
135 delval3=0x0;
136  
137 TDC_update_registers();
138  
139 delay_ms(100);
140  
141  
142 //----------------------------------------------- Mereni 1
143  
144 TDC_init();
145  
146 delay_ms(50);
147 output_low(START);
148 output_low(STOP1);
149 output_low(STOP2);
150  
151 output_high(START); // start of time measurement
152  
153 output_high(STOP2);
2013 kaklik 154 output_high(STOP1);
2012 kaklik 155  
156 output_low(STOP1);
157 output_low(STOP2);
158 output_low(START);
1980 kaklik 159  
2012 kaklik 160  
161  
1980 kaklik 162 //----------------------------------------------- Pocitani
163  
2013 kaklik 164 // printf("Time1: %LX %LX %LX %LX ", TDC_get_measurement(1), TDC_get_measurement(2), TDC_get_measurement(3), TDC_get_measurement(4));
2012 kaklik 165  
1980 kaklik 166 output_low(TDC_ENABLE); //status register
167 ret8=0;
168 ret8=(0b1011<<4)|4;
169 spi_xfer(TDC_stream,ret8,8);
170 ret16=spi_xfer(TDC_stream,0,16);
171 output_high(TDC_ENABLE);
2012 kaklik 172  
1980 kaklik 173 printf("[%Lu %Lu %Lu %Lu %Lu %Lu %Lu]\r\n", (1&(ret16)>>12), (1&(ret16)>>11), (1&(ret16)>>10), 1&(ret16)>>9, 7&(ret16)>>6, 7&(ret16)>>3, 7&TDC_get_status());
174  
2012 kaklik 175 printf("Time1: %3.7f %3.7f %3.7f \r\n", TDC_mrange1_get_time(1,0,1,1), TDC_mrange1_get_time(2,0,2,1), TDC_mrange1_get_time(1,1,2,1));
1980 kaklik 176  
177 /// ----------------------------------------------- Temperature masurement
178  
2013 kaklik 179  
180 TDC_reset();
181 portnum=TDC_TPORTNUM_4;
182 Tcycle=TDC_TCYCLE_SHORT;
183 fakenum=TDC_TFAKENUM_2;
184 selclkT=TDC_TSELCLK_128HS;
185  
186 TDC_update_registers();
187  
188 TDC_init();
1967 kaklik 189 TDC_start_temp();
2013 kaklik 190  
191  
1967 kaklik 192 output_low(TDC_ENABLE); //status register
193 ret8=0;
194 ret8=(0b1011<<4)|4;
195 spi_xfer(TDC_stream,ret8,8);
196 ret16=spi_xfer(TDC_stream,0,16);
197 output_high(TDC_ENABLE);
2011 kaklik 198 printf("Temp: %LX %LX %LX %LX ", TDC_get_measurement(1), TDC_get_measurement(2), TDC_get_measurement(3), TDC_get_measurement(4));
199 printf(" [%Lu %Lu %Lu %Lu %Lu %Lu %Lu] \r\n", (1&(ret16)>>12), (1&(ret16)>>11), (1&(ret16)>>10), 1&(ret16)>>9, 7&(ret16)>>6, 7&(ret16)>>3, 7&TDC_get_status());
1886 kakl 200 }
1744 kakl 201 }