FIXME'd

[home-hw.git] / test-sinclair / main.c

diff --git a/test-sinclair/main.c b/test-sinclair/main.c
index 29ddb6ad7ef03b12db536444b9233e16ab001302..d0194cc28838de19f6eb8b8ef3fcd520fa9a3f2f 100644 (file)
--- a/test-sinclair/main.c
+++ b/test-sinclair/main.c
@@ -57,14 +57,15 @@ static void gpio_init(void)
        gpio_set_mode(GPIOC, GPIO_MODE_OUTPUT_50_MHZ, GPIO_CNF_OUTPUT_PUSHPULL, GPIO13);
        gpio_clear(GPIOC, GPIO13);
 
        gpio_set_mode(GPIOC, GPIO_MODE_OUTPUT_50_MHZ, GPIO_CNF_OUTPUT_PUSHPULL, GPIO13);
        gpio_clear(GPIOC, GPIO13);
 

-       // PB13 = SCK2
-       // PB15 = MOSI2
-       gpio_set_mode(GPIOB, GPIO_MODE_INPUT, GPIO_CNF_INPUT_FLOAT, GPIO13);
-       gpio_set_mode(GPIOB, GPIO_MODE_INPUT, GPIO_CNF_INPUT_FLOAT, GPIO15);
+       // PB13 = SCK2 (pulled up)
+       // PB15 = MOSI2 (pulled up)
+       gpio_set_mode(GPIOB, GPIO_MODE_INPUT, GPIO_CNF_INPUT_PULL_UPDOWN, GPIO13);
+       gpio_set_mode(GPIOB, GPIO_MODE_INPUT, GPIO_CNF_INPUT_PULL_UPDOWN, GPIO15);
+       gpio_set(GPIOB, GPIO13 | GPIO15);

 
        // PA8 = IR remote control
        gpio_clear(GPIOA, GPIO8);
 
        // PA8 = IR remote control
        gpio_clear(GPIOA, GPIO8);

-       gpio_set_mode(GPIOA, GPIO_MODE_OUTPUT_50_MHZ, GPIO_CNF_OUTPUT_ALTFN_PUSHPULL, GPIO8);
+       gpio_set_mode(GPIOA, GPIO_MODE_OUTPUT_50_MHZ, GPIO_CNF_OUTPUT_PUSHPULL, GPIO8);

 }
 
 static void usart_init(void)
 }
 
 static void usart_init(void)


@@ -302,60 +303,51 @@ static void tm_show(void)
 
 /*** Infra-red remote control simulator ***/
 
 
 /*** Infra-red remote control simulator ***/
 

-enum rc_keys {
-       RC_POWER_OFF,
-       RC_POWER_ON,
-       RC_HIGH,
-       RC_MED,
-       RC_LO,
-       RC_SLEEP,
-       RC_DRY,
-       RC_WARM,
-       RC_COLD,
-       RC_T17,
-       RC_T18,
-       RC_T19,
-       RC_T20,
-       RC_T21,
-       RC_T22,
-       RC_T23,
-       RC_T24,
-       RC_T25,
-       RC_T26,
-       RC_T27,
-       RC_T28,
-       RC_T29,
-       RC_T30,
-       RC_MAX
+/*
+ *  The AC unit expects demodulated IR signal. The RC sends 52-bit messages
+ *  (plus leader and trailer). The last 4 bits are a complement of checksum
+ *  of 4-bit nibbles.
+ *
+ *  We represent the messages as two 32-bit words, the upper word containing
+ */
+
+#define RC_POWER_OFF_HI                0b00000000000000000000
+#define RC_POWER_OFF_LO                0b00000000000000010000000010100100
+
+#define RC_DEFAULT_HI          0b00000011000000000000
+
+// Cooling with different fan settings. Combines with a temperature setting (17-30).
+#define RC_COOL_AUTO           0b00000000000000010000000000000000
+#define RC_COOL_HIGH           0b00000000000000010000100000000000
+#define RC_COOL_MED            0b00000000000000010001000100000000
+#define RC_COOL_LOW            0b00000000000000010010001000000000
+
+static const u32 rc_cool_fan[4] = {
+       RC_COOL_AUTO,
+       RC_COOL_LOW,
+       RC_COOL_MED,
+       RC_COOL_HIGH,

 };
 
 };
 

