-- File: [Indigo]<Sakura>Dragon>DragonClockImpl.sak
--  7-Mar-82 21:10:05

DIRECTORY
  DragonClock,
  SakuraRT;
  
DragonClockImpl: MONITOR 
  IMPORTS SakuraRT
  EXPORTS DragonClock = {  

ClockGenerator: PUBLIC DEVICE = {
    IN
    OUT ClockA, ClockB: BOOLEAN
    GUARDIAN {}
    CONTROL {
      i: CARDINAL _ 0;
      v: CARDINAL;
      DO
        ClockB _ FALSE;
        ClockA _ TRUE;
        SakuraRT.Delay[50];
        i _ i+1;
	v _ i*50;
	ClockA _ FALSE;
        ClockB _ TRUE;
        SakuraRT.Delay[50];
        i _ i+1;
	v _ i*50;
	ENDLOOP}
      };

}.