.TITLE		DISPLAY TIME
	.MCALL	ALUN$C,QIOW$S,GTIM$S,EXIT$S
	.MCALL	WSIG$S,QIO$S,WTSE$S
START:	ALUN$C	1,CO,0
	GTIM$S	#TIMER		;GET TIME PARAMETERS
	MOV	#MESSG,R0	;START OF OUTPUT AREA FOR CONVERTED DATE
	MOV	#TIMER,R1	;ADDRESS OF DATE INFORMATION
	CALL	$DAT		;CONVERT DATE TO ASCII
	MOV	#MESSG+11.,R0	;START OF OUTPUT AREA FOR CONVERTED TIME
	MOV	#2,R2		;CODE TO CONVERT AS HH:MM
	CALL	$TIM		;CONVERT TIME TO ASCII
666$:	QIO$S	#IO.WAL!TF.WBT,#1,#1,,,,<#BUFFER,#L.MESSG>
	BCC 777$
	CMP  $DSW,#IE.UPN	;DYMANIC SPACE AVAILABLE?
	BNE	10$		;YES
	WSIG$S
	BR  666$		;RETRY
777$:
	WTSE$S	#1
	EXIT$S
 
10$:
	IOT
 
;============================================================
;       D A T A   A R E A
;============================================================
	.EVEN
TIMER:	.BLKW	8.
BUFFER:	
MESSG:	.ASCII	/                /
	.ASCII	<15><12>
	.ASCII	/>/
L.MESSG=.-BUFFER
	.END	START