UNIT test;

  INTERFACE

    CONST
      trap = $A0;

    PROCEDURE proc1;
      INLINE 1, 2, 3, 4, 5, 6;

    FUNCTION funct1(x: integer): integer;
      INLINE $A021, trap * $100 + $22, $FFFF, $8000, - 1, 0;

    VAR
      x, v: integer;

  IMPLEMENTATION

    PROCEDURE q;
      INLINE $0A21;

    PROCEDURE p;

      BEGIN
        proc1;
        v := funct1(x);
        q;
      END;
END.

