Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/ldload.list
There are no other files named ldload.list in the archive.
LDLOAD MACRO M1110 13-OCT-79 11:45
TABLE OF CONTENTS
8- 52 LDABRT
9- 110 LDAMES
10- 191 LDBOOT
13- 385 LDCLUP
15- 593 LDCNFG
17- 768 LDDFHO
19- 904 LDFILE
21- 1032 LDFINI
23- 1169 LDFLIN
26- 1378 LDFMES
27- 1438 LDINIT
29- 1540 LDLINK
31- 1669 LDLOAD
33- 1792 LDLKIN
36- 1978 LDPABO
37- 2034 LDPARS
39- 2241 LDPPRQ
41- 2323 LDPRFC
44- 2494 LDPROC
46- 2574 LDPRRC
48- 2698 LDPRSG
50- 2888 LDTRIM
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 3
1 .TITLE LDLOAD
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 LOAD 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 ;
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 4
36 ;
37 ; +-------------------------------------------------+
38 ; I I
39 ; I L O A D I
40 ; I - - - - I
41 ; I I
42 ; +-------------------------------------------------+
43 ;
44 ; FUNCTION:
45 ;
46 ; NICE LOAD PROCESSOR
47 ;
48 ; EXTERNAL MACROS
49 ;
50 .MCALL PROC,PROCLC
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 5
LDABRT
52 .SBTTL LDABRT
53 ;
54 ;======================================================================;
55 ;++
56 ; +-------------------------------------------------+
57 ; I I
58 ; I L D A B R T I
59 ; I - - - - - - I
60 ; I I
61 ; +-------------------------------------------------+
62 ;
63 ; FUNCTION:
64 ;
65 ; LOAD MODULE TO ABORT PROCESSING
66 ;
67 ; INPUT:
68 ;
69 ; R0 - NICE RETURN CODE
70 ; R4 - ADDRESS OF CONTEXT BLOCK
71 ;
72 ; OUTPUT:
73 ;
74 ; C-BIT - SET
75 ; @R4 - UPDATED CONTEXT BLOCK
76 ; RETCOD - NICE RETURN CODE
77 ; SBSTAT - ZERO
78 ; STATE - PROCESSING STATE OF FINISH
79 ;
80 ; REQUIREMENTS:
81 ;
82 ; LOAD SYMBOLS:
83 ;
84 ; FINISH - FINISH STATE VALUE
85 ; RETCOD - OFFSET OF RETURN CODE IN CONTEXT
86 ; SBSTAT - OFFSET OF SUBSTATE IN CONTEXT
87 ; STATE - OFFSET OF STATE IN CONTEXT
88 ;
89 ;--
90 ;======================================================================;
91 ;
92 ;
93 ; EXTERNAL MACROS
94 ;
95 .MCALL LDDF
96 ;
97 ; DEFINE EXTERNAL SYMBOLS
98 ;
99 000000 LDDF ;LOAD SYMBOLS
100 ;
101 ; LOCAL PROCEDURE BODY
102 ;
103 000000 PROCLC LDABRT
104 000000 110064 000104 MOVB R0,RETCOD(R4) ;SET RETURN CODE FOR LATER
105 000004 105064 000103 CLRB SBSTAT(R4) ;INITIALIZE SUBSTATE
106 000010 112764 000005 000102 MOVB #FINISH,STATE(R4) ;START THE TERMINATION
107 000016 000261 SEC ;SIGNAL FAILURE FOR CALLER
108 000020 ENDPROC
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 6
LDAMES
110 .SBTTL LDAMES
111 ;
112 ;======================================================================;
113 ;++
114 ; +-------------------------------------------------+
115 ; I I
116 ; I L D A M E S I
117 ; I - - - - - - I
118 ; I I
119 ; +-------------------------------------------------+
120 ;
121 ; FUNCTION:
122 ;
123 ; LOAD MODULE TO ALLOCATE A MESSAGE BUFFER
124 ;
125 ; INPUT:
126 ;
127 ; R4 - ADDRESS OF CONTEXT BLOCK
128 ; MSBFHD - ADDRESS OF FIRST MESSAGE BUFFER ON FREE LIST, ZERO IF
129 ; NONE
130 ; R5 - ADDRESS OF CONTROL BLOCK
131 ;
132 ; OUTPUT:
133 ;
134 ; @R4 - UPDATED CONTEXT BLOCK
135 ; MSBFHD - NEW MESSAGE BUFFER LIST HEAD
136 ; SBSTAT - ALLOCATE BUFFER; IN PROCESS IF NO BUFFER, ELSE COMPLETE
137 ; @R5 - UPDATED CONTROL BLOCK
138 ; C.ADDR - IF COMPLETE, ADDRESS OF BUFFER
139 ; C.FUNC - ALLOCATE BUFFER FUNCTION CODE
140 ; C.LEN - LENGTH OF BUFFER
141 ;
142 ; REQUIREMENTS:
143 ;
144 ; LOAD SYMBOLS:
145 ;
146 ; ALBF - ALLOCATE BUFFER SUBSTATE VALUE
147 ; MSBFHD - OFFSET OF MESSAGE BUFFER FREE LIST HEAD IN CONTEXT
148 ; SBSTAT - OFFSET OF SUBSTATE IN CONTEXT
149 ;
150 ; NICE MESSAGE SYMBOLS:
151 ;
152 ; N.MLEN - MAXIMUM LENGTH OF A NICE MESSAGE
153 ;
154 ; CONTROL BLOCK SYMBOLS:
155 ;
156 ; C.ADDR - OFFSET OF ADDRESS FIELD
157 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
158 ; C.LEN - OFFSET OF LENGTH FIELD
159 ; C$ALBF - ALLOCATE BUFFER FUNCTION CODE
160 ;
161 ;--
162 ;======================================================================;
163 ;
164 ;
165 ; EXTERNAL MACROS
166 ;
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 6-1
LDAMES
167 .MCALL CONDF,NICDF,LDDF
168 ;
169 ; DEFINE EXTERNAL SYMBOLS
170 ;
171 000022 NICDF ;NICE MESSAGE SYMBOLS
172 000022 CONDF ;CONTROL BLOCK SYMBOLS
173 000022 LDDF ;LOAD SYMBOLS
174 ;
175 ; LOCAL PROCEDURE BODY
176 ;
177 000022 PROCLC LDAMES
178 000022 112765 000032 000006 MOVB #C$ALBF,C.FUNC(R5) ;SET CONTROL BLOCK TO ALLOCATE MEMORY
179 000030 012765 000454 000012 MOV #N.MLEN,C.LEN(R5) ;SET LENGTH FOR NICE MESSAGE
180 000036 IF ; NO MESSAGE BUFFER AVAILABLE
181 000036 FALSE SET MSBFHD(R4)
182 000044 THEN
183 000044 112764 177777 000103 MOVB #-ALBF,SBSTAT(R4) ;SET SUBSTATE TO ALLOCATE IN PROCESS
184 000052 ELSE
185 000054 016465 000000 000014 MOV MSBFHD(R4),C.ADDR(R5) ;USE THIS BUFFER
186 000062 017564 000014 000000 MOV @C.ADDR(R5),MSBFHD(R4) ;UPDATE LIST HEAD
187 000070 112764 000001 000103 MOVB #ALBF,SBSTAT(R4) ;ACT LIKE IT'S ALL DONE
188 000076 ENDIF
189 000076 ENDPROC
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 7
LDBOOT
191 .SBTTL LDBOOT
192 ;
193 ;======================================================================;
194 ;++
195 ; +-------------------------------------------------+
196 ; I I
197 ; I L D B O O T I
198 ; I - - - - - - I
199 ; I I
200 ; +-------------------------------------------------+
201 ;
202 ; FUNCTION:
203 ;
204 ; LOAD MODULE TO BOOT REMOTE NODE IF NECESSARY
205 ;
206 ; INPUT:
207 ;
208 ; R4 - ADDRESS OF CONTEXT BLOCK
209 ; BOOPAS - BOOT PASSWORD IMAGE
210 ; LINE - SERVER LINE ID
211 ; LSLKNM - LINE SERVICE LINK NUMBER
212 ; OPTION - NICE MESSAGE OPTION
213 ; SBSTAT - PROCESSING SUBSTATE
214 ; R5 - ADDRESS OF CONTROL BLOCK
215 ; C.ADDR - ON ALLOCATE BUFFER COMPLETION, ADDRESS OF BUFFER; ON
216 ; RECEIVE MESSAGE COMPLETION, ADDRESS OF MESSAGE
217 ; C.LEN - ON RECEIVE MESSAGE COMPLETION, LENGTH OF MESSAGE
218 ; C.RET - ON COMPLETION ENTRY, RETURN CODE
219 ; OTHER INPUTS - AS DESCRIBED FOR SUBMODULES
220 ;
221 ; OUTPUT:
222 ;
223 ; @R4 - UPDATED CONTEXT
224 ; SBSTAT - PROCESSING SUBSTATE
225 ; STATE - PROCESSING STATE
226 ; @R5 - UPDATED CONTROL BLOCK
227 ; C.ADDR - ON TRANSMIT OR RECEIVE MESSAGE COMPLETION, ADDRESS OF
228 ; MESSAGE
229 ; C.FUNC - FUNCTION TO PERFORM
230 ; C.LEN - ON TRANSMIT MESSAGE REQUEST, LENGTH OF MESSAGE; ON
231 ; RECEIVE MESSAGE REQUEST, LENGTH OF BUFFER
232 ; C.LKNM - ON TRANSMIT OR RECEIVE MESSAGE REQUEST, LINK NUMBER
233 ; OTHER OUTPUTS - AS DESCRIBED FOR SUBMODULES
234 ;
235 ; REQUIREMENTS:
236 ;
237 ; LOAD SYMBOLS:
238 ;
239 ; ALBF - ALLOCATE BUFFER SUBSTATE VALUE
240 ; BOOPAS - OFFSET OF BOOT PASSWORD IMAGE IN CONTEXT
241 ; LINE - OFFSET OF SERVER LINE ID IN CONTEXT
242 ; LOAD - LOAD STATE VALUE
243 ; LSLKNM - OFFSET OF LINE SERVICE LINK NUMBER IN CONTEXT
244 ; OPTION - OFFSET OF NICE MESSAGE OPTION IN CONTEXT
245 ; RCMS - RECEIVE MESSAGE SUBSTATE VALUE
246 ; SBSTAT - OFFSET OF SUBSTATE IN CONTEXT
247 ; STATE - OFFSET OF STATE IN CONTEXT
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 7-1
LDBOOT
248 ; TRIBOO - TRIGGER BOOT ROM NICE OPTION BIT MASK
249 ;
250 ; NICE MESSAGE SYMBOLS:
251 ;
252 ; LI$STA - STANDARD LINE ID TYPE VALUE
253 ; LS$TRQ - TRIGGER BOOT/GET PROGRAM REQUEST LINE SERVICE OPTION
254 ; N.MLEN - MAXIMUM LENGTH OF A NICE MESSAGE
255 ; N$LNSR - NICE LINE SERVICE FUNCTION CODE
256 ; NE$FOR - MESSAGE FORMAT ERROR RETURN CODE
257 ; NE$NCO - NETWORK COMMUNICATION ERROR RETURN CODE
258 ;
259 ; CONTROL BLOCK SYMBOLS:
260 ;
261 ; C.ADDR - OFFSET OF ADDRESS FIELD
262 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
263 ; C.LEN - OFFSET OF LENGTH FIELD
264 ; C.LKNM - OFFSET OF LINK NUMBER FIELD
265 ; C.RET - OFFSET OF RETURN CODE FIELD
266 ; C$RCMS - RECEIVE MESSAGE FUNCTION CODE
267 ; C$TRMS - TRANSMIT MESSAGE FUNCTION CODE
268 ;
269 ;--
270 ;======================================================================;
271 ;
272 ;
273 ; EXTERNAL MACROS
274 ;
275 .MCALL LDDF,CONDF,NICDF,SAVSTK,RESSTK
276 ;
277 ; DEFINE EXTERNAL SYMBOLS
278 ;
279 000100 LDDF ;LOAD SYMBOLS
280 000100 CONDF ;CONTROL BLOCK SYMBOLS
281 000100 NICDF ;NICE MESSAGE SYMBOLS
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 8
LDBOOT
283 ;
284 ; LOCAL PROCEDURE BODY
285 ;
286 000100 PROCLC LDBOOT
287 000100 IF ; SUBSTATE = 0
288 000100 FALSEB SET SBSTAT(R4)
289 000106 THEN
290 000106 IF ; BOOT TO BE TRIGGERED
291 000106 FALSEB CLEAR #TRIBOO,OPTION(R4)
292 000116 THEN
293 000116 CALL LDAMES ;ALLOCATE A MESSAGE BUFFER
294 000122 ELSE
295 000124 112764 000004 000102 MOVB #LOAD,STATE(R4) ;MOVE TO NEXT STATE
296 000132 ENDIF
297 000132 ENDIF
298 000132 IF ; SUBSTATE = ALLOCATE MEMORY BUFFER
299 000132 FALSEB NE SBSTAT(R4),#ALBF
300 000142 THEN
301 000142 016502 000014 MOV C.ADDR(R5),R2 ;GET ADDRESS OF MEMORY BUFFER
302 000146 112722 000016 MOVB #N$LNSR,(R2)+ ;PUT IN LINE SERVICE FUNCTION CODE
303 000152 112722 000003 MOVB #LS$TRQ,(R2)+ ;PUT IN TRIGGER BOOT, GET PROG. REQ. OPTION
304 000156 112722 000001 MOVB #LI$STA,(R2)+ ;STANDARD LINE ID FORMAT
305 000162 012700 000151 MOV #LINE,R0 ;OFFSET OF LINE ID IN CONTEXT
306 000166 060400 ADD R4,R0 ;MAKE IT A SOURCE ADDRESS
307 000170 012701 000004 MOV #4,R1 ;LENGTH OF LINE ID
308 000174 CALL MOVE ;MOVE LINE ID FROM CONTEXT TO MESSAGE
309 000200 012700 000155 MOV #BOOPAS,R0 ;OFFSET OF BOOT PASSWORD IN CONTEXT
310 000204 060400 ADD R4,R0 ;MAKE IT A SOURCE ADDRESS
311 000206 116401 000155 MOVB BOOPAS(R4),R1 ;GET LENGTH OF PASSWORD
312 000212 005201 INC R1 ;ADD ONE FOR LENGTH BYTE
313 000214 CALL MOVE ;MOVE BOOT PASSWORD IMAGE TO MESSAGE
314 000220 166502 000014 SUB C.ADDR(R5),R2 ;COMPUTE LENGTH OF MESSAGE
315 000224 010265 000012 MOV R2,C.LEN(R5) ;PUT LENGTH IN CONTROL BLOCK
316 000230 016465 000004 000020 MOV LSLKNM(R4),C.LKNM(R5) ;PUT LINK NUMBER IN CONTROL BLOCK
317 000236 112765 000053 000006 MOVB #C$TRMS,C.FUNC(R5) ;SET FUNCTION CODE TO TRANSMIT MESSAGE
318 000244 112764 177775 000103 MOVB #-TRMS,SBSTAT(R4) ;SET SUBSTATE TO TRANSMITTING MESSAGE
319 000252 ENDIF
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 9
LDBOOT
321 000252 IF ; SUBSTATE = TRANSMIT MESSAGE
322 000252 FALSEB NE SBSTAT(R4),#TRMS
323 000262 THEN
324 000262 IF ; SUCCESS
325 000262 FALSEB LT C.RET(R5)
326 000270 THEN
327 000270 012765 000454 000012 MOV #N.MLEN,C.LEN(R5) ;SET LENGTH OF BUFFER IN CONTROL BLOCK
328 000276 112765 000054 000006 MOVB #C$RCMS,C.FUNC(R5) ;SET FUNCTION CODE TO RECEIVE MESSAGE
329 000304 112764 177774 000103 MOVB #-RCMS,SBSTAT(R4) ;SET SUBSTATE TO RECEIVING MESSAGE
330 000312 ELSE
331 000314 CALL LDFMES ;FREE THE MESSAGE BUFFER
332 000320 012700 177755 MOV #NE$NCO,R0 ;NETWORK COMMUNICATIONS ERROR
333 000324 CALL LDABRT ;BAG IT
334 000330 ENDIF
335 000330 ENDIF
336 000330 IF ; SUBSTATE = RECEIVE MESSAGE
337 000330 FALSEB NE SBSTAT(R4),#RCMS
338 000340 THEN
339 000340 IF ; SUCCESS
340 000340 FALSEB LT C.RET(R5)
341 000346 THEN
342 000346 SAVSTK <R3> ;SAVE REGISTER
343 000350 016502 000014 MOV C.ADDR(R5),R2 ;GET ADDRESS OF MESSAGE
344 000354 010203 MOV R2,R3 ;COPY IT
345 000356 066503 000012 ADD C.LEN(R5),R3 ;COMPUTE MESSAGE END ADDRESS
346 000362 CALL GTMSBY ;GET THE RETURN CODE
347 000366 IF ; SUCCESS
348 000366 FALSE CS
349 000370 THEN
350 000370 IF ; BOOT SUCCESSFUL
351 000370 FALSE LT R0
352 000374 THEN
353 000374 CALL LDPPRQ ;PARSE PROGRAM REQUEST TO CONTEXT
354 000400 IF ; SUCCESS
355 000400 FALSE CS
356 000402 THEN
357 000402 IF ; MESSAGE USED UP
358 000402 FALSE NE R2,R3
359 000406 THEN
360 000406 112764 000004 000102 MOVB #LOAD,STATE(R4) ;MOVE TO NEXT STATE
361 000414 105064 000103 CLRB SBSTAT(R4) ;INITIALIZE SUBSTATE (SETS SUCCESS)
362 000420 ELSE
363 000422 012700 177776 MOV #NE$FOR,R0 ;MESSAGE FORMAT ERROR
364 000426 000261 SEC ;FAIL
365 000430 ENDIF
366 000430 ENDIF
367 000430 ELSE
368 000432 000261 SEC ;FAIL, ERROR CODE IS IN R0
369 000434 ENDIF
370 000434 ENDIF
371 000434 IF ; FAILURE
372 000434 FALSE CC
373 000436 THEN
374 000436 CALL LDABRT ;HANG IT UP
375 000442 ENDIF
376 000442 RESSTK <R3> ;RESTORE REGISTER
377 000444 ELSE
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 9-1
LDBOOT
378 000446 012700 177755 MOV #NE$NCO,R0 ;NETWORK COMMUNICATIONS ERROR
379 000452 CALL LDABRT ;QUIT THIS STUFF
380 000456 ENDIF
381 000456 CALL LDFMES ;FREE THE MESSAGE BUFFER IN ANY CASE
382 000462 ENDIF
383 000462 ENDPROC
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 10
LDCLUP
385 .SBTTL LDCLUP
386 ;
387 ;======================================================================;
388 ;++
389 ; +-------------------------------------------------+
390 ; I I
391 ; I L D C L U P I
392 ; I - - - - - - I
393 ; I I
394 ; +-------------------------------------------------+
395 ;
396 ; FUNCTION:
397 ;
398 ; LOAD MODULE TO CLEAN UP AFTER PROCESSING A SINGLE LOAD
399 ;
400 ; INPUT:
401 ;
402 ; R4 - ADDRESS OF CONTEXT BLOCK
403 ; BLKADR - DISK BLOCK BUFFER ADDRESS
404 ; FLAGS - PROCESSING FLAGS
405 ; LSLKNM - LINE SERVICE LINK NUMBER
406 ; LUN - FILE LOGICAL UNIT NUMBER
407 ; RETCOD - NICE RETURN CODE
408 ; SBSTAT - PROCESSING SUBSTATE
409 ; TRACNT - TRANSMITS-IN-PROGRESS COUNT
410 ; R5 - ADDRESS OF CONTROL BLOCK
411 ; C.FUNC - FUNCTION JUST PERFORMED
412 ; C.RET - RETURN CODE
413 ; OTHER INPUTS - AS DESCRIBED FOR SUBMODULES
414 ;
415 ; OUTPUT:
416 ;
417 ; @R4 - UPDATED CONTEXT BLOCK
418 ; BLKADR - ZERO WHEN DISK BLOCK BUFFER RELEASED
419 ; FLAGS - PROCESSING FLAGS
420 ; LSLKNM - ZERO WHEN LINK CLOSED
421 ; LUN - ZERO WHEN FILE CLOSED
422 ; SBSTAT - PROCESSING SUBSTATE
423 ; TRACNT - TRANSMITS-IN-PROGRESS COUNT
424 ; @R5 - UPDATED CONTROL BLOCK
425 ; C.ADDR - ON RELEASE BUFFER REQUEST, ADDRESS OF BUFFER
426 ; C.FUNC - FUNCTION TO PERFORM
427 ; C.LKNM - ON CLOSE LINK REQUEST, LINK NUMBER
428 ; C.LUN - ON CLOSE FILE REQUEST, FILE LOGICAL UNIT NUMBER
429 ; OTHER OUTPUTS - AS DESCRIBED FOR SUBMODULES
430 ;
431 ; REQUIREMENTS:
432 ;
433 ; LOAD SYMBOLS:
434 ;
435 ; ALLBUF - ALLOCATE BUFFER IN PROGRESS FLAG MASK
436 ; BLKADR - OFFSET OF DISK BLOCK BUFFER ADDRESS IN CONTEXT
437 ; CLEAN - CLEANUP SUBSTATE VALUE
438 ; FLAGS - OFFSET OF PROCESSING FLAGS IN CONTEXT
439 ; LOACOM - LOAD COMPLETE FLAG MASK
440 ; LSLKNM - OFFSET OF LINE SERVICE LINK NUMBER IN CONTEXT
441 ; LUN - OFFSET OF FILE LOGICAL UNIT NUMBER IN CONTEXT
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 10-1
LDCLUP
442 ; RCVPND - MESSAGE RECEIVE PENDING FLAG MASK
443 ; RDBLK - READ BLOCK PENDING FLAG MASK
444 ; RETCOD - OFFSET OF NICE RETURN CODE IN CONTEXT
445 ; SBSTAT - OFFSET OF SUBSTATE IN CONTEXT
446 ; TRACNT - OFFSET OF TRANSMIT COUNT IN CONTEXT
447 ; WAIT - WAIT SUBSTATE VALUE
448 ;
449 ; CONTROL BLOCK SYMBOLS:
450 ;
451 ; C.ADDR - OFFSET OF ADDRESS FIELD
452 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
453 ; C.LKNM - OFFSET OF LINK NUMBER FIELD
454 ; C.LUN - OFFSET OF LOGICAL UNIT NUMBER FIELD
455 ; C.RET - OFFSET OF RETURN CODE FIELD
456 ; C$ALBF - ALLOCATE BUFFER FUNCTION CODE
457 ; C$CLFL - CLOSE FILE FUNCTION CODE
458 ; C$CLLK - CLOSE LINK FUNCTION CODE
459 ; C$RCMA - RECEIVE MESSAGE ASYNCHRONOUS FUNCTION CODE
460 ; C$RDBK - READ BLOCK FROM FILE FUNCTION CODE
461 ; C$RLBF - RELEASE BUFFER FUNCTION CODE
462 ; C$RLCI - RELEASE CONTROL BLOCK IMMEDIATE FUNCTION CODE
463 ; C$TRMA - TRANSMIT MESSAGE ASYNCHRONOUS FUNCTION CODE
464 ; C$TRMS - TRANSMIT MESSAGE FUNCTION CODE
465 ; CS$ACK - ACKNOWLEDGEMENT SUCCESS RETURN CODE
466 ;
467 ;--
468 ;======================================================================;
469 ;
470 ;
471 ; EXTERNAL MACROS
472 ;
473 .MCALL LDDF,CONDF
474 ;
475 ; DEFINE EXTERNAL SYMBOLS
476 ;
477 000464 LDDF ;LOAD SYMBOLS
478 000464 CONDF ;CONTROL BLOCK SYMBOLS
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 11
LDCLUP
480 ;
481 ; LOCAL PROCEDURE BODY
482 ;
483 000464 PROCLC LDCLUP
484 000464 IF ; SUBSTATE <> 0
485 000464 FALSEB CLEAR SBSTAT(R4)
486 000472 THEN
487 000472 ONCASE ; FUNCTION CODE
488 000472 116500 000006 MOVB C.FUNC(R5),R0 ;GET FUNCTION CODE
489 000476 CASE ; ALLOCATE BUFFER
490 000476 FALSE NE R0,#C$ALBF
491 000504 DO
492 000504 142764 000004 000265 BICB #ALLBUF,FLAGS(R4) ;CLEAR FLAG
493 000512 CALL LDFMES ;FREE THE BUFFER
494 000516 CASE ; READ BLOCK
495 000520 FALSE NE R0,#C$RDBK
496 000526 DO
497 000526 142764 000010 000265 BICB #RDBLK,FLAGS(R4) ;CLEAR FLAG
498 000534 CASE ; TRANSMIT MESSAGE ASYNCHRONOUS OR SYNCHRONOUS
499 000536 TRUE EQ R0,#C$TRMA
500 000544 FALSE NE R0,#C$TRMS
501 000552 DO
502 000552 IF ; RETURN CODE <> ACKNOWLEDGE
503 000552 FALSEB EQ C.RET(R5),CS$ACK
504 000562 THEN
505 000562 105364 000266 DECB TRACNT(R4) ;DECREMENT TRANSMIT COUNT
506 000566 CALL LDFMES ;FREE THE MESSAGE BUFFER
507 000572 ENDIF
508 000572 CASE ; RECEIVE MESSAGE ASYNCHRONOUS
509 000574 FALSE NE R0,#C$RCMA
510 000602 DO
511 000602 142764 000001 000265 BICB #RCVPND,FLAGS(R4) ;CLEAR THE FLAG
512 000610 CALL LDFMES ;FREE THE MESSAGE BUFFER
513 000614 CASE ; CLOSE FILE
514 000616 FALSE NE R0,#C$CLFL
515 000624 DO
516 000624 105064 000106 CLRB LUN(R4) ;MARK LOGICAL UNIT AS CLOSED
517 000630 105064 000103 CLRB SBSTAT(R4) ;LET ANOTHER CLEANUP OPERATION GO
518 000634 CASE ; RELEASE BUFFER
519 000636 FALSE NE R0,#C$RLBF
520 000644 DO
521 000644 005064 000012 CLR BLKADR(R4) ;MARK BLOCK BUFFER AS NOT ALLOCATED
522 000650 105064 000103 CLRB SBSTAT(R4) ;LET ANOTHER CLEANUP OPERATION GO
523 000654 CASE ; CLOSE LINK
524 000656 FALSE NE R0,#C$CLLK
525 000664 DO
526 000664 005064 000004 CLR LSLKNM(R4) ;MARK LINK AS CLOSED
527 000670 105064 000103 CLRB SBSTAT(R4) ;LET ANOTHER CLEANUP OPERATION GO
528 000674 ENDCASE
529 000674 IF ; SUBSTATE = WAIT
530 000674 FALSEB NE SBSTAT(R4),#WAIT
531 000704 THEN
532 000704 105064 000103 CLRB SBSTAT(R4) ;LOOK LIKE INITIALIZING
533 000710 ELSE
534 000712 105464 000103 NEGB SBSTAT(R4) ;WAIT FOR WHATEVER IT WAS BEFORE
535 000716 112765 000000 000006 MOVB #C$RLCI,C.FUNC(R5) ;AND LET THIS CONTROL BLOCK GO AWAY
536 000724 ENDIF
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 11-1
LDCLUP
537 000724 ENDIF
538 000724 IF ; SUBSTATE = 0
539 000724 FALSEB SET SBSTAT(R4)
540 000732 THEN
541 000732 IF ; FILE OPEN
542 000732 FALSEB CLEAR LUN(R4)
543 000740 THEN
544 000740 116465 000106 000020 MOVB LUN(R4),C.LUN(R5) ;PUT LOGICAL UNIT NUMBER IN CONTROL BLOCK
545 000746 112765 000004 000006 MOVB #C$CLFL,C.FUNC(R5) ;SET FUNCTION CODE TO CLOSE FILE
546 000754 112764 177764 000103 MOVB #-CLEAN,SBSTAT(R4) ;SET SUBSTATE TO WATCH FOR COMPLETION
547 000762 ELSE
548 000764 IF ; TERMINATING
549 000764 FALSEB CLEAR RETCOD(R4)
550 000772 THEN
551 000772 IF ; LINE SERVICE LINK OPEN
552 000772 FALSE CLEAR LSLKNM(R4)
553 001000 THEN
554 001000 016465 000004 000020 MOV LSLKNM(R4),C.LKNM(R5) ;PUT LINK NUMBER IN CONTROL BLOCK
555 001006 112765 000052 000006 MOVB #C$CLLK,C.FUNC(R5) ;SET FUNCTION CODE TO CLOSE LINK
556 001014 112764 177764 000103 MOVB #-CLEAN,SBSTAT(R4) ;SET SUBSTATE TO WATCH FOR COMPLETION
557 001022 ELSE
558 001024 IF ; BLOCK BUFFER ALLOCATED
559 001024 FALSE CLEAR BLKADR(R4)
560 001032 THEN
561 001032 016465 000012 000014 MOV BLKADR(R4),C.ADDR(R5) ;PUT ADDRESS IN CONTROL BLOCK
562 001040 112765 000001 000006 MOVB #C$RLBF,C.FUNC(R5) ;SET FUNCTION CODE TO RELEASE BUFFER
563 001046 112764 177764 000103 MOVB #-CLEAN,SBSTAT(R4) ;SET SUBSTATE TO WATCH FOR IT
564 001054 ENDIF
565 001054 ENDIF
566 001054 ENDIF
567 001054 ENDIF
568 001054 IF ; SUBSTATE = 0
569 001054 FALSEB SET SBSTAT(R4)
570 001062 THEN
571 001062 IF ; (ALLOCATE BUFFER OR READ BLOCK OR RECEIVE MESSAGE IN PROGRESS)
572 ; OR TRANSMIT COUNT > 0
573 001062 TRUEB SET #<ALLBUF!RDBLK!RCVPND>,FLAGS(R4)
574 001072 FALSEB LE TRACNT(R4)
575 001100 THEN
576 001100 112765 000000 000006 MOVB #C$RLCI,C.FUNC(R5) ;GET RID OF THE CONTROL BLOCK
577 001106 112764 177765 000103 MOVB #-WAIT,SBSTAT(R4) ;SET SUBSTATE TO WAIT
578 001114 ELSE
579 001116 IF ; TERMINATING
580 001116 FALSEB CLEAR RETCOD(R4)
581 001124 THEN
582 001124 116400 000104 MOVB RETCOD(R4),R0 ;GET RETURN CODE
583 001130 CALL LDABRT ;ALL DONE
584 001134 ELSE
585 001136 142764 000020 000265 BICB #LOACOM,FLAGS(R4) ;RESET LOAD COMPLETE FLAG
586 001144 105064 000103 CLRB SBSTAT(R4) ;SET TO GO AROUND AGAIN
587 001150 ENDIF
588 001150 ENDIF
589 001150 ENDIF
590 001150 ENDIF
591 001150 ENDPROC
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 12
LDCNFG
593 .SBTTL LDCNFG
594 ;
595 ;======================================================================;
596 ;++
597 ; +-------------------------------------------------+
598 ; I I
599 ; I L D C N F G I
600 ; I - - - - - - I
601 ; I I
602 ; +-------------------------------------------------+
603 ;
604 ; FUNCTION:
605 ;
606 ; LOAD MODULE TO GET CONFIGURATION DATABASE INFORMATION
607 ;
608 ; INPUT:
609 ;
610 ; R4 - ADDRESS OF CONTEXT BLOCK
611 ; LINE - SERVER LINE ID
612 ; OPTION - NICE MESSAGE OPTION
613 ; SVNODE - SERVER NODE NAME IMAGE
614 ; TGNODE - TARGET NODE NAME IMAGE
615 ;
616 ; OUTPUT:
617 ;
618 ; @R4 - UPDATED CONTEXT
619 ; BOOPAS - BOOT PASSWORD
620 ; LINE - SERVER LINE ID
621 ; INFILE - INPUT FILENAME IMAGE
622 ; SBSTAT - PROCESSING SUBSTATE
623 ; STATE - PROCESSING STATE
624 ; SVNODE - SERVER NODE NAME IMAGE
625 ; SYSPAR - SYSTEM PARAMETERS IMAGE
626 ;
627 ; REQUIREMENTS:
628 ;
629 ; LOAD SYMBOLS:
630 ;
631 ; BOOPAS - OFFSET OF BOOT PASSWORD IMAGE IN CONTEXT
632 ; BPSPRQ - BOOT PASSWORD/PROGRAM REQUEST INCLUDED NICE OPTION MASK
633 ; FILINC - INPUT FILENAME INCLUDED NICE OPTION MASK
634 ; INFILE - OFFSET OF INPUT FILENAME IMAGE IN CONTEXT
635 ; LINE - OFFSET OF SERVER LINE ID IN CONTEXT
636 ; LINK - LINK PROCESSING STATE VALUE
637 ; NOTNAM - TARGET NOT IDENTIFIED BY NAME NICE OPTION MASK
638 ; OPTION - OFFSET OF NICE MESSAGE OPTION IN CONTEXT
639 ; PARINC - SYSTEM PARAMETERS INCLUDED NICE OPTION MASK
640 ; SBSTAT - OFFSET OF SUBSTATE IN CONTEXT
641 ; SRVINC - SERVER ID INCLUDED NICE OPTION MASK
642 ; STATE - OFFSET OF STATE IN CONTEXT
643 ; SVNODE - OFFSET OF SERVER NODE NAME IMAGE IN CONTEXT
644 ; SYSPAR - OFFSET OF SYSTEM PARAMETERS IMAGE IN CONTEXT
645 ; TRIBOO - TRIGGER BOOTSTRAP NICE OPTION MASK
646 ;
647 ; NICE MESSAGE SYMBOLS:
648 ;
649 ; NE$FUN - INVALID FUNCTION OR OPTION ERROR RETURN CODE
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 12-1
LDCNFG
650 ;
651 ; CONFIGURATION DATABASE SYMBOLS:
652 ;
653 ; BTPSAD - OFFSET OF BOOT PASSWORD ADDRESS IN ENTRY
654 ; LDFLAD - OFFSET OF LOAD FILE ADDRESS IN ENTRY
655 ; LDPRAD - OFFSET OF LOAD PARAMETERS ADDRESS IN ENTRY
656 ; SVLNID - OFFSET OF SERVER LINE ID IN ENTRY
657 ; SVNMAD - OFFSET OF SERVER NAME ADDRESS IN ENTRY
658 ;
659 ;--
660 ;======================================================================;
661 ;
662 ;
663 ; EXTERNAL MACROS
664 ;
665 .MCALL LDDF,NICDF,SAVSTK,RESSTK,CNFDF
666 ;
667 ; DEFINE EXTERNAL SYMBOLS
668 ;
669 001152 LDDF ;LOAD SYMBOLS
670 001152 NICDF ;NICE MESSAGE SYMBOLS
671 001152 CNFDF ;CONFIGURATION DATABASE SYMBOLS
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 13
LDCNFG
673 ;
674 ; LOCAL PROCEDURE BODY
675 ;
676 001152 PROCLC LDCNFG
677 001152 116400 000105 MOVB OPTION(R4),R0 ;GET NICE MESSAGE OPTION FIELD
678 001156 IF ; ANYTHING NEEDED FROM CONFIGURATION FILE
679 001156 TRUE CLEAR #SRVINC,R0
680 001164 TRUE CLEAR #BPSPRQ,R0
681 001172 TRUE CLEAR #FILINC,R0
682 001200 FALSE SET #PARINC,R0
683 001206 THEN
684 001206 IF ; IDENTIFICATION BY TARGET NAME
685 001206 FALSEB SET #NOTNAM,OPTION(R4)
686 001216 THEN
687 001216 012700 000133 MOV #TGNODE,R0 ;OFFSET OF TARGET NODE NAME IN CONTEXT
688 001222 005001 CLR R1
689 001224 ELSE
690 001226 012700 000142 MOV #SVNODE,R0 ;OFFSET OF SERVER NODE NAME IN CONTEXT
691 001232 012701 000151 MOV #LINE,R1 ;OFFSET OF SERVER LINE IN CONTEXT
692 001236 060401 ADD R4,R1 ;MAKE IT A POINTER
693 001240 ENDIF
694 001240 060400 ADD R4,R0 ;MAKE NAME OFFSET A POINTER
695 001242 SAVSTK <R3> ;SAVE REGISTER
696 001244 CALL CNFFND ;FIND CONFIGURATION ENTRY
697 001250 IF ; SUCCESS
698 001250 FALSE CS
699 001252 THEN
700 001252 IF ; SERVER NEEDED
701 001252 FALSEB SET #SRVINC,OPTION(R4)
702 001262 THEN
703 001262 012700 000004 MOV #SVNMAD,R0 ;OFFSET OF SERVER NAME ADDRESS IN DATABASE
704 001266 012702 000142 MOV #SVNODE,R2 ;OFFSET OF SERVER NAME IN CONTEXT
705 001272 CALL CNFMOV ;MOVE NAME FROM DATABASE TO CONTEXT
706 001276 012700 000010 MOV #SVLNID,R0 ;OFFSET OF SERVER LINE ID IN DATABASE
707 001302 060300 ADD R3,R0 ;MAKE IT A SOURCE ADDRESS
708 001304 012701 000004 MOV #4,R1 ;LENGTH OF LINE ID
709 001310 012702 000151 MOV #LINE,R2 ;OFFSET OF SERVER LINE ID IN CONTEXT
710 001314 060402 ADD R4,R2 ;MAKE IT A DESTINATION ADDRESS
711 001316 CALL MOVE ;MOVE SERVER LINE ID FROM DATABASE TO CONTEXT
712 001322 000241 CLC ;SUCCESS SO FAR
713 001324 ELSE
714 001326 000241 CLC ;SET SUCCESS
715 001330 ENDIF
716 001330 IF ; SUCCESS SO FAR AND BOOT PASSWORD OR PROGRAM REQUEST NEEDED
717 001330 FALSE CS
718 001332 FALSEB SET #BPSPRQ,OPTION(R4)
719 001342 THEN
720 001342 IF ; BOOT PASSWORD
721 001342 FALSEB CLEAR #TRIBOO,OPTION(R4)
722 001352 THEN
723 001352 012700 000024 MOV #BTPSAD,R0 ;OFFSET OF PASSWORD ADDRESS IN DATABASE
724 001356 012702 000155 MOV #BOOPAS,R2 ;OFFSET OF PASSWORD IN CONTEXT
725 001362 CALL CNFMOV ;MOVE PASSWORD FROM DATABASE TO CONTEXT
726 001366 000241 CLC ;SUCCESS SO FAR
727 001370 ELSE ; PROGRAM REQUEST
728 001372 012700 177777 MOV #NE$FUN,R0 ;FUNCTION CODE ERROR
729 001376 000261 SEC ;FLAG ERROR
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 13-1
LDCNFG
730 001400 ENDIF
731 001400 ENDIF
732 001400 IF ; SUCCESS SO FAR AND FILE NAME NEEDED
733 001400 FALSE CS
734 001402 FALSEB SET #FILINC,OPTION(R4)
735 001412 THEN
736 001412 012700 000014 MOV #LDFLAD,R0 ;OFFSET OF FILENAME ADDRESS IN DATABASE
737 001416 012702 000166 MOV #INFILE,R2 ;OFFSET OF FILENAME IN CONTEXT
738 001422 CALL CNFMOV ;MOVE FILENAME FROM DATABASE TO CONTEXT
739 001426 000241 CLC ;SUCCESS SO FAR
740 001430 ENDIF
741 001430 IF ; SUCCESS SO FAR AND PARAMETERS NEEDED
742 001430 FALSE CS
743 001432 FALSEB SET #PARINC,OPTION(R4)
744 001442 THEN
745 001442 012700 000020 MOV #LDPRAD,R0 ;OFFSET OF PARAMETERS IN DATABASE
746 001446 012702 000225 MOV #SYSPAR,R2 ;OFFSET OF PARAMETERS IN CONTEXT
747 001452 CALL CNFMOV ;MOVE PARAMETERS FROM DATABASE TO CONTEXT
748 001456 000241 CLC ;SUCCESS SO FAR
749 001460 ENDIF
750 001460 ENDIF
751 001460 RESSTK <R3> ;RESTORE REGISTER
752 001462 ENDIF
753 001462 IF ; SUCCESS SO FAR
754 001462 FALSE CS
755 001464 THEN
756 001464 CALL LDDFHO ;SET DEFAULT HOST IN PARAMETERS IF NEEDED
757 001470 ENDIF
758 001470 IF ; SUCCESS
759 001470 FALSE CS
760 001472 THEN
761 001472 112764 000002 000102 MOVB #LINK,STATE(R4) ;MOVE TO NEXT STATE
762 001500 105064 000103 CLRB SBSTAT(R4) ;WITH INITIALIZED SUBSTATE
763 001504 ELSE
764 001506 CALL LDABRT ;BLOW UP, ERROR CODE ALREADY SET
765 001512 ENDIF
766 001512 ENDPROC
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 14
LDDFHO
768 .SBTTL LDDFHO
769 ;
770 ;======================================================================;
771 ;++
772 ; +-------------------------------------------------+
773 ; I I
774 ; I L D D F H O I
775 ; I - - - - - - I
776 ; I I
777 ; +-------------------------------------------------+
778 ;
779 ; FUNCTION:
780 ;
781 ; LOAD MODULE TO PUT DEFAULT HOST INTO SYSTEM LOAD PARAMETERS
782 ;
783 ; INPUT:
784 ;
785 ; R4 - ADDRESS OF CONTEXT BLOCK
786 ; OPTION - NICE MESSAGE OPTIONS
787 ; SYSPAR - SYSTEM LOAD PARAMETERS
788 ;
789 ; OUTPUT:
790 ;
791 ; C-BIT - CLEAR IF SUCCESS, SET IF FAILURE
792 ; R0 - IF FAILURE, NICE ERROR CODE
793 ; @R4 - UPDATED CONTEXT BLOCK
794 ; SYSPAR - SYSTEM PARAMETERS WITH LOCAL NODE ADDED AS DEFAULT HOST
795 ; IF THERE WAS NO HOST ALREADY DEFINED
796 ;
797 ; REQUIREMENTS:
798 ;
799 ; LOAD SYMBOLS:
800 ;
801 ; NODLEN - MAXIMUM LENGTH OF A NODE NAME
802 ; OPTION - OFFSET OF NICE MESSAGE OPTION FIELD IN CONTEXT
803 ; PARINC - PARAMETERS INCLUDED NICE OPTION MASK
804 ; PARLEN - MAXIMUM LENGTH OF SYSTEM PARAMETERS
805 ; SYSPAR - OFFSET OF SYSTEM PARAMETERS IMAGE FIELD IN CONTEXT
806 ;
807 ; NICE MESSAGE SYMBOLS:
808 ;
809 ; NE$CON - CONFIGURATION DATABASE ERROR
810 ; NE$PAR - INVALID PARAMETER ERROR
811 ; NE$RES - RESOURCE ERROR
812 ;
813 ;--
814 ;======================================================================;
815 ;
816 ; DEFINE EXTERNAL MACROS
817 ;
818 .MCALL LDDF,NICDF,SAVSTK,RESSTK
819 ;
820 ; DEFINE EXTERNAL SYMBOLS
821 ;
822 001514 LDDF ;LOAD SYMBOLS
823 001514 NICDF ;NICE MESSAGE SYMBOLS
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 15
LDDFHO
825 ;
826 ; LOCAL PROCEDURE BODY
827 ;
828 001514 PROCLC LDDFHO
829 001514 012702 000225 MOV #SYSPAR,R2 ;OFFSET OF SYSTEM PARAMETERS IN CONTEXT
830 001520 060402 ADD R4,R2 ;MAKE IT A POINTER
831 001522 112201 MOVB (R2)+,R1 ;GET LENGTH OF IMAGE
832 001524 IF ; LENGTH = 0
833 001524 FALSE SET
834 001526 THEN
835 001526 005000 CLR R0 ;LOOK LIKE END FOUND
836 001530 112764 000001 000225 MOVB #1,SYSPAR(R4) ;FAKE A COUNT FOR THE END MARKER
837 001536 005202 INC R2 ;LOOK LIKE SCANNED PAST END MARKER
838 001540 ELSE
839 001542 SAVSTK <R3> ;SAVE REGISTER
840 001544 WHILE ; BYTES LEFT >= 1 AND TYPE <> END AND TYPE <> HOST
841 001544 FALSE LT R1,#1
842 001552 005301 DEC R1 ;DECREASE BYTES LEFT
843 001554 112200 MOVB (R2)+,R0 ;GET TYPE BYTE
844 001556 FALSE CLEAR
845 001560 FALSE EQ R0,#PT$HOS
846 001566 DO
847 001566 005301 DEC R1 ;DECREASE BYTES LEFT
848 001570 112203 MOVB (R2)+,R3 ;GET LENGTH OF FIELD
849 001572 IF ; FIELD LENGTH >= 0
850 001572 FALSE LT
851 001574 THEN
852 001574 060302 ADD R3,R2 ;MOVE POINTER UP BY FIELD LENGTH
853 001576 160301 SUB R3,R1 ;AND COUNT DOWN BY FIELD LENGTH
854 001600 ELSE
855 001602 005001 CLR R1 ;PRETEND NO BYTES LEFT TO FORCE ERROR
856 001604 ENDIF
857 001604 012700 177777 MOV #-1,R0 ;SET AN INVALID FIELD TYPE
858 001610 ENDWHILE
859 001612 RESSTK <R3> ;RESTORE REGISTER
860 001614 ENDIF
861 001614 IF ; FIELD TYPE = END MARK
862 001614 FALSE SET R0
863 001620 THEN
864 001620 116400 000225 MOVB SYSPAR(R4),R0 ;GET LENGTH OF IMAGE
865 001624 062700 000010 ADD #NODLEN+2,R0 ;INCREASE IT BY NODE NAME LENGTH + OVERHEAD
866 001630 IF ; NOT ENOUGH ROOM
867 001630 FALSE GE #PARLEN,R0
868 001636 THEN
869 001636 012700 177761 MOV #NE$RES,R0 ;NICE RESOURCE ERROR
870 001642 000261 SEC ;FAILURE
871 001644 ELSE
872 001646 112762 000003 177777 MOVB #PT$HOS,-1(R2) ;PUT A HOST FIELD TYPE OVER THE END MARK
873 001654 SAVSTK <R2> ;SAVE ADDRESS OF LENGTH BYTE
874 001656 005202 INC R2 ;SAVE SPACE FOR LENGTH
875 001660 012701 000006 MOV #NODLEN,R1 ;MAXIMUM LENGTH OF NODE NAME
876 001664 CALL LOCNOD ;GET LOCAL NODE NAME INTO PARAMETERS
877 001670 105012 CLRB (R2) ;PUT ON AN END MARK
878 001672 RESSTK <R2> ;GET BACK POINTER TO LENGTH BYTE
879 001674 110112 MOVB R1,(R2) ;PUT LENGTH OF NODE NAME IN PLACE
880 001676 062701 000002 ADD #2,R1 ;ADD LENGTH OF OVERHEAD TO NODE NAME LENGTH
881 001702 116400 000225 MOVB SYSPAR(R4),R0 ;GET LENGTH OF IMAGE
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 15-1
LDDFHO
882 001706 060100 ADD R1,R0 ;ADD LENGTH OF ADDED DATA
883 001710 110064 000225 MOVB R0,SYSPAR(R4) ;PUT BACK UPDATED IMAGE LENGTH
884 001714 000241 CLC ;SUCCESS
885 001716 ENDIF
886 001716 ELSE
887 001720 IF ; FIELD TYPE = HOST
888 001720 FALSE NE R0,#PT$HOS
889 001726 THEN
890 001726 000241 CLC ;SUCCESS
891 001730 ELSE
892 001732 IF ; PARAMETERS FROM MESSAGE
893 001732 FALSEB CLEAR #PARINC,OPTION(R4)
894 001742 THEN
895 001742 012700 177760 MOV #NE$PAR,R0 ;NICE PARAMETER ERROR
896 001746 ELSE
897 001750 012700 177762 MOV #NE$CON,R0 ;NICE CONFIGURATION DATABASE ERROR
898 001754 ENDIF
899 001754 000261 SEC ;FAILURE
900 001756 ENDIF
901 001756 ENDIF
902 001756 ENDPROC
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 16
LDFILE
904 .SBTTL LDFILE
905 ;
906 ;======================================================================;
907 ;++
908 ; +-------------------------------------------------+
909 ; I I
910 ; I L D F I L E I
911 ; I - - - - - - I
912 ; I I
913 ; +-------------------------------------------------+
914 ;
915 ; FUNCTION:
916 ;
917 ; LOAD MODULE TO SET UP FILE DESCRIPTOR IN CONTEXT
918 ;
919 ; INPUT:
920 ;
921 ; R4 - ADDRESS OF CONTEXT BLOCK
922 ; BOODEV - BOOT DEVICE TYPE
923 ; INFILE - INPUT FILENAME IMAGE
924 ; REQPRO - REQUESTED PROGRAM TYPE
925 ; SOFTID - SOFTWARE ID IMAGE
926 ;
927 ; OUTPUT:
928 ;
929 ; C-BIT - CLEAR IF SUCCESSFUL, SET IF NOT
930 ; @R4 - UPDATED CONTEXT
931 ; FILDSC - FILE DESCRIPTOR (DATASET DESCRIPTOR + DEFAULT NAME BLOCK)
932 ;
933 ; REQUIREMENTS:
934 ;
935 ; LOAD SYMBOLS:
936 ;
937 ; BOODEV - OFFSET OF BOOT DEVICE TYPE IN CONTEXT
938 ; INFILE - OFFSET OF INPUT FILENAME IMAGE IN CONTEXT
939 ; OPSYS - OPERATING SYSTEM PROGRAM TYPE VALUE
940 ; REQPRO - OFFSET OF REQUESTED PROGRAM TYPE IN CONTEXT
941 ; SOFTID - OFFSET OF SOFTWARE ID IMAGE IN CONTEXT
942 ;
943 ; INPUT VIA LOADER FILE DATABASE GLOBALS:
944 ;
945 ; LDFDB - BEGINNING OF DATABASE
946 ; LDFDBE - END OF DATABASE
947 ;
948 ; LOADER FILE DATABASE SYMBOLS:
949 ;
950 ; ENTLEN - LENGTH OF AN ENTRY
951 ; NAMADR - OFFSET OF NAME ADDRESS IN ENTRY
952 ; NAMLEN - OFFSET OF NAME LENGTH IN ENTRY
953 ;
954 ;--
955 ;======================================================================;
956 ;
957 ;
958 ; EXTERNAL MACROS
959 ;
960 .MCALL LDDF,NMBLK$,LDFDF
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 16-1
LDFILE
961 ;
962 ; DEFINE EXTERNAL SYMBOLS
963 ;
964 001760 LDDF ;LOAD SYMBOLS
965 001760 LDFDF ;LOADER FILE DATABASE SYMBOLS
966 ;
967 ; DEFINE READ ONLY MEMORY
968 ;
969 ; DEFAULT FILENAME BLOCK
970 ;
971 001760 DEFFNB: NMBLK$ ,SYS
972 000036 FNBLEN =.-DEFFNB ;LENGTH OF DEFAULT FILENAME BLOCK
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 17
LDFILE
974 ;
975 ; LOCAL PROCEDURE BODY
976 ;
977 002016 PROCLC LDFILE
978 002016 IF ; SOFTWARE ID SPECIFIED
979 002016 FALSEB CLEAR SOFTID(R4)
980 002024 THEN
981 002024 000261 SEC ;FAIL
982 002026 ELSE
983 002030 IF ; LOADING OPERATING SYSTEM
984 002030 FALSEB NE REQPRO(R4),#OPSYS
985 002040 THEN
986 002040 012700 000166 MOV #INFILE,R0 ;OFFSET OF FILENAME IMAGE IN CONTEXT
987 002044 060400 ADD R4,R0 ;MAKE IT A POINTER
988 002046 112001 MOVB (R0)+,R1 ;LENGTH OF FILENAME STRING
989 002050 000241 CLC ;SUCCESS
990 002052 ELSE
991 002054 005001 CLR R1 ;CLEAN UP ALL THE BITS
992 002056 156401 000107 BISB BOODEV(R4),R1 ;GET THE BOOT DEVICE TYPE
993 002062 000301 SWAB R1 ;MOVE IT TO THE UPPER BYTE
994 002064 156401 000111 BISB REQPRO(R4),R1 ;AND MERGE IN THE PROGRAM TYPE
995 002070 012700 000000G MOV #LDFDB,R0 ;SET INITIAL ADDRESS OF FILE TABLE
996 002074 WHILE ; CURRENT ADDRESS < END AND IDENTS NOT EQUAL
997 002074 FALSE HIS R0,#LDFDBE
998 002102 FALSE EQ R1,(R0)
999 002106 DO
1000 002106 062700 000006 ADD #ENTLEN,R0 ;MOVE UP TO NEXT ENTRY
1001 002112 ENDWHILE
1002 002114 IF ; SEARCHED TO END
1003 002114 FALSE LO R0,#LDFDBE
1004 002122 THEN
1005 002122 000261 SEC ;FAIL
1006 002124 ELSE
1007 002126 016001 000002 MOV NAMLEN(R0),R1 ;LENGTH OF FILENAME
1008 002132 016000 000004 MOV NAMADR(R0),R0 ;ADDRESS OF FILENAME
1009 002136 000241 CLC ;SUCCEED
1010 002140 ENDIF
1011 002140 ENDIF
1012 002140 IF ; SUCCESS
1013 002140 FALSE CS
1014 002142 THEN
1015 002142 012702 000030 MOV #FILDSC,R2 ;OFFSET OF FILE DESCRIPTOR IN CONTEXT
1016 002146 060402 ADD R4,R2 ;MAKE IT A DESTINATION ADDRESS
1017 002150 CALL PARSFN ;PARSE THE FILE NAME
1018 002154 IF ; SUCCESS
1019 002154 FALSE CS
1020 002156 THEN
1021 002156 012700 001760' MOV #DEFFNB,R0 ;ADDRESS OF DEFAULT FILENAME BLOCK
1022 002162 012701 000036 MOV #FNBLEN,R1 ;LENGTH OF DEFAULT FILENAME BLOCK
1023 002166 012702 000044 MOV #FILDSC+12.,R2 ;OFFSET OF SPACE FOR DEF. FILENAME BLOCK
1024 002172 060402 ADD R4,R2 ;MAKE IT A DESTINATION ADDRESS
1025 002174 CALL MOVE ;MOVE DEF. FILENAME BLOCK TO FILE DESC.
1026 002200 000241 CLC
1027 002202 ENDIF
1028 002202 ENDIF
1029 002202 ENDIF
1030 002202 ENDPROC
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 18
LDFINI
1032 .SBTTL LDFINI
1033 ;
1034 ;======================================================================;
1035 ;++
1036 ; +-------------------------------------------------+
1037 ; I I
1038 ; I L D F I N I I
1039 ; I - - - - - - I
1040 ; I I
1041 ; +-------------------------------------------------+
1042 ;
1043 ; FUNCTION:
1044 ;
1045 ; LOAD MODULE TO FINISH UP PROCESSING
1046 ;
1047 ; INPUT:
1048 ;
1049 ; R4 - ADDRESS OF CONTEXT BLOCK
1050 ; CMLKNM - COMMAND LINK NUMBER
1051 ; LSLKNM - LINE SERVICE LINK NUMBER
1052 ; MSBFHD - MESSAGE BUFFER FREE LIST HEAD
1053 ; RETCOD - NICE RETURN CODE
1054 ; SBSTAT - PROCESSING SUBSTATE
1055 ; R5 - ADDRESS OF CONTROL BLOCK
1056 ; C.ADDR - ON ALLOCATE BUFFER OR TRANSMIT MESSAGE COMPLETION,
1057 ; ADDRESS OF MESSAGE BUFFER
1058 ; C.CTXT - ADDRESS OF CONTEXT BLOCK
1059 ; OTHER INPUTS - AS REQUIRED FOR SUBMODULES
1060 ;
1061 ; OUTPUT:
1062 ;
1063 ; @R4 - UPDATED CONTEXT
1064 ; LSLKNM - ZERO WHEN LINK CLOSED
1065 ; MSBFHD - UPDATED MESSAGE BUFFER FREE LIST HEAD
1066 ; @R5 - UPDATED CONTROL BLOCK
1067 ; C.ADDR - ON TRANSMIT MESSAGE OR RELEASE BUFFER REQUEST, ADDRESS
1068 ; OF MESSAGE BUFFER
1069 ; C.CTXT - ON FINAL RETURN, ZERO
1070 ; C.FUNC - FUNCTION TO PERFORM
1071 ; C.LEN - ON TRANSMIT MESSAGE REQUEST, LENGTH OF MESSAGE
1072 ; C.LKNM - ON CLOSE LINK OR TRANSMIT MESSAGE REQUEST, LINK NUMBER;
1073 ; ON FINAL RETURN, COMMAND LINK NUMBER
1074 ; OTHER OUTPUTS - AS DESCRIBED FOR SUBMODULES
1075 ;
1076 ; REQUIREMENTS:
1077 ;
1078 ; LOAD SYMBOLS:
1079 ;
1080 ; ALBF - ALLOCATE BUFFER SUBSTATE VALUE
1081 ; CLLK - CLOSE LINK SUBSTATE VALUE
1082 ; CMLKNM - OFFSET OF COMMAND LINK NUMBER IN CONTEXT
1083 ; LSLKNM - OFFSET OF LINE SERVICE LINK NUMBER IN CONTEXT
1084 ; MSBFHD - OFFSET OF MESSAGE BUFFER FREE LIST HEAD IN CONTEXT
1085 ; RETCOD - OFFSET OF NICE RETURN CODE IN CONTEXT
1086 ; RLBF - RELEASE BUFFER SUBSTATE VALUE
1087 ; SBSTAT - OFFSET OF SUBSTATE IN CONTEXT
1088 ; TRMS - TRANSMIT MESSAGE SUBSTATE VALUE
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 18-1
LDFINI
1089 ;
1090 ; CONTROL BLOCK SYMBOLS:
1091 ;
1092 ; C.ADDR - OFFSET OF ADDRESS FIELD
1093 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
1094 ; C.CTXT - OFFSET OF CONTEXT FIELD
1095 ; C.LEN - OFFSET OF LENGTH FIELD
1096 ; C.LKNM - OFFSET OF LINK NUMBER FIELD
1097 ; C$CLLK - CLOSE LINK FUNCTION CODE
1098 ; C$RLBF - RELEASE BUFFER FUNCTION CODE
1099 ; C$TRMS - TRANSMIT MESSAGE FUNCTION CODE
1100 ;
1101 ;--
1102 ;======================================================================;
1103 ;
1104 ;
1105 ; EXTERNAL MACROS
1106 ;
1107 .MCALL LDDF,CONDF
1108 ;
1109 ; DEFINE EXTERNAL SYMBOLS
1110 ;
1111 002204 LDDF ;LOAD SYMBOLS
1112 002204 CONDF ;CONTROL BLOCK SYMBOLS
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 19
LDFINI
1114 ;
1115 ; LOCAL PROCEDURE BODY
1116 ;
1117 002204 PROCLC LDFINI
1118 002204 IF ; SUBSTATE = 0
1119 002204 FALSEB SET SBSTAT(R4)
1120 002212 THEN
1121 002212 IF ; LINE SERVICE LINK OPEN
1122 002212 FALSE CLEAR LSLKNM(R4)
1123 002220 THEN
1124 002220 016465 000004 000020 MOV LSLKNM(R4),C.LKNM(R5) ;PUT LINK NUMBER IN CONTROL BLOCK
1125 002226 112765 000052 000006 MOVB #C$CLLK,C.FUNC(R5) ;SET FUNCTION CODE TO CLOSE LINK
1126 002234 112764 177772 000103 MOVB #-CLLK,SBSTAT(R4) ;SET SUBSTATE TO CLOSING LINK
1127 002242 ELSE
1128 002244 112764 000006 000103 MOVB #CLLK,SBSTAT(R4) ;SET SUBSTATE TO LINK CLOSED
1129 002252 ENDIF
1130 002252 ENDIF
1131 002252 IF ; SUBSTATE = CLOSE LINK
1132 002252 FALSEB NE SBSTAT(R4),#CLLK
1133 002262 THEN
1134 002262 005064 000004 CLR LSLKNM(R4) ;MARK LINK CLOSED
1135 002266 CALL LDAMES ;ALLOCATE A MESSAGE BUFFER
1136 002272 ENDIF
1137 002272 IF ; SUBSTATE = ALLOCATE MEMORY BUFFER
1138 002272 FALSEB NE SBSTAT(R4),#ALBF
1139 002302 THEN
1140 002302 116475 000104 000014 MOVB RETCOD(R4),@C.ADDR(R5) ;PUT RETURN CODE IN MESSAGE
1141 002310 012765 000001 000012 MOV #1,C.LEN(R5) ;SET LENGTH OF MESSAGE
1142 002316 016465 000002 000020 MOV CMLKNM(R4),C.LKNM(R5) ;SET COMMAND LINK NUMBER
1143 002324 112765 000053 000006 MOVB #C$TRMS,C.FUNC(R5) ;SET FUNCTION CODE TO TRANSMIT MESSAGE
1144 002332 112764 177775 000103 MOVB #-TRMS,SBSTAT(R4) ;SET SUBSTATE TO TRANSMIT IN PROCESS
1145 002340 ENDIF
1146 002340 IF ; SUBSTATE = TRANSMIT MESSAGE
1147 002340 FALSEB NE SBSTAT(R4),#TRMS
1148 002350 THEN
1149 002350 CALL LDFMES ;FREE THE MESSAGE BUFFER
1150 002354 112765 000001 000006 MOVB #C$RLBF,C.FUNC(R5) ;LOOK LIKE BUFFER RELEASE COMPLETE
1151 002362 112764 000007 000103 MOVB #RLBF,SBSTAT(R4) ;SUBSTATE, TOO
1152 002370 ENDIF
1153 002370 IF ; SUBSTAT = RELEASE MEMORY BUFFER
1154 002370 FALSEB NE SBSTAT(R4),#RLBF
1155 002400 THEN
1156 002400 IF ; BUFFER TO RELEASE
1157 002400 FALSE CLEAR MSBFHD(R4)
1158 002406 THEN
1159 002406 016465 000000 000014 MOV MSBFHD(R4),C.ADDR(R5) ;PUT ADDRESS IN CONTROL BLOCK
1160 002414 017464 000000 000000 MOV @MSBFHD(R4),MSBFHD(R4) ;TAKE BUFFER OFF LIST
1161 002422 105464 000103 NEGB SBSTAT(R4) ;SET SUBSTATE TO RELEASING BUFFER
1162 002426 ELSE
1163 002430 016565 000004 000014 MOV C.CTXT(R5),C.ADDR(R5) ;SET UP TO RELEASE CONTEXT BLOCK
1164 002436 005065 000004 CLR C.CTXT(R5) ;NO MORE CONTEXT POINTER
1165 002442 ENDIF
1166 002442 ENDIF
1167 002442 ENDPROC
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 20
LDFLIN
1169 .SBTTL LDFLIN
1170 ;
1171 ;======================================================================;
1172 ;++
1173 ; +-------------------------------------------------+
1174 ; I I
1175 ; I L D F L I N I
1176 ; I - - - - - - I
1177 ; I I
1178 ; +-------------------------------------------------+
1179 ;
1180 ; FUNCTION:
1181 ;
1182 ; LOAD MODULE TO DO FILE INITIALIZATION FOR SINGLE LOAD
1183 ;
1184 ; INPUT:
1185 ;
1186 ; R4 - ADDRESS OF CONTEXT BLOCK
1187 ; BLKADR - ADDRESS OF DISK BLOCK BUFFER
1188 ; SBSTAT - PROCESSING SUBSTATE
1189 ; R5 - ADDRESS OF CONTROL BLOCK
1190 ; C.ADDR - ON READ BLOCK OR ALLOCATE BUFFER COMPLETION, ADDRESS
1191 ; OF BUFFER
1192 ; C.LUN - ON OPEN FILE COMPLETION, FILE LOGICAL UNIT NUMBER
1193 ; C.RET - ON COMPLETION ENTRY, RETURN CODE
1194 ; OTHER INPUTS - AS REQUIRED FOR SUBMODULES
1195 ;
1196 ; OUTPUT:
1197 ;
1198 ; @R4 - UPDATED CONTEXT BLOCK
1199 ; BLKADR - ADDRESS OF DISK BLOCK BUFFER
1200 ; BLKCNT - NUMBER OF IMAGE BLOCKS IN FILE
1201 ; FINCNT - NUMBER OF BYTES IN FINAL IMAGE BLOCK
1202 ; LUN - FILE LOGICAL UNIT NUMBER
1203 ; PHASE - IF SUCCESS, NEXT PROCESSING PHASE
1204 ; SBSTAT - PROCESSING SUBSTATE
1205 ; @R5 - UPDATED CONTROL BLOCK
1206 ; C.ADDR - ON OPEN FILE REQUEST, ADDRESS OF FILE DESCRIPTOR; ON
1207 ; READ BLOCK REQUEST, ADDRESS OF BUFFER
1208 ; C.BKNM - ON SET BLOCK REQUEST, BLOCK NUMBER TO SET TO
1209 ; C.FUNC - FUNCTION TO BE PERFORMED
1210 ; C.LEN - ON ALLOCATE BUFFER REQUEST, LENGTH OF BUFFER
1211 ; C.LUN - ON READ OR SET BLOCK REQUEST, FILE LOGICAL UNIT NUMBER
1212 ; OTHER OUTPUTS - AS SPECIFIED FOR SUBMODULES
1213 ;
1214 ; REQUIREMENTS:
1215 ;
1216 ; LOAD SYMBOLS:
1217 ;
1218 ; ALBF - ALLOCATE BUFFER SUBSTATE VALUE
1219 ; BLKADR - OFFSET OF DISK BLOCK BUFFER ADDRESS IN CONTEXT
1220 ; BLKCNT - OFFSET OF IMAGE BLOCK COUNT IN CONTEXT
1221 ; BLKLEN - LENGTH OF A DISK BLOCK
1222 ; FINCNT - OFFSET OF FINAL IMAGE BLOCK BYTE COUNT IN CONTEXT
1223 ; LNKINI - LINK INITIALIZATION PHASE VALUE
1224 ; LUN - OFFSET OF FILE LOGICAL UNIT NUMBER IN CONTEXT
1225 ; OPIN - OPEN INPUT FILE SUBSTATE VALUE
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 20-1
LDFLIN
1226 ; PHASE - OFFSET OF PROCESSING PHASE IN CONTEXT
1227 ; RDBK - READ BLOCK SUBSTATE VALUE
1228 ; SBSTAT - OFFSET OF SUBSTATE IN CONTEXT
1229 ; STBK - SET BLOCK SUBSTATE VALUE
1230 ;
1231 ; NICE MESSAGE SYMBOLS:
1232 ;
1233 ; NE$FIL - INVALID FILE ERROR RETURN CODE
1234 ;
1235 ; TASK IMAGE LABEL BLOCK SYMBOLS:
1236 ;
1237 ; L$BBLK - OFFSET OF LABEL LENGTH IN LABEL
1238 ; L$BFLG - OFFSET OF FLAGS IN LABEL
1239 ; L$BLDZ - OFFSET OF 64-BYTE SEGMENT COUNT IN LABEL
1240 ; L$BSA - OFFSET OF BEGINNING MEMORY ADDRESS IN LABEL
1241 ; L$BXFR - OFFSET OF TRANSFER ADDRESS IN LABEL
1242 ; TS$NHD - NO HEADER FLAG MASK
1243 ;
1244 ; CONTROL BLOCK SYMBOLS:
1245 ;
1246 ; C.ADDR - OFFSET OF ADDRESS FIELD
1247 ; C.BKNM - OFFSET OF BLOCK NUMBER FIELD
1248 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
1249 ; C.LEN - OFFSET OF LENGTH FIELD
1250 ; C.LUN - OFFSET OF LOGICAL UNIT NUMBER FIELD
1251 ; C.RET - OFFSET OF RETURN CODE FIELD
1252 ; C$ALBF - ALLOCATE BUFFER FUNCTION CODE
1253 ; C$OPIN - OPEN INPUT FILE FUNCTION CODE
1254 ; C$RDBK - READ BLOCK FUNCTION CODE
1255 ; C$STBK - SET BLOCK FUNCTION CODE
1256 ;
1257 ;--
1258 ;======================================================================;
1259 ;
1260 ;
1261 ; EXTERNAL MACROS
1262 ;
1263 .MCALL LDDF,CONDF,NICDF,LBLDF$
1264 ;
1265 ; DEFINE EXTERNAL SYMBOLS
1266 ;
1267 002444 LDDF ;LOAD SYMBOLS
1268 002444 CONDF ;CONTROL BLOCK SYMBOLS
1269 002444 NICDF ;NICE MESSAGE SYMBOLS
1270 002444 LBLDF$ ;TASK IMAGE FILE SYMBOLS
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 21
LDFLIN
1272 ;
1273 ; LOCAL PROCEDURE BODY
1274 ;
1275 002444 PROCLC LDFLIN
1276 002444 IF ; SUBSTATE = 0
1277 002444 FALSEB SET SBSTAT(R4)
1278 002452 THEN
1279 002452 CALL LDFILE ;SET UP A FILE NAME
1280 002456 IF ; SUCCESS
1281 002456 FALSE CS
1282 002460 THEN
1283 002460 012765 000030 000014 MOV #FILDSC,C.ADDR(R5) ;OFFSET OF FILE DESCRIPTOR IN CONTEXT
1284 002466 060465 000014 ADD R4,C.ADDR(R5) ;MAKE IT A DESCRIPTOR ADDRESS
1285 002472 112765 000041 000006 MOVB #C$OPIN,C.FUNC(R5) ;SET FUNCTION CODE TO OPEN INPUT FILE
1286 002500 112764 177766 000103 MOVB #-OPIN,SBSTAT(R4) ;SET SUBSTATE TO OPENING INPUT FILE
1287 002506 ELSE
1288 002510 012700 177763 MOV #NE$FIL,R0 ;FILE ERROR
1289 002514 CALL LDPABO ;BLOW IT UP
1290 002520 ENDIF
1291 002520 ENDIF
1292 002520 IF ; SUBSTATE = OPEN INPUT FILE
1293 002520 FALSEB NE SBSTAT(R4),#OPIN
1294 002530 THEN
1295 002530 IF ; SUCCESS
1296 002530 FALSEB LT C.RET(R5)
1297 002536 THEN
1298 002536 116564 000020 000106 MOVB C.LUN(R5),LUN(R4) ;MOVE LOGICAL UNIT NUMBER TO CONTEXT
1299 002544 IF ; BLOCK BUFFER NOT ALLOCATED
1300 002544 FALSE SET BLKADR(R4)
1301 002552 THEN
1302 002552 012765 001000 000012 MOV #BLKLEN,C.LEN(R5) ;SET LENGTH OF A FILE BLOCK BUFFER
1303 002560 112765 000032 000006 MOVB #C$ALBF,C.FUNC(R5) ;SET FUNCTION CODE TO ALLOCATE MEMORY
1304 002566 112764 177777 000103 MOVB #-ALBF,SBSTAT(R4) ;SET SUBSTATE TO ALLOCATING MEMORY
1305 002574 ELSE
1306 002576 016465 000012 000014 MOV BLKADR(R4),C.ADDR(R5) ;MAKE IT LOOK LIKE JUST ALLOCATED
1307 002604 112764 000001 000103 MOVB #ALBF,SBSTAT(R4) ;SUBSTATE, TOO
1308 002612 ENDIF
1309 002612 ELSE
1310 002614 012700 177763 MOV #NE$FIL,R0 ;FILE ERROR
1311 002620 CALL LDPABO ;BAG IT
1312 002624 ENDIF
1313 002624 ENDIF
1314 002624 IF ; SUBSTATE = ALLOCATE MEMORY BUFFER
1315 002624 FALSEB NE SBSTAT(R4),#ALBF
1316 002634 THEN
1317 002634 016564 000014 000012 MOV C.ADDR(R5),BLKADR(R4) ;SET BLOCK BUFFER ADDRESS
1318 002642 116465 000106 000020 MOVB LUN(R4),C.LUN(R5) ;PUT LOGICAL UNIT NUMBER IN CONTROL BLOCK
1319 002650 112765 000043 000006 MOVB #C$RDBK,C.FUNC(R5) ;SET FUNCTION CODE TO READ A FILE BLOCK
1320 002656 112764 177770 000103 MOVB #-RDBK,SBSTAT(R4) ;SET SUBSTATE TO READING FILE
1321 002664 ENDIF
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 22
LDFLIN
1323 002664 IF ; SUBSTATE = READ FILE BLOCK
1324 002664 FALSEB NE SBSTAT(R4),#RDBK
1325 002674 THEN
1326 002674 IF ; SUCCESS AND TASK HAS NO HEADER
1327 002674 FALSEB LT C.RET(R5)
1328 002702 016500 000014 MOV C.ADDR(R5),R0 ;ADDRESS OF FILE BLOCK
1329 002706 FALSE CLEAR #TS$NHD,L$BFLG(R0)
1330 002716 THEN
1331 002716 016001 000016 MOV L$BLDZ(R0),R1 ;GET NUMBER OF 64 BYTE BLOCKS IN FILE
1332 002722 010102 MOV R1,R2 ;SAVE IT FOR LATER
1333 002724 006201 ASR R1 ;DIVIDE BY 8
1334 002726 006201 ASR R1
1335 002730 006201 ASR R1
1336 002732 010164 000006 MOV R1,BLKCNT(R4) ;SET NUMBER OF 512 BYTE BLOCKS
1337 002736 042702 177770 BIC #^C<7>,R2 ;COMPUTE REMAINDER OF DIVIDE BY 8
1338 002742 006302 ASL R2 ;MULTIPLY BY 64
1339 002744 006302 ASL R2
1340 002746 006302 ASL R2
1341 002750 006302 ASL R2
1342 002752 006302 ASL R2
1343 002754 006302 ASL R2
1344 002756 010264 000010 MOV R2,FINCNT(R4) ;SET NUMBER OF BYTES IN FINAL BLOCK
1345 002762 IF ; FINAL BYTE COUNT <> 0
1346 002762 FALSE EQ
1347 002764 THEN
1348 002764 005264 000006 INC BLKCNT(R4) ;INCREMENT BLOCK COUNT FOR IT
1349 002770 ELSE
1350 002772 012764 001000 000010 MOV #512.,FINCNT(R4) ;FINAL COUNT IS WHOLE LAST BLOCK
1351 003000 ENDIF
1352 003000 016064 000010 000020 MOV L$BSA(R0),BEGADR(R4) ;SET BEGINNING LOAD ADDRESS
1353 003006 016064 000350 000024 MOV L$BXFR(R0),TRAADR(R4) ;SET TRANSFER ADDRESS
1354 003014 016065 000360 000014 MOV L$BBLK(R0),C.BKNM(R5) ;LENGTH OF LABEL
1355 003022 005265 000014 INC C.BKNM(R5) ;MOVE UP TO READ 1ST BLOCK OF IMAGE
1356 003026 112765 000055 000006 MOVB #C$STBK,C.FUNC(R5) ;SET FUNCTION CODE TO SET BLOCK NUMBER
1357 003034 112764 177763 000103 MOVB #-STBK,SBSTAT(R4) ;SET SUBSTATE TO SETTING BLOCK NUMBER
1358 003042 ELSE
1359 003044 012700 177763 MOV #NE$FIL,R0 ;FILE ERROR
1360 003050 CALL LDPABO ;CAN IT
1361 003054 ENDIF
1362 003054 ENDIF
1363 003054 IF ; SUBSTATE = SET FILE BLOCK NUMBER
1364 003054 FALSEB NE SBSTAT(R4),#STBK
1365 003064 THEN
1366 003064 IF ; SUCCESS
1367 003064 FALSEB LT C.RET(R5)
1368 003072 THEN
1369 003072 112764 000002 000264 MOVB #LNKINI,PHASE(R4) ;MOVE TO NEXT PHASE
1370 003100 105064 000103 CLRB SBSTAT(R4) ;WITH INITIAL SUBSTATE
1371 003104 ELSE
1372 003106 012700 177763 MOV #NE$FIL,R0 ;FILE ERROR
1373 003112 CALL LDPABO ;BLOW IT UP
1374 003116 ENDIF
1375 003116 ENDIF
1376 003116 ENDPROC
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 23
LDFMES
1378 .SBTTL LDFMES
1379 ;
1380 ;======================================================================;
1381 ;++
1382 ; +-------------------------------------------------+
1383 ; I I
1384 ; I L D F M E S I
1385 ; I - - - - - - I
1386 ; I I
1387 ; +-------------------------------------------------+
1388 ;
1389 ; FUNCTION:
1390 ;
1391 ; LOAD MODULE TO FREE A MESSAGE BUFFER
1392 ;
1393 ; INPUT:
1394 ;
1395 ; R4 - ADDRESS OF CONTEXT BLOCK
1396 ; MSBFHD - MESSAGE BUFFER FREE LIST HEAD
1397 ; R5 - ADDRESS OF CONTROL BLOCK
1398 ; C.ADDR - ADDRESS OF MESSAGE BUFFER TO FREE
1399 ;
1400 ; OUTPUT:
1401 ;
1402 ; @R4 - UPDATED CONTEXT
1403 ; MSBFHD - UPDATED LIST HEAD
1404 ; @R5 - UPDATED CONTROL BLOCK
1405 ; C.ADDR - ZERO
1406 ;
1407 ; REQUIREMENTS:
1408 ;
1409 ; LOAD SYMBOLS:
1410 ;
1411 ; MSBFHD - OFFSET OF MESSAGE BUFFER FREE LIST HEAD IN CONTEXT
1412 ;
1413 ; CONTROL BLOCK SYMBOLS:
1414 ;
1415 ; C.ADDR - OFFSET OF ADDRESS FIELD
1416 ;
1417 ;--
1418 ;======================================================================;
1419 ;
1420 ;
1421 ; EXTERNAL MACROS
1422 ;
1423 .MCALL CONDF,LDDF
1424 ;
1425 ; DEFINE EXTERNAL SYMBOLS
1426 ;
1427 003120 CONDF ;CONTROL BLOCK SYMBOLS
1428 003120 LDDF ;LOAD SYMBOLS
1429 ;
1430 ; LOCAL PROCEDURE BODY
1431 ;
1432 003120 PROCLC LDFMES
1433 003120 016475 000000 000014 MOV MSBFHD(R4),@C.ADDR(R5) ;POINT BUFFER TO FREE LIST
1434 003126 016564 000014 000000 MOV C.ADDR(R5),MSBFHD(R4) ;CHANGE LIST HEAD
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 23-1
LDFMES
1435 003134 005065 000014 CLR C.ADDR(R5) ;CLEAN UP THE CONTROL BLOCK
1436 003140 ENDPROC
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 24
LDINIT
1438 .SBTTL LDINIT
1439 ;
1440 ;======================================================================;
1441 ;++
1442 ; +-------------------------------------------------+
1443 ; I I
1444 ; I L D I N I T I
1445 ; I - - - - - - I
1446 ; I I
1447 ; +-------------------------------------------------+
1448 ;
1449 ; FUNCTION:
1450 ;
1451 ; LOAD MODULE TO INITIALIZE PROCESSING
1452 ;
1453 ; INPUT:
1454 ;
1455 ; R5 - ADDRESS OF CONTROL BLOCK
1456 ; C.ADDR - ON ALLOCATE BUFFER COMPLETION, ADDRESS OF BUFFER
1457 ; C.FUNC - FUNCTION JUST PERFORMED
1458 ; C.LKNM - COMMAND LINK NUMBER
1459 ; C.SAVE - ON ALLOCATE BUFFER COMPLETION, SAVED FIELDS
1460 ;
1461 ; OUTPUT:
1462 ;
1463 ; R4 - ADDRESS OF CONTEXT BLOCK
1464 ; CMLKNM - COMMAND LINK NUMBER
1465 ; SBSTAT - PROCESSING SUBSTATE
1466 ; STATE - PROCESSING STATE
1467 ; OTHER FIELDS - ZERO OR AS SPECIFIED FOR LDPARS
1468 ; @R5 - UPDATED CONTROL BLOCK
1469 ; C.CTXT - CONTEXT BLOCK ADDRESS
1470 ; C.FUNC - FUNCTION TO PERFORM
1471 ; C.LEN - LENGTH OF BUFFER TO ALLOCATE
1472 ; C.SAVE - SAVED FIELDS
1473 ;
1474 ; REQUIREMENTS:
1475 ;
1476 ; LOAD SYMBOLS:
1477 ;
1478 ; CMLKNM - OFFSET OF COMMAND LINK NUMBER IN CONTEXT
1479 ; CONFIG - CONFIGURATION STATE VALUE
1480 ; CTXTLN - LENGTH OF CONTEXT BLOCK
1481 ; SBSTAT - OFFSET OF SUBSTATE IN CONTEXT
1482 ; STATE - OFFSET OF STATE IN CONTEXT
1483 ;
1484 ; CONTROL BLOCK SYMBOLS:
1485 ;
1486 ; C.ADDR - OFFSET OF ADDRESS FIELD
1487 ; C.CTXT - OFFSET OF CONTEXT FIELD
1488 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
1489 ; C.LEN - OFFSET OF LENGTH FIELD
1490 ; C.LKNM - OFFSET OF LINK NUMBER FIELD
1491 ; C.SAVE - OFFSET OF SAVE AREA
1492 ;
1493 ; C$ALBF - ALLOCATE BUFFER FUNCTION CODE
1494 ; C$PROC - PROCESS FUNCTION CODE
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 24-1
LDINIT
1495 ;
1496 ;--
1497 ;======================================================================;
1498 ;
1499 ;
1500 ; EXTERNAL MACROS
1501 ;
1502 .MCALL CONDF,LDDF
1503 ;
1504 ; DEFINE EXTERNAL SYMBOLS
1505 ;
1506 003142 CONDF ;CONTROL BLOCK SYMBOLS
1507 003142 LDDF ;LOAD SYMBOLS
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 25
LDINIT
1509 ;
1510 ; LOCAL PROCEDURE BODY
1511 ;
1512 003142 PROCLC LDINIT
1513 003142 IF ; CONTROL BLOCK FUNCTION CODE = PROCESS JOB
1514 003142 FALSEB NE C.FUNC(R5),#C$PROC
1515 003152 THEN
1516 003152 016565 000012 000022 MOV C.LEN(R5),C.SAVE(R5) ;SAVE LENGTH OF MESSAGE
1517 003160 016565 000014 000024 MOV C.ADDR(R5),C.SAVE+2(R5) ;SAVE ADDRESS OF MESSAGE
1518 003166 012765 000267 000012 MOV #CTXTLN,C.LEN(R5) ;SET LENGTH OF CONTEXT BLOCK
1519 003174 112765 000032 000006 MOVB #C$ALBF,C.FUNC(R5) ;ALLOCATE CONTEXT BLOCK
1520 003202 ELSE ; MUST BE ALLOCATE MEMORY BUFFER
1521 003204 016504 000014 MOV C.ADDR(R5),R4 ;GET CONTEXT BLOCK ADDRESS
1522 003210 010465 000004 MOV R4,C.CTXT(R5) ;AND PUT IT IN CONTROL BLOCK
1523 003214 005000 CLR R0 ;SET UP A ZERO TO SPRAY
1524 003216 010401 MOV R4,R1 ;START AT BEGINNING OF CONTEXT
1525 003220 012702 000267 MOV #CTXTLN,R2 ;NUMBER OF BYTES TO SPRAY
1526 003224 CALL SPRAY ;ZERO THE CONTEXT BLOCK
1527 003230 016564 000020 000002 MOV C.LKNM(R5),CMLKNM(R4) ;SAVE THE COMMAND LINK NUMBER
1528 003236 016565 000022 000012 MOV C.SAVE(R5),C.LEN(R5) ;RESTORE SAVED LENGTH
1529 003244 016565 000024 000014 MOV C.SAVE+2(R5),C.ADDR(R5) ;RESTORE SAVED MESSAGE ADDRESS
1530 003252 CALL LDPARS ;PARSE THE MESSAGE INTO THE CONTEXT
1531 003256 IF ; SUCCESS
1532 003256 FALSE CS
1533 003260 THEN
1534 003260 112764 000001 000102 MOVB #CONFIG,STATE(R4) ;GO TO THE NEXT STATE
1535 003266 105064 000103 CLRB SBSTAT(R4) ;WITH INITIAL SUBSTATE
1536 003272 ENDIF
1537 003272 ENDIF
1538 003272 ENDPROC
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 26
LDLINK
1540 .SBTTL LDLINK
1541 ;
1542 ;======================================================================;
1543 ;++
1544 ; +-------------------------------------------------+
1545 ; I I
1546 ; I L D L I N K I
1547 ; I - - - - - - I
1548 ; I I
1549 ; +-------------------------------------------------+
1550 ;
1551 ; FUNCTION:
1552 ;
1553 ; LOAD MODULE TO SET UP THE LINE SERVICE LINK
1554 ;
1555 ; INPUT:
1556 ;
1557 ; R4 - ADDRESS OF CONTEXT BLOCK
1558 ; SBSTAT - PROCESSING SUBSTATE
1559 ; SVNODE - SERVER NODE NAME IMAGE
1560 ; R5 - ADDRESS OF CONTROL BLOCK
1561 ; C.ADDR - ON ALLOCATE BUFFER COMPLETION, ADDRESS OF BUFFER
1562 ; C.LKNM - ON OPEN LINK COMPLETION, LINK NUMBER
1563 ; C.RET - ON COMPLETION ENTRY, RETURN CODE
1564 ; OTHER INPUTS - AS DESCRIBED FOR SUBMODULES
1565 ;
1566 ; OUTPUT:
1567 ;
1568 ; @R4 - UPDATED CONTEXT BLOCK
1569 ; LSLKNM - LINE SERVICE LINK NUMBER
1570 ; SBSTAT - PROCESSING SUBSTATE
1571 ; STATE - PROCESSING STATE
1572 ; @R5 - UPDATED CONTROL BLOCK
1573 ; C.ADDR - ON OPEN LINK REQUEST, ADDRESS OF CONNECT BLOCK
1574 ; OTHER OUTPUTS - AS DEFINE FOR SUBMODULES
1575 ;
1576 ; REQUIREMENTS:
1577 ;
1578 ; LOAD SYMBOLS:
1579 ;
1580 ; ALBF - ALLOCATE BUFFER SUBSTATE VALUE
1581 ; BOOT - BOOT STATE VALUE
1582 ; LSLKNM - OFFSET OF LINE SERVICE LINK NUMBER IN CONTEXT
1583 ; OPLK - OPEN LINK SUBSTATE VALUE
1584 ; SBSTAT - OFFSET OF SUBSTATE IN CONTEXT
1585 ; STATE - OFFSET OF STATE IN CONTEXT
1586 ; SVNODE - OFFSET OF SERVER NODE IMAGE IN CONTEXT
1587 ;
1588 ; NICE SYMBOLS:
1589 ;
1590 ; NE$NCO - NETWORK COMMUNICATION ERROR RETURN CODE
1591 ; NE$RES - RESOURCE ERROR RETURN CODE
1592 ; NE$SER - INVALID SERVER ID ERROR RETURN CODE
1593 ;
1594 ; CONTROL BLOCK SYMBOLS:
1595 ;
1596 ; C.ADDR - OFFSET OF ADDRESS FIELD
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 26-1
LDLINK
1597 ; C.LKNM - OFFSET OF LINK NUMBER FIELD
1598 ; C.RET - OFFSET OF RETURN CODE FIELD
1599 ; C$OPLK - OPEN LINK FUNCTION CODE
1600 ; CE$NOD - INVALID NODE NAME ERROR RETURN CODE
1601 ; CE$OBJ - OBJECT DOESN'T EXIST ERROR RETURN CODE
1602 ; CE$REJ - REJECTED ERROR RETURN CODE
1603 ;
1604 ;--
1605 ;======================================================================;
1606 ;
1607 ;
1608 ; EXTERNAL MACROS
1609 ;
1610 .MCALL LDDF,CONDF,NICDF
1611 ;
1612 ; DEFINE EXTERNAL SYMBOLS
1613 ;
1614 003274 LDDF ;LOAD SYMBOLS
1615 003274 NICDF ;NICE MESSAGE SYMBOLS
1616 003274 CONDF ;CONTROL BLOCK SYMBOLS
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 27
LDLINK
1618 ;
1619 ; LOCAL PROCEDURE BODY
1620 ;
1621 003274 PROCLC LDLINK
1622 003274 IF ; SUBSTATE = 0
1623 003274 FALSEB SET SBSTAT(R4)
1624 003302 THEN
1625 003302 CALL LDAMES ;ALLOCATE A MESSAGE BUFFER
1626 003306 ENDIF
1627 003306 IF ; SUBSTATE = ALLOCATE MEMORY BUFFER
1628 003306 FALSEB NE SBSTAT(R4),#ALBF
1629 003316 THEN
1630 003316 012700 000142 MOV #SVNODE,R0 ;OFFSET OF SERVER NODE NAME IMAGE IN CONTEXT
1631 003322 060400 ADD R4,R0 ;MAKE IT AN ADDRESS
1632 003324 CALL BLCNBK ;BUILD A CONNECT BLOCK
1633 003330 112765 000051 000006 MOVB #C$OPLK,C.FUNC(R5) ;SET UP CONTROL BLOCK TO OPEN LINK
1634 003336 112764 177776 000103 MOVB #-OPLK,SBSTAT(R4) ;SET SUBSTATE
1635 003344 ENDIF
1636 003344 IF ; SUBSTATE = OPEN LINK
1637 003344 FALSEB NE SBSTAT(R4),#OPLK
1638 003354 THEN
1639 003354 IF ; SUCCESSFUL
1640 003354 FALSEB LT C.RET(R5)
1641 003362 THEN
1642 003362 016564 000020 000004 MOV C.LKNM(R5),LSLKNM(R4) ;PUT LINK NUMBER INTO CONTEXT
1643 003370 112764 000003 000102 MOVB #BOOT,STATE(R4) ;MOVE TO NEXT STATE
1644 003376 105064 000103 CLRB SBSTAT(R4) ;INITIALIZE SUBSTATE
1645 003402 ELSE
1646 003404 ONCASE ; ERROR CODE
1647 003404 116500 000010 MOVB C.RET(R5),R0
1648 003410 CASE ; NODE NAME
1649 003410 FALSE NE R0,#CE$NOD
1650 003416 DO
1651 003416 012700 177764 MOV #NE$SER,R0 ;SERVER ID ERROR
1652 003422 CASE ; REJECTED
1653 003424 FALSE NE R0,#CE$REJ
1654 003432 DO
1655 003432 012700 177761 MOV #NE$RES,R0 ;RESOURCE ERROR
1656 003436 CASE ; OBJECT DOESN'T EXIST
1657 003440 FALSE NE R0,#CE$OBJ
1658 003446 DO
1659 003446 012700 177753 MOV #NE$NIC,R0 ;NICE PROCESS UNAVAILABLE
1660 003452 ELSE
1661 003454 012700 177755 MOV #NE$NCO,R0 ;NETWORK COMMUNICATIONS ERROR
1662 003460 ENDCASE
1663 003460 CALL LDABRT ;KILL IT
1664 003464 ENDIF
1665 003464 CALL LDFMES ;FREE THE MESSAGE BUFFER
1666 003470 ENDIF
1667 003470 ENDPROC
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 28
LDLOAD
1669 .SBTTL LDLOAD
1670 ;
1671 ;======================================================================;
1672 ;++
1673 ; +-------------------------------------------------+
1674 ; I I
1675 ; I L D L O A D I
1676 ; I - - - - - - I
1677 ; I I
1678 ; +-------------------------------------------------+
1679 ;
1680 ; FUNCTION:
1681 ;
1682 ; LOAD PROCESSOR MAIN MODULE
1683 ;
1684 ; INPUT:
1685 ;
1686 ; R5 - ADDRESS OF CONTROL BLOCK
1687 ; C.CTXT - ZERO OR ADDRESS OF CONTEXT BLOCK
1688 ; SBSTAT - PROCESSING SUBSTATE
1689 ; STATE - PROCESSING STATE
1690 ; C.FUNC - FUNCTION JUST PERFORMED
1691 ; OTHER INPUTS - AS DESCRIBED FOR SUBMODULES
1692 ;
1693 ; OUTPUT:
1694 ;
1695 ; C-BIT - CLEAR
1696 ; @R5 - UPDATED CONTROL BLOCK
1697 ; C.CTXT - ON FINAL RETURN, -1; OTHERWISE ADDRESS OF CONTEXT BLOCK
1698 ; C.FUNC - ON FINAL RETURN, PROCESS FUNCTION CODE
1699 ; C.PROC - ON FINAL RETURN, GET COMMAND PROCESSOR NUMBER
1700 ; OTHER OUTPUTS - AS DESCRIBED FOR SUBMODULES
1701 ;
1702 ; REQUIREMENTS:
1703 ;
1704 ; LOAD SYMBOLS:
1705 ;
1706 ; BOOT - BOOT STATE VALUE
1707 ; CONFIG - CONFIGURATION STATE VALUE
1708 ; FINISH - FINISH STATE VALUE
1709 ; LINK - LINK STATE VALUE
1710 ; LOAD - SINGLE LOAD STATE VALUE
1711 ; SBSTAT - OFFSET OF SUBSTATE IN CONTEXT
1712 ; STATE - OFFSET OF STATE IN CONTEXT
1713 ;
1714 ; PROCESSOR SYMBOLS:
1715 ;
1716 ; P$GTCM - GET COMMAND PROCESSOR NUMBER
1717 ;
1718 ; CONTROL BLOCK SYMBOLS:
1719 ;
1720 ; C.CTXT - OFFSET OF CONTEXT FIELD
1721 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
1722 ; C.PROC - OFFSET OF PROCESSOR NUMBER FIELD
1723 ; C$RLBF - RELEASE BUFFER FUNCTION CODE
1724 ;
1725 ;--
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 28-1
LDLOAD
1726 ;======================================================================;
1727 ;
1728 ;
1729 ; EXTERNAL MACROS
1730 ;
1731 .MCALL CONDF,LDDF,PRDF
1732 ;
1733 ; DEFINE EXTERNAL SYMBOLS
1734 ;
1735 003472 CONDF ;CONTROL BLOCK SYMBOLS
1736 003472 LDDF ;LOAD SYMBOLS
1737 003472 PRDF ;PROCESSOR SYMBOLS
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 29
LDLOAD
1739 ;
1740 ; PROCEDURE BODY
1741 ;
1742 003472 PROC LDLOAD
1743 003472 016504 000004 MOV C.CTXT(R5),R4 ;GET CONTEXT POINTER
1744 003476 IF ; CONTEXT POINTER = 0
1745 003476 FALSE SET R4
1746 003502 THEN
1747 003502 IF ; FUNCTION CODE <> RELEASE MEMORY BUFFER
1748 003502 FALSEB EQ C.FUNC(R5),#C$RLBF
1749 003512 THEN
1750 003512 CALL LDINIT ;INITIALIZE
1751 003516 ELSE ; MUST HAVE JUST RELEASED CONTEXT, ALL DONE!
1752 003520 112765 000001 000007 MOVB #P$GTCM,C.PROC(R5) ;PASS THIS BACK FROM WHENCE IT CAME
1753 003526 112765 000200 000006 MOVB #C$PROC,C.FUNC(R5) ;FIX UP FUNCTION CODE
1754 003534 012765 177777 000004 MOV #-1,C.CTXT(R5) ;SIGNAL COMPLETE
1755 003542 005004 CLR R4 ;MAKE SURE NOBODY ELSE IN HERE RUNS
1756 003544 ENDIF
1757 003544 ENDIF
1758 003544 IF ; CONTEXT POINTER <> 0
1759 003544 FALSE CLEAR R4
1760 003550 THEN
1761 003550 105464 000103 NEGB SBSTAT(R4) ;NEGATE SUBSTATE TO FLAG OPERATION DONE
1762 003554 IF ; STATE = CONFIGURATION NEEDED
1763 003554 FALSEB NE STATE(R4),#CONFIG
1764 003564 THEN
1765 003564 CALL LDCNFG ;SET UP CONFIGURATION DATA
1766 003570 ENDIF
1767 003570 IF ; STATE = LINK
1768 003570 FALSEB NE STATE(R4),#LINK
1769 003600 THEN
1770 003600 CALL LDLINK ;SET UP LOGICAL LINK
1771 003604 ENDIF
1772 003604 IF ; STATE = BOOT
1773 003604 FALSEB NE STATE(R4),#BOOT
1774 003614 THEN
1775 003614 CALL LDBOOT ;BOOT IT
1776 003620 ENDIF
1777 003620 WHILE ; STATE = LOAD AND SUBSTATE >= 0
1778 003620 FALSEB NE STATE(R4),#LOAD
1779 003630 FALSEB LT SBSTAT(R4)
1780 003636 DO
1781 003636 CALL LDPROC ;LOAD THE NODE WITH THE CODE
1782 003642 ENDWHILE
1783 003644 IF ; STATE = FINISH UP
1784 003644 FALSEB NE STATE(R4),#FINISH
1785 003654 THEN
1786 003654 CALL LDFINI ;CLEAN THIS MESS UP
1787 003660 ENDIF
1788 003660 ENDIF
1789 003660 000241 CLC ;FOLLOWING THE RULES...
1790 003662 ENDPROC
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 30
LDLKIN
1792 .SBTTL LDLKIN
1793 ;
1794 ;======================================================================;
1795 ;++
1796 ; +-------------------------------------------------+
1797 ; I I
1798 ; I L D L K I N I
1799 ; I - - - - - - I
1800 ; I I
1801 ; +-------------------------------------------------+
1802 ;
1803 ; FUNCTION:
1804 ;
1805 ; LOAD MODULE TO INITIALZE WITH LINE SERVICE FOR A SINGLE LOAD
1806 ;
1807 ; INPUT:
1808 ;
1809 ; R4 - ADDRESS OF CONTEXT BLOCK
1810 ; BEGADR - BEGINNING MEMORY ADDRESS FOR LOAD
1811 ; FLAGS - PROCESSING FLAGS
1812 ; LINE - SERVER LINE ID
1813 ; LSLKNM - LINE SERVICE LINK NUMBER
1814 ; REQPRO - REQUESTED PROGRAM TYPE
1815 ; SBSTAT - PROCESSING SUBSTATE
1816 ; R5 - ADDRESS OF CONTROL BLOCK
1817 ; C.ADDR - ON COMPLETION ENTRY, ADDRESS OF MESSAGE BUFFER
1818 ; C.RET - ON COMPLETION ENRTY, RETURN CODE
1819 ; OTHER INPUTS - AS REQUIRED BY SUBMODULES
1820 ;
1821 ; OUTPUT:
1822 ;
1823 ; @R4 - UPDATED CONTEXT BLOCK
1824 ; FLAGS - PROCESSING FLAGS
1825 ; PHASE - PROCESSING PHASE
1826 ; SBSTAT - PROCESSING SUBSTATE
1827 ; @R5 - UPDATED CONTROL BLOCK
1828 ; C.ADDR - ON SERVICE REQUEST, MESSAGE BUFFER ADDRESS
1829 ; C.FUNC - FUNCTION TO PERFORM
1830 ; C.LEN - LENGTH OF BUFFER OR CONTENTS
1831 ; C.LKNM - LINK NUMBER
1832 ; C.FUNC - FUNCTION TO PERFORM
1833 ; OTHER OUTPUTS - AS DESCRIBED FOR SUBMODULES
1834 ;
1835 ; REQUIREMENTS:
1836 ;
1837 ; LOAD SYMBOLS:
1838 ;
1839 ; ALBF - ALLOCATE BUFFER SUBSTATE VALUE
1840 ; BEGADR - OFFSET OF MEMORY BEGINNING ADDRESS IN CONTEXT
1841 ; FLAGS - OFFSET OF PROCESSING FLAGS IN CONTEXT
1842 ; LINE - OFFSET OF SERVER LINE ID IN CONTEXT
1843 ; LSLKNM - OFFSET OF LINE SERVICE LINK NUMBER IN CONTEXT
1844 ; PHASE - OFFSET OF PHASE IN CONTEXT
1845 ; RCMA - RECEIVE MESSAGE ASYNCHRONOUS SUBSTATE VALUE
1846 ; RCMS - RECEIVE MESSAGE SUBSTATE VALUE
1847 ; RCVPND - RECEIVE MESSAGE PENDING FLAG MASK
1848 ; REQPRO - OFFSET OF REQUESTED PROGRAM TYPE IN CONTEXT
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 30-1
LDLKIN
1849 ; SBSTAT - OFFSET OF SUBSTATE IN CONTEXT
1850 ; SETADR - SETTING BASE ADDRESS FLAG MASK
1851 ; TRAIMA - TRANSMIT IMAGE PHASE VALUE
1852 ; TRMS - TRANSMIT MESSAGE SUBSTATE VALUE
1853 ;
1854 ; NICE MESSAGE SYMBOLS:
1855 ;
1856 ; DM$SAD - SET BASE ADDRESS DIALOG MESSAGE TYPE VALUE
1857 ; LI$STA - STANDARD LINE ID TYPE VALUE
1858 ; LS$LOA - LINE SERVICE LOAD OPTION VALUE
1859 ; N.MLEN - MAXIMUM LENGTH OF A NICE MESSAGE
1860 ; N$LNSR - LINE SERVICE FUNCTION CODE VALUE
1861 ; NE$NCO - NETWORK COMMUNICATION ERROR RETURN CODE
1862 ;
1863 ; CONTROL BLOCK SYMBOLS:
1864 ;
1865 ; C.ADDR - OFFSET OF ADDRESS FIELD
1866 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
1867 ; C.LEN - OFFSET OF LENGTH FIELD
1868 ; C.LKNM - OFFSET OF LINK NUMBER FIELD
1869 ; C.RET - OFFSET OF RETURN CODE FIELD
1870 ; C$RCMA - RECEIVE MESSAGE ASYNCHRONOUS FUNCTION CODE
1871 ; C$RCMS - RECEIVE MESSAGE FUNCTION CODE
1872 ; C$TRMS - TRANSMIT MESSAGE FUNCTION CODE
1873 ;
1874 ;--
1875 ;======================================================================;
1876 ;
1877 ;
1878 ; EXTERNAL MACROS
1879 ;
1880 .MCALL CONDF,LDDF,NICDF
1881 ;
1882 ; DEFINE EXTERNAL SYMBOLS
1883 ;
1884 003664 CONDF ;CONTROL BLOCK SYMBOLS
1885 003664 LDDF ;LOAD SYMBOLS
1886 003664 NICDF ;NICE MESSAGE SYMBOLS
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 31
LDLKIN
1888 ;
1889 ; LOCAL PROCEDURE BODY
1890 ;
1891 003664 PROCLC LDLKIN
1892 003664 IF ; SUBSTATE = 0
1893 003664 FALSEB SET SBSTAT(R4)
1894 003672 THEN
1895 003672 CALL LDAMES ;ALLOCATE A MESSAGE BUFFER
1896 003676 ENDIF
1897 003676 IF ; SUBSTATE = ALLOCATE MEMORY BUFFER
1898 003676 FALSEB NE SBSTAT(R4),#ALBF
1899 003706 THEN
1900 003706 016502 000014 MOV C.ADDR(R5),R2 ;GET ADDRESS OF MESSAGE BUFFER
1901 003712 112722 000016 MOVB #N$LNSR,(R2)+ ;PUT IN LINE SERVICE FUNCTION CODE
1902 003716 112722 000000 MOVB #LS$LOA,(R2)+ ;SET OPTION TO ESTABLISH LOAD DIALOG
1903 003722 112722 000001 MOVB #LI$STA,(R2)+ ;STANDARD LINE ID FORMAT
1904 003726 012700 000151 MOV #LINE,R0 ;OFFSET OF LINE ID IN CONTEXT
1905 003732 060400 ADD R4,R0 ;MAKE IT A SOURCE ADDRESS
1906 003734 012701 000004 MOV #4,R1 ;LENGTH OF LINE ID
1907 003740 CALL MOVE ;MOVE LINE ID TO MESSAGE
1908 003744 116422 000111 MOVB REQPRO(R4),(R2)+ ;PUT IN PROGRAM TYPE
1909 003750 166502 000014 SUB C.ADDR(R5),R2 ;COMPUTE MESSAGE LENGTH
1910 003754 010265 000012 MOV R2,C.LEN(R5) ;PUT LENGTH IN CONTROL BLOCK
1911 003760 016465 000004 000020 MOV LSLKNM(R4),C.LKNM(R5) ;PUT LINE SERVICE LINK NUMBER IN CONTROL BLOCK
1912 003766 112765 000053 000006 MOVB #C$TRMS,C.FUNC(R5) ;SET FUNCTION CODE TO TRANSMIT MESSAGE
1913 003774 112764 177775 000103 MOVB #-TRMS,SBSTAT(R4) ;SET SUBSTATE TO TRANSMITTING MESSAGE
1914 004002 ENDIF
1915 004002 IF ; SUBSTATE = TRANSMIT MESSAGE
1916 004002 FALSEB NE SBSTAT(R4),#TRMS
1917 004012 THEN
1918 004012 IF ; SUCCESS
1919 004012 FALSEB LT C.RET(R5)
1920 004020 THEN
1921 004020 012765 000454 000012 MOV #N.MLEN,C.LEN(R5) ;SET LENGTH FOR RECEIVE
1922 004026 IF ; NOT SETTING ADDRESS
1923 004026 FALSEB SET #SETADR,FLAGS(R4)
1924 004036 THEN
1925 004036 112765 000054 000006 MOVB #C$RCMS,C.FUNC(R5) ;SET FUNCTION CODE TO RECEIVE MESSAGE
1926 004044 112764 177774 000103 MOVB #-RCMS,SBSTAT(R4) ;LIKEWISE SUBSTATE
1927 004052 ELSE
1928 004054 142764 000002 000265 BICB #SETADR,FLAGS(R4) ;DONE SETTING ADDRESS
1929 004062 112765 000146 000006 MOVB #C$RCMA,C.FUNC(R5) ;SET FUNCTION CODE TO RECEIVE ASYNCH.
1930 004070 112764 177767 000103 MOVB #-RCMA,SBSTAT(R4) ;LIKEWISE SUBSTATE
1931 004076 ENDIF
1932 004076 ELSE
1933 004100 142764 000002 000265 BICB #SETADR,FLAGS(R4) ;CLEAN UP FLAG FOR SETTING ADDRESS
1934 004106 CALL LDFMES ;FREE THE MESSAGE BUFFER
1935 004112 012700 177755 MOV #NE$NCO,R0 ;NETWORK COMMUNICATIONS ERROR
1936 004116 CALL LDPABO ;KILL IT
1937 004122 ENDIF
1938 004122 ENDIF
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 32
LDLKIN
1940 004122 IF ; SUBSTATE = RECEIVE MESSAGE
1941 004122 FALSEB NE SBSTAT(R4),#RCMS
1942 004132 THEN
1943 004132 IF ; SUCCESS
1944 004132 FALSEB LT C.RET(R5)
1945 004140 THEN
1946 004140 IF ; NICE SUCCESS
1947 004140 FALSEB LT @C.ADDR(R5)
1948 004146 THEN
1949 004146 016502 000014 MOV C.ADDR(R5),R2 ;GET ADDRESS OF MESSAGE BUFFER
1950 004152 112722 000001 MOVB #DM$SAD,(R2)+ ;SET DIALOG MESSAGE TYPE FOR SET BASE ADDRESS
1951 004156 012700 000020 MOV #BEGADR,R0 ;OFFSET OF BEGINNING ADDRESS IN CONTEXT
1952 004162 060400 ADD R4,R0 ;MAKE IT A SOURCE ADDRESS
1953 004164 012701 000004 MOV #4,R1 ;LENGTH OF ADDRESS FIELD
1954 004170 CALL MOVE ;MOVE BEGINNING ADDRESS TO MESSAGE
1955 004174 166502 000014 SUB C.ADDR(R5),R2 ;COMPUTE MESSAGE LENGTH
1956 004200 010265 000012 MOV R2,C.LEN(R5) ;SET LENGTH IN CONTROL BLOCK
1957 004204 112765 000053 000006 MOVB #C$TRMS,C.FUNC(R5) ;SET FUNCTION CODE TO TRANSMIT MESSAGE
1958 004212 112764 177775 000103 MOVB #-TRMS,SBSTAT(R4) ;SET SUBSTATE TO TRANSMITTING MESSAGE
1959 004220 152764 000002 000265 BISB #SETADR,FLAGS(R4) ;SET FLAG FOR SETTING ADDRESS
1960 004226 ELSE
1961 004230 117500 000014 MOVB @C.ADDR(R5),R0 ;PASS ON NICE ERROR CODE
1962 004234 CALL LDPABO ;AND GIVE UP
1963 004240 ENDIF
1964 004240 ELSE
1965 004242 012700 177755 MOV #NE$NCO,R0 ;NETWORK COMMUNICATION ERROR
1966 004246 CALL LDPABO ;QUIT
1967 004252 ENDIF
1968 004252 ENDIF
1969 004252 IF ; SUBSTATE = RECEIVE MESSAGE ASYNCHRONOUSLY
1970 004252 FALSEB NE SBSTAT(R4),#RCMA
1971 004262 THEN
1972 004262 152764 000001 000265 BISB #RCVPND,FLAGS(R4) ;SET RECEIVE PENDING FLAG
1973 004270 112764 000003 000264 MOVB #TRAIMA,PHASE(R4) ;MOVE TO NEXT PHASE
1974 004276 105064 000103 CLRB SBSTAT(R4) ;WITH INITIAL SUBSTATE
1975 004302 ENDIF
1976 004302 ENDPROC
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 33
LDPABO
1978 .SBTTL LDPABO
1979 ;
1980 ;======================================================================;
1981 ;++
1982 ; +-------------------------------------------------+
1983 ; I I
1984 ; I L D P A B O I
1985 ; I - - - - - - I
1986 ; I I
1987 ; +-------------------------------------------------+
1988 ;
1989 ; FUNCTION:
1990 ;
1991 ; LOAD MODULE TO ABORT PROCESSING OF A SINGLE LOAD
1992 ;
1993 ; INPUT:
1994 ;
1995 ; R4 - ADDRESS OF CONTEXT BLOCK
1996 ; R0 - NICE RETURN CODE
1997 ;
1998 ; OUTPUT:
1999 ;
2000 ; @R4 - UPDATED CONTEXT BLOCK
2001 ; PHASE - CLEAN UP PHASE VALUE
2002 ; RETCOD - NICE RETURN CODE
2003 ; SBSTAT - PROCESSING SUBSTATE
2004 ;
2005 ; REQUIREMENTS:
2006 ;
2007 ; LOAD SYMBOLS:
2008 ;
2009 ; CLEUP - CLEAN UP PHASE VALUE
2010 ; PHASE - OFFSET OF PHASE IN CONTEXT
2011 ; RETCOD - OFFSET OF NICE RETURN CODE IN CONTEXT
2012 ; SBSTAT - OFFSET OF SUBSTATE IN CONTEXT
2013 ;
2014 ;--
2015 ;======================================================================;
2016 ;
2017 ;
2018 ; EXTERNAL MACROS
2019 ;
2020 .MCALL LDDF
2021 ;
2022 ; DEFINE EXTERNAL SYMBOLS
2023 ;
2024 004304 LDDF ;LOAD SYMBOLS
2025 ;
2026 ; LOCAL PROCEDURE BODY
2027 ;
2028 004304 PROCLC LDPABO
2029 004304 110064 000104 MOVB R0,RETCOD(R4) ;SAVE ERROR RETURN CODE
2030 004310 112764 000004 000264 MOVB #CLEUP,PHASE(R4) ;MOVE TO CLEANUP PHASE
2031 004316 105064 000103 CLRB SBSTAT(R4) ;WITH INITIALIZED SUBSTATE
2032 004322 ENDPROC
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 34
LDPARS
2034 .SBTTL LDPARS
2035 ;
2036 ;======================================================================;
2037 ;++
2038 ; +-------------------------------------------------+
2039 ; I I
2040 ; I L D P A R S I
2041 ; I - - - - - - I
2042 ; I I
2043 ; +-------------------------------------------------+
2044 ;
2045 ; FUNCTION:
2046 ;
2047 ; LOAD MODULE TO PARSE THE NICE COMMAND MESSAGE
2048 ;
2049 ; INPUT:
2050 ;
2051 ; R4 - ADDRESS OF CONTEXT BLOCK
2052 ; R5 - ADDRESS OF CONTROL BLOCK
2053 ; C.ADDR - ADDRESS OF MESSAGE
2054 ; C.LEN - LENGTH OF MESSAGE
2055 ; OTHER INPUTS - AS DESCRIBED FOR SUBMODULES
2056 ;
2057 ; OUTPUT:
2058 ;
2059 ; C-BIT - CLEAR IF SUCCESSFUL, SET IF NOT
2060 ; @R4 - UPDATED CONTEXT BLOCK
2061 ; BOOPAS - BOOT PASSWORD
2062 ; INFILE - INPUT FILE NAME
2063 ; LINE - SERVER LINE ID
2064 ; OPTION - NICE MESSAGE OPTION
2065 ; SVNODE - SERVER NODE NAME
2066 ; SYSPAR - SYSTEM PARAMETERS
2067 ; TGNODE - TARGET NODE NAME
2068 ; OTHER OUTPUTS - AS DESCRIBED FOR SUBMODULES
2069 ;
2070 ; REQUIREMENTS:
2071 ;
2072 ; LOAD SYMBOLS:
2073 ;
2074 ; BADBIT - BAD NICE OPTION BIT MASK
2075 ; BOOPAS - OFFSET OF BOOT PASSWORD IN CONTEXT
2076 ; BPSLEN - MAXIMUM LENGTH OF BOOT PASSWORD
2077 ; BPSPRQ - BOOT PASSWORD/PROGRAM REQUEST INCLUDED NICE OPTION MASK
2078 ; FILINC - INPUT FILENAME INCLUDED NICE OPTION MASK
2079 ; FILLEN - MAXIMUM LENGTH OF FILENAME
2080 ; INFILE - OFFSET OF INPUT FILENAME IN CONTEXT
2081 ; LINE - OFFSET OF SERVER LINE ID IN CONTEXT
2082 ; NODLEN - MAXIMUM LENGTH OF NODE NAME
2083 ; NOTNAM - NOT IDENTIFIED BY NAME NICE OPTION MASK
2084 ; OPTION - OFFSET OF NICE OPTION IN CONTEXT
2085 ; PARINC - PARAMETERS INCLUDED NICE OPTION MASK
2086 ; PARLEN - MAXIMUM LENGTH OF PARAMETERS
2087 ; SRVINC - SERVER ID INCLUDED NICE OPTION MASK
2088 ; SVNODE - OFFSET OF SERVER NODE NAME IN CONTEXT
2089 ; SYSPAR - OFFSET OF SYSTEM PARAMETERS IN CONTEXT
2090 ; TGNODE - OFFSET OF TARGET NODE NAME IN CONTEXT
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 34-1
LDPARS
2091 ; TRIBOO - TRIGGER BOOT NICE OPTION MASK
2092 ;
2093 ; NICE MESSAGE SYMBOLS:
2094 ;
2095 ; LI$STA - STANDARD LINE ID TYPE VALUE
2096 ; NE$FOR - MESSAGE FORMAT ERROR RETURN CODE
2097 ; NE$FUN - INVALID FUNCTION OR OPTION ERROR RETURN CODE
2098 ; NE$PAR - INVALID PARAMETER ERROR RETURN CODE
2099 ;
2100 ; CONTROL BLOCK SYMBOLS:
2101 ;
2102 ; C.ADDR - OFFSET OF ADDRESS FIELD
2103 ; C.LEN - OFFSET OF LENGTH FIELD
2104 ;
2105 ;
2106 ;--
2107 ;======================================================================;
2108 ;
2109 ;
2110 ; EXTERNAL MACROS
2111 ;
2112 .MCALL SAVSTK,RESSTK,CONDF,LDDF,NICDF
2113 ;
2114 ; DEFINE EXTERNAL SYMBOLS
2115 ;
2116 004324 CONDF ;CONTROL BLOCK SYMBOLS
2117 004324 LDDF ;LOAD SYMBOLS
2118 004324 NICDF ;NICE MESSAGE SYMBOLS
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 35
LDPARS
2120 ;
2121 ; LOCAL PROCEDURE BODY
2122 ;
2123 004324 PROCLC LDPARS
2124 004324 SAVSTK <R3> ;SAVE REGISTERS
2125 004326 016502 000014 MOV C.ADDR(R5),R2 ;GET ADDRESS OF MESSAGE
2126 004332 010203 MOV R2,R3 ;COPY IT
2127 004334 066503 000012 ADD C.LEN(R5),R3 ;MAKE MESSAGE END ADDRESS
2128 004340 005202 INC R2 ;MOVE CURRENT ADDRESS PAST FUNCTION CODE
2129 004342 CALL GTMSBY ;GET THE OPTION BYTE
2130 004346 IF ; SUCCESS
2131 004346 FALSE CS
2132 004350 THEN
2133 004350 IF ; BAD OPTION BIT SET
2134 004350 FALSEB CLEAR #BADBIT,R0
2135 004356 THEN
2136 004356 012700 177777 MOV #NE$FUN,R0 ;FUNCTION CODE ERROR
2137 004362 000261 SEC ;FAIL
2138 004364 ELSE
2139 004366 110064 000105 MOVB R0,OPTION(R4) ;SAVE THE OPTION FIELD
2140 004372 ENDIF
2141 004372 IF ; SUCCESS
2142 004372 FALSE CS
2143 004374 THEN
2144 004374 IF ; IDENTIFICATION BY NAME
2145 004374 FALSEB SET #NOTNAM,OPTION(R4)
2146 004404 THEN
2147 004404 012700 000006 MOV #NODLEN,R0 ;MAXIMUM LENGTH OF NODE NAME
2148 004410 012701 000133 MOV #TGNODE,R1 ;OFFSET OF TARGET NODE NAME IN CONTEXT
2149 004414 060401 ADD R4,R1 ;MAKE IT A DESTINATION ADDRESS
2150 004416 CALL MVMSIM ;MOVE IMAGE FIELD INTO CONTEXT
2151 004422 ELSE
2152 004424 IF ; OPTION IS LOAD ALL
2153 004424 FALSEB SET #SRVINC,OPTION(R4)
2154 004434 THEN
2155 004434 012700 177777 MOV #NE$FUN,R0 ;FUNCTION CODE ERROR
2156 004440 000261 SEC ;FAIL
2157 004442 ENDIF
2158 004442 ENDIF
2159 004442 ENDIF
2160 004442 IF ; SUCCESS AND SERVER INCLUDED
2161 004442 FALSE CS
2162 004444 FALSEB CLEAR #SRVINC,OPTION(R4)
2163 004454 THEN
2164 004454 012700 000006 MOV #NODLEN,R0 ;MAXIMUM NODE NAME LENGTH
2165 004460 012701 000142 MOV #SVNODE,R1 ;OFFSET OF SERVER NODE NAME IN CONTEXT
2166 004464 060401 ADD R4,R1 ;MAKE IT A DESTINATION ADDRESS
2167 004466 CALL MVMSIM ;MOVE IMAGE FIELD INTO CONTEXT
2168 004472 IF ; SUCCESS
2169 004472 FALSE CS
2170 004474 THEN
2171 004474 CALL GTMSBY ;GET LINE FORMAT TYPE
2172 004500 IF ; SUCCESS
2173 004500 FALSE CS
2174 004502 THEN
2175 004502 IF ; LINE FORMAT TYPE <> STANDARD
2176 004502 FALSE EQ R0,#LI$STA
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 35-1
LDPARS
2177 004510 THEN
2178 004510 012700 177760 MOV #NE$PAR,R0 ;PARAMETER ERROR
2179 004514 000261 SEC ;FAIL
2180 004516 ELSE
2181 004520 012700 000004 MOV #4,R0 ;BYTE COUNT IN LINE ID
2182 004524 012701 000151 MOV #LINE,R1 ;OFFSET OF LINE ID IN CONTEXT
2183 004530 060401 ADD R4,R1 ;MAKE IT A DESTINATION ADDRESS
2184 004532 CALL MVMSBY ;MOVE LINE ID TO CONTEXT
2185 004536 ENDIF
2186 004536 ENDIF
2187 004536 ENDIF
2188 004536 ENDIF
2189 004536 IF ; SUCCESS AND BOOT PASSWORD OR PROGRAM REQUEST INCLUDED
2190 004536 FALSE CS
2191 004540 FALSEB CLEAR #BPSPRQ,OPTION(R4)
2192 004550 THEN
2193 004550 IF ; PASSWORD INCLUDED
2194 004550 FALSEB CLEAR #TRIBOO,OPTION(R4)
2195 004560 THEN
2196 004560 012700 000010 MOV #BPSLEN,R0 ;MAXIMUM LENGTH OF BOOT PASSWORD
2197 004564 012701 000155 MOV #BOOPAS,R1 ;OFFSET OF BOOT PASSWORD IN CONTEXT
2198 004570 060401 ADD R4,R1 ;MAKE IT A DESTINATION ADDRESS
2199 004572 CALL MVMSIM ;MOVE IMAGE FIELD TO CONTEXT
2200 004576 ELSE
2201 004600 CALL LDPPRQ ;PARSE THE PROGRAM REQUEST INTO CONTEXT
2202 004604 ENDIF
2203 004604 ENDIF
2204 004604 IF ; SUCCESS AND INPUT FILENAME INCLUDED
2205 004604 FALSE CS
2206 004606 FALSEB CLEAR #FILINC,OPTION(R4)
2207 004616 THEN
2208 004616 012700 000036 MOV #FILLEN,R0 ;MAXIMUM LENGTH OF FILENAME
2209 004622 012701 000166 MOV #INFILE,R1 ;OFFSET OF FILENAME IN CONTEXT
2210 004626 060401 ADD R4,R1 ;MAKE IT A DESTINATION ADDRESS
2211 004630 CALL MVMSIM ;MOVE IMAGE FIELD TO CONTEXT
2212 004634 ENDIF
2213 004634 IF ; SUCCESS AND SYSTEM PARAMETERS INCLUDED
2214 004634 FALSE CS
2215 004636 FALSEB CLEAR #PARINC,OPTION(R4)
2216 004646 THEN
2217 004646 012700 000036 MOV #PARLEN,R0 ;MAXIMUM LENGTH OF PARAMETERS
2218 004652 012701 000225 MOV #SYSPAR,R1 ;OFFSET OF SYSTEM PARAMETERS IN CONTEXT
2219 004656 060401 ADD R4,R1 ;MAKE IT A DESTINATION ADDRESS
2220 004660 CALL MVMSIM ;MOVE IMAGE FIELD TO CONTEXT
2221 004664 ENDIF
2222 004664 IF ; SUCCESS AND MESSAGE NOT USED UP
2223 004664 FALSE CS
2224 004666 FALSE EQ R2,R3
2225 004672 THEN
2226 004672 012700 177776 MOV #NE$FOR,R0 ;MESSAGE FORMAT ERROR
2227 004676 000261 SEC ;FAIL
2228 004700 ENDIF
2229 004700 ENDIF
2230 004700 IF ; FAILURE
2231 004700 FALSE CC
2232 004702 THEN
2233 004702 CALL LDABRT ;BLOW IT UP
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 35-2
LDPARS
2234 004706 ENDIF
2235 004706 006046 ROR -(SP) ;SAVE C-BIT
2236 004710 CALL LDFMES ;FREE THE MESSAGE BUFFER
2237 004714 006126 ROL (SP)+ ;RESTORE THE C-BIT
2238 004716 RESSTK <R3> ;RESTORE REGISTERS
2239 004720 ENDPROC
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 36
LDPPRQ
2241 .SBTTL LDPPRQ
2242 ;
2243 ;======================================================================;
2244 ;++
2245 ; +-------------------------------------------------+
2246 ; I I
2247 ; I L D P P R Q I
2248 ; I - - - - - - I
2249 ; I I
2250 ; +-------------------------------------------------+
2251 ;
2252 ; FUNCTION:
2253 ;
2254 ; LOAD MODULE TO PARSE A PROGRAM REQUEST FROM A NICE MESSAGE
2255 ;
2256 ; INPUT:
2257 ;
2258 ; R4 - ADDRESS OF CONTEXT BLOCK
2259 ; R2 - CURRENT ADDRESS IN MESSAGE
2260 ; R3 - ADDRESS OF END OF MESSAGE
2261 ;
2262 ; OUTPUT:
2263 ;
2264 ; C-BIT - CLEAR IF SUCCESSFUL, SET IF NOT
2265 ; R0 - IF FAILURE, NICE ERROR RETURN CODE
2266 ; R2 - CURRENT ADDRESS IN MESSAGE
2267 ; @R4 - UPDATED CONTEXT
2268 ; BOODEV - BOOT DEVICE TYPE
2269 ; CPU - CPU TYPE
2270 ; REQPRO - REQUESTED PROGRAM TYPE
2271 ; SOFTID - SOFTWARE ID
2272 ;
2273 ; REQUIREMENTS:
2274 ;
2275 ; LOAD SYMBOLS:
2276 ;
2277 ; BOODEV - OFFSET OF BOOT DEVICE TYPE IN CONTEXT
2278 ; CPU - OFFSET OF CPU TYPE IN CONTEXT
2279 ; REQPRO - OFFSET OF REQUESTED PROGRAM TYPE IN CONTEXT
2280 ; SIDLEN - MAXIMUM LENGTH OF SOFTWARE ID
2281 ; SOFTID - OFFSET OF SOFTWARE ID IN CONTEXT
2282 ;
2283 ;--
2284 ;======================================================================;
2285 ;
2286 ;
2287 ; EXTERNAL MACROS
2288 ;
2289 .MCALL LDDF
2290 ;
2291 ; DEFINE EXTERNAL SYMBOLS
2292 ;
2293 004722 LDDF ;LOAD SYMBOLS
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 37
LDPPRQ
2295 ;
2296 ; LOCAL PROCEDURE BODY
2297 ;
2298 004722 PROCLC LDPPRQ
2299 004722 CALL GTMSBY ;GET BOOT DEVICE TYPE
2300 004726 IF ; SUCCESS
2301 004726 FALSE CS
2302 004730 THEN
2303 004730 110064 000107 MOVB R0,BOODEV(R4) ;PUT BOOT DEVICE IN CONTEXT
2304 004734 CALL GTMSBY ;GET TARGET CPU TYPE
2305 004740 IF ; SUCCESS
2306 004740 FALSE CS
2307 004742 THEN
2308 004742 110064 000110 MOVB R0,CPU(R4) ;PUT TARGET CPU TYPE IN CONTEXT
2309 004746 CALL GTMSBY ;GET REQUESTED PROGRAM TYPE
2310 004752 IF ; SUCCESS
2311 004752 FALSE CS
2312 004754 THEN
2313 004754 110064 000111 MOVB R0,REQPRO(R4) ;PUT REQUESTED PROGRAM TYPE IN CONTEXT
2314 004760 012700 000020 MOV #SIDLEN,R0 ;MAXIMUM LENGTH OF SOFTWARE ID
2315 004764 012701 000112 MOV #SOFTID,R1 ;OFFSET OF SOFTWARE ID IN CONTEXT
2316 004770 060401 ADD R4,R1 ;MAKE IT A DESTINATION ADDRESS
2317 004772 CALL MVMSIM ;MOVE IMAGE FIELD TO CONTEXT
2318 004776 ENDIF
2319 004776 ENDIF
2320 004776 ENDIF
2321 004776 ENDPROC
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 38
LDPRFC
2323 .SBTTL LDPRFC
2324 ;
2325 ;======================================================================;
2326 ;++
2327 ; +-------------------------------------------------+
2328 ; I I
2329 ; I L D P R F C I
2330 ; I - - - - - - I
2331 ; I I
2332 ; +-------------------------------------------------+
2333 ;
2334 ; FUNCTION:
2335 ;
2336 ; LOAD MODULE TO DO SINGLE LOAD PROCESSING ACCORDING TO FUNCTION CODE
2337 ;
2338 ; INPUT:
2339 ;
2340 ; R4 - ADDRESS OF CONTEXT BLOCK
2341 ; BLKCNT - NUMBER OF BLOCKS LEFT IN FILE
2342 ; FINCNT - NUMBER OF BYTES IN LAST BLOCK
2343 ; FLAGS - PROCESSING FLAGS
2344 ; TRACNT - TRANSMITS-IN-PROGRESS COUNT
2345 ; R5 - ADDRESS OF CONTROL BLOCK
2346 ; C.ADDR - ADDRESS OF MESSAGE OR BLOCK BUFFER
2347 ; C.FUNC - FUNCTION JUST PERFORMED
2348 ; C.LEN - LENGTH OF MESSAGE OR BLOCK
2349 ; C.RET - RETURN CODE
2350 ; OTHER INPUTS - AS DESCRIBED FOR SUBMODULES
2351 ;
2352 ; OUTPUT:
2353 ;
2354 ; @R4 - UPDATED CONTEXT
2355 ; BLKCNT - NUMBER OF BLOCKS LEFT IN FILE
2356 ; DATADR - ADDRESS OF DATA TO TRANSMIT
2357 ; DATCNT - BYTE COUNT OF DATA TO TRANSMIT
2358 ; FLAGS - PROCESSING FLAGS
2359 ; PHASE - PROCESSING PHASE
2360 ; SBSTAT - PROCESSING SUBSTATE
2361 ; TRACNT - TRANSMITS-IN-PROGRESS COUNT
2362 ; OTHER OUTPUTS - AS DESCRIBED FOR SUBMODULES
2363 ;
2364 ; REQUIREMENTS:
2365 ;
2366 ; LOAD SYMBOLS:
2367 ;
2368 ; ALLBUF - ALLOCATE BUFFER PENDING FLAG MASK
2369 ; BLKCNT - OFFSET OF FILE BLOCK COUNT IN CONTEXT
2370 ; CLEUP - CLEAN UP PHASE VALUE
2371 ; DATADR - OFFSET OF DATA ADDRESS IN CONTEXT
2372 ; DATCNT - OFFSET OF DATA COUNT IN CONTEXT
2373 ; FINCNT - OFFSET OF FINAL BLOCK BYTE COUNT IN CONTEXT
2374 ; FLAGS - OFFSET OF PROCESSING FLAGS IN CONTEXT
2375 ; PHASE - OFFSET OF PHASE IN CONTEXT
2376 ; RCVPND - RECEIVE MESSAGE PENDING FLAG MASK
2377 ; RDBLK - READ BLOCK PENDING FLAG MASK
2378 ; SBSTAT - OFFSET OF SUBSTATE IN CONTEXT
2379 ; TRACNT - OFFSET OF TRANSMITS-IN-PROGRESS COUNT IN CONTEXT
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 38-1
LDPRFC
2380 ;
2381 ; NICE MESSAGE SYMBOLS:
2382 ;
2383 ; NE$FIO - FILE I/O ERROR RETURN CODE
2384 ; NE$NCO - NETWORK COMMUNICATION ERROR RETURN CODE
2385 ;
2386 ; CONTROL BLOCK SYMBOLS:
2387 ;
2388 ; C.ADDR - OFFSET OF ADDRESS FIELD
2389 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
2390 ; C.LEN - OFFSET OF LENGTH FIELD
2391 ; C.RET - OFFSET OF RETURN CODE FIELD
2392 ; C$ALBF - ALLOCATE BUFFER FUNCTION CODE
2393 ; C$RCMA - RECEIVE MESSAGE ASYNCHRONOUS FUNCTION CODE
2394 ; C$RDBK - READ BLOCK FUNCTION CODE
2395 ; C$TRMA - TRANSMIT MESSAGE ASYNCHRONOUS FUNCTION CODE
2396 ; C$TRMS - TRANSMIT MESSAGE FUNCTION CODE
2397 ; CS$ACK - ACKNOWLEDGMENT SUCCESS RETURN
2398 ;
2399 ;--
2400 ;======================================================================;
2401 ;
2402 ;
2403 ; EXTERNAL MACROS
2404 ;
2405 .MCALL CONDF,LDDF,NICDF
2406 ;
2407 ; DEFINE EXTERNAL SYMBOLS
2408 ;
2409 005000 CONDF ;CONTROL BLOCK SYMBOLS
2410 005000 LDDF ;LOAD SYMBOLS
2411 005000 NICDF ;NICE MESSAGE SYMBOLS
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 39
LDPRFC
2413 ;
2414 ; LOCAL PROCEDURE BODY
2415 ;
2416 005000 PROCLC LDPRFC
2417 005000 ONCASE ; FUNCTION CODE
2418 005000 116500 000006 MOVB C.FUNC(R5),R0
2419 005004 CASE ; TRANSMIT MESSAGE ASYNCHRONOUSLY
2420 005004 FALSE NE R0,#C$TRMA
2421 005012 DO
2422 005012 IF ; NOT JUST ACKNOWLEDGE
2423 005012 FALSEB EQ C.RET(R5),#CS$ACK
2424 005022 THEN
2425 005022 105364 000266 DECB TRACNT(R4) ;DECREMENT TRANSMITS-IN-PROGRESS
2426 005026 CALL LDFMES ;FREE THE MESSAGE BUFFER
2427 005032 IF ; TRANSMIT FAIL
2428 005032 FALSEB GT C.RET(R5)
2429 005040 THEN
2430 005040 012700 177755 MOV #NE$NCO,R0 ;NETWORK COMMUNICATION ERROR
2431 005044 CALL LDPABO ;GIVE UP
2432 005050 ENDIF
2433 005050 ENDIF
2434 005050 CASE ; READ BLOCK
2435 005052 FALSE NE R0,#C$RDBK
2436 005060 DO
2437 005060 142764 000010 000265 BICB #RDBLK,FLAGS(R4) ;CLEAR THE READ PENDING FLAG
2438 005066 IF ; SUCCESSFUL READ
2439 005066 FALSEB LT C.RET(R5)
2440 005074 THEN
2441 005074 016564 000014 000014 MOV C.ADDR(R5),DATADR(R4) ;INITIALIZE DATA POINTER
2442 005102 005364 000006 DEC BLKCNT(R4) ;DECREMENT NUMBER OF BLOCKS LEFT
2443 005106 IF ; LAST BLOCK
2444 005106 FALSE GT
2445 005110 THEN
2446 005110 016464 000010 000016 MOV FINCNT(R4),DATCNT(R4) ;SET LENGTH TO FINAL BYTE COUNT
2447 005116 ELSE
2448 005120 016564 000012 000016 MOV C.LEN(R5),DATCNT(R4) ;SET LENGTH TO LENGTH READ
2449 005126 ENDIF
2450 005126 ELSE
2451 005130 012700 177756 MOV #NE$FIO,R0 ;FILE I/O ERROR
2452 005134 CALL LDPABO ;BAG IT
2453 005140 ENDIF
2454 005140 CASE ; ALLOCATE BUFFER
2455 005142 FALSE NE R0,#C$ALBF
2456 005150 DO
2457 005150 142764 000004 000265 BICB #ALLBUF,FLAGS(R4) ;CLEAR ALLOCATE PENDING FLAG
2458 005156 CALL LDFMES ;PUT BUFFER IN THE POOL
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 40
LDPRFC
2460 005162 CASE ; RECEIVE MESSAGE
2461 005164 FALSE NE R0,#C$RCMA
2462 005172 DO
2463 005172 142764 000001 000265 BICB #RCVPND,FLAGS(R4) ;CLEAR RECEIVE PENDING FLAG
2464 005200 IF ; SUCCESSFUL RECEIVE
2465 005200 FALSEB LT C.RET(R5)
2466 005206 THEN
2467 005206 CALL LDPRRC ;PROCESS RECEIVED MESSAGE
2468 005212 ELSE
2469 005214 012700 177755 MOV #NE$NCO,R0 ;NETWORK COMMUNICATIONS ERROR
2470 005220 ENDIF
2471 005220 IF ; COMPLETION CODE SET
2472 005220 FALSE CLEAR R0
2473 005224 THEN
2474 005224 CALL LDPABO ;DO NO MORE
2475 005230 CALL LDFMES ;FREE THE MESSAGE BUFFER
2476 005234 ENDIF
2477 005234 CASE ; TRANSMIT MESSAGE SYNCHRONOUSLY
2478 005236 FALSEB NE R0,#C$TRMS
2479 005244 DO
2480 005244 IF ; SUCCESS
2481 005244 FALSEB LT C.RET(R5)
2482 005252 THEN
2483 005252 112764 000004 000264 MOVB #CLEUP,PHASE(R4) ;GO ON TO NEXT LOAD
2484 005260 105064 000103 CLRB SBSTAT(R4) ;WITH INITIAL SUBSTATE
2485 005264 005000 CLR R0 ;AND NO ERROR
2486 005266 ELSE
2487 005270 012700 177755 MOV #NE$NCO,R0 ;NETWORK COMMUNICATIONS ERROR
2488 005274 CALL LDPABO ;NO MORE RUN
2489 005300 ENDIF
2490 005300 CALL LDFMES ;FREE THE MESSAGE BUFFER
2491 005304 ENDCASE
2492 005304 ENDPROC
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 41
LDPROC
2494 .SBTTL LDPROC
2495 ;
2496 ;======================================================================;
2497 ;++
2498 ; +-------------------------------------------------+
2499 ; I I
2500 ; I L D P R O C I
2501 ; I - - - - - - I
2502 ; I I
2503 ; +-------------------------------------------------+
2504 ;
2505 ; FUNCTION:
2506 ;
2507 ; LOAD MODULE TO PROCESS A SINGLE LOAD
2508 ;
2509 ; INPUT:
2510 ;
2511 ; R4 - ADDRESS OF CONTEXT BLOCK
2512 ; PHASE - PROCESSING PHASE
2513 ; SBSTAT - PROCESSING SUBSTATE
2514 ; OTHER INPUTS - AS DESCRIBED FOR SUBMODULES
2515 ;
2516 ; OUTPUT:
2517 ;
2518 ; @R4 - UPDATED CONTEXT
2519 ; PHASE - PROCESSING PHASE
2520 ; OTHER OUTPUTS - AS DESCRIBED FOR SUBMODULES
2521 ;
2522 ; REQUIREMENTS:
2523 ;
2524 ; LOAD SYMBOLS:
2525 ;
2526 ; CLEUP - CLEAN UP PHASE VALUE
2527 ; FILINI - FILE INITIALIZE PHASE VALUE
2528 ; LNKINI - LINK INITIALIZE PHASE VALUE
2529 ; PHASE - OFFSET OF PHASE IN CONTEXT
2530 ; SBSTAT - OFFSET OF SUBSTATE IN CONTEXT
2531 ; TRAIMA - TRANSMIT IMAGE PHASE VALUE
2532 ;
2533 ;--
2534 ;======================================================================;
2535 ;
2536 ;
2537 ; EXTERNAL MACROS
2538 ;
2539 .MCALL LDDF
2540 ;
2541 ; DEFINE EXTERNAL SYMBOLS
2542 ;
2543 005306 LDDF ;LOAD SYMBOLS
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 42
LDPROC
2545 ;
2546 ; LOCAL PROCEDURE BODY
2547 ;
2548 005306 PROCLC LDPROC
2549 005306 IF ; SUBSTATE = 0
2550 005306 FALSEB SET SBSTAT(R4)
2551 005314 THEN
2552 005314 112764 000001 000264 MOVB #FILINI,PHASE(R4) ;SET FILE INITIALIZATION PHASE
2553 005322 ENDIF
2554 005322 IF ; PHASE = FILE INITIALIZATION
2555 005322 FALSEB NE PHASE(R4),#FILINI
2556 005332 THEN
2557 005332 CALL LDFLIN ;INITIALIZE FILE
2558 005336 ENDIF
2559 005336 IF ; PHASE = LINK INITIALIZATION
2560 005336 FALSEB NE PHASE(R4),#LNKINI
2561 005346 CALL LDLKIN ;INITIALIZE LINK
2562 005352 ENDIF
2563 005352 IF ; PHASE = TRANSMIT IMAGE
2564 005352 FALSEB NE PHASE(R4),#TRAIMA
2565 005362 CALL LDTRIM ;TRANSMIT IMAGE
2566 005366 ENDIF
2567 005366 IF ; PHASE = CLEANUP
2568 005366 FALSEB NE PHASE(R4),#CLEUP
2569 005376 THEN
2570 005376 CALL LDCLUP ;CLEAN UP
2571 005402 ENDIF
2572 005402 ENDPROC
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 43
LDPRRC
2574 .SBTTL LDPRRC
2575 ;
2576 ;======================================================================;
2577 ;++
2578 ; +-------------------------------------------------+
2579 ; I I
2580 ; I L D P R R C I
2581 ; I - - - - - - I
2582 ; I I
2583 ; +-------------------------------------------------+
2584 ;
2585 ; FUNCTION:
2586 ;
2587 ; LOAD MODULE TO PROCESS A RECEIVED MESSAGE FOR A SINGLE LOAD
2588 ;
2589 ; INPUT:
2590 ;
2591 ; R4 - ADDRESS OF CONTEXT BLOCK
2592 ; FLAGS - PROCESSING FLAGS
2593 ; REQPRO - REQUESTED PROGRAM TYPE
2594 ; R5 - ADDRESS OF CONTROL BLOCK
2595 ; C.ADDR - ADDRESS OF MESSAGE
2596 ; C.LEN - LENGTH OF MESSAGE
2597 ; OTHER INPUTS - AS DESCRIBED FOR SUBMODULES
2598 ;
2599 ; OUTPUT:
2600 ;
2601 ; @R4 - UPDATED CONTEXT
2602 ; SBSTAT - PROCESSING SUBSTATE
2603 ; @R5 - UPDATED CONTROL BLOCK
2604 ; @C.ADDR - MESSAGE TO TRANSMIT
2605 ; C.FUNC - FUNCTION TO PERFORM
2606 ; C.LEN - LENGTH OF MESSAGE
2607 ;
2608 ; REQUIREMENTS:
2609 ;
2610 ; LOAD SYMBOLS:
2611 ;
2612 ; FLAGS - OFFSET OF PROCESSING FLAGS IN CONTEXT
2613 ; LOACOM - LOAD COMPLETE FLAG MASK
2614 ; OPSYS - OPERATING SYSTEM TYPE CODE
2615 ; REQPRO - OFFSET OF REQUESTED PROGRAM TYPE IN CONTEXT
2616 ; SBSTAT - OFFSET OF SUBSTATE IN CONTEXT
2617 ; WAIT - WAIT SUBSTATE VALUE
2618 ;
2619 ; NICE MESSAGE SYMBOLS:
2620 ;
2621 ; DM$END - END OF DIALOG DIALOG MESSAGE TYPE VALUE
2622 ; NE$ORD - MESSAGE ORDERING ERROR RETURN CODE
2623 ; NS$SUC - SUCCESS RETURN CODE
2624 ;
2625 ; CONTROL BLOCK SYMBOLS:
2626 ;
2627 ; C.ADDR - OFFSET OF ADDRESS FIELD
2628 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
2629 ; C.LEN - OFFSET OF LENGTH FIELD
2630 ; C$TRMS - TRANSMIT MESSAGE FUNCTION CODE
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 43-1
LDPRRC
2631 ;
2632 ;--
2633 ;======================================================================;
2634 ;
2635 ;
2636 ; EXTERNAL MACROS
2637 ;
2638 .MCALL CONDF,LDDF,NICDF,SAVSTK,RESSTK
2639 ;
2640 ; DEFINE EXTERNAL SYMBOLS
2641 ;
2642 005404 CONDF ;CONTROL BLOCK SYMBOLS
2643 005404 LDDF ;LOAD SYMBOLS
2644 005404 NICDF ;NICE MESSAGE SYMBOLS
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 44
LDPRRC
2646 ;
2647 ; LOCAL PROCEDURE BODY
2648 ;
2649 005404 PROCLC LDPRRC
2650 005404 SAVSTK <R3> ;SAVE REGISTER
2651 005406 016502 000014 MOV C.ADDR(R5),R2 ;SET POINTER TO BEGINNING OF MESSAGE
2652 005412 010203 MOV R2,R3 ;SET POINTER TO END OF MESSAGE
2653 005414 066503 000012 ADD C.LEN(R5),R3
2654 005420 CALL GTMSBY ;GET A BYTE FROM THE MESSAGE
2655 005424 IF ; SUCCESS
2656 005424 FALSE CS
2657 005426 THEN
2658 005426 IF ; END-OF-DIALOG
2659 005426 FALSE SET R0
2660 005432 THEN
2661 005432 CALL GTMSBY ;GET ANOTHER BYTE
2662 005436 IF ; SUCCESS
2663 005436 FALSE CS
2664 005440 THEN
2665 005440 IF ; SUCCESS RETURN CODE
2666 005440 FALSE LT R0
2667 005444 THEN
2668 005444 IF ; LOAD COMPLETE
2669 005444 FALSEB CLEAR #LOACOM,FLAGS(R4)
2670 005454 THEN
2671 005454 IF ; OPERATING SYSTEM LOADED
2672 005454 FALSEB NE REQPRO(R4),#OPSYS
2673 005464 THEN
2674 005464 012700 000001 MOV #NS$SUC,R0 ;SUCCESSFUL DOWN-LINE LOAD
2675 005470 ELSE
2676 005472 CALL LDPPRQ ;PARSE PROGRAM REQUEST TO CONTEXT
2677 005476 IF ; SUCCESS
2678 005476 FALSE CS
2679 005500 THEN
2680 005500 112775 000000 000014 MOVB #DM$END,@C.ADDR(R5) ;BUILD AN END-OF-DIALOG MESSAGE
2681 005506 012765 000001 000012 MOV #1,C.LEN(R5) ;LENGTH OF 1 BYTE
2682 005514 112765 000053 000006 MOVB #C$TRMS,C.FUNC(R5) ;TRANSMIT MESSAGE
2683 005522 112764 177765 000103 MOVB #-WAIT,SBSTAT(R4) ;WAIT FOR COMPLETION
2684 005530 ENDIF
2685 005530 ENDIF
2686 005530 ELSE
2687 005532 012700 177774 MOV #NE$ORD,R0 ;MESSAGE ORDERING ERROR
2688 005536 ENDIF
2689 005536 ENDIF
2690 005536 ENDIF
2691 005536 ELSE
2692 005540 012700 177774 MOV #NE$ORD,R0 ;MESSAGE ORDERING ERROR
2693 005544 ENDIF
2694 005544 ENDIF
2695 005544 RESSTK <R3> ;RESTORE REGISTER
2696 005546 ENDPROC
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 45
LDPRSG
2698 .SBTTL LDPRSG
2699 ;
2700 ;======================================================================;
2701 ;++
2702 ; +-------------------------------------------------+
2703 ; I I
2704 ; I L D P R S G I
2705 ; I - - - - - - I
2706 ; I I
2707 ; +-------------------------------------------------+
2708 ;
2709 ; FUNCTION:
2710 ;
2711 ; LOAD MODULE TO PROCESS SEGMENTS INTO NICE MESSAGES
2712 ;
2713 ; INPUT:
2714 ;
2715 ; R4 - ADDRESS OF CONTEXT BLOCK
2716 ; BLKADR - ADDRESS OF DISK BLOCK BUFFER
2717 ; BLKCNT - NUMBER OF BLOCKS LEFT IN FILE
2718 ; CPU - CPU TYPE
2719 ; DATADR - ADDRESS OF IMAGE DATA
2720 ; DATCNT - IMAGE DATA COUNT
2721 ; FLAGS - PROCESSING FLAGS
2722 ; LSLKNM - LINE SERVICE LINK NUMBER
2723 ; LUN - FILE LOGICAL UNIT NUMBER
2724 ; REQPRO - REQUESTED PROGRAM TYPE
2725 ; SBSTAT - PROCESSING SUBSTATE
2726 ; SYSPAR - SYSTEM PARAMETERS
2727 ; TRAADR - TRANSFER ADDRESS
2728 ; TRACNT - TRANSMITS-IN-PROGRESS COUNT
2729 ; R5 - ADDRESS OF CONTROL BLOCK
2730 ; C.ADDR - ON ALLOCATE BUFFER COMPLETION, BUFFER ADDRESS
2731 ; OTHER INPUTS - AS DESCRIBED FOR SUBMODULES
2732 ;
2733 ; OUTPUT:
2734 ;
2735 ; @R4 - UPDATED CONTEXT
2736 ; DATADR - ADDRESS OF IMAGE DATA
2737 ; DATCNT - IMAGE DATA COUNT
2738 ; FLAGS - PROCESSING FLAGS
2739 ; SBSTAT - PROCESSING SUBSTATE
2740 ; TRACNT - TRANSMITS-IN-PROGRESS COUNT
2741 ; @R5 - UPDATED CONTROL BLOCK
2742 ; C.ADDR - ON READ BLOCK REQUEST, ADDRESS OF BUFFER; ON TRANSMIT
2743 ; MESSAGE REQUEST, MESSAGE ADDRESS
2744 ; C.FUNC - FUNCTION TO PERFORM
2745 ; C.LEN - ON TRANSMIT MESSAGE REQUEST, LENGTH OF MESSAGE
2746 ; C.LKNM - ON TRANSMIT MESSAGE REQUEST, LINK NUMBER
2747 ; C.LUN - ON READ BLOCK REQUEST, LOGICAL UNIT NUMBER
2748 ; OTHER OUTPUTS - AS DESCRIBED FOR SUBMODULES
2749 ;
2750 ; REQUIREMENTS:
2751 ;
2752 ; LOAD SYMBOLS:
2753 ;
2754 ; ALBF - ALLOCATE BUFFER SUBSTATE VALUE
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 45-1
LDPRSG
2755 ; ALLBUF - ALLOCATE BUFFER PENDING FLAG MASK
2756 ; BLKADR - OFFSET OF FILE BLOCK BUFFER ADDRESS IN CONTEXT
2757 ; BLKCNT - OFFSET OF FILE BLOCK COUNT IN CONTEXT
2758 ; CPU - OFFSET OF CPU TYPE IN CONTEXT
2759 ; DATADR - OFFSET OF DATA ADDRESS IN CONTEXT
2760 ; DATCNT - OFFSET OF DATA COUNT IN CONTEXT
2761 ; FLAGS - OFFSET OF PROCESSING FLAGS IN CONTEXT
2762 ; IMASEG - LENGTH OF AN IMAGE SEGMENT
2763 ; LOACOM - LOAD COMPLETE FLAG MASK
2764 ; LSLKNM - OFFSET OF LINE SERVICE LINK NUMBER IN CONTEXT
2765 ; LUN - OFFSET OF FILE LOGICAL UNIT NUMBER IN CONTEXT
2766 ; MAXTRA - MAXIMUM NUMBER OF TRANSMITS TO ALLOW PENDING
2767 ; OPSYS - OPERATING SYSTEM PROGRAM TYPE VALUE
2768 ; RDBLK - READ BLOCK PENDING FLAG MASK
2769 ; REQPRO - OFFSET OF REQUESTED PROGRAM TYPE IN CONTEXT
2770 ; SBSTAT - OFFSET OF SUBSTATE IN CONTEXT
2771 ; SYSPAR - OFFSET OF SYSTEM PARAMETERS IN CONTEXT
2772 ; TRAADR - OFFSET OF TRANSFER ADDRESS IN CONTEXT
2773 ; TRACNT - OFFSET OF TRANSMITS-IN-PROGRESS COUNT IN CONTEXT
2774 ;
2775 ; NICE MESSAGE SYMBOLS:
2776 ;
2777 ; DM$MIM - MEMORY IMAGE DIALOG MESSAGE TYPE
2778 ; DM$PXA - PARAMETERS AND TRANSFER ADDRESS DIALOG MESSAGE TYPE
2779 ;
2780 ; CONTROL BLOCK SYMBOLS:
2781 ;
2782 ; C.ADDR - OFFSET OF ADDRESS FIELD
2783 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
2784 ; C.LEN - OFFSET OF LENGTH FIELD
2785 ; C.LKNM - OFFSET OF LINK NUMBER FIELD
2786 ; C.LUN - OFFSET OF LOGICAL UNIT NUMBER FIELD
2787 ; C$RDBK - READ BLOCK FUNCTION CODE
2788 ; C$RLCI - RELEASE CONTROL BLOCK IMMEDIATE FUNCTION CODE
2789 ; C$TRMA - TRANSMIT MESSAGE ASYNCHRONOUS FUNCTION CODE
2790 ;
2791 ;--
2792 ;======================================================================;
2793 ;
2794 ;
2795 ; EXTERNAL MACROS
2796 ;
2797 .MCALL LDDF,CONDF,NICDF
2798 ;
2799 ; DEFINE EXTERNAL SYMBOLS
2800 ;
2801 005550 CONDF ;CONTROL BLOCK SYMBOLS
2802 005550 LDDF ;LOAD SYMBOLS
2803 005550 NICDF ;NICE MESSAGE SYMBOLS
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 46
LDPRSG
2805 ;
2806 ; LOCAL PROCEDURE BODY
2807 ;
2808 005550 PROCLC LDPRSG
2809 005550 IF ; BLOCK EMPTY AND BLOCKS LEFT > 0 AND NO READ PENDING
2810 005550 FALSE GT DATCNT(R4)
2811 005556 FALSE LE BLKCNT(R4)
2812 005564 FALSEB SET #RDBLK,FLAGS(R4)
2813 005574 THEN
2814 005574 016465 000012 000014 MOV BLKADR(R4),C.ADDR(R5) ;PUT BUFFER ADDRESS IN CONTROL BLOCK
2815 005602 116465 000106 000020 MOVB LUN(R4),C.LUN(R5) ;AND LOGICAL UNIT NUMBER
2816 005610 112765 000043 000006 MOVB #C$RDBK,C.FUNC(R5) ;SET FUNCTION CODE TO READ BLOCK
2817 005616 105464 000103 NEGB SBSTAT(R4) ;SOMETHING TO WAIT FOR
2818 005622 152764 000010 000265 BISB #RDBLK,FLAGS(R4) ;SET READ PENDING FLAG
2819 005630 ELSE
2820 005632 IF ; TRANSMIT COUNT < MAXIMUM
2821 005632 FALSEB GE TRACNT(R4),#MAXTRA
2822 005642 THEN
2823 005642 IF ; BLOCK NOT EMPTY OR (BLOCKS LEFT = 0 AND LOAD NOT COMPLETE)
2824 005642 TRUE GT DATCNT(R4)
2825 005650 FALSE NE BLKCNT(R4)
2826 005656 FALSEB SET #LOACOM,FLAGS(R4)
2827 005666 THEN
2828 005666 CALL LDAMES ;ALLOCATE A MESSAGE BUFFER
2829 005672 IF ; SUBSTATE = ALLOCATE BUFFER
2830 005672 FALSEB NE SBSTAT(R4),#ALBF
2831 005702 THEN
2832 005702 016502 000014 MOV C.ADDR(R5),R2 ;GET ADDRESS OF MESSAGE BUFFER
2833 005706 IF ; BLOCK NOT EMPTY
2834 005706 FALSE GT DATCNT(R4)
2835 005714 THEN
2836 005714 152764 000020 000265 BISB #LOACOM,FLAGS(R4) ;SET LOAD COMPLETE
2837 005722 112722 000003 MOVB #DM$PXA,(R2)+ ;SYSTEM PAR'S AND TRANS. ADDR. DIALOG MSG.
2838 005726 IF ; LOADING OPERATING SYSTEM
2839 005726 FALSEB NE REQPRO(R4),#OPSYS
2840 005736 THEN
2841 005736 012700 000225 MOV #SYSPAR,R0 ;OFFSET OF SYSTEM PARAMETERS IN CONTEXT
2842 005742 060400 ADD R4,R0 ;MAKE IT A SOURCE ADDRESS
2843 005744 116401 000225 MOVB SYSPAR(R4),R1 ;GET LENGTH
2844 005750 005201 INC R1 ;ADD ONE FOR COUNT
2845 005752 CALL MOVE ;MOVE PARAMETERS FROM CONTEXT TO MESSAGE
2846 005756 ELSE
2847 005760 105022 CLRB (R2)+ ;NO PARAMETERS
2848 005762 ENDIF
2849 005762 012700 000024 MOV #TRAADR,R0 ;OFFSET OF TRANSFER ADDRESS IN CONTEXT
2850 005766 060400 ADD R4,R0 ;MAKE IT A SOURCE ADDRESS
2851 005770 012701 000004 MOV #4,R1 ;LENGTH OF TRANSFER ADDRESS
2852 005774 CALL MOVE ;MOVE TRANSFER ADDRESS TO MESSAGE
2853 006000 ELSE
2854 006002 112722 000002 MOVB #DM$MIM,(R2)+ ;MEMORY IMAGE DIALOG MESSAGE
2855 006006 116422 000110 MOVB CPU(R4),(R2)+ ;CPU TYPE
2856 006012 016400 000014 MOV DATADR(R4),R0 ;CURRENT ADDRESS IN BLOCK BUFFER
2857 006016 IF ; COUNT REMAINING > SEGMENT SIZE
2858 006016 FALSE LE DATCNT(R4),#IMASEG
2859 006026 THEN
2860 006026 012701 000400 MOV #IMASEG,R1 ;SET SIZE TO FULL SEGMENT
2861 006032 ELSE
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 46-1
LDPRSG
2862 006034 016401 000016 MOV DATCNT(R4),R1 ;SET SIZE TO REMAINING
2863 006040 ENDIF
2864 006040 160164 000016 SUB R1,DATCNT(R4) ;REDUCE REMAINING COUNT
2865 006044 060164 000014 ADD R1,DATADR(R4) ;MOVE POINTER UP
2866 006050 CALL MOVE ;MOVE IMAGE SEGMENT TO MESSAGE
2867 006054 ENDIF
2868 006054 166502 000014 SUB C.ADDR(R5),R2 ;COMPUTE MESSAGE LENGTH
2869 006060 010265 000012 MOV R2,C.LEN(R5) ;AND PUT IN MESSAGE
2870 006064 016465 000004 000020 MOV LSLKNM(R4),C.LKNM(R5) ;PUT LINK NUMBER IN MESSAGE
2871 006072 112765 000145 000006 MOVB #C$TRMA,C.FUNC(R5) ;SET FUNCTION CODE TO TRANSMIT
2872 006100 105264 000266 INCB TRACNT(R4) ;INCREMENT TRANSMIT COUNT
2873 006104 105464 000103 NEGB SBSTAT(R4) ;SOMETHING TO WAIT FOR
2874 006110 ELSE
2875 006112 152764 000004 000265 BISB #ALLBUF,FLAGS(R4) ;MEMORY ALLOCATION PENDING
2876 006120 ENDIF
2877 006120 ENDIF
2878 006120 ENDIF
2879 006120 ENDIF
2880 006120 IF ; SUBSTATE > 0
2881 006120 FALSEB LE SBSTAT(R4)
2882 006126 THEN
2883 006126 112765 000000 000006 MOVB #C$RLCI,C.FUNC(R5) ;GET RID OF THIS CONTROL BLOCK
2884 006134 105464 000103 NEGB SBSTAT(R4) ;WAIT FOR SOMETHING ELSE TO HAPPEN
2885 006140 ENDIF
2886 006140 ENDPROC
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 47
LDTRIM
2888 .SBTTL LDTRIM
2889 ;
2890 ;======================================================================;
2891 ;++
2892 ; +-------------------------------------------------+
2893 ; I I
2894 ; I L D T R I M I
2895 ; I - - - - - - I
2896 ; I I
2897 ; +-------------------------------------------------+
2898 ;
2899 ; FUNCTION:
2900 ;
2901 ; LOAD MODULE TO TRANSMIT A SINGLE PROGRAM IMAGE
2902 ;
2903 ; INPUT:
2904 ;
2905 ; R4 - ADDRESS OF CONTEXT BLOCK
2906 ; DATCNT - NUMBER OF BYTES IN IMAGE DATA BUFFER
2907 ; SBSTAT - PROCESSING SUBSTATE
2908 ; OTHER INPUTS - AS DESCRIBED FOR SUBMODULES
2909 ;
2910 ; OUTPUT:
2911 ;
2912 ; @R4 - UPDATED CONTEXT
2913 ; SBSTAT - PROCESSING SUBSTATE
2914 ; OTHER OUTPUTS - AS DESCRIBED FOR SUBMODULES
2915 ;
2916 ; REQUIREMENTS:
2917 ;
2918 ; LOAD SYMBOLS:
2919 ;
2920 ; DATCNT - OFFSET OF DATA COUNT IN CONTEXT
2921 ; SBSTAT - OFFSET OF SUBSTATE IN CONTEXT
2922 ; WAIT - WAIT SUBSTATE VALUE
2923 ;
2924 ;--
2925 ;======================================================================;
2926 ;
2927 ;
2928 ; EXTERNAL MACROS
2929 ;
2930 .MCALL CONDF,LDDF
2931 ;
2932 ; DEFINE EXTERNAL SYMBOLS
2933 ;
2934 006142 CONDF ;CONTROL BLOCK SYMBOLS
2935 006142 LDDF ;LOAD SYMBOLS
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 48
LDTRIM
2937 ;
2938 ; LOCAL PROCEDURE BODY
2939 ;
2940 006142 PROCLC LDTRIM
2941 006142 IF ; SUBSTATE = 0
2942 006142 FALSEB SET SBSTAT(R4)
2943 006150 THEN
2944 006150 005064 000016 CLR DATCNT(R4) ;INITIALIZE DATA COUNT
2945 006154 112764 000013 000103 MOVB #WAIT,SBSTAT(R4) ;INITIALIZE SUBSTATE
2946 006162 ELSE
2947 006164 CALL LDPRFC ;PROCESS THE CONTROL BLOCK BY FUNCTION CODE
2948 006170 ENDIF
2949 006170 IF ; SUBSTATE > 0
2950 006170 FALSEB LE SBSTAT(R4)
2951 006176 THEN
2952 006176 CALL LDPRSG ;TRY TO PROCESS A SEGMENT
2953 006202 ENDIF
2954 006202 ENDPROC
2955 000001 .END
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 48-1
SYMBOL TABLE
ALBF = 000001 CTXTLN= 000267 C.MODE= 000021 F$ALCB= 000001 F$WRBK= 000000
ALLBUF= 000004 C$ALBF= 000032 C.PRID= 000017 F$CB = 000017 F$WRCL= 000001
A$$CHK= 000000 C$ALCB= 000033 C.PROC= 000007 F$CLCL= 000001 F$WRCM= 000000
A$$CPS= 000000 C$CLCL= 000067 C.PROM= 000016 F$CLCO= 000000 F$WRRC= 000000
A$$TRP= 000000 C$CLCO= 000003 C.PTR = 000000 F$CLFL= 000000 F$ZERO= 000001
BADBIT= 000300 C$CLFL= 000004 C.RET = 000010 F$CLLK= 000006 F$ZRCN= 000001
BEGADR 000020 C$CLLK= 000052 C.SAVE= 000022 F$CLLN= 000002 F$$LVL= 000001
BLCNBK= ****** GX C$CLLN= 000005 C.SERV= 000002 F$DPOS= 000001 F$150 = 000002
BLKADR 000012 C$LEN = 000026 C.TASK= 000016 F$DUMP= 000000 F$300 = 000012
BLKCNT 000006 C$NOPN= 000031 C.TYPE= 000016 F$EVNT= 000001 F$50 = 000002
BLKLEN= 001000 C$NORD= 000032 C.WAIT= 000020 F$EXAM= 000001 F$550 = 000002
BOODEV 000107 C$OPCL= 000066 DATADR 000014 F$EXHO= 000000 GTMSBY= ****** GX
BOOPAS 000155 C$OPCO= 000034 DATCNT 000016 F$GTCM= 000001 G$$TPP= 000000
BOOT = 000003 C$OPIN= 000041 DEFFNB 001760R F$INCM= 000000 G$$TSS= 000000
BPSLEN= 000010 C$OPIR= 000056 DMFLAD= 000030 F$INLU= 000001 G$$TTK= 000000
BPSPRQ= 000010 C$OPLK= 000051 DM$END= 000000 F$IRLU= 000000 IMASEG= 000400
BTPSAD= 000024 C$OPLN= 000045 DM$MIM= 000002 F$LKLU= 000010 INFILE 000166
CE$ACP= 177753 C$OPOR= 000057 DM$PXA= 000003 F$LNLU= 000002 I$$RAR= 000000
CE$ADR= 177776 C$OPOT= 000042 DM$SAD= 000001 F$LNSR= 000001 I$$RDN= 000000
CE$CON= 177770 C$ORD = 000145 D$$BUG= 177514 F$LOAD= 000000 K$$CNT= 177546
CE$DIS= 177771 C$PROC= 000200 D$$ISK= 000000 F$LOGD= 000001 K$$CSR= 177546
CE$EOF= 177767 C$RCBK= 000047 D$$L11= 000001 F$LOOP= 000001 K$$LDC= 000000
CE$FAI= 177774 C$RCEV= 000050 ENTLEN= 000006 F$NTCM= 000000 K$$TPS= 000074
CE$FIL= 177756 C$RCIN= 000062 FDSLEN= 000025 F$OPCL= 000001 LDABRT 000000R
CE$FUN= 177777 C$RCMA= 000146 FILDSC 000030 F$OPCO= 000000 LDAMES 000022R
CE$GEN= 177774 C$RCMS= 000054 FILINC= 000020 F$OPIN= 000000 LDBOOT 000100R
CE$IND= 177757 C$RDBK= 000043 FILINI= 000001 F$OPIR= 000000 LDCLUP 000464R
CE$IO = 177760 C$RDCM= 000035 FILLEN= 000036 F$OPLK= 000005 LDCNFG 001152R
CE$LEN= 177775 C$RDIN= 000040 FINCNT 000010 F$OPLN= 000002 LDDFHO 001514R
CE$LID= 177766 C$RDIS= 000040 FINISH= 000005 F$OPLO= 000000 LDFDB = ****** GX
CE$LST= 177752 C$RDRC= 000060 FLAGS 000265 F$OPOR= 000000 LDFDBE= ****** GX
CE$NOD= 177765 C$RLBF= 000001 FL$BOO= 000001 F$OPOT= 000000 LDFILE 002016R
CE$NSD= 177755 C$RLCB= 000002 FL$DUM= 000001 F$ORLU= 000000 LDFINI 002204R
CE$NST= 177754 C$RLCI= 000000 FL$LOA= 000001 F$OTLU= 000001 LDFLAD= 000014
CE$NWE= 177773 C$STBK= 000055 FL$LOO= 000001 F$RCBK= 000002 LDFLIN 002444R
CE$OBJ= 177750 C$STPR= 000037 FNBLEN= 000036 F$RCEV= 000001 LDFMES 003120R
CE$OPN= 177761 C$STPS= 000037 FR$LCC= 000001 F$RCIN= 000000 LDINIT 003142R
CE$OVR= 177764 C$TRBK= 000046 FR$LCS= 000001 F$RCMA= 000000 LDLINK 003274R
CE$PAR= 177763 C$TRIN= 000063 FR$LNC= 000001 F$RCMS= 000002 LDLKIN 003664R
CE$PRO= 177751 C$TRMA= 000145 FR$LNL= 000001 F$RDBK= 000000 LDLOAD 003472RG
CE$REJ= 177772 C$TRMS= 000053 FR$LNS= 000001 F$RDCM= 000000 LDPABO 004304R
CE$TMO= 177762 C$WRBK= 000044 FR$RMC= 000001 F$RDIN= 000001 LDPARS 004324R
CLEAN = 000014 C$WRCL= 000065 FR$RML= 000001 F$RDIS= 000012 LDPPRQ 004722R
CLEUP = 000004 C$WRCM= 000036 FR$RMS= 000001 F$RDRC= 000000 LDPRAD= 000020
CLFL = 000005 C$WRRC= 000061 FS$HOS= 000001 F$RECO= 000001 LDPRFC 005000R
CLLK = 000006 C$ZRCN= 000064 FS$INT= 000000 F$RLBF= 000001 LDPROC 005306R
CMLKNM 000002 C$$CKP= 000000 FS$LLP= 000001 F$RLCB= 000001 LDPRRC 005404R
CNFFND= ****** GX C$$ORE= 000400 FS$LOF= 000001 F$STBK= 000000 LDPRSG 005550R
CNFMOV= ****** GX C$$RSH= 177564 FS$LOG= 000001 F$STPR= 000001 LDTRIM 006142R
CONFIG= 000001 C.ADDR= 000014 FS$LST= 000001 F$STPS= 000006 LD$ACC= 100000
CPU 000110 C.BKNM= 000014 FS$NET= 000001 F$TEST= 000001 LD$LP = 000000
CS$ACK= 000002 C.CTXT= 000004 FS$NST= 000000 F$TRAC= 000000 LD$REL= 000004
CS$LKE= 000001 C.FUNC= 000006 FS$PAS= 000001 F$TRBK= 000001 LD$RSV= 040000
CS$LNA= 000002 C.LEN = 000012 FT$CNS= 000000 F$TRIG= 000001 LINE 000151
CS$LOG= 000003 C.LINE= 000014 FT$NOD= 000001 F$TRIN= 000000 LINK = 000002
CS$NCH= 000003 C.LKNM= 000020 FT$TSK= 000001 F$TRMA= 000000 LI$KNO= 000000
CS$SUC= 000001 C.LUN = 000020 F$ALBF= 000001 F$TRMS= 000002 LI$STA= 000001
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 48-2
SYMBOL TABLE
LI$STR= 000002 ND$ZLC= 000000 N$TRIG= 000004 RI$RML= 000003 S$$WRG= 000000
LNKINI= 000002 ND$ZLN= 000002 N$ZERO= 000011 RI$RMS= 000005 S$$YSZ= 001600
LOACOM= 000020 ND$ZRM= 000001 N$$USR= 000001 RI$ZLC= 000011 S.FNAM= 000006
LOAD = 000004 NE$CON= 177762 N.DID = 000024 RI$ZLN= 000013 S.FNB = 000036
LOCNOD= ****** GX NE$FIL= 177763 N.DVNM= 000032 RI$ZRM= 000012 S.FNBW= 000017
LSLKNM 000004 NE$FIO= 177756 N.FID = 000000 RLBF = 000007 S.FNTY= 000004
LS$DUM= 000002 NE$FOR= 177776 N.FNAM= 000006 R$LDAT 000026 S.FTYP= 000002
LS$LOA= 000000 NE$FUN= 177777 N.FTYP= 000014 R$LFLG 000024 S.NFEN= 000020
LS$LOO= 000001 NE$LCO= 177766 N.FVER= 000016 R$LHGV 000006 TGNMAD= 000000
LS$TRI= 000004 NE$LID= 177770 N.MLEN= 000454 R$LLDZ 000012 TGNODE 000133
LS$TRQ= 000003 NE$LPR= 177757 N.NEXT= 000022 R$LMXV 000010 TRAADR 000024
LUN 000106 NE$LST= 177767 N.STAT= 000020 R$LMXZ 000014 TRACNT 000266
L$BASG 001000 NE$NCO= 177755 N.UNIT= 000034 R$LNAM 000000 TRAIMA= 000003
L$BBLK 000360 NE$NIC= 177753 OPIN = 000012 R$LOFF 000016 TRIBOO= 000004
L$BDAT 000032 NE$NOD= 177765 OPLK = 000002 R$LSA 000004 TRMS = 000003
L$BEXT 000352 NE$NOR= 177754 OPSYS = 000002 R$LSEG 000022 TS$ACP= 020000
L$BFLG 000030 NE$ORD= 177774 OPTION 000105 R$LSIZ 000034 TS$CHK= 000100
L$BHGV 000012 NE$PAR= 177760 PARINC= 000040 R$LWND 000020 TS$CMP= 000200
L$BHRB 000356 NE$RES= 177761 PARLEN= 000036 R$$DER= 000000 TS$NET= 001000
L$BLDZ 000016 NE$SER= 177764 PARSFN= ****** GX R$$K11= 000001 TS$NHD= 040000
L$BLIB 000040 NE$STA= 177775 PHASE 000264 R$$SND= 000000 TS$NSD= 002000
L$BLUN 000362 NL$BRC= 000001 PT$END= 000000 R$$11M= 000000 TS$PIC= 100000
L$BMXV 000014 NL$BTR= 000002 PT$HOS= 000003 SBSTAT 000103 TS$PMD= 010000
L$BMXZ 000020 NL$RES= 000005 PT$NAM= 000001 SETADR= 000002 TS$PRV= 000400
L$BOFF 000022 NL$RLE= 000004 PT$NUM= 000002 SIDLEN= 000020 TS$RES= 000040
L$BPAR 000004 NL$RTR= 000003 P$DPOS= 000016 SOFTID 000112 TS$SLV= 004000
L$BPRI 000346 NL$TMO= 000006 P$DUMP= 000003 SPRAY = ****** GX T$$KMG= 000000
L$BSA 000010 NL$ZRO= 000000 P$EVNT= 000011 SP$DHO= 000003 T$$MIN= 000000
L$BSEG 000026 NN$CAC= 000011 P$EXAM= 000017 SP$DRP= 000007 V$$CTR= 001000
L$BSGL 000354 NN$CNI= 000013 P$GTCM= 000001 SP$DTP= 000010 WAIT = 000013
L$BTSK 000000 NN$CNR= 000014 P$INCM= 000015 SP$LHO= 000002 X$$DBT= 000000
L$BWND 000024 NN$EXT= 000003 P$LNSR= 000004 SP$LLP= 000011 YES = 000001
L$BXFR 000350 NN$FMT= 000005 P$LOAD= 000002 SP$LNM= 000016 $$CSTA= 000000
L$$ASG= 000000 NN$IZS= 000007 P$LOGD= 000020 SP$LNO= 000015 $$PRST= 000011
L$$DRV= 000000 NN$IZU= 000010 P$LOOP= 000005 SP$LOF= 000012 $$STIX= 000777
L$$P11= 000001 NN$MAC= 000012 P$NTCM= 000014 SP$LST= 000001 $$STNM= 000000
L$$11R= 000000 NN$NKS= 000004 P$RDIN= 000010 SP$NDM= 000014 $$S762= 000011
MAXTRA= 000003 NN$RES= 000006 P$STPR= 000007 SP$NDO= 000013 $$S763= 000015
MOVE = ****** GX NN$UMR= 000002 P$TEST= 000006 SP$NST= 000006 $$S764= 000011
MSBFHD 000000 NN$UMS= 000001 P$TRIG= 000012 SP$RRP= 000004 $$S765= 000014
MVMSBY= ****** GX NN$ZRO= 000000 P$ZERO= 000013 SP$RTP= 000005 $$S766= 000077
MVMSIM= ****** GX NO = 000000 P$$P45= 000000 SRVINC= 000002 $$S767= 000013
M$$CRB= 000124 NODLEN= 000006 RCMA = 000011 STATE 000102 $$S770= 000077
M$$CRX= 000000 NOTNAM= 000001 RCMS = 000004 STBK = 000015 $$S771= 000012
M$$FCS= 000000 NS$SUC= 000001 RCVPND= 000001 ST$DIS= 000006 $$S772= 000077
M$$OVR= 000000 N$DPOS= 000014 RDBK = 000010 ST$ENA= 000005 $$S773= 000011
NAMADR= 000004 N$DUMP= 000003 RDBLK = 000010 ST$LOO= 000003 $$S774= 000011
NAMLEN= 000002 N$EXAM= 000015 REQPRO 000111 ST$MAI= 000004 $$S775= 000010
ND$BAD= 177777 N$LNSR= 000016 RETCOD 000104 ST$OFF= 000001 $$S776= 000000
ND$LCC= 000000 N$LOAD= 000002 RI$LCC= 000001 ST$ON = 000000 $$S777= 000000
ND$LCS= 000001 N$LOGD= 000001 RI$LCS= 000002 ST$SHU= 000002 $$TRNM= 000000
ND$LNC= 000004 N$LOOP= 000005 RI$LNC= 000007 SVLNID= 000010 ...PC1= 000000
ND$LNS= 000005 N$RDIN= 000010 RI$LNL= 000006 SVNMAD= 000004 ...PC2= 001774R
ND$RMC= 000002 N$STPR= 000007 RI$LNS= 000010 SVNODE 000142 ...PC3= 000000
ND$RMS= 000003 N$TEST= 000006 RI$RMC= 000004 SYSPAR 000225 ...TPC= 000036
. ABS. 001000 000
LDLOAD MACRO M1110 13-OCT-79 11:45 PAGE 48-3
SYMBOL TABLE
006204 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 13507 WORDS ( 53 PAGES)
DYNAMIC MEMORY: 14284 WORDS ( 54 PAGES)
ELAPSED TIME: 00:07:45
LDLOAD,[135,30]LDLOAD/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,LDLOAD
LDLOAD CREATED BY MACRO ON 13-OCT-79 AT 11:49 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
ALBF = 000001 6-183 6-187 8-299 19-1138 21-1304 21-1307 21-1315 27-1628 31-1898
46-2830
ALLBUF = 000004 11-492 11-573 39-2457 46-2875
BADBIT = 000300 35-2134
BEGADR 000020 *22-1352 32-1951
BLCNBK = ****** GX 27-1632
BLKADR 000012 *11-521 11-559 11-561 21-1300 21-1306 *21-1317 46-2814
BLKCNT 000006 *22-1336 *22-1348 *39-2442 46-2811 46-2825
BLKLEN = 001000 21-1302
BOODEV 000107 17-992 *37-2303
BOOPAS 000155 8-309 8-311 13-724 35-2197
BOOT = 000003 27-1643 29-1773
BPSLEN = 000010 35-2196
BPSPRQ = 000010 13-680 13-718 35-2191
BTPSAD = 000024 13-723
CE$NOD = 177765 27-1649
CE$OBJ = 177750 27-1657
CE$REJ = 177772 27-1653
CLEAN = 000014 11-546 11-556 11-563
CLEUP = 000004 33-2030 40-2483 42-2568
CLLK = 000006 19-1126 19-1128 19-1132
CMLKNM 000002 19-1142 *25-1527
CNFFND = ****** GX 13-696
CNFMOV = ****** GX 13-705 13-725 13-738 13-747
CONFIG = 000001 25-1534 29-1763
CPU 000110 *37-2308 46-2855
CS$ACK = 000002 11-503 39-2423
CTXTLN = 000267 25-1518 25-1525
C$ALBF = 000032 6-178 11-490 21-1303 25-1519 39-2455
C$CLFL = 000004 11-514 11-545
C$CLLK = 000052 11-524 11-555 19-1125
C$OPIN = 000041 21-1285
C$OPLK = 000051 27-1633
C$PROC = 000200 25-1514 29-1753
C$RCMA = 000146 11-509 31-1929 40-2461
C$RCMS = 000054 9-328 31-1925
C$RDBK = 000043 11-495 21-1319 39-2435 46-2816
C$RLBF = 000001 11-519 11-562 19-1150 29-1748
C$RLCI = 000000 11-535 11-576 46-2883
C$STBK = 000055 22-1356
C$TRMA = 000145 11-499 39-2420 46-2871
C$TRMS = 000053 8-317 11-500 19-1143 31-1912 32-1957 40-2478 44-2682
C.ADDR = 000014 *6-185 6-186 8-301 8-314 9-343 *11-561 19-1140 *19-1159 *19-1163
*21-1283 *21-1284 *21-1306 21-1317 22-1328 23-1433 23-1434 *23-1435 25-1517
25-1521 *25-1529 31-1900 31-1909 32-1947 32-1949 32-1955 32-1961 35-2125
39-2441 44-2651 44-2680 *46-2814 46-2832 46-2868
C.BKNM = 000014 *22-1354 *22-1355
C.CTXT = 000004 19-1163 *19-1164 *25-1522 29-1743 *29-1754
C.FUNC = 000006 *6-178 *8-317 *9-328 11-488 *11-535 *11-545 *11-555 *11-562 *11-576
*19-1125 *19-1143 *19-1150 *21-1285 *21-1303 *21-1319 *22-1356 25-1514 *25-1519
*27-1633 29-1748 *29-1753 *31-1912 *31-1925 *31-1929 *32-1957 39-2418 *44-2682
*46-2816 *46-2871 *46-2883
LDLOAD CREATED BY MACRO ON 13-OCT-79 AT 11:49 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
C.LEN = 000012 *6-179 *8-315 *9-327 9-345 *19-1141 *21-1302 25-1516 *25-1518 *25-1528
*31-1910 *31-1921 *32-1956 35-2127 39-2448 44-2653 *44-2681 *46-2869
C.LKNM = 000020 *8-316 *11-554 *19-1124 *19-1142 25-1527 27-1642 *31-1911 *46-2870
C.LUN = 000020 *11-544 21-1298 *21-1318 *46-2815
C.PROC = 000007 *29-1752
C.RET = 000010 9-325 9-340 11-503 21-1296 22-1327 22-1367 27-1640 27-1647 31-1919
32-1944 39-2423 39-2428 39-2439 40-2465 40-2481
C.SAVE = 000022 *25-1516 *25-1517 25-1528 25-1529
DATADR 000014 *39-2441 46-2856 *46-2865
DATCNT 000016 *39-2446 *39-2448 46-2810 46-2824 46-2834 46-2858 46-2862 *46-2864 *48-2944
DEFFNB 001760 R #16-971 16-972 17-1021
DM$END = 000000 44-2680
DM$MIM = 000002 46-2854
DM$PXA = 000003 46-2837
DM$SAD = 000001 32-1950
ENTLEN = 000006 #16-965 17-1000
FILDSC 000030 17-1015 17-1023 21-1283
FILINC = 000020 13-681 13-734 35-2206
FILINI = 000001 42-2552 42-2555
FILLEN = 000036 35-2208
FINCNT 000010 *22-1344 *22-1350 39-2446
FINISH = 000005 5-106 29-1784
FLAGS 000265 *11-492 *11-497 *11-511 11-573 *11-585 31-1923 *31-1928 *31-1933 *32-1959
*32-1972 *39-2437 *39-2457 *40-2463 44-2669 46-2812 *46-2818 46-2826 *46-2836
*46-2875
FNBLEN = 000036 #16-972 17-1022
F$TRAC = 000000 5-103 5-103 5-108 5-108 6-177 6-177 6-189 6-189 8-286
8-286 9-383 9-383 11-483 11-483 11-591 11-591 13-676 13-676
13-766 13-766 15-828 15-828 15-902 15-902 17-977 17-977 17-1030
17-1030 19-1117 19-1117 19-1167 19-1167 21-1275 21-1275 22-1376 22-1376
23-1432 23-1432 23-1436 23-1436 25-1512 25-1512 25-1538 25-1538 27-1621
27-1621 27-1667 27-1667 29-1742 29-1742 29-1790 29-1790 31-1891 31-1891
32-1976 32-1976 33-2028 33-2028 33-2032 33-2032 35-2123 35-2123 35-2239
35-2239 37-2298 37-2298 37-2321 37-2321 39-2416 39-2416 40-2492 40-2492
42-2548 42-2548 42-2572 42-2572 44-2649 44-2649 44-2696 44-2696 46-2808
46-2808 46-2886 46-2886 48-2940 48-2940 48-2954 48-2954
GTMSBY = ****** GX 9-346 35-2129 35-2171 37-2299 37-2304 37-2309 44-2654 44-2661
IMASEG = 000400 46-2858 46-2860
INFILE 000166 13-737 17-986 35-2209
I$$AS = ****** 5-103 6-177 8-286 11-483 13-676 15-828 17-977 19-1117 21-1275
23-1432 25-1512 27-1621 29-1742 31-1891 33-2028 35-2123 37-2298 39-2416
42-2548 44-2649 46-2808 48-2940
LDABRT 000000 R #5-103 9-333 9-374 9-379 11-583 13-764 27-1663 35-2233
LDAMES 000022 R #6-177 8-293 19-1135 27-1625 31-1895 46-2828
LDBOOT 000100 R #8-286 29-1775
LDCLUP 000464 R #11-483 42-2570
LDCNFG 001152 R #13-676 29-1765
LDDFHO 001514 R 13-756 #15-828
LDFDB = ****** GX 17-995
LDFDBE = ****** GX 17-997 17-1003
LDFILE 002016 R #17-977 21-1279
LDFINI 002204 R #19-1117 29-1786
LDLOAD CREATED BY MACRO ON 13-OCT-79 AT 11:49 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
LDFLAD = 000014 13-736
LDFLIN 002444 R #21-1275 42-2557
LDFMES 003120 R 9-331 9-381 11-493 11-506 11-512 19-1149 #23-1432 27-1665 31-1934
35-2236 39-2426 39-2458 40-2475 40-2490
LDINIT 003142 R #25-1512 29-1750
LDLINK 003274 R #27-1621 29-1770
LDLKIN 003664 R #31-1891 42-2561
LDLOAD 003472 RG #29-1742
LDPABO 004304 R 21-1289 21-1311 22-1360 22-1373 31-1936 32-1962 32-1966 #33-2028 39-2431
39-2452 40-2474 40-2488
LDPARS 004324 R 25-1530 #35-2123
LDPPRQ 004722 R 9-353 35-2201 #37-2298 44-2676
LDPRAD = 000020 13-745
LDPRFC 005000 R #39-2416 48-2947
LDPROC 005306 R 29-1781 #42-2548
LDPRRC 005404 R 40-2467 #44-2649
LDPRSG 005550 R #46-2808 48-2952
LDTRIM 006142 R 42-2565 #48-2940
LINE 000151 8-305 13-691 13-709 31-1904 35-2182
LINK = 000002 13-761 29-1768
LI$STA = 000001 8-304 31-1903 35-2176
LNKINI = 000002 22-1369 42-2560
LOACOM = 000020 11-585 44-2669 46-2826 46-2836
LOAD = 000004 8-295 9-360 29-1778
LOCNOD = ****** GX 15-876
LSLKNM 000004 8-316 *11-526 11-552 11-554 19-1122 19-1124 *19-1134 *27-1642 31-1911
46-2870
LS$LOA = 000000 31-1902
LS$TRQ = 000003 8-303
LUN 000106 *11-516 11-542 11-544 *21-1298 21-1318 46-2815
L$BBLK 000360 22-1354
L$BFLG 000030 22-1329
L$BLDZ 000016 22-1331
L$BSA 000010 22-1352
L$BXFR 000350 22-1353
MAXTRA = 000003 46-2821
MOVE = ****** GX 8-308 8-313 13-711 17-1025 31-1907 32-1954 46-2845 46-2852 46-2866
MSBFHD 000000 6-181 6-185 *6-186 19-1157 19-1159 19-1160 *19-1160 23-1433 *23-1434
MVMSBY = ****** GX 35-2184
MVMSIM = ****** GX 35-2150 35-2167 35-2199 35-2211 35-2220 37-2317
NAMADR = 000004 #16-965 17-1008
NAMLEN = 000002 #16-965 17-1007
NE$CON = 177762 15-897
NE$FIL = 177763 21-1288 21-1310 22-1359 22-1372
NE$FIO = 177756 39-2451
NE$FOR = 177776 9-363 35-2226
NE$FUN = 177777 13-728 35-2136 35-2155
NE$NCO = 177755 9-332 9-378 27-1661 31-1935 32-1965 39-2430 40-2469 40-2487
NE$NIC = 177753 27-1659
NE$ORD = 177774 44-2687 44-2692
NE$PAR = 177760 15-895 35-2178
NE$RES = 177761 15-869 27-1655
LDLOAD CREATED BY MACRO ON 13-OCT-79 AT 11:49 PAGE 4
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
NE$SER = 177764 27-1651
NODLEN = 000006 15-865 15-875 35-2147 35-2164
NOTNAM = 000001 13-685 35-2145
NS$SUC = 000001 44-2674
N$LNSR = 000016 8-302 31-1901
N.FNAM = 000006 16-971
N.FTYP = 000014 16-971
N.MLEN = 000454 6-179 9-327 31-1921
OPIN = 000012 21-1286 21-1293
OPLK = 000002 27-1634 27-1637
OPSYS = 000002 17-984 44-2672 46-2839
OPTION 000105 8-291 13-677 13-685 13-701 13-718 13-721 13-734 13-743 15-893
*35-2139 35-2145 35-2153 35-2162 35-2191 35-2194 35-2206 35-2215
PARINC = 000040 13-682 13-743 15-893 35-2215
PARLEN = 000036 15-867 35-2217
PARSFN = ****** GX 17-1017
PHASE 000264 *22-1369 *32-1973 *33-2030 *40-2483 *42-2552 42-2555 42-2560 42-2564 42-2568
PT$HOS = 000003 15-845 15-872 15-888
P$GTCM = 000001 29-1752
RCMA = 000011 31-1930 32-1970
RCMS = 000004 9-329 9-337 31-1926 32-1941
RCVPND = 000001 11-511 11-573 32-1972 40-2463
RDBK = 000010 21-1320 22-1324
RDBLK = 000010 11-497 11-573 39-2437 46-2812 46-2818
REQPRO 000111 17-984 17-994 31-1908 *37-2313 44-2672 46-2839
RETCOD 000104 *5-104 11-549 11-580 11-582 19-1140 *33-2029
RLBF = 000007 19-1151 19-1154
R$$11D = ****** 5-103 6-177 8-286 11-483 13-676 15-828 17-977 19-1117 21-1275
23-1432 25-1512 27-1621 29-1742 31-1891 33-2028 35-2123 37-2298 39-2416
42-2548 44-2649 46-2808 48-2940
R$$11M = 000000 5-103 6-177 8-286 11-483 13-676 15-828 17-977 19-1117 21-1275
23-1432 25-1512 27-1621 29-1742 31-1891 33-2028 35-2123 37-2298 39-2416
42-2548 44-2649 46-2808 48-2940
SBSTAT 000103 *5-105 *6-183 *6-187 8-288 8-299 *8-318 9-322 *9-329 9-337
*9-361 11-485 *11-517 *11-522 *11-527 11-530 *11-532 *11-534 11-539
*11-546 *11-556 *11-563 11-569 *11-577 *11-586 *13-762 19-1119 *19-1126
*19-1128 19-1132 19-1138 *19-1144 19-1147 *19-1151 19-1154 *19-1161 21-1277
*21-1286 21-1293 *21-1304 *21-1307 21-1315 *21-1320 22-1324 *22-1357 22-1364
*22-1370 *25-1535 27-1623 27-1628 *27-1634 27-1637 *27-1644 *29-1761 29-1779
31-1893 31-1898 *31-1913 31-1916 *31-1926 *31-1930 32-1941 *32-1958 32-1970
*32-1974 *33-2031 *40-2484 42-2550 *44-2683 *46-2817 46-2830 *46-2873 46-2881
*46-2884 48-2942 *48-2945 48-2950
SETADR = 000002 31-1923 31-1928 31-1933 32-1959
SIDLEN = 000020 37-2314
SOFTID 000112 17-979 37-2315
SPRAY = ****** GX 25-1526
SRVINC = 000002 13-679 13-701 35-2153 35-2162
STATE 000102 *5-106 *8-295 *9-360 *13-761 *25-1534 *27-1643 29-1763 29-1768 29-1773
29-1778 29-1784
STBK = 000015 22-1357 22-1364
SVLNID = 000010 13-706
SVNMAD = 000004 13-703
LDLOAD CREATED BY MACRO ON 13-OCT-79 AT 11:49 PAGE 5
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
SVNODE 000142 13-690 13-704 27-1630 35-2165
SYSPAR 000225 13-746 15-829 *15-836 15-864 15-881 *15-883 35-2218 46-2841 46-2843
S.FNAM = 000006 16-971 16-971
S.FNB = 000036 16-971
S.FTYP = 000002 16-971 16-971
TGNODE 000133 13-687 35-2148
TRAADR 000024 *22-1353 46-2849
TRACNT 000266 *11-505 11-574 *39-2425 46-2821 *46-2872
TRAIMA = 000003 32-1973 42-2564
TRIBOO = 000004 8-291 13-721 35-2194
TRMS = 000003 8-318 9-322 19-1144 19-1147 31-1913 31-1916 32-1958
TS$NHD = 040000 22-1329
WAIT = 000013 11-530 11-577 44-2683 48-2945
$$CSTA = 000000 #5-103 #6-177 #8-286 #11-483 11-487 #11-487 11-489 #11-489 11-494
11-498 11-508 11-513 11-518 11-523 #11-528 #13-676 #15-828 #17-977
#19-1117 #21-1275 #23-1432 #25-1512 #27-1621 27-1646 #27-1646 27-1648 #27-1648
27-1652 27-1656 #27-1662 #29-1742 #31-1891 #33-2028 #35-2123 #37-2298 #39-2416
39-2417 #39-2417 39-2419 #39-2419 39-2434 39-2454 40-2460 40-2477 #40-2491
#42-2548 #44-2649 #46-2808 #48-2940
$$PRST = 000011 #5-103 #6-177 *6-180 #6-180 #8-286 8-287 #8-287 8-290 #8-290
8-298 #8-298 9-321 #9-321 9-324 #9-324 9-336 #9-336 9-339
#9-339 9-347 #9-347 9-350 #9-350 9-354 #9-354 9-357 #9-357
9-371 #9-371 #11-483 11-484 #11-484 11-487 #11-487 11-502 #11-502
11-529 #11-529 11-538 #11-538 11-541 #11-541 11-548 #11-548 11-551
#11-551 11-558 #11-558 11-568 #11-568 11-571 #11-571 11-579 #11-579
#13-676 *13-678 #13-678 13-684 #13-684 13-697 #13-697 13-700 #13-700
13-716 #13-716 13-720 #13-720 13-732 #13-732 13-741 #13-741 13-753
#13-753 13-758 #13-758 #15-828 *15-832 #15-832 *15-840 #15-840 *15-849
#15-849 15-861 #15-861 15-866 #15-866 15-887 #15-887 15-892 #15-892
#17-977 17-978 #17-978 17-983 #17-983 *17-996 #17-996 17-1002 #17-1002
17-1012 #17-1012 17-1018 #17-1018 #19-1117 19-1118 #19-1118 19-1121 #19-1121
19-1131 #19-1131 19-1137 #19-1137 19-1146 #19-1146 19-1153 #19-1153 19-1156
#19-1156 #21-1275 21-1276 #21-1276 21-1280 #21-1280 21-1292 #21-1292 21-1295
#21-1295 *21-1299 #21-1299 21-1314 #21-1314 22-1323 #22-1323 22-1326 #22-1326
*22-1345 #22-1345 22-1363 #22-1363 22-1366 #22-1366 #23-1432 #25-1512 25-1513
#25-1513 25-1531 #25-1531 #27-1621 27-1622 #27-1622 27-1627 #27-1627 27-1636
#27-1636 27-1639 #27-1639 27-1646 #27-1646 #29-1742 *29-1744 #29-1744 29-1747
#29-1747 29-1758 #29-1758 29-1762 #29-1762 29-1767 #29-1767 29-1772 #29-1772
29-1777 #29-1777 29-1783 #29-1783 #31-1891 31-1892 #31-1892 31-1897 #31-1897
31-1915 #31-1915 31-1918 #31-1918 *31-1922 #31-1922 32-1940 #32-1940 32-1943
#32-1943 32-1946 #32-1946 32-1969 #32-1969 #33-2028 #35-2123 35-2130 #35-2130
35-2133 #35-2133 35-2141 #35-2141 35-2144 #35-2144 35-2152 #35-2152 35-2160
#35-2160 35-2168 #35-2168 35-2172 #35-2172 35-2175 #35-2175 35-2189 #35-2189
35-2193 #35-2193 35-2204 #35-2204 35-2213 #35-2213 35-2222 #35-2222 35-2230
#35-2230 #37-2298 37-2300 #37-2300 37-2305 #37-2305 37-2310 #37-2310 #39-2416
39-2417 #39-2417 39-2422 #39-2422 39-2427 #39-2427 *39-2438 #39-2438 39-2443
#39-2443 *40-2464 #40-2464 40-2471 #40-2471 40-2480 #40-2480 #42-2548 42-2549
#42-2549 42-2554 #42-2554 42-2559 #42-2559 42-2563 #42-2563 42-2567 #42-2567
#44-2649 44-2655 #44-2655 44-2658 #44-2658 44-2662 #44-2662 44-2665 #44-2665
44-2668 #44-2668 44-2671 #44-2671 44-2677 #44-2677 #46-2808 46-2809 #46-2809
46-2820 #46-2820 46-2823 #46-2823 46-2829 #46-2829 *46-2833 #46-2833 *46-2838
#46-2838 *46-2857 #46-2857 46-2880 #46-2880 #48-2940 48-2941 #48-2941 48-2949
LDLOAD CREATED BY MACRO ON 13-OCT-79 AT 11:49 PAGE 6
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#48-2949
$$SLST = ****** 5-103 5-108 6-177 6-181 6-181 6-182 6-184 6-184 6-188
6-189 8-286 8-288 8-288 8-289 8-291 8-291 8-292 8-294
8-294 8-296 8-297 8-299 8-299 8-300 8-319 9-322 9-322
9-323 9-325 9-325 9-326 9-330 9-330 9-334 9-335 9-337
9-337 9-338 9-340 9-340 9-341 9-348 9-349 9-351 9-351
9-352 9-355 9-356 9-358 9-358 9-359 9-362 9-362 9-365
9-366 9-367 9-367 9-369 9-370 9-372 9-373 9-375 9-377
9-377 9-380 9-382 9-383 11-483 11-485 11-485 11-486 11-490
11-490 11-491 11-494 11-494 11-495 11-495 11-496 11-498 11-498
11-499 11-499 11-500 11-500 11-501 11-503 11-503 11-504 11-507
11-508 11-508 11-509 11-509 11-510 11-513 11-513 11-514 11-514
11-515 11-518 11-518 11-519 11-519 11-520 11-523 11-523 11-524
11-524 11-525 11-528 11-528 11-530 11-530 11-531 11-533 11-533
11-536 11-537 11-539 11-539 11-540 11-542 11-542 11-543 11-547
11-547 11-549 11-549 11-550 11-552 11-552 11-553 11-557 11-557
11-559 11-559 11-560 11-564 11-565 11-566 11-567 11-569 11-569
11-570 11-573 11-573 11-574 11-574 11-575 11-578 11-578 11-580
11-580 11-581 11-584 11-584 11-587 11-588 11-589 11-590 11-591
13-676 13-679 13-679 13-680 13-680 13-681 13-681 13-682 13-682
13-683 13-685 13-685 13-686 13-689 13-689 13-693 13-698 13-699
13-701 13-701 13-702 13-713 13-713 13-715 13-717 13-718 13-718
13-719 13-721 13-721 13-722 13-727 13-727 13-730 13-731 13-733
13-734 13-734 13-735 13-740 13-742 13-743 13-743 13-744 13-749
13-750 13-752 13-754 13-755 13-757 13-759 13-760 13-763 13-763
13-765 13-766 15-828 15-833 15-834 15-838 15-838 15-840 15-841
15-841 15-844 15-845 15-845 15-846 15-850 15-851 15-854 15-854
15-856 15-858 15-858 15-860 15-862 15-862 15-863 15-867 15-867
15-868 15-871 15-871 15-885 15-886 15-886 15-888 15-888 15-889
15-891 15-891 15-893 15-893 15-894 15-896 15-896 15-898 15-900
15-901 15-902 17-977 17-979 17-979 17-980 17-982 17-982 17-984
17-984 17-985 17-990 17-990 17-996 17-997 17-997 17-998 17-998
17-999 17-1001 17-1001 17-1003 17-1003 17-1004 17-1006 17-1006 17-1010
17-1011 17-1013 17-1014 17-1019 17-1020 17-1027 17-1028 17-1029 17-1030
19-1117 19-1119 19-1119 19-1120 19-1122 19-1122 19-1123 19-1127 19-1127
19-1129 19-1130 19-1132 19-1132 19-1133 19-1136 19-1138 19-1138 19-1139
19-1145 19-1147 19-1147 19-1148 19-1152 19-1154 19-1154 19-1155 19-1157
19-1157 19-1158 19-1162 19-1162 19-1165 19-1166 19-1167 21-1275 21-1277
21-1277 21-1278 21-1281 21-1282 21-1287 21-1287 21-1290 21-1291 21-1293
21-1293 21-1294 21-1296 21-1296 21-1297 21-1300 21-1300 21-1301 21-1305
21-1305 21-1308 21-1309 21-1309 21-1312 21-1313 21-1315 21-1315 21-1316
21-1321 22-1324 22-1324 22-1325 22-1327 22-1327 22-1329 22-1329 22-1330
22-1346 22-1347 22-1349 22-1349 22-1351 22-1358 22-1358 22-1361 22-1362
22-1364 22-1364 22-1365 22-1367 22-1367 22-1368 22-1371 22-1371 22-1374
22-1375 22-1376 23-1432 23-1436 25-1512 25-1514 25-1514 25-1515 25-1520
25-1520 25-1532 25-1533 25-1536 25-1537 25-1538 27-1621 27-1623 27-1623
27-1624 27-1626 27-1628 27-1628 27-1629 27-1635 27-1637 27-1637 27-1638
27-1640 27-1640 27-1641 27-1645 27-1645 27-1649 27-1649 27-1650 27-1652
27-1652 27-1653 27-1653 27-1654 27-1656 27-1656 27-1657 27-1657 27-1658
27-1660 27-1660 27-1662 27-1664 27-1666 27-1667 29-1742 29-1745 29-1745
29-1746 29-1748 29-1748 29-1749 29-1751 29-1751 29-1756 29-1757 29-1759
29-1759 29-1760 29-1763 29-1763 29-1764 29-1766 29-1768 29-1768 29-1769
LDLOAD CREATED BY MACRO ON 13-OCT-79 AT 11:49 PAGE 7
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
29-1771 29-1773 29-1773 29-1774 29-1776 29-1777 29-1778 29-1778 29-1779
29-1779 29-1780 29-1782 29-1782 29-1784 29-1784 29-1785 29-1787 29-1788
29-1790 31-1891 31-1893 31-1893 31-1894 31-1896 31-1898 31-1898 31-1899
31-1914 31-1916 31-1916 31-1917 31-1919 31-1919 31-1920 31-1923 31-1923
31-1924 31-1927 31-1927 31-1931 31-1932 31-1932 31-1937 31-1938 32-1941
32-1941 32-1942 32-1944 32-1944 32-1945 32-1947 32-1947 32-1948 32-1960
32-1960 32-1963 32-1964 32-1964 32-1967 32-1968 32-1970 32-1970 32-1971
32-1975 32-1976 33-2028 33-2032 35-2123 35-2131 35-2132 35-2134 35-2134
35-2135 35-2138 35-2138 35-2140 35-2142 35-2143 35-2145 35-2145 35-2146
35-2151 35-2151 35-2153 35-2153 35-2154 35-2157 35-2158 35-2159 35-2161
35-2162 35-2162 35-2163 35-2169 35-2170 35-2173 35-2174 35-2176 35-2176
35-2177 35-2180 35-2180 35-2185 35-2186 35-2187 35-2188 35-2190 35-2191
35-2191 35-2192 35-2194 35-2194 35-2195 35-2200 35-2200 35-2202 35-2203
35-2205 35-2206 35-2206 35-2207 35-2212 35-2214 35-2215 35-2215 35-2216
35-2221 35-2223 35-2224 35-2224 35-2225 35-2228 35-2229 35-2231 35-2232
35-2234 35-2239 37-2298 37-2301 37-2302 37-2306 37-2307 37-2311 37-2312
37-2318 37-2319 37-2320 37-2321 39-2416 39-2420 39-2420 39-2421 39-2423
39-2423 39-2424 39-2428 39-2428 39-2429 39-2432 39-2433 39-2434 39-2434
39-2435 39-2435 39-2436 39-2439 39-2439 39-2440 39-2444 39-2445 39-2447
39-2447 39-2449 39-2450 39-2450 39-2453 39-2454 39-2454 39-2455 39-2455
39-2456 40-2460 40-2460 40-2461 40-2461 40-2462 40-2465 40-2465 40-2466
40-2468 40-2468 40-2470 40-2472 40-2472 40-2473 40-2476 40-2477 40-2477
40-2478 40-2478 40-2479 40-2481 40-2481 40-2482 40-2486 40-2486 40-2489
40-2491 40-2491 40-2492 42-2548 42-2550 42-2550 42-2551 42-2553 42-2555
42-2555 42-2556 42-2558 42-2560 42-2560 42-2562 42-2564 42-2564 42-2566
42-2568 42-2568 42-2569 42-2571 42-2572 44-2649 44-2656 44-2657 44-2659
44-2659 44-2660 44-2663 44-2664 44-2666 44-2666 44-2667 44-2669 44-2669
44-2670 44-2672 44-2672 44-2673 44-2675 44-2675 44-2678 44-2679 44-2684
44-2685 44-2686 44-2686 44-2688 44-2689 44-2690 44-2691 44-2691 44-2693
44-2694 44-2696 46-2808 46-2810 46-2810 46-2811 46-2811 46-2812 46-2812
46-2813 46-2819 46-2819 46-2821 46-2821 46-2822 46-2824 46-2824 46-2825
46-2825 46-2826 46-2826 46-2827 46-2830 46-2830 46-2831 46-2834 46-2834
46-2835 46-2839 46-2839 46-2840 46-2846 46-2846 46-2848 46-2853 46-2853
46-2858 46-2858 46-2859 46-2861 46-2861 46-2863 46-2867 46-2874 46-2874
46-2876 46-2877 46-2878 46-2879 46-2881 46-2881 46-2882 46-2885 46-2886
48-2940 48-2942 48-2942 48-2943 48-2946 48-2946 48-2948 48-2950 48-2950
48-2951 48-2953 48-2954
$$STIX = 000777 #5-103 #6-177 *6-180 *6-180 #6-180 *6-180 *6-180 #6-180 6-188
#6-188 6-188 6-188 #6-188 6-188 #8-286 8-287 8-287 #8-287
8-287 8-287 #8-287 8-290 8-290 #8-290 8-290 8-290 #8-290
8-296 #8-296 8-296 8-296 #8-296 8-296 8-297 #8-297 8-297
8-297 #8-297 8-297 8-298 8-298 #8-298 8-298 8-298 #8-298
8-319 #8-319 8-319 8-319 #8-319 8-319 9-321 9-321 #9-321
9-321 9-321 #9-321 9-324 9-324 #9-324 9-324 9-324 #9-324
9-334 #9-334 9-334 9-334 #9-334 9-334 9-335 #9-335 9-335
9-335 #9-335 9-335 9-336 9-336 #9-336 9-336 9-336 #9-336
9-339 9-339 #9-339 9-339 9-339 #9-339 9-347 9-347 #9-347
9-347 9-347 #9-347 9-350 9-350 #9-350 9-350 9-350 #9-350
9-354 9-354 #9-354 9-354 9-354 #9-354 9-357 9-357 #9-357
9-357 9-357 #9-357 9-365 #9-365 9-365 9-365 #9-365 9-365
9-366 #9-366 9-366 9-366 #9-366 9-366 9-369 #9-369 9-369
9-369 #9-369 9-369 9-370 #9-370 9-370 9-370 #9-370 9-370
LDLOAD CREATED BY MACRO ON 13-OCT-79 AT 11:49 PAGE 8
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
9-371 9-371 #9-371 9-371 9-371 #9-371 9-375 #9-375 9-375
9-375 #9-375 9-375 9-380 #9-380 9-380 9-380 #9-380 9-380
9-382 #9-382 9-382 9-382 #9-382 9-382 #11-483 11-484 11-484
#11-484 11-484 11-484 #11-484 11-487 11-487 #11-487 11-487 11-487
#11-487 11-487 11-487 #11-487 11-502 11-502 #11-502 11-502 11-502
#11-502 11-507 #11-507 11-507 11-507 #11-507 11-507 11-528 #11-528
11-528 11-528 #11-528 11-528 11-528 #11-528 11-528 11-529 11-529
#11-529 11-529 11-529 #11-529 11-536 #11-536 11-536 11-536 #11-536
11-536 11-537 #11-537 11-537 11-537 #11-537 11-537 11-538 11-538
#11-538 11-538 11-538 #11-538 11-541 11-541 #11-541 11-541 11-541
#11-541 11-548 11-548 #11-548 11-548 11-548 #11-548 11-551 11-551
#11-551 11-551 11-551 #11-551 11-558 11-558 #11-558 11-558 11-558
#11-558 11-564 #11-564 11-564 11-564 #11-564 11-564 11-565 #11-565
11-565 11-565 #11-565 11-565 11-566 #11-566 11-566 11-566 #11-566
11-566 11-567 #11-567 11-567 11-567 #11-567 11-567 11-568 11-568
#11-568 11-568 11-568 #11-568 11-571 11-571 #11-571 11-571 11-571
#11-571 11-579 11-579 #11-579 11-579 11-579 #11-579 11-587 #11-587
11-587 11-587 #11-587 11-587 11-588 #11-588 11-588 11-588 #11-588
11-588 11-589 #11-589 11-589 11-589 #11-589 11-589 11-590 #11-590
11-590 11-590 #11-590 11-590 #13-676 *13-678 *13-678 #13-678 *13-678
*13-678 #13-678 13-684 13-684 #13-684 13-684 13-684 #13-684 13-693
#13-693 13-693 13-693 #13-693 13-693 13-697 13-697 #13-697 13-697
13-697 #13-697 13-700 13-700 #13-700 13-700 13-700 #13-700 13-715
#13-715 13-715 13-715 #13-715 13-715 13-716 13-716 #13-716 13-716
13-716 #13-716 13-720 13-720 #13-720 13-720 13-720 #13-720 13-730
#13-730 13-730 13-730 #13-730 13-730 13-731 #13-731 13-731 13-731
#13-731 13-731 13-732 13-732 #13-732 13-732 13-732 #13-732 13-740
#13-740 13-740 13-740 #13-740 13-740 13-741 13-741 #13-741 13-741
13-741 #13-741 13-749 #13-749 13-749 13-749 #13-749 13-749 13-750
#13-750 13-750 13-750 #13-750 13-750 13-752 #13-752 13-752 13-752
#13-752 13-752 13-753 13-753 #13-753 13-753 13-753 #13-753 13-757
#13-757 13-757 13-757 #13-757 13-757 13-758 13-758 #13-758 13-758
13-758 #13-758 13-765 #13-765 13-765 13-765 #13-765 13-765 #15-828
*15-832 *15-832 #15-832 *15-832 *15-832 #15-832 *15-840 *15-840 #15-840
*15-840 *15-840 #15-840 *15-849 *15-849 #15-849 *15-849 *15-849 #15-849
15-856 #15-856 15-856 15-856 #15-856 15-856 15-858 #15-858 15-858
15-858 #15-858 15-858 15-860 #15-860 15-860 15-860 #15-860 15-860
15-861 15-861 #15-861 15-861 15-861 #15-861 15-866 15-866 #15-866
15-866 15-866 #15-866 15-885 #15-885 15-885 15-885 #15-885 15-885
15-887 15-887 #15-887 15-887 15-887 #15-887 15-892 15-892 #15-892
15-892 15-892 #15-892 15-898 #15-898 15-898 15-898 #15-898 15-898
15-900 #15-900 15-900 15-900 #15-900 15-900 15-901 #15-901 15-901
15-901 #15-901 15-901 #17-977 17-978 17-978 #17-978 17-978 17-978
#17-978 17-983 17-983 #17-983 17-983 17-983 #17-983 *17-996 *17-996
#17-996 *17-996 *17-996 #17-996 17-1001 #17-1001 17-1001 17-1001 #17-1001
17-1001 17-1002 17-1002 #17-1002 17-1002 17-1002 #17-1002 17-1010 #17-1010
17-1010 17-1010 #17-1010 17-1010 17-1011 #17-1011 17-1011 17-1011 #17-1011
17-1011 17-1012 17-1012 #17-1012 17-1012 17-1012 #17-1012 17-1018 17-1018
#17-1018 17-1018 17-1018 #17-1018 17-1027 #17-1027 17-1027 17-1027 #17-1027
17-1027 17-1028 #17-1028 17-1028 17-1028 #17-1028 17-1028 17-1029 #17-1029
17-1029 17-1029 #17-1029 17-1029 #19-1117 19-1118 19-1118 #19-1118 19-1118
19-1118 #19-1118 19-1121 19-1121 #19-1121 19-1121 19-1121 #19-1121 19-1129
LDLOAD CREATED BY MACRO ON 13-OCT-79 AT 11:49 PAGE 9
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#19-1129 19-1129 19-1129 #19-1129 19-1129 19-1130 #19-1130 19-1130 19-1130
#19-1130 19-1130 19-1131 19-1131 #19-1131 19-1131 19-1131 #19-1131 19-1136
#19-1136 19-1136 19-1136 #19-1136 19-1136 19-1137 19-1137 #19-1137 19-1137
19-1137 #19-1137 19-1145 #19-1145 19-1145 19-1145 #19-1145 19-1145 19-1146
19-1146 #19-1146 19-1146 19-1146 #19-1146 19-1152 #19-1152 19-1152 19-1152
#19-1152 19-1152 19-1153 19-1153 #19-1153 19-1153 19-1153 #19-1153 19-1156
19-1156 #19-1156 19-1156 19-1156 #19-1156 19-1165 #19-1165 19-1165 19-1165
#19-1165 19-1165 19-1166 #19-1166 19-1166 19-1166 #19-1166 19-1166 #21-1275
21-1276 21-1276 #21-1276 21-1276 21-1276 #21-1276 21-1280 21-1280 #21-1280
21-1280 21-1280 #21-1280 21-1290 #21-1290 21-1290 21-1290 #21-1290 21-1290
21-1291 #21-1291 21-1291 21-1291 #21-1291 21-1291 21-1292 21-1292 #21-1292
21-1292 21-1292 #21-1292 21-1295 21-1295 #21-1295 21-1295 21-1295 #21-1295
*21-1299 *21-1299 #21-1299 *21-1299 *21-1299 #21-1299 21-1308 #21-1308 21-1308
21-1308 #21-1308 21-1308 21-1312 #21-1312 21-1312 21-1312 #21-1312 21-1312
21-1313 #21-1313 21-1313 21-1313 #21-1313 21-1313 21-1314 21-1314 #21-1314
21-1314 21-1314 #21-1314 21-1321 #21-1321 21-1321 21-1321 #21-1321 21-1321
22-1323 22-1323 #22-1323 22-1323 22-1323 #22-1323 22-1326 22-1326 #22-1326
22-1326 22-1326 #22-1326 *22-1345 *22-1345 #22-1345 *22-1345 *22-1345 #22-1345
22-1351 #22-1351 22-1351 22-1351 #22-1351 22-1351 22-1361 #22-1361 22-1361
22-1361 #22-1361 22-1361 22-1362 #22-1362 22-1362 22-1362 #22-1362 22-1362
22-1363 22-1363 #22-1363 22-1363 22-1363 #22-1363 22-1366 22-1366 #22-1366
22-1366 22-1366 #22-1366 22-1374 #22-1374 22-1374 22-1374 #22-1374 22-1374
22-1375 #22-1375 22-1375 22-1375 #22-1375 22-1375 #23-1432 #25-1512 25-1513
25-1513 #25-1513 25-1513 25-1513 #25-1513 25-1531 25-1531 #25-1531 25-1531
25-1531 #25-1531 25-1536 #25-1536 25-1536 25-1536 #25-1536 25-1536 25-1537
#25-1537 25-1537 25-1537 #25-1537 25-1537 #27-1621 27-1622 27-1622 #27-1622
27-1622 27-1622 #27-1622 27-1626 #27-1626 27-1626 27-1626 #27-1626 27-1626
27-1627 27-1627 #27-1627 27-1627 27-1627 #27-1627 27-1635 #27-1635 27-1635
27-1635 #27-1635 27-1635 27-1636 27-1636 #27-1636 27-1636 27-1636 #27-1636
27-1639 27-1639 #27-1639 27-1639 27-1639 #27-1639 27-1646 27-1646 #27-1646
27-1646 27-1646 #27-1646 27-1646 27-1646 #27-1646 *27-1662 #27-1662 *27-1662
27-1662 #27-1662 27-1662 27-1662 #27-1662 27-1662 27-1664 #27-1664 27-1664
27-1664 #27-1664 27-1664 27-1666 #27-1666 27-1666 27-1666 #27-1666 27-1666
#29-1742 *29-1744 *29-1744 #29-1744 *29-1744 *29-1744 #29-1744 29-1747 29-1747
#29-1747 29-1747 29-1747 #29-1747 29-1756 #29-1756 29-1756 29-1756 #29-1756
29-1756 29-1757 #29-1757 29-1757 29-1757 #29-1757 29-1757 29-1758 29-1758
#29-1758 29-1758 29-1758 #29-1758 29-1762 29-1762 #29-1762 29-1762 29-1762
#29-1762 29-1766 #29-1766 29-1766 29-1766 #29-1766 29-1766 29-1767 29-1767
#29-1767 29-1767 29-1767 #29-1767 29-1771 #29-1771 29-1771 29-1771 #29-1771
29-1771 29-1772 29-1772 #29-1772 29-1772 29-1772 #29-1772 29-1776 #29-1776
29-1776 29-1776 #29-1776 29-1776 29-1777 29-1777 #29-1777 29-1777 29-1777
#29-1777 29-1782 #29-1782 29-1782 29-1782 #29-1782 29-1782 29-1783 29-1783
#29-1783 29-1783 29-1783 #29-1783 29-1787 #29-1787 29-1787 29-1787 #29-1787
29-1787 29-1788 #29-1788 29-1788 29-1788 #29-1788 29-1788 #31-1891 31-1892
31-1892 #31-1892 31-1892 31-1892 #31-1892 31-1896 #31-1896 31-1896 31-1896
#31-1896 31-1896 31-1897 31-1897 #31-1897 31-1897 31-1897 #31-1897 31-1914
#31-1914 31-1914 31-1914 #31-1914 31-1914 31-1915 31-1915 #31-1915 31-1915
31-1915 #31-1915 31-1918 31-1918 #31-1918 31-1918 31-1918 #31-1918 *31-1922
*31-1922 #31-1922 *31-1922 *31-1922 #31-1922 31-1931 #31-1931 31-1931 31-1931
#31-1931 31-1931 31-1937 #31-1937 31-1937 31-1937 #31-1937 31-1937 31-1938
#31-1938 31-1938 31-1938 #31-1938 31-1938 32-1940 32-1940 #32-1940 32-1940
32-1940 #32-1940 32-1943 32-1943 #32-1943 32-1943 32-1943 #32-1943 32-1946
LDLOAD CREATED BY MACRO ON 13-OCT-79 AT 11:49 PAGE 10
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
32-1946 #32-1946 32-1946 32-1946 #32-1946 32-1963 #32-1963 32-1963 32-1963
#32-1963 32-1963 32-1967 #32-1967 32-1967 32-1967 #32-1967 32-1967 32-1968
#32-1968 32-1968 32-1968 #32-1968 32-1968 32-1969 32-1969 #32-1969 32-1969
32-1969 #32-1969 32-1975 #32-1975 32-1975 32-1975 #32-1975 32-1975 #33-2028
#35-2123 35-2130 35-2130 #35-2130 35-2130 35-2130 #35-2130 35-2133 35-2133
#35-2133 35-2133 35-2133 #35-2133 35-2140 #35-2140 35-2140 35-2140 #35-2140
35-2140 35-2141 35-2141 #35-2141 35-2141 35-2141 #35-2141 35-2144 35-2144
#35-2144 35-2144 35-2144 #35-2144 35-2152 35-2152 #35-2152 35-2152 35-2152
#35-2152 35-2157 #35-2157 35-2157 35-2157 #35-2157 35-2157 35-2158 #35-2158
35-2158 35-2158 #35-2158 35-2158 35-2159 #35-2159 35-2159 35-2159 #35-2159
35-2159 35-2160 35-2160 #35-2160 35-2160 35-2160 #35-2160 35-2168 35-2168
#35-2168 35-2168 35-2168 #35-2168 35-2172 35-2172 #35-2172 35-2172 35-2172
#35-2172 35-2175 35-2175 #35-2175 35-2175 35-2175 #35-2175 35-2185 #35-2185
35-2185 35-2185 #35-2185 35-2185 35-2186 #35-2186 35-2186 35-2186 #35-2186
35-2186 35-2187 #35-2187 35-2187 35-2187 #35-2187 35-2187 35-2188 #35-2188
35-2188 35-2188 #35-2188 35-2188 35-2189 35-2189 #35-2189 35-2189 35-2189
#35-2189 35-2193 35-2193 #35-2193 35-2193 35-2193 #35-2193 35-2202 #35-2202
35-2202 35-2202 #35-2202 35-2202 35-2203 #35-2203 35-2203 35-2203 #35-2203
35-2203 35-2204 35-2204 #35-2204 35-2204 35-2204 #35-2204 35-2212 #35-2212
35-2212 35-2212 #35-2212 35-2212 35-2213 35-2213 #35-2213 35-2213 35-2213
#35-2213 35-2221 #35-2221 35-2221 35-2221 #35-2221 35-2221 35-2222 35-2222
#35-2222 35-2222 35-2222 #35-2222 35-2228 #35-2228 35-2228 35-2228 #35-2228
35-2228 35-2229 #35-2229 35-2229 35-2229 #35-2229 35-2229 35-2230 35-2230
#35-2230 35-2230 35-2230 #35-2230 35-2234 #35-2234 35-2234 35-2234 #35-2234
35-2234 #37-2298 37-2300 37-2300 #37-2300 37-2300 37-2300 #37-2300 37-2305
37-2305 #37-2305 37-2305 37-2305 #37-2305 37-2310 37-2310 #37-2310 37-2310
37-2310 #37-2310 37-2318 #37-2318 37-2318 37-2318 #37-2318 37-2318 37-2319
#37-2319 37-2319 37-2319 #37-2319 37-2319 37-2320 #37-2320 37-2320 37-2320
#37-2320 37-2320 #39-2416 39-2417 39-2417 #39-2417 39-2417 39-2417 #39-2417
39-2417 39-2417 #39-2417 39-2422 39-2422 #39-2422 39-2422 39-2422 #39-2422
39-2427 39-2427 #39-2427 39-2427 39-2427 #39-2427 39-2432 #39-2432 39-2432
39-2432 #39-2432 39-2432 39-2433 #39-2433 39-2433 39-2433 #39-2433 39-2433
*39-2438 *39-2438 #39-2438 *39-2438 *39-2438 #39-2438 39-2443 39-2443 #39-2443
39-2443 39-2443 #39-2443 39-2449 #39-2449 39-2449 39-2449 #39-2449 39-2449
39-2453 #39-2453 39-2453 39-2453 #39-2453 39-2453 *40-2464 *40-2464 #40-2464
*40-2464 *40-2464 #40-2464 40-2470 #40-2470 40-2470 40-2470 #40-2470 40-2470
40-2471 40-2471 #40-2471 40-2471 40-2471 #40-2471 40-2476 #40-2476 40-2476
40-2476 #40-2476 40-2476 40-2480 40-2480 #40-2480 40-2480 40-2480 #40-2480
40-2489 #40-2489 40-2489 40-2489 #40-2489 40-2489 40-2491 #40-2491 40-2491
40-2491 #40-2491 40-2491 40-2491 #40-2491 40-2491 #42-2548 42-2549 42-2549
#42-2549 42-2549 42-2549 #42-2549 42-2553 #42-2553 42-2553 42-2553 #42-2553
42-2553 42-2554 42-2554 #42-2554 42-2554 42-2554 #42-2554 42-2558 #42-2558
42-2558 42-2558 #42-2558 42-2558 42-2559 42-2559 #42-2559 42-2559 42-2559
#42-2559 42-2562 #42-2562 42-2562 42-2562 #42-2562 42-2562 42-2563 42-2563
#42-2563 42-2563 42-2563 #42-2563 42-2566 #42-2566 42-2566 42-2566 #42-2566
42-2566 42-2567 42-2567 #42-2567 42-2567 42-2567 #42-2567 42-2571 #42-2571
42-2571 42-2571 #42-2571 42-2571 #44-2649 44-2655 44-2655 #44-2655 44-2655
44-2655 #44-2655 44-2658 44-2658 #44-2658 44-2658 44-2658 #44-2658 44-2662
44-2662 #44-2662 44-2662 44-2662 #44-2662 44-2665 44-2665 #44-2665 44-2665
44-2665 #44-2665 44-2668 44-2668 #44-2668 44-2668 44-2668 #44-2668 44-2671
44-2671 #44-2671 44-2671 44-2671 #44-2671 44-2677 44-2677 #44-2677 44-2677
44-2677 #44-2677 44-2684 #44-2684 44-2684 44-2684 #44-2684 44-2684 44-2685
LDLOAD CREATED BY MACRO ON 13-OCT-79 AT 11:49 PAGE 11
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#44-2685 44-2685 44-2685 #44-2685 44-2685 44-2688 #44-2688 44-2688 44-2688
#44-2688 44-2688 44-2689 #44-2689 44-2689 44-2689 #44-2689 44-2689 44-2690
#44-2690 44-2690 44-2690 #44-2690 44-2690 44-2693 #44-2693 44-2693 44-2693
#44-2693 44-2693 44-2694 #44-2694 44-2694 44-2694 #44-2694 44-2694 #46-2808
46-2809 46-2809 #46-2809 46-2809 46-2809 #46-2809 46-2820 46-2820 #46-2820
46-2820 46-2820 #46-2820 46-2823 46-2823 #46-2823 46-2823 46-2823 #46-2823
46-2829 46-2829 #46-2829 46-2829 46-2829 #46-2829 *46-2833 *46-2833 #46-2833
*46-2833 *46-2833 #46-2833 *46-2838 *46-2838 #46-2838 *46-2838 *46-2838 #46-2838
46-2848 #46-2848 46-2848 46-2848 #46-2848 46-2848 *46-2857 *46-2857 #46-2857
*46-2857 *46-2857 #46-2857 46-2863 #46-2863 46-2863 46-2863 #46-2863 46-2863
46-2867 #46-2867 46-2867 46-2867 #46-2867 46-2867 46-2876 #46-2876 46-2876
46-2876 #46-2876 46-2876 46-2877 #46-2877 46-2877 46-2877 #46-2877 46-2877
46-2878 #46-2878 46-2878 46-2878 #46-2878 46-2878 46-2879 #46-2879 46-2879
46-2879 #46-2879 46-2879 46-2880 46-2880 #46-2880 46-2880 46-2880 #46-2880
46-2885 #46-2885 46-2885 46-2885 #46-2885 46-2885 #48-2940 48-2941 48-2941
#48-2941 48-2941 48-2941 #48-2941 48-2948 #48-2948 48-2948 48-2948 #48-2948
48-2948 48-2949 48-2949 #48-2949 48-2949 48-2949 #48-2949 48-2953 #48-2953
48-2953 48-2953 #48-2953 48-2953
$$STNM = 000000 #5-103 #6-177 *6-180 #6-180 *6-180 6-181 6-182 *6-184 6-184
*6-188 #6-188 #8-286 8-287 #8-287 8-287 8-288 8-289 8-290
#8-290 8-290 8-291 8-292 8-294 8-294 *8-296 #8-296 8-297
#8-297 8-298 #8-298 8-298 8-299 8-300 *8-319 #8-319 9-321
#9-321 9-321 9-322 9-323 9-324 #9-324 9-324 9-325 9-326
*9-330 9-330 9-334 #9-334 9-335 #9-335 9-336 #9-336 9-336
9-337 9-338 9-339 #9-339 9-339 9-340 9-341 9-347 #9-347
9-347 9-348 9-349 9-350 #9-350 9-350 9-351 9-352 9-354
#9-354 9-354 9-355 9-356 9-357 #9-357 9-357 9-358 9-359
9-362 9-362 9-365 #9-365 9-366 #9-366 9-367 9-367 9-369
#9-369 9-370 #9-370 9-371 #9-371 9-371 9-372 9-373 9-375
#9-375 *9-377 9-377 9-380 #9-380 9-382 #9-382 #11-483 11-484
#11-484 11-484 11-485 11-486 11-487 #11-487 11-487 11-490 11-491
11-494 11-494 11-495 11-496 11-498 11-498 11-499 11-500 11-501
11-502 #11-502 11-502 11-503 11-504 11-507 #11-507 11-508 11-508
11-509 11-510 11-513 11-513 11-514 11-515 11-518 11-518 11-519
11-520 11-523 11-523 11-524 11-525 11-528 11-528 #11-528 11-529
#11-529 11-529 11-530 11-531 11-533 11-533 *11-536 #11-536 11-537
#11-537 11-538 #11-538 11-538 11-539 11-540 11-541 #11-541 11-541
11-542 11-543 *11-547 11-547 11-548 #11-548 11-548 11-549 11-550
11-551 #11-551 11-551 11-552 11-553 *11-557 11-557 11-558 #11-558
11-558 11-559 11-560 *11-564 #11-564 11-565 #11-565 11-566 #11-566
11-567 #11-567 11-568 #11-568 11-568 11-569 11-570 11-571 #11-571
11-571 11-573 11-574 11-575 *11-578 11-578 11-579 #11-579 11-579
11-580 11-581 11-584 11-584 11-587 #11-587 11-588 #11-588 11-589
#11-589 11-590 #11-590 #13-676 *13-678 #13-678 *13-678 13-679 13-680
13-681 13-682 13-683 13-684 #13-684 13-684 13-685 13-686 13-689
13-689 13-693 #13-693 13-697 #13-697 13-697 13-698 13-699 13-700
#13-700 13-700 13-701 13-702 13-713 13-713 13-715 #13-715 13-716
#13-716 13-716 13-717 13-718 13-719 13-720 #13-720 13-720 13-721
13-722 13-727 13-727 13-730 #13-730 13-731 #13-731 13-732 #13-732
13-732 13-733 13-734 13-735 13-740 #13-740 13-741 #13-741 13-741
13-742 13-743 13-744 13-749 #13-749 13-750 #13-750 *13-752 #13-752
13-753 #13-753 13-753 13-754 13-755 13-757 #13-757 13-758 #13-758
LDLOAD CREATED BY MACRO ON 13-OCT-79 AT 11:49 PAGE 12
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
13-758 13-759 13-760 13-763 13-763 13-765 #13-765 #15-828 *15-832
#15-832 *15-832 15-833 15-834 15-838 15-838 *15-840 #15-840 *15-840
*15-840 15-841 15-844 15-845 15-846 *15-849 #15-849 *15-849 15-850
15-851 15-854 15-854 15-856 #15-856 *15-858 15-858 #15-858 *15-860
#15-860 15-861 #15-861 15-861 15-862 15-863 15-866 #15-866 15-866
15-867 15-868 15-871 15-871 15-885 #15-885 15-886 15-886 15-887
#15-887 15-887 15-888 15-889 15-891 15-891 15-892 #15-892 15-892
15-893 15-894 *15-896 15-896 *15-898 #15-898 15-900 #15-900 15-901
#15-901 #17-977 17-978 #17-978 17-978 17-979 17-980 17-982 17-982
17-983 #17-983 17-983 17-984 17-985 17-990 17-990 *17-996 #17-996
*17-996 *17-996 17-997 17-998 17-999 17-1001 17-1001 #17-1001 17-1002
#17-1002 17-1002 17-1003 17-1004 17-1006 17-1006 17-1010 #17-1010 17-1011
#17-1011 17-1012 #17-1012 17-1012 17-1013 17-1014 17-1018 #17-1018 17-1018
17-1019 17-1020 17-1027 #17-1027 17-1028 #17-1028 17-1029 #17-1029 #19-1117
19-1118 #19-1118 19-1118 19-1119 19-1120 19-1121 #19-1121 19-1121 19-1122
19-1123 *19-1127 19-1127 *19-1129 #19-1129 19-1130 #19-1130 19-1131 #19-1131
19-1131 19-1132 19-1133 19-1136 #19-1136 19-1137 #19-1137 19-1137 19-1138
19-1139 *19-1145 #19-1145 19-1146 #19-1146 19-1146 19-1147 19-1148 *19-1152
#19-1152 19-1153 #19-1153 19-1153 19-1154 19-1155 19-1156 #19-1156 19-1156
19-1157 19-1158 19-1162 19-1162 19-1165 #19-1165 19-1166 #19-1166 #21-1275
21-1276 #21-1276 21-1276 21-1277 21-1278 21-1280 #21-1280 21-1280 21-1281
21-1282 *21-1287 21-1287 21-1290 #21-1290 21-1291 #21-1291 21-1292 #21-1292
21-1292 21-1293 21-1294 21-1295 #21-1295 21-1295 21-1296 21-1297 *21-1299
#21-1299 *21-1299 21-1300 21-1301 *21-1305 21-1305 *21-1308 #21-1308 21-1309
21-1309 21-1312 #21-1312 21-1313 #21-1313 21-1314 #21-1314 21-1314 21-1315
21-1316 *21-1321 #21-1321 22-1323 #22-1323 22-1323 22-1324 22-1325 22-1326
#22-1326 22-1326 22-1327 22-1329 22-1330 *22-1345 #22-1345 *22-1345 22-1346
22-1347 22-1349 22-1349 *22-1351 #22-1351 *22-1358 22-1358 22-1361 #22-1361
22-1362 #22-1362 22-1363 #22-1363 22-1363 22-1364 22-1365 22-1366 #22-1366
22-1366 22-1367 22-1368 22-1371 22-1371 22-1374 #22-1374 22-1375 #22-1375
#23-1432 #25-1512 25-1513 #25-1513 25-1513 25-1514 25-1515 *25-1520 25-1520
25-1531 #25-1531 25-1531 25-1532 25-1533 25-1536 #25-1536 25-1537 #25-1537
#27-1621 27-1622 #27-1622 27-1622 27-1623 27-1624 27-1626 #27-1626 27-1627
#27-1627 27-1627 27-1628 27-1629 *27-1635 #27-1635 27-1636 #27-1636 27-1636
27-1637 27-1638 27-1639 #27-1639 27-1639 27-1640 27-1641 27-1645 27-1645
27-1646 #27-1646 27-1646 27-1649 27-1650 27-1652 27-1652 27-1653 27-1654
27-1656 27-1656 27-1657 27-1658 *27-1660 27-1660 27-1662 #27-1662 27-1664
#27-1664 27-1666 #27-1666 #29-1742 *29-1744 #29-1744 *29-1744 29-1745 29-1746
29-1747 #29-1747 29-1747 29-1748 29-1749 29-1751 29-1751 29-1756 #29-1756
29-1757 #29-1757 29-1758 #29-1758 29-1758 29-1759 29-1760 29-1762 #29-1762
29-1762 29-1763 29-1764 29-1766 #29-1766 29-1767 #29-1767 29-1767 29-1768
29-1769 29-1771 #29-1771 29-1772 #29-1772 29-1772 29-1773 29-1774 29-1776
#29-1776 29-1777 #29-1777 29-1777 29-1777 29-1778 29-1779 29-1780 29-1782
29-1782 #29-1782 29-1783 #29-1783 29-1783 29-1784 29-1785 29-1787 #29-1787
29-1788 #29-1788 #31-1891 31-1892 #31-1892 31-1892 31-1893 31-1894 31-1896
#31-1896 31-1897 #31-1897 31-1897 31-1898 31-1899 *31-1914 #31-1914 31-1915
#31-1915 31-1915 31-1916 31-1917 31-1918 #31-1918 31-1918 31-1919 31-1920
*31-1922 #31-1922 *31-1922 31-1923 31-1924 *31-1927 31-1927 *31-1931 #31-1931
31-1932 31-1932 31-1937 #31-1937 31-1938 #31-1938 32-1940 #32-1940 32-1940
32-1941 32-1942 32-1943 #32-1943 32-1943 32-1944 32-1945 32-1946 #32-1946
32-1946 32-1947 32-1948 *32-1960 32-1960 32-1963 #32-1963 32-1964 32-1964
32-1967 #32-1967 32-1968 #32-1968 32-1969 #32-1969 32-1969 32-1970 32-1971
LDLOAD CREATED BY MACRO ON 13-OCT-79 AT 11:49 PAGE 13
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
32-1975 #32-1975 #33-2028 #35-2123 35-2130 #35-2130 35-2130 35-2131 35-2132
35-2133 #35-2133 35-2133 35-2134 35-2135 35-2138 35-2138 *35-2140 #35-2140
35-2141 #35-2141 35-2141 35-2142 35-2143 35-2144 #35-2144 35-2144 35-2145
35-2146 35-2151 35-2151 35-2152 #35-2152 35-2152 35-2153 35-2154 35-2157
#35-2157 35-2158 #35-2158 35-2159 #35-2159 35-2160 #35-2160 35-2160 35-2161
35-2162 35-2163 35-2168 #35-2168 35-2168 35-2169 35-2170 35-2172 #35-2172
35-2172 35-2173 35-2174 35-2175 #35-2175 35-2175 35-2176 35-2177 35-2180
35-2180 35-2185 #35-2185 35-2186 #35-2186 35-2187 #35-2187 35-2188 #35-2188
35-2189 #35-2189 35-2189 35-2190 35-2191 35-2192 35-2193 #35-2193 35-2193
35-2194 35-2195 35-2200 35-2200 35-2202 #35-2202 35-2203 #35-2203 35-2204
#35-2204 35-2204 35-2205 35-2206 35-2207 35-2212 #35-2212 35-2213 #35-2213
35-2213 35-2214 35-2215 35-2216 35-2221 #35-2221 35-2222 #35-2222 35-2222
35-2223 35-2224 35-2225 35-2228 #35-2228 35-2229 #35-2229 35-2230 #35-2230
35-2230 35-2231 35-2232 35-2234 #35-2234 #37-2298 37-2300 #37-2300 37-2300
37-2301 37-2302 37-2305 #37-2305 37-2305 37-2306 37-2307 37-2310 #37-2310
37-2310 37-2311 37-2312 37-2318 #37-2318 37-2319 #37-2319 37-2320 #37-2320
#39-2416 39-2417 #39-2417 39-2417 39-2420 39-2421 39-2422 #39-2422 39-2422
39-2423 39-2424 39-2427 #39-2427 39-2427 39-2428 39-2429 39-2432 #39-2432
39-2433 #39-2433 39-2434 39-2434 39-2435 39-2436 *39-2438 #39-2438 *39-2438
39-2439 39-2440 39-2443 #39-2443 39-2443 39-2444 39-2445 *39-2447 39-2447
*39-2449 #39-2449 39-2450 39-2450 39-2453 #39-2453 39-2454 39-2454 39-2455
39-2456 40-2460 40-2460 40-2461 40-2462 *40-2464 #40-2464 *40-2464 40-2465
40-2466 40-2468 40-2468 *40-2470 #40-2470 40-2471 #40-2471 40-2471 40-2472
40-2473 40-2476 #40-2476 40-2477 40-2477 40-2478 40-2479 40-2480 #40-2480
40-2480 40-2481 40-2482 40-2486 40-2486 40-2489 #40-2489 40-2491 40-2491
#40-2491 #42-2548 42-2549 #42-2549 42-2549 42-2550 42-2551 *42-2553 #42-2553
42-2554 #42-2554 42-2554 42-2555 42-2556 42-2558 #42-2558 42-2559 #42-2559
42-2559 42-2560 42-2562 #42-2562 42-2563 #42-2563 42-2563 42-2564 42-2566
#42-2566 42-2567 #42-2567 42-2567 42-2568 42-2569 42-2571 #42-2571 #44-2649
44-2655 #44-2655 44-2655 44-2656 44-2657 44-2658 #44-2658 44-2658 44-2659
44-2660 44-2662 #44-2662 44-2662 44-2663 44-2664 44-2665 #44-2665 44-2665
44-2666 44-2667 44-2668 #44-2668 44-2668 44-2669 44-2670 44-2671 #44-2671
44-2671 44-2672 44-2673 *44-2675 44-2675 44-2677 #44-2677 44-2677 44-2678
44-2679 *44-2684 #44-2684 44-2685 #44-2685 44-2686 44-2686 *44-2688 #44-2688
44-2689 #44-2689 44-2690 #44-2690 44-2691 44-2691 *44-2693 #44-2693 44-2694
#44-2694 #46-2808 46-2809 #46-2809 46-2809 46-2810 46-2811 46-2812 46-2813
*46-2819 46-2819 46-2820 #46-2820 46-2820 46-2821 46-2822 46-2823 #46-2823
46-2823 46-2824 46-2825 46-2826 46-2827 46-2829 #46-2829 46-2829 46-2830
46-2831 *46-2833 #46-2833 *46-2833 46-2834 46-2835 *46-2838 #46-2838 *46-2838
46-2839 46-2840 46-2846 46-2846 46-2848 #46-2848 46-2853 46-2853 *46-2857
#46-2857 *46-2857 46-2858 46-2859 *46-2861 46-2861 *46-2863 #46-2863 46-2867
#46-2867 46-2874 46-2874 *46-2876 #46-2876 46-2877 #46-2877 46-2878 #46-2878
46-2879 #46-2879 46-2880 #46-2880 46-2880 46-2881 46-2882 46-2885 #46-2885
#48-2940 48-2941 #48-2941 48-2941 48-2942 48-2943 *48-2946 48-2946 48-2948
#48-2948 48-2949 #48-2949 48-2949 48-2950 48-2951 48-2953 #48-2953
$$S762 = 000011 #44-2677 44-2684
$$S763 = 000015 #44-2677 44-2684
$$S764 = 000011 #9-357 9-365 #44-2671 44-2685 #46-2838 46-2848 #46-2857 46-2863
$$S765 = 000014 #9-357 9-365 #44-2671 44-2685 #46-2838 46-2848 #46-2857 46-2863
$$S766 = 000077 #9-354 9-366 #11-558 11-564 #35-2175 35-2185 #44-2668 44-2688 #46-2833
46-2867
$$S767 = 000013 #9-354 9-366 #11-558 11-564 #35-2175 35-2185 #44-2668 44-2688 #46-2833
LDLOAD CREATED BY MACRO ON 13-OCT-79 AT 11:49 PAGE 14
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
46-2867
$$S770 = 000077 #9-350 9-369 #11-551 11-565 #11-579 11-587 #13-720 13-730 #35-2152
35-2157 #35-2172 35-2186 #44-2665 44-2689 #46-2829 46-2876
$$S771 = 000012 #9-350 9-369 #11-502 11-507 #11-551 11-565 #11-579 11-587 #13-720
13-730 #27-1646 *27-1662 #35-2152 35-2157 #35-2172 35-2186 #39-2427 39-2432
#39-2443 39-2449 #44-2665 44-2689 #46-2829 46-2876
$$S772 = 000077 #9-347 9-370 #9-371 9-375 #11-502 11-507 #11-548 11-566 #11-571
11-588 #13-700 13-715 #13-716 13-731 #13-732 13-740 #13-741 13-749
#15-849 15-856 #15-892 15-898 #17-996 17-1001 #17-1002 17-1010 #17-1018
17-1027 #21-1299 21-1308 #22-1345 22-1351 #27-1646 27-1662 #31-1922 31-1931
#32-1946 32-1963 #35-2144 35-2158 #35-2168 35-2187 #35-2193 35-2202 #37-2310
37-2318 #39-2427 39-2432 #39-2443 39-2449 #44-2662 44-2690 #46-2823 46-2877
$$S773 = 000011 #9-347 9-370 #9-371 9-375 #11-487 11-528 #11-548 11-566 #11-571
11-588 #13-700 13-715 #13-716 13-731 #13-732 13-740 #13-741 13-749
#15-849 15-856 #15-892 15-898 #17-996 17-1001 #17-1002 17-1010 #17-1018
17-1027 #21-1299 21-1308 #22-1345 22-1351 #27-1646 27-1662 #31-1922 31-1931
#32-1946 32-1963 #35-2144 35-2158 #35-2168 35-2187 #35-2193 35-2202 #37-2310
37-2318 #39-2422 39-2433 #39-2438 39-2453 #40-2464 40-2470 #40-2471 40-2476
#40-2480 40-2489 #44-2662 44-2690 #46-2823 46-2877
$$S774 = 000011 #8-290 8-296 #9-324 9-334 #9-339 9-380 #11-487 11-528 #11-529
11-536 #11-541 11-567 #11-568 11-589 #13-684 13-693 #13-697 13-750
#15-840 15-858 #15-866 15-885 #15-887 15-900 #17-983 17-1011 #17-1012
17-1028 #19-1121 19-1129 #19-1156 19-1165 #21-1280 21-1290 #21-1295 21-1312
#22-1326 22-1361 #22-1366 22-1374 #25-1531 25-1536 #27-1639 27-1664 #29-1747
29-1756 #29-1762 29-1766 #29-1767 29-1771 #29-1772 29-1776 #29-1777 29-1782
#29-1783 29-1787 #31-1918 31-1937 #32-1943 32-1967 #35-2133 35-2140 #35-2141
35-2159 #35-2160 35-2188 #35-2189 35-2203 #35-2204 35-2212 #35-2213 35-2221
#35-2222 35-2228 #37-2305 37-2319 #39-2422 39-2433 #39-2438 39-2453 #40-2464
40-2470 #40-2471 40-2476 #40-2480 40-2489 #44-2658 44-2693 #46-2820 46-2878
$$S775 = 000010 #8-290 8-296 #9-324 9-334 #9-339 9-380 #11-487 11-528 #11-529
11-536 #11-541 11-567 #11-568 11-589 #13-684 13-693 #13-697 13-750
#15-840 15-858 #15-866 15-885 #15-887 15-900 #17-983 17-1011 #17-1012
17-1028 #19-1121 19-1129 #19-1156 19-1165 #21-1280 21-1290 #21-1295 21-1312
#22-1326 22-1361 #22-1366 22-1374 #25-1531 25-1536 #27-1639 27-1664 #29-1747
29-1756 #29-1762 29-1766 #29-1767 29-1771 #29-1772 29-1776 #29-1777 29-1782
#29-1783 29-1787 #31-1918 31-1937 #32-1943 32-1967 #35-2133 35-2140 #35-2141
35-2159 #35-2160 35-2188 #35-2189 35-2203 #35-2204 35-2212 #35-2213 35-2221
#35-2222 35-2228 #37-2305 37-2319 #39-2417 40-2491 #44-2658 44-2693 #46-2820
46-2878
$$S776 = 000000 #6-180 6-188 #8-287 8-297 #8-298 8-319 #9-321 9-335 #9-336
9-382 #11-484 11-537 #11-538 11-590 #13-678 13-752 #13-753 13-757
#13-758 13-765 #15-832 15-860 #15-861 15-901 #17-978 17-1029 #19-1118
19-1130 #19-1131 19-1136 #19-1137 19-1145 #19-1146 19-1152 #19-1153 19-1166
#21-1276 21-1291 #21-1292 21-1313 #21-1314 21-1321 #22-1323 22-1362 #22-1363
22-1375 #25-1513 25-1537 #27-1622 27-1626 #27-1627 27-1635 #27-1636 27-1666
#29-1744 29-1757 #29-1758 29-1788 #31-1892 31-1896 #31-1897 31-1914 #31-1915
31-1938 #32-1940 32-1968 #32-1969 32-1975 #35-2130 35-2229 #35-2230 35-2234
#37-2300 37-2320 #39-2417 40-2491 #42-2549 42-2553 #42-2554 42-2558 #42-2559
42-2562 #42-2563 42-2566 #42-2567 42-2571 #44-2655 44-2694 #46-2809 46-2879
#46-2880 46-2885 #48-2941 48-2948 #48-2949 48-2953
$$S777 = 000000 #6-180 6-188 #8-287 8-297 #8-298 8-319 #9-321 9-335 #9-336
9-382 #11-484 11-537 #11-538 11-590 #13-678 13-752 #13-753 13-757
LDLOAD CREATED BY MACRO ON 13-OCT-79 AT 11:49 PAGE 15
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#13-758 13-765 #15-832 15-860 #15-861 15-901 #17-978 17-1029 #19-1118
19-1130 #19-1131 19-1136 #19-1137 19-1145 #19-1146 19-1152 #19-1153 19-1166
#21-1276 21-1291 #21-1292 21-1313 #21-1314 21-1321 #22-1323 22-1362 #22-1363
22-1375 #25-1513 25-1537 #27-1622 27-1626 #27-1627 27-1635 #27-1636 27-1666
#29-1744 29-1757 #29-1758 29-1788 #31-1892 31-1896 #31-1897 31-1914 #31-1915
31-1938 #32-1940 32-1968 #32-1969 32-1975 #35-2130 35-2229 #35-2230 35-2234
#37-2300 37-2320 #39-2417 40-2491 #42-2549 42-2553 #42-2554 42-2558 #42-2559
42-2562 #42-2563 42-2566 #42-2567 42-2571 #44-2655 44-2694 #46-2809 46-2879
#46-2880 46-2885 #48-2941 48-2948 #48-2949 48-2953
$$TRNM = 000000 #5-103 #6-177 *6-180 #6-180 6-181 6-182 6-184 #6-184 *6-188
#6-188 #8-286 8-287 #8-287 8-288 8-289 8-290 #8-290 8-291
8-292 8-294 #8-294 *8-296 #8-296 8-297 #8-297 8-298 #8-298
8-299 8-300 *8-319 #8-319 9-321 #9-321 9-322 9-323 9-324
#9-324 9-325 9-326 9-330 #9-330 9-334 #9-334 9-335 #9-335
9-336 #9-336 9-337 9-338 9-339 #9-339 9-340 9-341 9-347
#9-347 9-348 9-349 9-350 #9-350 9-351 9-352 9-354 #9-354
9-355 9-356 9-357 #9-357 9-358 9-359 9-362 #9-362 9-365
#9-365 9-366 #9-366 9-367 #9-367 9-369 #9-369 9-370 #9-370
9-371 #9-371 9-372 9-373 9-375 #9-375 9-377 #9-377 9-380
#9-380 9-382 #9-382 #11-483 11-484 #11-484 11-485 11-486 11-487
#11-487 11-490 11-491 11-494 11-494 #11-494 11-495 11-496 11-498
11-498 #11-498 11-499 11-500 11-501 11-502 #11-502 11-503 11-504
11-507 #11-507 11-508 11-508 #11-508 11-509 11-510 11-513 11-513
#11-513 11-514 11-515 11-518 11-518 #11-518 11-519 11-520 11-523
11-523 #11-523 11-524 11-525 11-528 11-528 #11-528 11-529 #11-529
11-530 11-531 11-533 #11-533 *11-536 #11-536 11-537 #11-537 11-538
#11-538 11-539 11-540 11-541 #11-541 11-542 11-543 11-547 #11-547
11-548 #11-548 11-549 11-550 11-551 #11-551 11-552 11-553 11-557
#11-557 11-558 #11-558 11-559 11-560 *11-564 #11-564 11-565 #11-565
11-566 #11-566 11-567 #11-567 11-568 #11-568 11-569 11-570 11-571
#11-571 11-573 11-574 11-575 11-578 #11-578 11-579 #11-579 11-580
11-581 11-584 #11-584 11-587 #11-587 11-588 #11-588 11-589 #11-589
11-590 #11-590 #13-676 *13-678 #13-678 13-679 13-680 13-681 13-682
13-683 13-684 #13-684 13-685 13-686 13-689 #13-689 13-693 #13-693
13-697 #13-697 13-698 13-699 13-700 #13-700 13-701 13-702 13-713
#13-713 13-715 #13-715 13-716 #13-716 13-717 13-718 13-719 13-720
#13-720 13-721 13-722 13-727 #13-727 13-730 #13-730 13-731 #13-731
13-732 #13-732 13-733 13-734 13-735 13-740 #13-740 13-741 #13-741
13-742 13-743 13-744 13-749 #13-749 13-750 #13-750 *13-752 #13-752
13-753 #13-753 13-754 13-755 13-757 #13-757 13-758 #13-758 13-759
13-760 13-763 #13-763 13-765 #13-765 #15-828 *15-832 #15-832 15-833
15-834 15-838 #15-838 *15-840 #15-840 15-841 15-844 15-845 15-846
*15-849 #15-849 15-850 15-851 15-854 #15-854 15-856 #15-856 15-858
#15-858 *15-860 #15-860 15-861 #15-861 15-862 15-863 15-866 #15-866
15-867 15-868 15-871 #15-871 15-885 #15-885 15-886 #15-886 15-887
#15-887 15-888 15-889 15-891 #15-891 15-892 #15-892 15-893 15-894
15-896 #15-896 *15-898 #15-898 15-900 #15-900 15-901 #15-901 #17-977
17-978 #17-978 17-979 17-980 17-982 #17-982 17-983 #17-983 17-984
17-985 17-990 #17-990 *17-996 #17-996 17-997 17-998 17-999 17-1001
#17-1001 17-1002 #17-1002 17-1003 17-1004 17-1006 #17-1006 17-1010 #17-1010
17-1011 #17-1011 17-1012 #17-1012 17-1013 17-1014 17-1018 #17-1018 17-1019
17-1020 17-1027 #17-1027 17-1028 #17-1028 17-1029 #17-1029 #19-1117 19-1118
LDLOAD CREATED BY MACRO ON 13-OCT-79 AT 11:49 PAGE 16
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#19-1118 19-1119 19-1120 19-1121 #19-1121 19-1122 19-1123 19-1127 #19-1127
*19-1129 #19-1129 19-1130 #19-1130 19-1131 #19-1131 19-1132 19-1133 19-1136
#19-1136 19-1137 #19-1137 19-1138 19-1139 *19-1145 #19-1145 19-1146 #19-1146
19-1147 19-1148 *19-1152 #19-1152 19-1153 #19-1153 19-1154 19-1155 19-1156
#19-1156 19-1157 19-1158 19-1162 #19-1162 19-1165 #19-1165 19-1166 #19-1166
#21-1275 21-1276 #21-1276 21-1277 21-1278 21-1280 #21-1280 21-1281 21-1282
21-1287 #21-1287 21-1290 #21-1290 21-1291 #21-1291 21-1292 #21-1292 21-1293
21-1294 21-1295 #21-1295 21-1296 21-1297 *21-1299 #21-1299 21-1300 21-1301
21-1305 #21-1305 *21-1308 #21-1308 21-1309 #21-1309 21-1312 #21-1312 21-1313
#21-1313 21-1314 #21-1314 21-1315 21-1316 *21-1321 #21-1321 22-1323 #22-1323
22-1324 22-1325 22-1326 #22-1326 22-1327 22-1329 22-1330 *22-1345 #22-1345
22-1346 22-1347 22-1349 #22-1349 *22-1351 #22-1351 22-1358 #22-1358 22-1361
#22-1361 22-1362 #22-1362 22-1363 #22-1363 22-1364 22-1365 22-1366 #22-1366
22-1367 22-1368 22-1371 #22-1371 22-1374 #22-1374 22-1375 #22-1375 #23-1432
#25-1512 25-1513 #25-1513 25-1514 25-1515 25-1520 #25-1520 25-1531 #25-1531
25-1532 25-1533 25-1536 #25-1536 25-1537 #25-1537 #27-1621 27-1622 #27-1622
27-1623 27-1624 27-1626 #27-1626 27-1627 #27-1627 27-1628 27-1629 *27-1635
#27-1635 27-1636 #27-1636 27-1637 27-1638 27-1639 #27-1639 27-1640 27-1641
27-1645 #27-1645 27-1646 #27-1646 27-1649 27-1650 27-1652 27-1652 #27-1652
27-1653 27-1654 27-1656 27-1656 #27-1656 27-1657 27-1658 27-1660 #27-1660
27-1662 27-1662 #27-1662 27-1664 #27-1664 27-1666 #27-1666 #29-1742 *29-1744
#29-1744 29-1745 29-1746 29-1747 #29-1747 29-1748 29-1749 29-1751 #29-1751
29-1756 #29-1756 29-1757 #29-1757 29-1758 #29-1758 29-1759 29-1760 29-1762
#29-1762 29-1763 29-1764 29-1766 #29-1766 29-1767 #29-1767 29-1768 29-1769
29-1771 #29-1771 29-1772 #29-1772 29-1773 29-1774 29-1776 #29-1776 29-1777
#29-1777 29-1778 29-1779 29-1780 29-1782 #29-1782 29-1783 #29-1783 29-1784
29-1785 29-1787 #29-1787 29-1788 #29-1788 #31-1891 31-1892 #31-1892 31-1893
31-1894 31-1896 #31-1896 31-1897 #31-1897 31-1898 31-1899 *31-1914 #31-1914
31-1915 #31-1915 31-1916 31-1917 31-1918 #31-1918 31-1919 31-1920 *31-1922
#31-1922 31-1923 31-1924 31-1927 #31-1927 *31-1931 #31-1931 31-1932 #31-1932
31-1937 #31-1937 31-1938 #31-1938 32-1940 #32-1940 32-1941 32-1942 32-1943
#32-1943 32-1944 32-1945 32-1946 #32-1946 32-1947 32-1948 32-1960 #32-1960
32-1963 #32-1963 32-1964 #32-1964 32-1967 #32-1967 32-1968 #32-1968 32-1969
#32-1969 32-1970 32-1971 32-1975 #32-1975 #33-2028 #35-2123 35-2130 #35-2130
35-2131 35-2132 35-2133 #35-2133 35-2134 35-2135 35-2138 #35-2138 *35-2140
#35-2140 35-2141 #35-2141 35-2142 35-2143 35-2144 #35-2144 35-2145 35-2146
35-2151 #35-2151 35-2152 #35-2152 35-2153 35-2154 35-2157 #35-2157 35-2158
#35-2158 35-2159 #35-2159 35-2160 #35-2160 35-2161 35-2162 35-2163 35-2168
#35-2168 35-2169 35-2170 35-2172 #35-2172 35-2173 35-2174 35-2175 #35-2175
35-2176 35-2177 35-2180 #35-2180 35-2185 #35-2185 35-2186 #35-2186 35-2187
#35-2187 35-2188 #35-2188 35-2189 #35-2189 35-2190 35-2191 35-2192 35-2193
#35-2193 35-2194 35-2195 35-2200 #35-2200 35-2202 #35-2202 35-2203 #35-2203
35-2204 #35-2204 35-2205 35-2206 35-2207 35-2212 #35-2212 35-2213 #35-2213
35-2214 35-2215 35-2216 35-2221 #35-2221 35-2222 #35-2222 35-2223 35-2224
35-2225 35-2228 #35-2228 35-2229 #35-2229 35-2230 #35-2230 35-2231 35-2232
35-2234 #35-2234 #37-2298 37-2300 #37-2300 37-2301 37-2302 37-2305 #37-2305
37-2306 37-2307 37-2310 #37-2310 37-2311 37-2312 37-2318 #37-2318 37-2319
#37-2319 37-2320 #37-2320 #39-2416 39-2417 #39-2417 39-2420 39-2421 39-2422
#39-2422 39-2423 39-2424 39-2427 #39-2427 39-2428 39-2429 39-2432 #39-2432
39-2433 #39-2433 39-2434 39-2434 #39-2434 39-2435 39-2436 *39-2438 #39-2438
39-2439 39-2440 39-2443 #39-2443 39-2444 39-2445 39-2447 #39-2447 *39-2449
#39-2449 39-2450 #39-2450 39-2453 #39-2453 39-2454 39-2454 #39-2454 39-2455
LDLOAD CREATED BY MACRO ON 13-OCT-79 AT 11:49 PAGE 17
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
39-2456 40-2460 40-2460 #40-2460 40-2461 40-2462 *40-2464 #40-2464 40-2465
40-2466 40-2468 #40-2468 *40-2470 #40-2470 40-2471 #40-2471 40-2472 40-2473
40-2476 #40-2476 40-2477 40-2477 #40-2477 40-2478 40-2479 40-2480 #40-2480
40-2481 40-2482 40-2486 #40-2486 40-2489 #40-2489 40-2491 40-2491 #40-2491
#42-2548 42-2549 #42-2549 42-2550 42-2551 *42-2553 #42-2553 42-2554 #42-2554
42-2555 42-2556 42-2558 #42-2558 42-2559 #42-2559 42-2560 42-2562 #42-2562
42-2563 #42-2563 42-2564 42-2566 #42-2566 42-2567 #42-2567 42-2568 42-2569
42-2571 #42-2571 #44-2649 44-2655 #44-2655 44-2656 44-2657 44-2658 #44-2658
44-2659 44-2660 44-2662 #44-2662 44-2663 44-2664 44-2665 #44-2665 44-2666
44-2667 44-2668 #44-2668 44-2669 44-2670 44-2671 #44-2671 44-2672 44-2673
44-2675 #44-2675 44-2677 #44-2677 44-2678 44-2679 *44-2684 #44-2684 44-2685
#44-2685 44-2686 #44-2686 *44-2688 #44-2688 44-2689 #44-2689 44-2690 #44-2690
44-2691 #44-2691 *44-2693 #44-2693 44-2694 #44-2694 #46-2808 46-2809 #46-2809
46-2810 46-2811 46-2812 46-2813 46-2819 #46-2819 46-2820 #46-2820 46-2821
46-2822 46-2823 #46-2823 46-2824 46-2825 46-2826 46-2827 46-2829 #46-2829
46-2830 46-2831 *46-2833 #46-2833 46-2834 46-2835 *46-2838 #46-2838 46-2839
46-2840 46-2846 #46-2846 46-2848 #46-2848 46-2853 #46-2853 *46-2857 #46-2857
46-2858 46-2859 46-2861 #46-2861 *46-2863 #46-2863 46-2867 #46-2867 46-2874
#46-2874 *46-2876 #46-2876 46-2877 #46-2877 46-2878 #46-2878 46-2879 #46-2879
46-2880 #46-2880 46-2881 46-2882 46-2885 #46-2885 #48-2940 48-2941 #48-2941
48-2942 48-2943 48-2946 #48-2946 48-2948 #48-2948 48-2949 #48-2949 48-2950
48-2951 48-2953 #48-2953
...PC1 = 000000 R 16-971 16-971 #16-971 16-971 16-971 16-971 #16-971
...PC2 = 001774 R #16-971 16-971 16-971 #16-971 16-971 16-971
...PC3 = 000000 #16-971 16-971
LDLOAD CREATED BY MACRO ON 13-OCT-79 AT 11:49 PAGE 18
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #8-293 #8-308 #8-313 #9-331 #9-333 #9-346 #9-353 #9-374 #9-379 #9-381
#11-493 #11-506 #11-512 #11-583 #13-696 #13-705 #13-711 #13-725 #13-738 #13-747
#13-756 #13-764 #15-876 #17-1017 #17-1025 #19-1135 #19-1149 #21-1279 #21-1289 #21-1311
#22-1360 #22-1373 #25-1526 #25-1530 #27-1625 #27-1632 #27-1663 #27-1665 #29-1750 #29-1765
#29-1770 #29-1775 #29-1781 #29-1786 #31-1895 #31-1907 #31-1934 #31-1936 #32-1954 #32-1962
#32-1966 #35-2129 #35-2150 #35-2167 #35-2171 #35-2184 #35-2199 #35-2201 #35-2211 #35-2220
#35-2233 #35-2236 #37-2299 #37-2304 #37-2309 #37-2317 #39-2426 #39-2431 #39-2452 #39-2458
#40-2467 #40-2474 #40-2475 #40-2488 #40-2490 #42-2557 #42-2561 #42-2565 #42-2570 #44-2654
#44-2661 #44-2676 #46-2828 #46-2845 #46-2852 #46-2866 #48-2947 #48-2952
CASE #5-103 #6-177 #8-286 #11-483 11-489 11-494 11-498 11-508 11-513 11-518
11-523 #13-676 #15-828 #17-977 #19-1117 #21-1275 #23-1432 #25-1512 #27-1621 27-1648
27-1652 27-1656 #29-1742 #31-1891 #33-2028 #35-2123 #37-2298 #39-2416 39-2419 39-2434
39-2454 40-2460 40-2477 #42-2548 #44-2649 #46-2808 #48-2940
CNFDF #12-665 #12-671
CONDF #6-167 6-172 #7-275 7-280 #10-473 10-478 #18-1107 18-1112 #20-1263 20-1268
#23-1423 23-1427 #24-1502 24-1506 #26-1610 26-1616 #28-1731 28-1735 #30-1880 30-1884
#34-2112 34-2116 #38-2405 38-2409 #43-2638 43-2642 #45-2797 45-2801 #47-2930 47-2934
CWORD$ #16-971 #16-971 #16-971
DO #5-103 #6-177 #8-286 #11-483 11-491 11-496 11-501 11-510 11-515 11-520
11-525 #13-676 #15-828 15-846 #17-977 17-999 #19-1117 #21-1275 #23-1432 #25-1512
#27-1621 27-1650 27-1654 27-1658 #29-1742 29-1780 #31-1891 #33-2028 #35-2123 #37-2298
#39-2416 39-2421 39-2436 39-2456 40-2462 40-2479 #42-2548 #44-2649 #46-2808 #48-2940
ELSE #5-103 #6-177 6-184 #8-286 8-294 9-330 9-362 9-367 9-377 #11-483
11-533 11-547 11-557 11-578 11-584 #13-676 13-689 13-713 13-727 13-763
#15-828 15-838 15-854 15-871 15-886 15-891 15-896 #17-977 17-982 17-990
17-1006 #19-1117 19-1127 19-1162 #21-1275 21-1287 21-1305 21-1309 22-1349 22-1358
22-1371 #23-1432 #25-1512 25-1520 #27-1621 27-1645 27-1660 #29-1742 29-1751 #31-1891
31-1927 31-1932 32-1960 32-1964 #33-2028 #35-2123 35-2138 35-2151 35-2180 35-2200
#37-2298 #39-2416 39-2447 39-2450 40-2468 40-2486 #42-2548 #44-2649 44-2675 44-2686
44-2691 #46-2808 46-2819 46-2846 46-2853 46-2861 46-2874 #48-2940 48-2946
ENDCAS #5-103 #6-177 #8-286 #11-483 11-528 #13-676 #15-828 #17-977 #19-1117 #21-1275
#23-1432 #25-1512 #27-1621 27-1662 #29-1742 #31-1891 #33-2028 #35-2123 #37-2298 #39-2416
40-2491 #42-2548 #44-2649 #46-2808 #48-2940
ENDIF #5-103 #6-177 #6-188 #8-286 #8-296 #8-297 #8-319 #9-334 #9-335 #9-365
#9-366 #9-369 #9-370 #9-375 #9-380 #9-382 #11-483 #11-507 #11-528 #11-536
#11-537 #11-564 #11-565 #11-566 #11-567 #11-587 #11-588 #11-589 #11-590 #13-676
#13-693 #13-715 #13-730 #13-731 #13-740 #13-749 #13-750 #13-752 #13-757 #13-765
#15-828 #15-856 #15-858 #15-860 #15-885 #15-898 #15-900 #15-901 #17-977 #17-1001
#17-1010 #17-1011 #17-1027 #17-1028 #17-1029 #19-1117 #19-1129 #19-1130 #19-1136 #19-1145
#19-1152 #19-1165 #19-1166 #21-1275 #21-1290 #21-1291 #21-1308 #21-1312 #21-1313 #21-1321
#22-1351 #22-1361 #22-1362 #22-1374 #22-1375 #23-1432 #25-1512 #25-1536 #25-1537 #27-1621
#27-1626 #27-1635 #27-1662 #27-1664 #27-1666 #29-1742 #29-1756 #29-1757 #29-1766 #29-1771
#29-1776 #29-1782 #29-1787 #29-1788 #31-1891 #31-1896 #31-1914 #31-1931 #31-1937 #31-1938
#32-1963 #32-1967 #32-1968 #32-1975 #33-2028 #35-2123 #35-2140 #35-2157 #35-2158 #35-2159
#35-2185 #35-2186 #35-2187 #35-2188 #35-2202 #35-2203 #35-2212 #35-2221 #35-2228 #35-2229
#35-2234 #37-2298 #37-2318 #37-2319 #37-2320 #39-2416 #39-2432 #39-2433 #39-2449 #39-2453
#40-2470 #40-2476 #40-2489 #40-2491 #42-2548 #42-2553 #42-2558 #42-2562 #42-2566 #42-2571
#44-2649 #44-2684 #44-2685 #44-2688 #44-2689 #44-2690 #44-2693 #44-2694 #46-2808 #46-2848
#46-2863 #46-2867 #46-2876 #46-2877 #46-2878 #46-2879 #46-2885 #48-2940 #48-2948 #48-2953
ENDPRO #5-103 5-108 #6-177 6-189 #8-286 9-383 #11-483 11-591 #13-676 13-766
#15-828 15-902 #17-977 17-1030 #19-1117 19-1167 #21-1275 22-1376 #23-1432 23-1436
#25-1512 25-1538 #27-1621 27-1667 #29-1742 29-1790 #31-1891 32-1976 #33-2028 33-2032
LDLOAD CREATED BY MACRO ON 13-OCT-79 AT 11:49 PAGE 19
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#35-2123 35-2239 #37-2298 37-2321 #39-2416 40-2492 #42-2548 42-2572 #44-2649 44-2696
#46-2808 46-2886 #48-2940 48-2954
ENDWHI #5-103 #6-177 #8-286 #11-483 #13-676 #15-828 #15-858 #17-977 #17-1001 #19-1117
#21-1275 #23-1432 #25-1512 #27-1621 #29-1742 #29-1782 #31-1891 #33-2028 #35-2123 #37-2298
#39-2416 #42-2548 #44-2649 #46-2808 #48-2940
FALSE #5-103 #6-177 6-181 #8-286 9-348 9-351 9-355 9-358 9-372 #11-483
11-490 11-495 11-500 11-509 11-514 11-519 11-524 11-552 11-559 #13-676
13-682 13-698 13-717 13-733 13-742 13-754 13-759 #15-828 15-833 15-841
15-844 15-845 15-850 15-862 15-867 15-888 #17-977 17-997 17-998 17-1003
17-1013 17-1019 #19-1117 19-1122 19-1157 #21-1275 21-1281 21-1300 22-1329 22-1346
#23-1432 #25-1512 25-1532 #27-1621 27-1649 27-1653 27-1657 #29-1742 29-1745 29-1759
#31-1891 #33-2028 #35-2123 35-2131 35-2142 35-2161 35-2169 35-2173 35-2176 35-2190
35-2205 35-2214 35-2223 35-2224 35-2231 #37-2298 37-2301 37-2306 37-2311 #39-2416
39-2420 39-2435 39-2444 39-2455 40-2461 40-2472 #42-2548 #44-2649 44-2656 44-2659
44-2663 44-2666 44-2678 #46-2808 46-2810 46-2811 46-2825 46-2834 46-2858 #48-2940
FALSEB #5-103 #6-177 #8-286 8-288 8-291 8-299 9-322 9-325 9-337 9-340
#11-483 11-485 11-503 11-530 11-539 11-542 11-549 11-569 11-574 11-580
#13-676 13-685 13-701 13-718 13-721 13-734 13-743 #15-828 15-893 #17-977
17-979 17-984 #19-1117 19-1119 19-1132 19-1138 19-1147 19-1154 #21-1275 21-1277
21-1293 21-1296 21-1315 22-1324 22-1327 22-1364 22-1367 #23-1432 #25-1512 25-1514
#27-1621 27-1623 27-1628 27-1637 27-1640 #29-1742 29-1748 29-1763 29-1768 29-1773
29-1778 29-1779 29-1784 #31-1891 31-1893 31-1898 31-1916 31-1919 31-1923 32-1941
32-1944 32-1947 32-1970 #33-2028 #35-2123 35-2134 35-2145 35-2153 35-2162 35-2191
35-2194 35-2206 35-2215 #37-2298 #39-2416 39-2423 39-2428 39-2439 40-2465 40-2478
40-2481 #42-2548 42-2550 42-2555 42-2560 42-2564 42-2568 #44-2649 44-2669 44-2672
#46-2808 46-2812 46-2821 46-2826 46-2830 46-2839 46-2881 #48-2940 48-2942 48-2950
IF #5-103 #6-177 #6-180 #8-286 #8-287 #8-290 #8-298 #9-321 #9-324 #9-336
#9-339 #9-347 #9-350 #9-354 #9-357 #9-371 #11-483 #11-484 #11-487 #11-502
#11-529 #11-538 #11-541 #11-548 #11-551 #11-558 #11-568 #11-571 #11-579 #13-676
#13-678 #13-684 #13-697 #13-700 #13-716 #13-720 #13-732 #13-741 #13-753 #13-758
#15-828 #15-832 #15-840 #15-849 #15-861 #15-866 #15-887 #15-892 #17-977 #17-978
#17-983 #17-996 #17-1002 #17-1012 #17-1018 #19-1117 #19-1118 #19-1121 #19-1131 #19-1137
#19-1146 #19-1153 #19-1156 #21-1275 #21-1276 #21-1280 #21-1292 #21-1295 #21-1299 #21-1314
#22-1323 #22-1326 #22-1345 #22-1363 #22-1366 #23-1432 #25-1512 #25-1513 #25-1531 #27-1621
#27-1622 #27-1627 #27-1636 #27-1639 #27-1646 #29-1742 #29-1744 #29-1747 #29-1758 #29-1762
#29-1767 #29-1772 #29-1777 #29-1783 #31-1891 #31-1892 #31-1897 #31-1915 #31-1918 #31-1922
#32-1940 #32-1943 #32-1946 #32-1969 #33-2028 #35-2123 #35-2130 #35-2133 #35-2141 #35-2144
#35-2152 #35-2160 #35-2168 #35-2172 #35-2175 #35-2189 #35-2193 #35-2204 #35-2213 #35-2222
#35-2230 #37-2298 #37-2300 #37-2305 #37-2310 #39-2416 #39-2417 #39-2422 #39-2427 #39-2438
#39-2443 #40-2464 #40-2471 #40-2480 #42-2548 #42-2549 #42-2554 #42-2559 #42-2563 #42-2567
#44-2649 #44-2655 #44-2658 #44-2662 #44-2665 #44-2668 #44-2671 #44-2677 #46-2808 #46-2809
#46-2820 #46-2823 #46-2829 #46-2833 #46-2838 #46-2857 #46-2880 #48-2940 #48-2941 #48-2949
JMPPRO #5-103 #6-177 #8-286 #11-483 #13-676 #15-828 #17-977 #19-1117 #21-1275 #23-1432
#25-1512 #27-1621 #29-1742 #31-1891 #33-2028 #35-2123 #37-2298 #39-2416 #42-2548 #44-2649
#46-2808 #48-2940
LBLDF$ #20-1263 #20-1270
LDDF #5-95 5-99 #6-167 6-173 #7-275 7-279 #10-473 10-477 #12-665 12-669
#14-818 14-822 #16-960 16-964 #18-1107 18-1111 #20-1263 20-1267 #23-1423 23-1428
#24-1502 24-1507 #26-1610 26-1614 #28-1731 28-1736 #30-1880 30-1885 #33-2020 33-2024
#34-2112 34-2117 #36-2289 36-2293 #38-2405 38-2410 #41-2539 41-2543 #43-2638 43-2643
#45-2797 45-2802 #47-2930 47-2935
LDFDF #16-960 16-965
LDLOAD CREATED BY MACRO ON 13-OCT-79 AT 11:49 PAGE 20
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
NBOFF$ #16-971 #16-971
NICDF #6-167 6-171 #7-275 7-281 #12-665 12-670 #14-818 14-823 #20-1263 20-1269
#26-1610 26-1615 #30-1880 30-1886 #34-2112 34-2118 #38-2405 38-2411 #43-2638 43-2644
#45-2797 45-2803
NMBLK$ #16-960 16-971
ONCASE #5-103 #6-177 #8-286 #11-483 11-487 #13-676 #15-828 #17-977 #19-1117 #21-1275
#23-1432 #25-1512 #27-1621 27-1646 #29-1742 #31-1891 #33-2028 #35-2123 #37-2298 #39-2416
39-2417 #42-2548 #44-2649 #46-2808 #48-2940
PRDF #28-1731 28-1737
PROC #4-50 29-1742
PROCLC #4-50 5-103 #5-103 6-177 #6-177 8-286 #8-286 11-483 #11-483 13-676
#13-676 15-828 #15-828 17-977 #17-977 19-1117 #19-1117 21-1275 #21-1275 23-1432
#23-1432 25-1512 #25-1512 27-1621 #27-1621 #29-1742 31-1891 #31-1891 33-2028 #33-2028
35-2123 #35-2123 37-2298 #37-2298 39-2416 #39-2416 42-2548 #42-2548 44-2649 #44-2649
46-2808 #46-2808 48-2940 #48-2940
RAD50$ #16-971 #16-971 #16-971
RESSTK #7-275 9-376 #12-665 13-751 #14-818 15-859 15-878 #34-2112 35-2238 #43-2638
44-2695
SAVSTK #7-275 9-342 #12-665 13-695 #14-818 15-839 15-873 #34-2112 35-2124 #43-2638
44-2650
SWSTK$ #5-103 #6-177 #8-286 #11-483 #13-676 #15-828 #17-977 #19-1117 #21-1275 #23-1432
#25-1512 #27-1621 #29-1742 #31-1891 #33-2028 #35-2123 #37-2298 #39-2416 #42-2548 #44-2649
#46-2808 #48-2940
THEN #5-103 #6-177 #6-182 #8-286 #8-289 #8-292 #8-300 #9-323 #9-326 #9-338
#9-341 #9-349 #9-352 #9-356 #9-359 #9-373 #11-483 #11-486 #11-491 #11-496
#11-501 #11-504 #11-510 #11-515 #11-520 #11-525 #11-531 #11-540 #11-543 #11-550
#11-553 #11-560 #11-570 #11-575 #11-581 #13-676 #13-683 #13-686 #13-699 #13-702
#13-719 #13-722 #13-735 #13-744 #13-755 #13-760 #15-828 #15-834 #15-846 #15-851
#15-863 #15-868 #15-889 #15-894 #17-977 #17-980 #17-985 #17-999 #17-1004 #17-1014
#17-1020 #19-1117 #19-1120 #19-1123 #19-1133 #19-1139 #19-1148 #19-1155 #19-1158 #21-1275
#21-1278 #21-1282 #21-1294 #21-1297 #21-1301 #21-1316 #22-1325 #22-1330 #22-1347 #22-1365
#22-1368 #23-1432 #25-1512 #25-1515 #25-1533 #27-1621 #27-1624 #27-1629 #27-1638 #27-1641
#27-1650 #27-1654 #27-1658 #29-1742 #29-1746 #29-1749 #29-1760 #29-1764 #29-1769 #29-1774
#29-1780 #29-1785 #31-1891 #31-1894 #31-1899 #31-1917 #31-1920 #31-1924 #32-1942 #32-1945
#32-1948 #32-1971 #33-2028 #35-2123 #35-2132 #35-2135 #35-2143 #35-2146 #35-2154 #35-2163
#35-2170 #35-2174 #35-2177 #35-2192 #35-2195 #35-2207 #35-2216 #35-2225 #35-2232 #37-2298
#37-2302 #37-2307 #37-2312 #39-2416 #39-2421 #39-2424 #39-2429 #39-2436 #39-2440 #39-2445
#39-2456 #40-2462 #40-2466 #40-2473 #40-2479 #40-2482 #42-2548 #42-2551 #42-2556 #42-2569
#44-2649 #44-2657 #44-2660 #44-2664 #44-2667 #44-2670 #44-2673 #44-2679 #46-2808 #46-2813
#46-2822 #46-2827 #46-2831 #46-2835 #46-2840 #46-2859 #46-2882 #48-2940 #48-2943 #48-2951
TRUE #5-103 #6-177 #8-286 #11-483 #11-499 #13-676 #13-679 #13-680 #13-681 #15-828
#17-977 #19-1117 #21-1275 #23-1432 #25-1512 #27-1621 #29-1742 #31-1891 #33-2028 #35-2123
#37-2298 #39-2416 #42-2548 #44-2649 #46-2808 #46-2824 #48-2940
TRUEB #5-103 #6-177 #8-286 #11-483 #11-573 #13-676 #15-828 #17-977 #19-1117 #21-1275
#23-1432 #25-1512 #27-1621 #29-1742 #31-1891 #33-2028 #35-2123 #37-2298 #39-2416 #42-2548
#44-2649 #46-2808 #48-2940
WHILE #5-103 #6-177 #8-286 #11-483 #13-676 #15-828 15-840 #17-977 17-996 #19-1117
#21-1275 #23-1432 #25-1512 #27-1621 #29-1742 29-1777 #31-1891 #33-2028 #35-2123 #37-2298
#39-2416 #42-2548 #44-2649 #46-2808 #48-2940
$$BGND #5-103 #6-177 #6-181 #8-286 #8-288 #8-291 #8-299 #9-322 #9-325 #9-337
#9-340 #9-348 #9-351 #9-355 #9-358 #9-372 #11-483 #11-485 #11-490 #11-495
#11-499 #11-500 #11-503 #11-509 #11-514 #11-519 #11-524 #11-530 #11-539 #11-542
LDLOAD CREATED BY MACRO ON 13-OCT-79 AT 11:49 PAGE 21
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#11-549 #11-552 #11-559 #11-569 #11-573 #11-574 #11-580 #13-676 #13-679 #13-680
#13-681 #13-682 #13-685 #13-698 #13-701 #13-717 #13-718 #13-721 #13-733 #13-734
#13-742 #13-743 #13-754 #13-759 #15-828 #15-833 #15-841 #15-844 #15-845 #15-850
#15-862 #15-867 #15-888 #15-893 #17-977 #17-979 #17-984 #17-997 #17-998 #17-1003
#17-1013 #17-1019 #19-1117 #19-1119 #19-1122 #19-1132 #19-1138 #19-1147 #19-1154 #19-1157
#21-1275 #21-1277 #21-1281 #21-1293 #21-1296 #21-1300 #21-1315 #22-1324 #22-1327 #22-1329
#22-1346 #22-1364 #22-1367 #23-1432 #25-1512 #25-1514 #25-1532 #27-1621 #27-1623 #27-1628
#27-1637 #27-1640 #27-1649 #27-1653 #27-1657 #29-1742 #29-1745 #29-1748 #29-1759 #29-1763
#29-1768 #29-1773 #29-1778 #29-1779 #29-1784 #31-1891 #31-1893 #31-1898 #31-1916 #31-1919
#31-1923 #32-1941 #32-1944 #32-1947 #32-1970 #33-2028 #35-2123 #35-2131 #35-2134 #35-2142
#35-2145 #35-2153 #35-2161 #35-2162 #35-2169 #35-2173 #35-2176 #35-2190 #35-2191 #35-2194
#35-2205 #35-2206 #35-2214 #35-2215 #35-2223 #35-2224 #35-2231 #37-2298 #37-2301 #37-2306
#37-2311 #39-2416 #39-2420 #39-2423 #39-2428 #39-2435 #39-2439 #39-2444 #39-2455 #40-2461
#40-2465 #40-2472 #40-2478 #40-2481 #42-2548 #42-2550 #42-2555 #42-2560 #42-2564 #42-2568
#44-2649 #44-2656 #44-2659 #44-2663 #44-2666 #44-2669 #44-2672 #44-2678 #46-2808 #46-2810
#46-2811 #46-2812 #46-2821 #46-2824 #46-2825 #46-2826 #46-2830 #46-2834 #46-2839 #46-2858
#46-2881 #48-2940 #48-2942 #48-2950
$$BGNN #5-103 #6-177 6-181 6-184 #8-286 8-288 8-291 8-294 8-299 9-322
9-325 9-330 9-337 9-340 9-348 9-351 9-355 9-358 9-362 9-367
9-372 9-377 #11-483 11-485 11-490 11-494 11-495 11-498 11-499 11-500
11-503 11-508 11-509 11-513 11-514 11-518 11-519 11-523 11-524 11-530
11-533 11-539 11-542 11-547 11-549 11-552 11-557 11-559 11-569 11-573
11-574 11-578 11-580 11-584 #13-676 13-679 13-680 13-681 13-682 13-685
13-689 13-698 13-701 13-713 13-717 13-718 13-721 13-727 13-733 13-734
13-742 13-743 13-754 13-759 13-763 #15-828 15-833 15-838 15-841 15-844
15-845 15-850 15-854 15-858 15-862 15-867 15-871 15-886 15-888 15-891
15-893 15-896 #17-977 17-979 17-982 17-984 17-990 17-997 17-998 17-1001
17-1003 17-1006 17-1013 17-1019 #19-1117 19-1119 19-1122 19-1127 19-1132 19-1138
19-1147 19-1154 19-1157 19-1162 #21-1275 21-1277 21-1281 21-1287 21-1293 21-1296
21-1300 21-1305 21-1309 21-1315 22-1324 22-1327 22-1329 22-1346 22-1349 22-1358
22-1364 22-1367 22-1371 #23-1432 #25-1512 25-1514 25-1520 25-1532 #27-1621 27-1623
27-1628 27-1637 27-1640 27-1645 27-1649 27-1652 27-1653 27-1656 27-1657 27-1660
#29-1742 29-1745 29-1748 29-1751 29-1759 29-1763 29-1768 29-1773 29-1778 29-1779
29-1782 29-1784 #31-1891 31-1893 31-1898 31-1916 31-1919 31-1923 31-1927 31-1932
32-1941 32-1944 32-1947 32-1960 32-1964 32-1970 #33-2028 #35-2123 35-2131 35-2134
35-2138 35-2142 35-2145 35-2151 35-2153 35-2161 35-2162 35-2169 35-2173 35-2176
35-2180 35-2190 35-2191 35-2194 35-2200 35-2205 35-2206 35-2214 35-2215 35-2223
35-2224 35-2231 #37-2298 37-2301 37-2306 37-2311 #39-2416 39-2420 39-2423 39-2428
39-2434 39-2435 39-2439 39-2444 39-2447 39-2450 39-2454 39-2455 40-2460 40-2461
40-2465 40-2468 40-2472 40-2477 40-2478 40-2481 40-2486 #42-2548 42-2550 42-2555
42-2560 42-2564 42-2568 #44-2649 44-2656 44-2659 44-2663 44-2666 44-2669 44-2672
44-2675 44-2678 44-2686 44-2691 #46-2808 46-2810 46-2811 46-2812 46-2819 46-2821
46-2824 46-2825 46-2826 46-2830 46-2834 46-2839 46-2846 46-2853 46-2858 46-2861
46-2874 46-2881 #48-2940 48-2942 48-2946 48-2950
$$ELSE #5-103 #6-177 6-184 #8-286 8-294 9-330 9-362 9-367 9-377 #11-483
11-494 11-498 11-508 11-513 11-518 11-523 11-533 11-547 11-557 11-578
11-584 #13-676 13-689 13-713 13-727 13-763 #15-828 15-838 15-854 15-871
15-886 15-891 15-896 #17-977 17-982 17-990 17-1006 #19-1117 19-1127 19-1162
#21-1275 21-1287 21-1305 21-1309 22-1349 22-1358 22-1371 #23-1432 #25-1512 25-1520
#27-1621 27-1645 27-1652 27-1656 27-1660 #29-1742 29-1751 #31-1891 31-1927 31-1932
32-1960 32-1964 #33-2028 #35-2123 35-2138 35-2151 35-2180 35-2200 #37-2298 #39-2416
39-2434 39-2447 39-2450 39-2454 40-2460 40-2468 40-2477 40-2486 #42-2548 #44-2649
LDLOAD CREATED BY MACRO ON 13-OCT-79 AT 11:49 PAGE 22
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
44-2675 44-2686 44-2691 #46-2808 46-2819 46-2846 46-2853 46-2861 46-2874 #48-2940
48-2946
$$GEN1 #5-103 #5-103 #5-108 #6-177 #6-177 #6-181 #6-181 #6-182 #6-184 #6-184
#6-188 #6-189 #8-286 #8-286 #8-288 #8-288 #8-289 #8-291 #8-292 #8-294
#8-294 #8-296 #8-297 #8-299 #8-300 #8-319 #9-322 #9-323 #9-325 #9-325
#9-326 #9-330 #9-330 #9-334 #9-335 #9-337 #9-338 #9-340 #9-340 #9-341
#9-348 #9-349 #9-351 #9-351 #9-352 #9-355 #9-356 #9-358 #9-359 #9-362
#9-362 #9-365 #9-366 #9-367 #9-367 #9-369 #9-370 #9-372 #9-373 #9-375
#9-377 #9-377 #9-380 #9-382 #9-383 #11-483 #11-483 #11-485 #11-485 #11-486
#11-490 #11-491 #11-494 #11-494 #11-495 #11-496 #11-498 #11-498 #11-499 #11-500
#11-501 #11-503 #11-504 #11-507 #11-508 #11-508 #11-509 #11-510 #11-513 #11-513
#11-514 #11-515 #11-518 #11-518 #11-519 #11-520 #11-523 #11-523 #11-524 #11-525
#11-528 #11-528 #11-530 #11-531 #11-533 #11-533 #11-536 #11-537 #11-539 #11-539
#11-540 #11-542 #11-542 #11-543 #11-547 #11-547 #11-549 #11-549 #11-550 #11-552
#11-552 #11-553 #11-557 #11-557 #11-559 #11-559 #11-560 #11-564 #11-565 #11-566
#11-567 #11-569 #11-569 #11-570 #11-573 #11-574 #11-574 #11-575 #11-578 #11-578
#11-580 #11-580 #11-581 #11-584 #11-584 #11-587 #11-588 #11-589 #11-590 #11-591
#13-676 #13-676 #13-679 #13-680 #13-681 #13-682 #13-683 #13-685 #13-686 #13-689
#13-689 #13-693 #13-698 #13-699 #13-701 #13-702 #13-713 #13-713 #13-715 #13-717
#13-718 #13-719 #13-721 #13-722 #13-727 #13-727 #13-730 #13-731 #13-733 #13-734
#13-735 #13-740 #13-742 #13-743 #13-744 #13-749 #13-750 #13-752 #13-754 #13-755
#13-757 #13-759 #13-760 #13-763 #13-763 #13-765 #13-766 #15-828 #15-828 #15-833
#15-834 #15-838 #15-838 #15-840 #15-841 #15-844 #15-845 #15-846 #15-850 #15-851
#15-854 #15-854 #15-856 #15-858 #15-858 #15-860 #15-862 #15-862 #15-863 #15-867
#15-868 #15-871 #15-871 #15-885 #15-886 #15-886 #15-888 #15-889 #15-891 #15-891
#15-893 #15-894 #15-896 #15-896 #15-898 #15-900 #15-901 #15-902 #17-977 #17-977
#17-979 #17-979 #17-980 #17-982 #17-982 #17-984 #17-985 #17-990 #17-990 #17-996
#17-997 #17-998 #17-999 #17-1001 #17-1001 #17-1003 #17-1004 #17-1006 #17-1006 #17-1010
#17-1011 #17-1013 #17-1014 #17-1019 #17-1020 #17-1027 #17-1028 #17-1029 #17-1030 #19-1117
#19-1117 #19-1119 #19-1119 #19-1120 #19-1122 #19-1122 #19-1123 #19-1127 #19-1127 #19-1129
#19-1130 #19-1132 #19-1133 #19-1136 #19-1138 #19-1139 #19-1145 #19-1147 #19-1148 #19-1152
#19-1154 #19-1155 #19-1157 #19-1157 #19-1158 #19-1162 #19-1162 #19-1165 #19-1166 #19-1167
#21-1275 #21-1275 #21-1277 #21-1277 #21-1278 #21-1281 #21-1282 #21-1287 #21-1287 #21-1290
#21-1291 #21-1293 #21-1294 #21-1296 #21-1296 #21-1297 #21-1300 #21-1300 #21-1301 #21-1305
#21-1305 #21-1308 #21-1309 #21-1309 #21-1312 #21-1313 #21-1315 #21-1316 #21-1321 #22-1324
#22-1325 #22-1327 #22-1327 #22-1329 #22-1330 #22-1346 #22-1347 #22-1349 #22-1349 #22-1351
#22-1358 #22-1358 #22-1361 #22-1362 #22-1364 #22-1365 #22-1367 #22-1367 #22-1368 #22-1371
#22-1371 #22-1374 #22-1375 #22-1376 #23-1432 #23-1432 #23-1436 #25-1512 #25-1512 #25-1514
#25-1515 #25-1520 #25-1520 #25-1532 #25-1533 #25-1536 #25-1537 #25-1538 #27-1621 #27-1621
#27-1623 #27-1623 #27-1624 #27-1626 #27-1628 #27-1629 #27-1635 #27-1637 #27-1638 #27-1640
#27-1640 #27-1641 #27-1645 #27-1645 #27-1649 #27-1650 #27-1652 #27-1652 #27-1653 #27-1654
#27-1656 #27-1656 #27-1657 #27-1658 #27-1660 #27-1660 #27-1662 #27-1664 #27-1666 #27-1667
#29-1742 #29-1742 #29-1745 #29-1745 #29-1746 #29-1748 #29-1749 #29-1751 #29-1751 #29-1756
#29-1757 #29-1759 #29-1759 #29-1760 #29-1763 #29-1764 #29-1766 #29-1768 #29-1769 #29-1771
#29-1773 #29-1774 #29-1776 #29-1777 #29-1778 #29-1779 #29-1779 #29-1780 #29-1782 #29-1782
#29-1784 #29-1785 #29-1787 #29-1788 #29-1790 #31-1891 #31-1891 #31-1893 #31-1893 #31-1894
#31-1896 #31-1898 #31-1899 #31-1914 #31-1916 #31-1917 #31-1919 #31-1919 #31-1920 #31-1923
#31-1924 #31-1927 #31-1927 #31-1931 #31-1932 #31-1932 #31-1937 #31-1938 #32-1941 #32-1942
#32-1944 #32-1944 #32-1945 #32-1947 #32-1947 #32-1948 #32-1960 #32-1960 #32-1963 #32-1964
#32-1964 #32-1967 #32-1968 #32-1970 #32-1971 #32-1975 #32-1976 #33-2028 #33-2028 #33-2032
#35-2123 #35-2123 #35-2131 #35-2132 #35-2134 #35-2135 #35-2138 #35-2138 #35-2140 #35-2142
#35-2143 #35-2145 #35-2146 #35-2151 #35-2151 #35-2153 #35-2154 #35-2157 #35-2158 #35-2159
LDLOAD CREATED BY MACRO ON 13-OCT-79 AT 11:49 PAGE 23
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#35-2161 #35-2162 #35-2163 #35-2169 #35-2170 #35-2173 #35-2174 #35-2176 #35-2177 #35-2180
#35-2180 #35-2185 #35-2186 #35-2187 #35-2188 #35-2190 #35-2191 #35-2192 #35-2194 #35-2195
#35-2200 #35-2200 #35-2202 #35-2203 #35-2205 #35-2206 #35-2207 #35-2212 #35-2214 #35-2215
#35-2216 #35-2221 #35-2223 #35-2224 #35-2225 #35-2228 #35-2229 #35-2231 #35-2232 #35-2234
#35-2239 #37-2298 #37-2298 #37-2301 #37-2302 #37-2306 #37-2307 #37-2311 #37-2312 #37-2318
#37-2319 #37-2320 #37-2321 #39-2416 #39-2416 #39-2420 #39-2421 #39-2423 #39-2424 #39-2428
#39-2428 #39-2429 #39-2432 #39-2433 #39-2434 #39-2434 #39-2435 #39-2436 #39-2439 #39-2439
#39-2440 #39-2444 #39-2445 #39-2447 #39-2447 #39-2449 #39-2450 #39-2450 #39-2453 #39-2454
#39-2454 #39-2455 #39-2456 #40-2460 #40-2460 #40-2461 #40-2462 #40-2465 #40-2465 #40-2466
#40-2468 #40-2468 #40-2470 #40-2472 #40-2472 #40-2473 #40-2476 #40-2477 #40-2477 #40-2478
#40-2479 #40-2481 #40-2481 #40-2482 #40-2486 #40-2486 #40-2489 #40-2491 #40-2491 #40-2492
#42-2548 #42-2548 #42-2550 #42-2550 #42-2551 #42-2553 #42-2555 #42-2556 #42-2558 #42-2560
#42-2562 #42-2564 #42-2566 #42-2568 #42-2569 #42-2571 #42-2572 #44-2649 #44-2649 #44-2656
#44-2657 #44-2659 #44-2659 #44-2660 #44-2663 #44-2664 #44-2666 #44-2666 #44-2667 #44-2669
#44-2670 #44-2672 #44-2673 #44-2675 #44-2675 #44-2678 #44-2679 #44-2684 #44-2685 #44-2686
#44-2686 #44-2688 #44-2689 #44-2690 #44-2691 #44-2691 #44-2693 #44-2694 #44-2696 #46-2808
#46-2808 #46-2810 #46-2810 #46-2811 #46-2811 #46-2812 #46-2813 #46-2819 #46-2819 #46-2821
#46-2822 #46-2824 #46-2824 #46-2825 #46-2825 #46-2826 #46-2827 #46-2830 #46-2831 #46-2834
#46-2834 #46-2835 #46-2839 #46-2840 #46-2846 #46-2846 #46-2848 #46-2853 #46-2853 #46-2858
#46-2859 #46-2861 #46-2861 #46-2863 #46-2867 #46-2874 #46-2874 #46-2876 #46-2877 #46-2878
#46-2879 #46-2881 #46-2881 #46-2882 #46-2885 #46-2886 #48-2940 #48-2940 #48-2942 #48-2942
#48-2943 #48-2946 #48-2946 #48-2948 #48-2950 #48-2950 #48-2951 #48-2953 #48-2954
$$GEN2 #5-103 #6-177 #8-286 8-291 8-299 9-322 9-337 9-358 #11-483 11-490
11-495 11-499 11-500 11-503 11-509 11-514 11-519 11-524 11-530 11-573
#13-676 13-679 13-680 13-681 13-682 13-685 13-701 13-718 13-721 13-734
13-743 #15-828 15-841 15-845 15-867 15-888 15-893 #17-977 17-984 17-997
17-998 17-1003 #19-1117 19-1132 19-1138 19-1147 19-1154 #21-1275 21-1293 21-1315
22-1324 22-1329 22-1364 #23-1432 #25-1512 25-1514 #27-1621 27-1628 27-1637 27-1649
27-1653 27-1657 #29-1742 29-1748 29-1763 29-1768 29-1773 29-1778 29-1784 #31-1891
31-1898 31-1916 31-1923 32-1941 32-1970 #33-2028 #35-2123 35-2134 35-2145 35-2153
35-2162 35-2176 35-2191 35-2194 35-2206 35-2215 35-2224 #37-2298 #39-2416 39-2420
39-2423 39-2435 39-2455 40-2461 40-2478 #42-2548 42-2555 42-2560 42-2564 42-2568
#44-2649 44-2669 44-2672 #46-2808 46-2812 46-2821 46-2826 46-2830 46-2839 46-2858
#48-2940
$$GNAB #5-103 #6-177 #8-286 8-299 9-322 9-325 9-337 9-340 9-348 9-351
9-355 9-358 9-372 #11-483 11-490 11-495 11-499 11-500 11-503 11-509
11-514 11-519 11-524 11-530 11-574 #13-676 13-698 13-717 13-733 13-742
13-754 13-759 #15-828 15-841 15-845 15-850 15-867 15-888 #17-977 17-984
17-997 17-998 17-1003 17-1013 17-1019 #19-1117 19-1132 19-1138 19-1147 19-1154
#21-1275 21-1281 21-1293 21-1296 21-1315 22-1324 22-1327 22-1346 22-1364 22-1367
#23-1432 #25-1512 25-1514 25-1532 #27-1621 27-1628 27-1637 27-1640 27-1649 27-1653
27-1657 #29-1742 29-1748 29-1763 29-1768 29-1773 29-1778 29-1779 29-1784 #31-1891
31-1898 31-1916 31-1919 32-1941 32-1944 32-1947 32-1970 #33-2028 #35-2123 35-2131
35-2142 35-2161 35-2169 35-2173 35-2176 35-2190 35-2205 35-2214 35-2223 35-2224
35-2231 #37-2298 37-2301 37-2306 37-2311 #39-2416 39-2420 39-2423 39-2428 39-2435
39-2439 39-2444 39-2455 40-2461 40-2465 40-2478 40-2481 #42-2548 42-2555 42-2560
42-2564 42-2568 #44-2649 44-2656 44-2663 44-2666 44-2672 44-2678 #46-2808 46-2810
46-2811 46-2821 46-2824 46-2825 46-2830 46-2834 46-2839 46-2858 46-2881 #48-2940
48-2950
$$GNBT #5-103 #6-177 #6-181 #8-286 #8-288 #8-291 #11-483 #11-485 #11-539 #11-542
#11-549 #11-552 #11-559 #11-569 #11-573 #11-580 #13-676 #13-679 #13-680 #13-681
#13-682 #13-685 #13-701 #13-718 #13-721 #13-734 #13-743 #15-828 #15-833 #15-844
LDLOAD CREATED BY MACRO ON 13-OCT-79 AT 11:49 PAGE 24
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#15-862 #15-893 #17-977 #17-979 #19-1117 #19-1119 #19-1122 #19-1157 #21-1275 #21-1277
#21-1300 #22-1329 #23-1432 #25-1512 #27-1621 #27-1623 #29-1742 #29-1745 #29-1759 #31-1891
#31-1893 #31-1923 #33-2028 #35-2123 #35-2134 #35-2145 #35-2153 #35-2162 #35-2191 #35-2194
#35-2206 #35-2215 #37-2298 #39-2416 #40-2472 #42-2548 #42-2550 #44-2649 #44-2659 #44-2669
#46-2808 #46-2812 #46-2826 #48-2940 #48-2942
$$GNCM #5-103 #6-177 #6-181 #8-286 #8-288 #8-291 #8-299 #9-322 #9-325 #9-337
#9-340 #9-348 #9-351 #9-355 #9-358 #9-372 #11-483 #11-485 #11-490 #11-495
#11-499 #11-500 #11-503 #11-509 #11-514 #11-519 #11-524 #11-530 #11-539 #11-542
#11-549 #11-552 #11-559 #11-569 #11-573 #11-574 #11-580 #13-676 #13-679 #13-680
#13-681 #13-682 #13-685 #13-698 #13-701 #13-717 #13-718 #13-721 #13-733 #13-734
#13-742 #13-743 #13-754 #13-759 #15-828 #15-833 #15-841 #15-844 #15-845 #15-850
#15-862 #15-867 #15-888 #15-893 #17-977 #17-979 #17-984 #17-997 #17-998 #17-1003
#17-1013 #17-1019 #19-1117 #19-1119 #19-1122 #19-1132 #19-1138 #19-1147 #19-1154 #19-1157
#21-1275 #21-1277 #21-1281 #21-1293 #21-1296 #21-1300 #21-1315 #22-1324 #22-1327 #22-1329
#22-1346 #22-1364 #22-1367 #23-1432 #25-1512 #25-1514 #25-1532 #27-1621 #27-1623 #27-1628
#27-1637 #27-1640 #27-1649 #27-1653 #27-1657 #29-1742 #29-1745 #29-1748 #29-1759 #29-1763
#29-1768 #29-1773 #29-1778 #29-1779 #29-1784 #31-1891 #31-1893 #31-1898 #31-1916 #31-1919
#31-1923 #32-1941 #32-1944 #32-1947 #32-1970 #33-2028 #35-2123 #35-2131 #35-2134 #35-2142
#35-2145 #35-2153 #35-2161 #35-2162 #35-2169 #35-2173 #35-2176 #35-2190 #35-2191 #35-2194
#35-2205 #35-2206 #35-2214 #35-2215 #35-2223 #35-2224 #35-2231 #37-2298 #37-2301 #37-2306
#37-2311 #39-2416 #39-2420 #39-2423 #39-2428 #39-2435 #39-2439 #39-2444 #39-2455 #40-2461
#40-2465 #40-2472 #40-2478 #40-2481 #42-2548 #42-2550 #42-2555 #42-2560 #42-2564 #42-2568
#44-2649 #44-2656 #44-2659 #44-2663 #44-2666 #44-2669 #44-2672 #44-2678 #46-2808 #46-2810
#46-2811 #46-2812 #46-2821 #46-2824 #46-2825 #46-2826 #46-2830 #46-2834 #46-2839 #46-2858
#46-2881 #48-2940 #48-2942 #48-2950
$$INMC #5-103 5-103 #6-177 6-177 #8-286 8-286 #11-483 11-483 #13-676 13-676
#15-828 15-828 #17-977 17-977 #19-1117 19-1117 #21-1275 21-1275 #23-1432 23-1432
#25-1512 25-1512 #27-1621 27-1621 #29-1742 29-1742 #31-1891 31-1891 #33-2028 33-2028
#35-2123 35-2123 #37-2298 37-2298 #39-2416 39-2416 #42-2548 42-2548 #44-2649 44-2649
#46-2808 46-2808 #48-2940 48-2940
$$INSY #5-103 5-103 #6-177 6-177 #8-286 8-286 #11-483 11-483 #13-676 13-676
#15-828 15-828 #17-977 17-977 #19-1117 19-1117 #21-1275 21-1275 #23-1432 23-1432
#25-1512 25-1512 #27-1621 27-1621 #29-1742 29-1742 #31-1891 31-1891 #33-2028 33-2028
#35-2123 35-2123 #37-2298 37-2298 #39-2416 39-2416 #42-2548 42-2548 #44-2649 44-2649
#46-2808 46-2808 #48-2940 48-2940
$$LAB #5-103 #6-177 6-182 6-184 6-188 #8-286 8-289 8-292 8-294 8-296
8-297 8-300 8-319 9-323 9-326 9-330 9-334 9-335 9-338 9-341
9-349 9-352 9-356 9-359 9-362 9-365 9-366 9-367 9-369 9-370
9-373 9-375 9-377 9-380 9-382 #11-483 11-486 11-491 11-494 11-496
11-498 11-501 11-504 11-507 11-508 11-510 11-513 11-515 11-518 11-520
11-523 11-525 11-528 11-528 11-531 11-533 11-536 11-537 11-540 11-543
11-547 11-550 11-553 11-557 11-560 11-564 11-565 11-566 11-567 11-570
11-575 11-578 11-581 11-584 11-587 11-588 11-589 11-590 #13-676 13-683
13-686 13-689 13-693 13-699 13-702 13-713 13-715 13-719 13-722 13-727
13-730 13-731 13-735 13-740 13-744 13-749 13-750 13-752 13-755 13-757
13-760 13-763 13-765 #15-828 15-834 15-838 15-840 15-846 15-851 15-854
15-856 15-858 15-860 15-863 15-868 15-871 15-885 15-886 15-889 15-891
15-894 15-896 15-898 15-900 15-901 #17-977 17-980 17-982 17-985 17-990
17-996 17-999 17-1001 17-1004 17-1006 17-1010 17-1011 17-1014 17-1020 17-1027
17-1028 17-1029 #19-1117 19-1120 19-1123 19-1127 19-1129 19-1130 19-1133 19-1136
19-1139 19-1145 19-1148 19-1152 19-1155 19-1158 19-1162 19-1165 19-1166 #21-1275
21-1278 21-1282 21-1287 21-1290 21-1291 21-1294 21-1297 21-1301 21-1305 21-1308
LDLOAD CREATED BY MACRO ON 13-OCT-79 AT 11:49 PAGE 25
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
21-1309 21-1312 21-1313 21-1316 21-1321 22-1325 22-1330 22-1347 22-1349 22-1351
22-1358 22-1361 22-1362 22-1365 22-1368 22-1371 22-1374 22-1375 #23-1432 #25-1512
25-1515 25-1520 25-1533 25-1536 25-1537 #27-1621 27-1624 27-1626 27-1629 27-1635
27-1638 27-1641 27-1645 27-1650 27-1652 27-1654 27-1656 27-1658 27-1660 27-1662
27-1664 27-1666 #29-1742 29-1746 29-1749 29-1751 29-1756 29-1757 29-1760 29-1764
29-1766 29-1769 29-1771 29-1774 29-1776 29-1777 29-1780 29-1782 29-1785 29-1787
29-1788 #31-1891 31-1894 31-1896 31-1899 31-1914 31-1917 31-1920 31-1924 31-1927
31-1931 31-1932 31-1937 31-1938 32-1942 32-1945 32-1948 32-1960 32-1963 32-1964
32-1967 32-1968 32-1971 32-1975 #33-2028 #35-2123 35-2132 35-2135 35-2138 35-2140
35-2143 35-2146 35-2151 35-2154 35-2157 35-2158 35-2159 35-2163 35-2170 35-2174
35-2177 35-2180 35-2185 35-2186 35-2187 35-2188 35-2192 35-2195 35-2200 35-2202
35-2203 35-2207 35-2212 35-2216 35-2221 35-2225 35-2228 35-2229 35-2232 35-2234
#37-2298 37-2302 37-2307 37-2312 37-2318 37-2319 37-2320 #39-2416 39-2421 39-2424
39-2429 39-2432 39-2433 39-2434 39-2436 39-2440 39-2445 39-2447 39-2449 39-2450
39-2453 39-2454 39-2456 40-2460 40-2462 40-2466 40-2468 40-2470 40-2473 40-2476
40-2477 40-2479 40-2482 40-2486 40-2489 40-2491 40-2491 #42-2548 42-2551 42-2553
42-2556 42-2558 42-2562 42-2566 42-2569 42-2571 #44-2649 44-2657 44-2660 44-2664
44-2667 44-2670 44-2673 44-2675 44-2679 44-2684 44-2685 44-2686 44-2688 44-2689
44-2690 44-2691 44-2693 44-2694 #46-2808 46-2813 46-2819 46-2822 46-2827 46-2831
46-2835 46-2840 46-2846 46-2848 46-2853 46-2859 46-2861 46-2863 46-2867 46-2874
46-2876 46-2877 46-2878 46-2879 46-2882 46-2885 #48-2940 48-2943 48-2946 48-2948
48-2951 48-2953
$$POP #5-103 #6-177 6-188 6-188 #8-286 8-296 8-296 8-297 8-297 8-319
8-319 9-334 9-334 9-335 9-335 9-365 9-365 9-366 9-366 9-369
9-369 9-370 9-370 9-375 9-375 9-380 9-380 9-382 9-382 #11-483
11-507 11-507 11-528 11-528 11-528 11-536 11-536 11-537 11-537 11-564
11-564 11-565 11-565 11-566 11-566 11-567 11-567 11-587 11-587 11-588
11-588 11-589 11-589 11-590 11-590 #13-676 13-693 13-693 13-715 13-715
13-730 13-730 13-731 13-731 13-740 13-740 13-749 13-749 13-750 13-750
13-752 13-752 13-757 13-757 13-765 13-765 #15-828 15-856 15-856 15-858
15-858 15-860 15-860 15-885 15-885 15-898 15-898 15-900 15-900 15-901
15-901 #17-977 17-1001 17-1001 17-1010 17-1010 17-1011 17-1011 17-1027 17-1027
17-1028 17-1028 17-1029 17-1029 #19-1117 19-1129 19-1129 19-1130 19-1130 19-1136
19-1136 19-1145 19-1145 19-1152 19-1152 19-1165 19-1165 19-1166 19-1166 #21-1275
21-1290 21-1290 21-1291 21-1291 21-1308 21-1308 21-1312 21-1312 21-1313 21-1313
21-1321 21-1321 22-1351 22-1351 22-1361 22-1361 22-1362 22-1362 22-1374 22-1374
22-1375 22-1375 #23-1432 #25-1512 25-1536 25-1536 25-1537 25-1537 #27-1621 27-1626
27-1626 27-1635 27-1635 27-1662 27-1662 27-1662 27-1664 27-1664 27-1666 27-1666
#29-1742 29-1756 29-1756 29-1757 29-1757 29-1766 29-1766 29-1771 29-1771 29-1776
29-1776 29-1782 29-1782 29-1787 29-1787 29-1788 29-1788 #31-1891 31-1896 31-1896
31-1914 31-1914 31-1931 31-1931 31-1937 31-1937 31-1938 31-1938 32-1963 32-1963
32-1967 32-1967 32-1968 32-1968 32-1975 32-1975 #33-2028 #35-2123 35-2140 35-2140
35-2157 35-2157 35-2158 35-2158 35-2159 35-2159 35-2185 35-2185 35-2186 35-2186
35-2187 35-2187 35-2188 35-2188 35-2202 35-2202 35-2203 35-2203 35-2212 35-2212
35-2221 35-2221 35-2228 35-2228 35-2229 35-2229 35-2234 35-2234 #37-2298 37-2318
37-2318 37-2319 37-2319 37-2320 37-2320 #39-2416 39-2432 39-2432 39-2433 39-2433
39-2449 39-2449 39-2453 39-2453 40-2470 40-2470 40-2476 40-2476 40-2489 40-2489
40-2491 40-2491 40-2491 #42-2548 42-2553 42-2553 42-2558 42-2558 42-2562 42-2562
42-2566 42-2566 42-2571 42-2571 #44-2649 44-2684 44-2684 44-2685 44-2685 44-2688
44-2688 44-2689 44-2689 44-2690 44-2690 44-2693 44-2693 44-2694 44-2694 #46-2808
46-2848 46-2848 46-2863 46-2863 46-2867 46-2867 46-2876 46-2876 46-2877 46-2877
46-2878 46-2878 46-2879 46-2879 46-2885 46-2885 #48-2940 48-2948 48-2948 48-2953
LDLOAD CREATED BY MACRO ON 13-OCT-79 AT 11:49 PAGE 26
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
48-2953
$$POPI #5-103 #6-177 #6-188 #6-188 #8-286 #8-296 #8-296 #8-297 #8-297 #8-319
#8-319 #9-334 #9-334 #9-335 #9-335 #9-365 #9-365 #9-366 #9-366 #9-369
#9-369 #9-370 #9-370 #9-375 #9-375 #9-380 #9-380 #9-382 #9-382 #11-483
#11-507 #11-507 #11-528 #11-528 #11-528 #11-536 #11-536 #11-537 #11-537 #11-564
#11-564 #11-565 #11-565 #11-566 #11-566 #11-567 #11-567 #11-587 #11-587 #11-588
#11-588 #11-589 #11-589 #11-590 #11-590 #13-676 #13-693 #13-693 #13-715 #13-715
#13-730 #13-730 #13-731 #13-731 #13-740 #13-740 #13-749 #13-749 #13-750 #13-750
#13-752 #13-752 #13-757 #13-757 #13-765 #13-765 #15-828 #15-856 #15-856 #15-858
#15-858 #15-860 #15-860 #15-885 #15-885 #15-898 #15-898 #15-900 #15-900 #15-901
#15-901 #17-977 #17-1001 #17-1001 #17-1010 #17-1010 #17-1011 #17-1011 #17-1027 #17-1027
#17-1028 #17-1028 #17-1029 #17-1029 #19-1117 #19-1129 #19-1129 #19-1130 #19-1130 #19-1136
#19-1136 #19-1145 #19-1145 #19-1152 #19-1152 #19-1165 #19-1165 #19-1166 #19-1166 #21-1275
#21-1290 #21-1290 #21-1291 #21-1291 #21-1308 #21-1308 #21-1312 #21-1312 #21-1313 #21-1313
#21-1321 #21-1321 #22-1351 #22-1351 #22-1361 #22-1361 #22-1362 #22-1362 #22-1374 #22-1374
#22-1375 #22-1375 #23-1432 #25-1512 #25-1536 #25-1536 #25-1537 #25-1537 #27-1621 #27-1626
#27-1626 #27-1635 #27-1635 #27-1662 #27-1662 #27-1662 #27-1664 #27-1664 #27-1666 #27-1666
#29-1742 #29-1756 #29-1756 #29-1757 #29-1757 #29-1766 #29-1766 #29-1771 #29-1771 #29-1776
#29-1776 #29-1782 #29-1782 #29-1787 #29-1787 #29-1788 #29-1788 #31-1891 #31-1896 #31-1896
#31-1914 #31-1914 #31-1931 #31-1931 #31-1937 #31-1937 #31-1938 #31-1938 #32-1963 #32-1963
#32-1967 #32-1967 #32-1968 #32-1968 #32-1975 #32-1975 #33-2028 #35-2123 #35-2140 #35-2140
#35-2157 #35-2157 #35-2158 #35-2158 #35-2159 #35-2159 #35-2185 #35-2185 #35-2186 #35-2186
#35-2187 #35-2187 #35-2188 #35-2188 #35-2202 #35-2202 #35-2203 #35-2203 #35-2212 #35-2212
#35-2221 #35-2221 #35-2228 #35-2228 #35-2229 #35-2229 #35-2234 #35-2234 #37-2298 #37-2318
#37-2318 #37-2319 #37-2319 #37-2320 #37-2320 #39-2416 #39-2432 #39-2432 #39-2433 #39-2433
#39-2449 #39-2449 #39-2453 #39-2453 #40-2470 #40-2470 #40-2476 #40-2476 #40-2489 #40-2489
#40-2491 #40-2491 #40-2491 #42-2548 #42-2553 #42-2553 #42-2558 #42-2558 #42-2562 #42-2562
#42-2566 #42-2566 #42-2571 #42-2571 #44-2649 #44-2684 #44-2684 #44-2685 #44-2685 #44-2688
#44-2688 #44-2689 #44-2689 #44-2690 #44-2690 #44-2693 #44-2693 #44-2694 #44-2694 #46-2808
#46-2848 #46-2848 #46-2863 #46-2863 #46-2867 #46-2867 #46-2876 #46-2876 #46-2877 #46-2877
#46-2878 #46-2878 #46-2879 #46-2879 #46-2885 #46-2885 #48-2940 #48-2948 #48-2948 #48-2953
#48-2953
$$PUSH #5-103 #6-177 #6-180 #6-180 #8-286 #8-287 #8-287 #8-290 #8-290 #8-298
#8-298 #9-321 #9-321 #9-324 #9-324 #9-336 #9-336 #9-339 #9-339 #9-347
#9-347 #9-350 #9-350 #9-354 #9-354 #9-357 #9-357 #9-371 #9-371 #11-483
#11-484 #11-484 #11-487 #11-487 #11-487 #11-502 #11-502 #11-529 #11-529 #11-538
#11-538 #11-541 #11-541 #11-548 #11-548 #11-551 #11-551 #11-558 #11-558 #11-568
#11-568 #11-571 #11-571 #11-579 #11-579 #13-676 #13-678 #13-678 #13-684 #13-684
#13-697 #13-697 #13-700 #13-700 #13-716 #13-716 #13-720 #13-720 #13-732 #13-732
#13-741 #13-741 #13-753 #13-753 #13-758 #13-758 #15-828 #15-832 #15-832 #15-840
#15-840 #15-849 #15-849 #15-861 #15-861 #15-866 #15-866 #15-887 #15-887 #15-892
#15-892 #17-977 #17-978 #17-978 #17-983 #17-983 #17-996 #17-996 #17-1002 #17-1002
#17-1012 #17-1012 #17-1018 #17-1018 #19-1117 #19-1118 #19-1118 #19-1121 #19-1121 #19-1131
#19-1131 #19-1137 #19-1137 #19-1146 #19-1146 #19-1153 #19-1153 #19-1156 #19-1156 #21-1275
#21-1276 #21-1276 #21-1280 #21-1280 #21-1292 #21-1292 #21-1295 #21-1295 #21-1299 #21-1299
#21-1314 #21-1314 #22-1323 #22-1323 #22-1326 #22-1326 #22-1345 #22-1345 #22-1363 #22-1363
#22-1366 #22-1366 #23-1432 #25-1512 #25-1513 #25-1513 #25-1531 #25-1531 #27-1621 #27-1622
#27-1622 #27-1627 #27-1627 #27-1636 #27-1636 #27-1639 #27-1639 #27-1646 #27-1646 #27-1646
#29-1742 #29-1744 #29-1744 #29-1747 #29-1747 #29-1758 #29-1758 #29-1762 #29-1762 #29-1767
#29-1767 #29-1772 #29-1772 #29-1777 #29-1777 #29-1783 #29-1783 #31-1891 #31-1892 #31-1892
#31-1897 #31-1897 #31-1915 #31-1915 #31-1918 #31-1918 #31-1922 #31-1922 #32-1940 #32-1940
#32-1943 #32-1943 #32-1946 #32-1946 #32-1969 #32-1969 #33-2028 #35-2123 #35-2130 #35-2130
LDLOAD CREATED BY MACRO ON 13-OCT-79 AT 11:49 PAGE 27
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#35-2133 #35-2133 #35-2141 #35-2141 #35-2144 #35-2144 #35-2152 #35-2152 #35-2160 #35-2160
#35-2168 #35-2168 #35-2172 #35-2172 #35-2175 #35-2175 #35-2189 #35-2189 #35-2193 #35-2193
#35-2204 #35-2204 #35-2213 #35-2213 #35-2222 #35-2222 #35-2230 #35-2230 #37-2298 #37-2300
#37-2300 #37-2305 #37-2305 #37-2310 #37-2310 #39-2416 #39-2417 #39-2417 #39-2417 #39-2422
#39-2422 #39-2427 #39-2427 #39-2438 #39-2438 #39-2443 #39-2443 #40-2464 #40-2464 #40-2471
#40-2471 #40-2480 #40-2480 #42-2548 #42-2549 #42-2549 #42-2554 #42-2554 #42-2559 #42-2559
#42-2563 #42-2563 #42-2567 #42-2567 #44-2649 #44-2655 #44-2655 #44-2658 #44-2658 #44-2662
#44-2662 #44-2665 #44-2665 #44-2668 #44-2668 #44-2671 #44-2671 #44-2677 #44-2677 #46-2808
#46-2809 #46-2809 #46-2820 #46-2820 #46-2823 #46-2823 #46-2829 #46-2829 #46-2833 #46-2833
#46-2838 #46-2838 #46-2857 #46-2857 #46-2880 #46-2880 #48-2940 #48-2941 #48-2941 #48-2949
#48-2949
$$STSM #5-103 #6-177 #6-180 #6-180 #8-286 #8-287 #8-287 #8-290 #8-290 #8-298
#8-298 #9-321 #9-321 #9-324 #9-324 #9-336 #9-336 #9-339 #9-339 #9-347
#9-347 #9-350 #9-350 #9-354 #9-354 #9-357 #9-357 #9-371 #9-371 #11-483
#11-484 #11-484 #11-487 #11-487 #11-487 #11-502 #11-502 #11-529 #11-529 #11-538
#11-538 #11-541 #11-541 #11-548 #11-548 #11-551 #11-551 #11-558 #11-558 #11-568
#11-568 #11-571 #11-571 #11-579 #11-579 #13-676 #13-678 #13-678 #13-684 #13-684
#13-697 #13-697 #13-700 #13-700 #13-716 #13-716 #13-720 #13-720 #13-732 #13-732
#13-741 #13-741 #13-753 #13-753 #13-758 #13-758 #15-828 #15-832 #15-832 #15-840
#15-840 #15-849 #15-849 #15-861 #15-861 #15-866 #15-866 #15-887 #15-887 #15-892
#15-892 #17-977 #17-978 #17-978 #17-983 #17-983 #17-996 #17-996 #17-1002 #17-1002
#17-1012 #17-1012 #17-1018 #17-1018 #19-1117 #19-1118 #19-1118 #19-1121 #19-1121 #19-1131
#19-1131 #19-1137 #19-1137 #19-1146 #19-1146 #19-1153 #19-1153 #19-1156 #19-1156 #21-1275
#21-1276 #21-1276 #21-1280 #21-1280 #21-1292 #21-1292 #21-1295 #21-1295 #21-1299 #21-1299
#21-1314 #21-1314 #22-1323 #22-1323 #22-1326 #22-1326 #22-1345 #22-1345 #22-1363 #22-1363
#22-1366 #22-1366 #23-1432 #25-1512 #25-1513 #25-1513 #25-1531 #25-1531 #27-1621 #27-1622
#27-1622 #27-1627 #27-1627 #27-1636 #27-1636 #27-1639 #27-1639 #27-1646 #27-1646 #27-1646
#29-1742 #29-1744 #29-1744 #29-1747 #29-1747 #29-1758 #29-1758 #29-1762 #29-1762 #29-1767
#29-1767 #29-1772 #29-1772 #29-1777 #29-1777 #29-1783 #29-1783 #31-1891 #31-1892 #31-1892
#31-1897 #31-1897 #31-1915 #31-1915 #31-1918 #31-1918 #31-1922 #31-1922 #32-1940 #32-1940
#32-1943 #32-1943 #32-1946 #32-1946 #32-1969 #32-1969 #33-2028 #35-2123 #35-2130 #35-2130
#35-2133 #35-2133 #35-2141 #35-2141 #35-2144 #35-2144 #35-2152 #35-2152 #35-2160 #35-2160
#35-2168 #35-2168 #35-2172 #35-2172 #35-2175 #35-2175 #35-2189 #35-2189 #35-2193 #35-2193
#35-2204 #35-2204 #35-2213 #35-2213 #35-2222 #35-2222 #35-2230 #35-2230 #37-2298 #37-2300
#37-2300 #37-2305 #37-2305 #37-2310 #37-2310 #39-2416 #39-2417 #39-2417 #39-2417 #39-2422
#39-2422 #39-2427 #39-2427 #39-2438 #39-2438 #39-2443 #39-2443 #40-2464 #40-2464 #40-2471
#40-2471 #40-2480 #40-2480 #42-2548 #42-2549 #42-2549 #42-2554 #42-2554 #42-2559 #42-2559
#42-2563 #42-2563 #42-2567 #42-2567 #44-2649 #44-2655 #44-2655 #44-2658 #44-2658 #44-2662
#44-2662 #44-2665 #44-2665 #44-2668 #44-2668 #44-2671 #44-2671 #44-2677 #44-2677 #46-2808
#46-2809 #46-2809 #46-2820 #46-2820 #46-2823 #46-2823 #46-2829 #46-2829 #46-2833 #46-2833
#46-2838 #46-2838 #46-2857 #46-2857 #46-2880 #46-2880 #48-2940 #48-2941 #48-2941 #48-2949
#48-2949
$$SYS #5-103 #6-177 #8-286 #11-483 #13-676 #15-828 #17-977 #19-1117 #21-1275 #23-1432
#25-1512 #27-1621 #29-1742 #31-1891 #33-2028 #35-2123 #37-2298 #39-2416 #42-2548 #44-2649
#46-2808 #48-2940
$$TRCE #5-103 5-103 5-108 #6-177 6-177 6-189 #8-286 8-286 9-383 #11-483
11-483 11-591 #13-676 13-676 13-766 #15-828 15-828 15-902 #17-977 17-977
17-1030 #19-1117 19-1117 19-1167 #21-1275 21-1275 22-1376 #23-1432 23-1432 23-1436
#25-1512 25-1512 25-1538 #27-1621 27-1621 27-1667 #29-1742 29-1742 29-1790 #31-1891
31-1891 32-1976 #33-2028 33-2028 33-2032 #35-2123 35-2123 35-2239 #37-2298 37-2298
37-2321 #39-2416 39-2416 40-2492 #42-2548 42-2548 42-2572 #44-2649 44-2649 44-2696
#46-2808 46-2808 46-2886 #48-2940 48-2940 48-2954