gm2-libs/COROUTINES

DEFINITION MODULE FOR "C" COROUTINES ;

CONST
   UnassignedPriority = 0 ;

TYPE
INTERRUPTSOURCE (type)
   INTERRUPTSOURCE = CARDINAL ;
PROTECTION (type)
   PROTECTION = [UnassignedPriority..7] ;

END COROUTINES.