*
*        SUBROUTINE FOR CP/M68K PIP UTILITY
*
         SECTION   9
         XDEF      INPLOC,OUTPLOC,INPD,OUTD
*
INPLOC   EQU       *
         NOP
         RTS
*
OUTPLOC  EQU       *
         NOP
         RTS
*
INPD     EQU       *
         NOP
         RTS
*
OUTD     EQU       *
         NOP
         MOVE.L    (A7)+,A0
         LEA       2(A7),A7
         JMP       (A0)
         END