.TITLE	SDIR	Setup Default Directory String
	.IDENT	"V1.1"
	.ENABL	LC
;+
; Index  SDIR 	Setup Default Directory String	P/OS Specific
;
; Usage
;
;	#include <cx.h>
;	char *ens		/* equiv. name buf. address */
;	int enssz	        /* equiv. name size in bytes */
;	word status;		/* Returned $DSW */
;
;	status = sdir(,ens,enssz);
;
; [end]
;-
; Edits:
; V1.0 31-May-84 KH	Initial Creation
; V1.1 31-Jan-02 BQT	Changed for I/D space.
;
	.psect	c$code,i,ro
	.iif df POS Yes=0
	.iif df MICRSX Yes=0

	.if df Yes		; Only on P/OS ans MicroRSX
	.mcall	sdir$s

sdir::
	mov	sp,r0		; ro --> parameter stack frame
	sdir$s  ,2(r0),4(r0)
	mov	$dsw,r0         ; get status word
	return

	.iff			; Not on RSX or MPLUS

sdir::
	mov	#IE.SDR,r0      ; Return "unsupported system service"
	return

	.endc
	.end