*DECK OWNDAA
          IDENT  OWN$AA 
*#
* *   OWN$AA - XFER CONTROL TO AN OWNCODE EXIT   PAGE  1
* *   J.J.JANIK                                  DATE  76/08/24 
* 1DC     OWN$AA
* 
* DC      FUNCTION
* 
*         TO TRANSFER CONTROL TO AN OWNCODE EXIT WHEN CALLED BY SYMPL.
* 
* DC      ENTRY CONDITIONS
* 
*         CALLED FROM SYMPL:  OWN$AA (ADDR,P1,P2,...,PN); 
*         WHERE ADDR IS THE ITEM CONTAINING THE ADDRESS TO BE RJED TO,
*         AND P1,P2,PN ARE PARAMETERS TO THE OWNCODE ROUTINE
* 
* DC      EXIT CONDITIONS 
* 
*         OWN$AA STORES ITS RETURN ADDRESS IN ADDR AND JUMPS TO ADDR + 1
*         A1 POINTS TO P1, SIMULATING A CALL FROM SYMPL OF
*                            ADDR(P1,P2,...,PN);
* 
*#
          ENTRY  OWN$AA 
 OWN$AA   JP     *+400000B
          SA2    X1          PICK UP ADDR 
          SA3    OWN$AA 
          SB2    X2 
          BX6    X3 
          SA1    A1+1        BUMP PARAMETER POINTER TO POINT TO P1
          SA6    B2          STORE RETURN ADDRESS IN ADDR 
          JP     B2+1        JUMP TO ADDR + 1 
          END 
