.TITLE	TIMER		
; JEFFREY KODOSKY	ARL	NOV75
;
; UTILITY:	COMPUTE ELAPSED TIME IN SECONDS
; ENTRY:	1 ARG (SP)	2-WD START TIME IN TICS (HI @SP)
; EXIT:		1 ARG (SP)	FLOATING POINT ELAPSED TIME
; ERRORS:	NONE
; CALLS:	.GTIM, GET SYSTEM TIME
;		IDR, CONVERT DOUBLE INTEGER TO REAL
;		MLR, MULTIPLY REALS
; R5 PRESERVED
	.GLOBL	TIMER,AREA,QIDR,QMLR
	.MCALL	.GTIM
TIMER:	.GTIM	#AREA,#AREA+10
	NEG	2(SP)	;NEGATE START TIME
	ADC	@SP
	NEG	@SP
	ADD	AREA+12,2(SP)	;ADD PRESENT TIME
	ADC	@SP
	ADD	AREA+10,@SP
	QIDR		;CONVERT TO FLOATING POINT
	MOV	#TICS+4,R0	;CONVERT FROM TICS TO SECONDS
	MOV	-(R0),-(SP)
	MOV	-(R0),-(SP)
	QMLR
	.WORD	0
TICS:	.FLT2	.01666666
	.END