mirror of
git://projects.qi-hardware.com/iris.git
synced 2024-07-04 21:43:51 +03:00
11 lines
269 B
COBOL
11 lines
269 B
COBOL
#pypp 0
|
|
#include "kernel.hh"
|
|
|
|
void panic (unsigned n, char const *message):
|
|
while (1):
|
|
for unsigned bit = 0x80000000; bit; bit >>= 1:
|
|
for int i = 0; i < 60000; ++i:
|
|
led (n & bit, i > 20000 && i < 40000)
|
|
for int i = 0; i < 100000; ++i:
|
|
led (false, false)
|