--  FILE: register.adb
--  DATE: 7/98
--  AUTHOR: SY WONG
--  AIM: implementation of register logic

package body REGISTER is
  procedure update (d: in out device) is
  begin
    if d.clock and then not d.state.clock then
      d.data_out:= d.data_in;
    end if;
    d.state.clock:= d.clock;
  end update;
end REGISTER;