git.gag.com Git - fw/altos/blob - src/drivers/ao_lco.c

   1 /*
   2  * Copyright © 2012 Keith Packard <keithp@keithp.com>
   3  *
   4  * This program is free software; you can redistribute it and/or modify
   5  * it under the terms of the GNU General Public License as published by
   6  * the Free Software Foundation; version 2 of the License.
   7  *
   8  * This program is distributed in the hope that it will be useful, but
   9  * WITHOUT ANY WARRANTY; without even the implied warranty of
  10  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  11  * General Public License for more details.
  12  *
  13  * You should have received a copy of the GNU General Public License along
  14  * with this program; if not, write to the Free Software Foundation, Inc.,
  15  * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
  16  */
  17
  18 #include <ao.h>
  19 #include <ao_lco.h>
  20 #include <ao_event.h>
  21 #include <ao_seven_segment.h>
  22 #include <ao_quadrature.h>
  23 #include <ao_lco_func.h>
  24 #include <ao_radio_cmac.h>
  25
  26 #define DEBUG   1
  27
  28 #if DEBUG
  29 static uint8_t  ao_lco_debug;
  30 #define PRINTD(...) do { if (!ao_lco_debug) break; printf ("\r%5u %s: ", ao_tick_count, __func__); printf(__VA_ARGS__); flush(); } while(0)
  31 #else
  32 #define PRINTD(...)
  33 #endif
  34
  35 #define AO_LCO_PAD_DIGIT        0
  36 #define AO_LCO_BOX_DIGIT_1      1
  37 #define AO_LCO_BOX_DIGIT_10     2
  38
  39 static uint8_t  ao_lco_min_box, ao_lco_max_box;
  40 static uint8_t  ao_lco_pad;
  41 static uint8_t  ao_lco_box;
  42 static uint8_t  ao_lco_armed;
  43 static uint8_t  ao_lco_firing;
  44 static uint8_t  ao_lco_valid;
  45 static uint8_t  ao_lco_got_channels;
  46 static uint16_t ao_lco_tick_offset;
  47 static uint8_t  ao_lco_show_voltage;
  48
  49 static struct ao_pad_query      ao_pad_query;
  50
  51 static void
  52 ao_lco_set_pad(uint8_t pad)
  53 {
  54         ao_seven_segment_set(AO_LCO_PAD_DIGIT, pad + 1);
  55 }
  56
  57 static void
  58 ao_lco_set_box(uint8_t box)
  59 {
  60         ao_seven_segment_set(AO_LCO_BOX_DIGIT_1, box % 10);
  61         ao_seven_segment_set(AO_LCO_BOX_DIGIT_10, box / 10);
  62 }
  63
  64 static void
  65 ao_lco_set_voltage(uint16_t decivolts)
  66 {
  67         uint8_t tens, ones, tenths;
  68
  69         tenths = decivolts % 10;
  70         ones = (decivolts / 10) % 10;
  71         tens = (decivolts / 100) % 10;
  72         ao_seven_segment_set(AO_LCO_PAD_DIGIT, tenths);
  73         ao_seven_segment_set(AO_LCO_BOX_DIGIT_1, ones | 0x10);
  74         ao_seven_segment_set(AO_LCO_BOX_DIGIT_10, tens);
  75 }
  76
  77 #define MASK_SIZE(n)    (((n) + 7) >> 3)
  78 #define MASK_ID(n)      ((n) >> 3)
  79 #define MASK_SHIFT(n)   ((n) & 7)
  80
  81 static uint8_t  ao_lco_box_mask[MASK_SIZE(AO_PAD_MAX_BOXES)];
  82
  83 static uint8_t
  84 ao_lco_box_present(uint8_t box)
  85 {
  86         if (box >= AO_PAD_MAX_BOXES)
  87                 return 0;
  88         return (ao_lco_box_mask[MASK_ID(box)] >> MASK_SHIFT(box)) & 1;
  89 }
  90
  91 static uint8_t
  92 ao_lco_pad_present(uint8_t pad)
  93 {
  94         if (!ao_lco_got_channels || !ao_pad_query.channels)
  95                 return pad == 0;
  96         if (pad >= AO_PAD_MAX_CHANNELS)
  97                 return 0;
  98         return (ao_pad_query.channels >> pad) & 1;
  99 }
 100
 101 static uint8_t
 102 ao_lco_pad_first(void)
 103 {
 104         uint8_t pad;
 105
 106         for (pad = 0; pad < AO_PAD_MAX_CHANNELS; pad++)
 107                 if (ao_lco_pad_present(pad))
 108                         return pad;
 109         return 0;
 110 }
 111
 112 static void
 113 ao_lco_input(void)
 114 {
 115         static struct ao_event  event;
 116         int8_t  dir, new_box, new_pad;
 117
 118         ao_beep_for(AO_BEEP_MID, AO_MS_TO_TICKS(200));
 119         for (;;) {
 120                 ao_event_get(&event);
 121                 PRINTD("event type %d unit %d value %d\n",
 122                        event.type, event.unit, event.value);
 123                 switch (event.type) {
 124                 case AO_EVENT_QUADRATURE:
 125                         switch (event.unit) {
 126                         case AO_QUADRATURE_PAD:
 127                                 if (!ao_lco_armed) {
 128                                         dir = (int8_t) event.value;
 129                                         new_pad = ao_lco_pad;
 130                                         do {
 131                                                 new_pad += dir;
 132                                                 if (new_pad > AO_PAD_MAX_CHANNELS)
 133                                                         new_pad = 0;
 134                                                 else if (new_pad < 0)
 135                                                         new_pad = AO_PAD_MAX_CHANNELS - 1;
 136                                                 if (new_pad == ao_lco_pad)
 137                                                         break;
 138                                         } while (!ao_lco_pad_present(new_pad));
 139                                         if (new_pad != ao_lco_pad) {
 140                                                 ao_lco_pad = new_pad;
 141                                                 ao_lco_set_box(ao_lco_box);
 142                                                 ao_lco_set_pad(ao_lco_pad);
 143                                         }
 144                                 }
 145                                 break;
 146                         case AO_QUADRATURE_BOX:
 147                                 if (!ao_lco_armed) {
 148                                         dir = (int8_t) event.value;
 149                                         new_box = ao_lco_box;
 150                                         do {
 151                                                 new_box += dir;
 152                                                 if (new_box > ao_lco_max_box)
 153                                                         new_box = ao_lco_min_box;
 154                                                 else if (new_box < ao_lco_min_box)
 155                                                         new_box = ao_lco_max_box;
 156                                                 if (new_box == ao_lco_box)
 157                                                         break;
 158                                         } while (!ao_lco_box_present(new_box));
 159                                         if (ao_lco_box != new_box) {
 160                                                 ao_lco_box = new_box;
 161                                                 ao_lco_got_channels = 0;
 162                                                 ao_lco_set_box(ao_lco_box);
 163                                                 ao_lco_set_pad(ao_lco_pad);
 164                                         }
 165                                 }
 166                                 break;
 167                         }
 168                         break;
 169                 case AO_EVENT_BUTTON:
 170                         switch (event.unit) {
 171                         case AO_BUTTON_ARM:
 172                                 ao_lco_armed = event.value;
 173                                 PRINTD("Armed %d\n", ao_lco_armed);
 174                                 ao_wakeup(&ao_lco_armed);
 175                                 break;
 176                         case AO_BUTTON_FIRE:
 177                                 if (ao_lco_armed) {
 178                                         ao_lco_firing = event.value;
 179                                         ao_lco_show_voltage = 0;
 180                                         PRINTD("Firing %d\n", ao_lco_firing);
 181                                         ao_wakeup(&ao_lco_armed);
 182                                 } else {
 183                                         if (event.value) {
 184                                                 if (ao_lco_got_channels)
 185                                                         ao_lco_set_voltage(ao_pad_query.battery);
 186                                         } else {
 187                                                 ao_lco_set_box(ao_lco_box);
 188                                                 ao_lco_set_pad(ao_lco_pad);
 189                                         }
 190                                         ao_lco_show_voltage = event.value;
 191                                 }
 192                                 break;
 193                         }
 194                         break;
 195                 }
 196         }
 197 }
 198
 199 static AO_LED_TYPE      continuity_led[AO_LED_CONTINUITY_NUM] = {
 200 #ifdef AO_LED_CONTINUITY_0
 201         AO_LED_CONTINUITY_0,
 202 #endif
 203 #ifdef AO_LED_CONTINUITY_1
 204         AO_LED_CONTINUITY_1,
 205 #endif
 206 #ifdef AO_LED_CONTINUITY_2
 207         AO_LED_CONTINUITY_2,
 208 #endif
 209 #ifdef AO_LED_CONTINUITY_3
 210         AO_LED_CONTINUITY_3,
 211 #endif
 212 #ifdef AO_LED_CONTINUITY_4
 213         AO_LED_CONTINUITY_4,
 214 #endif
 215 #ifdef AO_LED_CONTINUITY_5
 216         AO_LED_CONTINUITY_5,
 217 #endif
 218 #ifdef AO_LED_CONTINUITY_6
 219         AO_LED_CONTINUITY_6,
 220 #endif
 221 #ifdef AO_LED_CONTINUITY_7
 222         AO_LED_CONTINUITY_7,
 223 #endif
 224 };
 225
 226 static void
 227 ao_lco_update(void)
 228 {
 229         int8_t                  r;
 230         uint8_t                 c;
 231
 232         r = ao_lco_query(ao_lco_box, &ao_pad_query, &ao_lco_tick_offset);
 233         if (r == AO_RADIO_CMAC_OK) {
 234                 c = ao_lco_got_channels;
 235                 ao_lco_got_channels = 1;
 236                 ao_lco_valid = 1;
 237                 if (!c) {
 238                         ao_lco_pad = ao_lco_pad_first();
 239                         if (!ao_lco_show_voltage)
 240                                 ao_lco_set_pad(ao_lco_pad);
 241                 }
 242                 if (ao_lco_show_voltage)
 243                         ao_lco_set_voltage(ao_pad_query.battery);
 244         } else
 245                 ao_lco_valid = 0;
 246
 247 #if 0
 248         PRINTD("lco_query success arm_status %d i0 %d i1 %d i2 %d i3 %d\n",
 249                query.arm_status,
 250                query.igniter_status[0],
 251                query.igniter_status[1],
 252                query.igniter_status[2],
 253                query.igniter_status[3]);
 254 #endif
 255         PRINTD("ao_lco_update valid %d\n", ao_lco_valid);
 256         ao_wakeup(&ao_pad_query);
 257 }
 258
 259 static void
 260 ao_lco_box_reset_present(void)
 261 {
 262         ao_lco_min_box = 0xff;
 263         ao_lco_max_box = 0x00;
 264         memset(ao_lco_box_mask, 0, sizeof (ao_lco_box_mask));
 265 }
 266
 267 static void
 268 ao_lco_box_set_present(uint8_t box)
 269 {
 270         if (box < ao_lco_min_box)
 271                 ao_lco_min_box = box;
 272         if (box > ao_lco_max_box)
 273                 ao_lco_max_box = box;
 274         if (box >= AO_PAD_MAX_BOXES)
 275                 return;
 276         ao_lco_box_mask[MASK_ID(box)] |= 1 << MASK_SHIFT(box);
 277 }
 278
 279 static void
 280 ao_lco_search(void)
 281 {
 282         uint16_t        tick_offset;
 283         int8_t          r;
 284         int8_t          try;
 285         uint8_t         box;
 286         uint8_t         boxes = 0;
 287
 288         ao_lco_box_reset_present();
 289         ao_lco_set_pad(-1);
 290         for (box = 0; box < AO_PAD_MAX_BOXES; box++) {
 291                 if ((box % 10) == 0)
 292                         ao_lco_set_box(box);
 293                 for (try = 0; try < 3; try++) {
 294                         tick_offset = 0;
 295                         r = ao_lco_query(box, &ao_pad_query, &tick_offset);
 296                         PRINTD("box %d result %d\n", box, r);
 297                         if (r == AO_RADIO_CMAC_OK) {
 298                                 ++boxes;
 299                                 ao_lco_box_set_present(box);
 300                                 ao_lco_set_pad((boxes % 10) - 1);
 301                                 ao_delay(AO_MS_TO_TICKS(30));
 302                                 break;
 303                         }
 304                 }
 305         }
 306         if (ao_lco_min_box <= ao_lco_max_box)
 307                 ao_lco_box = ao_lco_min_box;
 308         else
 309                 ao_lco_min_box = ao_lco_max_box = ao_lco_box = 0;
 310         ao_lco_valid = 0;
 311         ao_lco_got_channels = 0;
 312         ao_lco_pad = 0;
 313         ao_lco_set_pad(ao_lco_pad);
 314         ao_lco_set_box(ao_lco_box);
 315 }
 316
 317 static void
 318 ao_lco_igniter_status(void)
 319 {
 320         uint8_t         c;
 321
 322         for (;;) {
 323                 ao_sleep(&ao_pad_query);
 324                 PRINTD("RSSI %d VALID %d\n", ao_radio_cmac_rssi, ao_lco_valid);
 325                 if (!ao_lco_valid) {
 326                         ao_led_on(AO_LED_RED);
 327                         ao_led_off(AO_LED_GREEN|AO_LED_AMBER);
 328                         continue;
 329                 }
 330                 if (ao_radio_cmac_rssi < -90) {
 331                         ao_led_on(AO_LED_AMBER);
 332                         ao_led_off(AO_LED_RED|AO_LED_GREEN);
 333                 } else {
 334                         ao_led_on(AO_LED_GREEN);
 335                         ao_led_off(AO_LED_RED|AO_LED_AMBER);
 336                 }
 337                 if (ao_pad_query.arm_status)
 338                         ao_led_on(AO_LED_REMOTE_ARM);
 339                 else
 340                         ao_led_off(AO_LED_REMOTE_ARM);
 341                 for (c = 0; c < AO_LED_CONTINUITY_NUM; c++) {
 342                         uint8_t status;
 343
 344                         if (ao_pad_query.channels & (1 << c))
 345                                 status = ao_pad_query.igniter_status[c];
 346                         else
 347                                 status = AO_PAD_IGNITER_STATUS_NO_IGNITER_RELAY_OPEN;
 348                         if (status == AO_PAD_IGNITER_STATUS_GOOD_IGNITER_RELAY_OPEN)
 349                                 ao_led_on(continuity_led[c]);
 350                         else
 351                                 ao_led_off(continuity_led[c]);
 352                 }
 353         }
 354 }
 355
 356 static void
 357 ao_lco_arm_warn(void)
 358 {
 359         for (;;) {
 360                 while (!ao_lco_armed)
 361                         ao_sleep(&ao_lco_armed);
 362                 ao_beep_for(AO_BEEP_MID, AO_MS_TO_TICKS(200));
 363                 ao_delay(AO_MS_TO_TICKS(200));
 364         }
 365 }
 366
 367 static struct ao_task ao_lco_input_task;
 368 static struct ao_task ao_lco_monitor_task;
 369 static struct ao_task ao_lco_arm_warn_task;
 370 static struct ao_task ao_lco_igniter_status_task;
 371
 372 static void
 373 ao_lco_monitor(void)
 374 {
 375         uint16_t                delay;
 376
 377         ao_lco_search();
 378         ao_add_task(&ao_lco_input_task, ao_lco_input, "lco input");
 379         ao_add_task(&ao_lco_arm_warn_task, ao_lco_arm_warn, "lco arm warn");
 380         ao_add_task(&ao_lco_igniter_status_task, ao_lco_igniter_status, "lco igniter status");
 381         for (;;) {
 382                 PRINTD("monitor armed %d firing %d offset %d\n",
 383                        ao_lco_armed, ao_lco_firing, ao_lco_tick_offset);
 384
 385                 if (ao_lco_armed && ao_lco_firing) {
 386                         PRINTD("Firing box %d pad %d: valid %d\n",
 387                                ao_lco_box, ao_lco_pad, ao_lco_valid);
 388                         if (!ao_lco_valid)
 389                                 ao_lco_update();
 390                         if (ao_lco_valid)
 391                                 ao_lco_ignite(ao_lco_box, 1 << ao_lco_pad, ao_lco_tick_offset);
 392                 } else if (ao_lco_armed) {
 393                         PRINTD("Arming box %d pad %d\n",
 394                                ao_lco_box, ao_lco_pad);
 395                         if (!ao_lco_valid)
 396                                 ao_lco_update();
 397                         ao_lco_arm(ao_lco_box, 1 << ao_lco_pad, ao_lco_tick_offset);
 398                         ao_delay(AO_MS_TO_TICKS(30));
 399                         ao_lco_update();
 400                 } else {
 401                         ao_lco_update();
 402                 }
 403                 if (ao_lco_armed && ao_lco_firing)
 404                         delay = AO_MS_TO_TICKS(100);
 405                 else
 406                         delay = AO_SEC_TO_TICKS(1);
 407                 ao_sleep_for(&ao_lco_armed, delay);
 408         }
 409 }
 410
 411 #if DEBUG
 412 void
 413 ao_lco_set_debug(void)
 414 {
 415         ao_cmd_decimal();
 416         if (ao_cmd_status == ao_cmd_success)
 417                 ao_lco_debug = ao_cmd_lex_i != 0;
 418 }
 419
 420 __code struct ao_cmds ao_lco_cmds[] = {
 421         { ao_lco_set_debug,     "D <0 off, 1 on>\0Debug" },
 422         { ao_lco_search,        "s\0Search for pad boxes" },
 423         { 0, NULL }
 424 };
 425 #endif
 426
 427 void
 428 ao_lco_init(void)
 429 {
 430         ao_add_task(&ao_lco_monitor_task, ao_lco_monitor, "lco monitor");
 431 #if DEBUG
 432         ao_cmd_register(&ao_lco_cmds[0]);
 433 #endif
 434 }