-- 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}
      };

}.