mirror of
git://projects.qi-hardware.com/iris.git
synced 2024-07-02 20:04:32 +03:00
11 lines
286 B
COBOL
11 lines
286 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 < 600000; ++i:
|
|
led (n & bit, i > 200000 && i < 400000, false)
|
|
for int i = 0; i < 1000000; ++i:
|
|
led (false, false, true)
|