Mercurial > ~darius > hgwebdir.cgi > tempctrl

changeset 13:2c03ec600dbc OWIRE_1_3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Reduce object code size as much as possible.
author darius
date Wed, 01 Sep 2004 17:46:15 +0930
parents 4b141cc7cbd4
children a9d493261c6c
files testavr.c
diffstat 1 files changed, 120 insertions(+), 182 deletions(-) [+]
line wrap: on
line diff
--- a/testavr.c	Wed Sep 01 17:45:24 2004 +0930
+++ b/testavr.c	Wed Sep 01 17:46:15 2004 +0930
@@ -28,13 +28,13 @@
  * SUCH DAMAGE.
  */
 
-#include <stdio.h>
 #include <avr/io.h>
 #include <avr/interrupt.h>
 #include <avr/signal.h>
 #include <avr/pgmspace.h>
 #include <string.h>
 #include <ctype.h>
+#include <stdlib.h>
 
 #include "1wire.h"
 
@@ -45,66 +45,16 @@
 void		uart_puts(const char *addr);
 int		uart_putc(char c);
 int		uart_getc(void);
-int		beginswith_P(const char *s1, const char *s2);
-    
-uint8_t PROGMEM ledvals[] = {0x01, 0x03, 0x07, 0x0e, 0x1c, 0x38, 0x70, 0xe0, 0xc0, 0x80};
-static uint8_t dir = 0;
-static volatile uint8_t leds = 0;
-static uint8_t ledpos = 0;
-
-INTERRUPT(SIG_OVERFLOW0) {
-    if (!leds)
-	return;
-
-    /* Going up */
-    if (dir == 0) {
-	if (ledpos == 9) {
-	    dir = 1;
-	    TCNT0 = 0;
-	    goto doleds;
-	}
-
-	ledpos++;
-    } else {
-	if (ledpos == 0) {
-	    dir = 0;
-	    TCNT0 = 0;
-	    goto doleds;
-	}
-
-	ledpos--;
-    }
-
-  doleds:
-    TCNT0 = 0;
-
-    PORTA = pgm_read_byte(&ledvals[ledpos]);
-}
-
-void
-usleep(uint16_t usec) {
-    /* 4Mhz = 250ns per clock cycle */
-    usec /= 2;
-    if (usec < 1)
-	return;
-    
-    while (usec--) 
-	asm volatile (
-	    ""
-	    ::);
-}
+void		uart_puts_dec(uint8_t a, uint8_t l);
+void		uart_puts_hex(uint8_t a);
 
 int
 main(void) {
     uint8_t	ROM[8];
     char	cmdbuf[40];
-    int		i;
+    int8_t	i, arg;
     
     cli();
-    outp(0xff, DDRA);
-
-    /* Timer Clock divisor - CK/1024 */
-    outp(BV(CS00) | BV(CS02), TCCR0);
 
     outp(0xfc, DDRC);
     outp(0x00, PORTC);
@@ -115,34 +65,6 @@
     /* Enable receiver and transmitter. Turn on transmit interrupts */
     outp(BV(RXEN) | BV(TXEN), UCR);
 
-#if 0
-    int was;
-    uint32_t count;
-    
-    was = inp(PINC) & 0x02;
-
-    count = 0;
-    while (1) {
-	if (was) {
-	    if (!(inp(PINC) & 0x02)) {
-		sprintf_P(cmdbuf, PSTR("high -> low, i = %d\n\r"), count);
-		uart_puts(cmdbuf);
-		count = 0;
-		was = 0x00;
-	    }
-	} else {
-	    if ((inp(PINC) & 0x02)) {
-		sprintf_P(cmdbuf, PSTR("low -> high, i = %d\n\r"), count);
-		uart_puts(cmdbuf);
-		count = 0;
-		was = 0x02;
-	    }
-	}
-
-	count++;
-    }
-#endif
-    
     uart_putsP(PSTR("\n\r\n\r===============\n\r"
 		    "Inited!\n\r\n\r"));
 
@@ -170,9 +92,9 @@
 	    uart_putc(cmdbuf[i]);
 	    i++;
 	    if (i == sizeof(cmdbuf)) {
-		uart_putsP(PSTR("\n\rLine too long\n\r"));
+		uart_putsP(PSTR("\n\rLine too long"));
 		i = 0;
-		continue;
+		break;
 	    }
 	}
 	cmdbuf[i + 1] = '\0';
