Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/cesch.list
There are no other files named cesch.list in the archive.
CESCH MACRO M1110 13-OCT-79 08:09
TABLE OF CONTENTS
4- 56 $INTSX - COMM EXEC DEVICE INTERRUPT SAVE ROUTINE
5- 112 $INTX7 - LEVEL 7 INTERRUPT EXIT
6- 139 $SQSRV - GENERALIZED SOFTWARE LEVEL SERVICE
7- 224 $PDSPL - SET UP A PROCESS LEVEL AND DISPATCH TO IT
8- 264 $PDDSP - DISPATCH TO A PROCESS
9- 317 $PDQUE - QUEUE A CCB (CHAIN) TO A LIST AND SCHEDULE PROCESS
CESCH MACRO M1110 13-OCT-79 08:09 PAGE 3
1 .TITLE CESCH
2 .IDENT /V01.05/
3
4 ;
5 ; COPYRIGHT (C) 1978 BY
6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
7 ;
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
11 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
12 ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
13 ; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
14 ; TRANSFERRED.
15 ;
16 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
17 ; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
18 ; CORPORATION.
19 ;
20 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
21 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
22 ;
23 ;
24 ; MODULE DESCRIPTION
25 ;
26 ; CEX PROCESS SCHEDULING ROUTINES
27 ;
28 ;
29 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
30 ;
31 ; IDENT HISTORY:
32 ;
33 ; 1.00 10-FEB-78
34 ; VERSION 2.0 RELEASE
35 ;
36 ; 1.01 27-MAR-79 SCOTT G. ROBINSON
37 ; 1.02 28-MAR-79 SCOTT G. ROBINSON
38 ; ADD RANGE CHECKING CODE TO $PDQUE
39 ; 1.03 11-APR-79 ALAN D. PECKHAM
40 ; ADD SUPPORT FOR MAPPED DLC LINE TABLES
41 ; 1.04 29-MAY-79 ALAN D. PECKHAM
42 ; AVOID CHECKING STATION NUMBERS IN $PDQU1
43 ; 1.05 6-JUN-79 ALAN D. PECKHAM
44 ; BOY, DID I BLOW THAT LAST FIX !
45
46 ;
47 ; MACRO LIBRARY CALLS
48 ;
49 .MCALL INHIB$,ENABL$
50 .MCALL CCBDF$,HWDDF$,PDVDF$
51 000000 CCBDF$ ; DEFINE THE CCB OFFSETS
52 000000 PDVDF$ ; DEFINE THE PDV OFFSETS
53 000000 HWDDF$ ; DEFINE THE HARDWARE REGISTERS
54
CESCH MACRO M1110 13-OCT-79 08:09 PAGE 4
$INTSX - COMM EXEC DEVICE INTERRUPT SAVE ROUTINE
56 .SBTTL $INTSX - COMM EXEC DEVICE INTERRUPT SAVE ROUTINE
57
58 ;+
59 ; **-$INTSX-COMM EXEC DEVICE INTERRUPT SAVE ROUTINE
60 ;
61 ; CALLED BY: JSR R4,$INTSX
62 ;
63 ; INPUTS:
64 ; R5 = POINTER TO PRIORITY SPECIFICATION IN DEVICE LINE TABLE
65 ;
66 ; OUTPUTS:
67 ; THE SYSTEM STACK DEPTH IS DECREMENTED, AND IF ZERO A SWITCH
68 ; TO THE SYSTEM STACK IS EFFECTED.
69 ;
70 ; R5 = POINTER TO WORD FOLLOWING DEVICE PRIORITY
71 ;-
72
73 000000 005367 000000G $INTSX::DEC $STKDP ;;; DECREMENT STACK DEPTH INDICATOR
74 000004 001002 BNE 10$ ;;; IF NE, ALREADY ON SYSTEM STACK
75 000006 010677 000000G MOV SP,@$HEADR ;;; SAVE CURRENT STACK POINTER
76
77 .IF NDF M$$MGE
78 MOV #$STACK,SP ;;; SET NEW STACK POINTER
79 .ENDC
80
81 000012 10$:
82 .IF DF L$$SI1
83 TST (R5)+ ;;; POINT PAST DEVICE PRIORITY COMPLEMENT
84
85 .IFF
86 000012 042567 177776 BIC (R5)+,PS ;; LOWER PRIORITY TO DEVICE LEVEL
87
88 .ENDC
89
90 000016 CALL @R4 ;; CALL CALLER BACK
91
92 .IF DF M$$MGE
93 000020 MTPS #PR7 ;; INHIBIT INTERRUPTS
94 000026 016667 000004 172352 MOV 4(SP),KISAR5 ;; RESTORE PREVIOUS APR CONTENTS
95 ;; CURRENT CONTENTS OF STACK:
96 ;; R4 (SAVED BY JSR R4,$INTSX IN DDM)
97 ;; R5 (SAVED BY JSR R5,'ISR' IN LINE TABLE)
98 ;; KISAR5 (SAVED IN LINE TABLE)
99 ;; PS (SAVED BY INTERRUPT)
100 ;; PC (SAVED BY INTERRUPT)
101 000034 016666 000002 000004 MOV 2(SP),4(SP) ;; MOVE SAVED R5 DOWN ON STACK
102 000042 012616 MOV (SP)+,(SP) ;; MOVE SAVED R4 DOWN ON STACK
103 ;; CURRENT CONTENTS OF STACK (NECESSARY FOR $INTXX)
104 ;; R4 (SAVED BY JSR R4,$INTSX IN DDM)
105 ;; R5 (SAVED BY JSR R5,'ISR' IN LINE TABLE)
106 ;; PS (SAVED BY INTERRUPT)
107 ;; PC (SAVED BY INTERRUPT)
108 .ENDC
109
110 000044 000167 000000G JMP $INTX1 ;; RETURN THROUGH RSX INTERRUPT EXIT ;SJP0005
CESCH MACRO M1110 13-OCT-79 08:09 PAGE 5
$INTX7 - LEVEL 7 INTERRUPT EXIT
112 .SBTTL $INTX7 - LEVEL 7 INTERRUPT EXIT
113
114 ;+
115 ;**- $INTX7 - LEVEL 7 INTERRUPT EXIT
116 ;
117 ; THIS ROUTINE IS USED BY DRIVER ISRS THAT RUN AT PRIORITY LEVEL
118 ; 7 DURING SOME PORTION OF INTERRUPT SERVICE. DRIVERS ISRS MAY
119 ; ONLY PUSH ONE ITEM ON THE STACK DURING LEVEL 7 INTERRUPT
120 ; SERVICE, AND MUST CALL $INTSX (TO DROP PRIORITY AND SWITCH TO
121 ; THE SYSTEM STACK) TO POST ANY COMPLETIONS.
122 ;
123 ; INPUTS: (STACK MUST BE FORMATTED AS FOLLOWS:)
124 ; R5 (SAVED IN LINE TABLE)
125 ; KISAR5 (SAVED IN LINE TABLE)
126 ; PS (SAVED BY INTERRUPT)
127 ; PC (SAVED BY INTERRUPT)
128 ;-
129
130 000050 $INTX7::
131 000050 012605 MOV (SP)+,R5 ;;; RESTORE R5
132
133 .IF DF M$$MGE
134 000052 012667 172352 MOV (SP)+,KISAR5 ;;; RESTORE KERNEL MAPPING REGISTER 5
135 .ENDC
136
137 000056 000002 RTI ;;; RETURN FROM INTERRUPT
CESCH MACRO M1110 13-OCT-79 08:09 PAGE 6
$SQSRV - GENERALIZED SOFTWARE LEVEL SERVICE
139 .SBTTL $SQSRV - GENERALIZED SOFTWARE LEVEL SERVICE
140
141 ;+
142 ; **-$SQSRV-GENERALIZED SOFTWARE LEVEL SERVICE
143 ;
144 ; INPUTS:
145 ;
146 ; R3 = ADDRESS OF FORK BLOCK + 2
147 ;
148 ; OUTPUTS:
149 ;
150 ; A CCB CHAIN IS DEQUEUED FROM THE LEVEL QUEUE AND DISPATCHED
151 ; TO THE APPROPRIATE PROCESS. ALL ENTRIES ON THE LEVEL QUEUE ARE
152 ; REMOVED BEFORE THE LEVEL IS EXITED.
153 ;
154 ; NOTE:
155 ;
156 ; DISPATCH IS MADE TO A DLC OR AN LLC PROCESS BASED ON THE SENSE
157 ; OF THE MSB OF THE WORD DEFINED BY C.LIN. IF THE MSB IS ZERO, THE
158 ; CELL CONTAINS A SLN & STATION NUMBER PAIR AND A DLC IS DISPATCHED
159 ; USING THE SLN. IF THE MSB IS ONE, THE CELL CONTAINS A PDV INDEX
160 ; AND CHANNEL NUMBER PAIR AND AN LLC PROCESS IS DISPATCHED.
161 ;
162 ;-
163 .ENABL LSB
164
165 000060 005723 $SQSRV::TST (R3)+ ; POINT TO SECONDARY QUEUE
166 000062 013746 172354 MOV @#KISAR6,-(SP) ; SAVE APR6 FROM PROCESSES' INDESCRETION ;AP0003
167 000066 000402 BR 7$ ;
168
169 000070 012703 000004G 5$: MOV #$CMFRK+4,R3 ; SET ADDRESS OF FORK BLOCK + 4
170 000074 7$: MTPS #PR7 ;;; DISABLE INTERRUPTS
171 000102 011304 MOV (R3),R4 ;;; GET FIRST ENTRY ON QUEUE
172 000104 001461 BEQ 50$ ;;; IF EQ NO ENTRIES, EXIT LEVEL
173 000106 010402 MOV R4,R2 ;;; COPY ADDRESS OF CCB
174 000110 032762 040000 000012 10$: BIT #CS.LST,C.STS(R2) ;;; LAST CCB OF A GROUP ?
175 000116 001002 BNE 20$ ;;; IF NE YES
176 000120 011202 MOV (R2),R2 ;;; GET ADDRESS OF NEXT CCB
177 000122 000772 BR 10$ ;;; TEST AGAIN
178 000124 011213 20$: MOV (R2),(R3) ;;; SET NEW FIRST CCB ADDRESS
179 000126 001002 BNE 30$ ;;; IF NE, NO NEW LAST
180 000130 010363 000002 MOV R3,2(R3) ;;; CLOSE UP THE LIST
181 000134 30$: MTPS #0 ;;; ENABLE INTERRUPTS
182 000140 005012 CLR (R2) ; CLEAR POINTER IN LAST CCB
183 000142 042762 040000 000012 BIC #CS.LST,C.STS(R2) ;; CLEAR MARKER BIT
184 000150 016402 000006 35$: MOV C.LIN(R4),R2 ; TEST FOR PROCESS LAYER
185 000154 100026 BPL 45$ ; IF PL, DISPATCH TO A DLC
186
187 ;
188 ; DISPATCH AN LLC PROCESS
189 ;
190
191 000156 105764 000003 40$: TSTB C.BID(R4) ; MESSAGE FROM DLC OR LLC ?
192 000162 100403 BMI 42$ ; IF MI, FROM LLC - LEAVE C.LIN ALONE
193 000164 042764 100000 000006 BIC #100000,C.LIN(R4) ; MARK MESSAGE FROM A DLC
194 000172 000302 42$: SWAB R2 ; EXTRACT PDV INDEX
195 000174 142764 000200 000003 BICB #200,C.BID(R4) ; CLEAR LLC DESTINATION INDICATOR
CESCH MACRO M1110 13-OCT-79 08:09 PAGE 6-1
$SQSRV - GENERALIZED SOFTWARE LEVEL SERVICE
196 000202 042702 177600 BIC #^C<177>,R2 ; REMOVE CHANNEL AND LLC LAYER FLAG
197 000206 010403 MOV R4,R3 ; COMPUTE A POINTER TO THE FUNCTION CODE
198 000210 062703 000010 ADD #C.FNC,R3 ; ...
199 000214 016205 000000G MOV $PDVTB(R2),R5 ; GET PDV ADDRESS
200 000220 016505 000014 MOV Z.DAT(R5),R5 ; GET ADDRESS OF LLC'S DATA BASE DESCRIPTOR BLOCK
201 000224 CALL $PDDSP ; DISPATCH THE PROCESS
202 000230 000717 BR 5$ ; GO EXAMINE QUEUE AGAIN
203
204 ;
205 ; DISPATCH A DLC PROCESS
206 ;
207
208 000232 45$: CALL $STDLC ; SET UP DLC INDEX AND LINE TABLE ADDRESS
209 000236 CALL $PDSPL ; DISPATCH THE PROCESS
210 000242 MTPS #0 ; ENABLE INTERRUPTS
211 000246 000710 BR 5$ ; GO EXAMINE QUEUE ONCE MORE
212
213 ;
214 ; EXIT SOFTWARE LEVEL SERVICE
215 ;
216
217 000250 014343 50$: MOV -(R3),-(R3) ;;; FREE FORK BLOCK
218 000252 MTPS #0 ;;; ENABLE INTERRUPTS
219 000256 012637 172354 MOV (SP)+,@#KISAR6 ; APR6 IS NOW SAFE. ;AP0003
220 000262 RETURN ; RETURN TO SYSTEM
221
222 .DSABL LSB
CESCH MACRO M1110 13-OCT-79 08:09 PAGE 7
$PDSPL - SET UP A PROCESS LEVEL AND DISPATCH TO IT
224 .SBTTL $PDSPL - SET UP A PROCESS LEVEL AND DISPATCH TO IT
225
226 ;+
227 ; **-$PDSPL-SET UP A PROCESS LEVEL AND DISPATCH TO IT
228 ;
229 ; THIS SUBROUTINE IS CALLED TO SET UP THE LEVEL OF A PROCESS
230 ; AND DISPATCH TO IT. THIS ROUTINE ASSUMES THAT THE STACK IS FORMATTED
231 ; PROPERLY FOR A PASS THROUGH THE SCHEDULER WHEN THE DISPATCHED PROCESS
232 ; EXITS.
233 ;
234 ; INPUTS:
235 ;
236 ; R2 = PDV INDEX (WORD INDEX)
237 ; R3 = ADDRESS OF FUNCTION CODE
238 ; R4 = ADDRESS OF A CCB (OPTIONAL)
239 ; R5 = ADDRESS OF A LINE TABLE (OPTIONAL)
240 ;
241 ; OUTPUTS:
242 ;
243 ; THE NEW PROCESS EXECUTION PRIORITY IS ESTABLISHED AND DISPATCH
244 ; IS PERFORMED BY THE ROUTINE '$PDDSP'.
245 ;
246 ;-
247
248 000264 $PDSPL::MTPS #PR7 ;;; DISABLE INTERRUPTS
249 000272 016201 000000G MOV $PDVTB(R2),R1 ;;; GET ADDRESS OF PROCESS' PDV
250
251 .IF DF L$$SI1
252
253 MFPS -(SP) ;;; GET CURRENT PRIORITY LEVEL
254 BIC Z.SCH(R1),(SP) ;;; SET PRIORITY OF PROCESS
255 MTPS (SP)+ ;; ...
256
257 .IFF
258
259 000276 046167 000004 177776 BIC Z.SCH(R1),PS ;; SET PRIORITY OF PROCESS
260
261 .ENDC
262
CESCH MACRO M1110 13-OCT-79 08:09 PAGE 8
$PDDSP - DISPATCH TO A PROCESS
264 .SBTTL $PDDSP - DISPATCH TO A PROCESS
265
266 ;+
267 ; **-$PDDSP-DISPATCH TO A PROCESS
268 ;
269 ; INPUTS:
270 ;
271 ; R2 = PDV INDEX (WORD INDEX)
272 ; R3 = ADDRESS OF FUNCTION CODE
273 ; R4 = ADDRESS OF A CCB (OPTIONAL)
274 ; R5 = ADDRESS OF A PROCESS LINE TABLE (OPTIONAL)
275 ;
276 ; OUTPUTS TO THE PROCESS:
277 ;
278 ; BASED ON THE PDV INDEX IN R2, THE PROCESS IS ENTERED AT THE
279 ; ENTRY POINT SPECIFIED BY THE FUNCTION CODE POINTED TO BY R3
280 ; WITH:
281 ; R3 = SUBFUNCTION CODE (WORD INDEX)
282 ; R4 = ADDRESS OF A CCB (OPTIONAL)
283 ; R5 = ADDRESS OF PROCESS LINE TABLE (OPTIONAL)
284 ;
285 ; R2 THROUGH R5 NEED NOT BE PRESERVED BY THE CALLED PROCESS
286 ;-
287
288 000304 $PDDSP:: ; REF LABEL
289 000304 016746 000000G MOV $CMPDV,-(SP) ; SAVE CURRENT PROCESS PDV INDEX
290 000310 010267 000000G MOV R2,$CMPDV ; LOAD NEW PROCESS PDV INDEX
291 000314 016202 000000G MOV $PDVTB(R2),R2 ; GET PDV ADDRESS
292
293 .IF DF M$$MGE
294
295 000320 016746 172352 MOV KISAR5,-(SP) ; SAVE CURRENT PROCESS MAPPING ;**-1
296 000324 012267 172352 MOV (R2)+,KISAR5 ; MAP TO PROCESS
297
298 .IFTF
299
300 000330 005046 CLR -(SP) ; CLEAR A CELL ON THE STACK
301 000332 152316 BISB (R3)+,(SP) ; GET FUNCTION CODE
302 000334 061216 ADD (R2),(SP) ; COMPUTE ADDRESS IN DISPATCH TABLE
303 000336 112303 MOVB (R3)+,R3 ; SET UP SUBFUNCTION CODE
304 000340 013602 MOV @(SP)+,R2 ; GET ADDRESS OF PROCESS ROUTINE
305 000342 CALL (R2) ; CALL PROCESS
306
307 .IFT
308
309 000344 012667 172352 MOV (SP)+,KISAR5 ; RESTORE PREVIOUS PROCESS MAPPING
310 ;**-1
311 .ENDC
312
313 000350 012667 000000G MOV (SP)+,$CMPDV ; RESTORE PREVIOUS PROCESS PDV INDEX
314 000354 RETURN ; AND RETURN TO CALLER
315 .DSABL LSB
CESCH MACRO M1110 13-OCT-79 08:09 PAGE 9
$PDQUE - QUEUE A CCB (CHAIN) TO A LIST AND SCHEDULE PROCESS
317 .SBTTL $PDQUE - QUEUE A CCB (CHAIN) TO A LIST AND SCHEDULE PROCESS
318
319 ;+
320 ; **-$PDQUE-QUEUE A CCB CHAIN TO A LIST AND SCHEDULE PROCESS
321 ;
322 ; INPUTS:
323 ;
324 ; R3 = PDV INDEX (HIGH BYTE) AND CHANNEL NUMBER (LOW BYTE) ($PDQUE ONLY)
325 ; R4 = ADDRESS OF FIRST CCB IN A CHAIN. THE LAST CCB OF THE CHAIN
326 ; HAS A ZERO NEXT CCB POINTER.
327 ;
328 ; OUTPUTS:
329 ;
330 ; THE PDV INDEX AND CHANNEL NUMBER PARAMETERS ARE STORED IN THE CCB
331 ; AND THE CCB (OR CHAIN) IS LINKED TO THE OPERATION QUEUE FOR THE
332 ; PROCESS DEFINED BY THE PDV INDEX AND A SCHEDULE REQUEST FOR THAT
333 ; PROCESS IS SET.
334 ;
335 ; REGISTERS MODIFIED:
336 ;
337 ; R3 AND R4
338 ;-
339
340 000356 010364 000006 $PDQUE::MOV R3,C.LIN(R4) ; STORE PDV INDEX AND CHANNEL NUMBER
341
342 000362 010546 $PDQU1::MOV R5,-(SP) ;SAVE CALLERS R5 ;AP0005
343 000364 016403 000006 MOV C.LIN(R4),R3 ;SETUP TO VALIDATE PDV INDEX ;SR0001
344 000370 100011 BPL 5$ ;(IF IT IS A PDV INDEX !) ;AP0004
345 000372 000303 SWAB R3 ;MOVE INDEX TO LOWER BYTE ;SR0001
346 000374 042703 177600 BIC #^C177,R3 ;LEAVE ONLY PDV INDEX IN R3 ;SR0001
347 000400 016705 000000G MOV $PDVNM,R5 ;GET NUMBER OF PDVS ;SR0001
348 000404 006305 ASL R5 ;MAKE MAXIMUM INDEX ;SR0001
349 000406 020305 CMP R3,R5 ;CALLERS INDEX VALID? ;SR0001
350 000410 103401 BLO 5$ ; IF LT THEN YES ;SR0001
351 000412 000004 IOT ; OTHERWISE CRASH ;SR0001
352 000414 5$: ;HERE IF INDEX VALID ;SR0001
353 000414 010403 MOV R4,R3 ; COPY ADDRESS OF FIRST CCB ;**-1
354
355 000416 010405 10$: MOV R4,R5 ; COPY CURRENT CCB ADDRESS
356 000420 011504 MOV (R5),R4 ; GET NEXT CCB ADDRESS
357 000422 001375 BNE 10$ ; IF NE KEEP GOING
358 000424 052765 040000 000012 BIS #CS.LST,C.STS(R5) ; MARK LAST CCB OF CHAIN
359 000432 012704 000004G MOV #$CMFRK+4,R4 ; SET ADDRESS OF QUEUE LISTHEAD
360 000436 INHIB$ ;;; INHIBIT INTERRUPTS
361 000450 010374 000002 MOV R3,@2(R4) ;;; LINK FIRST TO LAST
362 000454 010564 000002 MOV R5,2(R4) ;;; SET NEW LAST POINTER
363 000460 024444 CMP -(R4),-(R4) ;;; FORK BLOCK ALREADY IN USE ?
364 000462 001005 BNE 20$ ;;; IF NE, YES - JUST EXIT
365 000464 005014 CLR (R4) ;;; CLEAR NEXT LINK POINTER
366 000466 010477 000002G MOV R4,@$FRKHD+2 ;;; LINK TO END OF FORK LIST
367 000472 010467 000002G MOV R4,$FRKHD+2 ;;; SET NEW LAST POINTER
368 000476 20$: ENABL$ ;;; ENABLE INTERRUPTS
369 000502 012605 MOV (SP)+,R5 ; RESTORE R5
370 000504 RETURN ; RETURN TO CALLER
371
372 000001 .END
CESCH MACRO M1110 13-OCT-79 08:09 PAGE 9-1
SYMBOL TABLE
A$$CHK= 000000 C.BUF2 000024 FS.CRA= 001000 L$$P11= 000001 UISAR5= 177652
A$$CPS= 000000 C.CNT 000020 FS.DIS= 013000 L$$11R= 000000 UISAR6= 177654
A$$PRI= 000000 C.CNT1 000020 FS.DVC= 001000 MPAR = 172100 UISAR7= 177656
A$$TRP= 000000 C.CNT2 000030 FS.ENB= 012000 MPCSR = 177746 UISDR0= 177600
CB.CCB= 000002 C.FLG 000022 FS.GET= 006000 M$$CRB= 000124 UISDR4= 177610
CB.RDB= 000004 C.FLG1 000022 FS.INI= 000000 M$$CRX= 000000 UISDR5= 177612
CE.ABO= 100362 C.FLG2 000032 FS.KIL= 000000 M$$FCS= 000000 UISDR6= 177614
CE.DIS= 100366 C.FNC 000010 FS.LTM= 001000 M$$MGE= 000000 UISDR7= 177616
CE.ERR= 100370 C.LIN 000006 FS.MNT= 004000 M$$OVR= 000000 V$$CTR= 001000
CE.MOP= 100372 C.LNK 000000 FS.MSN= 014000 N$$LDV= 000001 X$$DBT= 000000
CE.NTE= 100361 C.MOD 000011 FS.RNG= 011000 N$$MOV= 000010 ZF.DDM= 000001
CE.RTE= 100376 C.NSP 000004 FS.RTN= 001000 N$$SYS= 000001 ZF.DLC= 000002
CE.SRC= 100364 C.RSV 000002 FS.SET= 005000 N$$USR= 000001 ZF.KMX= 000020
CE.TMO= 100374 C.STA 000007 FS.STM= 000000 PIRQ = 177772 ZF.LLC= 000004
CF.EOM= 000004 C.STS 000012 FS.STP= 002000 PMODE = 030000 ZF.LMC= 000100
CF.HDR= 000020 D$$BUG= 177514 FS.STR= 001000 PR0 = 000000 ZF.MFL= 000010
CF.LB = 100000 D$$ISK= 000000 FS.TRM= 003000 PR1 = 000040 ZF.MUX= 000040
CF.SOM= 000010 D$$L11= 000001 FS.XKL= 002000 PR4 = 000200 ZF.TIM= 000200
CF.SYN= 000040 D$$YNC= 000000 FS.XOF= 010000 PR5 = 000240 Z.DAT 000014
CF.TRN= 000100 D$$YNM= 000000 FS.XON= 007000 PR6 = 000300 Z.DSP 000000
CMODE = 140000 E$$XPR= 000000 F$$LVL= 000001 PR7 = 000340 Z.FLG 000011
CS.ABO= 000100 FC.CCP= 000020 G$$TPP= 000000 PS = 177776 Z.LEN = 000014
CS.BUF= 000200 FC.CTL= 000006 G$$TSS= 000000 P$$P45= 000000 Z.LLN 000010
CS.DCR= 000400 FC.KCP= 000016 G$$TTK= 000000 P$$WRD= 000000 Z.MAP 000016
CS.DEV= 000002 FC.KIL= 000004 G$$WRD= 000000 Q$$OPT= 000010 Z.NAM 000006
CS.DIS= 000040 FC.RCE= 000002 I$$RAR= 000000 R$$DER= 000000 Z.PCB 000012
CS.ENB= 000020 FC.RCP= 000014 I$$RDN= 000000 R$$K11= 000001 Z.SCH 000004
CS.EOF= 000001 FC.TIM= 000010 KDSAR0= 172360 R$$SND= 000000 $CMFRK= ****** GX
CS.ERR= 100000 FC.XCP= 000012 KDSDR0= 172320 R$$11M= 000000 $CMPDV= ****** GX
CS.HFE= 002000 FC.XME= 000000 KISAR0= 172340 SISDR0= 172200 $FRKHD= ****** GX
CS.LST= 040000 FE.CAL= 000040 KISAR5= 172352 SR0 = 177572 $HEADR= ****** GX
CS.MTL= 004000 FE.DRV= 000010 KISAR6= 172354 SR3 = 172516 $INTSX 000000RG
CS.RNG= 000010 FE.EXP= 000200 KISAR7= 172356 SWR = 177570 $INTX1= ****** GX
CS.ROV= 000004 FE.EXT= 000001 KISDR0= 172300 S$$WRG= 000000 $INTX7 000050RG
CS.RSN= 010000 FE.EXV= 000004 KISDR6= 172314 S$$YSZ= 007600 $PDDSP 000304RG
CS.SUC= 000001 FE.LSI= 000400 KISDR7= 172316 TPS = 177564 $PDQUE 000356RG
CS.TMO= 020000 FE.MUP= 000002 K$$CNT= 177546 T$$KMG= 000000 $PDQU1 000362RG
C$$CKP= 000000 FE.MXT= 040000 K$$CSR= 177546 T$$MIN= 000000 $PDSPL 000264RG
C$$ORE= 000400 FE.NLG= 100000 K$$LDC= 000000 UBMPR = 170200 $PDVNM= ****** GX
C$$RSH= 177564 FE.PKT= 000100 K$$TPS= 000074 UDSAR0= 177660 $PDVTB= ****** GX
C.BID 000003 FE.PLA= 000020 LD$LP = 000000 UDSDR0= 177620 $SQSRV 000060RG
C.BUF 000014 FS.AST= 000000 L$$ASG= 000000 UISAR0= 177640 $STDLC= ****** GX
C.BUF1 000014 FS.CIB= 002000 L$$DRV= 000000 UISAR4= 177650 $STKDP= ****** GX
. ABS. 000034 000
000506 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 6229 WORDS ( 25 PAGES)
DYNAMIC MEMORY: 6892 WORDS ( 26 PAGES)
ELAPSED TIME: 00:00:20
CESCH,[130,34]CESCH/CR/-SP=[130,10]NETLIB/ML,RSXMC4/PA:1,CESCH
CESCH CREATED BY MACRO ON 13-OCT-79 AT 08:09 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
CS.LST = 040000 6-174 6-183 9-358
C.BID 000003 6-191 *6-195
C.FNC 000010 6-198
C.LIN 000006 6-184 *6-193 *9-340 9-343
C.STS 000012 6-174 *6-183 *9-358
I$$AS = ****** 3-52
KISAR5 = 172352 *4-94 *5-134 8-295 *8-296 *8-309
KISAR6 = 172354 6-166 6-219
L$$SI1 = ****** 4-82 7-251 9-360 9-368
M$$MGE = 000000 4-77 4-92 5-133 8-293
PR7 = 000340 4-93 6-170 7-248 9-360
PS = 177776 *4-86 4-93 6-170 6-181 6-210 6-218 7-248 *7-259 9-360
9-360 9-368
R$$11D = ****** 3-52
R$$11M = 000000 3-52
R$$11S = ****** 3-52
X$$MCB = ****** 3-52 3-52
ZF.DDM = 000001 #3-52
ZF.DLC = 000002 #3-52
ZF.KMX = 000020 #3-52
ZF.LLC = 000004 #3-52
ZF.LMC = 000100 #3-52
ZF.MFL = 000010 #3-52
ZF.MUX = 000040 #3-52
ZF.TIM = 000200 #3-52
Z.DAT 000014 #3-52 6-200
Z.DSP 000000 #3-52 3-52
Z.FLG 000011 #3-52
Z.LEN = 000014 #3-52
Z.LLN 000010 #3-52
Z.MAP 000016 #3-52
Z.NAM 000006 #3-52
Z.PCB 000012 #3-52
Z.SCH 000004 #3-52 7-259
$CMFRK = ****** GX 6-169 9-359
$CMPDV = ****** GX 8-289 *8-290 *8-313
$FRKHD = ****** GX 9-366 *9-367
$HEADR = ****** GX 4-75
$INTSX 000000 RG #4-73
$INTX1 = ****** GX 4-110
$INTX7 000050 RG #5-130
$PDDSP 000304 RG 6-201 #8-288
$PDQUE 000356 RG #9-340
$PDQU1 000362 RG #9-342
$PDSPL 000264 RG 6-209 #7-248
$PDVNM = ****** GX 9-347
$PDVTB = ****** GX 6-199 7-249 8-291
$SQSRV 000060 RG #6-165
$STDLC = ****** GX 6-208
$STKDP = ****** GX *4-73
CESCH CREATED BY MACRO ON 13-OCT-79 AT 08:09 PAGE 2
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL 4-90 6-201 6-208 6-209 8-305
CCBDF$ #3-50 3-51
ENABL$ #3-49 #9-368
HWDDF$ #3-50 #3-53
INHIB$ #3-49 9-360
MTPS 4-93 6-170 6-181 6-210 6-218 7-248
PDVDF$ #3-50 #3-52
RETURN 6-220 8-314 9-370