%option "-nocheck-nodiag-low-nostack-nons"

%include "MOUSE:MOUSE.INC"

@16_FEC000 %writeonly %integer A lights
@16_FE4000 %writeonly %integer B lights


! A lights

%owninteger A = 0

%externalroutine lights set A(%integer what)
   A = what
   A lights = A
%end

%externalroutine lights and A(%integer what)
   A = A & what
   A lights = A
%end

%externalroutine lights or A(%integer what)
   A = A ! what
   A lights = A
%end

%externalroutine lights xor A(%integer what)
   A = A !! what
   A lights = A
%end


! B lights

%owninteger B = 0

%externalroutine lights set B(%integer what)
   B = what
   B lights = B
%end

%externalroutine lights and B(%integer what)
   B = B & what
   B lights = B
%end

%externalroutine lights or B(%integer what)
   B = B ! what
   B lights = B
%end

%externalroutine lights xor B(%integer what)
   B = B !! what
   B lights = B
%end

%end %of %file