TITLE TIM   GIVES A REAL RESULT OF TIME OF DAY HHMM.
	SUBTTL V.001 J. BURCHFIEL 28 MAY 1969
	ENTRY TIM
	INTERN TIM
	EXTERN TIME
	P=17
; Modified to PUSHJ/POPJ calling convention 11 Oct 1980
; by Paul T. Robinson, Wesleyan Univ. for DECUS conversion to DEC-20

;TIM:	JSA 16,TIME
;	JUMP 2,TMP
tim:	movei	16,[exp tmp]
	pushj	17,time	;FORLIB ROUTINE
	MOVE TMP
	FSC 233
	popj	p,
TMP:	Z
	END