.TITLE	SCAA	Specify Command Arrival AST
	.IDENT	"V1.1"
	.ENABL	LC
;+
; Index		SCAA	Specify Command Arrival AST
;
;
; Usage
;
;	#include <cx.h>
;	{typ} astsrv();		/* AST service routine */
;	word status;		/* Returned DSW */
;
;	status = scaa(astsrv);
;
; Notes
;
;	See the documentation on C AST service.
;	'astsrv' = 0 disables the AST.
;	This function is legal only for CLI's.
; [end]
;-
; Edits:
; V1.0 20-Oct-82 RBD	Initial Edit
; V1.1 31-Jan-02 BQT	Changed for I/D space.
;

	.mcall	scaa$s

	.psect	c$code,i,ro
scaa::
	mov	sp,r0
	scaa$s	2(r0)
	mov	$dsw,r0
	return

	.end