.TITLE	FEAT	Test for Specified System Feature
	.IDENT	"V1.1"
	.ENABL	LC
;+
; Index  FEAT	Test for Specified System Feature	P/OS Specific
;
; Usage
;
;	#include <cx.h>
;	#include <feat.h>	/* Defined feature symbols */
;	word sym;		/* symbol for system feature */
;	word status;		/* Returned $DSW */
;
;	status = feat(sym)
;
; [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

	.if df  POS
	.mcall	feat$s

feat::
	mov	2(sp),r0
	feat$s  r0
	mov	$dsw,r0
	return

	.iff			; Only on P/OS
feat::
	mov	#IE.SDP,r0	; Return "unsupported system service"
        return

	.endc
	.end