*** C linkage routines (Lattice version) for PPIPC Library
***     Pete Goodeve 1989 April 15

    INCLUDE 'IPClink.i'

        csect text


        XDEF  _UseIPCPort
_UseIPCPort:
        GETPARM 1,A0
        IPCVECT  UseIPCPort

        END