Модификатор UNCOOPERATIVE сообщает компилятору, что не надо ставить точки передачи управления Activities.Switch.
## Код:
```
(** Performs a cooperative task switch by suspending the execution of the current activity and resuming the execution of any other activity that is ready to continue. *)
(** This procedure is called by the compiler whenever it detects that the time quantum of the current activity has expired. *)
PROCEDURE Switch-;
```


> -- Info21 писал(а):
> не столько полноценная вытесняющая многозадачность, сколько некие следы её
Разработчик утверждает, что ядро Interrupt-free, т.е. не использует вытесняющую многозадачность.
Но драйверы сидят на прерываниях
## Код:
```
PROCEDURE &Init*;
                BEGIN
                        last.ch := 0X; (*last.key := 0X;*) last.flags := {0..31};
                        Objects.InstallHandler(SELF.HandleInterrupt, Machine.IRQ0+1)
                END Init;
```
