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

    INCLUDE 'IPClink.i'

        csect text


        XDEF  _ServeIPCPort
_ServeIPCPort:
        GETPARM 1,A0
        IPCVECT  ServeIPCPort

        END