-- FILE: nand.adb
-- DATE: 7/98
-- AUTHOR: Sy Wong
-- AIM: Implementation of Nand device

package body NAND is
  procedure update (d: in out device) is
  begin
    d.data_out:= not (d.input1 and d.input2);
  end update;
end NAND;