-- FILE: x_or.adb
-- DATE: 7/98
-- AUTHOR: Sy Wong
-- AIM: Implementation of exclusive or function

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