COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		.TITLE	IAUX1C - Aux routines to go with IAUX1B
C00004 ENDMK
C⊗;
	.TITLE	IAUX1C - Aux routines to go with IAUX1B

; Aux routines dealing with Time: GetTime, clrTimeQueue.

	.MCALL	DIR$,MRKT$S,CMKT$S,ASTX$S,GTIM$S

TIMBUF: .BLKW 8.		;Where Get Time request can store current time


;procedure getTime(var curTime: integer); external;
	PROC	GETTIME
	PARAM	CURTIME,ADDRESS
	SAVE	<R0,R2,R3>
	BEGIN
   	GTIM$S	#TIMBUF			;Get current Time
	MOV	#G.TIMI+TIMBUF,R0	
	MOV	(R0)+,R3		;Get minutes
	CLR	R2
	DIV	#5,R2			;Minutes MOD 5
	MUL	#60.,R3			;Convert to seconds
	ADD	(R0)+,R3		;Add in seconds
	MUL	#60,R3			;Convert to ticks
	ADD	(R0),R3			;Add in ticks
	MOV	R3,@CURTIME(SP)		;Store it away in curTime
	ENDPR

;procedure clrTimeQueue; external;	{Cancels old markTime requests}
	PROC	CLRTIMEQUEUE
	BEGIN
	CMKT$S
	ENDPR

.END