* KLEENIX_ID @(#)shmem.s	26.1 84/07/06
* C library -- shmget,shmat,shmdt,shmctl
		
	globl	__cerror

* nshmget = shmget(key, size, flag);
		
	globl	_shmget
		
SHMGET	equ	77	
		
_shmget
	move.l	#SHMGET,d0
	trap	#0
	jcc	noerror
	jmp	__cerror


* nshmat = shmat(id, address, flag);
		
	globl	_shmat
		
SHMAT	equ	78
		
_shmat
	move.l	#SHMAT,d0
	trap	#0
	jcc	noerror
	jmp	__cerror


* nshmdt = shmdt(address);
		
	globl	_shmdt

SHMDT	equ	85
		
_shmdt
	move.l	#SHMDT,d0
	trap	#0
	jcc	noerror
	jmp	__cerror


* nshmctl = shmctl(id, address, flag);
		
	globl	_shmctl

SHMCTL	equ	76

_shmctl
	move.l	#SHMCTL,d0
	trap	#0
	jcc	noerror
	jmp	__cerror


noerror		
	rts