Files
seta75D 7c4988eac0 Init
2021-10-11 19:38:01 -03:00

14 lines
300 B
Ada
Executable File

#include <sys/proc.h>
pid
.>P
,#(<P)$<setproc.nop
{*pid_link,<P},#(#(<p-{*pid_id,<P}))$<setproc.nxt
#if defined(_BIG_ENDIAN)
*(*procdir+((*(<P)&0xffffff)*4))$<setproc.done
#elif defined(_LITTLE_ENDIAN)
*(*procdir+((*(<P)&0xffffff00)%40))$<setproc.done
#else
#error Byte ordering not defined!
#endif