-static const char * const rc_patterns[RC_MAX] = {
-       [RC_POWER_OFF]  = "*#*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*B*A*A*A*A*A*A*A*A*B*A*B*A*A*B*A*A*#*$",
-       [RC_POWER_ON]   = "*#*A*A*A*A*A*A*B*B*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*B*A*A*A*A*A*A*A*A*B*A*B*A*A*A*A*B*#*$",
-       [RC_HIGH]       = "*#*A*A*A*A*A*A*B*B*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*B*A*A*A*A*B*A*A*A*B*A*B*A*B*A*A*B*#*$",
-       [RC_MED]        = "*#*A*A*A*A*A*A*B*B*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*B*A*A*A*B*A*A*A*B*B*A*B*A*B*B*B*B*#*$",
-       [RC_LO]         = "*#*A*A*A*A*A*A*B*B*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*B*A*A*B*A*A*A*B*A*B*A*B*A*B*B*A*B*#*$",
-       [RC_SLEEP]      = "*#*A*A*A*A*A*A*B*B*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*B*A*A*B*A*A*B*A*A*A*B*A*B*A*B*A*A*B*A*B*#*$",
-       [RC_DRY]        = "*#*A*A*A*A*A*A*B*B*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*B*A*A*B*A*A*B*A*A*B*A*B*A*B*A*B*B*#*$",
-       [RC_WARM]       = "*#*A*A*A*A*A*A*B*B*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*B*A*A*A*A*A*A*B*B*B*A*B*A*B*B*B*A*#*$",
-       [RC_COLD]       = "*#*A*A*A*A*A*A*B*B*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*B*A*A*A*A*A*A*A*A*B*A*B*A*A*A*A*B*#*$",
-       [RC_T17]        = "*#*A*A*A*A*A*A*B*B*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*B*A*A*A*A*A*A*A*A*A*A*B*A*B*A*A*B*#*$",
-       [RC_T18]        = "*#*A*A*A*A*A*A*B*B*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*B*A*A*A*A*A*A*A*A*A*A*B*B*B*A*A*A*#*$",
-       [RC_T19]        = "*#*A*A*A*A*A*A*B*B*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*B*A*A*A*A*A*A*A*A*A*B*A*A*A*B*B*B*#*$",
-       [RC_T20]        = "*#*A*A*A*A*A*A*B*B*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*B*A*A*A*A*A*A*A*A*A*B*A*B*A*B*B*A*#*$",
-       [RC_T21]        = "*#*A*A*A*A*A*A*B*B*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*B*A*A*A*A*A*A*A*A*A*B*B*A*A*B*A*B*#*$",
-       [RC_T22]        = "*#*A*A*A*A*A*A*B*B*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*B*A*A*A*A*A*A*A*A*A*B*B*B*A*B*A*A*#*$",
-       [RC_T23]        = "*#*A*A*A*A*A*A*B*B*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*B*A*A*A*A*A*A*A*A*B*A*A*A*A*A*B*B*#*$",
-       [RC_T24]        = "*#*A*A*A*A*A*A*B*B*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*B*A*A*A*A*A*A*A*A*B*A*A*B*A*A*B*A*#*$",
-       [RC_T25]        = "*#*A*A*A*A*A*A*B*B*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*B*A*A*A*A*A*A*A*A*B*A*B*A*A*A*A*B*#*$",
-       [RC_T26]        = "*#*A*A*A*A*A*A*B*B*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*B*A*A*A*A*A*A*A*A*B*A*B*B*A*A*A*A*#*$",
-       [RC_T27]        = "*#*A*A*A*A*A*A*B*B*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*B*A*A*A*A*A*A*A*A*B*B*A*A*B*B*B*B*#*$",
-       [RC_T28]        = "*#*A*A*A*A*A*A*B*B*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*B*A*A*A*A*A*A*A*A*B*B*A*B*B*B*B*A*#*$",
-       [RC_T29]        = "*#*A*A*A*A*A*A*B*B*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*B*A*A*A*A*A*A*A*A*B*B*B*A*B*B*A*B*#*$",
-       [RC_T30]        = "*#*A*A*A*A*A*A*B*B*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*A*B*A*A*A*A*A*A*A*A*B*B*B*B*B*B*A*A*#*$",
+// Heating with fixed fan setting. Combines with a temperature setting (15-25).
+#define RC_WARM                        0b00000000000000010000001100000000
+
+// Dehumidifying with fixed fan setting. This is always sent with temperature=17.
+#define RC_DEHUMIDIFY          0b00000000000000010010010000000000
+
+// This can be added to any command to enable sleep mode, but we do not issue it yet.
+#define RC_SLEEP               0b00000000000010000000000000000000
+
+enum rc_mode {
+       MODE_OFF,
+       MODE_COOL,
+       MODE_WARM,
+       MODE_DEHUMIDIFY,

 };
 
 };
 

