Trailing-Edge
-
PDP-10 Archives
-
AP-4178E-RM
-
swskit-sources/midnit.lis
There is 1 other file named midnit.lis in the archive. Click here to see a list.
RSX20F/TOPS-10/TOPS-20 TIME OF MACRO M1108 16-JAN-78 20:58
TABLE OF CONTENTS
1- 2 MIDNIT -- TIME OF DAY UPDATE TASK
RSX20F/TOPS-10/TOPS-20 TIME OF MACRO M1108 16-JAN-78 20:58 PAGE 1
1 .TITLE RSX20F/TOPS-10/TOPS-20 TIME OF DAY UPDATE TASK
2 .SBTTL MIDNIT -- TIME OF DAY UPDATE TASK
3
4 .IDENT "V01001"
5
6 ; COPYRIGHT (C) 1975, 1978 BY
7 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
8 ;
9 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
10 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
11 ; OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES THERE-
12 ; OF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.
13 ; NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
14 ;
15 ; THE INFORMATION CONTAINED IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
16 ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
17 ; CORPORATION.
18 ;
19 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
20 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPILED BY DIGITAL.
21
22
23 ;
24 ; MODULE: TIME OF DAY UPDATE TASK
25 ;
26 ; VERSION: V01001
27 ;
28 ; AUTHOR: R. BELANGER
29 ;
30 ; DATE: 03-MAR-77
31 ;
32 ; THIS MODULE CONTAINS:
33 ;
34 ; 1) TIME OF DAY UPDATE TASK CODE
35
36 .MCALL .ENB6,.INH6,EXIT$S,CALL
37 .LIST MEB
RSX20F/TOPS-10/TOPS-20 TIME OF MACRO M1108 16-JAN-78 20:58 PAGE 2
MIDNIT -- TIME OF DAY UPDATE TASK
39 ;+
40 ; MIDNIT -- TIME OF DAY UPDATE TASK
41 ;
42 ; THIS TASK IS REPONSIBLE TO UPDATE THE TIME OF DAY ACROSS MIDNIGHT FOR
43 ; THE RSX20F EXECUTIVE. THIS TASK IS A NON-RESIDENT EXECUTIVE ROUTINE.
44 ;
45 ; THE TIME OF DAY IS UPDATED TO "TOMORROW" AND THEN THE -10 IS REQUESTED
46 ; TO RETURN ITS TIME OF DAY TO THE -11 FOR PURPPOSES OF SYNCHRONIZATION
47 ; ONLY. THE TIME OF DAY RETURNED BY THE -10 WILL ALWAYS BE TREATED AS
48 ; THE VALID TIME OF DAY, REGARDLESS.
49 ;-
50
51 000000 MIDNIT::
52 000000 022767 124277 000000G CMP #^D<30*60*24-1>,.SSM
53 000006 101117 BHI 70$ ; NOT REALLY MIDNITE -- GO AWAY
54 000010 .INH6 ; DISALLOW INTERRUPTS
0