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