Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap1_198111 - decus/20-0013/tim.mac
There are 2 other files named tim.mac in the archive. Click here to see a list.
	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