@@ -188,8 +110,7 @@
 			    "wr bit           Write a bit\n\r"
 			    "wb byte          Write a byte (hex)\n\r"
 			    "wc cmd [ROMID]   Write command\n\r"
-			    "te ROMID         Read the temperature from a DS1820\n\r"
-			    "le               Turn pretty LED cycling on\n\r"));
+			    "te ROMID         Read the temperature from a DS1820\n\r"));
 	    
 	    continue;
 	}
@@ -210,91 +131,69 @@
 	    else
 		uart_putsP(PSTR("Read a 0\n\r"));
 	} else if (cmdbuf[0] == 'r' && cmdbuf[1] == 'b') {
-	    sprintf_P(cmdbuf, PSTR("Read a 0x%02x\n\r"), OWReadByte());
-	    uart_puts(cmdbuf);
+	    uart_putsP(PSTR("Read a 0x"));
+	    uart_puts_hex(OWReadByte());
+	    uart_putsP(PSTR("\n\r"));
 	} else if (cmdbuf[0] == 'w' && cmdbuf[1] == 'r') {
-	    int arg;
-	    
-	    if (sscanf_P(cmdbuf + 3, PSTR("%d"), &arg) != 1) {
-		uart_putsP(PSTR("Unable to parse wr command\n\r"));
-		continue;
-	    }
-	    
+	    arg = strtol(cmdbuf + 3, (char **)NULL, 10);
 	    OWWriteBit(arg);
-	    sprintf_P(cmdbuf, PSTR("Wrote a %d\n\r"), arg);
-	    uart_puts(cmdbuf);
+	    uart_putsP(PSTR("Wrote a "));
+	    if (arg)
+		uart_putsP(PSTR("1\n\r"));
+	    else
+		uart_putsP(PSTR("0\n\r"));
 	} else if (cmdbuf[0] == 'w' && cmdbuf[1] == 'b') {
-	    int arg;
-	    
-	    if (sscanf_P(cmdbuf + 3, PSTR("%2x"), &arg) != 1) {
-		uart_putsP(PSTR("Unable to parse wb command\n\r"));
+	    arg = (int)strtol(cmdbuf + 3, (char **)NULL, 16); 
+	    OWWriteByte(arg);
+	} else if (cmdbuf[0] == 'w' && cmdbuf[1] == 'c') {
+	    i = strlen(cmdbuf);
+	    if (i < 5) {
+		uart_putsP(PSTR("No arguments\n\r"));
 		continue;
 	    }
 	    
-	    OWWriteByte(arg);
-	    sprintf_P(cmdbuf, PSTR("Wrote a 0x%02x\n\r"), arg);
-	    uart_puts(cmdbuf);
-	} else if (cmdbuf[0] == 'w' && cmdbuf[1] == 'c') {
-	    int		arg;
+	    arg = (int)strtol(cmdbuf + 3, (char **)NULL, 16);
+	    if (arg == 0) {
+		uart_putsP(PSTR("Unparseable command\n\r"));
+		continue;
+	    }
 
-	    switch (sscanf_P(cmdbuf + 3, PSTR("%x %x:%x:%x:%x:%x:%x:%x:%x:%x"), &arg,
-			     &ROM[0], &ROM[1], &ROM[2], &ROM[3], 
-			     &ROM[4], &ROM[5], &ROM[6], &ROM[7])) {
-		break;
-		
-	    case 1:
+	    if (i == 5) {
 		OWSendCmd(NULL, arg);
-		sprintf_P(cmdbuf, PSTR("Sent 0x%02x to all ROMS\n\r"), arg);
-		uart_puts(cmdbuf);
-		break;
-		
-	    case 9:
-		OWSendCmd(ROM, arg);
-		sprintf_P(cmdbuf, PSTR("Sent 0x%02x to ROM %02x:%02x:%02x:%02x:%02x:%02x:%02x:%02x\n\r"),
-			  arg, ROM[0], ROM[1], ROM[2], ROM[3], 
-			  ROM[4], ROM[5], ROM[6], ROM[7]);
-		uart_puts(cmdbuf);
-		
-		break;
-		
-	    case 0:
-	    default:
-		uart_putsP(PSTR("Unable to parse wc command\n\r"));
-		break;
+		continue;
 	    }
 	    
-	    OWWriteByte(arg);
-	    sprintf_P(cmdbuf, PSTR("Wrote a 0x%02x\n\r"), arg);
-	    uart_puts(cmdbuf);
+	    if (i < 29) {
+		uart_putsP(PSTR("Can't parse ROM ID\n\r"));
+		continue;
+	    }
+	    for (i = 0; i < 8; i++)
+		ROM[i] = (int)strtol(cmdbuf + 6 + (3 * i), (char **)NULL, 16);
+
+	    OWSendCmd(ROM, arg);
 	} else if (cmdbuf[0] == 't' && cmdbuf[1] == 'e') {
-	    uint8_t	crc;
-	    uint16_t	temp;
-	    uint8_t	buf[9];
+	    uint8_t	crc, buf[9];;
+	    int8_t	temp;
+	    uint16_t	tfrac;
 	    
-	    if (sscanf_P(cmdbuf + 3, PSTR("%x:%x:%x:%x:%x:%x:%x:%x:%x"),
-			 &ROM[0], &ROM[1], &ROM[2], &ROM[3], 
-			 &ROM[4], &ROM[5], &ROM[6], &ROM[7]) != 8) {
+	    if (strlen(cmdbuf) < 26) {
 		uart_putsP(PSTR("Unable to parse ROM ID\n\r"));
 		continue;
 	    }
-	    
+
+	    for (i = 0; i < 8; i++)
+		ROM[i] = (int)strtol(cmdbuf + 3 * (i + 1), (char **)NULL, 16);
+
 	    if (ROM[0] != OW_FAMILY_TEMP) {
 		uart_putsP(PSTR("ROM specified isn't a temperature sensor\n\r"));
 		continue;
 	    }
 	    
 	    OWSendCmd(ROM, OW_CONVERTT_CMD);
-#if OW_DEBUG
-	    uart_putsP(PSTR("Command sent, waiting\n\r"));
-#endif
 	    i = 0;
 	    while (OWReadBit() == 0) {
 		i++;
 	    }
-#if OW_DEBUG
-	    sprintf_P(cmdbuf, PSTR("Temp comversion took %d cycles\n\r"), i);
-	    uart_puts(cmdbuf);
-#endif	
 	    OWSendCmd(ROM, OW_RD_SCR_CMD);
 	    crc = 0;
 	    for (i = 0; i < 9; i++) {
@@ -303,19 +202,59 @@
 		    OWCRC(buf[i], &crc);
 	    }
 	    
-	    temp = buf[0];
-	    temp |= (uint16_t)buf[1] << 8;
-	    temp <<= 3;
-	    
 	    if (crc != buf[8]) {
-		sprintf_P(cmdbuf, PSTR("CRC mismatch got %d vs calcd %d\n\r"), buf[8], crc);
-		uart_puts(cmdbuf);
+		uart_putsP(PSTR("CRC mismatch\n\r"));
 		continue;
 	    }
 	    
-	    sprintf_P(cmdbuf, PSTR("temperature %d.%01d\n\r"),
-		      temp >> 4, (temp << 12) / 6553);
-	    uart_puts(cmdbuf);
+#if 0
+	    uart_putsP(PSTR("temperature "));
+	    uart_puts_dec(temp >> 4, 0);
+	    uart_putsP(PSTR("."));
+	    uart_puts_dec((temp << 12) / 6553, 0);
+	    uart_putsP(PSTR("\n\r"));
+#else
+	    /* 0	Temperature LSB
+	     * 1	Temperature MSB
+	     * 2	Th
+	     * 3	Tl
+	     * 4	Reserved
+	     * 5	Reserved
+	     * 6	Count Remain
+	     * 7	Count per C
+	     * 8	CRC
+	     */
+#if 0
+	    for (i = 0; i < 9; i++) {
+		uart_puts_dec(buf[i], 0);
+		uart_putsP(PSTR("\n\r"));
+	    }
+#endif
+	    temp = buf[0];
+	    if (buf[0] & 0x01)
+		temp -= 256;
+	    temp >>= 1;
+
+	    tfrac = buf[7] - buf[6];
+	    tfrac *= (uint16_t)100;
+	    tfrac /= buf[7];
+	    tfrac += 75;
+	    if (tfrac < 100) {
+		temp--;
+	    } else {
+		tfrac -= 100;
+	    }
+	    
+	    if (temp < 0){
+		uart_putc('-');
+		uart_puts_dec(-temp, 0);
+	    } else
+		uart_puts_dec(temp, 0);
+	    uart_putsP(PSTR("."));
+	    uart_puts_dec(tfrac, 1);
+	    uart_putsP(PSTR("\n\r"));
+	    
+#endif
 	} else if (cmdbuf[0] == 's' && cmdbuf[1] == 'r') {
 	    memset(ROM, 0, 8);
 
@@ -345,36 +284,16 @@
 		
 		if (i != OW_FOUND)
 		    break;
-		
-		sprintf_P(cmdbuf, PSTR("%02x:%02x:%02x:%02x:%02x:%02x:%02x:%02x\n\r"), 
-			  ROM[0],
-			  ROM[1],
-			  ROM[2],
-			  ROM[3],
-			  ROM[4],
-			  ROM[5],
-			  ROM[6],
-			  ROM[7]);
-		uart_puts(cmdbuf);
+
+		for (i = 0; i < 7; i++) {
+		    uart_puts_hex(ROM[i]);
+		    uart_putc(':');
+		}
+		uart_puts_hex(ROM[7]);
+		uart_putsP(PSTR("\n\r"));
 
 		i = OWNext(ROM, 1, 0);
 	    } while (1);
-	} else if (cmdbuf[0] == 'l' && cmdbuf[1] == 'e') {
-	    if (leds == 0) {
-		leds = 1;
-		ledpos = 0;
-		outp(0, TCNT0);
-		sbi(TIMSK, TOIE0);
-		sei();
-		uart_putsP(PSTR("Starting\n\r"));
-	    } else {
-		leds = 0;
-		ledpos = 0;
-		PORTA = 0x00;
-		cbi(TIMSK, TOIE0);
-		cli();
-		uart_putsP(PSTR("Stopping\n\r"));
-	    }
 	} else {
 	  badcmd:
 	    uart_putsP(PSTR("Unknown command, ? for a list\n\r"));
@@ -407,6 +326,25 @@
 	uart_putc(*addr++);
 }
 
+void
+uart_puts_dec(uint8_t a, uint8_t l) {
+    char	s[4];
+    
+    if (l && a < 10)
+	uart_putsP(PSTR("0"));
+    uart_puts(utoa(a, s, 10));
+}
+
+void
+uart_puts_hex(uint8_t a) {
+    char	s[3];
+    
+    if (a < 0x10)
+	uart_putc('0');
+    
+    uart_puts(utoa(a, s, 16));
+}
+
 int
 uart_getc(void) {
     while (!(inp(USR) & 0x80))