altos/telelco: Update backlight/contrast display upon change
[fw/altos] / src / drivers / ao_lco_bits.c
1 /*
2  * Copyright © 2018 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, either version 2 of the License, or
7  * (at your option) any later version.
8  *
9  * This program is distributed in the hope that it will be useful, but
10  * WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12  * General Public License for more details.
13  */
14
15 #include <ao.h>
16 #include <ao_lco.h>
17 #include <ao_radio_cmac.h>
18
19 uint8_t         ao_lco_debug;
20
21 uint8_t         ao_lco_pad;
22 int16_t         ao_lco_box;
23
24 uint8_t         ao_lco_armed;                                   /* arm active */
25 uint8_t         ao_lco_firing;                                  /* fire active */
26
27 int16_t         ao_lco_min_box, ao_lco_max_box;
28
29 uint8_t         ao_lco_pretending;
30
31 #if AO_LCO_DRAG
32 uint8_t         ao_lco_drag_race;
33 #endif
34
35 struct ao_pad_query     ao_pad_query;                           /* latest query response */
36
37 static uint8_t          ao_lco_channels[AO_PAD_MAX_BOXES];      /* pad channels available on each box */
38 static uint16_t         ao_lco_tick_offset[AO_PAD_MAX_BOXES];   /* 16 bit offset from local to remote tick count */
39 static uint8_t          ao_lco_selected[AO_PAD_MAX_BOXES];      /* pads selected to fire */
40
41 #define AO_LCO_VALID_LAST       1
42 #define AO_LCO_VALID_EVER       2
43
44 static uint8_t          ao_lco_valid[AO_PAD_MAX_BOXES];         /* AO_LCO_VALID bits per box */
45
46 static const AO_LED_TYPE        continuity_led[AO_LED_CONTINUITY_NUM] = {
47 #ifdef AO_LED_CONTINUITY_0
48         AO_LED_CONTINUITY_0,
49 #endif
50 #ifdef AO_LED_CONTINUITY_1
51         AO_LED_CONTINUITY_1,
52 #endif
53 #ifdef AO_LED_CONTINUITY_2
54         AO_LED_CONTINUITY_2,
55 #endif
56 #ifdef AO_LED_CONTINUITY_3
57         AO_LED_CONTINUITY_3,
58 #endif
59 #ifdef AO_LED_CONTINUITY_4
60         AO_LED_CONTINUITY_4,
61 #endif
62 #ifdef AO_LED_CONTINUITY_5
63         AO_LED_CONTINUITY_5,
64 #endif
65 #ifdef AO_LED_CONTINUITY_6
66         AO_LED_CONTINUITY_6,
67 #endif
68 #ifdef AO_LED_CONTINUITY_7
69         AO_LED_CONTINUITY_7,
70 #endif
71 };
72
73 /* Set LEDs to match remote box status */
74 void
75 ao_lco_igniter_status(void)
76 {
77         uint8_t         c;
78         uint8_t         t = 0;
79
80         for (;;) {
81 #if AO_LCO_DRAG
82                 if (ao_lco_drag_race)
83                         ao_sleep_for(&ao_pad_query, AO_MS_TO_TICKS(50));
84                 else
85 #endif
86                         ao_sleep(&ao_pad_query);
87                 if (ao_lco_box_pseudo(ao_lco_box)) {
88                         ao_led_off(AO_LED_GREEN|AO_LED_AMBER|AO_LED_RED);
89                         continue;
90                 }
91                 PRINTD("RSSI %d VALID %d\n", ao_radio_cmac_rssi, ao_lco_valid[ao_lco_box]);
92                 if (!(ao_lco_valid[ao_lco_box] & AO_LCO_VALID_LAST)) {
93                         ao_led_on(AO_LED_RED);
94                         ao_led_off(AO_LED_GREEN|AO_LED_AMBER);
95                         continue;
96                 }
97                 if (ao_radio_cmac_rssi < -90) {
98                         ao_led_on(AO_LED_AMBER);
99                         ao_led_off(AO_LED_RED|AO_LED_GREEN);
100                 } else {
101                         ao_led_on(AO_LED_GREEN);
102                         ao_led_off(AO_LED_RED|AO_LED_AMBER);
103                 }
104                 if (ao_pad_query.arm_status)
105                         ao_led_on(AO_LED_REMOTE_ARM);
106                 else
107                         ao_led_off(AO_LED_REMOTE_ARM);
108
109                 for (c = 0; c < AO_LED_CONTINUITY_NUM; c++) {
110                         uint8_t status;
111
112                         if (ao_pad_query.channels & (1 << c))
113                                 status = ao_pad_query.igniter_status[c];
114                         else
115                                 status = AO_PAD_IGNITER_STATUS_NO_IGNITER_RELAY_OPEN;
116
117 #if AO_LCO_DRAG
118                         if (ao_lco_drag_race && (ao_lco_selected[ao_lco_box] & (1 << c))) {
119                                 uint8_t on = 0;
120                                 if (status == AO_PAD_IGNITER_STATUS_GOOD_IGNITER_RELAY_OPEN) {
121                                         if (t)
122                                                 on = 1;
123                                 } else {
124                                         if (t == 1)
125                                                 on = 1;
126                                 }
127                                 if (on)
128                                         ao_led_on(continuity_led[c]);
129                                 else
130                                         ao_led_off(continuity_led[c]);
131                         } else
132 #endif
133                         {
134                                 if (status == AO_PAD_IGNITER_STATUS_GOOD_IGNITER_RELAY_OPEN)
135                                         ao_led_on(continuity_led[c]);
136                                 else
137                                         ao_led_off(continuity_led[c]);
138                         }
139                 }
140                 t = (t + 1) & 3;
141         }
142 }
143
144 uint8_t
145 ao_lco_pad_present(int16_t box, uint8_t pad)
146 {
147         /* voltage measurement is always valid */
148         if (pad == AO_LCO_PAD_VOLTAGE)
149                 return 1;
150         if (!ao_lco_channels[box])
151                 return 0;
152         if (pad > AO_PAD_MAX_CHANNELS)
153                 return 0;
154         return (ao_lco_channels[box] >> (pad - 1)) & 1;
155 }
156
157 uint8_t
158 ao_lco_pad_first(int16_t box)
159 {
160         uint8_t pad;
161
162         for (pad = 1; pad <= AO_PAD_MAX_CHANNELS; pad++)
163                 if (ao_lco_pad_present(box, pad))
164                         return pad;
165         return 0;
166 }
167
168 static uint8_t
169 ao_lco_get_channels(int16_t box, struct ao_pad_query *query)
170 {
171         int8_t                  r;
172
173         r = ao_lco_query((uint16_t) box, query, &ao_lco_tick_offset[box]);
174         if (r == AO_RADIO_CMAC_OK) {
175                 ao_lco_channels[box] = query->channels;
176                 ao_lco_valid[box] = AO_LCO_VALID_LAST | AO_LCO_VALID_EVER;
177         } else
178                 ao_lco_valid[box] &= (uint8_t) ~AO_LCO_VALID_LAST;
179         PRINTD("ao_lco_get_channels(%d) rssi %d valid %d ret %d offset %d\n", box, ao_radio_cmac_rssi, ao_lco_valid[box], r, ao_lco_tick_offset[box]);
180         ao_wakeup(&ao_pad_query);
181         return ao_lco_valid[box];
182 }
183
184 void
185 ao_lco_update(void)
186 {
187         if (ao_lco_box_pseudo(ao_lco_box)) {
188                 ao_lco_show();
189                 return;
190         }
191
192         uint8_t previous_valid = ao_lco_valid[ao_lco_box];
193
194         if (ao_lco_get_channels(ao_lco_box, &ao_pad_query) & AO_LCO_VALID_LAST) {
195                 if (!(previous_valid & AO_LCO_VALID_EVER)) {
196                         if (ao_lco_pad != AO_LCO_PAD_VOLTAGE)
197                                 ao_lco_set_pad(ao_lco_pad_first(ao_lco_box));
198                 }
199                 if (ao_lco_pad == AO_LCO_PAD_VOLTAGE)
200                         ao_lco_show();
201         }
202 }
203
204 uint8_t ao_lco_box_mask[AO_LCO_MASK_SIZE(AO_PAD_MAX_BOXES)];
205
206 static void
207 ao_lco_box_reset_present(void)
208 {
209         ao_lco_min_box = 0xff;
210         ao_lco_max_box = 0x00;
211         ao_lco_pretending = 0;
212         memset(ao_lco_box_mask, 0, sizeof (ao_lco_box_mask));
213 }
214
215 static void
216 ao_lco_box_set_present(int16_t box)
217 {
218         if (box < ao_lco_min_box)
219                 ao_lco_min_box = box;
220         if (box > ao_lco_max_box)
221                 ao_lco_max_box = box;
222         if (box >= AO_PAD_MAX_BOXES)
223                 return;
224         ao_lco_box_mask[AO_LCO_MASK_ID(box)] |= (uint8_t) (1 << AO_LCO_MASK_SHIFT(box));
225 }
226
227 void
228 ao_lco_set_pad(uint8_t new_pad)
229 {
230         ao_lco_pad = new_pad;
231         ao_lco_show();
232 }
233
234 void
235 ao_lco_set_box(int16_t new_box)
236 {
237         ao_lco_box = new_box;
238         if (!ao_lco_box_pseudo(ao_lco_box)) {
239                 if (ao_lco_box < AO_PAD_MAX_BOXES) {
240                         if (ao_lco_pretending)
241                                 ao_lco_channels[ao_lco_box] = 0xff;
242                         else
243                                 ao_lco_channels[ao_lco_box] = 0;
244                 }
245         }
246         ao_lco_pad = 1;
247         ao_lco_show();
248 }
249
250 void
251 ao_lco_step_pad(int8_t dir)
252 {
253         int16_t new_pad;
254
255         switch (ao_lco_box) {
256 #ifdef AO_LCO_HAS_CONTRAST
257         case AO_LCO_CONTRAST: {
258                 int32_t contrast = ao_lco_get_contrast();
259
260                 contrast = (contrast + AO_LCO_CONTRAST_STEP - 1) / AO_LCO_CONTRAST_STEP;
261                 contrast += dir;
262                 contrast *= AO_LCO_CONTRAST_STEP;
263                 if (contrast < AO_LCO_MIN_CONTRAST)
264                         contrast = AO_LCO_MIN_CONTRAST;
265                 if (contrast > AO_LCO_MAX_CONTRAST)
266                         contrast = AO_LCO_MAX_CONTRAST;
267                 ao_lco_set_contrast(contrast);
268                 ao_lco_show();
269                 break;
270         }
271 #endif
272 #ifdef AO_LCO_HAS_BACKLIGHT
273         case AO_LCO_BACKLIGHT: {
274                 int32_t backlight = ao_lco_get_backlight();
275
276                 backlight = (backlight + AO_LCO_BACKLIGHT_STEP - 1) / AO_LCO_BACKLIGHT_STEP;
277                 backlight += dir;
278                 backlight *= AO_LCO_BACKLIGHT_STEP;
279                 if (backlight < AO_LCO_MIN_BACKLIGHT)
280                         backlight = AO_LCO_MIN_BACKLIGHT;
281                 if (backlight > AO_LCO_MAX_BACKLIGHT)
282                         backlight = AO_LCO_MAX_BACKLIGHT;
283                 ao_lco_set_backlight(backlight);
284                 ao_lco_show();
285                 break;
286         }
287 #endif
288 #ifdef AO_LCO_HAS_INFO
289         case AO_LCO_INFO: {
290 #if AO_LCO_MIN_INFO_PAGE < AO_LCO_MAX_INFO_PAGE
291                 int32_t info_page = ao_lco_get_info_page();
292
293                 info += dir;
294                 if (info_page < AO_LCO_MIN_INFO_PAGE)
295                         info_page = AO_LCO_MIN_INFO_PAGE;
296                 if (info_page > AO_LCO_MAX_INFO_PAGE)
297                         info_page = AO_LCO_MAX_INFO_PAGE;
298                 ao_lco_set_info_page();
299 #endif
300                 break;
301         }
302 #endif
303         default:
304                 new_pad = (int16_t) ao_lco_pad;
305                 do {
306                         new_pad += dir;
307                         if (new_pad > AO_PAD_MAX_CHANNELS)
308                                 new_pad = AO_LCO_PAD_VOLTAGE;
309                         if (new_pad < 0)
310                                 new_pad = AO_PAD_MAX_CHANNELS;
311                         if (new_pad == ao_lco_pad)
312                                 break;
313                 } while (!ao_lco_pad_present(ao_lco_box, (uint8_t) new_pad));
314                 PRINTD("New pad %d\n", new_pad);
315                 ao_lco_set_pad((uint8_t) new_pad);
316                 break;
317         }
318 }
319
320 uint8_t
321 ao_lco_box_present(int16_t box)
322 {
323         if (ao_lco_box_pseudo(box))
324                 return 1;
325         if (box >= AO_PAD_MAX_BOXES)
326                 return 0;
327         return (ao_lco_box_mask[AO_LCO_MASK_ID(box)] >> AO_LCO_MASK_SHIFT(box)) & 1;
328 }
329
330 void
331 ao_lco_step_box(int8_t dir)
332 {
333         int16_t new_box = ao_lco_box;
334
335         do {
336                 new_box += dir;
337                 if (new_box > ao_lco_max_box)
338                         new_box = AO_LCO_BOX_FIRST;
339                 else if (new_box < AO_LCO_BOX_FIRST)
340                         new_box = ao_lco_max_box;
341                 if (new_box == ao_lco_box)
342                         break;
343         } while (!ao_lco_box_present(new_box));
344         PRINTD("New box %d\n", new_box);
345         ao_lco_set_box(new_box);
346 }
347
348 void
349 ao_lco_set_armed(uint8_t armed)
350 {
351         if (ao_lco_box_pseudo(ao_lco_box))
352                 return;
353
354         ao_lco_armed = armed;
355         PRINTD("Armed %d\n", ao_lco_armed);
356         if (ao_lco_armed) {
357 #if AO_LCO_DRAG
358                 if (ao_lco_drag_race) {
359                         int16_t box;
360
361                         for (box = ao_lco_min_box; box <= ao_lco_max_box; box++)
362                                 if (ao_lco_selected[box])
363                                         break;
364                         if (box > ao_lco_max_box)
365                                 ao_lco_armed = 0;
366                 } else
367 #endif
368                 {
369                         memset(ao_lco_selected, 0, sizeof (ao_lco_selected));
370                         if (ao_lco_pad != 0)
371                                 ao_lco_selected[ao_lco_box] = (1 << (ao_lco_pad - 1));
372                         else
373                                 ao_lco_armed = 0;
374                 }
375         }
376         ao_wakeup(&ao_lco_armed);
377 }
378
379 void
380 ao_lco_set_firing(uint8_t firing)
381 {
382         ao_lco_firing = firing;
383         PRINTD("Firing %d\n", ao_lco_firing);
384         ao_wakeup(&ao_lco_armed);
385 }
386
387 void
388 ao_lco_search(void)
389 {
390         int8_t          r;
391         int8_t          try;
392         int16_t         box;
393         uint16_t        boxes = 0;
394
395         ao_lco_box_reset_present();
396 #ifdef AO_LCO_SEARCH_API
397         ao_lco_search_start();
398 #else
399         ao_lco_show_box(0);
400         ao_lco_show_pad(0);
401 #endif
402         for (box = 0; box < AO_PAD_MAX_BOXES; box++) {
403 #ifdef AO_LCO_SEARCH_API
404                 ao_lco_search_box_check(box);
405 #else
406                 if ((box % 10) == 0)
407                         ao_lco_show_box(box);
408 #endif
409                 for (try = 0; try < 3; try++) {
410                         ao_lco_tick_offset[box] = 0;
411                         r = ao_lco_query((uint16_t) box, &ao_pad_query, &ao_lco_tick_offset[box]);
412                         PRINTD("box %d result %d offset %d\n", box, r, ao_lco_tick_offset[box]);
413                         if (r == AO_RADIO_CMAC_OK) {
414                                 ++boxes;
415                                 ao_lco_box_set_present(box);
416 #ifdef AO_LCO_SEARCH_API
417                                 ao_lco_search_box_present(box);
418 #else
419                                 ao_lco_show_pad((uint8_t) (boxes % 10));
420 #endif
421                                 ao_delay(AO_MS_TO_TICKS(30));
422                                 break;
423                         }
424                 }
425         }
426         if (ao_lco_min_box <= ao_lco_max_box)
427                 ao_lco_box = ao_lco_min_box;
428         else
429                 ao_lco_min_box = ao_lco_max_box = ao_lco_box = 0;
430         memset(ao_lco_valid, 0, sizeof (ao_lco_valid));
431         memset(ao_lco_channels, 0, sizeof (ao_lco_channels));
432 #ifdef AO_LCO_SEARCH_API
433         ao_lco_search_done();
434 #endif
435         ao_lco_set_box(ao_lco_min_box);
436 }
437
438 void
439 ao_lco_pretend(void)
440 {
441         int16_t box;
442
443         ao_lco_pretending = 1;
444         ao_lco_min_box = 1;
445         ao_lco_max_box = AO_PAD_MAX_BOXES - 1;
446         for (box = ao_lco_min_box; box <= ao_lco_max_box; box++)
447                 ao_lco_box_set_present(box);
448         ao_lco_box = ao_lco_min_box;
449         memset(ao_lco_valid, 0, sizeof (ao_lco_valid));
450         memset(ao_lco_channels, 0, sizeof (ao_lco_channels));
451         ao_lco_set_box(ao_lco_min_box);
452 }
453
454 void
455 ao_lco_monitor(void)
456 {
457         AO_TICK_TYPE    delay;
458         int16_t         box;
459
460         for (;;) {
461                 PRINTD("monitor armed %d firing %d\n",
462                        ao_lco_armed, ao_lco_firing);
463
464                 if (ao_lco_armed && ao_lco_firing) {
465                         ao_lco_ignite(AO_PAD_FIRE);
466                 } else {
467                         ao_lco_update();
468                         if (ao_lco_armed) {
469                                 for (box = ao_lco_min_box; box <= ao_lco_max_box; box++) {
470                                         if (ao_lco_selected[box]) {
471                                                 PRINTD("Arming box %d pads %x\n",
472                                                        box, ao_lco_selected[box]);
473                                                 if (ao_lco_valid[box] & AO_LCO_VALID_EVER) {
474                                                         ao_lco_arm((uint16_t) box, ao_lco_selected[box], ao_lco_tick_offset[box]);
475                                                         ao_delay(AO_MS_TO_TICKS(10));
476                                                 }
477                                         }
478                                 }
479                         }
480                 }
481                 if (ao_lco_armed && ao_lco_firing)
482                         delay = AO_MS_TO_TICKS(100);
483                 else
484                         delay = AO_SEC_TO_TICKS(1);
485                 ao_sleep_for(&ao_lco_armed, delay);
486         }
487 }
488
489 #if AO_LCO_DRAG
490
491 uint8_t                 ao_lco_drag_beep_count;
492 static uint8_t          ao_lco_drag_beep_on;
493 static AO_TICK_TYPE     ao_lco_drag_beep_time;
494 static AO_TICK_TYPE     ao_lco_drag_warn_time;
495
496 #define AO_LCO_DRAG_BEEP_TIME   AO_MS_TO_TICKS(50)
497 #define AO_LCO_DRAG_WARN_TIME   AO_SEC_TO_TICKS(5)
498
499 /* Request 'beeps' additional drag race beeps */
500 void
501 ao_lco_drag_add_beeps(uint8_t beeps)
502 {
503         PRINTD("beep %d\n", beeps);
504         if (ao_lco_drag_beep_count == 0)
505                 ao_lco_drag_beep_time = ao_time();
506         ao_lco_drag_beep_count += beeps;
507         ao_wakeup(&ao_lco_drag_beep_count);
508 }
509
510 /* Toggle current pad in drag set */
511 void
512 ao_lco_toggle_drag(void)
513 {
514         if (ao_lco_drag_race && ao_lco_pad != AO_LCO_PAD_VOLTAGE && !ao_lco_box_pseudo(ao_lco_box)) {
515                 ao_lco_selected[ao_lco_box] ^= (uint8_t) (1 << (ao_lco_pad - 1));
516                 PRINTD("Toggle box %d pad %d (pads now %x) to drag race\n",
517                        ao_lco_pad, ao_lco_box, ao_lco_selected[ao_lco_box]);
518                 ao_lco_drag_add_beeps(ao_lco_pad);
519         }
520 }
521
522 /* Check whether it's time to change the beeper status, then either
523  * turn it on or off as necessary and bump the remaining beep counts
524  */
525
526 AO_TICK_TYPE
527 ao_lco_drag_beep_check(AO_TICK_TYPE now, AO_TICK_TYPE delay)
528 {
529         PRINTD("beep check count %d delta %ld\n",
530                ao_lco_drag_beep_count,
531                (long) (AO_TICK_SIGNED) (now - ao_lco_drag_beep_time));
532         if (ao_lco_drag_beep_count) {
533                 if ((AO_TICK_SIGNED) (now - ao_lco_drag_beep_time) >= 0) {
534                         if (ao_lco_drag_beep_on) {
535                                 ao_beep(0);
536                                 PRINTD("beep stop\n");
537                                 ao_lco_drag_beep_on = 0;
538                                 if (ao_lco_drag_beep_count) {
539                                         --ao_lco_drag_beep_count;
540                                         if (ao_lco_drag_beep_count)
541                                                 ao_lco_drag_beep_time = now + AO_LCO_DRAG_BEEP_TIME;
542                                 }
543                         } else {
544                                 ao_beep(AO_BEEP_HIGH);
545                                 PRINTD("beep start\n");
546                                 ao_lco_drag_beep_on = 1;
547                                 ao_lco_drag_beep_time = now + AO_LCO_DRAG_BEEP_TIME;
548                         }
549                 }
550         }
551
552         if (ao_lco_drag_beep_count) {
553                 AO_TICK_TYPE beep_delay = 0;
554
555                 if (ao_lco_drag_beep_time > now)
556                         beep_delay = ao_lco_drag_beep_time - now;
557
558                 if (delay > beep_delay)
559                         delay = beep_delay;
560         }
561         return delay;
562 }
563
564 void
565 ao_lco_drag_enable(void)
566 {
567         if (!ao_lco_drag_race) {
568                 PRINTD("Drag enable\n");
569                 ao_lco_drag_race = 1;
570                 memset(ao_lco_selected, 0, sizeof (ao_lco_selected));
571 #ifdef AO_LED_DRAG
572                 ao_led_on(AO_LED_DRAG);
573 #endif
574                 ao_lco_drag_add_beeps(5);
575                 ao_lco_show();
576         }
577 }
578
579 void
580 ao_lco_drag_disable(void)
581 {
582         if (ao_lco_drag_race) {
583                 PRINTD("Drag disable\n");
584                 ao_lco_drag_race = 0;
585 #ifdef AO_LED_DRAG
586                 ao_led_off(AO_LED_DRAG);
587 #endif
588                 memset(ao_lco_selected, 0, sizeof (ao_lco_selected));
589                 ao_lco_drag_add_beeps(2);
590                 ao_lco_show();
591         }
592 }
593
594 /* add a beep if it's time to warn the user that drag race mode is
595  * active
596  */
597
598 AO_TICK_TYPE
599 ao_lco_drag_warn_check(AO_TICK_TYPE now, AO_TICK_TYPE delay)
600 {
601         if (ao_lco_drag_race) {
602                 AO_TICK_TYPE    warn_delay;
603
604                 if ((AO_TICK_SIGNED) (now - ao_lco_drag_warn_time) >= 0) {
605                         ao_lco_drag_add_beeps(1);
606                         ao_lco_drag_warn_time = now + AO_LCO_DRAG_WARN_TIME;
607                 }
608                 warn_delay = ao_lco_drag_warn_time - now;
609                 if (delay > warn_delay)
610                         delay = warn_delay;
611         }
612         return delay;
613 }
614 #endif /* AO_LCO_DRAG */
615
616 /* task function for beeping while arm is active */
617 void
618 ao_lco_arm_warn(void)
619 {
620         for (;;) {
621                 while (!ao_lco_armed) {
622 #ifdef AO_LED_FIRE
623                         ao_led_off(AO_LED_FIRE);
624 #endif
625                         ao_sleep(&ao_lco_armed);
626                 }
627 #ifdef AO_LED_FIRE
628                 ao_led_on(AO_LED_FIRE);
629 #endif
630                 ao_beep_for(AO_BEEP_MID, AO_MS_TO_TICKS(200));
631                 ao_delay(AO_MS_TO_TICKS(200));
632         }
633 }