UNSAFE MODULE--------------------------------------------------- process termination ---; IMPORT Unix, Uuio, Cstdlib; RTOS
PROCEDURE------------------------------------------------------------------- I/O ---Exit (n: INTEGER) = BEGIN Unix.exit (n); END Exit; PROCEDURECrash () = BEGIN Cstdlib.abort (); LOOP END; (* wait *) END Crash;
PROCEDUREWrite (a: ADDRESS; n: INTEGER) = BEGIN EVAL Uuio.write (2, a, n); END Write; BEGIN END RTOS.