.TITLE	GDIR	Get Default Directory
	.IDENT	"V1.1"
	.ENABL	LC
;+
; Index  GDIR 	Get Default Directory	P/OS Specific
;
; Usage
;
;	#include <cx.h>
;	word ens		/* equiv. name string buf. add.*/
;	word enssz		/* equiv. name string size */
;	word rsize		/* buf. add. for returned ENS */
;	word status;		/* Returned $DSW */
;
;	status = gdir(,ens,enssz,rsize)
;
; [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 MICRSX Yes=1
	.iif df POS    Yes=1

	.if df  Yes
	.mcall	gdir$s

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

	.iff

gdir::
	mov	#IE.SDP,r0	; Return "unsupported system service"
	return

	.endc
	.end