Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/srlgtm.list
There are no other files named srlgtm.list in the archive.
SRLGTM MACRO M1110 13-OCT-79 11:18
TABLE OF CONTENTS
7- 43 SRLGTM
SRLGTM MACRO M1110 13-OCT-79 11:18 PAGE 3
1 .TITLE SRLGTM
2 .IDENT /V01.03/
3 ;
4 ; COPYRIGHT (C) 1978 BY
5 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
6 ;
7 ;
8 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
9 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
10 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
11 ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
12 ; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
13 ; TRANSFERRED.
14 ;
15 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
16 ; 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 SUPPLIED BY DIGITAL.
21 ;
22 ;
23 ; MODULE DESCRIPTION:
24 ;
25 ; NCU SERVICE MODULE TO INSERT THE TIME IN A LOG DATA MESSAGE
26 ;
27 ;
28 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
29 ;
30 ; IDENT HISTORY:
31 ;
32 ; 1.00 10-FEB-78
33 ; VERSION 2.0 RELEASE
34 ; 1.01 26-FEB-79
35 ; FIX UPTIME/REALTIME DETERMINATION (LOOK FOR ZERO MONTH).
36 ; 1.02 11-APR-79 ALAN D. PECKHAM
37 ; WHOOPS - MONTH NOT ZERO - ASSUME REAL TIME NOT SET IF YEAR = '74
38 ; 1.03 30-MAY-79 ALAN D. PECKHAM
39 ; WE CAN'T WIN !!! - AM CHANGING THE EXEC TO HAVE ZERO YEAR,
40 ; SO A ZERO YEAR WILL INDICATE REAL TIME NOT SET.
41 ;
SRLGTM MACRO M1110 13-OCT-79 11:18 PAGE 4
SRLGTM
43 .SBTTL SRLGTM
44 ;
45 ;======================================================================;
46 ;++
47 ; +-------------------------------------------------+
48 ; I I
49 ; I S R L G T M I
50 ; I - - - - - - I
51 ; I I
52 ; +-------------------------------------------------+
53 ;
54 ; FUNCTION:
55 ;
56 ; INSERT TIME INTO LOG DATA MESSAGE
57 ;
58 ; INPUT:
59 ;
60 ; R0 - ADDRESS OF BLOCK CONTAINING HIGHER RESOLUTION OR ZERO
61 ; R2 - ADDRESS OF BUFFER TO RECEIVE TIME DATA
62 ;
63 ; OUTPUT:
64 ;
65 ;
66 ; REQUIREMENTS:
67 ;
68 ; EVENT SYMBOLS:
69 ;
70 ;
71 ; CONTROL BLOCK SYMBOLS:
72 ;
73 ;
74 ;--
75 ;======================================================================;
76 ;
77 ; EXTERNAL MACROS
78 ;
79 .MCALL GTIM$,DIR$
80 ;
81 ; READ/WRITE DATA
82 ;
83 000000 GETTIM: GTIM$ TIME
84 000004 TIME: .BLKW 0 ;BLOCK OF 8 WORDS
85 000004 YEAR: .BLKW 1 ;YEAR SINCE 1900
86 000006 MONTH: .BLKW 1 ;MONTH (1-12)
87 000010 DAY: .BLKW 1 ;DAY (1-31)
88 000012 HOUR: .BLKW 1 ;HOUR (0-23)
89 000014 MINUTE: .BLKW 1 ;MINUTE (0-59)
90 000016 SECOND: .BLKW 1 ;SECOND (0-59)
91 000020 TICK: .BLKW 1 ;TICK OF SECOND (CLOCK DEPENDENT)
92 000022 TICKS: .BLKW 1 ;TICKS PER SECOND (CLOCK DEPENDENT)
93 ;
94 ; GLOBAL PROCEDURE
95 ;
96 000024 PROC SRLGTM
97 000024 DIR$ #GETTIM
98 000032 IF ; MORE RESOLUTION PROVIDED
99 000032 FALSE CLEAR R0
SRLGTM MACRO M1110 13-OCT-79 11:18 PAGE 4-1
SRLGTM
100 000036 THEN
101 000036 IF ; A MONTH HAS CHANGED
102 000036 FALSEB HIS DAY,(R0)
103 000044 THEN
104 000044 IF ; MONTH UNDERFLOW
105 000044 005367 177736 DEC MONTH ;BACK UP A MONTH.
106 000050 FALSE SET
107 000052 THEN
108 000052 005367 177726 DEC YEAR ;BACK UP A YEAR
109 000056 012767 000014 177722 MOV #12.,MONTH ;SET TO DECEMBER.
110 000064 ENDIF
111 000064 ENDIF
112 000064 112067 177720 MOVB (R0)+,DAY ;COPY THE DAY
113 000070 112067 177716 MOVB (R0)+,HOUR ;COPY THE HOUR
114 000074 112067 177714 MOVB (R0)+,MINUTE ;COPY THE MINUTE
115 000100 111067 177712 MOVB (R0),SECOND ;COPY THE SECOND
116 000104 ENDIF
117 000104 016700 177704 MOV MINUTE,R0 ;GET MINUTES
118 000110 070027 000074 MUL #60.,R0 ;CONVERT TO SECONDS
119 000114 060167 177676 ADD R1,SECOND
120 000120 005500 ADC R0
121 000122 010067 177666 MOV R0,MINUTE
122 000126 IF ; WE HAVE BEEN UP FOR HOURS
123 000126 016700 177660 MOV HOUR,R0
124 000132 FALSE CLEAR
125 000134 THEN
126 000134 070027 007020 MUL #60.*60.,R0 ;CONVERT TO SECONDS
127 000140 060167 177652 ADD R1,SECOND ;AND ADD
128 000144 005500 ADC R0
129 000146 060067 177642 ADD R0,MINUTE ;TO TOTAL.
130 000152 ENDIF
131 000152 IF ; DATE AND TIME SEEM CORRECT
132 000152 FALSE CLEAR YEAR ;IF THIS IS A GOOD YEAR
133 000160 THEN ; INSERT AS TIME AND DATE
134 000160 062767 003554 177616 ADD #1900.,YEAR ;THEN MAKE YEAR PROPER.
135 000166 112722 000002 MOVB #2.,(R2)+ ;TIME DATA TYPE
136 000172 016700 177616 MOV MINUTE,R0 ;PICK UP SECONDS SINCE MIDNIGHT
137 000176 016701 177614 MOV SECOND,R1
138 000202 WHILE ; FIELD STILL NEEDS TO BE EXTENDED
139 000202 110122 MOVB R1,(R2)+ ;INSERT NEXT BYTE
140 000204 073027 177771 ASHC #-7,R0 ;AND SHIFT OUT.
141 000210 FALSE CLEAR
142 000212 DO
143 000212 152762 000200 177777 BISB #200,-1(R2) ;INDICATE LAST BYTE IS EXTENDED.
144 000220 ENDWHILE
145 000222 112722 000003 MOVB #3.,(R2)+ ;DATE DATA TYPE
146 000226 116722 177556 MOVB DAY,(R2)+ ;DAY OF MONTH
147 000232 116722 177550 MOVB MONTH,(R2)+ ;MONTH OF YEAR
148 000236 116722 177542 MOVB YEAR,(R2)+ ;AND YEAR.
149 000242 116722 177537 MOVB YEAR+1,(R2)+
150 000246 ELSE ; USE IT AS UPTIME
151 000250 IF ; WE HAVE BEEN UP FOR DAYS
152 000250 016700 177534 MOV DAY,R0
153 000254 FALSE CLEAR
154 000256 THEN
155 000256 070027 050600 MUL #24.*60.*60.,R0 ;CONVERT TO SECONDS
156 000262 060167 177530 ADD R1,SECOND ;AND ADD
SRLGTM MACRO M1110 13-OCT-79 11:18 PAGE 4-2
SRLGTM
157 000266 005500 ADC R0
158 000270 060067 177520 ADD R0,MINUTE ;TO TOTAL.
159 000274 ENDIF
160 000274 112722 000004 MOVB #4.,(R2)+ ;UPTIME DATA TYPE
161 000300 016700 177510 MOV MINUTE,R0 ;PICK UP UPTIME
162 000304 016701 177506 MOV SECOND,R1
163 000310 WHILE ; FIELD STILL NEEDS TO BE EXTENDED
164 000310 110122 MOVB R1,(R2)+ ;INSERT NEXT BYTE
165 000312 073027 177771 ASHC #-7,R0 ;AND SHIFT OUT.
166 000316 FALSE CLEAR
167 000320 DO
168 000320 152762 000200 177777 BISB #200,-1(R2) ;INDICATE LAST BYTE IS EXTENDED.
169 000326 ENDWHILE
170 000330 ENDIF
171 000330 ENDPROC
172 000001 .END
SRLGTM MACRO M1110 13-OCT-79 11:18 PAGE 4-3
SYMBOL TABLE
A$$CHK= 000000 F$ALBF= 000001 F$ORLU= 000000 F$300 = 000012 M$$OVR= 000000
A$$CPS= 000000 F$ALCB= 000001 F$OTLU= 000001 F$50 = 000002 NO = 000000
A$$TRP= 000000 F$CB = 000017 F$RCBK= 000002 F$550 = 000002 N$$USR= 000001
C$$CKP= 000000 F$CLCL= 000001 F$RCEV= 000001 GETTIM 000000R P$$P45= 000000
C$$ORE= 000400 F$CLCO= 000000 F$RCIN= 000000 G$$TPP= 000000 R$$DER= 000000
C$$RSH= 177564 F$CLFL= 000000 F$RCMA= 000000 G$$TSS= 000000 R$$K11= 000001
DAY 000010R F$CLLK= 000006 F$RCMS= 000002 G$$TTK= 000000 R$$SND= 000000
D$$BUG= 177514 F$CLLN= 000002 F$RDBK= 000000 G.TIBA= 000002 R$$11M= 000000
D$$ISK= 000000 F$DPOS= 000001 F$RDCM= 000000 G.TICP= 000016 SECOND 000016R
D$$L11= 000001 F$DUMP= 000000 F$RDIN= 000001 G.TICT= 000014 SRLGTM 000024RG
FL$BOO= 000001 F$EVNT= 000001 F$RDIS= 000012 G.TIDA= 000004 S$$WRG= 000000
FL$DUM= 000001 F$EXAM= 000001 F$RDRC= 000000 G.TIHR= 000006 S$$YSZ= 001600
FL$LOA= 000001 F$EXHO= 000000 F$RECO= 000001 G.TIMI= 000010 TICK 000020R
FL$LOO= 000001 F$GTCM= 000001 F$RLBF= 000001 G.TIMO= 000002 TICKS 000022R
FR$LCC= 000001 F$INCM= 000000 F$RLCB= 000001 G.TISC= 000012 TIME 000004R
FR$LCS= 000001 F$INLU= 000001 F$STBK= 000000 G.TIYR= 000000 T$$KMG= 000000
FR$LNC= 000001 F$IRLU= 000000 F$STPR= 000001 HOUR 000012R T$$MIN= 000000
FR$LNL= 000001 F$LKLU= 000010 F$STPS= 000006 I$$RAR= 000000 V$$CTR= 001000
FR$LNS= 000001 F$LNLU= 000002 F$TEST= 000001 I$$RDN= 000000 X$$DBT= 000000
FR$RMC= 000001 F$LNSR= 000001 F$TRAC= 000000 K$$CNT= 177546 YEAR 000004R
FR$RML= 000001 F$LOAD= 000000 F$TRBK= 000001 K$$CSR= 177546 YES = 000001
FR$RMS= 000001 F$LOGD= 000001 F$TRIG= 000001 K$$LDC= 000000 $$CSTA= 000000
FS$HOS= 000001 F$LOOP= 000001 F$TRIN= 000000 K$$TPS= 000074 $$PRST= 000017
FS$INT= 000000 F$NTCM= 000000 F$TRMA= 000000 LD$LP = 000000 $$STIX= 000777
FS$LLP= 000001 F$OPCL= 000001 F$TRMS= 000002 L$$ASG= 000000 $$STNM= 000000
FS$LOF= 000001 F$OPCO= 000000 F$WRBK= 000000 L$$DRV= 000000 $$S772= 000077
FS$LOG= 000001 F$OPIN= 000000 F$WRCL= 000001 L$$P11= 000001 $$S773= 000011
FS$LST= 000001 F$OPIR= 000000 F$WRCM= 000000 L$$11R= 000000 $$S774= 000011
FS$NET= 000001 F$OPLK= 000005 F$WRRC= 000000 MINUTE 000014R $$S775= 000014
FS$NST= 000000 F$OPLN= 000002 F$ZERO= 000001 MONTH 000006R $$S776= 000000
FS$PAS= 000001 F$OPLO= 000000 F$ZRCN= 000001 M$$CRB= 000124 $$S777= 000000
FT$CNS= 000000 F$OPOR= 000000 F$$LVL= 000001 M$$CRX= 000000 $$TRNM= 000000
FT$NOD= 000001 F$OPOT= 000000 F$150 = 000002 M$$FCS= 000000 $$$OST= 000020
FT$TSK= 000001
. ABS. 000000 000
000332 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 8673 WORDS ( 34 PAGES)
DYNAMIC MEMORY: 10060 WORDS ( 38 PAGES)
ELAPSED TIME: 00:00:39
SRLGTM,[135,30]SRLGTM/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,SRLGTM
SRLGTM CREATED BY MACRO ON 13-OCT-79 AT 11:18 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
DAY 000010 R #4-87 4-102 *4-112 4-146 4-152
F$TRAC = 000000 4-96 4-96 4-171 4-171
GETTIM 000000 R #4-83 4-97
G.TIBA = 000002 4-83
HOUR 000012 R #4-88 *4-113 4-123
I$$AS = ****** 4-96
MINUTE 000014 R #4-89 *4-114 4-117 *4-121 *4-129 4-136 *4-158 4-161
MONTH 000006 R #4-86 *4-105 *4-109 4-147
R$$11D = ****** 4-96
R$$11M = 000000 4-96
SECOND 000016 R #4-90 *4-115 *4-119 *4-127 4-137 *4-156 4-162
SRLGTM 000024 RG #4-96
TICK 000020 R #4-91
TICKS 000022 R #4-92
TIME 000004 R 4-83 #4-84
YEAR 000004 R #4-85 *4-108 4-132 *4-134 4-148 4-149
$$CSTA = 000000 #4-96
$$PRST = 000017 #4-96 4-98 #4-98 4-101 #4-101 4-104 #4-104 *4-122 #4-122
4-131 #4-131 *4-138 #4-138 4-151 #4-151 *4-163 #4-163
$$SLST = ****** 4-96 4-99 4-99 4-100 4-102 4-102 4-103 4-106 4-107
4-110 4-111 4-116 4-124 4-125 4-130 4-132 4-132 4-133
4-138 4-141 4-142 4-144 4-144 4-150 4-150 4-153 4-154
4-159 4-163 4-166 4-167 4-169 4-169 4-170 4-171
$$STIX = 000777 #4-96 4-98 4-98 #4-98 4-98 4-98 #4-98 4-101 4-101
#4-101 4-101 4-101 #4-101 4-104 4-104 #4-104 4-104 4-104
#4-104 4-110 #4-110 4-110 4-110 #4-110 4-110 4-111 #4-111
4-111 4-111 #4-111 4-111 4-116 #4-116 4-116 4-116 #4-116
4-116 *4-122 *4-122 #4-122 *4-122 *4-122 #4-122 4-130 #4-130
4-130 4-130 #4-130 4-130 4-131 4-131 #4-131 4-131 4-131
#4-131 *4-138 *4-138 #4-138 *4-138 *4-138 #4-138 4-144 #4-144
4-144 4-144 #4-144 4-144 4-151 4-151 #4-151 4-151 4-151
#4-151 4-159 #4-159 4-159 4-159 #4-159 4-159 *4-163 *4-163
#4-163 *4-163 *4-163 #4-163 4-169 #4-169 4-169 4-169 #4-169
4-169 4-170 #4-170 4-170 4-170 #4-170 4-170
$$STNM = 000000 #4-96 4-98 #4-98 4-98 4-99 4-100 4-101 #4-101 4-101
4-102 4-103 4-104 #4-104 4-104 4-106 4-107 *4-110 #4-110
4-111 #4-111 *4-116 #4-116 *4-122 #4-122 *4-122 4-124 4-125
4-130 #4-130 4-131 #4-131 4-131 4-132 4-133 *4-138 #4-138
*4-138 *4-138 4-141 4-142 *4-144 4-144 #4-144 *4-150 4-150
4-151 #4-151 4-151 4-153 4-154 4-159 #4-159 *4-163 #4-163
*4-163 *4-163 4-166 4-167 *4-169 4-169 #4-169 4-170 #4-170
$$S772 = 000077 #4-104 4-110
$$S773 = 000011 #4-104 4-110
$$S774 = 000011 #4-101 4-111 #4-138 4-144 #4-151 4-159 #4-163 4-169
$$S775 = 000014 #4-101 4-111 #4-138 4-144 #4-151 4-159 #4-163 4-169
$$S776 = 000000 #4-98 4-116 #4-122 4-130 #4-131 4-170
$$S777 = 000000 #4-98 4-116 #4-122 4-130 #4-131 4-170
$$TRNM = 000000 #4-96 4-98 #4-98 4-99 4-100 4-101 #4-101 4-102 4-103
4-104 #4-104 4-106 4-107 *4-110 #4-110 4-111 #4-111 *4-116
#4-116 *4-122 #4-122 4-124 4-125 4-130 #4-130 4-131 #4-131
4-132 4-133 *4-138 #4-138 4-141 4-142 4-144 #4-144 4-150
#4-150 4-151 #4-151 4-153 4-154 4-159 #4-159 *4-163 #4-163
SRLGTM CREATED BY MACRO ON 13-OCT-79 AT 11:18 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
4-166 4-167 4-169 #4-169 4-170 #4-170
$$$GLB = ****** 4-83
SRLGTM CREATED BY MACRO ON 13-OCT-79 AT 11:18 PAGE 3
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CASE #4-96
DIR$ #4-79 4-97
DO #4-96 4-142 4-167
ELSE #4-96 4-150
ENDCAS #4-96
ENDIF #4-96 #4-110 #4-111 #4-116 #4-130 #4-144 #4-159 #4-169 #4-170
ENDPRO #4-96 4-171
ENDWHI #4-96 #4-144 #4-169
FALSE #4-96 4-99 4-106 4-124 4-132 4-141 4-153 4-166
FALSEB #4-96 #4-102
GTIM$ #4-79 4-83
IF #4-96 #4-98 #4-101 #4-104 #4-122 #4-131 #4-138 #4-151 #4-163
JMPPRO #4-96
OFF$ #4-83
ONCASE #4-96
PROC 4-96
PROCLC #4-96
SWSTK$ #4-96
THEN #4-96 #4-100 #4-103 #4-107 #4-125 #4-133 #4-142 #4-154 #4-167
TRUE #4-96
TRUEB #4-96
WHILE #4-96 4-138 4-163
$$BGND #4-96 4-99 4-102 4-106 4-124 4-132 4-141 4-153 4-166
$$BGNN #4-96 4-99 4-102 4-106 4-124 4-132 4-141 4-144 4-150 4-153
4-166 4-169
$$ELSE #4-96 4-150
$$GEN1 #4-96 4-96 4-99 4-99 4-100 4-102 4-103 4-106 4-107 4-110
4-111 4-116 4-124 4-125 4-130 4-132 4-132 4-133 4-138 4-141
4-142 4-144 4-144 4-150 4-150 4-153 4-154 4-159 4-163 4-166
4-167 4-169 4-169 4-170 4-171
$$GEN2 #4-96 4-102
$$GNAB #4-96 #4-102
$$GNBT #4-96 #4-99 #4-106 #4-124 #4-132 #4-141 #4-153 #4-166
$$GNCM #4-96 4-99 4-102 4-106 4-124 4-132 4-141 4-153 4-166
$$INMC #4-96 #4-96
$$INSY #4-96 #4-96
$$LAB #4-96 #4-100 #4-103 #4-107 #4-110 #4-111 #4-116 #4-125 #4-130 #4-133
#4-138 #4-142 #4-144 #4-150 #4-154 #4-159 #4-163 #4-167 #4-169 #4-170
$$POP #4-96 #4-110 #4-110 #4-111 #4-111 #4-116 #4-116 #4-130 #4-130 #4-144
#4-144 #4-159 #4-159 #4-169 #4-169 #4-170 #4-170
$$POPI #4-96 #4-110 #4-110 #4-111 #4-111 #4-116 #4-116 #4-130 #4-130 #4-144
#4-144 #4-159 #4-159 #4-169 #4-169 #4-170 #4-170
$$PUSH #4-96 #4-98 #4-98 #4-101 #4-101 #4-104 #4-104 #4-122 #4-122 #4-131
#4-131 #4-138 #4-138 #4-151 #4-151 #4-163 #4-163
$$STSM #4-96 #4-98 #4-98 #4-101 #4-101 #4-104 #4-104 #4-122 #4-122 #4-131
#4-131 #4-138 #4-138 #4-151 #4-151 #4-163 #4-163
$$SYS #4-96
$$TRCE #4-96 4-96 4-171