.TITLE	STIM	Set System Time
	.IDENT	"V1.1"
	.ENABL	LC
;+
; Index		STIM	Set System Time
;
;
; Usage
;
;	#include <cx.h>
;	#include <timbuf.h>	/* Time param's struct */
;	struct timbuf newtim;	/* New time */
;	struct timbuf oldtim;	/* Old time */
;	word status;		/* Returned DSW */
;
;	status = stim(&newtim, &oldtim);
;
;
; Notes
;
;	Second parameter may be zero if no old time needed.
; [end]
;-
; Edits:
; V1.0 20-Oct-82 RBD	Initial Edit
; V1.1 31-Jan-02 BQT	Changed for I/D space.
;
	.mcall	stim$s

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

	.end