/
/ Modified l w santon dec 30 - change mov sp,-(sp) to 2 instructions
/ because it doesn't execute the same on all processors!
/
/ Execute directive.
/

	.globl	__dir

/
/ __dir(a, ...);
/ Execute a directive.
/ Points at `a' and uses the block as a
/ dpb. Returns the dsw.
/

__dir:	mov	sp,r0	/ Point at DPB on stack
	mov	r0,-(sp)/ Too bad all pdp-11 don't exec mov sp,-(sp) the same
	add	$2,(sp)
	emt	377		/ Call the system
	mov	_dsw,r0		/ Recover status and
	return			/ return to caller.
