%EXTERNALINTEGERFN XIAND(%INTEGERNAME A,B)
      %RESULT=(A&B)&X'0000FFFF'
      %END
%EXTERNALINTEGERFN XIOR(%INTEGERNAME A,B)
      %RESULT=(A!B)&X'0000FFFF'
      %END
%EXTERNALINTEGERFN XIEOR(%INTEGERNAME A,B)
      %RESULT=(A!!B)&X'0000FFFF'
      %END
%EXTERNALINTEGERFN XNOT(%INTEGERNAME A)
      %RESULT=(\A)&X'0000FFFF'
      %END
%EXTERNALINTEGERFN XISHFT(%INTEGERNAME A,B)
      %IF B>0 %THEN %RESULT =(A<<B)&X'0000FFFF'   %C
              %ELSE %RESULT =((A&X'0000FFFF')>>(-B))&X'0000FFFF'
      %END
%ENDOFFILE