-- NewPadsImpl.sak
-- last edited by Suzuki: 20-Jan-82 16:35:48

DIRECTORY
  SakuraRT: TYPE, 
  NewPads: TYPE;

NewPadsImpl: MONITOR
  IMPORTS SakuraRT
  EXPORTS NewPads
  
  = {
  
  PadsFunc: PUBLIC DEVICE = {
    IN Clock, Enable: BOOLEAN, A, B: INTEGER
    OUT Equal: BOOLEAN      
    GUARDIAN {}
    FILE newpads.sim
    REPRESENTATION
      A00, A01, A02, A03, A04, A05, A06, A07 ALIAS A,
      B00, B01, B02, B03, B04, B05, B06, B07 ALIAS B,
      AEnable, BEnable ALIAS Enable,
      AEqual, BEqual ALIAS Equal
    CONTROL
      DO
        WHEN Clock CHANGE: NULL;
	SakuraRT.Delay[10];
        STEP;
	SakuraRT.Delay[5];
	ENDLOOP
    };
  
  NULL;

}.