-- FILE: invert.adb
-- DATE: 7/98
-- AUTHOR: Sy Wong
-- AIM: Implementation of a invert (complement) device

package body INVERT is
  procedure update (d: in out device) is
  begin
    d.data_out:= not d.data_in; 
  end update;
end INVERT;