.TITLE	SWST	Switch State
	.IDENT	"V1.1"
	.ENABL	LC
;+
; Index  SWST 	Swtich State	P/OS Specific
;
; Usage
;
;	#include <cx.h>
;       char *base		/* subroutine base vir. add.*/
;       char *addr              /* virtual add. of subroutine */
;	word status;		/* Returned $DSW */
;
;	status = swst(base,addr)
;
; [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		; Only on P/OS
	.mcall	swst$s

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

	.iff

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

	.endc
	.end