No changes between revisions
/Designs/MRAKOMER4/SW/2zone/irmrak4.c
0,0 → 1,252
/**** IR Mrakomer 4 ****/
#define VERSION "4.1"
#define ID "$Id$"
 
#include "irmrak4.h"
 
#bit CREN = 0x18.4 // USART registers
#bit SPEN = 0x18.7
#bit OERR = 0x18.1
#bit FERR = 0x18.2
 
#include <string.h>
 
#CASE // Case sensitive compiler
 
#define MAXHEAT 20 // Number of cycles for heating
#define MAXOPEN 20 // Number of cycles for dome open
#define MEASURE_DELAY 6000 // Delay to a next measurement
#define RESPONSE_DELAY 100 // Reaction time after receiving a command
#define SAFETY_COUNT 90 // Time of one emergency cycle
#define SEND_DELAY 50 // Time between two characters on RS232
 
#define DOME PIN_B4 // Dome controll port
#define HEATING PIN_B3 // Heating for defrosting
 
 
char VER[4]=VERSION; // Buffer for concatenate of a version string
 
int8 heat; // Status variables
int8 open;
 
inline void toggle_dome(void) // Wire exercise
{
if (open>0)
{output_toggle(DOME);} // Toggle = Open Dome
else
{output_high(DOME);} // Do not toggle = Close Dome
}
 
void delay(int16 cycles) // Wire exercise with delay
{
int16 i;
 
for(i=0; i<cycles; i++) {toggle_dome(); delay_us(100);}
}
 
