Trailing-Edge - PDP-10 Archives - steco_19840320_1er_E35 - 10,5676/teco/macros/time.tco
There is 1 other file named time.tco in the archive. Click here to see a list.
!;TIME -- Returns the time of day in Q0 in the form HH:MM:SS	!
	[1 [2 [3 [4			!;Save Q-regs!
	EOU4 3EO			!;Save and set EO level!
	.U1 ZJ				!;Save pointer!
	0U3				!;Set counter!
	3<^O61+Q3,^O11^GU2 Q2-10"L I0'	!;Get parts of time!
	  Q2\ I: %3>			!;Insert parts, with a colon!
	-D				!;Take out trailing colon!
	.-8,.X0 .-8,.K			!;Store string, and get rid of it!
	Q1J Q4EO			!;Restore pointer, EO level!
	]4 ]3 ]2 ]1			!;Restore Q-regs!