-static const char rc_keys[] = "Oohmlsdwc7890123456&*()";
+static byte rc_mode = MODE_COOL;       // MODE_xxx
+static byte rc_fan;                    // 0-3
+static byte rc_temp = 17;              // 15-30

 
 static void rc_init(void)
 {
 
 static void rc_init(void)
 {


@@ -369,48 +361,98 @@ static void rc_init(void)
        nvic_enable_irq(NVIC_TIM4_IRQ);
 }
 
        nvic_enable_irq(NVIC_TIM4_IRQ);
 }
 

-static volatile const char *rc_pattern_pos;
-static volatile char rc_pending;
+static u32 rc_pattern[2];
+static uint rc_tick;
+
+static void rc_encode(void)
+{
+       if (rc_mode == MODE_OFF) {
+               rc_pattern[0] = RC_POWER_OFF_HI;
+               rc_pattern[1] = RC_POWER_OFF_LO;
+               return;
+       }
+
+       rc_pattern[0] = RC_DEFAULT_HI;
+       uint t = rc_temp;
+
+       if (rc_mode == MODE_COOL) {
+               rc_pattern[1] = rc_cool_fan[rc_fan];
+               if (t < 17)
+                       t = 17;
+               if (t > 30)
+                       t = 30;
+       } else if (rc_mode == MODE_WARM) {
+               rc_pattern[1] = RC_WARM;
+               if (t < 15)
+                       t = 15;
+               if (t > 25)
+                       t = 25;
+       } else {
+               rc_pattern[1] = RC_DEHUMIDIFY;
+               t = 17;
+       }
+
+       // Encode temperature
+       rc_pattern[1] |= (t - 15) << 4;
+
+       // Compute checksum
+       uint sum = 0;
+       for (uint i=0; i<2; i++)
+               for (uint j=0; j<32; j+=4)
+                       sum += (rc_pattern[i] >> j) & 0x0f;
+       rc_pattern[1] |= (sum & 0x0f) ^ 0x0f;
+}

 
 void tim4_isr(void)
 {
        if (TIM_SR(TIM4) & TIM_SR_UIF) {
                TIM_SR(TIM4) &= ~TIM_SR_UIF;
 
 
 void tim4_isr(void)
 {
        if (TIM_SR(TIM4) & TIM_SR_UIF) {
                TIM_SR(TIM4) &= ~TIM_SR_UIF;
 

-               if (!rc_pattern_pos)    // Just to be sure
-                       return;
-

                bool val;       // 1=pulse, 0=break
                uint duration;  // in μs
 
                bool val;       // 1=pulse, 0=break
                uint duration;  // in μs
 

-               switch (*rc_pattern_pos++) {
-                       case '#':
+               switch (rc_tick) {
+                       case 0:
+                               // Better be safe
+                               return;
+                       case 2:
+                       case 108:
+                               // Initial / final marker

                                val = 0;
                                duration = 3600;
                                val = 0;
                                duration = 3600;

+                               // debug_putc('#');

                                break;
                                break;

-                       case '*':
-                               val = 1;
-                               duration = 565;
-                               break;
-                       case 'A':
-                               val = 0;
-                               duration = 480;
-                               break;
-                       case 'B':
-                               val = 0;
-                               duration = 1471;
-                               break;
-                       case '$':
+                       case 110:
+                               // Inter-packet gap

                                val = 0;
                                duration = 10000;
                                val = 0;
                                duration = 10000;

+                               // debug_putc('$');

                                break;
                                break;

-                       default:
-                               // End of transmission
-                               rc_pattern_pos = NULL;
-                               rc_pending = 0;
+                       case 111:
+                               // End of message
+                               rc_tick = 0;

                                return;
                                return;

+                       default:
+                               if (rc_tick % 2) {
+                                       val = 1;
+                                       duration = 565;
+                                       // debug_putc('*');
+                               } else {
+                                       // Even ticks 4 to 106 transmit 52 bits of data
+                                       uint i = 12 + (rc_tick - 4) / 2;
+                                       val = 0;
+                                       if (rc_pattern[i>>5] & (0x80000000 >> (i & 31))) {
+                                               duration = 1471;
+                                               // debug_putc('B');
+                                       } else {
+                                               duration = 480;
+                                               // debug_putc('A');
+                                       }
+                               }

                }
 
                }
 

+               rc_tick++;
+

                if (val)
                        gpio_set(GPIOA, GPIO8);
                else
                if (val)
                        gpio_set(GPIOA, GPIO8);
                else


@@ -422,24 +464,82 @@ void tim4_isr(void)
        }
 }
 
        }
 }
 

