Google
 

Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_FS_1_19910112 - kcc-6/lib/usys/pause.c
There are 5 other files named pause.c in the archive. Click here to see a list.
/* PAUSE - stop until signal.
**
**	(c) Copyright Ken Harrenstien 1989
**		for all changes after v.3, 30-Aug-1987
**	(c) Copyright Ken Harrenstien, SRI International 1987
*/

#include <c-env.h>

#if SYS_T20+SYS_10X+SYS_T10+SYS_CSI+SYS_WTS+SYS_ITS	/* Systems supported for */

#include <sys/usysig.h>
#include <errno.h>	/* For EINTR */

#if SYS_T20+SYS_10X
#include <jsys.h>
#endif

#if SYS_WTS
#include <muuo.h>
#endif

int
pause()
{
#if SYS_T20+SYS_10X
    int acs[5];
    jsys(WAIT|JSYS_OKINT, acs);

#elif SYS_WTS
    WTSUUO("IWAIT");

#elif SYS_T10+SYS_CSI
    asm("	SETZ 1,\n	HIBER 1,\n");

#elif SYS_ITS
    asm("	SKIPA\n JFCL\n .HANG\n");
#endif

    errno = EINTR;
    return -1;
}

#endif /* T20+10X+T10+CSI+WAITS+ITS */