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

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