-static bool rc_send(char key)
+static void rc_send(void)

 {
 {

-       if (rc_pending)
-               return false;
-       if (!key)
-               return false;
-
-       const char *s = strchr(rc_keys, key);
-       if (!s)
-               return false;
-       rc_pending = key;
-       rc_pattern_pos = rc_patterns[s - rc_keys];
-       debug_printf("RC sending: %c\n", key);
+       if (rc_tick)
+               return;
+
+       rc_encode();
+       debug_printf("RC sending: %05x %08x (mode=%d, fan=%d, temp=%d)\n",
+               (uint) rc_pattern[0], (uint) rc_pattern[1],
+               rc_mode, rc_fan, rc_temp);
+       rc_tick = 1;

 
        timer_set_period(TIM4, 1);
        timer_generate_event(TIM4, TIM_EGR_UG);
        timer_enable_counter(TIM4);
 
        timer_set_period(TIM4, 1);
        timer_generate_event(TIM4, TIM_EGR_UG);
        timer_enable_counter(TIM4);

-       return true;
+}
+
+static bool rc_key(char key)
+{
+       if (key == 'o') {
+               rc_mode = MODE_OFF;
+               rc_send();
+               return true;
+       } else if (key == 'c') {
+               rc_mode = MODE_COOL;
+               rc_send();
+               return true;
+       } else if (key == 'w') {
+               rc_mode = MODE_WARM;
+               rc_send();
+               return true;
+       } else if (key == 'd') {
+               rc_mode = MODE_DEHUMIDIFY;
+               rc_send();
+               return true;
+       } else if (key == 'a') {
+               rc_fan = 0;
+               rc_send();
+               return true;
+       } else if (key == 'l') {
+               rc_fan = 1;
+               rc_send();
+               return true;
+       } else if (key == 'm') {
+               rc_fan = 2;
+               rc_send();
+               return true;
+       } else if (key == 'h') {
+               rc_fan = 3;
+               rc_send();
+               return true;
+       } else if (key >= '7' && key <= '9') {
+               rc_temp = key - '0' + 10;
+               rc_send();
+               return true;
+       } else if (key >= '0' && key <= '6') {
+               rc_temp = key - '0' + 20;
+               rc_send();
+               return true;
+       } else if (key == '&') {
+               rc_temp = 27;
+               rc_send();
+               return true;
+       } else if (key == '*') {
+               rc_temp = 28;
+               rc_send();
+               return true;
+       } else if (key == '(') {
+               rc_temp = 29;
+               rc_send();
+               return true;
+       } else if (key == ')') {
+               rc_temp = 30;
+               rc_send();
+               return true;
+       }
+       return false;

 }
 
 /*** USB ***/
 }
 
 /*** USB ***/


@@ -658,7 +758,17 @@ int main(void)
 
                if (usart_get_flag(USART1, USART_SR_RXNE)) {
                        uint ch = usart_recv(USART1);
 
                if (usart_get_flag(USART1, USART_SR_RXNE)) {
                        uint ch = usart_recv(USART1);

-                       debug_putc(ch);
+#if 0
+                       if (ch == '1')
+                               gpio_set(GPIOA, GPIO8);
+                       else if (ch == '0')
+                               gpio_clear(GPIOA, GPIO8);
+#else
+                       if (rc_key(ch))
+                               ;
+#endif
+                       else
+                               debug_putc(ch);

                }
 
                if (usb_event_pending) {
                }
 
                if (usb_event_pending) {