void welcome(void) // Welcome message
{
char REV[50]=ID; // Buffer for concatenate of a version string
 
if (REV[strlen(REV)-1]=='$') REV[strlen(REV)-1]=0;
printf("\n\r\n\r# Mrakomer %s (C) 2007 KAKL\n\r",VER); // Welcome message
printf("#%s\n\r",&REV[4]);
printf("#\n\r");
printf("# h - Switch On Heating for 20s.\n\r");
printf("# c - Need Colder. Switch Off Heating.\n\r");
printf("# o - Open the Dome for 20s.\n\r");
printf("# l - Lock the Dome.\n\r");
printf("# x - Open the Dome and switch On Heating.\n\r");
printf("# i - Print this Information.\n\r");
printf("# r - Repeat measure every second.\n\r");
printf("# s - Single measure.\n\r");
printf("# u - Update firmware. Go to the Boot Loader.\n\r");
printf("#\n\r");
printf("# <sequence> <ambient[1/100 C]> <ambient[1/100 C]> <sky[1/100 C]> ");
printf("<heating[s]> <dome[s]> <check>\n\r\n\r");
//---WDT
restart_wdt();
}
 
 
#include "smb.c" // System Management Bus driver
 
 
// Read sensor's RAM
// Returns temperature in °K
int16 ReadTemp(int8 addr, int8 select)
{
unsigned char arr[6]; // Buffer for the sent bytes
int8 crc; // Readed CRC
int16 temp; // Readed temperature
 
addr<<=1;
 
SMB_STOP_bit(); //If slave send NACK stop comunication
SMB_START_bit(); //Start condition
SMB_TX_byte(addr);
SMB_TX_byte(RAM_Access|select);
SMB_START_bit(); //Repeated Start condition
SMB_TX_byte(addr);
arr[2]=SMB_RX_byte(ACK); //Read low data,master must send ACK
arr[1]=SMB_RX_byte(ACK); //Read high data,master must send ACK
temp=make16(arr[1],arr[2]);
crc=SMB_RX_byte(NACK); //Read PEC byte, master must send NACK
SMB_STOP_bit(); //Stop condition
 
arr[5]=addr;
arr[4]=RAM_Access|select;
arr[3]=addr;
arr[0]=0;
if (crc != PEC_calculation(arr)) temp=0; // Calculate and check CRC
 
return temp;
}
 
 
/*-------------------------------- MAIN --------------------------------------*/
void main()
{
unsigned int16 seq, temp, tempa;
signed int16 ta, to1, to2;
int8 safety_counter;
int1 repeat;
 
output_high(DOME); // Close Dome
output_low(HEATING); // Heating off
 
delay_ms(1000);
restart_wdt();
 
seq=0; // Variables initiation
heat=0;
open=0;
repeat=TRUE;
 
welcome();
 
tempa=ReadTemp(SA, RAM_Tamb); // Dummy read
temp=ReadTemp(SA, RAM_Tobj1);
 
delay_ms(1000);
//---WDT
restart_wdt();
 
while(TRUE) // Main Loop
{
safety_counter=SAFETY_COUNT; // Heating and Dome Count Down
do
{
if (safety_counter<SAFETY_COUNT) safety_counter++;
 
delay(RESPONSE_DELAY);
 
if (safety_counter>=SAFETY_COUNT)
{
if (heat>0) heat--;
if (open>0) open--;
 
if (heat>0) { output_high(HEATING); } else { output_low(HEATING); }
 
safety_counter=0;
//---WDT
restart_wdt();
}
} while (!kbhit()&&!repeat);
 
//---WDT
restart_wdt();
{ // Retrieve command
char ch='k';
 
if(kbhit()) ch=getc();
 
switch (ch)
{
case 'h':
heat=MAXHEAT; // Need heating
break;
 
case 'c':
heat=0; // Need colder
break;
 
case 'o':
open=MAXOPEN; // Open the dome
break;
 
case 'x':
open=MAXOPEN; // Open the dome
heat=MAXHEAT; // Need heating
break;
 
case 'l':
open=0; // Lock the dome
break;
 
case 'i':
if (open==0) welcome(); // Information about version, etc...
break; // Only when dome is closed
 
case 'r':
repeat=TRUE; // Repeated measure mode
break;
 
case 's':
repeat=FALSE; // Single measure mode
break;
 
case 'u':
reset_cpu(); // Update firmware
}
}
// while(kbhit()) getc(); // Flush USART buffer
CREN=0; CREN=1; // Reinitialise USART
 
seq++; // Increment the number of measurement
 
tempa=ReadTemp(SA, RAM_Tamb); // Read temperatures from sensor
ta=tempa*2-27315; // °K -> °C
 
temp=ReadTemp(SA, RAM_Tobj1);
to1=temp*2-27315;
temp=ReadTemp(SA, RAM_Tobj2);
to2=temp*2-27315;
 
{ // printf
char output[8]; // Output buffer
int8 j; // String pointer
int8 check=0; // Checksum is calculated between '$' and '*'
 
delay(SEND_DELAY);
putc('$');
delay(SEND_DELAY);
sprintf(output,"M%s ",VER);
j=0; while(output[j]!=0) { delay(SEND_DELAY); putc(output[j]); check^=output[j++]; }
sprintf(output,"%Lu ", seq);
j=0; while(output[j]!=0) { delay(SEND_DELAY); putc(output[j]); check^=output[j++]; }
sprintf(output,"%Ld ", ta);
j=0; while(output[j]!=0) { delay(SEND_DELAY); putc(output[j]); check^=output[j++]; }
sprintf(output,"%Ld ", to1);
j=0; while(output[j]!=0) { delay(SEND_DELAY); putc(output[j]); check^=output[j++]; }
sprintf(output,"%Ld ", to2);
j=0; while(output[j]!=0) { delay(SEND_DELAY); putc(output[j]); check^=output[j++]; }
sprintf(output,"%u ", heat);
j=0; while(output[j]!=0) { delay(SEND_DELAY); putc(output[j]); check^=output[j++]; }
sprintf(output,"%u ", open);
j=0; while(output[j]!=0) { delay(SEND_DELAY); putc(output[j]); check^=output[j++]; }
sprintf(output,"*%X\n\r\0", check);
j=0; while(output[j]!=0) { delay(SEND_DELAY); putc(output[j++]); }
delay(SEND_DELAY);
}
 
//---WDT
restart_wdt();
delay(MEASURE_DELAY); // Delay to a next measurement
//---WDT
restart_wdt();
}
}
 
 
#include "dbloader.c" // Space reservation for the BootLoader
Property changes:
Added: svn:keywords
+Id
\ No newline at end of property