	.TITLE	TIME
	.MCALL	.SCMDF
	.MCALL	.CNFDF
	.MCALL	.GTIM	.PRINT
	.DSABL	GBL
	.GLOBL	INVIEW
	.GLOBL	AREA	ADDR	STR
	.GLOBL	.10	..10
	.GLOBL	CLOCK

	.INCLU	"SCRMAC"

	.SCMDF
	.CNFDF

TIME::	TST	CLOCK
	BEQ	Q
	TSTB	INVIEW
	BNE	Q

	MOV	R0,-(SP)
	MOV	R1,-(SP)
	MOV	R2,-(SP)
	MOV	R3,-(SP)

	MOV	@#SYSPTR,R0
	TST	CONFIG$(R0)
	BPL	RET

	.GTIM	#AREA,#ADDR

	MOV	ADDR,R0
	MOV	ADDR+2,R1

	MOVB	#':,STR+2
	DIV	#50.*60.,R0
	CLR	R2
	MOV	R1,R3
	DIV	#50.,R2
	CMP	R2,SECOND
	BEQ	RET
SECOND	=	. + 2
	MOV	R2,#-1
	BIT	#1,R2
	BEQ	1$
	MOVB	#' ,STR+2

1$:	MOV	R0,R1

	CLR	R0
	DIV	#60.,R0
	MOV	R1,-(SP)
	MOV	R0,R1
	CLR	R0

	DIV	#60.,R0
	MOV	R1,R0

	MOV	#STR,R1
	MOV	#2,R3

	CALL	.10
	ADD	R3,R1
	INC	R1
	MOV	(SP)+,R0
	CALL	..10

	.PUSH	ATTR
	.WATTR	#^B1000
	.WPUT	#STR,#WIDTH-5,#0,#5
	.WATTR

RET:	MOV	(SP)+,R3
	MOV	(SP)+,R2
	MOV	(SP)+,R1
	MOV	(SP)+,R0
Q:	RETURN

	.END
                                                                                                      