Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11f-bm_tops20_v7_0_atpch1_19 - autopatch/today.c08
There are 2 other files named today.c08 in the archive. Click here to see a list.
 REP 1/1	;08C1
	; UPD ID= 948 on 4/1/83 at 4:06 PM by NIXON                             
 WIT
	; UPD ID= 1597 on 5/14/84 at 3:55 PM by HOFFMAN                         
 INS 13/1	;08C2
	;REVISION HISTORY
	;
	;NAME	EDIT		COMMENTS

	;V13***************
	;RLF	1123	Don't nativise the TODAY fields, the results are not
	;			quite the same as in 12B
 DEL 9/4	;08C3
	IFN TOPS20,<

	TIME.:	SETO	AC2,		;Get current time
		SETZ	AC4,		;Nothing special
		ODCNV%			;Time
		HRRZ	AC4,AC4		;Get seconds since midnight
		SETZB	AC0,AC1		;Initialize the result
	>

	IFE TOPS20,<
 DEL 27/4	;08C4
	>
 SUM 153134