X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=ao_panic.c;h=30ccce60bdc57ba2dd6a05c3d58a9e7466562e92;hp=0f8433dc03e9297a30dcefb7e4849fae26c72eb0;hb=fb63262699d3a6fbf347d24efda8b01f75b7d0d3;hpb=7e4abf3a40c39d0ce4f466281bef9a464df85dd4

diff --git a/ao_panic.c b/ao_panic.c
index 0f8433dc..30ccce60 100644
--- a/ao_panic.c
+++ b/ao_panic.c
@@ -17,8 +17,36 @@
 
 #include "ao.h"
 
+static void
+ao_panic_delay(uint8_t n)
+{
+	uint8_t	i = 0;
+
+	while (n--)
+		while (--i)
+			_asm nop _endasm;
+}
+
 void
 ao_panic(uint8_t reason)
 {
-	(void) reason;
+	uint8_t	n;
+	
+	for (;;) {
+		ao_led_on(AO_LED_RED);
+		ao_beep(AO_BEEP_MID);
+		ao_panic_delay(2);
+		ao_led_off(AO_LED_RED);
+		ao_beep(AO_BEEP_OFF);
+		ao_panic_delay(2);
+		for (n = 0; n < reason; n++) {
+			ao_led_on(AO_LED_RED);
+			ao_beep(AO_BEEP_MID);
+			ao_panic_delay(1);
+			ao_led_off(AO_LED_RED);
+			ao_beep(AO_BEEP_OFF);
+			ao_panic_delay(1);
+		}
+		ao_panic_delay(2);
+	}
 }