DEFINITION MODULE COROUTINES; CONST UnassignedPriority = 0 ; TYPE INTERRUPTSOURCE = CARDINAL ; PROTECTION = [UnassignedPriority..7] ; END COROUTINES.
