.TITLE	STIM
	.LIST	TTM
	.NLIST	BEX
	.IDENT	/V01/
	.ENABL	LSB
	.MCALL	GTIM$C,EXIT$S,MRKT$S,WTSE$S,QIOW$C
;
;+
;	STIM -- SET RTC TIME
;
;-
;
STIM:
	GTIM$C	TIME
; YOU CAN'T LOAD RTC WITH SECONDS, JUST CLEAR THEM. WAIT UNTIL
; MINUTES TURN ROUND
	TST	TIME+12	;JUST TURNED AROUND ?
	BEQ	1$
	MOV	#60.,R0	;COMPUTE DELAY
	SUB	TIME+12,R0
	MRKT$S	#1,R0,#2
	WTSE$S	#1
	BR	STIM
1$:	MOV	#PRM,R5
	CALL	RTCSET
	EXIT$S
;
PRM:	.WORD	1
	.WORD	TIME
TIME:	.BLKW	8.
	.END	STIM