.TITLE	TEMPUS		
; JEFFREY KODOSKY	ARL	JUL76
;
; SUBR
; ENTRY:	NO ARGS
; EXIT:		1 ARG		<F> (SYSTEM TIME IN SECONDS)
; ERRORS:	NONE
; CALLS:	TIMER
;		R2ATM
	.GLOBL	TEMPUS,ZTEMPUS,QTIMER,QR2ATM
TEMPUS:	CLR	-(SP)	;"START" TIME FOR TIMER=0
	CLR	-(SP)
	QTIMER
	QR2ATM
	.WORD	0
ZTEMPUS=.-TEMPUS
	.END