Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/dmdump.list
There are no other files named dmdump.list in the archive.
DMDUMP MACRO M1110 13-OCT-79 11:30
TABLE OF CONTENTS
28- 879 DMSUB - DUMP SUBROUTINES
35- 1062 DMERR - DUMP ERROR ROUTINES
41- 1168 DMGENE - GENERAL ERROR
42- 1183 DMFLAB - FORMAT LABEL BLOCK
45- 1265 DMPARS - GET DUMP PARAMETERS
51- 1506 DMQIES - QUIESCE ALL I/O'S
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 3
1 .TITLE DMDUMP
2 .IDENT /V01.00/
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 DUMP PROCESSOR
26 ;
27 ;
28 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
29 ;
30 ; IDENT HISTORY:
31 ;
32 ; 1.00 10-FEB-78
33 ; VERSION 2.0 RELEASE
34 ;
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 4
36 ;
37 ;======================================================================;
38 ;++
39 ; +-------------------------------------------------+
40 ; I I
41 ; I U P - L I N E D U M P I
42 ; I - - - - - - - - - - - - I
43 ; I I
44 ; +-------------------------------------------------+
45 ;
46 ;======================================================================;
47 ; ;
48 ; DMDUMP - UP-LINE DUMP MAINLINE ;
49 ; ;
50 ;======================================================================;
51 ;
52 ; EXTERNAL MACROS
53 ;
54 .MCALL PROC,SAVSTK,RESSTK,CONDF,PRDF,DMXB,NICDF
55 000000 CONDF ;DEFINE CONTROL BLOCK SYMBOLS
56 000000 PRDF ;DEFINE PROCESSOR SYMBOLS
57 000000 DMXB ;DEFINE DUMP CONTEXT BLOCK SYMBOLS
58 000000 NICDF ;DEFINE NICE SYMBOLS
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 5
60 ;
61 ; LOCAL MACROS
62 ;
63 ;
64 ; MACRO TO SET R4 TO BE THE CONTEXT POINTER
65 ;
66 .MACRO SWCTXT
67 SAVSTK <R4> ;SAVE REGISTER
68 MOV R5,R4 ;MAKE R4 POINT TO CONTEXT
69 .ENDM SWCTXT
70 ;
71 ; MACRO TO RELEASE R4 FROM BEING THE CONTEXT POINTER
72 ;
73 .MACRO UNCTXT
74 RESSTK <R4> ;RESTORE R4
75 .ENDM UNCTXT
76 ;
77 ; STATE TRANSFER TABLE
78 ;
79 000000 STATAB:
80 000000 000136 003436' .WORD 94.,DMST94
81 000004 000137 003416' .WORD 95.,DMST95
82 000010 000140 003370' .WORD 96.,DMST96
83 000014 000141 003320' .WORD 97.,DMST97
84 000020 000142 000374' .WORD GTDKBF,DMST98
85 000024 000001 000424' .WORD GTNXCB,DMST01
86 000030 000002 000574' .WORD ODFSLL,DMST02
87 000034 000003 001014' .WORD WDUMLB,DMST03
88 000040 000004 001216' .WORD XMSPRD,DMST04
89 000044 000005 001426' .WORD 5.,DMST05
90 000050 000006 002540' .WORD 6.,DMST06
91 000054 000007 002636' .WORD 7.,DMST07
92 000060 000010 003116' .WORD 8.,DMST08
93 000064 000011 003016' .WORD 9.,DMST09
94 000070 000000 .WORD 0.
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 6
96 ;;1;;
97 000072 PROC DMDUMP
98 000072 SAVSTK <R3,R4>
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 7
100 000076 IF ; NO CONTEXT BLOCK
101 000076 FALSE SET C.CTXT(R5)
102 000104 THEN
103 000104 ONCASE ; FUNCTION CODE
104 000104 CASE ; FIRST TIME IN
105 000104 FALSEB NE C.FUNC(R5),#C$PROC
106 000114 DO ; ALLOCATE CONTEXT BLOCK
107 000114 016565 000014 000024 MOV C.ADDR(R5),C.SAVE+2(R5)
108 000122 016565 000012 000022 MOV C.LEN(R5),C.SAVE(R5)
109 000130 012765 000204 000012 MOV #X$LEN,C.LEN(R5)
110 000136 112765 000032 000006 MOVB #C$ALBF,C.FUNC(R5)
111 ;;2;;
112 000144 CASE ; GOT CONTEXT BLOCK
113 000146 FALSEB NE C.FUNC(R5),#C$ALBF
114 000156 DO ; NOW GET DISK BUFFER
115 000156 016504 000014 MOV C.ADDR(R5),R4
116 000162 010465 000004 MOV R4,C.CTXT(R5) ;SAVE CONTEXT BLOCK ADDRESS
117 000166 005000 CLR R0 ;ZERO THE CONTEXT BLOCK
118 000170 010401 MOV R4,R1
119 000172 012702 000204 MOV #X$LEN,R2
120 000176 CALL SPRAY
121 000202 010564 000000 MOV R5,X.CB(R4) ;CHAIN CONTROL BLOCK TO XB
122 000206 016564 000024 000022 MOV C.SAVE+2(R5),X.LLBF(R4) ;SAVE NICE MESSAGE ADDRESS
123 000214 016564 000022 000024 MOV C.SAVE(R5),X.LLEN(R4) ; AND LENGTH
124 000222 016564 000020 000050 MOV C.LKNM(R5),X.LKNM(R4) ;SAVE CALLER'S LUN
125 000230 012765 001000 000012 MOV #BUFSZ4,C.LEN(R5) ;SET UP FOR
126 000236 012764 177636 000046 MOV #-GTDKBF,X.STAT(R4) ; GETTING DISK BUFFER
127 ;; ;;
128 000244 CASE ; JUST RELEASED CONTEXT BLOCK, ALL DONE !
129 000246 FALSEB NE C.FUNC(R5),#C$RLBF
130 000256 DO
131 000256 112765 000001 000007 MOVB #P$GTCM,C.PROC(R5) ;PASS THIS BACK FROM WHENCE IT CAME
132 000264 112765 000200 000006 MOVB #C$PROC,C.FUNC(R5)
133 000272 012765 177777 000004 MOV #-1,C.CTXT(R5) ;SIGNAL COMPLETE
134 000300 005004 CLR R4 ;MAKE SURE NOBODY ELSE RUNS HERE
135 000302 ENDCASE
136 ;;3;;
137 000302 ELSE ; DISPATCH TO NEXT STATE
138 000304 010504 MOV R5,R4 ;CHANGE
139 000306 016405 000004 MOV C.CTXT(R4),R5 ; CONVENTIONS
140 000312 005465 000046 NEG X.STAT(R5) ;NEGATE STATE TO FLAG OPERATION DONE
141 000316 005000 CLR R0 ;INITIALIZE ADDRESS OF STATE TO EXECUTE
142 000320 012701 000000' MOV #STATAB,R1 ;GET STATE TABLE ADDRESS
143 000324 WHILE ; STATE CODE NOT FOUND AND MORE TO SEARCH
144 000324 FALSE SET R0
145 000330 FALSE CLEAR (R1)
146 000334 DO
147 000334 IF ; STATE CODE FOUND
148 000334 FALSE NE X.STAT(R5),(R1)+
149 000342 THEN
150 000342 011100 MOV (R1),R0 ;GET ADDRESS OF STATE
151 000344 ELSE
152 000346 005721 TST (R1)+ ;INCREMENT TO NEXT TABLE ENTRY
153 000350 ENDIF
154 000350 ENDWHILE
155 000352 IF ; STATE CODE WAS FOUND
156 000352 FALSE CLEAR R0
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 7-1
157 000356 THEN
158 000356 CALL @R0 ;EXECUTE THE STATE
159 000360 ELSE
160 000362 000003 BPT ;SHOW FAILURE !!!
161 000364 ENDIF
162 000364 ENDIF
163 000364 RESSTK <R4,R3> ;RESTORE REGISTERS
164 000370 000241 CLC
165 000372 ENDPROC
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 8
167 ;;4;;
168 ;
169 ; GOT THE DISK BUFFER - GET ANOTHER CONTROL BLOCK
170 ;
171 000374 PROCLC DMST98
172 000374 016465 000014 000014 MOV C.ADDR(R4),X.DBUF(R5) ;SAVE DISK BUFFER ADDRESS
173 000402 112764 000033 000006 MOVB #C$ALCB,C.FUNC(R4) ;FUNCTION = ALCB
174 000410 012765 177777 000046 MOV #-GTNXCB,X.STAT(R5)
175 000416 016505 000000 MOV X.CB(R5),R5
176 000422 ENDPROC
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 9
178 ;;5;;
179 ;======================================================================;
180 ; ;
181 ; STATE 1 - BEGIN INITIALIZATION ;
182 ; ;
183 ;======================================================================;
184 000424 PROCLC DMST01
185 000424 016465 000014 000002 MOV C.ADDR(R4),X.CB2(R5) ;SAVE ADDRESS OF SECOND CB
186 000432 CALL DMPARS ;BREAK OUT PARMS FROM NICE MSG
187 ;AND CONFIGURATION DATA BASE
188 000436 IF ; SUCCESS
189 000436 FALSE CS
190 000440 THEN
191 ;
192 ; FORMAT SECOND CONTROL BLOCK FROM FIRST ONE
193 ;
194 000440 016502 000002 MOV X.CB2(R5),R2
195 000444 010400 MOV R4,R0
196 000446 012701 000026 MOV #C$LEN,R1
197 000452 CALL MOVE
198 ;
199 ; OPEN DISK FILE FOR OUTPUT
200 ;
201 000456 010564 000014 MOV R5,C.ADDR(R4) ;ADDRESS THE
202 000462 062764 000072 000014 ADD #X.DSD,C.ADDR(R4) ; FILE SPECIFICATION
203 000470 112764 000042 000006 MOVB #C$OPOT,C.FUNC(R4) ;FUNCTION = OPOT
204 000476 152765 000001 000031 BISB #XF$DSA,X.FLGS(R5) ;INDICATE DISK I/O ACTIVE
205 ;;6;;
206 ;
207 ; SET UP LOGICAL LINK TO SERVER
208 ;
209 000504 016504 000002 MOV X.CB2(R5),R4 ;ADDRESS SECOND CB
210 000510 010500 MOV R5,R0 ;ADDRESS SERVER
211 000512 062700 000037 ADD #X.SIMG,R0 ; IMAGE NODE NAME
212 000516 016564 000022 000014 MOV X.LLBF(R5),C.ADDR(R4) ;ADDRESS OF CONNECT REQUEST BLOCK
213 000524 010405 MOV R4,R5
214 000526 CALL BLCNBK ;BUILD CONNECT REQUEST BLOCK
215 000532 016505 000004 MOV C.CTXT(R5),R5
216 000536 112764 000051 000006 MOVB #C$OPLK,C.FUNC(R4) ;FUNCTION = OPLK
217 000544 152765 000020 000031 BISB #XF$LWA,X.FLGS(R5) ;SIGNL LOG. LNK TRANSMIT ACTIVE
218 ;
219 ; RETURN BOTH CONTROL BLOCKS TO SUPERVISOR
220 ;
221 000552 016575 000002 000000 MOV X.CB2(R5),@X.CB(R5)
222 000560 012765 177776 000046 MOV #-ODFSLL,X.STAT(R5) ;STATE <- 2
223 000566 ENDIF
224 000566 016505 000000 MOV X.CB(R5),R5
225 000572 ENDPROC
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 10
227 ;;7;;
228 ;======================================================================;
229 ; ;
230 ; STATE 2 - CONTINUE INITIALIZATION ;
231 ; ;
232 ;======================================================================;
233 000574 PROCLC DMST02
234 ;
235 ; CHECK CONTROL BLOCK FOR ERRORS
236 ;
237 000574 IF ; ERROR CONDITION
238 000574 FALSEB GT C.RET(R4)
239 000602 THEN
240 000602 IF ; DISK CONTROL BLOCK
241 000602 FALSEB NE C.FUNC(R4),#C$OPOT
242 000612 THEN
243 000612 152765 000002 000031 BISB #XF$DSC,X.FLGS(R5)
244 000620 CALL DMDSKE ;BOMB ON DISK ERROR
245 000624 ELSE
246 000626 152765 000040 000031 BISB #XF$LWC,X.FLGS(R5)
247 000634 CALL DMLLE ;BOMB ON LOGICAL LINK ERROR
248 000640 ENDIF
249 000640 ELSE
250 000642 000241 CLC ;SHOW SUCCESS
251 000644 ENDIF
252 000644 IF ; SUCCESS
253 000644 FALSE CS
254 000646 THEN ; FLAG OPERATION COMPLETE AND CHECK OTHER ONE FOR COMPLETION
255 000646 105064 000010 CLRB C.RET(R4) ;UNPOST CONTROL BLOCK
256 000652 IF ; DISK COMPLETION
257 000652 FALSEB NE C.FUNC(R4),#C$OPOT
258 000662 THEN
259 000662 016465 000020 000054 MOV C.LUN(R4),X.DLUN(R5) ;SAVE DISK LUN
260 000670 152765 000002 000031 BISB #XF$DSC,X.FLGS(R5) ;FLAG DISK I/O COMPLETE
261 000676 ELSE ; LOGICAL LINK COMPLETE
262 000700 016465 000020 000052 MOV C.LKNM(R4),X.LLUN(R5) ;SAVE LOGICAL LINK LUN
263 000706 152765 000040 000031 BISB #XF$LWC,X.FLGS(R5) ;FLAG LINK I/O COMPLETE
264 000714 ENDIF
265 000714 IF ; BOTH OPERATIONS COMPLETE
266 000714 FALSEB CLEAR #XF$LWC,X.FLGS(R5)
267 000724 FALSEB CLEAR #XF$DSC,X.FLGS(R5)
268 000734 THEN ; WRITE OUT DUMMY LABEL BLOCK
269 000734 142765 000063 000031 BICB #XF$LWA+XF$LWC+XF$DSA+XF$DSC,X.FLGS(R5) ;CLEAR FLAGS
270 000742 016504 000000 MOV X.CB(R5),R4 ;ADDRESS CONTROL BLOCK
271 000746 016500 000014 MOV X.DBUF(R5),R0 ;SET BUFFER ADDRESS
272 000752 012701 001000 MOV #512.,R1 ; AND LENGTH
273 000756 CALL DMDSKW ;GO WRITE OUT BLOCK
274 000762 012765 177775 000046 MOV #-WDUMLB,X.STAT(R5) ;STATE <- 3
275 000770 016505 000000 MOV X.CB(R5),R5
276 000774 ELSE ; ONE OPERATION NOT COMPLETE
277 000776 012765 177776 000046 MOV #-ODFSLL,X.STAT(R5) ;STATE <- 2 AGAIN
278 001004 005005 CLR R5 ;WAIT FOR IT
279 001006 ENDIF
280 001006 ELSE
281 001010 010405 MOV R4,R5
282 001012 ENDIF
283 001012 ENDPROC
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 11
285 ;;8;;==================================================================;
286 ; ;
287 ; STATE 3 - START UP DUMP DIALOG ;
288 ; ;
289 ;======================================================================;
290 001014 PROCLC DMST03
291 ;
292 ; CHECK CONTROL BLOCK FOR ERRORS
293 ;
294 001014 IF ; ERROR CONDITION
295 001014 FALSEB GT C.RET(R4)
296 001022 THEN
297 001022 CALL DMDSKE ;BOMB ON DISK ERROR
298 001026 ELSE
299 001030 000241 CLC ;SHOW SUCCESS
300 001032 ENDIF
301 001032 IF ; SUCCESS
302 001032 FALSE CS
303 001034 THEN ; FORMAT AN ESTABLISH DUMP DIALOG MESSAGE IN THE DISK BUFFER
304 001034 105064 000010 CLRB C.RET(R4) ;UNPOST CONTROL BLOCK
305 001040 016502 000014 MOV X.DBUF(R5),R2 ;ADDRESS DISK BUFFER
306 001044 012722 001016 MOV #N$LNSR+<LS$DUM*400>,(R2)+ ;SET FUNCTION, OPTION CODES
307 001050 112722 000001 MOVB #LI$STA,(R2)+
308 001054 010500 MOV R5,R0
309 001056 062700 000032 ADD #X.SLIN,R0 ;MOVE IN
310 001062 012701 000004 MOV #LINLEN-1,R1 ; SERVER LINE ID
311 001066 CALL MOVE
312 001072 010500 MOV R5,R0
313 001074 062700 000004 ADD #X.ADDR,R0 ;MOVE IN
314 001100 012701 000010 MOV #8.,R1 ; BASE ADDRESS AND COUNT
315 001104 CALL MOVE
316 ;
317 ; SEND THE MESSAGE
318 ;
319 001110 166502 000014 SUB X.DBUF(R5),R2 ;CALCULATE BUFFER
320 001114 010201 MOV R2,R1 ; LENGTH
321 001116 016500 000014 MOV X.DBUF(R5),R0 ;ADDRESS BUFFER
322 001122 CALL DMXLNK ;GO SEND BUFFER ON LINK
323 ;
324 ; PUT UP A READ ON THE LOGICAL LINK
325 ;
326 001126 016504 000002 MOV X.CB2(R5),R4 ;ADDRESS SECOND CONTROL BLOCK
327 001132 016500 000022 MOV X.LLBF(R5),R0 ;ADDRESS RECEIVE BUFFER
328 001136 012701 000454 MOV #N.MLEN,R1 ;SET LENGTH
329 001142 CALL DMRLNK ;GO READ BUFFER FROM LINK
330 001146 152765 000024 000031 BISB #XF$LWA+XF$LRA,X.FLGS(R5) ;SET LINK READ, WRITE ACTIVE
331 ;
332 ; SET UP FOR STATE 5 DISK OPERATIONS
333 ;
334 001154 005065 000016 CLR X.DLEN(R5) ;INITIALIZE DISK BUFFER BYTE
335 001160 016565 000014 000020 MOV X.DBUF(R5),X.DFIL(R5) ; COUNT AND FILL ADDRESS
336 001166 016565 000022 000026 MOV X.LLBF(R5),X.LLPR(R5) ;INITIALIZE LL BUFFER FILL ADDR
337 ;
338 ; RETURN BOTH CONTROL BLOCKS
339 ;
340 001174 016575 000002 000000 MOV X.CB2(R5),@X.CB(R5)
341 001202 012765 177774 000046 MOV #-XMSPRD,X.STAT(R5) ;STATE <- 4
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 11-1
342 001210 ENDIF
343 001210 016505 000000 MOV X.CB(R5),R5
344 001214 ENDPROC
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 12
346 ;;9;;
347 ;======================================================================;
348 ; ;
349 ; STATE 4 - COMPLETE INITIALIZATION DIALOG ;
350 ; ;
351 ;======================================================================;
352 001216 PROCLC DMST04
353 ;
354 ; CHECK CONTROL BLOCK FOR ERRORS
355 ;
356 001216 IF ; ERROR CONDITION
357 001216 FALSEB GT C.RET(R4)
358 001224 THEN
359 001224 IF ; RECEIVE CONTROL BLOCK
360 001224 FALSEB NE C.FUNC(R4),#C$RCMS
361 001234 THEN
362 001234 152765 000010 000031 BISB #XF$LRC,X.FLGS(R5)
363 001242 ELSE ; TRANSMIT CONTROL BLOCK
364 001244 152765 000040 000031 BISB #XF$LWC,X.FLGS(R5)
365 001252 ENDIF
366 001252 CALL DMLLE ;BOMB ON LOGICAL LINK ERROR
367 001256 ELSE
368 001260 105064 000010 CLRB C.RET(R4) ;UNPOST CONTROL BLOCK
369 001264 ENDIF
370 001264 IF ; SUCCESS
371 001264 FALSE CS
372 001266 THEN
373 001266 IF ; RECEIVE CONTROL BLOCK
374 001266 FALSEB NE C.FUNC(R4),#C$RCMS
375 001276 THEN ; RECEIVE COMPLETE - CHECK RESPONSE CODE
376 001276 152765 000010 000031 BISB #XF$LRC,X.FLGS(R5) ;FLAG READ COMPLETE
377 001304 IF ; ERROR RESPONSE
378 001304 FALSEB GT @X.LLBF(R5)
379 001312 THEN
380 001312 CALL DMDLGE ;BOMB ON DIALOG ERROR
381 001316 ELSE
382 001320 000241 CLC ;SHOW SUCCESS
383 001322 ENDIF
384 001322 ELSE ; TRANSMIT COMPLETE - FLAG FACT
385 001324 152765 000040 000031 BISB #XF$LWC,X.FLGS(R5) ;FLAG WRITE COMPLETE
386 001332 000241 CLC ;SHOW SUCCESS
387 001334 ENDIF
388 001334 ENDIF
389 001334 IF ; SUCCESS
390 001334 FALSE CS
391 001336 THEN
392 001336 116500 000031 MOVB X.FLGS(R5),R0
393 001342 052700 177727 BIS #^C<XF$LRC+XF$LWC>,R0
394 001346 005100 COM R0
395 ; R0 IS NOW ZERO IFF BOTH BITS WERE ON
396 001350 IF ; RECEIVE & TRANSMIT COMPLETE
397 001350 FALSE NE
398 001352 THEN
399 001352 142765 000074 000031 BICB #XF$LRA+XF$LRC+XF$LWA+XF$LWC,X.FLGS(R5) ;CLEAR FLAGS
400 001360 152765 000200 000031 BISB #XF$SAD,X.FLGS(R5) ;INDICATE START-ADDRESS MESSAGE NEEDED
401 001366 112764 000200 000006 MOVB #C$PROC,C.FUNC(R4)
402 001374 012765 177773 000046 MOV #-5,X.STAT(R5) ;STATE <- 5
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 12-1
403 001402 010405 MOV R4,R5
404 001404 ELSE
405 001406 012765 177774 000046 MOV #-4,X.STAT(R5) ;STATE <- 4 AGAIN
406 001414 005005 CLR R5
407 001416 ENDIF
408 001416 000241 CLC
409 001420 ELSE
410 001422 010405 MOV R4,R5
411 001424 ENDIF
412 001424 ENDPROC
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 13
414 ;;10B;;
415 ;======================================================================;
416 ; ;
417 ; STATE 5 - CONDUCT DIALOG BODY ;
418 ; ;
419 ;======================================================================;
420 001426 PROCLC DMST05
421 001426 ONCASE ; FUNCTION CODE
422 ;
423 001426 CASE ; LOGICAL LINK READ COMPLETE
424 001426 FALSEB CLEAR #XF$LRA,X.FLGS(R5)
425 001436 FALSEB NE C.FUNC(R4),#C$RCMS
426 001446 DO
427 ;
428 ; CHECK CONTROL BLOCK FOR ERRORS
429 ;
430 001446 152765 000010 000031 BISB #XF$LRC,X.FLGS(R5) ;FLAG LL READ COMPLETE
431 001454 IF ; ERROR CONDITION
432 001454 FALSEB GT C.RET(R4)
433 001462 THEN
434 001462 CALL DMLLE ;BOMB WITH LOGICAL LINK ERROR
435 001466 ELSE
436 001470 105064 000010 CLRB C.RET(R4) ;UNPOST CONTROL BLOCK
437 001474 016500 000022 MOV X.LLBF(R5),R0 ;ADDRESS DIALOG MESSAGE
438 001500 IF ; START-ADDRESS MESSAGE NEEDED
439 001500 FALSEB CLEAR #XF$SAD,X.FLGS(R5)
440 001510 THEN
441 001510 IF ; START-ADDRESS MESSAGE RECEIVED
442 001510 FALSEB NE (R0),#DM$SAD
443 001516 THEN
444 001516 000241 CLC ;SHOW SUCCESS
445 001520 ELSE
446 001522 CALL DMDLGE ;BOMB WITH DIALOG ERROR
447 001526 ENDIF
448 001526 ELSE
449 001530 IF ; NOT IMAGE OR END OF DIALOG
450 001530 FALSEB CLEAR (R0)
451 001534 FALSEB EQ (R0),#DM$MIM
452 001542 THEN
453 001542 CALL DMDLGE ;BOMB WITH DIALOG ERROR
454 001546 ELSE
455 001550 000241 CLC ;SHOW SUCCESS
456 001552 ENDIF
457 001552 ENDIF
458 001552 ENDIF
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 14
460 ; ;
461 001552 IF ; SUCCESS
462 001552 FALSE CS
463 001554 THEN
464 ; ; ;
465 001554 ONCASE ; NICE MESSAGE TYPE CODE
466 ; ; ;
467 001554 CASE ; IMAGE RECEIVED AND DISK AVAILABLE
468 001554 FALSEB NE (R0),#DM$MIM
469 001562 TRUEB CLEAR #XF$DSA,X.FLGS(R5)
470 001572 FALSEB CLEAR #XF$DSC,X.FLGS(R5)
471 001602 DO ; TRANSFER TO DISK
472 ; ; ;
473 001602 CALL IMGSTATE
474 001606 CASE ; START-ADDRESS MESSAGE RECEIVED
475 001610 FALSEB NE (R0),#DM$SAD
476 001616 DO
477 001616 CALL SADSTATE ;HANDLE THE START-ADDRESS MESSAGE
478 ;;10D;;
479 ; ; ;
480 001622 CASE ; END OF DIALOG RECEIVED
481 001624 FALSEB SET (R0)+
482 001630 DO
483 001630 CALL EODSTATE
484 001634 ELSE ; NEITHER OF ABOVE
485 001636 012765 177773 000046 MOV #-5,X.STAT(R5) ;STATE <- 5 AGAIN
486 001644 005005 CLR R5 ;WAIT FOR DISK COMPLETE
487 001646 ENDCASE
488 ; ; ;
489 001646 ELSE
490 001650 010405 MOV R4,R5
491 001652 ENDIF
492 ; ;
493 ;;10C;;
494 ;
495 001652 CASE ; DISK WRITE COMPLETE
496 001654 FALSEB CLEAR #XF$DSA,X.FLGS(R5)
497 001664 FALSEB NE C.FUNC(R4),#C$WRBK
498 001674 DO
499 001674 152765 000002 000031 BISB #XF$DSC,X.FLGS(R5) ;FLAG DISK WRITE COMPLETE
500 ;
501 ; CHECK CONTROL BLOCK FOR ERRORS
502 ;
503 001702 IF ; ERROR CONDITION
504 001702 FALSEB GT C.RET(R4)
505 001710 THEN
506 001710 CALL DMDSKE ;BOMB WITH DISK ERROR
507 001714 ELSE
508 001716 105064 000010 CLRB C.RET(R4) ;UNPOST CONTROL BLOCK
509 001722 ENDIF
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 15
511 ; ;
512 001722 IF ; SUCCESS
513 001722 FALSE CS
514 001724 THEN
515 001724 ONCASE
516 001724 CASE
517 001724 FALSEB CLEAR #XF$LRC,X.FLGS(R5)
518 001734 FALSE CLEAR X.LLEN(R5)
519 001742 DO
520 001742 CALL DMIMGF ;MOVE LL DATA INTO DISK BUFFER
521 001746 CALL DMIMGW ; AND WRITE IT TO DISK
522 001752 IF ; EOD RECEIVED
523 001752 FALSEB CLEAR #XF$EOD,X.FLGS(R5)
524 001762 THEN
525 001762 142765 000100 000031 BICB #XF$EOD,X.FLGS(R5)
526 001770 012765 177771 000046 MOV #-7,X.STAT(R5) ;STATE <- 7
527 001776 112764 000200 000006 MOVB #C$PROC,C.FUNC(R4)
528 002004 ELSE ; NOT EOD
529 002006 012765 177773 000046 MOV #-5,X.STAT(R5) ;STATE <- 5 AGAIN
530 002014 CALL DMIMGR ;PUT UP ANOTHER LL READ
531 002020 ENDIF
532 002020 IF ; DISK WRITE STARTED
533 002020 FALSEB CLEAR #XF$DSA,X.FLGS(R5)
534 002030 FALSEB SET #XF$DSC,X.FLGS(R5)
535 002040 THEN
536 002040 016504 000000 MOV X.CB(R5),R4
537 002044 IF ; LL READ STARTED ALSO
538 002044 FALSEB CLEAR #XF$LRA,X.FLGS(R5)
539 002054 FALSEB SET #XF$LRC,X.FLGS(R5)
540 002064 THEN
541 002064 016514 000002 MOV X.CB2(R5),(R4)
542 002070 ENDIF
543 002070 ELSE ; LL READ ONLY STARTED
544 002072 016504 000002 MOV X.CB2(R5),R4
545 002076 ENDIF
546 002076 010405 MOV R4,R5
547 002100 CASE ; EOD RECEIVED
548 002102 FALSEB CLEAR #XF$EOD,X.FLGS(R5)
549 002112 DO ; START TERMINATION
550 002112 012765 177771 000046 MOV #-7,X.STAT(R5)
551 002120 112764 000200 000006 MOVB #C$PROC,C.FUNC(R4)
552 002126 010405 MOV R4,R5
553 002130 ELSE ; NEITHER OF ABOVE
554 002132 012765 177773 000046 MOV #-5,X.STAT(R5) ;STATE <- 5 AGAIN
555 002140 005005 CLR R5 ;WAIT FOR I/O COMPLETION
556 002142 ENDCASE
557 002142 ELSE
558 002144 010405 MOV R4,R5
559 002146 ENDIF
560 ; ;
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 16
562 ;;10A;;
563 ;
564 002146 ELSE ; NO COMPLETIONS
565 002150 152765 000004 000031 BISB #XF$LRA,X.FLGS(R5) ;FLAG READ ACTIVE
566 002156 016500 000022 MOV X.LLBF(R5),R0
567 002162 012701 000454 MOV #N.MLEN,R1
568 002166 016504 000002 MOV X.CB2(R5),R4
569 002172 CALL DMRLNK ;PUT UP A READ ON THE LINK
570 002176 012765 177773 000046 MOV #-5,X.STAT(R5) ;STATE <- 5
571 002204 010405 MOV R4,R5
572 002206 ENDCASE
573 ;
574 002206 ENDPROC
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 17
576 002210 PROCLC IMGSTATE
577 002210 005200 INC R0 ;BUMP PAST TYPE CODE
578 002212 112065 000030 MOVB (R0)+,X.CPU(R5) ;SAVE CPU TYPE
579 002216 016501 000002 MOV X.CB2(R5),R1 ;GET RECEIVE MESSAGE CONTROL BLOCK
580 002222 016165 000012 000024 MOV C.LEN(R1),X.LLEN(R5) ;SAVE IMAGE LENGTH
581 002230 162765 000002 000024 SUB #2.,X.LLEN(R5) ; - THE 2 HEADER BYTES
582 002236 010065 000026 MOV R0,X.LLPR(R5) ; AND PROCESS POINTER
583 002242 CALL DMIMGF ;FILL UP DISK IMAGE BUFFER
584 002246 CALL DMIMGW ;WRITE OUT DISK BUFFER
585 002252 CALL DMIMGR ;START ANOTHER LOGICAL LINK READ
586 002256 IF ; DISK WRITE STARTED
587 002256 FALSEB CLEAR #XF$DSA,X.FLGS(R5)
588 002266 FALSEB SET #XF$DSC,X.FLGS(R5)
589 002276 THEN
590 002276 016504 000000 MOV X.CB(R5),R4 ;ADDRESS DISK CONTROL BLOCK
591 002302 IF ; READ ACTIVE ALSO
592 002302 FALSEB CLEAR #XF$LRA,X.FLGS(R5)
593 002312 FALSEB SET #XF$LRC,X.FLGS(R5)
594 002322 THEN
595 002322 016514 000002 MOV X.CB2(R5),(R4) ;CHAIN IN LL CONTROL BLOCK
596 002326 ENDIF
597 002326 ELSE ; LL READ ONLY STARTED
598 002330 016504 000002 MOV X.CB2(R5),R4 ;ADDRESS LL CONTROL BLOCK
599 002334 ENDIF
600 002334 012765 177773 000046 MOV #-5.,X.STAT(R5) ;STATE <- 5 AGAIN
601 002342 010405 MOV R4,R5
602 002344 ENDPROC
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 18
604 002346 PROCLC SADSTATE
605 002346 142765 000200 000031 BICB #XF$SAD,X.FLGS(R5) ;INDICATE START-ADDRESS MESSAGE RECVED
606 002354 005200 INC R0 ;BUMP PAST TYPE CODE TO SAD IN LNK BUFF
607 002356 012702 000004 MOV #4,R2 ;INITIALIZE START-ADDRESS LENGTH COUNT
608 002362 010501 MOV R5,R1 ;GET START-ADDRESS FROM CONTEXT
609 002364 062701 000004 ADD #X.ADDR,R1
610 002370 WHILE ; START-ADDRESSES ARE EQUAL AND MORE TO COMPARE
611 002370 FALSE CLEAR R2
612 002374 FALSEB NE (R0)+,(R1)+
613 002400 DO
614 002400 005302 DEC R2
615 002402 ENDWHILE
616 002404 IF ; START ADDRESS IN CONTEXT & LINK BUFFER ARE IDENTICAL
617 002404 FALSE SET R2
618 002410 THEN
619 002410 112764 000200 000006 MOVB #C$PROC,C.FUNC(R4)
620 002416 012765 177773 000046 MOV #-5.,X.STAT(R5) ;STATE <- 5 AGAIN
621 002424 ELSE
622 002426 CALL DMDLGE
623 002432 ENDIF
624 002432 010405 MOV R4,R5
625 002434 ENDPROC
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 19
627 002436 PROCLC EODSTATE
628 002436 152765 000100 000031 BISB #XF$EOD,X.FLGS(R5) ;FLAG EOD
629 002444 CALL DMIMGW ;WRITE OUT DISK RESIDUE
630 002450 016500 000022 MOV X.LLBF(R5),R0 ;PICK UP
631 002454 116000 000001 MOVB 1(R0),R0 ; RESPONSE CODE
632 002460 IF ; ERROR CODE
633 002460 FALSE GT
634 002462 THEN
635 002462 142765 000001 000031 BICB #XF$DSA,X.FLGS(R5) ;KILL THE DISK WRITE FLAG
636 002470 CALL DMDLGE ;BOMB WITH DIALOG ERROR
637 002474 ELSE ; SUCCESS CODE
638 002476 012765 177771 000046 MOV #-7,X.STAT(R5) ;STATE <- 7
639 002504 IF ; WRITE NOT ACTIVE
640 002504 FALSEB SET #XF$DSA,X.FLGS(R5)
641 002514 FALSEB CLEAR #XF$DSC,X.FLGS(R5)
642 002524 THEN
643 002524 112764 000200 000006 MOVB #C$PROC,C.FUNC(R4)
644 002532 000241 CLC ;SHOW SUCCESS
645 002534 ENDIF
646 002534 ENDIF
647 002534 010405 MOV R4,R5
648 002536 ENDPROC
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 20
650 ;; ;;
651 ;======================================================================;
652 ; ;
653 ; STATE 6 - ABORT DIALOG ;
654 ; ;
655 ; INPUTS: R5 -> CONTEXT BLOCK ;
656 ; X.ERR = RESPONSE CODE ;
657 ; ;
658 ;======================================================================;
659 002540 PROCLC DMST06
660 ;
661 ; QUIESCE I/O
662 ;
663 002540 CALL DMQIES
664 002544 IF ; NO I/O PENDING
665 002544 FALSE CS
666 002546 THEN
667 ;
668 ; FORMAT END OF DIALOG MESSAGE AND SEND IT
669 ;
670 002546 016500 000060 MOV X.ERR(R5),R0 ;PICK UP ERROR CODE
671 002552 016502 000022 MOV X.LLBF(R5),R2 ;ADDRESS LOGICAL LINK BUFFER
672 002556 105022 CLRB (R2)+ ;SET TYPE CODE = 0
673 002560 110022 MOVB R0,(R2)+ ;MOVE IN RESPONSE CODE
674 002562 016500 000022 MOV X.LLBF(R5),R0
675 002566 012701 000002 MOV #2,R1
676 002572 016504 000000 MOV X.CB(R5),R4
677 002576 CALL DMXLNK ;SEND THE BUFFER
678 002602 152765 000020 000031 BISB #XF$LWA,X.FLGS(R5) ;FLAG LL TRANSMIT ACTIVE
679 002610 012765 177771 000046 MOV #-7,X.STAT(R5) ;STATE <- 7
680 002616 016505 000000 MOV X.CB(R5),R5
681 002622 ELSE
682 002624 012765 177772 000046 MOV #-6.,X.STAT(R5) ;STATE <- 6 AGAIN
683 002632 010405 MOV R4,R5
684 002634 ENDIF
685 002634 ENDPROC
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 21
687 ;;11;;
688 ;======================================================================;
689 ; ;
690 ; STATE 7 - START TERMINATION ;
691 ; ;
692 ;======================================================================;
693 002636 PROCLC DMST07
694 ;
695 ; QUIESCE I/O
696 ;
697 002636 142765 000100 000031 BICB #XF$EOD,X.FLGS(R5) ;TURN OFF EOD FLAG
698 002644 CALL DMQIES
699 002650 IF ; NO I/O PENDING
700 002650 FALSE CS
701 002652 THEN ; FORMAT RESPONSE MESSAGE AND SEND IT
702 002652 016503 000060 MOV X.ERR(R5),R3 ;PICK UP ERROR CODE
703 002656 IF ; ERROR = 0
704 002656 FALSE NE
705 002660 THEN
706 002660 005203 INC R3 ;SET "NO ERROR" CODE TO 1
707 002662 ENDIF
708 002662 016500 000022 MOV X.LLBF(R5),R0
709 002666 110310 MOVB R3,(R0) ;MOVE IN ERROR CODE
710 002670 012701 000001 MOV #1,R1 ;SET BUFFER LENGTH
711 002674 016504 000002 MOV X.CB2(R5),R4 ;ADDRESS CONTROL BLOCK
712 002700 CALL DMXLNK ;SEND THE BUFFER
713 002704 016564 000050 000020 MOV X.LKNM(R5),C.LKNM(R4) ;(BUT TO THE CALLER)
714 002712 152765 000020 000031 BISB #XF$LWA,X.FLGS(R5) ;FLAG ACTIVE OPERATION
715 002720 IF ; NO ERRORS & FILE OPEN
716 002720 FALSE LT X.ERR(R5)
717 002726 FALSE CLEAR X.DLUN(R5)
718 002734 THEN
719 ;
720 ; BACK UP THE DISK FILE TO BLOCK #1
721 ;
722 002734 016504 000000 MOV X.CB(R5),R4
723 002740 012764 000001 000014 MOV #1,C.BKNM(R4) ;SET BLOCK NUMBER
724 002746 016564 000054 000020 MOV X.DLUN(R5),C.LUN(R4) ;SET DISK LUN
725 002754 112764 000055 000006 MOVB #C$STBK,C.FUNC(R4) ;FUNCTION = STBK
726 002762 152765 000001 000031 BISB #XF$DSA,X.FLGS(R5) ;FLAG ACTIVE OPERATION
727 002770 016514 000002 MOV X.CB2(R5),(R4)
728 ;
729 002774 ENDIF
730 002774 012765 177767 000046 MOV #-9.,X.STAT(R5) ;STATE <- 9
731 003002 ELSE
732 003004 012765 177771 000046 MOV #-7.,X.STAT(R5) ;STATE <- 7 AGAIN
733 003012 ENDIF
734 003012 010405 MOV R4,R5 ;RETURN
735 003014 ENDPROC ; BOTH CONTROL BLOCKS
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 22
737 ;;12;;
738 ;======================================================================;
739 ; ;
740 ; STATE 9 - CONTINUE TERMINATION ;
741 ; ;
742 ;======================================================================;
743 003016 PROCLC DMST09
744 ;
745 ; QUIESCE I/O
746 ;
747 003016 CALL DMQIES
748 003022 IF ; NO I/O PENDING
749 003022 FALSE CS
750 003024 THEN ; FORMAT LABEL BLOCK AND WRITE IT OUT
751 003024 016504 000000 MOV X.CB(R5),R4
752 003030 IF ; NO ERRORS & FILE OPEN
753 003030 FALSE LT X.ERR(R5)
754 003036 FALSE CLEAR X.DLUN(R5)
755 003044 THEN
756 003044 CALL DMFLAB ;FORMAT A DISK LABEL BLOCK FROM
757 ;THE CONTEXT BLOCK PARAMETERS
758 003050 016500 000014 MOV X.DBUF(R5),R0
759 003054 012701 001000 MOV #512.,R1
760 003060 CALL DMDSKW
761 003064 ELSE
762 003066 112764 000200 000006 MOVB #C$PROC,C.FUNC(R4)
763 003074 ENDIF
764 ;
765 003074 012765 177770 000046 MOV #-8.,X.STAT(R5) ;STATE <- 8.
766 003102 ELSE
767 003104 012765 177767 000046 MOV #-9.,X.STAT(R5) ;STATE <- 9 AGAIN
768 003112 ENDIF
769 003112 010405 MOV R4,R5
770 003114 ENDPROC
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 23
772 ;======================================================================;
773 ; ;
774 ; STATE 8 - COMPLETE TERMINATION ;
775 ; ;
776 ;======================================================================;
777 003116 PROCLC DMST08
778 ;
779 ; CHECK CONTROL BLOCK FOR ERRORS
780 ;
781 003116 IF ; ERROR CONDITION
782 003116 FALSEB GT C.RET(R4)
783 003124 THEN
784 003124 CALL DMDSKE
785 003130 ELSE
786 003132 105064 000010 CLRB C.RET(R4)
787 003136 ENDIF
788 ;
789 ; CLOSE THE DISK AND LOGICAL LINK FILES
790 ;
791 003136 IF ; FILE OPEN
792 003136 FALSE CLEAR X.DLUN(R5)
793 003144 THEN
794 003144 016504 000000 MOV X.CB(R5),R4
795 003150 116564 000054 000020 MOVB X.DLUN(R5),C.LUN(R4)
796 003156 112764 000004 000006 MOVB #C$CLFL,C.FUNC(R4)
797 003164 152765 000001 000031 BISB #XF$DSA,X.FLGS(R5) ;FLAG ACTIVE OPERATION
798 003172 ENDIF
799 003172 012765 177637 000046 MOV #-97.,X.STAT(R5) ;STATE <- 97.
800 003200 IF ; LOGICAL LINK OPEN
801 003200 FALSE CLEAR X.LLUN(R5),R4
802 003206 THEN
803 003206 016504 000002 MOV X.CB2(R5),R4
804 003212 016564 000052 000020 MOV X.LLUN(R5),C.LKNM(R4)
805 003220 112764 000052 000006 MOVB #C$CLLK,C.FUNC(R4)
806 003226 152765 000020 000031 BISB #XF$LWA,X.FLGS(R5) ;FLAG ACTIVE OPERATION
807 003234 IF ; DISK CLOSE CB OK
808 003234 FALSEB CLEAR #XF$DSA,X.FLGS(R5)
809 003244 THEN
810 003244 010475 000000 MOV R4,@X.CB(R5)
811 003250 ENDIF
812 003250 ENDIF
813 003250 IF ; DISK CLOSE CB OK
814 003250 FALSEB CLEAR #XF$DSA,X.FLGS(R5)
815 003260 THEN
816 003260 016505 000000 MOV X.CB(R5),R5
817 003264 ELSE
818 003266 IF ; LINK CLOSE CB OK
819 003266 FALSEB CLEAR #XF$LWA,X.FLGS(R5)
820 003276 THEN
821 003276 016505 000002 MOV X.CB2(R5),R5
822 003302 ELSE
823 003304 016505 000000 MOV X.CB(R5),R5
824 003310 112765 000200 000006 MOVB #C$PROC,C.FUNC(R5)
825 003316 ENDIF
826 003316 ENDIF
827 003316 ENDPROC
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 24
829 ;;13;;
830 ;======================================================================;
831 ; ;
832 ; STATE 97 - CLEAN UP AND GO HOME ;
833 ; ;
834 ;======================================================================;
835 003320 PROCLC DMST97
836 ;
837 ; QUIESCE I/O
838 ;
839 003320 CALL DMQIES
840 003324 IF ; NO I/O PENDING
841 003324 FALSE CS
842 003326 THEN ; RELEASE SECOND CONTROL BLOCK
843 003326 016504 000000 MOV X.CB(R5),R4
844 003332 016564 000002 000014 MOV X.CB2(R5),C.ADDR(R4)
845 003340 112764 000002 000006 MOVB #C$RLCB,C.FUNC(R4)
846 003346 012765 177640 000046 MOV #-96.,X.STAT(R5)
847 003354 ELSE
848 003356 012765 177637 000046 MOV #-97.,X.STAT(R5)
849 003364 ENDIF
850 003364 010405 MOV R4,R5
851 003366 ENDPROC
852 ;
853 ; RELEASE DISK BUFFER
854 ;
855 003370 PROCLC DMST96
856 003370 016564 000014 000014 MOV X.DBUF(R5),C.ADDR(R4)
857 003376 112764 000001 000006 MOVB #C$RLBF,C.FUNC(R4)
858 003404 012765 177641 000046 MOV #-95.,X.STAT(R5)
859 003412 010405 MOV R4,R5
860 003414 ENDPROC
861 ;
862 ; RELEASE LOGICAL LINK BUFFER
863 ;
864 003416 PROCLC DMST95
865 003416 016564 000022 000014 MOV X.LLBF(R5),C.ADDR(R4)
866 003424 012765 177642 000046 MOV #-94.,X.STAT(R5)
867 003432 010405 MOV R4,R5
868 003434 ENDPROC
869 ;
870 ; RELEASE CONTEXT BLOCK AND QUIT
871 ;
872 003436 PROCLC DMST94
873 003436 016564 000050 000020 MOV X.LKNM(R5),C.LKNM(R4)
874 003444 010564 000014 MOV R5,C.ADDR(R4)
875 003450 005064 000004 CLR C.CTXT(R4)
876 003454 010405 MOV R4,R5
877 003456 ENDPROC
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 25
DMSUB - DUMP SUBROUTINES
879 .SBTTL DMSUB - DUMP SUBROUTINES
880 ;======================================================================;
881 ; ;
882 ; DMSUB - DUMP SUBROUTINES ;
883 ; ;
884 ;======================================================================;
885 ;
886 ; EXTERNAL MACROS
887 ;
888 .MCALL PROC,CONDF,DMXB,RESSTK
889 003460 CONDF ;DEFINE CONTROL BLOCK SYMBOLS
890 003460 DMXB ;DEFINE DUMP CONTEXT BLOCK SYMBOLS
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 26
DMSUB - DUMP SUBROUTINES
892 ;======================================================================;
893 ; ;
894 ; DMDSKW - WRITE TO DISK ;
895 ; ;
896 ; INPUTS: R0 -> BUFFER ;
897 ; R1 = BUFFER LENGTH ;
898 ; R4 -> CONTROL BLOCK FOR OPERATION ;
899 ; ;
900 ;======================================================================;
901 .ENABL LSB
902 003460 PROCLC DMDSKW
903 ;
904 003460 010064 000014 MOV R0,C.ADDR(R4) ;BUFFER ADDRESS.
905 003464 010164 000012 MOV R1,C.LEN(R4) ;BUFFER LENGTH.
906 003470 016564 000054 000020 MOV X.DLUN(R5),C.LKNM(R4) ;LOGICAL UNIT NUMBER
907 003476 112764 000044 000006 MOVB #C$WRBK,C.FUNC(R4) ;FUNCTION = WRBK
908 003504 ENDPROC
909 .DSABL LSB
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 27
DMSUB - DUMP SUBROUTINES
911 ;======================================================================;
912 ; ;
913 ; DMXLNK - WRITE TO THE LOGICAL LINK ;
914 ; ;
915 ; INPUTS: R0 -> BUFFER ;
916 ; R1 = BUFFER LENGTH ;
917 ; R4 -> CONTROL BLOCK FOR OPERATION ;
918 ; ;
919 ;======================================================================;
920 .ENABL LSB
921 003506 PROCLC DMXLNK
922 ;
923 003506 010064 000014 MOV R0,C.ADDR(R4) ;BUFFER ADDRESS.
924 003512 010164 000012 MOV R1,C.LEN(R4) ;BUFFER LENGTH.
925 003516 010165 000024 MOV R1,X.LLEN(R5)
926 003522 016564 000052 000020 MOV X.LLUN(R5),C.LKNM(R4) ;LOGICAL UNIT NUMBER
927 003530 112764 000053 000006 MOVB #C$TRMS,C.FUNC(R4) ;FUNCTION = TRMS
928 003536 ENDPROC
929 .DSABL LSB
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 28
DMSUB - DUMP SUBROUTINES
931 ;======================================================================;
932 ; ;
933 ; DMRLNK - READ FROM THE LOGICAL LINK ;
934 ; ;
935 ; INPUTS: R0 -> BUFFER ;
936 ; R1 = BUFFER LENGTH ;
937 ; R4 -> CONTROL BLOCK FOR OPERATION ;
938 ; ;
939 ;======================================================================;
940 .ENABL LSB
941 003540 PROCLC DMRLNK
942 ;
943 003540 010064 000014 MOV R0,C.ADDR(R4) ;BUFFER ADDRESS.
944 003544 010164 000012 MOV R1,C.LEN(R4) ;BUFFER SIZE.
945 003550 016564 000052 000020 MOV X.LLUN(R5),C.LKNM(R4) ;LOGICAL UNIT NUMBER
946 003556 112764 000054 000006 MOVB #C$RCMS,C.FUNC(R4) ;FUNCTION = RCMS
947 003564 ENDPROC
948 .DSABL LSB
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 29
DMSUB - DUMP SUBROUTINES
950 ;======================================================================;
951 ; ;
952 ; DMIMGF - FILL THE DISK BUFFER ;
953 ; ;
954 ; INPUTS: R5 -> CONTEXT BLOCK ;
955 ; X.DFIL -> NEXT AVAILABLE BYTE IN DISK BUFFER ;
956 ; X.DLEN = BYTES USED IN BUFFER ;
957 ; X.LLPR -> NEXT BYTE TO USE IN LL BUFFER ;
958 ; X.LLEN = REMAINING BYTES IN BUFFER ;
959 ; ;
960 ; OUTPUTS: X.DFIL, X.DLEN, X.LLPR, X.LLEN UPDATED ;
961 ; ;
962 ;======================================================================;
963 ;
964 003566 PROCLC DMIMGF
965 ;
966 ; DETERMINE NUMBER OF BYTES TO TRANSFER
967 ;
968 003566 012701 001000 MOV #512.,R1 ;CALCULATE NUMBER OF BYTES
969 003572 166501 000016 SUB X.DLEN(R5),R1 ; LEFT IN DISK BUFFER
970 003576 IF ; ALL OF INPUT DATA REMAINING WILL FIT
971 003576 FALSE LE R1,X.LLEN(R5)
972 003604 THEN
973 003604 016501 000024 MOV X.LLEN(R5),R1
974 003610 ENDIF
975 ;
976 ; MOVE THAT MANY BYTES INTO DISK BUFFER
977 ;
978 003610 060165 000016 ADD R1,X.DLEN(R5)
979 003614 160165 000024 SUB R1,X.LLEN(R5)
980 003620 016500 000026 MOV X.LLPR(R5),R0
981 003624 060165 000026 ADD R1,X.LLPR(R5)
982 003630 016502 000020 MOV X.DFIL(R5),R2
983 003634 060165 000020 ADD R1,X.DFIL(R5)
984 003640 CALL MOVE
985 ;
986 003644 ENDPROC
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 30
DMSUB - DUMP SUBROUTINES
988 ;======================================================================;
989 ; ;
990 ; DMIMGW - WRITE OUT FULL DISK BUFFER ;
991 ; ;
992 ; INPUTS: R5 -> CONTEXT BLOCK ;
993 ; X.DLEN = SIZE OF DISK BUFFER ;
994 ; ;
995 ; OUTPUTS (IF AN I/O IS DONE ONLY): ;
996 ; R4 -> DISK CONTROL BLOCK ;
997 ; X.DLEN(R5) <- 0 ;
998 ; X.DFIL(R5) <- X.DLEN(R5) ;
999 ; BIT XF$DSA OF X.FLGS(R5) IS SET ;
1000 ; BIT XF$DSC IS CLEARED ;
1001 ; ;
1002 ;======================================================================;
1003 ;
1004 003646 PROCLC DMIMGW
1005 ;
1006 003646 IF ; OUTPUT BUFFER IS FULL OR EOD OCCURRED
1007 003646 TRUE EQ X.DLEN(R5),#512.
1008 003656 FALSEB CLEAR #XF$EOD,X.FLGS(R5)
1009 003666 THEN
1010 003666 016504 000000 MOV X.CB(R5),R4
1011 003672 IF ; BUFFER NOT EMPTY
1012 003672 FALSE CLEAR X.DLEN(R5)
1013 003700 THEN
1014 003700 016500 000014 MOV X.DBUF(R5),R0 ;ADDRESS DISK BUFFER
1015 003704 010065 000020 MOV R0,X.DFIL(R5) ;INITIALIZE FILL POINTER
1016 003710 016501 000016 MOV X.DLEN(R5),R1 ;PICK UP BUFFER LENGTH
1017 003714 005065 000016 CLR X.DLEN(R5) ; (DESTRUCTIVELY)
1018 003720 016504 000000 MOV X.CB(R5),R4 ;ADDRESS DISK CONTROL BLOCK
1019 003724 CALL DMDSKW ;WRITE OUT BUFFER
1020 003730 152765 000001 000031 BISB #XF$DSA,X.FLGS(R5) ;SET DISK ACTIVE
1021 003736 142765 000002 000031 BICB #XF$DSC,X.FLGS(R5) ; AND NOT COMPLETE
1022 003744 ENDIF
1023 003744 ELSE
1024 003746 005004 CLR R4
1025 003750 ENDIF
1026 ;
1027 003750 ENDPROC
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 31
DMSUB - DUMP SUBROUTINES
1029 ;======================================================================;
1030 ; ;
1031 ; DMIMGR - READ INTO EMPTY LOGICAL LINK BUFFER ;
1032 ; ;
1033 ; INPUTS: R5 -> CONTEXT BLOCK ;
1034 ; X.LLBF -> LOGICAL LINK BUFFER ;
1035 ; ;
1036 ; OUTPUTS (IF AN I/O IS DONE ONLY): ;
1037 ; R4 -> LOGICAL LINK CONTROL BLOCK ;
1038 ; X.LLPR(R5) <- X.LLBF(R5) ;
1039 ; BIT XF$LRA OF X.FLGS(R5) IS SET ;
1040 ; BIT XF$LRC IS CLEARED ;
1041 ; ;
1042 ;======================================================================;
1043 ;
1044 003752 PROCLC DMIMGR
1045 ;
1046 003752 005004 CLR R4
1047 003754 IF ; INPUT BUFFER EMPTY AND NOT EOD
1048 003754 FALSE SET X.LLEN(R5)
1049 003762 FALSEB SET #XF$EOD,X.FLGS(R5)
1050 003772 THEN
1051 003772 016500 000022 MOV X.LLBF(R5),R0 ;ADDRESS LOGICAL LINK BUFFER
1052 003776 010065 000026 MOV R0,X.LLPR(R5) ;INITIALIZE PROCESS POINTER
1053 004002 012701 000454 MOV #N.MLEN,R1 ;SET READ SIZE
1054 004006 016504 000002 MOV X.CB2(R5),R4 ;ADDRESS LOGICAL LINK CTL BK
1055 004012 CALL DMRLNK ;GO DO THE READ
1056 004016 152765 000004 000031 BISB #XF$LRA,X.FLGS(R5) ;SET READ ACTIVE
1057 004024 142765 000010 000031 BICB #XF$LRC,X.FLGS(R5) ; AND NOT COMPLETE
1058 004032 ENDIF
1059 ;
1060 004032 ENDPROC
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 32
DMERR - DUMP ERROR ROUTINES
1062 .SBTTL DMERR - DUMP ERROR ROUTINES
1063 ;
1064 ; EXTERNAL MACROS
1065 ;
1066 .MCALL PROC,DMXB,NICDF
1067 004034 DMXB ;DEFINE DUMP CONTEXT BLOCK SYMBOLS
1068 004034 NICDF ;DEFINE NICE SYMBOLS
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 33
DMERR - DUMP ERROR ROUTINES
1070 ;======================================================================;
1071 ; ;
1072 ; DMDLGE - DIALOG ERROR ;
1073 ; ;
1074 ;======================================================================;
1075 .ENABL LSB
1076 004034 PROCLC DMDLGE
1077 ;
1078 004034 016500 000022 MOV X.LLBF(R5),R0 ;ADDRESS LOGICAL LINK BUFFER
1079 004040 IF ; ERROR CODE
1080 004040 TRUE EQ X.STAT(R5),#4
1081 004050 FALSEB SET (R0)+
1082 004054 THEN
1083 004054 111000 MOVB (R0),R0 ;PICK UP ERROR CODE FROM BUFFER
1084 004056 ELSE ; INVALID DIALOG MESSAGE
1085 004060 012700 177774 MOV #NE$ORD,R0 ;MESSAGE ORDERING ERROR
1086 004064 ENDIF
1087 ;
1088 004064 010065 000060 MOV R0,X.ERR(R5) ;SAVE ERROR CODE
1089 004070 012765 177772 000046 MOV #-ABORT,X.STAT(R5) ;STATE <- 6
1090 004076 112764 000200 000006 MOVB #C$PROC,C.FUNC(R4)
1091 004104 000261 SEC ;SHOW FAILURE
1092 004106 ENDPROC
1093 .DSABL LSB
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 34
DMERR - DUMP ERROR ROUTINES
1095 ;======================================================================;
1096 ; ;
1097 ; DMDSKE - DISK I/O ERROR ;
1098 ; ;
1099 ;======================================================================;
1100 .ENABL LSB
1101 004110 PROCLC DMDSKE
1102 004110 012765 177756 000060 MOV #NE$FIO,X.ERR(R5) ;SET FILE I/O ERROR
1103 004116 012765 177772 000046 MOV #-ABORT,X.STAT(R5) ;STATE <- 6
1104 004124 112764 000200 000006 MOVB #C$PROC,C.FUNC(R4)
1105 004132 000261 SEC ;SHOW FAILURE
1106 004134 ENDPROC
1107 .DSABL LSB
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 35
DMERR - DUMP ERROR ROUTINES
1109 ;======================================================================;
1110 ; ;
1111 ; DMLLE - LOGICAL LINK I/O ERROR ;
1112 ; ;
1113 ;======================================================================;
1114 .ENABL LSB
1115 004136 PROCLC DMLLE
1116 004136 ONCASE ; ERROR CODE
1117 004136 016400 000010 MOV C.RET(R4),R0 ;GET ERROR CODE
1118 004142 CASE ; REMOTE NODE NAME
1119 004142 FALSE NE R0,#CE$NOD
1120 004150 DO
1121 004150 012700 177764 MOV #NE$SER,R0 ;INVALID SERVER ID
1122 004154 CASE ; REMOTE OBJECT
1123 004156 FALSE NE R0,#CE$OBJ
1124 004164 DO
1125 004164 012700 177753 MOV #NE$NIC,R0 ;NICE PROCESS UNAVAILABLE
1126 004170 CASE ; REJECTED
1127 004172 FALSE NE R0,#CE$REJ
1128 004200 DO
1129 004200 012700 177761 MOV #NE$RES,R0 ;RESOURCE ERROR
1130 004204 ELSE
1131 004206 012700 177755 MOV #NE$NCO,R0 ;NETWORK COMMUNICATION ERROR
1132 004212 ENDCASE
1133 004212 010065 000060 MOV R0,X.ERR(R5) ;SET ERROR CODE IN CONTEXT
1134 004216 012765 177772 000046 MOV #-ABORT,X.STAT(R5) ;STATE <- 6
1135 004224 112764 000200 000006 MOVB #C$PROC,C.FUNC(R4)
1136 004232 000261 SEC ;SHOW FAILURE
1137 004234 ENDPROC
1138 .DSABL LSB
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 36
DMERR - DUMP ERROR ROUTINES
1140 ;======================================================================;
1141 ; ;
1142 ; DMFMTE - MESSAGE FORMAT ERROR
1143 ; ;
1144 ;======================================================================;
1145 .ENABL LSB
1146 004236 PROCLC DMFMTE
1147 004236 012765 177776 000060 MOV #NE$FOR,X.ERR(R5) ;SET MESSAGE FORMAT ERROR
1148 004244 012765 177772 000046 MOV #-ABORT,X.STAT(R5) ;STATE <- 6
1149 004252 112764 000200 000006 MOVB #C$PROC,C.FUNC(R4)
1150 004260 000261 SEC ;SHOW FAILURE
1151 004262 ENDPROC
1152 .DSABL LSB
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 37
DMERR - DUMP ERROR ROUTINES
1154 ;======================================================================;
1155 ; ;
1156 ; DMFUNE - FUNCTION CODE ERROR
1157 ; ;
1158 ;======================================================================;
1159 .ENABL LSB
1160 004264 PROCLC DMFUNE
1161 004264 012765 177777 000060 MOV #NE$FUN,X.ERR(R5) ;SET FUNCION CODE ERROR
1162 004272 012765 177772 000046 MOV #-ABORT,X.STAT(R5) ;STATE <- 6
1163 004300 112764 000200 000006 MOVB #C$PROC,C.FUNC(R4)
1164 004306 000261 SEC ;SHOW FAILURE
1165 004310 ENDPROC
1166 .DSABL LSB
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 38
DMGENE - GENERAL ERROR
1168 .SBTTL DMGENE - GENERAL ERROR
1169 ;======================================================================;
1170 ; ;
1171 ; DMGENE - GENERAL ERROR ;
1172 ; ;
1173 ;======================================================================;
1174 .ENABL LSB
1175 004312 PROCLC DMGENE
1176 004312 010065 000060 MOV R0,X.ERR(R5) ;SET ERROR
1177 004316 012765 177772 000046 MOV #-ABORT,X.STAT(R5) ;STATE <- 6
1178 004324 112764 000200 000006 MOVB #C$PROC,C.FUNC(R4)
1179 004332 000261 SEC
1180 004334 ENDPROC
1181 .DSABL LSB
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 39
DMFLAB - FORMAT LABEL BLOCK
1183 .SBTTL DMFLAB - FORMAT LABEL BLOCK
1184 ;======================================================================;
1185 ; ;
1186 ; DMFLAB - FORMAT THE LABEL BLOCK FOR THE DUMP FILE ;
1187 ; ;
1188 ;======================================================================;
1189 ;
1190 ; EXTERNAL MACROS
1191 ;
1192 .MCALL PROC,CONDF,DMXB,LBLDF$,SAVSTK,RESSTK,GTIM$S
1193 004336 CONDF ;DEFINE CONTROL BLOCK SYMBOLS
1194 004336 DMXB ;DEFINE DUMP CONTEXT BLOCK SYMBOLS
1195 004336 LBLDF$ ;DEFINE LABEL BLOCK SYMBOLS
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 40
DMFLAB - FORMAT LABEL BLOCK
1197 ;
1198 ; READ-ONLY CONSTANTS
1199 ;
1200 004336 015430 DMP.: .RAD50 /DMP/
1201 004340 166600 CPU.: .RAD50 /8 / ;PDP-8
1202 004342 143230 .RAD50 /11 / ;PDP-11
1203 004344 143160 .RAD50 /10 / ;SYSTEM-10 OR -20
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 41
DMFLAB - FORMAT LABEL BLOCK
1205 ;======================================================================;
1206 ; ;
1207 ; INPUTS: R5 -> CONTEXT BLOCK ;
1208 ; X.DBUF -> 512-BYTE LABEL BLOCK ON A WORD BOUNDARY;
1209 ; R4 -> CONTROL BLOCK ;
1210 ; ;
1211 ; OUTPUTS: ON EXIT THE LABEL BLOCK WILL BE FORMATTED ACCORDING TO ;
1212 ; THE PARAMETERS IN THE CONTEXT BLOCK: ;
1213 ; X.ADDR - BASE ADDRESS OF DUMP ;
1214 ; X.CNT - NUMBER OF MEMORY LOCATIONS IN DUMP ;
1215 ; X.CPU - CPU TYPE OF DUMPED UNIT ;
1216 ; ;
1217 ; PRESERVES ALL REGISTERS ;
1218 ; ;
1219 ;======================================================================;
1220 004346 PROCLC DMFLAB
1221 004346 SAVSTK <R0,R1,R3>
1222 004354 016503 000014 MOV X.DBUF(R5),R3 ;ADDRESS LABEL BLOCK
1223 004360 016723 177752 MOV DMP.,(R3)+ ;SET TASK NAME START TO "DMP"
1224 004364 116501 000030 MOVB X.CPU(R5),R1 ;MOVE IN
1225 004370 006301 ASL R1 ; DESCRIPTION
1226 004372 016123 004340' MOV CPU.(R1),(R3)+ ; OF CPU TYPE
1227 004376 005023 CLR (R3)+ ;ZERO OUT
1228 004400 005023 CLR (R3)+ ; PARTITION NAME
1229 004402 016523 000004 MOV X.ADDR(R5),(R3)+ ;MOVE IN LOW-ORDER BASE ADDRESS
1230 004406 005000 CLR R0
1231 004410 016513 000004 MOV X.ADDR(R5),(R3) ;CALCULATE LOW-ORDER
1232 004414 066513 000010 ADD X.CNT(R5),(R3) ; PART OF
1233 004420 005500 ADC R0 ; END OF DUMP
1234 004422 162723 000001 SUB #1,(R3)+ ; ADDRESS
1235 004426 005600 SBC R0
1236 004430 016513 000006 MOV X.ADDR+2(R5),(R3) ;CALCULATE
1237 004434 066513 000012 ADD X.CNT+2(R5),(R3) ; THE HIGH-
1238 004440 060023 ADD R0,(R3)+ ; ORDER PART
1239 004442 016500 000012 MOV X.CNT+2(R5),R0
1240 004446 016501 000010 MOV X.CNT(R5),R1
1241 004452 062701 000077 ADD #63.,R1 ;DIVIDE LOW-ORDER COUNT
1242 004456 072127 177772 ASH #-6,R1 ; BY 100(8) (ROUNDING UP)
1243 004462 000300 SWAB R0 ;MULTIPLY HIGH-ORDER
1244 004464 072027 000002 ASH #2,R0 ; COUNT BY .01(8)
1245 004470 050100 BIS R1,R0 ;MERGE COUNT PARTS
1246 004472 010023 MOV R0,(R3)+ ;MOVE INTO
1247 004474 010023 MOV R0,(R3)+ ; LABEL BLOCK
1248 004476 016523 000006 MOV X.ADDR+2(R5),(R3)+ ;MOVE IN HIGH-ORDER BASE ADDRESS
1249 004502 005023 CLR (R3)+
1250 004504 005023 CLR (R3)+
1251 004506 012723 040000 MOV #TS$NHD,(R3)+ ;MOVE IN FLAGS WORD
1252 004512 GTIM$S R3 ;SET DATE FIELD
1253 004522 062703 000006 ADD #6,R3 ;BUMP PAST DATE
1254 004526 012700 000360 MOV #240.,R0
1255 004532 010301 MOV R3,R1 ;CLEAR
1256 004534 005021 1$: CLR (R1)+ ; THE REST
1257 004536 005300 DEC R0 ; OF THE
1258 004540 001375 BNE 1$ ; BLOCK
1259 004542 016503 000014 MOV X.DBUF(R5),R3 ;ADDRESS THE LABEL BLOCK AGAIN
1260 004546 005363 000350 DEC L$BXFR(R3) ;SET THE TRANSFER ADDRESS TO -1
1261 004552 005263 000360 INC L$BBLK(R3) ;SET # OF LBL BLKS=1 (THIS ONE)
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 41-1
DMFLAB - FORMAT LABEL BLOCK
1262 004556 RESSTK <R3,R1,R0>
1263 004564 ENDPROC
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 42
DMPARS - GET DUMP PARAMETERS
1265 .SBTTL DMPARS - GET DUMP PARAMETERS
1266 ;======================================================================;
1267 ; ;
1268 ; DMPARS - GET DUMP PARAMETERS ;
1269 ; ;
1270 ;======================================================================;
1271 ;
1272 ; EXTERNAL MACROS
1273 ;
1274 .MCALL PROC,SAVSTK,RESSTK,DMXB,CNFDF,CONDF,NICDF,NMBLK$
1275 004566 DMXB ;DEFINE DUMP CONTEXT BLOCK SYMBOLS
1276 004566 CNFDF ;DEFINE CONFIGURATION DATABASE SYMBOLS
1277 004566 CONDF ;DEFINE CONTROL BLOCK SYMBOLS
1278 004566 NICDF ;DEFINE NICE SYMBOLS
1279 ;
1280 ; LOCAL MACROS
1281 ;
1282 .MACRO FMTERR ?X
1283 BCC X
1284 CALL DMFMTE
1285 X:
1286 .ENDM
1287 ;
1288 ; LOCAL SYMBOLS
1289 ;
1290 020040 BLANKS = 20040 ;TWO BLANKS
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 43
DMPARS - GET DUMP PARAMETERS
1292 ;======================================================================;
1293 ; ;
1294 ; INPUTS: R5 -> CONTEXT BLOCK ;
1295 ; X.LLBF -> "UP-LINE DUMP" NICE MESSAGE ;
1296 ; X.LLEN = LENGTH OF NICE MESSAGE ;
1297 ; ;
1298 ; OUTPUTS: ON EXIT, THE CONTEXT BLOCK WILL CONTAIN THE NICE ;
1299 ; MESSAGE INFORMATION. ;
1300 ; ;
1301 ; C-BIT CLEAR IF SUCCESS ;
1302 ; SET IF FAILURE ;
1303 ; ;
1304 ; PRESERVES ALL REGISTERS ;
1305 ; ;
1306 ;======================================================================;
1307 004566 PROCLC DMPARS
1308 004566 SAVSTK <R0,R1,R2,R3>
1309 004576 016502 000022 MOV X.LLBF(R5),R2 ;ADDRESS NICE MESSAGE
1310 004602 010203 MOV R2,R3 ;CALCULATE END
1311 004604 066503 000024 ADD X.LLEN(R5),R3 ; OF MESSAGE
1312 004610 005202 INC R2 ;INCREMENT PAST FUNCTION CODE
1313 ;
1314 004612 CALL GTMSBY ;GET THE OPTION BYTE
1315 004616 IF ; SUCCESS
1316 004616 FALSE CS
1317 004620 THEN
1318 004620 IF ; BAD OPTION BITS SET
1319 004620 FALSEB CLEAR #BADBIT,R0
1320 004626 THEN
1321 004626 CALL DMFUNE ;INVALID FUNCTION SPECIFICATION
1322 004632 ENDIF
1323 004632 IF ; SUCCESS
1324 004632 FALSE CS
1325 004634 THEN
1326 004634 IF ; IDENTIFICATION BY NAME
1327 004634 TRUEB CLEAR #IDTYPE,R0
1328 004642 FALSEB SET #RESBIT,R0
1329 004650 THEN ; PICK UP NODE NAME TO DUMP
1330 004650 SAVSTK <R0>
1331 004652 012700 000006 MOV #NODLEN,R0 ;MOVE THE
1332 004656 010501 MOV R5,R1 ; IMAGE FIELD TO
1333 004660 062701 000062 ADD #X.TNODE,R1 ; CONTEXT BLOCK
1334 004664 CALL MVMSIM
1335 004670 FMTERR ;CATCH FORMAT ERROR
1336 004676 RESSTK <R0>
1337 004700 ELSE
1338 004702 IF ; IDENTIFICATION BY SERVER
1339 004702 FALSEB CLEAR #SRVINC,R0
1340 004710 THEN
1341 004710 000241 CLC ;SHOW SUCCESS
1342 004712 ELSE
1343 004714 CALL DMFUNE ;INVALID FUNCTION SPECIFICATION
1344 004720 ENDIF
1345 004720 ENDIF
1346 004720 ENDIF
1347 004720 ENDIF
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 44
DMPARS - GET DUMP PARAMETERS
1349 ;
1350 004720 IF ; SUCCESS
1351 004720 FALSE CS
1352 004722 THEN
1353 004722 IF ; SERVER INCLUDED IN NICE MESSAGE
1354 004722 FALSEB CLEAR #SRVINC,R0
1355 004730 THEN ; PICK UP SERVER SPECIFICATION FROM NICE MESSAGE
1356 004730 SAVSTK <R0>
1357 004732 012700 020040 MOV #BLANKS,R0
1358 004736 010065 000040 MOV R0,X.SNOD(R5) ;BLANK OUT
1359 004742 010065 000042 MOV R0,X.SNOD+2(R5) ; SERVER
1360 004746 010065 000044 MOV R0,X.SNOD+4(R5) ; NODE NAME
1361 004752 012700 000006 MOV #NODLEN,R0
1362 004756 010501 MOV R5,R1 ;MOVE THE
1363 004760 062701 000037 ADD #X.SIMG,R1 ; IMAGE FIELD TO
1364 004764 CALL MVMSIM ; CONTEXT BLOCK
1365 004770 FMTERR ;CATCH FORMAT ERROR
1366 004776 IF ; SUCCESS
1367 004776 FALSE CS
1368 005000 THEN
1369 005000 IF ; SERVER LINE-ID IN STANDARD LINE-ID FORMAT
1370 005000 FALSEB NE (R2)+,#LI$STA
1371 005006 THEN ; PICK UP SERVER LINE-ID
1372 005006 010501 MOV R5,R1
1373 005010 062701 000032 ADD #X.SLIN,R1
1374 005014 012700 000004 MOV #LINLEN-1,R0
1375 005020 CALL MVMSBY
1376 005024 FMTERR
1377 005032 ELSE
1378 005034 012700 177764 MOV #NE$SER,R0
1379 005040 CALL DMGENE
1380 005044 ENDIF
1381 005044 ENDIF
1382 005044 RESSTK <R0>
1383 005046 ELSE ; PICK UP SERVER SPECIFICATION FROM DATABASE
1384 005050 SAVSTK <R0,R2,R3> ;SAVE REGISTERS
1385 005056 012700 000062 MOV #X.TNODE,R0 ;OFFSET OF TARGET NODE NAME IN CONTEXT
1386 005062 005001 CLR R1
1387 005064 060500 ADD R5,R0 ;MAKE NAME OFFSET A POINTER
1388 005066 CALL CNFFND ;FIND CONFIGURATION ENTRY
1389 005072 IF ; SUCCESS
1390 005072 FALSE CS
1391 005074 THEN
1392 005074 012700 000004 MOV #SVNMAD,R0 ;OFFSET OF SERVER NAME ADDRESS IN D.B.
1393 005100 012702 000037 MOV #X.SIMG,R2 ;OFFSET OF SERVER NAME IN CONTEXT
1394 005104 SWCTXT ;SET R4 TO CONTEXT POINTER
1395 005110 CALL CNFMOV ;MOVE NAME FROM DATABASE TO CONTEXT
1396 005114 UNCTXT ;RESTORE R4
1397 005116 012700 000010 MOV #SVLNID,R0 ;OFFSET OF SERVER LINE ID IN DATABASE
1398 005122 060300 ADD R3,R0 ;MAKE IT SOURCE ADDRESS
1399 005124 012701 000004 MOV #LINLEN-1,R1 ;LENGTH OF LINE-ID
1400 005130 012702 000032 MOV #X.SLIN,R2 ;OFFSET OF SERVER LINE-ID IN CONTEXT
1401 005134 060502 ADD R5,R2 ;MAKE IT A DESTINATION ADDRESS
1402 005136 CALL MOVE ;MOVE SERVER LINE-ID FROM DB TO CONTEXT
1403 005142 000241 CLC ;SUCCESS SO FAR
1404 005144 ELSE
1405 005146 CALL DMGENE ;BOMB OUT ON BAD NODE NAME
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 44-1
DMPARS - GET DUMP PARAMETERS
1406 005152 ENDIF
1407 005152 RESSTK <R3,R2,R0> ;RESTORE REGISTERS
1408 005160 ENDIF
1409 005160 ENDIF
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 45
DMPARS - GET DUMP PARAMETERS
1411 ;
1412 005160 IF ; SUCCESS
1413 005160 FALSE CS
1414 005162 THEN
1415 005162 SAVSTK <R0> ;SAVE REGISTER
1416 005164 IF ; OUTPUT FILESPEC INCLUDED IN NICE MESSAGE
1417 005164 FALSEB CLEAR #FILINC,R0
1418 005172 THEN ; PICK UP OUTPUT FILESPEC FROM NICE MESSAGE
1419 005172 010501 MOV R5,R1
1420 005174 062701 000144 ADD #X.SPEC,R1
1421 005200 SAVSTK <R1>
1422 005202 012700 000037 MOV #31.,R0
1423 005206 CALL MVMSIM ;MOVE FILESPEC INTO CONTEXT BLOCK
1424 005212 RESSTK <R1>
1425 005214 FMTERR
1426 005222 ELSE ; PICK UP OUTPUT FILESPEC FROM DATABASE
1427 005224 SAVSTK <R2,R3> ;SAVE REGISTERS
1428 005230 012700 000037 MOV #X.SIMG,R0 ;OFFSET OF SERVER NODE NAME
1429 005234 060500 ADD R5,R0 ;MAKE SERVER NAME OFFSET A POINTER
1430 005236 012701 000032 MOV #X.SLIN,R1 ;OFFSET OF SERVER LINE-ID
1431 005242 060501 ADD R5,R1 ;MAKE SERVER LINE-ID OFFSET A POINTER
1432 005244 CALL CNFFND ;FIND CONFIGURATION ENTRY
1433 005250 IF ; SUCCESS
1434 005250 FALSE CS
1435 005252 THEN
1436 005252 012700 000030 MOV #DMFLAD,R0 ;OFFSET OF FILENAME ADDRESS IN DATABASE
1437 005256 012702 000144 MOV #X.SPEC,R2 ;OFFSET OF FILENAME IN CONTEXT
1438 005262 SWCTXT ;SET R4 TO CONTEXT POINTER
1439 005266 CALL CNFMOV ;MOVE FILENAME FROM DATABASE TO CONTEXT
1440 005272 UNCTXT ;RESTORE R4
1441 005274 000241 CLC ;SUCCESS SO FAR
1442 005276 ELSE
1443 005300 CALL DMGENE ;BOMB OUT ON BAD SERVER ID
1444 005304 ENDIF
1445 005304 IF ; SUCCESS
1446 005304 FALSE CS
1447 005306 THEN
1448 005306 012701 000144 MOV #X.SPEC,R1 ;GET CONTEXT ADDRESS OF FILESPEC
1449 005312 060501 ADD R5,R1
1450 005314 000241 CLC ;SHOW SUCCESS
1451 005316 ENDIF
1452 005316 RESSTK <R3,R2> ;RESTORE REGISTERS
1453 005322 ENDIF
1454 005322 IF ; SUCCESS
1455 005322 FALSE CS
1456 005324 THEN
1457 005324 010100 MOV R1,R0
1458 005326 111001 MOVB (R0),R1
1459 005330 005200 INC R0
1460 005332 SAVSTK <R2>
1461 005334 010502 MOV R5,R2
1462 005336 062702 000072 ADD #X.DSD,R2
1463 005342 CALL PARSFN ;PARSE THE FILESPEC INTO THE DSD
1464 005346 RESSTK <R2>
1465 005350 FMTERR
1466 005356 ENDIF
1467 005356 RESSTK <R0> ;RESTORE REGISTER
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 45-1
DMPARS - GET DUMP PARAMETERS
1468 005360 ENDIF
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 46
DMPARS - GET DUMP PARAMETERS
1470 ;
1471 005360 IF ; SUCCESS
1472 005360 FALSE CS
1473 005362 THEN
1474 005362 IF ; ADDRESS AND COUNT INCLUDED IN NICE MESSAGE
1475 005362 FALSEB CLEAR #ADCINC,R0
1476 005370 THEN ; PICK UP ADDRESS AND COUNT FROM NICE MESSAGE
1477 005370 012700 000010 MOV #8.,R0
1478 005374 010501 MOV R5,R1
1479 005376 062701 000004 ADD #X.ADDR,R1
1480 005402 CALL MVMSBY
1481 005406 FMTERR
1482 005414 ELSE ; PICK UP ADDRESS AND COUNT FROM DATABASE
1483 005416 CALL DMFUNE ;INVALID FUNCTION SPECIFICATION
1484 005422 ENDIF
1485 005422 ENDIF
1486 005422 IF ; SUCCESS
1487 005422 FALSE CS
1488 005424 THEN ; MOVE PROTOTYPE DFNB INTO CONTEXT BLOCK
1489 005424 012700 005460' MOV #PTDFNB,R0
1490 005430 010502 MOV R5,R2
1491 005432 062702 000106 ADD #X.DFNB,R2
1492 005436 012701 000036 MOV #X.SPEC-X.DFNB,R1
1493 005442 CALL MOVE
1494 005446 ENDIF
1495 005446 RESSTK <R3,R2,R1,R0>
1496 005456 ENDPROC
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 47
DMPARS - GET DUMP PARAMETERS
1498 ;======================================================================;
1499 ; ;
1500 ; PROTOTYPE DEFAULT FILENAME BLOCK ;
1501 ; ;
1502 ;======================================================================;
1503 ;
1504 005460 PTDFNB: NMBLK$ ,ULD,,SY,0
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 48
DMQIES - QUIESCE ALL I/O'S
1506 .SBTTL DMQIES - QUIESCE ALL I/O'S
1507 ;======================================================================;
1508 ; ;
1509 ; DMQIES - QUIESCE ALL I/O'S ;
1510 ; ;
1511 ; THIS MODULE IS CALLED FROM THE TOP OF A STATE WHICH DOES NOT WANT ;
1512 ; TO RUN UNLESS ALL I/O HAS CEASED. IF THERE IS ANY OPERATION STILL ;
1513 ; ACTIVE, THE MODULE WILL CHANGE THE STATE TO 99. STATE 99 WILL ;
1514 ; CALL THIS MODULE REPEATEDLY UNTIL ALL I/O OPERATIONS HAVE COMPLETED.;
1515 ; AT THIS TIME, CONTROL WILL BE TRANSFERRED BACK TO THE ORIGINAL ;
1516 ; STATE. IF THIS MODULE IS CALLED WITH NO I/O'S ACTIVE, IT WILL ;
1517 ; RETURN WITHOUT DOING ANYTHING. ;
1518 ; ;
1519 ;======================================================================;
1520 ;
1521 ; EXTERNAL MACROS
1522 ;
1523 .MCALL PROC,CONDF,DMXB
1524 005516 CONDF ;DEFINE CONTROL BLOCK SYMBOLS
1525 005516 DMXB ;DEFINE DUMP CONTEXT BLOCK SYMBOLS
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 49
DMQIES - QUIESCE ALL I/O'S
1527 005516 PROCLC DMQIES
1528 ;
1529 ; CLEAR ANY COMPLETED OPERATIONS
1530 ;
1531 005516 IF
1532 005516 FALSEB CLEAR #XF$DSC,X.FLGS(R5)
1533 005526 THEN
1534 005526 142765 000003 000031 BICB #XF$DSA+XF$DSC,X.FLGS(R5)
1535 005534 ENDIF
1536 005534 IF
1537 005534 FALSEB CLEAR #XF$LRC,X.FLGS(R5)
1538 005544 THEN
1539 005544 142765 000014 000031 BICB #XF$LRA+XF$LRC,X.FLGS(R5)
1540 005552 ENDIF
1541 005552 IF
1542 005552 FALSEB CLEAR #XF$LWC,X.FLGS(R5)
1543 005562 THEN
1544 005562 142765 000060 000031 BICB #XF$LWA+XF$LWC,X.FLGS(R5)
1545 005570 ENDIF
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 50
DMQIES - QUIESCE ALL I/O'S
1547 ;
1548 ; SET COMPLETION FOR CURRENT I/O (ONE POINTED TO BY CURRENT CB)
1549 ;
1550 005570 IF
1551 005570 FALSEB CLEAR C.RET(R4)
1552 005576 THEN
1553 005576 ONCASE ; TYPE OF I/O
1554 005576 116400 000006 MOVB C.FUNC(R4),R0
1555 005602 CASE
1556 005602 TRUE EQ R0,#C$CLLK
1557 005610 FALSE NE R0,#C$TRMS
1558 005616 DO
1559 005616 142765 000020 000031 BICB #XF$LWA,X.FLGS(R5)
1560 005624 CASE
1561 005626 FALSE NE R0,#C$RCMS
1562 005634 DO
1563 005634 142765 000004 000031 BICB #XF$LRA,X.FLGS(R5)
1564 005642 CASE
1565 005644 TRUE EQ R0,#C$CLFL
1566 005652 TRUE EQ R0,#C$STBK
1567 005660 FALSE NE R0,#C$WRBK
1568 005666 DO
1569 005666 142765 000001 000031 BICB #XF$DSA,X.FLGS(R5)
1570 005674 ENDCASE
1571 005674 ENDIF
1572 005674 IF ; EVERYTHING IS DONE
1573 005674 FALSEB SET #XF$DSA+XF$LRA+XF$LWA,X.FLGS(R5)
1574 005704 THEN ; RESTORE OLD STATE
1575 005704 000241 CLC ;SHOW SUCCESS
1576 005706 ELSE
1577 005710 005004 CLR R4
1578 005712 000261 SEC ;SHOW I/O STILL PENDING
1579 005714 ENDIF
1580 ;
1581 005714 ENDPROC
1582 000001 .END
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 50-1
SYMBOL TABLE
ABORT = 000006 C$OPIR= 000056 DMDUMP 000072RG FS$LST= 000001 F$STPS= 000006
ADCINC= 000010 C$OPLK= 000051 DMFLAB 004346R FS$NET= 000001 F$TEST= 000001
A$$CHK= 000000 C$OPLN= 000045 DMFLAD= 000030 FS$NST= 000000 F$TRAC= 000000
A$$CPS= 000000 C$OPOR= 000057 DMFMTE 004236R FS$PAS= 000001 F$TRBK= 000001
A$$TRP= 000000 C$OPOT= 000042 DMFUNE 004264R FT$CNS= 000000 F$TRIG= 000001
BADBIT= 000360 C$ORD = 000145 DMGENE 004312R FT$NOD= 000001 F$TRIN= 000000
BLANKS= 020040 C$PROC= 000200 DMIMGF 003566R FT$TSK= 000001 F$TRMA= 000000
BLCNBK= ****** GX C$RCBK= 000047 DMIMGR 003752R F$ALBF= 000001 F$TRMS= 000002
BTPSAD= 000024 C$RCEV= 000050 DMIMGW 003646R F$ALCB= 000001 F$WRBK= 000000
BUFSZ4= 001000 C$RCIN= 000062 DMLLE 004136R F$CB = 000017 F$WRCL= 000001
CE$ACP= 177753 C$RCMA= 000146 DMPARS 004566R F$CLCL= 000001 F$WRCM= 000000
CE$ADR= 177776 C$RCMS= 000054 DMP. 004336R F$CLCO= 000000 F$WRRC= 000000
CE$CON= 177770 C$RDBK= 000043 DMQIES 005516R F$CLFL= 000000 F$ZERO= 000001
CE$DIS= 177771 C$RDCM= 000035 DMRLNK 003540R F$CLLK= 000006 F$ZRCN= 000001
CE$EOF= 177767 C$RDIN= 000040 DMST01 000424R F$CLLN= 000002 F$$LVL= 000001
CE$FAI= 177774 C$RDIS= 000040 DMST02 000574R F$DPOS= 000001 F$150 = 000002
CE$FIL= 177756 C$RDRC= 000060 DMST03 001014R F$DUMP= 000000 F$300 = 000012
CE$FUN= 177777 C$RLBF= 000001 DMST04 001216R F$EVNT= 000001 F$50 = 000002
CE$GEN= 177774 C$RLCB= 000002 DMST05 001426R F$EXAM= 000001 F$550 = 000002
CE$IND= 177757 C$RLCI= 000000 DMST06 002540R F$EXHO= 000000 GTDKBF= 000142
CE$IO = 177760 C$STBK= 000055 DMST07 002636R F$GTCM= 000001 GTMSBY= ****** GX
CE$LEN= 177775 C$STPR= 000037 DMST08 003116R F$INCM= 000000 GTNXCB= 000001
CE$LID= 177766 C$STPS= 000037 DMST09 003016R F$INLU= 000001 G$$TPP= 000000
CE$LST= 177752 C$TRBK= 000046 DMST94 003436R F$IRLU= 000000 G$$TSS= 000000
CE$NOD= 177765 C$TRIN= 000063 DMST95 003416R F$LKLU= 000010 G$$TTK= 000000
CE$NSD= 177755 C$TRMA= 000145 DMST96 003370R F$LNLU= 000002 G.TICP= 000016
CE$NST= 177754 C$TRMS= 000053 DMST97 003320R F$LNSR= 000001 G.TICT= 000014
CE$NWE= 177773 C$WRBK= 000044 DMST98 000374R F$LOAD= 000000 G.TIDA= 000004
CE$OBJ= 177750 C$WRCL= 000065 DMXLNK 003506R F$LOGD= 000001 G.TIHR= 000006
CE$OPN= 177761 C$WRCM= 000036 DM$END= 000000 F$LOOP= 000001 G.TIMI= 000010
CE$OVR= 177764 C$WRRC= 000061 DM$MIM= 000002 F$NTCM= 000000 G.TIMO= 000002
CE$PAR= 177763 C$ZRCN= 000064 DM$PXA= 000003 F$OPCL= 000001 G.TISC= 000012
CE$PRO= 177751 C$$CKP= 000000 DM$SAD= 000001 F$OPCO= 000000 G.TIYR= 000000
CE$REJ= 177772 C$$ORE= 000400 D$$BUG= 177514 F$OPIN= 000000 IDTYPE= 000003
CE$TMO= 177762 C$$RSH= 177564 D$$ISK= 000000 F$OPIR= 000000 IMGSTA 002210R
CNFFND= ****** GX C.ADDR= 000014 D$$L11= 000001 F$OPLK= 000005 I$$RAR= 000000
CNFMOV= ****** GX C.BKNM= 000014 ENTLEN= 000034 F$OPLN= 000002 I$$RDN= 000000
CPU. 004340R C.CTXT= 000004 EODSTA 002436R F$OPLO= 000000 K$$CNT= 177546
CS$ACK= 000002 C.FUNC= 000006 FILINC= 000004 F$OPOR= 000000 K$$CSR= 177546
CS$LKE= 000001 C.LEN = 000012 FINISH= 000141 F$OPOT= 000000 K$$LDC= 000000
CS$LNA= 000002 C.LINE= 000014 FL$BOO= 000001 F$ORLU= 000000 K$$TPS= 000074
CS$LOG= 000003 C.LKNM= 000020 FL$DUM= 000001 F$OTLU= 000001 LDFLAD= 000014
CS$NCH= 000003 C.LUN = 000020 FL$LOA= 000001 F$RCBK= 000002 LDPRAD= 000020
CS$SUC= 000001 C.MODE= 000021 FL$LOO= 000001 F$RCEV= 000001 LD$ACC= 100000
C$ALBF= 000032 C.PRID= 000017 FR$LCC= 000001 F$RCIN= 000000 LD$LP = 000000
C$ALCB= 000033 C.PROC= 000007 FR$LCS= 000001 F$RCMA= 000000 LD$REL= 000004
C$CLCL= 000067 C.PROM= 000016 FR$LNC= 000001 F$RCMS= 000002 LD$RSV= 040000
C$CLCO= 000003 C.PTR = 000000 FR$LNL= 000001 F$RDBK= 000000 LINLEN= 000005
C$CLFL= 000004 C.RET = 000010 FR$LNS= 000001 F$RDCM= 000000 LI$KNO= 000000
C$CLLK= 000052 C.SAVE= 000022 FR$RMC= 000001 F$RDIN= 000001 LI$STA= 000001
C$CLLN= 000005 C.SERV= 000002 FR$RML= 000001 F$RDIS= 000012 LI$STR= 000002
C$LEN = 000026 C.TASK= 000016 FR$RMS= 000001 F$RDRC= 000000 LS$DUM= 000002
C$NOPN= 000031 C.TYPE= 000016 FS$HOS= 000001 F$RECO= 000001 LS$LOA= 000000
C$NORD= 000032 C.WAIT= 000020 FS$INT= 000000 F$RLBF= 000001 LS$LOO= 000001
C$OPCL= 000066 DMDLGE 004034R FS$LLP= 000001 F$RLCB= 000001 LS$TRI= 000004
C$OPCO= 000034 DMDSKE 004110R FS$LOF= 000001 F$STBK= 000000 LS$TRQ= 000003
C$OPIN= 000041 DMDSKW 003460R FS$LOG= 000001 F$STPR= 000001 L$BASG 001000
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 50-2
SYMBOL TABLE
L$BBLK 000360 NE$ORD= 177774 PT$END= 000000 SP$DTP= 000010 XF$LWC= 000040
L$BDAT 000032 NE$PAR= 177760 PT$HOS= 000003 SP$LHO= 000002 XF$SAD= 000200
L$BEXT 000352 NE$RES= 177761 PT$NAM= 000001 SP$LLP= 000011 XMSPRD= 000004
L$BFLG 000030 NE$SER= 177764 PT$NUM= 000002 SP$LNM= 000016 X$LEN = 000204
L$BHGV 000012 NE$STA= 177775 P$DPOS= 000016 SP$LNO= 000015 X$$DBT= 000000
L$BHRB 000356 NL$BRC= 000001 P$DUMP= 000003 SP$LOF= 000012 X.ADDR= 000004
L$BLDZ 000016 NL$BTR= 000002 P$EVNT= 000011 SP$LST= 000001 X.CB = 000000
L$BLIB 000040 NL$RES= 000005 P$EXAM= 000017 SP$NDM= 000014 X.CB2 = 000002
L$BLUN 000362 NL$RLE= 000004 P$GTCM= 000001 SP$NDO= 000013 X.CNT = 000010
L$BMXV 000014 NL$RTR= 000003 P$INCM= 000015 SP$NST= 000006 X.CPU = 000030
L$BMXZ 000020 NL$TMO= 000006 P$LNSR= 000004 SP$RRP= 000004 X.DBUF= 000014
L$BOFF 000022 NL$ZRO= 000000 P$LOAD= 000002 SP$RTP= 000005 X.DFIL= 000020
L$BPAR 000004 NN$CAC= 000011 P$LOGD= 000020 SRVINC= 000002 X.DFNB 000106
L$BPRI 000346 NN$CNI= 000013 P$LOOP= 000005 STATAB 000000R X.DLEN= 000016
L$BSA 000010 NN$CNR= 000014 P$NTCM= 000014 ST$DIS= 000006 X.DLUN= 000054
L$BSEG 000026 NN$EXT= 000003 P$RDIN= 000010 ST$ENA= 000005 X.DSD 000072
L$BSGL 000354 NN$FMT= 000005 P$STPR= 000007 ST$LOO= 000003 X.ERR = 000060
L$BTSK 000000 NN$IZS= 000007 P$TEST= 000006 ST$MAI= 000004 X.FLGS= 000031
L$BWND 000024 NN$IZU= 000010 P$TRIG= 000012 ST$OFF= 000001 X.LKNM= 000050
L$BXFR 000350 NN$MAC= 000012 P$ZERO= 000013 ST$ON = 000000 X.LLBF= 000022
L$$ASG= 000000 NN$NKS= 000004 P$$P45= 000000 ST$SHU= 000002 X.LLEN= 000024
L$$DRV= 000000 NN$RES= 000006 RESBIT= 000001 SVLNID= 000010 X.LLPR= 000026
L$$P11= 000001 NN$UMR= 000002 RI$LCC= 000001 SVNMAD= 000004 X.LLUN= 000052
L$$11R= 000000 NN$UMS= 000001 RI$LCS= 000002 S$$WRG= 000000 X.OSTE= 000056
MOVE = ****** GX NN$ZRO= 000000 RI$LNC= 000007 S$$YSZ= 001600 X.SIMG= 000037
MVMSBY= ****** GX NO = 000000 RI$LNL= 000006 S.FNAM= 000006 X.SLIN= 000032
MVMSIM= ****** GX NODLEN= 000006 RI$LNS= 000010 S.FNB = 000036 X.SNOD= 000040
M$$CRB= 000124 NS$SUC= 000001 RI$RMC= 000004 S.FNBW= 000017 X.SPEC 000144
M$$CRX= 000000 N$DPOS= 000014 RI$RML= 000003 S.FNTY= 000004 X.STAT= 000046
M$$FCS= 000000 N$DUMP= 000003 RI$RMS= 000005 S.FTYP= 000002 X.TNOD 000062
M$$OVR= 000000 N$EXAM= 000015 RI$ZLC= 000011 S.NFEN= 000020 YES = 000001
ND$BAD= 177777 N$LNSR= 000016 RI$ZLN= 000013 TGNMAD= 000000 $$CSTA= 000000
ND$LCC= 000000 N$LOAD= 000002 RI$ZRM= 000012 TS$ACP= 020000 $$PRST= 000015
ND$LCS= 000001 N$LOGD= 000001 R$LDAT 000026 TS$CHK= 000100 $$STIX= 000777
ND$LNC= 000004 N$LOOP= 000005 R$LFLG 000024 TS$CMP= 000200 $$STNM= 000000
ND$LNS= 000005 N$RDIN= 000010 R$LHGV 000006 TS$NET= 001000 $$S764= 000077
ND$RMC= 000002 N$STPR= 000007 R$LLDZ 000012 TS$NHD= 040000 $$S765= 000023
ND$RMS= 000003 N$TEST= 000006 R$LMXV 000010 TS$NSD= 002000 $$S766= 000077
ND$ZLC= 000000 N$TRIG= 000004 R$LMXZ 000014 TS$PIC= 100000 $$S767= 000021
ND$ZLN= 000002 N$ZERO= 000011 R$LNAM 000000 TS$PMD= 010000 $$S770= 000077
ND$ZRM= 000001 N$$USR= 000001 R$LOFF 000016 TS$PRV= 000400 $$S771= 000017
NE$CON= 177762 N.DID = 000024 R$LSA 000004 TS$RES= 000040 $$S772= 000011
NE$FIL= 177763 N.DVNM= 000032 R$LSEG 000022 TS$SLV= 004000 $$S773= 000000
NE$FIO= 177756 N.FID = 000000 R$LSIZ 000034 T$$KMG= 000000 $$S774= 000077
NE$FOR= 177776 N.FNAM= 000006 R$LWND 000020 T$$MIN= 000000 $$S775= 000013
NE$FUN= 177777 N.FTYP= 000014 R$$DER= 000000 V$$CTR= 001000 $$S776= 000000
NE$LCO= 177766 N.FVER= 000016 R$$K11= 000001 WDUMLB= 000003 $$S777= 000000
NE$LID= 177770 N.MLEN= 000454 R$$SND= 000000 XF$DSA= 000001 $$TRNM= 000000
NE$LPR= 177757 N.NEXT= 000022 R$$11M= 000000 XF$DSC= 000002 $$$OST= 000020
NE$LST= 177767 N.STAT= 000020 SADSTA 002346R XF$EOD= 000100 ...PC1= 000000
NE$NCO= 177755 N.UNIT= 000034 SPRAY = ****** GX XF$LRA= 000004 ...PC2= 005514R
NE$NIC= 177753 ODFSLL= 000002 SP$DHO= 000003 XF$LRC= 000010 ...PC3= 000000
NE$NOD= 177765 PARSFN= ****** GX SP$DRP= 000007 XF$LWA= 000020 ...TPC= 000036
NE$NOR= 177754 PTDFNB 005460R
. ABS. 001000 000
005716 001
DMDUMP MACRO M1110 13-OCT-79 11:30 PAGE 50-3
SYMBOL TABLE
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 12609 WORDS ( 50 PAGES)
DYNAMIC MEMORY: 14284 WORDS ( 54 PAGES)
ELAPSED TIME: 00:05:56
DMDUMP,[135,30]DMDUMP/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,DMDUMP
DMDUMP CREATED BY MACRO ON 13-OCT-79 AT 11:33 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
ABORT = 000006 33-1089 34-1103 35-1134 36-1148 37-1162 38-1177
ADCINC = 000010 46-1475
BADBIT = 000360 43-1319
BLANKS = 020040 #42-1290 44-1357
BLCNBK = ****** GX 9-214
BUFSZ4 = 001000 7-125
CE$NOD = 177765 35-1119
CE$OBJ = 177750 35-1123
CE$REJ = 177772 35-1127
CNFFND = ****** GX 44-1388 45-1432
CNFMOV = ****** GX 44-1395 45-1439
CPU. 004340 R #40-1201 41-1226
C$ALBF = 000032 7-110 7-113
C$ALCB = 000033 8-173
C$CLFL = 000004 23-796 50-1565
C$CLLK = 000052 23-805 50-1556
C$LEN = 000026 9-196
C$OPLK = 000051 9-216
C$OPOT = 000042 9-203 10-241 10-257
C$PROC = 000200 7-105 7-132 12-401 15-527 15-551 18-619 19-643 22-762 23-824
33-1090 34-1104 35-1135 36-1149 37-1163 38-1178
C$RCMS = 000054 12-360 12-374 13-425 28-946 50-1561
C$RLBF = 000001 7-129 24-857
C$RLCB = 000002 24-845
C$STBK = 000055 21-725 50-1566
C$TRMS = 000053 27-927 50-1557
C$WRBK = 000044 14-497 26-907 50-1567
C.ADDR = 000014 7-107 7-115 8-172 9-185 *9-201 *9-202 *9-212 *24-844 *24-856
*24-865 *24-874 *26-904 *27-923 *28-943
C.BKNM = 000014 *21-723
C.CTXT = 000004 7-101 *7-116 *7-133 7-139 9-215 *24-875
C.FUNC = 000006 7-105 *7-110 7-113 7-129 *7-132 *8-173 *9-203 *9-216 10-241
10-257 12-360 12-374 *12-401 13-425 14-497 *15-527 *15-551 *18-619
*19-643 *21-725 *22-762 *23-796 *23-805 *23-824 *24-845 *24-857 *26-907
*27-927 *28-946 *33-1090 *34-1104 *35-1135 *36-1149 *37-1163 *38-1178 50-1554
C.LEN = 000012 7-108 *7-109 *7-125 17-580 *26-905 *27-924 *28-944
C.LKNM = 000020 7-124 10-262 *21-713 *23-804 *24-873 *26-906 *27-926 *28-945
C.LUN = 000020 10-259 *21-724 *23-795
C.PROC = 000007 *7-131
C.RET = 000010 10-238 *10-255 11-295 *11-304 12-357 *12-368 13-432 *13-436 14-504
*14-508 23-782 *23-786 35-1117 50-1551
C.SAVE = 000022 *7-107 *7-108 7-122 7-123
DMDLGE 004034 R 12-380 13-446 13-453 18-622 19-636 #33-1076
DMDSKE 004110 R 10-244 11-297 14-506 23-784 #34-1101
DMDSKW 003460 R 10-273 22-760 #26-902 30-1019
DMDUMP 000072 RG #6-97
DMFLAB 004346 R 22-756 #41-1220
DMFLAD = 000030 45-1436
DMFMTE 004236 R #36-1146 43-1335 44-1365 44-1376 45-1425 45-1465 46-1481
DMFUNE 004264 R #37-1160 43-1321 43-1343 46-1483
DMGENE 004312 R #38-1175 44-1379 44-1405 45-1443
DMIMGF 003566 R 15-520 17-583 #29-964
DMDUMP CREATED BY MACRO ON 13-OCT-79 AT 11:33 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
DMIMGR 003752 R 15-530 17-585 #31-1044
DMIMGW 003646 R 15-521 17-584 19-629 #30-1004
DMLLE 004136 R 10-247 12-366 13-434 #35-1115
DMPARS 004566 R 9-186 #43-1307
DMP. 004336 R #40-1200 41-1223
DMQIES 005516 R 20-663 21-698 22-747 24-839 #49-1527
DMRLNK 003540 R 11-329 16-569 #28-941 31-1055
DMST01 000424 R 5-85 #9-184
DMST02 000574 R 5-86 #10-233
DMST03 001014 R 5-87 #11-290
DMST04 001216 R 5-88 #12-352
DMST05 001426 R 5-89 #13-420
DMST06 002540 R 5-90 #20-659
DMST07 002636 R 5-91 #21-693
DMST08 003116 R 5-92 #23-777
DMST09 003016 R 5-93 #22-743
DMST94 003436 R 5-80 #24-872
DMST95 003416 R 5-81 #24-864
DMST96 003370 R 5-82 #24-855
DMST97 003320 R 5-83 #24-835
DMST98 000374 R 5-84 #8-171
DMXLNK 003506 R 11-322 20-677 21-712 #27-921
DM$MIM = 000002 13-451 14-468
DM$SAD = 000001 13-442 14-475
EODSTA 002436 R 14-483 #19-627
FILINC = 000004 45-1417
F$TRAC = 000000 6-97 6-97 7-165 7-165 8-171 8-171 8-176 8-176 9-184
9-184 9-225 9-225 10-233 10-233 10-283 10-283 11-290 11-290
11-344 11-344 12-352 12-352 12-412 12-412 13-420 13-420 16-574
16-574 17-576 17-576 17-602 17-602 18-604 18-604 18-625 18-625
19-627 19-627 19-648 19-648 20-659 20-659 20-685 20-685 21-693
21-693 21-735 21-735 22-743 22-743 22-770 22-770 23-777 23-777
23-827 23-827 24-835 24-835 24-851 24-851 24-855 24-855 24-860
24-860 24-864 24-864 24-868 24-868 24-872 24-872 24-877 24-877
26-902 26-902 26-908 26-908 27-921 27-921 27-928 27-928 28-941
28-941 28-947 28-947 29-964 29-964 29-986 29-986 30-1004 30-1004
30-1027 30-1027 31-1044 31-1044 31-1060 31-1060 33-1076 33-1076 33-1092
33-1092 34-1101 34-1101 34-1106 34-1106 35-1115 35-1115 35-1137 35-1137
36-1146 36-1146 36-1151 36-1151 37-1160 37-1160 37-1165 37-1165 38-1175
38-1175 38-1180 38-1180 41-1220 41-1220 41-1263 41-1263 43-1307 43-1307
46-1496 46-1496 49-1527 49-1527 50-1581 50-1581
GTDKBF = 000142 5-84 7-126
GTMSBY = ****** GX 43-1314
GTNXCB = 000001 5-85 8-174
G.TIYR = 000000 41-1252
IDTYPE = 000003 43-1327
IMGSTA 002210 R 14-473 #17-576
I$$AS = ****** 6-97 8-171 9-184 10-233 11-290 12-352 13-420 17-576 18-604
19-627 20-659 21-693 22-743 23-777 24-835 24-855 24-864 24-872
26-902 27-921 28-941 29-964 30-1004 31-1044 33-1076 34-1101 35-1115
36-1146 37-1160 38-1175 41-1220 43-1307 49-1527
LINLEN = 000005 11-310 44-1374 44-1399
DMDUMP CREATED BY MACRO ON 13-OCT-79 AT 11:33 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
LI$STA = 000001 11-307 44-1370
LS$DUM = 000002 11-306
L$BBLK 000360 *41-1261
L$BXFR 000350 *41-1260
MOVE = ****** GX 9-197 11-311 11-315 29-984 44-1402 46-1493
MVMSBY = ****** GX 44-1375 46-1480
MVMSIM = ****** GX 43-1334 44-1364 45-1423
NE$FIO = 177756 34-1102
NE$FOR = 177776 36-1147
NE$FUN = 177777 37-1161
NE$NCO = 177755 35-1131
NE$NIC = 177753 35-1125
NE$ORD = 177774 33-1085
NE$RES = 177761 35-1129
NE$SER = 177764 35-1121 44-1378
NODLEN = 000006 43-1331 44-1361
N$LNSR = 000016 11-306
N.DVNM = 000032 47-1504
N.FNAM = 000006 47-1504
N.FTYP = 000014 47-1504
N.MLEN = 000454 11-328 16-567 31-1053
N.UNIT = 000034 47-1504
ODFSLL = 000002 5-86 9-222 10-277
PARSFN = ****** GX 45-1463
PTDFNB 005460 R 46-1489 #47-1504
P$GTCM = 000001 7-131
RESBIT = 000001 43-1328
R$$11D = ****** 6-97 8-171 9-184 10-233 11-290 12-352 13-420 17-576 18-604
19-627 20-659 21-693 22-743 23-777 24-835 24-855 24-864 24-872
26-902 27-921 28-941 29-964 30-1004 31-1044 33-1076 34-1101 35-1115
36-1146 37-1160 38-1175 41-1220 43-1307 49-1527
R$$11M = 000000 6-97 8-171 9-184 10-233 11-290 12-352 13-420 17-576 18-604
19-627 20-659 21-693 22-743 23-777 24-835 24-855 24-864 24-872
26-902 27-921 28-941 29-964 30-1004 31-1044 33-1076 34-1101 35-1115
36-1146 37-1160 38-1175 41-1220 43-1307 49-1527
SADSTA 002346 R 14-477 #18-604
SPRAY = ****** GX 7-120
SRVINC = 000002 43-1339 44-1354
STATAB 000000 R #5-79 7-142
SVLNID = 000010 44-1397
SVNMAD = 000004 44-1392
S.FNAM = 000006 47-1504 47-1504
S.FNB = 000036 47-1504
S.FTYP = 000002 47-1504 47-1504
TS$NHD = 040000 41-1251
WDUMLB = 000003 5-87 10-274
XF$DSA = 000001 9-204 10-269 14-469 14-496 15-533 17-587 19-635 19-640 21-726
23-797 23-808 23-814 30-1020 49-1534 50-1569 50-1573
XF$DSC = 000002 10-243 10-260 10-267 10-269 14-470 14-499 15-534 17-588 19-641
30-1021 49-1532 49-1534
XF$EOD = 000100 15-523 15-525 15-548 19-628 21-697 30-1008 31-1049
XF$LRA = 000004 11-330 12-399 13-424 15-538 16-565 17-592 31-1056 49-1539 50-1563
DMDUMP CREATED BY MACRO ON 13-OCT-79 AT 11:33 PAGE 4
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
50-1573
XF$LRC = 000010 12-362 12-376 12-393 12-399 13-430 15-517 15-539 17-593 31-1057
49-1537 49-1539
XF$LWA = 000020 9-217 10-269 11-330 12-399 20-678 21-714 23-806 23-819 49-1544
50-1559 50-1573
XF$LWC = 000040 10-246 10-263 10-266 10-269 12-364 12-385 12-393 12-399 49-1542
49-1544
XF$SAD = 000200 12-400 13-439 18-605
XMSPRD = 000004 5-88 11-341
X$LEN = 000204 7-109 7-119
X.ADDR = 000004 11-313 18-609 41-1229 41-1231 41-1236 41-1248 46-1479
X.CB = 000000 *7-121 8-175 9-221 9-224 10-270 10-275 11-340 11-343 15-536
17-590 20-676 20-680 21-722 22-751 23-794 23-810 23-816 23-823
24-843 30-1010 30-1018
X.CB2 = 000002 *9-185 9-194 9-209 9-221 11-326 11-340 15-541 15-544 16-568
17-579 17-595 17-598 21-711 21-727 23-803 23-821 24-844 31-1054
X.CNT = 000010 41-1232 41-1237 41-1239 41-1240
X.CPU = 000030 *17-578 41-1224
X.DBUF = 000014 *8-172 10-271 11-305 11-319 11-321 11-335 22-758 24-856 30-1014
41-1222 41-1259
X.DFIL = 000020 *11-335 29-982 *29-983 *30-1015
X.DFNB 000106 46-1491 46-1492
X.DLEN = 000016 *11-334 29-969 *29-978 30-1007 30-1012 30-1016 *30-1017
X.DLUN = 000054 *10-259 21-717 21-724 22-754 23-792 23-795 26-906
X.DSD 000072 9-202 45-1462
X.ERR = 000060 20-670 21-702 21-716 22-753 *33-1088 *34-1102 *35-1133 *36-1147 *37-1161
*38-1176
X.FLGS = 000031 *9-204 *9-217 *10-243 *10-246 *10-260 *10-263 10-266 10-267 *10-269
*11-330 *12-362 *12-364 *12-376 *12-385 12-392 *12-399 *12-400 13-424
*13-430 13-439 14-469 14-470 14-496 *14-499 15-517 15-523 *15-525
15-533 15-534 15-538 15-539 15-548 *16-565 17-587 17-588 17-592
17-593 *18-605 *19-628 *19-635 19-640 19-641 *20-678 *21-697 *21-714
*21-726 *23-797 *23-806 23-808 23-814 23-819 30-1008 *30-1020 *30-1021
31-1049 *31-1056 *31-1057 49-1532 *49-1534 49-1537 *49-1539 49-1542 *49-1544
*50-1559 *50-1563 *50-1569 50-1573
X.LKNM = 000050 *7-124 21-713 24-873
X.LLBF = 000022 *7-122 9-212 11-327 11-336 12-378 13-437 16-566 19-630 20-671
20-674 21-708 24-865 31-1051 33-1078 43-1309
X.LLEN = 000024 *7-123 15-518 *17-580 *17-581 *27-925 29-971 29-973 *29-979 31-1048
43-1311
X.LLPR = 000026 *11-336 *17-582 29-980 *29-981 *31-1052
X.LLUN = 000052 *10-262 23-801 23-804 27-926 28-945
X.SIMG = 000037 9-211 44-1363 44-1393 45-1428
X.SLIN = 000032 11-309 44-1373 44-1400 45-1430
X.SNOD = 000040 *44-1358 *44-1359 *44-1360
X.SPEC 000144 45-1420 45-1437 45-1448 46-1492
X.STAT = 000046 *7-126 *7-140 7-148 *8-174 *9-222 *10-274 *10-277 *11-341 *12-402
*12-405 *14-485 *15-526 *15-529 *15-550 *15-554 *16-570 *17-600 *18-620
*19-638 *20-679 *20-682 *21-730 *21-732 *22-765 *22-767 *23-799 *24-846
*24-848 *24-858 *24-866 33-1080 *33-1089 *34-1103 *35-1134 *36-1148 *37-1162
*38-1177
X.TNOD 000062 43-1333 44-1385
DMDUMP CREATED BY MACRO ON 13-OCT-79 AT 11:33 PAGE 5
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
$$CSTA = 000000 #6-97 7-103 #7-103 7-104 #7-104 7-112 7-128 #7-135 #8-171
#9-184 #10-233 #11-290 #12-352 #13-420 13-421 #13-421 13-423 #13-423
14-465 #14-465 14-467 #14-467 14-474 14-480 #14-487 14-495 15-515
#15-515 15-516 #15-516 15-547 #15-556 #16-572 #17-576 #18-604 #19-627
#20-659 #21-693 #22-743 #23-777 #24-835 #24-855 #24-864 #24-872 #26-902
#27-921 #28-941 #29-964 #30-1004 #31-1044 #33-1076 #34-1101 #35-1115 35-1116
#35-1116 35-1118 #35-1118 35-1122 35-1126 #35-1132 #36-1146 #37-1160 #38-1175
#41-1220 #43-1307 #49-1527 50-1553 #50-1553 50-1555 #50-1555 50-1560 50-1564
#50-1570
$$PRST = 000015 #6-97 7-100 #7-100 7-103 #7-103 *7-143 #7-143 7-147 #7-147
7-155 #7-155 #8-171 #9-184 9-188 #9-188 #10-233 10-237 #10-237
10-240 #10-240 10-252 #10-252 10-256 #10-256 10-265 #10-265 #11-290
11-294 #11-294 11-301 #11-301 #12-352 12-356 #12-356 12-359 #12-359
12-370 #12-370 12-373 #12-373 *12-377 #12-377 12-389 #12-389 12-396
#12-396 #13-420 13-421 #13-421 *13-431 #13-431 *13-438 #13-438 13-441
#13-441 13-449 #13-449 14-461 #14-461 14-465 #14-465 *14-503 #14-503
15-512 #15-512 15-515 #15-515 15-522 #15-522 15-532 #15-532 *15-537
#15-537 #17-576 17-586 #17-586 *17-591 #17-591 #18-604 18-610 #18-610
18-616 #18-616 #19-627 *19-632 #19-632 *19-639 #19-639 #20-659 20-664
#20-664 #21-693 21-699 #21-699 *21-703 #21-703 *21-715 #21-715 #22-743
22-748 #22-748 *22-752 #22-752 #23-777 23-781 #23-781 23-791 #23-791
*23-800 #23-800 *23-807 #23-807 23-813 #23-813 23-818 #23-818 #24-835
24-840 #24-840 #24-855 #24-864 #24-872 #26-902 #27-921 #28-941 #29-964
29-970 #29-970 #30-1004 30-1006 #30-1006 *30-1011 #30-1011 #31-1044 31-1047
#31-1047 #33-1076 *33-1079 #33-1079 #34-1101 #35-1115 35-1116 #35-1116 #36-1146
#37-1160 #38-1175 #41-1220 #43-1307 43-1315 #43-1315 43-1318 #43-1318 43-1323
#43-1323 43-1326 #43-1326 43-1338 #43-1338 44-1350 #44-1350 44-1353 #44-1353
44-1366 #44-1366 44-1369 #44-1369 44-1389 #44-1389 45-1412 #45-1412 *45-1416
#45-1416 45-1433 #45-1433 45-1445 #45-1445 45-1454 #45-1454 46-1471 #46-1471
46-1474 #46-1474 46-1486 #46-1486 #49-1527 49-1531 #49-1531 49-1536 #49-1536
49-1541 #49-1541 50-1550 #50-1550 50-1553 #50-1553 50-1572 #50-1572
$$SLST = ****** 6-97 7-101 7-101 7-102 7-105 7-105 7-106 7-112 7-112
7-113 7-113 7-114 7-128 7-128 7-129 7-129 7-130 7-135
7-135 7-137 7-137 7-143 7-144 7-144 7-145 7-145 7-146
7-148 7-148 7-149 7-151 7-151 7-153 7-154 7-154 7-156
7-156 7-157 7-159 7-159 7-161 7-162 7-165 8-171 8-176
9-184 9-189 9-190 9-223 9-225 10-233 10-238 10-238 10-239
10-241 10-241 10-242 10-245 10-245 10-248 10-249 10-249 10-251
10-253 10-254 10-257 10-257 10-258 10-261 10-261 10-264 10-266
10-266 10-267 10-267 10-268 10-276 10-276 10-279 10-280 10-280
10-282 10-283 11-290 11-295 11-295 11-296 11-298 11-298 11-300
11-302 11-303 11-342 11-344 12-352 12-357 12-357 12-358 12-360
12-360 12-361 12-363 12-363 12-365 12-367 12-367 12-369 12-371
12-372 12-374 12-374 12-375 12-378 12-378 12-379 12-381 12-381
12-383 12-384 12-384 12-387 12-388 12-390 12-391 12-397 12-398
12-404 12-404 12-407 12-409 12-409 12-411 12-412 13-420 13-424
13-424 13-425 13-425 13-426 13-432 13-432 13-433 13-435 13-435
13-439 13-439 13-440 13-442 13-442 13-443 13-445 13-445 13-447
13-448 13-448 13-450 13-450 13-451 13-451 13-452 13-454 13-454
13-456 13-457 13-458 14-462 14-463 14-468 14-468 14-469 14-469
14-470 14-470 14-471 14-474 14-474 14-475 14-475 14-476 14-480
14-480 14-481 14-481 14-482 14-484 14-484 14-487 14-489 14-489
DMDUMP CREATED BY MACRO ON 13-OCT-79 AT 11:33 PAGE 6
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
14-491 14-495 14-495 14-496 14-496 14-497 14-497 14-498 14-504
14-504 14-505 14-507 14-507 14-509 15-513 15-514 15-517 15-517
15-518 15-518 15-519 15-523 15-523 15-524 15-528 15-528 15-531
15-533 15-533 15-534 15-534 15-535 15-538 15-538 15-539 15-539
15-540 15-542 15-543 15-543 15-545 15-547 15-547 15-548 15-548
15-549 15-553 15-553 15-556 15-557 15-557 15-559 16-564 16-564
16-572 16-574 17-576 17-587 17-587 17-588 17-588 17-589 17-592
17-592 17-593 17-593 17-594 17-596 17-597 17-597 17-599 17-602
18-604 18-610 18-611 18-611 18-612 18-612 18-613 18-615 18-615
18-617 18-617 18-618 18-621 18-621 18-623 18-625 19-627 19-633
19-634 19-637 19-637 19-640 19-640 19-641 19-641 19-642 19-645
19-646 19-648 20-659 20-665 20-666 20-681 20-681 20-684 20-685
21-693 21-700 21-701 21-704 21-705 21-707 21-716 21-716 21-717
21-717 21-718 21-729 21-731 21-731 21-733 21-735 22-743 22-749
22-750 22-753 22-753 22-754 22-754 22-755 22-761 22-761 22-763
22-766 22-766 22-768 22-770 23-777 23-782 23-782 23-783 23-785
23-785 23-787 23-792 23-792 23-793 23-798 23-801 23-801 23-802
23-808 23-808 23-809 23-811 23-812 23-814 23-814 23-815 23-817
23-817 23-819 23-819 23-820 23-822 23-822 23-825 23-826 23-827
24-835 24-841 24-842 24-847 24-847 24-849 24-851 24-855 24-860
24-864 24-868 24-872 24-877 26-902 26-908 27-921 27-928 28-941
28-947 29-964 29-971 29-971 29-972 29-974 29-986 30-1004 30-1007
30-1007 30-1008 30-1008 30-1009 30-1012 30-1012 30-1013 30-1022 30-1023
30-1023 30-1025 30-1027 31-1044 31-1048 31-1048 31-1049 31-1049 31-1050
31-1058 31-1060 33-1076 33-1080 33-1080 33-1081 33-1081 33-1082 33-1084
33-1084 33-1086 33-1092 34-1101 34-1106 35-1115 35-1119 35-1119 35-1120
35-1122 35-1122 35-1123 35-1123 35-1124 35-1126 35-1126 35-1127 35-1127
35-1128 35-1130 35-1130 35-1132 35-1137 36-1146 36-1151 37-1160 37-1165
38-1175 38-1180 41-1220 41-1263 43-1307 43-1316 43-1317 43-1319 43-1319
43-1320 43-1322 43-1324 43-1325 43-1327 43-1327 43-1328 43-1328 43-1329
43-1337 43-1337 43-1339 43-1339 43-1340 43-1342 43-1342 43-1344 43-1345
43-1346 43-1347 44-1351 44-1352 44-1354 44-1354 44-1355 44-1367 44-1368
44-1370 44-1370 44-1371 44-1377 44-1377 44-1380 44-1381 44-1383 44-1383
44-1390 44-1391 44-1404 44-1404 44-1406 44-1408 44-1409 45-1413 45-1414
45-1417 45-1417 45-1418 45-1426 45-1426 45-1434 45-1435 45-1442 45-1442
45-1444 45-1446 45-1447 45-1451 45-1453 45-1455 45-1456 45-1466 45-1468
46-1472 46-1473 46-1475 46-1475 46-1476 46-1482 46-1482 46-1484 46-1485
46-1487 46-1488 46-1494 46-1496 49-1527 49-1532 49-1532 49-1533 49-1535
49-1537 49-1537 49-1538 49-1540 49-1542 49-1542 49-1543 49-1545 50-1551
50-1551 50-1552 50-1556 50-1556 50-1557 50-1557 50-1558 50-1560 50-1560
50-1561 50-1561 50-1562 50-1564 50-1564 50-1565 50-1565 50-1566 50-1566
50-1567 50-1567 50-1568 50-1570 50-1570 50-1571 50-1573 50-1573 50-1574
50-1576 50-1576 50-1579 50-1581
$$STIX = 000777 #6-97 7-100 7-100 #7-100 7-100 7-100 #7-100 7-103 7-103
#7-103 7-103 7-103 #7-103 7-103 7-103 #7-103 7-135 #7-135
7-135 7-135 #7-135 7-135 7-135 #7-135 7-135 *7-143 *7-143
#7-143 *7-143 *7-143 #7-143 7-147 7-147 #7-147 7-147 7-147
#7-147 7-153 #7-153 7-153 7-153 #7-153 7-153 7-154 #7-154
7-154 7-154 #7-154 7-154 7-155 7-155 #7-155 7-155 7-155
#7-155 7-161 #7-161 7-161 7-161 #7-161 7-161 7-162 #7-162
7-162 7-162 #7-162 7-162 #8-171 #9-184 9-188 9-188 #9-188
9-188 9-188 #9-188 9-223 #9-223 9-223 9-223 #9-223 9-223
DMDUMP CREATED BY MACRO ON 13-OCT-79 AT 11:33 PAGE 7
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#10-233 10-237 10-237 #10-237 10-237 10-237 #10-237 10-240 10-240
#10-240 10-240 10-240 #10-240 10-248 #10-248 10-248 10-248 #10-248
10-248 10-251 #10-251 10-251 10-251 #10-251 10-251 10-252 10-252
#10-252 10-252 10-252 #10-252 10-256 10-256 #10-256 10-256 10-256
#10-256 10-264 #10-264 10-264 10-264 #10-264 10-264 10-265 10-265
#10-265 10-265 10-265 #10-265 10-279 #10-279 10-279 10-279 #10-279
10-279 10-282 #10-282 10-282 10-282 #10-282 10-282 #11-290 11-294
11-294 #11-294 11-294 11-294 #11-294 11-300 #11-300 11-300 11-300
#11-300 11-300 11-301 11-301 #11-301 11-301 11-301 #11-301 11-342
#11-342 11-342 11-342 #11-342 11-342 #12-352 12-356 12-356 #12-356
12-356 12-356 #12-356 12-359 12-359 #12-359 12-359 12-359 #12-359
12-365 #12-365 12-365 12-365 #12-365 12-365 12-369 #12-369 12-369
12-369 #12-369 12-369 12-370 12-370 #12-370 12-370 12-370 #12-370
12-373 12-373 #12-373 12-373 12-373 #12-373 *12-377 *12-377 #12-377
*12-377 *12-377 #12-377 12-383 #12-383 12-383 12-383 #12-383 12-383
12-387 #12-387 12-387 12-387 #12-387 12-387 12-388 #12-388 12-388
12-388 #12-388 12-388 12-389 12-389 #12-389 12-389 12-389 #12-389
12-396 12-396 #12-396 12-396 12-396 #12-396 12-407 #12-407 12-407
12-407 #12-407 12-407 12-411 #12-411 12-411 12-411 #12-411 12-411
#13-420 13-421 13-421 #13-421 13-421 13-421 #13-421 13-421 13-421
#13-421 *13-431 *13-431 #13-431 *13-431 *13-431 #13-431 *13-438 *13-438
#13-438 *13-438 *13-438 #13-438 13-441 13-441 #13-441 13-441 13-441
#13-441 13-447 #13-447 13-447 13-447 #13-447 13-447 13-449 13-449
#13-449 13-449 13-449 #13-449 13-456 #13-456 13-456 13-456 #13-456
13-456 13-457 #13-457 13-457 13-457 #13-457 13-457 13-458 #13-458
13-458 13-458 #13-458 13-458 14-461 14-461 #14-461 14-461 14-461
#14-461 14-465 14-465 #14-465 14-465 14-465 #14-465 14-465 14-465
#14-465 14-487 #14-487 14-487 14-487 #14-487 14-487 14-487 #14-487
14-487 14-491 #14-491 14-491 14-491 #14-491 14-491 *14-503 *14-503
#14-503 *14-503 *14-503 #14-503 14-509 #14-509 14-509 14-509 #14-509
14-509 15-512 15-512 #15-512 15-512 15-512 #15-512 15-515 15-515
#15-515 15-515 15-515 #15-515 15-515 15-515 #15-515 15-522 15-522
#15-522 15-522 15-522 #15-522 15-531 #15-531 15-531 15-531 #15-531
15-531 15-532 15-532 #15-532 15-532 15-532 #15-532 *15-537 *15-537
#15-537 *15-537 *15-537 #15-537 15-542 #15-542 15-542 15-542 #15-542
15-542 15-545 #15-545 15-545 15-545 #15-545 15-545 15-556 #15-556
15-556 15-556 #15-556 15-556 15-556 #15-556 15-556 15-559 #15-559
15-559 15-559 #15-559 15-559 *16-572 #16-572 *16-572 16-572 #16-572
16-572 16-572 #16-572 16-572 #17-576 17-586 17-586 #17-586 17-586
17-586 #17-586 *17-591 *17-591 #17-591 *17-591 *17-591 #17-591 17-596
#17-596 17-596 17-596 #17-596 17-596 17-599 #17-599 17-599 17-599
#17-599 17-599 #18-604 18-610 18-610 #18-610 18-610 18-610 #18-610
18-615 #18-615 18-615 18-615 #18-615 18-615 18-616 18-616 #18-616
18-616 18-616 #18-616 18-623 #18-623 18-623 18-623 #18-623 18-623
#19-627 *19-632 *19-632 #19-632 *19-632 *19-632 #19-632 *19-639 *19-639
#19-639 *19-639 *19-639 #19-639 19-645 #19-645 19-645 19-645 #19-645
19-645 19-646 #19-646 19-646 19-646 #19-646 19-646 #20-659 20-664
20-664 #20-664 20-664 20-664 #20-664 20-684 #20-684 20-684 20-684
#20-684 20-684 #21-693 21-699 21-699 #21-699 21-699 21-699 #21-699
*21-703 *21-703 #21-703 *21-703 *21-703 #21-703 21-707 #21-707 21-707
21-707 #21-707 21-707 *21-715 *21-715 #21-715 *21-715 *21-715 #21-715
21-729 #21-729 21-729 21-729 #21-729 21-729 21-733 #21-733 21-733
DMDUMP CREATED BY MACRO ON 13-OCT-79 AT 11:33 PAGE 8
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
21-733 #21-733 21-733 #22-743 22-748 22-748 #22-748 22-748 22-748
#22-748 *22-752 *22-752 #22-752 *22-752 *22-752 #22-752 22-763 #22-763
22-763 22-763 #22-763 22-763 22-768 #22-768 22-768 22-768 #22-768
22-768 #23-777 23-781 23-781 #23-781 23-781 23-781 #23-781 23-787
#23-787 23-787 23-787 #23-787 23-787 23-791 23-791 #23-791 23-791
23-791 #23-791 23-798 #23-798 23-798 23-798 #23-798 23-798 *23-800
*23-800 #23-800 *23-800 *23-800 #23-800 *23-807 *23-807 #23-807 *23-807
*23-807 #23-807 23-811 #23-811 23-811 23-811 #23-811 23-811 23-812
#23-812 23-812 23-812 #23-812 23-812 23-813 23-813 #23-813 23-813
23-813 #23-813 23-818 23-818 #23-818 23-818 23-818 #23-818 23-825
#23-825 23-825 23-825 #23-825 23-825 23-826 #23-826 23-826 23-826
#23-826 23-826 #24-835 24-840 24-840 #24-840 24-840 24-840 #24-840
24-849 #24-849 24-849 24-849 #24-849 24-849 #24-855 #24-864 #24-872
#26-902 #27-921 #28-941 #29-964 29-970 29-970 #29-970 29-970 29-970
#29-970 29-974 #29-974 29-974 29-974 #29-974 29-974 #30-1004 30-1006
30-1006 #30-1006 30-1006 30-1006 #30-1006 *30-1011 *30-1011 #30-1011 *30-1011
*30-1011 #30-1011 30-1022 #30-1022 30-1022 30-1022 #30-1022 30-1022 30-1025
#30-1025 30-1025 30-1025 #30-1025 30-1025 #31-1044 31-1047 31-1047 #31-1047
31-1047 31-1047 #31-1047 31-1058 #31-1058 31-1058 31-1058 #31-1058 31-1058
#33-1076 *33-1079 *33-1079 #33-1079 *33-1079 *33-1079 #33-1079 33-1086 #33-1086
33-1086 33-1086 #33-1086 33-1086 #34-1101 #35-1115 35-1116 35-1116 #35-1116
35-1116 35-1116 #35-1116 35-1116 35-1116 #35-1116 *35-1132 #35-1132 *35-1132
35-1132 #35-1132 35-1132 35-1132 #35-1132 35-1132 #36-1146 #37-1160 #38-1175
#41-1220 #43-1307 43-1315 43-1315 #43-1315 43-1315 43-1315 #43-1315 43-1318
43-1318 #43-1318 43-1318 43-1318 #43-1318 43-1322 #43-1322 43-1322 43-1322
#43-1322 43-1322 43-1323 43-1323 #43-1323 43-1323 43-1323 #43-1323 43-1326
43-1326 #43-1326 43-1326 43-1326 #43-1326 43-1338 43-1338 #43-1338 43-1338
43-1338 #43-1338 43-1344 #43-1344 43-1344 43-1344 #43-1344 43-1344 43-1345
#43-1345 43-1345 43-1345 #43-1345 43-1345 43-1346 #43-1346 43-1346 43-1346
#43-1346 43-1346 43-1347 #43-1347 43-1347 43-1347 #43-1347 43-1347 44-1350
44-1350 #44-1350 44-1350 44-1350 #44-1350 44-1353 44-1353 #44-1353 44-1353
44-1353 #44-1353 44-1366 44-1366 #44-1366 44-1366 44-1366 #44-1366 44-1369
44-1369 #44-1369 44-1369 44-1369 #44-1369 44-1380 #44-1380 44-1380 44-1380
#44-1380 44-1380 44-1381 #44-1381 44-1381 44-1381 #44-1381 44-1381 44-1389
44-1389 #44-1389 44-1389 44-1389 #44-1389 44-1406 #44-1406 44-1406 44-1406
#44-1406 44-1406 44-1408 #44-1408 44-1408 44-1408 #44-1408 44-1408 44-1409
#44-1409 44-1409 44-1409 #44-1409 44-1409 45-1412 45-1412 #45-1412 45-1412
45-1412 #45-1412 *45-1416 *45-1416 #45-1416 *45-1416 *45-1416 #45-1416 45-1433
45-1433 #45-1433 45-1433 45-1433 #45-1433 45-1444 #45-1444 45-1444 45-1444
#45-1444 45-1444 45-1445 45-1445 #45-1445 45-1445 45-1445 #45-1445 45-1451
#45-1451 45-1451 45-1451 #45-1451 45-1451 45-1453 #45-1453 45-1453 45-1453
#45-1453 45-1453 45-1454 45-1454 #45-1454 45-1454 45-1454 #45-1454 45-1466
#45-1466 45-1466 45-1466 #45-1466 45-1466 45-1468 #45-1468 45-1468 45-1468
#45-1468 45-1468 46-1471 46-1471 #46-1471 46-1471 46-1471 #46-1471 46-1474
46-1474 #46-1474 46-1474 46-1474 #46-1474 46-1484 #46-1484 46-1484 46-1484
#46-1484 46-1484 46-1485 #46-1485 46-1485 46-1485 #46-1485 46-1485 46-1486
46-1486 #46-1486 46-1486 46-1486 #46-1486 46-1494 #46-1494 46-1494 46-1494
#46-1494 46-1494 #49-1527 49-1531 49-1531 #49-1531 49-1531 49-1531 #49-1531
49-1535 #49-1535 49-1535 49-1535 #49-1535 49-1535 49-1536 49-1536 #49-1536
49-1536 49-1536 #49-1536 49-1540 #49-1540 49-1540 49-1540 #49-1540 49-1540
49-1541 49-1541 #49-1541 49-1541 49-1541 #49-1541 49-1545 #49-1545 49-1545
49-1545 #49-1545 49-1545 50-1550 50-1550 #50-1550 50-1550 50-1550 #50-1550
DMDUMP CREATED BY MACRO ON 13-OCT-79 AT 11:33 PAGE 9
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
50-1553 50-1553 #50-1553 50-1553 50-1553 #50-1553 50-1553 50-1553 #50-1553
*50-1570 #50-1570 *50-1570 50-1570 #50-1570 50-1570 50-1570 #50-1570 50-1570
50-1571 #50-1571 50-1571 50-1571 #50-1571 50-1571 50-1572 50-1572 #50-1572
50-1572 50-1572 #50-1572 50-1579 #50-1579 50-1579 50-1579 #50-1579 50-1579
$$STNM = 000000 #6-97 7-100 #7-100 7-100 7-101 7-102 7-103 #7-103 7-103
7-105 7-106 7-112 7-112 7-113 7-114 7-128 7-128 7-129
7-130 7-135 7-135 #7-135 7-137 7-137 *7-143 #7-143 *7-143
*7-143 7-144 7-145 7-146 7-147 #7-147 7-147 7-148 7-149
*7-151 7-151 7-153 #7-153 7-154 7-154 #7-154 7-155 #7-155
7-155 7-156 7-157 7-159 7-159 7-161 #7-161 7-162 #7-162
#8-171 #9-184 9-188 #9-188 9-188 9-189 9-190 *9-223 #9-223
#10-233 10-237 #10-237 10-237 10-238 10-239 10-240 #10-240 10-240
10-241 10-242 10-245 10-245 10-248 #10-248 10-249 10-249 10-251
#10-251 10-252 #10-252 10-252 10-253 10-254 10-256 #10-256 10-256
10-257 10-258 *10-261 10-261 *10-264 #10-264 10-265 #10-265 10-265
10-266 10-267 10-268 *10-276 10-276 10-279 #10-279 10-280 10-280
*10-282 #10-282 #11-290 11-294 #11-294 11-294 11-295 11-296 11-298
11-298 11-300 #11-300 11-301 #11-301 11-301 11-302 11-303 *11-342
#11-342 #12-352 12-356 #12-356 12-356 12-357 12-358 12-359 #12-359
12-359 12-360 12-361 *12-363 12-363 *12-365 #12-365 12-367 12-367
12-369 #12-369 12-370 #12-370 12-370 12-371 12-372 12-373 #12-373
12-373 12-374 12-375 *12-377 #12-377 *12-377 12-378 12-379 12-381
12-381 12-383 #12-383 12-384 12-384 12-387 #12-387 12-388 #12-388
12-389 #12-389 12-389 12-390 12-391 12-396 #12-396 12-396 12-397
12-398 *12-404 12-404 12-407 #12-407 12-409 12-409 *12-411 #12-411
#13-420 13-421 #13-421 13-421 13-424 13-425 13-426 *13-431 #13-431
*13-431 13-432 13-433 13-435 13-435 *13-438 #13-438 *13-438 13-439
13-440 13-441 #13-441 13-441 13-442 13-443 13-445 13-445 13-447
#13-447 13-448 13-448 13-449 #13-449 13-449 13-450 13-451 13-452
13-454 13-454 13-456 #13-456 13-457 #13-457 13-458 #13-458 14-461
#14-461 14-461 14-462 14-463 14-465 #14-465 14-465 14-468 14-469
14-470 14-471 14-474 14-474 14-475 14-476 14-480 14-480 14-481
14-482 14-484 14-484 14-487 #14-487 14-489 14-489 *14-491 #14-491
14-495 14-495 14-496 14-497 14-498 *14-503 #14-503 *14-503 14-504
14-505 14-507 14-507 14-509 #14-509 15-512 #15-512 15-512 15-513
15-514 15-515 #15-515 15-515 15-517 15-518 15-519 15-522 #15-522
15-522 15-523 15-524 *15-528 15-528 15-531 #15-531 15-532 #15-532
15-532 15-533 15-534 15-535 *15-537 #15-537 *15-537 15-538 15-539
15-540 *15-542 #15-542 15-543 15-543 *15-545 #15-545 15-547 15-547
15-548 15-549 *15-553 15-553 15-556 #15-556 15-557 15-557 *15-559
#15-559 16-564 16-564 16-572 #16-572 #17-576 17-586 #17-586 17-586
17-587 17-588 17-589 *17-591 #17-591 *17-591 17-592 17-593 17-594
*17-596 #17-596 17-597 17-597 *17-599 #17-599 #18-604 18-610 #18-610
18-610 18-610 18-611 18-612 18-613 18-615 18-615 #18-615 18-616
#18-616 18-616 18-617 18-618 *18-621 18-621 18-623 #18-623 #19-627
*19-632 #19-632 *19-632 19-633 19-634 19-637 19-637 *19-639 #19-639
*19-639 19-640 19-641 19-642 19-645 #19-645 19-646 #19-646 #20-659
20-664 #20-664 20-664 20-665 20-666 *20-681 20-681 *20-684 #20-684
#21-693 21-699 #21-699 21-699 21-700 21-701 *21-703 #21-703 *21-703
21-704 21-705 21-707 #21-707 *21-715 #21-715 *21-715 21-716 21-717
21-718 *21-729 #21-729 *21-731 21-731 *21-733 #21-733 #22-743 22-748
#22-748 22-748 22-749 22-750 *22-752 #22-752 *22-752 22-753 22-754
DMDUMP CREATED BY MACRO ON 13-OCT-79 AT 11:33 PAGE 10
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
22-755 22-761 22-761 *22-763 #22-763 *22-766 22-766 *22-768 #22-768
#23-777 23-781 #23-781 23-781 23-782 23-783 23-785 23-785 23-787
#23-787 23-791 #23-791 23-791 23-792 23-793 *23-798 #23-798 *23-800
#23-800 *23-800 23-801 23-802 *23-807 #23-807 *23-807 23-808 23-809
*23-811 #23-811 23-812 #23-812 23-813 #23-813 23-813 23-814 23-815
*23-817 23-817 23-818 #23-818 23-818 23-819 23-820 *23-822 23-822
*23-825 #23-825 23-826 #23-826 #24-835 24-840 #24-840 24-840 24-841
24-842 *24-847 24-847 *24-849 #24-849 #24-855 #24-864 #24-872 #26-902
#27-921 #28-941 #29-964 29-970 #29-970 29-970 29-971 29-972 *29-974
#29-974 #30-1004 30-1006 #30-1006 30-1006 30-1007 30-1008 30-1009 *30-1011
#30-1011 *30-1011 30-1012 30-1013 *30-1022 #30-1022 30-1023 30-1023 30-1025
#30-1025 #31-1044 31-1047 #31-1047 31-1047 31-1048 31-1049 31-1050 *31-1058
#31-1058 #33-1076 *33-1079 #33-1079 *33-1079 33-1080 33-1081 33-1082 *33-1084
33-1084 *33-1086 #33-1086 #34-1101 #35-1115 35-1116 #35-1116 35-1116 35-1119
35-1120 35-1122 35-1122 35-1123 35-1124 35-1126 35-1126 35-1127 35-1128
*35-1130 35-1130 35-1132 #35-1132 #36-1146 #37-1160 #38-1175 #41-1220 #43-1307
43-1315 #43-1315 43-1315 43-1316 43-1317 43-1318 #43-1318 43-1318 43-1319
43-1320 43-1322 #43-1322 43-1323 #43-1323 43-1323 43-1324 43-1325 43-1326
#43-1326 43-1326 43-1327 43-1328 43-1329 *43-1337 43-1337 43-1338 #43-1338
43-1338 43-1339 43-1340 43-1342 43-1342 43-1344 #43-1344 43-1345 #43-1345
43-1346 #43-1346 43-1347 #43-1347 44-1350 #44-1350 44-1350 44-1351 44-1352
44-1353 #44-1353 44-1353 44-1354 44-1355 44-1366 #44-1366 44-1366 44-1367
44-1368 44-1369 #44-1369 44-1369 44-1370 44-1371 44-1377 44-1377 44-1380
#44-1380 44-1381 #44-1381 *44-1383 44-1383 44-1389 #44-1389 44-1389 44-1390
44-1391 44-1404 44-1404 44-1406 #44-1406 *44-1408 #44-1408 44-1409 #44-1409
45-1412 #45-1412 45-1412 45-1413 45-1414 *45-1416 #45-1416 *45-1416 45-1417
45-1418 45-1426 45-1426 45-1433 #45-1433 45-1433 45-1434 45-1435 45-1442
45-1442 45-1444 #45-1444 45-1445 #45-1445 45-1445 45-1446 45-1447 45-1451
#45-1451 *45-1453 #45-1453 45-1454 #45-1454 45-1454 45-1455 45-1456 45-1466
#45-1466 *45-1468 #45-1468 46-1471 #46-1471 46-1471 46-1472 46-1473 46-1474
#46-1474 46-1474 46-1475 46-1476 46-1482 46-1482 46-1484 #46-1484 46-1485
#46-1485 46-1486 #46-1486 46-1486 46-1487 46-1488 46-1494 #46-1494 #49-1527
49-1531 #49-1531 49-1531 49-1532 49-1533 *49-1535 #49-1535 49-1536 #49-1536
49-1536 49-1537 49-1538 *49-1540 #49-1540 49-1541 #49-1541 49-1541 49-1542
49-1543 *49-1545 #49-1545 50-1550 #50-1550 50-1550 50-1551 50-1552 50-1553
#50-1553 50-1553 50-1556 50-1557 50-1558 50-1560 50-1560 50-1561 50-1562
50-1564 50-1564 50-1565 50-1566 50-1567 50-1568 50-1570 50-1570 #50-1570
50-1571 #50-1571 50-1572 #50-1572 50-1572 50-1573 50-1574 50-1576 50-1576
50-1579 #50-1579
$$S764 = 000077 #15-537 15-542
$$S765 = 000023 #15-537 15-542
$$S766 = 000077 #15-522 15-531 #15-532 15-545
$$S767 = 000021 #13-441 13-447 #13-449 13-456 #15-522 15-531 #15-532 15-545
$$S770 = 000077 #13-441 13-447 #13-449 13-456 #14-465 14-487 #15-515 15-556 #43-1338
43-1344 #44-1369 44-1380
$$S771 = 000017 #13-438 13-457 #14-465 14-487 #15-515 15-556 #43-1338 43-1344 #44-1369
44-1380
$$S772 = 000011 #7-147 7-153 #12-377 12-383 #13-438 13-457 #14-465 14-487 #15-515
15-556 #43-1326 43-1345 #44-1366 44-1381 #44-1389 44-1406 #45-1433 45-1444
#45-1445 45-1451
$$S773 = 000000 #7-103 7-135 #7-147 7-153 #12-377 12-383 #13-431 13-458 #14-461
14-491 #14-503 14-509 #15-512 15-559 #43-1326 43-1345 #44-1366 44-1381
DMDUMP CREATED BY MACRO ON 13-OCT-79 AT 11:33 PAGE 11
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#44-1389 44-1406 #45-1433 45-1444 #45-1445 45-1451 #50-1553 *50-1570
$$S774 = 000077 #7-103 7-135 #7-143 7-154 #7-155 7-161 #10-240 10-248 #10-256
10-264 #10-265 10-279 #12-359 12-365 #12-373 12-387 #12-396 12-407
#13-431 13-458 #14-461 14-491 #14-503 14-509 #15-512 15-559 #17-591
17-596 #19-639 19-645 #21-703 21-707 #21-715 21-729 #22-752 22-763
#23-807 23-811 #23-818 23-825 #30-1011 30-1022 #43-1318 43-1322 #43-1323
43-1346 #44-1353 44-1408 #45-1416 45-1453 #45-1454 45-1466 #46-1474 46-1484
#50-1553 50-1570
$$S775 = 000013 #7-103 7-135 #7-143 7-154 #7-155 7-161 #10-240 10-248 #10-256
10-264 #10-265 10-279 #12-359 12-365 #12-373 12-387 #12-396 12-407
#13-421 *16-572 #17-591 17-596 #19-639 19-645 #21-703 21-707 #21-715
21-729 #22-752 22-763 #23-807 23-811 #23-818 23-825 #30-1011 30-1022
#35-1116 *35-1132 #43-1318 43-1322 #43-1323 43-1346 #44-1353 44-1408 #45-1416
45-1453 #45-1454 45-1466 #46-1474 46-1484 #50-1553 50-1570
$$S776 = 000000 #7-100 7-162 #9-188 9-223 #10-237 10-251 #10-252 10-282 #11-294
11-300 #11-301 11-342 #12-356 12-369 #12-370 12-388 #12-389 12-411
#13-421 16-572 #17-586 17-599 #18-610 18-615 #18-616 18-623 #19-632
19-646 #20-664 20-684 #21-699 21-733 #22-748 22-768 #23-781 23-787
#23-791 23-798 #23-800 23-812 #23-813 23-826 #24-840 24-849 #29-970
29-974 #30-1006 30-1025 #31-1047 31-1058 #33-1079 33-1086 #35-1116 35-1132
#43-1315 43-1347 #44-1350 44-1409 #45-1412 45-1468 #46-1471 46-1485 #46-1486
46-1494 #49-1531 49-1535 #49-1536 49-1540 #49-1541 49-1545 #50-1550 50-1571
#50-1572 50-1579
$$S777 = 000000 #7-100 7-162 #9-188 9-223 #10-237 10-251 #10-252 10-282 #11-294
11-300 #11-301 11-342 #12-356 12-369 #12-370 12-388 #12-389 12-411
#13-421 16-572 #17-586 17-599 #18-610 18-615 #18-616 18-623 #19-632
19-646 #20-664 20-684 #21-699 21-733 #22-748 22-768 #23-781 23-787
#23-791 23-798 #23-800 23-812 #23-813 23-826 #24-840 24-849 #29-970
29-974 #30-1006 30-1025 #31-1047 31-1058 #33-1079 33-1086 #35-1116 35-1132
#43-1315 43-1347 #44-1350 44-1409 #45-1412 45-1468 #46-1471 46-1485 #46-1486
46-1494 #49-1531 49-1535 #49-1536 49-1540 #49-1541 49-1545 #50-1550 50-1571
#50-1572 50-1579
$$TRNM = 000000 #6-97 7-100 #7-100 7-101 7-102 7-103 #7-103 7-105 7-106
7-112 7-112 #7-112 7-113 7-114 7-128 7-128 #7-128 7-129
7-130 7-135 7-135 #7-135 7-137 #7-137 *7-143 #7-143 7-144
7-145 7-146 7-147 #7-147 7-148 7-149 7-151 #7-151 7-153
#7-153 7-154 #7-154 7-155 #7-155 7-156 7-157 7-159 #7-159
7-161 #7-161 7-162 #7-162 #8-171 #9-184 9-188 #9-188 9-189
9-190 *9-223 #9-223 #10-233 10-237 #10-237 10-238 10-239 10-240
#10-240 10-241 10-242 10-245 #10-245 10-248 #10-248 10-249 #10-249
10-251 #10-251 10-252 #10-252 10-253 10-254 10-256 #10-256 10-257
10-258 10-261 #10-261 *10-264 #10-264 10-265 #10-265 10-266 10-267
10-268 10-276 #10-276 10-279 #10-279 10-280 #10-280 *10-282 #10-282
#11-290 11-294 #11-294 11-295 11-296 11-298 #11-298 11-300 #11-300
11-301 #11-301 11-302 11-303 *11-342 #11-342 #12-352 12-356 #12-356
12-357 12-358 12-359 #12-359 12-360 12-361 12-363 #12-363 *12-365
#12-365 12-367 #12-367 12-369 #12-369 12-370 #12-370 12-371 12-372
12-373 #12-373 12-374 12-375 *12-377 #12-377 12-378 12-379 12-381
#12-381 12-383 #12-383 12-384 #12-384 12-387 #12-387 12-388 #12-388
12-389 #12-389 12-390 12-391 12-396 #12-396 12-397 12-398 12-404
#12-404 12-407 #12-407 12-409 #12-409 *12-411 #12-411 #13-420 13-421
#13-421 13-424 13-425 13-426 *13-431 #13-431 13-432 13-433 13-435
DMDUMP CREATED BY MACRO ON 13-OCT-79 AT 11:33 PAGE 12
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#13-435 *13-438 #13-438 13-439 13-440 13-441 #13-441 13-442 13-443
13-445 #13-445 13-447 #13-447 13-448 #13-448 13-449 #13-449 13-450
13-451 13-452 13-454 #13-454 13-456 #13-456 13-457 #13-457 13-458
#13-458 14-461 #14-461 14-462 14-463 14-465 #14-465 14-468 14-469
14-470 14-471 14-474 14-474 #14-474 14-475 14-476 14-480 14-480
#14-480 14-481 14-482 14-484 #14-484 14-487 14-487 #14-487 14-489
#14-489 *14-491 #14-491 14-495 14-495 #14-495 14-496 14-497 14-498
*14-503 #14-503 14-504 14-505 14-507 #14-507 14-509 #14-509 15-512
#15-512 15-513 15-514 15-515 #15-515 15-517 15-518 15-519 15-522
#15-522 15-523 15-524 15-528 #15-528 15-531 #15-531 15-532 #15-532
15-533 15-534 15-535 *15-537 #15-537 15-538 15-539 15-540 *15-542
#15-542 15-543 #15-543 *15-545 #15-545 15-547 15-547 #15-547 15-548
15-549 15-553 #15-553 15-556 15-556 #15-556 15-557 #15-557 *15-559
#15-559 16-564 #16-564 16-572 16-572 #16-572 #17-576 17-586 #17-586
17-587 17-588 17-589 *17-591 #17-591 17-592 17-593 17-594 *17-596
#17-596 17-597 #17-597 *17-599 #17-599 #18-604 18-610 #18-610 18-611
18-612 18-613 18-615 #18-615 18-616 #18-616 18-617 18-618 18-621
#18-621 18-623 #18-623 #19-627 *19-632 #19-632 19-633 19-634 19-637
#19-637 *19-639 #19-639 19-640 19-641 19-642 19-645 #19-645 19-646
#19-646 #20-659 20-664 #20-664 20-665 20-666 20-681 #20-681 *20-684
#20-684 #21-693 21-699 #21-699 21-700 21-701 *21-703 #21-703 21-704
21-705 21-707 #21-707 *21-715 #21-715 21-716 21-717 21-718 *21-729
#21-729 21-731 #21-731 *21-733 #21-733 #22-743 22-748 #22-748 22-749
22-750 *22-752 #22-752 22-753 22-754 22-755 22-761 #22-761 *22-763
#22-763 22-766 #22-766 *22-768 #22-768 #23-777 23-781 #23-781 23-782
23-783 23-785 #23-785 23-787 #23-787 23-791 #23-791 23-792 23-793
*23-798 #23-798 *23-800 #23-800 23-801 23-802 *23-807 #23-807 23-808
23-809 *23-811 #23-811 23-812 #23-812 23-813 #23-813 23-814 23-815
23-817 #23-817 23-818 #23-818 23-819 23-820 23-822 #23-822 *23-825
#23-825 23-826 #23-826 #24-835 24-840 #24-840 24-841 24-842 24-847
#24-847 *24-849 #24-849 #24-855 #24-864 #24-872 #26-902 #27-921 #28-941
#29-964 29-970 #29-970 29-971 29-972 *29-974 #29-974 #30-1004 30-1006
#30-1006 30-1007 30-1008 30-1009 *30-1011 #30-1011 30-1012 30-1013 *30-1022
#30-1022 30-1023 #30-1023 30-1025 #30-1025 #31-1044 31-1047 #31-1047 31-1048
31-1049 31-1050 *31-1058 #31-1058 #33-1076 *33-1079 #33-1079 33-1080 33-1081
33-1082 33-1084 #33-1084 *33-1086 #33-1086 #34-1101 #35-1115 35-1116 #35-1116
35-1119 35-1120 35-1122 35-1122 #35-1122 35-1123 35-1124 35-1126 35-1126
#35-1126 35-1127 35-1128 35-1130 #35-1130 35-1132 35-1132 #35-1132 #36-1146
#37-1160 #38-1175 #41-1220 #43-1307 43-1315 #43-1315 43-1316 43-1317 43-1318
#43-1318 43-1319 43-1320 43-1322 #43-1322 43-1323 #43-1323 43-1324 43-1325
43-1326 #43-1326 43-1327 43-1328 43-1329 43-1337 #43-1337 43-1338 #43-1338
43-1339 43-1340 43-1342 #43-1342 43-1344 #43-1344 43-1345 #43-1345 43-1346
#43-1346 43-1347 #43-1347 44-1350 #44-1350 44-1351 44-1352 44-1353 #44-1353
44-1354 44-1355 44-1366 #44-1366 44-1367 44-1368 44-1369 #44-1369 44-1370
44-1371 44-1377 #44-1377 44-1380 #44-1380 44-1381 #44-1381 44-1383 #44-1383
44-1389 #44-1389 44-1390 44-1391 44-1404 #44-1404 44-1406 #44-1406 *44-1408
#44-1408 44-1409 #44-1409 45-1412 #45-1412 45-1413 45-1414 *45-1416 #45-1416
45-1417 45-1418 45-1426 #45-1426 45-1433 #45-1433 45-1434 45-1435 45-1442
#45-1442 45-1444 #45-1444 45-1445 #45-1445 45-1446 45-1447 45-1451 #45-1451
*45-1453 #45-1453 45-1454 #45-1454 45-1455 45-1456 45-1466 #45-1466 *45-1468
#45-1468 46-1471 #46-1471 46-1472 46-1473 46-1474 #46-1474 46-1475 46-1476
46-1482 #46-1482 46-1484 #46-1484 46-1485 #46-1485 46-1486 #46-1486 46-1487
DMDUMP CREATED BY MACRO ON 13-OCT-79 AT 11:33 PAGE 13
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
46-1488 46-1494 #46-1494 #49-1527 49-1531 #49-1531 49-1532 49-1533 *49-1535
#49-1535 49-1536 #49-1536 49-1537 49-1538 *49-1540 #49-1540 49-1541 #49-1541
49-1542 49-1543 *49-1545 #49-1545 50-1550 #50-1550 50-1551 50-1552 50-1553
#50-1553 50-1556 50-1557 50-1558 50-1560 50-1560 #50-1560 50-1561 50-1562
50-1564 50-1564 #50-1564 50-1565 50-1566 50-1567 50-1568 50-1570 50-1570
#50-1570 50-1571 #50-1571 50-1572 #50-1572 50-1573 50-1574 50-1576 #50-1576
50-1579 #50-1579
...PC1 = 000000 R 47-1504 47-1504 #47-1504 47-1504 47-1504 47-1504 47-1504 47-1504 #47-1504
...PC2 = 005514 R #47-1504 47-1504 47-1504 #47-1504 47-1504 47-1504 #47-1504 47-1504
...PC3 = 000000 #47-1504 47-1504
DMDUMP CREATED BY MACRO ON 13-OCT-79 AT 11:33 PAGE 14
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #7-120 #7-158 #9-186 #9-197 #9-214 #10-244 #10-247 #10-273 #11-297 #11-311
#11-315 #11-322 #11-329 #12-366 #12-380 #13-434 #13-446 #13-453 #14-473 #14-477
#14-483 #14-506 #15-520 #15-521 #15-530 #16-569 #17-583 #17-584 #17-585 #18-622
#19-629 #19-636 #20-663 #20-677 #21-698 #21-712 #22-747 #22-756 #22-760 #23-784
#24-839 #29-984 #30-1019 #31-1055 #43-1314 #43-1321 #43-1334 #43-1335 #43-1343 #44-1364
#44-1365 #44-1375 #44-1376 #44-1379 #44-1388 #44-1395 #44-1402 #44-1405 #45-1423 #45-1425
#45-1432 #45-1439 #45-1443 #45-1463 #45-1465 #46-1480 #46-1481 #46-1483 #46-1493
CASE #6-97 #7-104 #7-112 #7-128 #8-171 #9-184 #10-233 #11-290 #12-352 #13-420
#13-423 #14-467 #14-474 #14-480 #14-495 #15-516 #15-547 #17-576 #18-604 #19-627
#20-659 #21-693 #22-743 #23-777 #24-835 #24-855 #24-864 #24-872 #26-902 #27-921
#28-941 #29-964 #30-1004 #31-1044 #33-1076 #34-1101 #35-1115 #35-1118 #35-1122 #35-1126
#36-1146 #37-1160 #38-1175 #41-1220 #43-1307 #49-1527 #50-1555 #50-1560 #50-1564
CNFDF #42-1274 #42-1276
CONDF #4-54 4-55 #25-888 25-889 #39-1192 39-1193 #42-1274 42-1277 #48-1523 48-1524
CWORD$ #47-1504 47-1504 47-1504
DIR$ #41-1252 #41-1252
DMXB #4-54 #4-57 #25-888 #25-890 #32-1066 #32-1067 #39-1192 #39-1194 #42-1274 #42-1275
#48-1523 #48-1525
DO #6-97 #7-106 #7-114 #7-130 #7-146 #8-171 #9-184 #10-233 #11-290 #12-352
#13-420 #13-426 #14-471 #14-476 #14-482 #14-498 #15-519 #15-549 #17-576 #18-604
#18-613 #19-627 #20-659 #21-693 #22-743 #23-777 #24-835 #24-855 #24-864 #24-872
#26-902 #27-921 #28-941 #29-964 #30-1004 #31-1044 #33-1076 #34-1101 #35-1115 #35-1120
#35-1124 #35-1128 #36-1146 #37-1160 #38-1175 #41-1220 #43-1307 #49-1527 #50-1558 #50-1562
#50-1568
ELSE #6-97 #7-137 #7-151 #7-159 #8-171 #9-184 #10-233 #10-245 #10-249 #10-261
#10-276 #10-280 #11-290 #11-298 #12-352 #12-363 #12-367 #12-381 #12-384 #12-404
#12-409 #13-420 #13-435 #13-445 #13-448 #13-454 #14-484 #14-489 #14-507 #15-528
#15-543 #15-553 #15-557 #16-564 #17-576 #17-597 #18-604 #18-621 #19-627 #19-637
#20-659 #20-681 #21-693 #21-731 #22-743 #22-761 #22-766 #23-777 #23-785 #23-817
#23-822 #24-835 #24-847 #24-855 #24-864 #24-872 #26-902 #27-921 #28-941 #29-964
#30-1004 #30-1023 #31-1044 #33-1076 #33-1084 #34-1101 #35-1115 #35-1130 #36-1146 #37-1160
#38-1175 #41-1220 #43-1307 #43-1337 #43-1342 #44-1377 #44-1383 #44-1404 #45-1426 #45-1442
#46-1482 #49-1527 #50-1576
ENDCAS #6-97 #7-135 #8-171 #9-184 #10-233 #11-290 #12-352 #13-420 #14-487 #15-556
#16-572 #17-576 #18-604 #19-627 #20-659 #21-693 #22-743 #23-777 #24-835 #24-855
#24-864 #24-872 #26-902 #27-921 #28-941 #29-964 #30-1004 #31-1044 #33-1076 #34-1101
#35-1115 #35-1132 #36-1146 #37-1160 #38-1175 #41-1220 #43-1307 #49-1527 #50-1570
ENDIF #6-97 7-135 7-153 7-154 7-161 7-162 #8-171 #9-184 9-223 #10-233
10-248 10-251 10-264 10-279 10-282 #11-290 11-300 11-342 #12-352 12-365
12-369 12-383 12-387 12-388 12-407 12-411 #13-420 13-447 13-456 13-457
13-458 14-487 14-491 14-509 15-531 15-542 15-545 15-556 15-559 16-572
#17-576 17-596 17-599 #18-604 18-615 18-623 #19-627 19-645 19-646 #20-659
20-684 #21-693 21-707 21-729 21-733 #22-743 22-763 22-768 #23-777 23-787
23-798 23-811 23-812 23-825 23-826 #24-835 24-849 #24-855 #24-864 #24-872
#26-902 #27-921 #28-941 #29-964 29-974 #30-1004 30-1022 30-1025 #31-1044 31-1058
#33-1076 33-1086 #34-1101 #35-1115 35-1132 #36-1146 #37-1160 #38-1175 #41-1220 #43-1307
43-1322 43-1344 43-1345 43-1346 43-1347 44-1380 44-1381 44-1406 44-1408 44-1409
45-1444 45-1451 45-1453 45-1466 45-1468 46-1484 46-1485 46-1494 #49-1527 49-1535
49-1540 49-1545 50-1570 50-1571 50-1579
ENDPRO #6-97 7-165 #8-171 8-176 #9-184 9-225 #10-233 10-283 #11-290 11-344
#12-352 12-412 #13-420 16-574 #17-576 17-602 #18-604 18-625 #19-627 19-648
#20-659 20-685 #21-693 21-735 #22-743 22-770 #23-777 23-827 #24-835 24-851
DMDUMP CREATED BY MACRO ON 13-OCT-79 AT 11:33 PAGE 15
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#24-855 24-860 #24-864 24-868 #24-872 24-877 #26-902 26-908 #27-921 27-928
#28-941 28-947 #29-964 29-986 #30-1004 30-1027 #31-1044 31-1060 #33-1076 33-1092
#34-1101 34-1106 #35-1115 35-1137 #36-1146 36-1151 #37-1160 37-1165 #38-1175 38-1180
#41-1220 41-1263 #43-1307 46-1496 #49-1527 50-1581
ENDWHI #6-97 7-154 #8-171 #9-184 #10-233 #11-290 #12-352 #13-420 #17-576 #18-604
18-615 #19-627 #20-659 #21-693 #22-743 #23-777 #24-835 #24-855 #24-864 #24-872
#26-902 #27-921 #28-941 #29-964 #30-1004 #31-1044 #33-1076 #34-1101 #35-1115 #36-1146
#37-1160 #38-1175 #41-1220 #43-1307 #49-1527
FALSE #6-97 #7-101 #7-144 #7-145 #7-148 #7-156 #8-171 #9-184 #9-189 #10-233
#10-253 #11-290 #11-302 #12-352 #12-371 #12-390 #12-397 #13-420 #14-462 #15-513
#15-518 #17-576 #18-604 #18-611 #18-617 #19-627 #19-633 #20-659 #20-665 #21-693
#21-700 #21-704 #21-716 #21-717 #22-743 #22-749 #22-753 #22-754 #23-777 #23-792
#23-801 #24-835 #24-841 #24-855 #24-864 #24-872 #26-902 #27-921 #28-941 #29-964
#29-971 #30-1004 #30-1012 #31-1044 #31-1048 #33-1076 #34-1101 #35-1115 #35-1119 #35-1123
#35-1127 #36-1146 #37-1160 #38-1175 #41-1220 #43-1307 #43-1316 #43-1324 #44-1351 #44-1367
#44-1390 #45-1413 #45-1434 #45-1446 #45-1455 #46-1472 #46-1487 #49-1527 #50-1557 #50-1561
#50-1567
FALSEB #6-97 #7-105 #7-113 #7-129 #8-171 #9-184 #10-233 #10-238 #10-241 #10-257
#10-266 #10-267 #11-290 #11-295 #12-352 #12-357 #12-360 #12-374 #12-378 #13-420
#13-424 #13-425 #13-432 #13-439 #13-442 #13-450 #13-451 #14-468 #14-470 #14-475
#14-481 #14-496 #14-497 #14-504 #15-517 #15-523 #15-533 #15-534 #15-538 #15-539
#15-548 #17-576 #17-587 #17-588 #17-592 #17-593 #18-604 #18-612 #19-627 #19-640
#19-641 #20-659 #21-693 #22-743 #23-777 #23-782 #23-808 #23-814 #23-819 #24-835
#24-855 #24-864 #24-872 #26-902 #27-921 #28-941 #29-964 #30-1004 #30-1008 #31-1044
#31-1049 #33-1076 #33-1081 #34-1101 #35-1115 #36-1146 #37-1160 #38-1175 #41-1220 #43-1307
#43-1319 #43-1328 #43-1339 #44-1354 #44-1370 #45-1417 #46-1475 #49-1527 #49-1532 #49-1537
#49-1542 #50-1551 #50-1573
FMTERR #42-1282 43-1335 44-1365 44-1376 45-1425 45-1465 46-1481
GTIM$S #39-1192 41-1252
IF #6-97 7-100 7-103 7-143 7-147 7-155 #8-171 #9-184 9-188 #10-233
10-237 10-240 10-252 10-256 10-265 #11-290 11-294 11-301 #12-352 12-356
12-359 12-370 12-373 12-377 12-389 12-396 #13-420 13-421 13-431 13-438
13-441 13-449 14-461 14-465 14-503 15-512 15-515 15-522 15-532 15-537
#17-576 17-586 17-591 #18-604 18-610 18-616 #19-627 19-632 19-639 #20-659
20-664 #21-693 21-699 21-703 21-715 #22-743 22-748 22-752 #23-777 23-781
23-791 23-800 23-807 23-813 23-818 #24-835 24-840 #24-855 #24-864 #24-872
#26-902 #27-921 #28-941 #29-964 29-970 #30-1004 30-1006 30-1011 #31-1044 31-1047
#33-1076 33-1079 #34-1101 #35-1115 35-1116 #36-1146 #37-1160 #38-1175 #41-1220 #43-1307
43-1315 43-1318 43-1323 43-1326 43-1338 44-1350 44-1353 44-1366 44-1369 44-1389
45-1412 45-1416 45-1433 45-1445 45-1454 46-1471 46-1474 46-1486 #49-1527 49-1531
49-1536 49-1541 50-1550 50-1553 50-1572
JMPPRO #6-97 #8-171 #9-184 #10-233 #11-290 #12-352 #13-420 #17-576 #18-604 #19-627
#20-659 #21-693 #22-743 #23-777 #24-835 #24-855 #24-864 #24-872 #26-902 #27-921
#28-941 #29-964 #30-1004 #31-1044 #33-1076 #34-1101 #35-1115 #36-1146 #37-1160 #38-1175
#41-1220 #43-1307 #49-1527
LBLDF$ #39-1192 39-1195
MOV$ #41-1252 41-1252
NBOFF$ #47-1504 47-1504
NICDF #4-54 #4-58 #32-1066 #32-1068 #42-1274 #42-1278
NMBLK$ #42-1274 47-1504
OFF$ #41-1252
ONCASE #6-97 #7-103 #8-171 #9-184 #10-233 #11-290 #12-352 #13-420 #13-421 #14-465
DMDUMP CREATED BY MACRO ON 13-OCT-79 AT 11:33 PAGE 16
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#15-515 #17-576 #18-604 #19-627 #20-659 #21-693 #22-743 #23-777 #24-835 #24-855
#24-864 #24-872 #26-902 #27-921 #28-941 #29-964 #30-1004 #31-1044 #33-1076 #34-1101
#35-1115 #35-1116 #36-1146 #37-1160 #38-1175 #41-1220 #43-1307 #49-1527 #50-1553
PRDF #4-54 4-56
PROC #4-54 6-97 #25-888 #32-1066 #39-1192 #42-1274 #48-1523
PROCLC #6-97 8-171 #8-171 9-184 #9-184 10-233 #10-233 11-290 #11-290 12-352
#12-352 13-420 #13-420 17-576 #17-576 18-604 #18-604 19-627 #19-627 20-659
#20-659 21-693 #21-693 22-743 #22-743 23-777 #23-777 24-835 #24-835 24-855
#24-855 24-864 #24-864 24-872 #24-872 26-902 #26-902 27-921 #27-921 28-941
#28-941 29-964 #29-964 30-1004 #30-1004 31-1044 #31-1044 33-1076 #33-1076 34-1101
#34-1101 35-1115 #35-1115 36-1146 #36-1146 37-1160 #37-1160 38-1175 #38-1175 41-1220
#41-1220 43-1307 #43-1307 49-1527 #49-1527
RAD50$ #47-1504 #47-1504 #47-1504
RESSTK #4-54 7-163 #25-888 #39-1192 41-1262 #42-1274 43-1336 44-1382 44-1396 44-1407
45-1424 45-1440 45-1452 45-1464 45-1467 46-1495
SAVSTK #4-54 #6-98 #39-1192 #41-1221 #42-1274 #43-1308 #43-1330 #44-1356 #44-1384 #44-1394
#45-1415 #45-1421 #45-1427 #45-1438 #45-1460
SWCTXT #5-66 #44-1394 #45-1438
SWSTK$ #6-97 #8-171 #9-184 #10-233 #11-290 #12-352 #13-420 #17-576 #18-604 #19-627
#20-659 #21-693 #22-743 #23-777 #24-835 #24-855 #24-864 #24-872 #26-902 #27-921
#28-941 #29-964 #30-1004 #31-1044 #33-1076 #34-1101 #35-1115 #36-1146 #37-1160 #38-1175
#41-1220 #43-1307 #49-1527
THEN #6-97 7-102 7-106 7-114 7-130 7-146 7-149 7-157 #8-171 #9-184
9-190 #10-233 10-239 10-242 10-254 10-258 10-268 #11-290 11-296 11-303
#12-352 12-358 12-361 12-372 12-375 12-379 12-391 12-398 #13-420 13-426
13-433 13-440 13-443 13-452 14-463 14-471 14-476 14-482 14-498 14-505
15-514 15-519 15-524 15-535 15-540 15-549 #17-576 17-589 17-594 #18-604
18-613 18-618 #19-627 19-634 19-642 #20-659 20-666 #21-693 21-701 21-705
21-718 #22-743 22-750 22-755 #23-777 23-783 23-793 23-802 23-809 23-815
23-820 #24-835 24-842 #24-855 #24-864 #24-872 #26-902 #27-921 #28-941 #29-964
29-972 #30-1004 30-1009 30-1013 #31-1044 31-1050 #33-1076 33-1082 #34-1101 #35-1115
35-1120 35-1124 35-1128 #36-1146 #37-1160 #38-1175 #41-1220 #43-1307 43-1317 43-1320
43-1325 43-1329 43-1340 44-1352 44-1355 44-1368 44-1371 44-1391 45-1414 45-1418
45-1435 45-1447 45-1456 46-1473 46-1476 46-1488 #49-1527 49-1533 49-1538 49-1543
50-1552 50-1558 50-1562 50-1568 50-1574
TRUE #6-97 #8-171 #9-184 #10-233 #11-290 #12-352 #13-420 #17-576 #18-604 #19-627
#20-659 #21-693 #22-743 #23-777 #24-835 #24-855 #24-864 #24-872 #26-902 #27-921
#28-941 #29-964 #30-1004 30-1007 #31-1044 #33-1076 33-1080 #34-1101 #35-1115 #36-1146
#37-1160 #38-1175 #41-1220 #43-1307 #49-1527 50-1556 50-1565 50-1566
TRUEB #6-97 #8-171 #9-184 #10-233 #11-290 #12-352 #13-420 14-469 #17-576 #18-604
#19-627 #20-659 #21-693 #22-743 #23-777 #24-835 #24-855 #24-864 #24-872 #26-902
#27-921 #28-941 #29-964 #30-1004 #31-1044 #33-1076 #34-1101 #35-1115 #36-1146 #37-1160
#38-1175 #41-1220 #43-1307 43-1327 #49-1527
UNCTXT #5-73 #44-1396 #45-1440
WHILE #6-97 #7-143 #8-171 #9-184 #10-233 #11-290 #12-352 #13-420 #17-576 #18-604
#18-610 #19-627 #20-659 #21-693 #22-743 #23-777 #24-835 #24-855 #24-864 #24-872
#26-902 #27-921 #28-941 #29-964 #30-1004 #31-1044 #33-1076 #34-1101 #35-1115 #36-1146
#37-1160 #38-1175 #41-1220 #43-1307 #49-1527
$$BGND #6-97 7-101 7-105 7-113 7-129 7-144 7-145 7-148 7-156 #8-171
#9-184 9-189 #10-233 10-238 10-241 10-253 10-257 10-266 10-267 #11-290
11-295 11-302 #12-352 12-357 12-360 12-371 12-374 12-378 12-390 12-397
#13-420 13-424 13-425 13-432 13-439 13-442 13-450 13-451 14-462 14-468
DMDUMP CREATED BY MACRO ON 13-OCT-79 AT 11:33 PAGE 17
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
14-469 14-470 14-475 14-481 14-496 14-497 14-504 15-513 15-517 15-518
15-523 15-533 15-534 15-538 15-539 15-548 #17-576 17-587 17-588 17-592
17-593 #18-604 18-611 18-612 18-617 #19-627 19-633 19-640 19-641 #20-659
20-665 #21-693 21-700 21-704 21-716 21-717 #22-743 22-749 22-753 22-754
#23-777 23-782 23-792 23-801 23-808 23-814 23-819 #24-835 24-841 #24-855
#24-864 #24-872 #26-902 #27-921 #28-941 #29-964 29-971 #30-1004 30-1007 30-1008
30-1012 #31-1044 31-1048 31-1049 #33-1076 33-1080 33-1081 #34-1101 #35-1115 35-1119
35-1123 35-1127 #36-1146 #37-1160 #38-1175 #41-1220 #43-1307 43-1316 43-1319 43-1324
43-1327 43-1328 43-1339 44-1351 44-1354 44-1367 44-1370 44-1390 45-1413 45-1417
45-1434 45-1446 45-1455 46-1472 46-1475 46-1487 #49-1527 49-1532 49-1537 49-1542
50-1551 50-1556 50-1557 50-1561 50-1565 50-1566 50-1567 50-1573
$$BGNN #6-97 #7-101 #7-105 #7-112 #7-113 #7-128 #7-129 #7-137 #7-144 #7-145
#7-148 #7-151 #7-154 #7-156 #7-159 #8-171 #9-184 #9-189 #10-233 #10-238
#10-241 #10-245 #10-249 #10-253 #10-257 #10-261 #10-266 #10-267 #10-276 #10-280
#11-290 #11-295 #11-298 #11-302 #12-352 #12-357 #12-360 #12-363 #12-367 #12-371
#12-374 #12-378 #12-381 #12-384 #12-390 #12-397 #12-404 #12-409 #13-420 #13-424
#13-425 #13-432 #13-435 #13-439 #13-442 #13-445 #13-448 #13-450 #13-451 #13-454
#14-462 #14-468 #14-469 #14-470 #14-474 #14-475 #14-480 #14-481 #14-484 #14-489
#14-495 #14-496 #14-497 #14-504 #14-507 #15-513 #15-517 #15-518 #15-523 #15-528
#15-533 #15-534 #15-538 #15-539 #15-543 #15-547 #15-548 #15-553 #15-557 #16-564
#17-576 #17-587 #17-588 #17-592 #17-593 #17-597 #18-604 #18-611 #18-612 #18-615
#18-617 #18-621 #19-627 #19-633 #19-637 #19-640 #19-641 #20-659 #20-665 #20-681
#21-693 #21-700 #21-704 #21-716 #21-717 #21-731 #22-743 #22-749 #22-753 #22-754
#22-761 #22-766 #23-777 #23-782 #23-785 #23-792 #23-801 #23-808 #23-814 #23-817
#23-819 #23-822 #24-835 #24-841 #24-847 #24-855 #24-864 #24-872 #26-902 #27-921
#28-941 #29-964 #29-971 #30-1004 #30-1007 #30-1008 #30-1012 #30-1023 #31-1044 #31-1048
#31-1049 #33-1076 #33-1080 #33-1081 #33-1084 #34-1101 #35-1115 #35-1119 #35-1122 #35-1123
#35-1126 #35-1127 #35-1130 #36-1146 #37-1160 #38-1175 #41-1220 #43-1307 #43-1316 #43-1319
#43-1324 #43-1327 #43-1328 #43-1337 #43-1339 #43-1342 #44-1351 #44-1354 #44-1367 #44-1370
#44-1377 #44-1383 #44-1390 #44-1404 #45-1413 #45-1417 #45-1426 #45-1434 #45-1442 #45-1446
#45-1455 #46-1472 #46-1475 #46-1482 #46-1487 #49-1527 #49-1532 #49-1537 #49-1542 #50-1551
#50-1556 #50-1557 #50-1560 #50-1561 #50-1564 #50-1565 #50-1566 #50-1567 #50-1573 #50-1576
$$ELSE #6-97 #7-112 #7-128 #7-137 #7-151 #7-159 #8-171 #9-184 #10-233 #10-245
#10-249 #10-261 #10-276 #10-280 #11-290 #11-298 #12-352 #12-363 #12-367 #12-381
#12-384 #12-404 #12-409 #13-420 #13-435 #13-445 #13-448 #13-454 #14-474 #14-480
#14-484 #14-489 #14-495 #14-507 #15-528 #15-543 #15-547 #15-553 #15-557 #16-564
#17-576 #17-597 #18-604 #18-621 #19-627 #19-637 #20-659 #20-681 #21-693 #21-731
#22-743 #22-761 #22-766 #23-777 #23-785 #23-817 #23-822 #24-835 #24-847 #24-855
#24-864 #24-872 #26-902 #27-921 #28-941 #29-964 #30-1004 #30-1023 #31-1044 #33-1076
#33-1084 #34-1101 #35-1115 #35-1122 #35-1126 #35-1130 #36-1146 #37-1160 #38-1175 #41-1220
#43-1307 #43-1337 #43-1342 #44-1377 #44-1383 #44-1404 #45-1426 #45-1442 #46-1482 #49-1527
#50-1560 #50-1564 #50-1576
$$GEN1 #6-97 6-97 7-101 7-101 7-102 7-105 7-106 7-112 7-112 7-113
7-114 7-128 7-128 7-129 7-130 7-135 7-135 7-137 7-137 7-143
7-144 7-144 7-145 7-145 7-146 7-148 7-149 7-151 7-151 7-153
7-154 7-154 7-156 7-156 7-157 7-159 7-159 7-161 7-162 7-165
#8-171 8-171 8-176 #9-184 9-184 9-189 9-190 9-223 9-225 #10-233
10-233 10-238 10-238 10-239 10-241 10-242 10-245 10-245 10-248 10-249
10-249 10-251 10-253 10-254 10-257 10-258 10-261 10-261 10-264 10-266
10-267 10-268 10-276 10-276 10-279 10-280 10-280 10-282 10-283 #11-290
11-290 11-295 11-295 11-296 11-298 11-298 11-300 11-302 11-303 11-342
11-344 #12-352 12-352 12-357 12-357 12-358 12-360 12-361 12-363 12-363
DMDUMP CREATED BY MACRO ON 13-OCT-79 AT 11:33 PAGE 18
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
12-365 12-367 12-367 12-369 12-371 12-372 12-374 12-375 12-378 12-378
12-379 12-381 12-381 12-383 12-384 12-384 12-387 12-388 12-390 12-391
12-397 12-398 12-404 12-404 12-407 12-409 12-409 12-411 12-412 #13-420
13-420 13-424 13-425 13-426 13-432 13-432 13-433 13-435 13-435 13-439
13-440 13-442 13-443 13-445 13-445 13-447 13-448 13-448 13-450 13-450
13-451 13-452 13-454 13-454 13-456 13-457 13-458 14-462 14-463 14-468
14-469 14-470 14-471 14-474 14-474 14-475 14-476 14-480 14-480 14-481
14-481 14-482 14-484 14-484 14-487 14-489 14-489 14-491 14-495 14-495
14-496 14-497 14-498 14-504 14-504 14-505 14-507 14-507 14-509 15-513
15-514 15-517 15-518 15-518 15-519 15-523 15-524 15-528 15-528 15-531
15-533 15-534 15-535 15-538 15-539 15-540 15-542 15-543 15-543 15-545
15-547 15-547 15-548 15-549 15-553 15-553 15-556 15-557 15-557 15-559
16-564 16-564 16-572 16-574 #17-576 17-576 17-587 17-588 17-589 17-592
17-593 17-594 17-596 17-597 17-597 17-599 17-602 #18-604 18-604 18-610
18-611 18-611 18-612 18-613 18-615 18-615 18-617 18-617 18-618 18-621
18-621 18-623 18-625 #19-627 19-627 19-633 19-634 19-637 19-637 19-640
19-641 19-642 19-645 19-646 19-648 #20-659 20-659 20-665 20-666 20-681
20-681 20-684 20-685 #21-693 21-693 21-700 21-701 21-704 21-705 21-707
21-716 21-716 21-717 21-717 21-718 21-729 21-731 21-731 21-733 21-735
#22-743 22-743 22-749 22-750 22-753 22-753 22-754 22-754 22-755 22-761
22-761 22-763 22-766 22-766 22-768 22-770 #23-777 23-777 23-782 23-782
23-783 23-785 23-785 23-787 23-792 23-792 23-793 23-798 23-801 23-802
23-808 23-809 23-811 23-812 23-814 23-815 23-817 23-817 23-819 23-820
23-822 23-822 23-825 23-826 23-827 #24-835 24-835 24-841 24-842 24-847
24-847 24-849 24-851 #24-855 24-855 24-860 #24-864 24-864 24-868 #24-872
24-872 24-877 #26-902 26-902 26-908 #27-921 27-921 27-928 #28-941 28-941
28-947 #29-964 29-964 29-971 29-972 29-974 29-986 #30-1004 30-1004 30-1007
30-1008 30-1009 30-1012 30-1012 30-1013 30-1022 30-1023 30-1023 30-1025 30-1027
#31-1044 31-1044 31-1048 31-1048 31-1049 31-1050 31-1058 31-1060 #33-1076 33-1076
33-1080 33-1081 33-1081 33-1082 33-1084 33-1084 33-1086 33-1092 #34-1101 34-1101
34-1106 #35-1115 35-1115 35-1119 35-1120 35-1122 35-1122 35-1123 35-1124 35-1126
35-1126 35-1127 35-1128 35-1130 35-1130 35-1132 35-1137 #36-1146 36-1146 36-1151
#37-1160 37-1160 37-1165 #38-1175 38-1175 38-1180 #41-1220 41-1220 41-1263 #43-1307
43-1307 43-1316 43-1317 43-1319 43-1320 43-1322 43-1324 43-1325 43-1327 43-1328
43-1329 43-1337 43-1337 43-1339 43-1340 43-1342 43-1342 43-1344 43-1345 43-1346
43-1347 44-1351 44-1352 44-1354 44-1355 44-1367 44-1368 44-1370 44-1371 44-1377
44-1377 44-1380 44-1381 44-1383 44-1383 44-1390 44-1391 44-1404 44-1404 44-1406
44-1408 44-1409 45-1413 45-1414 45-1417 45-1418 45-1426 45-1426 45-1434 45-1435
45-1442 45-1442 45-1444 45-1446 45-1447 45-1451 45-1453 45-1455 45-1456 45-1466
45-1468 46-1472 46-1473 46-1475 46-1476 46-1482 46-1482 46-1484 46-1485 46-1487
46-1488 46-1494 46-1496 #49-1527 49-1527 49-1532 49-1533 49-1535 49-1537 49-1538
49-1540 49-1542 49-1543 49-1545 50-1551 50-1551 50-1552 50-1556 50-1557 50-1558
50-1560 50-1560 50-1561 50-1562 50-1564 50-1564 50-1565 50-1566 50-1567 50-1568
50-1570 50-1570 50-1571 50-1573 50-1574 50-1576 50-1576 50-1579 50-1581
$$GEN2 #6-97 #7-105 #7-113 #7-129 #7-148 #8-171 #9-184 #10-233 #10-241 #10-257
#10-266 #10-267 #11-290 #12-352 #12-360 #12-374 #13-420 #13-424 #13-425 #13-439
#13-442 #13-451 #14-468 #14-469 #14-470 #14-475 #14-496 #14-497 #15-517 #15-523
#15-533 #15-534 #15-538 #15-539 #15-548 #17-576 #17-587 #17-588 #17-592 #17-593
#18-604 #18-612 #19-627 #19-640 #19-641 #20-659 #21-693 #22-743 #23-777 #23-801
#23-808 #23-814 #23-819 #24-835 #24-855 #24-864 #24-872 #26-902 #27-921 #28-941
#29-964 #29-971 #30-1004 #30-1007 #30-1008 #31-1044 #31-1049 #33-1076 #33-1080 #34-1101
#35-1115 #35-1119 #35-1123 #35-1127 #36-1146 #37-1160 #38-1175 #41-1220 #43-1307 #43-1319
DMDUMP CREATED BY MACRO ON 13-OCT-79 AT 11:33 PAGE 19
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#43-1327 #43-1328 #43-1339 #44-1354 #44-1370 #45-1417 #46-1475 #49-1527 #49-1532 #49-1537
#49-1542 #50-1556 #50-1557 #50-1561 #50-1565 #50-1566 #50-1567 #50-1573
$$GNAB #6-97 7-105 7-113 7-129 7-148 #8-171 #9-184 9-189 #10-233 10-238
10-241 10-253 10-257 #11-290 11-295 11-302 #12-352 12-357 12-360 12-371
12-374 12-378 12-390 12-397 #13-420 13-425 13-432 13-442 13-451 14-462
14-468 14-475 14-497 14-504 15-513 #17-576 #18-604 18-612 #19-627 19-633
#20-659 20-665 #21-693 21-700 21-704 21-716 #22-743 22-749 22-753 #23-777
23-782 #24-835 24-841 #24-855 #24-864 #24-872 #26-902 #27-921 #28-941 #29-964
29-971 #30-1004 30-1007 #31-1044 #33-1076 33-1080 #34-1101 #35-1115 35-1119 35-1123
35-1127 #36-1146 #37-1160 #38-1175 #41-1220 #43-1307 43-1316 43-1324 44-1351 44-1367
44-1370 44-1390 45-1413 45-1434 45-1446 45-1455 46-1472 46-1487 #49-1527 50-1556
50-1557 50-1561 50-1565 50-1566 50-1567
$$GNBT #6-97 #7-101 #7-144 #7-145 #7-156 #8-171 #9-184 #10-233 #10-266 #10-267
#11-290 #12-352 #13-420 #13-424 #13-439 #13-450 #14-469 #14-470 #14-481 #14-496
#15-517 #15-518 #15-523 #15-533 #15-534 #15-538 #15-539 #15-548 #17-576 #17-587
#17-588 #17-592 #17-593 #18-604 #18-611 #18-617 #19-627 #19-640 #19-641 #20-659
#21-693 #21-717 #22-743 #22-754 #23-777 #23-792 #23-801 #23-808 #23-814 #23-819
#24-835 #24-855 #24-864 #24-872 #26-902 #27-921 #28-941 #29-964 #30-1004 #30-1008
#30-1012 #31-1044 #31-1048 #31-1049 #33-1076 #33-1081 #34-1101 #35-1115 #36-1146 #37-1160
#38-1175 #41-1220 #43-1307 #43-1319 #43-1327 #43-1328 #43-1339 #44-1354 #45-1417 #46-1475
#49-1527 #49-1532 #49-1537 #49-1542 #50-1551 #50-1573
$$GNCM #6-97 7-101 7-105 7-113 7-129 7-144 7-145 7-148 7-156 #8-171
#9-184 9-189 #10-233 10-238 10-241 10-253 10-257 10-266 10-267 #11-290
11-295 11-302 #12-352 12-357 12-360 12-371 12-374 12-378 12-390 12-397
#13-420 13-424 13-425 13-432 13-439 13-442 13-450 13-451 14-462 14-468
14-469 14-470 14-475 14-481 14-496 14-497 14-504 15-513 15-517 15-518
15-523 15-533 15-534 15-538 15-539 15-548 #17-576 17-587 17-588 17-592
17-593 #18-604 18-611 18-612 18-617 #19-627 19-633 19-640 19-641 #20-659
20-665 #21-693 21-700 21-704 21-716 21-717 #22-743 22-749 22-753 22-754
#23-777 23-782 23-792 23-801 23-808 23-814 23-819 #24-835 24-841 #24-855
#24-864 #24-872 #26-902 #27-921 #28-941 #29-964 29-971 #30-1004 30-1007 30-1008
30-1012 #31-1044 31-1048 31-1049 #33-1076 33-1080 33-1081 #34-1101 #35-1115 35-1119
35-1123 35-1127 #36-1146 #37-1160 #38-1175 #41-1220 #43-1307 43-1316 43-1319 43-1324
43-1327 43-1328 43-1339 44-1351 44-1354 44-1367 44-1370 44-1390 45-1413 45-1417
45-1434 45-1446 45-1455 46-1472 46-1475 46-1487 #49-1527 49-1532 49-1537 49-1542
50-1551 50-1556 50-1557 50-1561 50-1565 50-1566 50-1567 50-1573
$$INMC #6-97 #6-97 #8-171 #8-171 #9-184 #9-184 #10-233 #10-233 #11-290 #11-290
#12-352 #12-352 #13-420 #13-420 #17-576 #17-576 #18-604 #18-604 #19-627 #19-627
#20-659 #20-659 #21-693 #21-693 #22-743 #22-743 #23-777 #23-777 #24-835 #24-835
#24-855 #24-855 #24-864 #24-864 #24-872 #24-872 #26-902 #26-902 #27-921 #27-921
#28-941 #28-941 #29-964 #29-964 #30-1004 #30-1004 #31-1044 #31-1044 #33-1076 #33-1076
#34-1101 #34-1101 #35-1115 #35-1115 #36-1146 #36-1146 #37-1160 #37-1160 #38-1175 #38-1175
#41-1220 #41-1220 #43-1307 #43-1307 #49-1527 #49-1527
$$INSY #6-97 #6-97 #8-171 #8-171 #9-184 #9-184 #10-233 #10-233 #11-290 #11-290
#12-352 #12-352 #13-420 #13-420 #17-576 #17-576 #18-604 #18-604 #19-627 #19-627
#20-659 #20-659 #21-693 #21-693 #22-743 #22-743 #23-777 #23-777 #24-835 #24-835
#24-855 #24-855 #24-864 #24-864 #24-872 #24-872 #26-902 #26-902 #27-921 #27-921
#28-941 #28-941 #29-964 #29-964 #30-1004 #30-1004 #31-1044 #31-1044 #33-1076 #33-1076
#34-1101 #34-1101 #35-1115 #35-1115 #36-1146 #36-1146 #37-1160 #37-1160 #38-1175 #38-1175
#41-1220 #41-1220 #43-1307 #43-1307 #49-1527 #49-1527
$$LAB #6-97 #7-102 #7-106 #7-112 #7-114 #7-128 #7-130 #7-135 #7-135 #7-137
#7-143 #7-146 #7-149 #7-151 #7-153 #7-154 #7-157 #7-159 #7-161 #7-162
DMDUMP CREATED BY MACRO ON 13-OCT-79 AT 11:33 PAGE 20
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#8-171 #9-184 #9-190 #9-223 #10-233 #10-239 #10-242 #10-245 #10-248 #10-249
#10-251 #10-254 #10-258 #10-261 #10-264 #10-268 #10-276 #10-279 #10-280 #10-282
#11-290 #11-296 #11-298 #11-300 #11-303 #11-342 #12-352 #12-358 #12-361 #12-363
#12-365 #12-367 #12-369 #12-372 #12-375 #12-379 #12-381 #12-383 #12-384 #12-387
#12-388 #12-391 #12-398 #12-404 #12-407 #12-409 #12-411 #13-420 #13-426 #13-433
#13-435 #13-440 #13-443 #13-445 #13-447 #13-448 #13-452 #13-454 #13-456 #13-457
#13-458 #14-463 #14-471 #14-474 #14-476 #14-480 #14-482 #14-484 #14-487 #14-489
#14-491 #14-495 #14-498 #14-505 #14-507 #14-509 #15-514 #15-519 #15-524 #15-528
#15-531 #15-535 #15-540 #15-542 #15-543 #15-545 #15-547 #15-549 #15-553 #15-556
#15-557 #15-559 #16-564 #16-572 #17-576 #17-589 #17-594 #17-596 #17-597 #17-599
#18-604 #18-610 #18-613 #18-615 #18-618 #18-621 #18-623 #19-627 #19-634 #19-637
#19-642 #19-645 #19-646 #20-659 #20-666 #20-681 #20-684 #21-693 #21-701 #21-705
#21-707 #21-718 #21-729 #21-731 #21-733 #22-743 #22-750 #22-755 #22-761 #22-763
#22-766 #22-768 #23-777 #23-783 #23-785 #23-787 #23-793 #23-798 #23-802 #23-809
#23-811 #23-812 #23-815 #23-817 #23-820 #23-822 #23-825 #23-826 #24-835 #24-842
#24-847 #24-849 #24-855 #24-864 #24-872 #26-902 #27-921 #28-941 #29-964 #29-972
#29-974 #30-1004 #30-1009 #30-1013 #30-1022 #30-1023 #30-1025 #31-1044 #31-1050 #31-1058
#33-1076 #33-1082 #33-1084 #33-1086 #34-1101 #35-1115 #35-1120 #35-1122 #35-1124 #35-1126
#35-1128 #35-1130 #35-1132 #36-1146 #37-1160 #38-1175 #41-1220 #43-1307 #43-1317 #43-1320
#43-1322 #43-1325 #43-1329 #43-1337 #43-1340 #43-1342 #43-1344 #43-1345 #43-1346 #43-1347
#44-1352 #44-1355 #44-1368 #44-1371 #44-1377 #44-1380 #44-1381 #44-1383 #44-1391 #44-1404
#44-1406 #44-1408 #44-1409 #45-1414 #45-1418 #45-1426 #45-1435 #45-1442 #45-1444 #45-1447
#45-1451 #45-1453 #45-1456 #45-1466 #45-1468 #46-1473 #46-1476 #46-1482 #46-1484 #46-1485
#46-1488 #46-1494 #49-1527 #49-1533 #49-1535 #49-1538 #49-1540 #49-1543 #49-1545 #50-1552
#50-1558 #50-1560 #50-1562 #50-1564 #50-1568 #50-1570 #50-1570 #50-1571 #50-1574 #50-1576
#50-1579
$$POP #6-97 #7-135 #7-135 #7-135 #7-153 #7-153 #7-154 #7-154 #7-161 #7-161
#7-162 #7-162 #8-171 #9-184 #9-223 #9-223 #10-233 #10-248 #10-248 #10-251
#10-251 #10-264 #10-264 #10-279 #10-279 #10-282 #10-282 #11-290 #11-300 #11-300
#11-342 #11-342 #12-352 #12-365 #12-365 #12-369 #12-369 #12-383 #12-383 #12-387
#12-387 #12-388 #12-388 #12-407 #12-407 #12-411 #12-411 #13-420 #13-447 #13-447
#13-456 #13-456 #13-457 #13-457 #13-458 #13-458 #14-487 #14-487 #14-487 #14-491
#14-491 #14-509 #14-509 #15-531 #15-531 #15-542 #15-542 #15-545 #15-545 #15-556
#15-556 #15-556 #15-559 #15-559 #16-572 #16-572 #16-572 #17-576 #17-596 #17-596
#17-599 #17-599 #18-604 #18-615 #18-615 #18-623 #18-623 #19-627 #19-645 #19-645
#19-646 #19-646 #20-659 #20-684 #20-684 #21-693 #21-707 #21-707 #21-729 #21-729
#21-733 #21-733 #22-743 #22-763 #22-763 #22-768 #22-768 #23-777 #23-787 #23-787
#23-798 #23-798 #23-811 #23-811 #23-812 #23-812 #23-825 #23-825 #23-826 #23-826
#24-835 #24-849 #24-849 #24-855 #24-864 #24-872 #26-902 #27-921 #28-941 #29-964
#29-974 #29-974 #30-1004 #30-1022 #30-1022 #30-1025 #30-1025 #31-1044 #31-1058 #31-1058
#33-1076 #33-1086 #33-1086 #34-1101 #35-1115 #35-1132 #35-1132 #35-1132 #36-1146 #37-1160
#38-1175 #41-1220 #43-1307 #43-1322 #43-1322 #43-1344 #43-1344 #43-1345 #43-1345 #43-1346
#43-1346 #43-1347 #43-1347 #44-1380 #44-1380 #44-1381 #44-1381 #44-1406 #44-1406 #44-1408
#44-1408 #44-1409 #44-1409 #45-1444 #45-1444 #45-1451 #45-1451 #45-1453 #45-1453 #45-1466
#45-1466 #45-1468 #45-1468 #46-1484 #46-1484 #46-1485 #46-1485 #46-1494 #46-1494 #49-1527
#49-1535 #49-1535 #49-1540 #49-1540 #49-1545 #49-1545 #50-1570 #50-1570 #50-1570 #50-1571
#50-1571 #50-1579 #50-1579
$$POPI #6-97 #7-135 #7-135 #7-135 #7-153 #7-153 #7-154 #7-154 #7-161 #7-161
#7-162 #7-162 #8-171 #9-184 #9-223 #9-223 #10-233 #10-248 #10-248 #10-251
#10-251 #10-264 #10-264 #10-279 #10-279 #10-282 #10-282 #11-290 #11-300 #11-300
#11-342 #11-342 #12-352 #12-365 #12-365 #12-369 #12-369 #12-383 #12-383 #12-387
#12-387 #12-388 #12-388 #12-407 #12-407 #12-411 #12-411 #13-420 #13-447 #13-447
DMDUMP CREATED BY MACRO ON 13-OCT-79 AT 11:33 PAGE 21
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#13-456 #13-456 #13-457 #13-457 #13-458 #13-458 #14-487 #14-487 #14-487 #14-491
#14-491 #14-509 #14-509 #15-531 #15-531 #15-542 #15-542 #15-545 #15-545 #15-556
#15-556 #15-556 #15-559 #15-559 #16-572 #16-572 #16-572 #17-576 #17-596 #17-596
#17-599 #17-599 #18-604 #18-615 #18-615 #18-623 #18-623 #19-627 #19-645 #19-645
#19-646 #19-646 #20-659 #20-684 #20-684 #21-693 #21-707 #21-707 #21-729 #21-729
#21-733 #21-733 #22-743 #22-763 #22-763 #22-768 #22-768 #23-777 #23-787 #23-787
#23-798 #23-798 #23-811 #23-811 #23-812 #23-812 #23-825 #23-825 #23-826 #23-826
#24-835 #24-849 #24-849 #24-855 #24-864 #24-872 #26-902 #27-921 #28-941 #29-964
#29-974 #29-974 #30-1004 #30-1022 #30-1022 #30-1025 #30-1025 #31-1044 #31-1058 #31-1058
#33-1076 #33-1086 #33-1086 #34-1101 #35-1115 #35-1132 #35-1132 #35-1132 #36-1146 #37-1160
#38-1175 #41-1220 #43-1307 #43-1322 #43-1322 #43-1344 #43-1344 #43-1345 #43-1345 #43-1346
#43-1346 #43-1347 #43-1347 #44-1380 #44-1380 #44-1381 #44-1381 #44-1406 #44-1406 #44-1408
#44-1408 #44-1409 #44-1409 #45-1444 #45-1444 #45-1451 #45-1451 #45-1453 #45-1453 #45-1466
#45-1466 #45-1468 #45-1468 #46-1484 #46-1484 #46-1485 #46-1485 #46-1494 #46-1494 #49-1527
#49-1535 #49-1535 #49-1540 #49-1540 #49-1545 #49-1545 #50-1570 #50-1570 #50-1570 #50-1571
#50-1571 #50-1579 #50-1579
$$PUSH #6-97 7-100 7-100 7-103 7-103 7-103 7-143 7-143 7-147 7-147
7-155 7-155 #8-171 #9-184 9-188 9-188 #10-233 10-237 10-237 10-240
10-240 10-252 10-252 10-256 10-256 10-265 10-265 #11-290 11-294 11-294
11-301 11-301 #12-352 12-356 12-356 12-359 12-359 12-370 12-370 12-373
12-373 12-377 12-377 12-389 12-389 12-396 12-396 #13-420 13-421 13-421
13-421 13-431 13-431 13-438 13-438 13-441 13-441 13-449 13-449 14-461
14-461 14-465 14-465 14-465 14-503 14-503 15-512 15-512 15-515 15-515
15-515 15-522 15-522 15-532 15-532 15-537 15-537 #17-576 17-586 17-586
17-591 17-591 #18-604 18-610 18-610 18-616 18-616 #19-627 19-632 19-632
19-639 19-639 #20-659 20-664 20-664 #21-693 21-699 21-699 21-703 21-703
21-715 21-715 #22-743 22-748 22-748 22-752 22-752 #23-777 23-781 23-781
23-791 23-791 23-800 23-800 23-807 23-807 23-813 23-813 23-818 23-818
#24-835 24-840 24-840 #24-855 #24-864 #24-872 #26-902 #27-921 #28-941 #29-964
29-970 29-970 #30-1004 30-1006 30-1006 30-1011 30-1011 #31-1044 31-1047 31-1047
#33-1076 33-1079 33-1079 #34-1101 #35-1115 35-1116 35-1116 35-1116 #36-1146 #37-1160
#38-1175 #41-1220 #43-1307 43-1315 43-1315 43-1318 43-1318 43-1323 43-1323 43-1326
43-1326 43-1338 43-1338 44-1350 44-1350 44-1353 44-1353 44-1366 44-1366 44-1369
44-1369 44-1389 44-1389 45-1412 45-1412 45-1416 45-1416 45-1433 45-1433 45-1445
45-1445 45-1454 45-1454 46-1471 46-1471 46-1474 46-1474 46-1486 46-1486 #49-1527
49-1531 49-1531 49-1536 49-1536 49-1541 49-1541 50-1550 50-1550 50-1553 50-1553
50-1553 50-1572 50-1572
$$STSM #6-97 7-100 7-100 7-103 7-103 7-103 7-143 7-143 7-147 7-147
7-155 7-155 #8-171 #9-184 9-188 9-188 #10-233 10-237 10-237 10-240
10-240 10-252 10-252 10-256 10-256 10-265 10-265 #11-290 11-294 11-294
11-301 11-301 #12-352 12-356 12-356 12-359 12-359 12-370 12-370 12-373
12-373 12-377 12-377 12-389 12-389 12-396 12-396 #13-420 13-421 13-421
13-421 13-431 13-431 13-438 13-438 13-441 13-441 13-449 13-449 14-461
14-461 14-465 14-465 14-465 14-503 14-503 15-512 15-512 15-515 15-515
15-515 15-522 15-522 15-532 15-532 15-537 15-537 #17-576 17-586 17-586
17-591 17-591 #18-604 18-610 18-610 18-616 18-616 #19-627 19-632 19-632
19-639 19-639 #20-659 20-664 20-664 #21-693 21-699 21-699 21-703 21-703
21-715 21-715 #22-743 22-748 22-748 22-752 22-752 #23-777 23-781 23-781
23-791 23-791 23-800 23-800 23-807 23-807 23-813 23-813 23-818 23-818
#24-835 24-840 24-840 #24-855 #24-864 #24-872 #26-902 #27-921 #28-941 #29-964
29-970 29-970 #30-1004 30-1006 30-1006 30-1011 30-1011 #31-1044 31-1047 31-1047
#33-1076 33-1079 33-1079 #34-1101 #35-1115 35-1116 35-1116 35-1116 #36-1146 #37-1160
DMDUMP CREATED BY MACRO ON 13-OCT-79 AT 11:33 PAGE 22
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#38-1175 #41-1220 #43-1307 43-1315 43-1315 43-1318 43-1318 43-1323 43-1323 43-1326
43-1326 43-1338 43-1338 44-1350 44-1350 44-1353 44-1353 44-1366 44-1366 44-1369
44-1369 44-1389 44-1389 45-1412 45-1412 45-1416 45-1416 45-1433 45-1433 45-1445
45-1445 45-1454 45-1454 46-1471 46-1471 46-1474 46-1474 46-1486 46-1486 #49-1527
49-1531 49-1531 49-1536 49-1536 49-1541 49-1541 50-1550 50-1550 50-1553 50-1553
50-1553 50-1572 50-1572
$$SYS #6-97 #8-171 #9-184 #10-233 #11-290 #12-352 #13-420 #17-576 #18-604 #19-627
#20-659 #21-693 #22-743 #23-777 #24-835 #24-855 #24-864 #24-872 #26-902 #27-921
#28-941 #29-964 #30-1004 #31-1044 #33-1076 #34-1101 #35-1115 #36-1146 #37-1160 #38-1175
#41-1220 #43-1307 #49-1527
$$TRCE #6-97 6-97 7-165 #8-171 8-171 8-176 #9-184 9-184 9-225 #10-233
10-233 10-283 #11-290 11-290 11-344 #12-352 12-352 12-412 #13-420 13-420
16-574 #17-576 17-576 17-602 #18-604 18-604 18-625 #19-627 19-627 19-648
#20-659 20-659 20-685 #21-693 21-693 21-735 #22-743 22-743 22-770 #23-777
23-777 23-827 #24-835 24-835 24-851 #24-855 24-855 24-860 #24-864 24-864
24-868 #24-872 24-872 24-877 #26-902 26-902 26-908 #27-921 27-921 27-928
#28-941 28-941 28-947 #29-964 29-964 29-986 #30-1004 30-1004 30-1027 #31-1044
31-1044 31-1060 #33-1076 33-1076 33-1092 #34-1101 34-1101 34-1106 #35-1115 35-1115
35-1137 #36-1146 36-1146 36-1151 #37-1160 37-1160 37-1165 #38-1175 38-1175 38-1180
#41-1220 41-1220 41-1263 #43-1307 43-1307 46-1496 #49-1527 49-1527 50-1581