.TITLE	WEEKDAY - returns day of week
	.Ident	/1.0/

;
;	Stuart Renes, Western Electric Co.
;
;
;	On return:
;	Arg contains 0 thru 6, where 0 is WEDNESDAY
;	Weekend days are 3 & 4
;

TIMBUF:	.BLKQ	1		;Space for system time


	.ENTRY	WEEKDAY,0
	$GETTIM_S TIMBUF
	EDIV	#10*1000*1000*60,TIMBUF,TIMBUF,R0 ;Break down to mins
	CLRL	TIMBUF+4	;Clear high result
	DIVL	#60*24,TIMBUF	;Break down to days
	EDIV	#7,TIMBUF,R1,@4(AP)	;Put day offset into arg
	RET			;All done - return!

	.END