%EXTERNALINTEGERFN IAND(%INTEGERNAME A,B)
      %RESULT=A&B
      %END
      %EXTERNALINTEGERFN IOR(%INTEGERNAME A,B)
      %RESULT=A!B
      %END
      %EXTERNALINTEGERFN IEOR(%INTEGERNAME A,B)
      %RESULT=A!!B
      %END
      %EXTERNALINTEGERFN NOT(%INTEGERNAME A)
      %RESULT=\A
      %END
      %EXTERNALINTEGERFN ISHFT(%INTEGERNAME A,B)
      %IF B>0 %THEN %RESULT=A<<B %ELSE %RESULT=A>>(-B)
      %END
      %EXTERNALINTEGERFNSPEC RETURNCODE
      %EXTERNALINTEGERFN SUCESS(%INTEGERNAME DUMMY)
      %RESULT=RETURNCODE
      %END
      %ENDOFFILE