Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/srstpr.list
There are no other files named srstpr.list in the archive.
SRSTPR MACRO M1110 13-OCT-79 12:47
TABLE OF CONTENTS
8- 89 SRSTHO
10- 266 SRSTLL
12- 345 SRSTLO
14- 486 SRSTLS
17- 1511 SRSTPR
19- 1628 SRSTPW
SRSTPR MACRO M1110 13-OCT-79 12:47 PAGE 3
1 .TITLE SRSTPR
2 .NLIST CND
3 .IDENT /V01.04/
4 ;
5 ; COPYRIGHT (C) 1978 BY
6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
7 ;
8 ;
9 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
10 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
11 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
12 ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
13 ; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
14 ; TRANSFERRED.
15 ;
16 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
17 ; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
18 ; CORPORATION.
19 ;
20 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
21 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
22 ;
23 ;
24 ; MODULE DESCRIPTION:
25 ;
26 ; NCU SERVICE MODULE TO SET NETWORK PARAMETERS
27 ;
28 ;
29 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
30 ;
31 ; IDENT HISTORY:
32 ;
33 ; 1.00 10-FEB-78
34 ; VERSION 2.0 RELEASE
35 ;
36 ; 1.01 1-AUG-78 ALAN D. PECKHAM
37 ; OFF-LOADED MAPPED SERVICES TO DLX
38 ; 1.02 22-NOV-78 ALAN D. PECKHAM
39 ; RE-INTRODUCE TEMMDF DEFINITION
40 ; 1.03 4-DEC-78 ALAN D. PECKHAM
41 ; RE-INTRODUCE HOST DATA BASE USE ON A PER-LINE BASE
42 ; 1.04 19-DEC-78 ALAN D. PECKHAM
43 ; SET THE HOST DATA BASE WHEN CHANGING THE DEFAULT HOST
44 ; FIX HOST-FOR-LINE CODING
45 ;
SRSTPR MACRO M1110 13-OCT-79 12:47 PAGE 4
47 ;
48 ; +-------------------------------------------------+
49 ; I I
50 ; I S E T P A R A M E T E R I
51 ; I - - - - - - - - - - - - - I
52 ; I I
53 ; +-------------------------------------------------+
54 ;
55 ; FUNCTION:
56 ;
57 ; NICE SET PARAMETER SERVICE
58 ;
59 ; REQUIREMENTS:
60 ;
61 ; SYSTEM CONFIGURATION SYMBOLS:
62 ;
63 ; R$$11M - DEFINED IF ASSEMBLING FOR AN RSX-11M/S SYSTEM
64 ; R$$11D - DEFINED IF ASSEMBLING FOR AN RSX-11D SYSTEM
65 ; I$$AS - DEFINED IF ASSEMBLING FOR AN IAS SYSTEM
66 ;
67 ; NICE/NCP SET CONFIGURATION SYMBOLS:
68 ;
69 ; FS$HOS - HOST
70 ; FS$LLP - LOCAL LOOPBACK
71 ; FS$LOF - LINE OFF
72 ; FS$LST - LINE STATE
73 ; FS$NST - NODE STATE
74 ; FS$PAS - PASSWORD
75 ;
76 ; EXTERNAL MACROS
77 ;
78 .MCALL PROC,PROCLC,TEMMDF ;AP0002
79 ; ;**-5
80 ; DEFINE CONFIGURATION CONTROL SYMBOLS
81 ;
82 000000 CONFIG
83 ; ;**-9
84 ; DEFINE TEMPORARY MEMORY FOR SRSTNS AND SRSTLL
85 ;
86 000000 TEMMDF
SRSTPR MACRO M1110 13-OCT-79 12:47 PAGE 5
SRSTHO
89 .SBTTL SRSTHO
90 ;
91 ;======================================================================;
92 ;++
93 ; +-------------------------------------------------+
94 ; I I
95 ; I S R S T H O I
96 ; I - - - - - - I
97 ; I I
98 ; +-------------------------------------------------+
99 ;
100 ; FUNCTION:
101 ;
102 ; SET PARAMETER SERVICE MODULE TO SET A HOST NAME
103 ;
104 ; INPUT:
105 ;
106 ; R5 - ADDRESS OF CONTROL BLOCK REQUESTING SET
107 ; C.ADDR - ADDRESS OF ARGUMENT BLOCK
108 ; FOUR BYTE BINARY LINE ID, IF NOT SETTING DEFAULT
109 ; HOST NODE NAME IMAGE
110 ; C.TYPE - TYPE OF SET DESIRED
111 ;
112 ; OUTPUT:
113 ;
114 ; C-BIT - CLEAR
115 ; @R5 - UPDATED CONTROL BLOCK
116 ; C.RET - RETURN CODE
117 ;
118 ; REQUIREMENTS:
119 ;
120 ; INPUT VIA GLOBAL HOSDB:
121 ;
122 ; HOSDB - HOST DATABASE
123 ; HOST NODE NAME IMAGE
124 ; HOST LINE TABLE
125 ; FOUR BYTE LINE ID, TYPE = -1 IF ENTRY UNUSED
126 ; HOST NODE NAME IMAGE
127 ; HOSDBE - END OF HOST DATABASE
128 ;
129 ; HOST DATABASE SYMBOLS:
130 ;
131 ; ENTLEN - LENGTH OF AN ENTRY
132 ; TABBEG - OFFSET OF BEGINNING OF TABLE FROM BEGINNING OF DATABASE
133 ;
134 ; DLX SERVICE SYMBOLS: ;AP0001
135 ; ;AP0001
136 ; NX.NIC - NICE SERVICE QIO FUNCTION ;AP0001
137 ; NX$SNH - SET HOST FOR LOCAL NODE SUB-FUNCTION ;AP0001
138 ; NX$SLH - SET HOST FOR LINE SUB-FUNCTION ;AP0001
139 ; ;AP0001
140 ; SERVICE SYMBOLS: ;AP0001
141 ; ;AP0001
142 ; NCOLUN - NETWORK CONTROL LOGICAL UNIT NUMBER ;AP0001
143 ; TEMFLG - NETWORK CONTROL EVENT FLAG NUMBER ;AP0001
144 ; ;AP0001
145 ; CONTROL BLOCK SYMBOLS:
SRSTPR MACRO M1110 13-OCT-79 12:47 PAGE 5-1
SRSTHO
146 ;
147 ; C.ADDR - OFFSET OF ADDRESS FIELD
148 ; C.TYPE - OFFSET OF SET TYPE FIELD
149 ; CE$OVR - TABLE OVERFLOW ERROR CODE
150 ; CS$SUC - SUCCESS RETURN CODE
151 ; SP$DHO - SET DEFAULT HOST TYPE CODE
152 ;
153 ; EFFECTS:
154 ;
155 ; OUTPUT VIA GLOBAL HOSDB:
156 ;
157 ; HOSDB - DEFAULT HOST NAME IF THAT WAS REQUEST
158 ; OR HOST NAME FOR EXISTING LINE
159 ; OR LINE ID AND HOST NAME FOR NEW ENTRY
160 ;
161 ;--
162 ;======================================================================;
163 ;
164 ; EXTERNAL MACROS
165 ;
166 .MCALL CONDF,SRDF,HOSDF,DLXDF,SAVRG,RESRG,QIOW$S ;AP0004
167 ; ;**-1
168 ; DEFINE EXTERNAL SYMBOLS
169 ;
170 000000 CONDF ;CONTROL BLOCK SYMBOLS
171 000000 HOSDF ;HOST DATABASE SYMBOLS
172 000000 SRDF ;SERVICE SYMBOLS ;AP0001
173 000000 DLXDF ;DLX NICE SERVICE SYMBOLS ;AP0001
SRSTPR MACRO M1110 13-OCT-79 12:47 PAGE 6
SRSTHO
175 ;
176 ; LOCAL PROCEDURE BODY
177 ;
178 000000 PROCLC SRSTHO
179 000000 016500 000014 MOV C.ADDR(R5),R0 ;GET ADDRESS OF ARGUMENT BLOCK
180 000004 IF ; FUNCTION TYPE = DEFAULT HOST
181 000004 FALSEB NE C.TYPE(R5),#SP$DHO
182 000014 THEN
183 000014 111001 MOVB (R0),R1 ;GET NODE NAME LENGTH ;AP0001
184 000016 005201 INC R1 ;INCLUDE NODE-NAME COUNT IN LENGTH ;AP0001
185 000020 SAVRG R1 ;AP0004
186 000022 012702 000000G MOV #HOSDB,R2 ;AP0004
187 000026 CALL MOVE ;AP0004
188 000032 012702 000024 MOV #NX$SNH,R2 ;SET HOST SUB-FUNCTION ;AP0004
189 000036 RESRG R1 ;AP0004
190 000040 012700 000010 MOV #C.RET,R0 ;GET STATUS BLOCK ADDRESS ;AP0001
191 000044 060500 ADD R5,R0 ;AP0001
192 000046 QIOW$S #NX.NIC,#NCOLUN,#TEMFLG,,R0,,<C.ADDR(R5),R1,R2> ;AP0001
193 ;SET THE HOST NODE-NAME ;AP0001
194 000114 IF ; QIO CALL DID NOT FAIL ;AP0001
195 000114 FALSE CS ;AP0001
196 000116 THEN ;AP0001
197 000116 IF ; SUCCESS IN OPERATION ;AP0001
198 000116 FALSEB MI (R0) ;AP0001
199 000122 THEN ;AP0001
200 000122 012700 000001 MOV #CS$SUC,R0 ;SUCCESSFUL RETURN CODE ;AP0001
201 000126 ELSE ; CHECK ON THE ERROR ;AP0001
202 000130 ONCASE ; CHECK THE RETURN CODE ;AP0001
203 000130 CASE ; OPTION NOT SUPPORTED ;AP0001
204 000130 FALSEB NE #IE.ONP,(R0) ;AP0001
205 000136 DO ;AP0001
206 000136 012700 177777 MOV #CE$FUN,R0 ;INVALID FUNCTION ;AP0001
207 000142 ELSE ; CATCH-ALL ;AP0001
208 000144 012700 177774 MOV #CE$FAI,R0 ;FAILURE RETURN ;AP0001
209 000150 ENDCASE ;AP0001
210 000150 ENDIF ;AP0001
211 000150 ELSE ;AP0001
212 000152 CALL SRQDRF ;ANALYZE QIO REQUEST FAILURE ;AP0001
213 000156 ENDIF ;AP0001
214 000156 ELSE ;SET HOST FOR LINE ;AP0003
215 000160 012703 000007G MOV #HOSDB+TABBEG,R3 ;ADDRESS OF LINE HOST TABLE ;AP0003
216 000164 005002 CLR R2 ;TO HOLD ENTRY WHEN FOUND ;AP0003
217 000166 012701 000004 MOV #4,R1 ;TO SIGNAL NEW ENTRY OR OLD ;AP0003
218 000172 WHILE ; MORE TABLE TO CHECK AND LINE NOT FOUND ;AP0003
219 000172 FALSE LOS #HOSDBE,R3 ;AP0003
220 000200 FALSE CLEAR R1 ;AP0003
221 000204 DO ;AP0003
222 000204 IF ; THIS IS AN UNASSIGNED ENTRY ;AP0003
223 000204 FALSEB NE #-1,(R3) ;AP0003
224 000212 THEN ;AP0003
225 000212 IF ; WE HAVE NOT FOUND AN EMPTY SLOT YET ;AP0003
226 000212 FALSE SET R2 ;AP0003
227 000216 THEN ;AP0003
228 000216 010302 MOV R3,R2 ;SAVE THE EMPTY SLOT ADDRESS ;AP0003
229 000220 ENDIF ;AP0003
230 000220 ELSE ;AP0003
231 000222 IF ; THIS IS THE DESIRED LINE ;AP0003
SRSTPR MACRO M1110 13-OCT-79 12:47 PAGE 6-1
SRSTHO
232 000222 FALSEB NE (R0),(R3) ;AP0004
233 000226 FALSEB NE 1(R0),1(R3) ;AP0004
234 000236 FALSEB NE 2(R0),2(R3) ;AP0004
235 000246 FALSEB NE 3(R0),3(R3) ;AP0004
236 000256 THEN ; SET THE ENTRY ADDRESS ;AP0003
237 000256 010302 MOV R3,R2 ;AP0003
238 000260 062702 000004 ADD #4,R2 ;PASS BY THE LINE ID ;AP0003
239 000264 005001 CLR R1 ;NO NEED TO MOVE IT IN ;AP0003
240 000266 062700 000004 ADD #4,R0 ;AP0003
241 000272 ENDIF ;AP0003
242 000272 ENDIF ;AP0003
243 000272 062703 000013 ADD #ENTLEN,R3 ;GO TO NEXT ENTRY ;AP0003
244 000276 ENDWHILE ;AP0003
245 000300 IF ; WE FOUND A PLACE FOR THE ENTRY ;AP0003
246 000300 FALSE CLEAR R2 ;AP0003
247 000304 THEN ;AP0003
248 000304 IF ; IT IS A NEW ENTRY ;AP0003
249 000304 FALSE CLEAR R1 ;AP0003
250 000310 THEN ;AP0003
251 000310 CALL MOVE ;MOVE THE LINE NUMBER IN ;AP0003
252 000314 ENDIF ;AP0003
253 000314 111001 MOVB (R0),R1 ;GET LENGTH OF NODE NAME ;AP0003
254 000316 005201 INC R1 ;INCLUDE LENGTH BYTE ;AP0003
255 000320 CALL MOVE ;MOVE NODE NAME INTO TABLE ;AP0003
256 000324 012765 000001 000010 MOV #CS$SUC,C.RET(R5) ;SET SUCCESS RETURN CODE ;AP0003
257 000332 ELSE ;AP0003
258 000334 012765 177764 000010 MOV #CE$OVR,C.RET(R5) ;SET TABLE OVERFLOW ERROR ;AP0003
259 000342 ENDIF ;AP0003
260 000342 ENDIF ;AP0003
261 000342 000241 CLC ;PROCESSING COMPLETE ;**-47
262 000344 ENDPROC
SRSTPR MACRO M1110 13-OCT-79 12:47 PAGE 7
SRSTLL
266 .SBTTL SRSTLL
267 ;
268 ;======================================================================;
269 ;++
270 ; +-------------------------------------------------+
271 ; I I
272 ; I S R S T L L I
273 ; I - - - - - - I
274 ; I I
275 ; +-------------------------------------------------+
276 ;
277 ; FUNCTION:
278 ;
279 ; SET PARAMETER SERVICE MODULE TO SET LOCAL LOOPBACK
280 ;
281 ; INPUT:
282 ;
283 ; R5 - ADDRESS OF CONTROL BLOCK REQUESTING SET
284 ; C.ADDR - ARGUMENT BLOCK
285 ; STATE DESIRED
286 ; FOUR BYTE BINARY LINE ID, IF STATE = ENABLED
287 ;
288 ; OUTPUT:
289 ;
290 ; C-BIT - CLEAR
291 ; @R5 - UPDATED CONTROL BLOCK
292 ; C.RET - RETURN CODE
293 ;
294 ; REQUIREMENTS:
295 ;
296 ; P$LEN - LENGTH OF LINE TABLE ENTRY ;**-15
297 ; NICE MESSAGE SYMBOLS: ;**-2
298 ;
299 ; ST$DIS - DISABLED STATE
300 ; ST$ENA - ENABLED STATE
301 ;
302 ; ;**-10
303 ; C.ADDR - OFFSET OF ADDRESS FIELD
304 ; C.RET - OFFSET OF RETURN CODE FIELD
305 ; CE$LID - INVALID LINE ID RETURN CODE
306 ; CE$LST - INVALID LINE STATE RETURN CODE
307 ; CE$PAR - PARAMETER ERROR RETURN CODE
308 ; CS$SUC - SUCCESS RETURN CODE
309 ;
310 ; DLX SERVICE SYMBOLS: ;AP0001
311 ; ;AP0001
312 ; NX.NIC - NICE SERVICE QIO FUNCTION ;AP0001
313 ; ;**-3
314 ; EFFECTS:
315 ;
316 ; OUTPUT VIA NSP DATABASE:
317 ;
318 ; N$LNI - ZERO IF DISABLED, LINE TABLE ENTRY ADDRESS IF ENABLED
319 ;
320 ;--
321 ;======================================================================;
322 ;
SRSTPR MACRO M1110 13-OCT-79 12:47 PAGE 7-1
SRSTLL
323 ;
324 ; DEFINE EXTERNAL MACROS
325 ;
326 .MCALL SAVSTK,RESSTK,CONDF,NICDF,DLXDF,SRDF,QIOW$S ;AP0001
327 ; ;**-1
328 ; DEFINE EXTERNAL SYMBOLS
329 ;
330 000346 CONDF ;CONTROL BLOCK SYMBOLS
331 000346 NICDF ;NICE MESSAGE SYMBOLS ;**-1
332 000346 DLXDF ;DLX NICE SERVICE SYMBOLS ;AP0001
333 000346 SRDF ;SERVICE SYMBOLS ;AP0001
SRSTPR MACRO M1110 13-OCT-79 12:47 PAGE 8
SRSTLL
335 ;
336 ; LOCAL PROCEDURE BODY
337 ;
338 000346 PROCLC SRSTLL ;AP0001
339 000346 012765 177777 000010 MOV #CE$FUN,C.RET(R5) ;SET INVALID FUNCTION ;AP0001
340 000354 000241 CLC ;ALL DONE PROCESSING ;**-65
341 000356 ENDPROC
SRSTPR MACRO M1110 13-OCT-79 12:47 PAGE 9
SRSTLO
345 .SBTTL SRSTLO
346 ;
347 ;======================================================================;
348 ;++
349 ; +-------------------------------------------------+
350 ; I I
351 ; I S R S T L O I
352 ; I - - - - - - I
353 ; I I
354 ; +-------------------------------------------------+
355 ;
356 ; FUNCTION:
357 ;
358 ; SET PARAMETER SERVICE MODULE TO SET LINE STATE DIRECTLY TO OFF
359 ;
360 ; INPUT:
361 ;
362 ; R5 - ADDRESS OF CONTROL BLOCK REQUESTING SET
363 ; C.ADDR - ADDRESS OF ARGUMENT BLOCK
364 ; FOUR BYTE BINARY LINE ID
365 ; C.RET - ON COMPLETION ENTRY, I/O STATUS BLOCK
366 ; C.SERV - ON INITIAL ENTRY, ZERO; ON COMPLETION ENTRY, ADDRESS OF
367 ; LINE ID TEMPORARY MEMORY
368 ;
369 ; OUTPUT:
370 ;
371 ; C-BIT - CLEAR IF PROCESSED, SET IF NOT
372 ; @R5 - UPDATED CONTROL BLOCK
373 ; C.RET - ON FINAL RETURN, LOW BYTE IS SERVICE RETURN CODE, HIGH
374 ; BYTE IS SYSTEM RETURN CODE FOR FAILURES
375 ; C.SERV - ON FINAL RETURN, ZERO; ON WAITING FOR COMPLETION,
376 ; ADDRESS OF LINE ID TEMPORARY MEMORY
377 ;
378 ; REQUIREMENTS:
379 ;
380 ; LINE ID TEMPORARY MEMORY SYMBOLS:
381 ;
382 ; LENGTH - OFFSET OF LINE ID LENGTH
383 ; LINEID - OFFSET OF LINE ID
384 ; LOCK - OFFSET OF LOCK
385 ;
386 ; CONTROL BLOCK SYMBOLS:
387 ;
388 ; C.ADDR - OFFSET OF ADDRESS FIELD
389 ; C.RET - OFFSET OF RETURN CODE FIELD
390 ; C.SERV - OFFSET OF SERVICE CONTEXT FIELD
391 ; CE$FAI - FAILURE RETURN CODE
392 ; CE$LID - INVALID LINE ID RETURN CODE
393 ; CS$SUC - SUCCESS RETURN CODE
394 ;
395 ; LINE FUNCTION CODES:
396 ;
397 ; LF.OFF - TURN LINE OFF
398 ;
399 ; SERVICE SYMBOLS:
400 ;
401 ; NCOLUN - NETWORK CONTROL LOGICAL UNIT NUMBER
SRSTPR MACRO M1110 13-OCT-79 12:47 PAGE 9-1
SRSTLO
402 ;
403 ; SYSTEM SYMBOLS:
404 ;
405 ; IE.NSF - NO SUCH LINE (FLINE?) RETURN CODE
406 ;
407 ; NOTES:
408 ;
409 ; THIS MODULE ONLY TURNS A LINE OFF. IT IS TO BE USED ONLY FOR THE
410 ; TURNING OFF OF LINES WHEN THE NETWORK IS BEING CLEARED. FOR A NORMAL
411 ; OFF THE LINE STATE MODULE SHOULD BE USED.
412 ;
413 ;--
414 ;======================================================================;
415 ;
416 ; EXTERNAL MACROS
417 ;
418 .MCALL CONDF,QIO$S,LFDF,SRDF,LIMDF
419 ;
420 ; DEFINE EXTERNAL SYMBOLS
421 ;
422 000360 CONDF ;CONTROL BLOCK SYMBOLS
423 000360 LFDF ;LINE QIO FUNCTION CODES
424 000360 SRDF ;SERVICE SYMBOLS
425 000360 LIMDF ;LINE ID TEMPORARY MEMORY SYMBOLS
SRSTPR MACRO M1110 13-OCT-79 12:47 PAGE 10
SRSTLO
427 ;
428 ; LOCAL PROCEDURE BODY
429 ;
430 000360 PROCLC SRSTLO
431 000360 016500 000002 MOV C.SERV(R5),R0 ;GET ADDRESS OF LINE ID MEMORY
432 000364 IF ; SERVICE CONTEXT = 0
433 000364 FALSE SET
434 000366 THEN
435 000366 016500 000014 MOV C.ADDR(R5),R0 ;ADDRESS OF LINE ID IN ARGUMENT BLOCK
436 000372 CALL SRFMLN ;FORMAT A LINE ID STRING
437 000376 IF ; NO RESOURCE ERROR
438 000376 FALSE CS
439 000400 THEN
440 000400 IF ; CONVERSION ERROR
441 000400 FALSE CLEAR R1
442 000404 THEN
443 000404 110165 000010 MOVB R1,C.RET(R5) ;PASS ON THE RETURN CODE
444 000410 000241 CLC ;PROCESSING COMPLETE
445 000412 ELSE
446 000414 010065 000002 MOV R0,C.SERV(R5) ;SAVE POINTER TO LINE ID MEMORY
447 000420 116001 000003 MOVB LENGTH(R0),R1 ;GET STRING LENGTH
448 000424 012702 000010 MOV #C.RET,R2 ;OFFSET OF SPACE FOR STATUS BLOCK
449 000430 060502 ADD R5,R2 ;MAKE IT A POINTER
450 000432 062700 000004 ADD #LINEID,R0 ;POINT TO LINE ID
451 000436 QIO$S #LF.OFF,#NCOLUN,,,R2,#SRAST,<R0,R1>
452 000500 IF ; QUEUING FAILED
453 000500 FALSE CC
454 000502 THEN
455 000502 016500 000002 MOV C.SERV(R5),R0 ;ADDRESS OF LINE ID MEMORY
456 000506 105060 000002 CLRB LOCK(R0) ;RELEASE LINE ID MEMORY
457 000512 005065 000002 CLR C.SERV(R5) ;CLEAR SERVICE CONTEXT
458 000516 CALL SRQDRF ;PROCESS QIO DIRECTIVE FAILURE
459 000522 ENDIF
460 000522 ENDIF
461 000522 ENDIF
462 000522 ELSE ; SERVICE CONTEXT <> 0
463 000524 105060 000002 CLRB LOCK(R0) ;RELEASE LINE ID MEMORY
464 000530 116500 000010 MOVB C.RET(R5),R0 ;GET RETURN CODE
465 000534 IF ; SUCCESSFUL OPERATION
466 000534 FALSEB LT
467 000536 THEN
468 000536 012700 000001 MOV #CS$SUC,R0 ;SET SUCCESS RETURN CODE
469 000542 ELSE
470 000544 110065 000011 MOVB R0,C.RET+1(R5) ;SAVE THE REAL FAILURE REASON
471 000550 IF ; FAILURE = INVALID LINE ID
472 000550 FALSEB NE R0,#IE.NSF
473 000556 THEN
474 000556 112700 177766 MOVB #CE$LID,R0 ;INVALID LINE ID
475 000562 ELSE
476 000564 112700 177774 MOVB #CE$FAI,R0 ;FAILURE RETURN
477 000570 ENDIF
478 000570 ENDIF
479 000570 110065 000010 MOVB R0,C.RET(R5) ;SET THE RETURN CODE
480 000574 005065 000002 CLR C.SERV(R5) ;CLEAR SERVICE CONTEXT AND C-BIT
481 000600 ENDIF
482 000600 ENDPROC
SRSTPR MACRO M1110 13-OCT-79 12:47 PAGE 11
SRSTLS
486 .SBTTL SRSTLS
487 ;
488 ;======================================================================;
489 ;++
490 ; +-------------------------------------------------+
491 ; I I
492 ; I S R S T L S I
493 ; I - - - - - - I
494 ; I I
495 ; +-------------------------------------------------+
496 ;
497 ; FUNCTION:
498 ;
499 ; SET PARAMETER SERVICE MODULE TO SET LINE STATE
500 ;
501 ; INPUT:
502 ;
503 ; R5 - ADDRESS OF CONTROL BLOCK REQUESTING SET
504 ; C.ADDR - ADDRESS OF ARGUMENT BLOCK
505 ; FOUR BYTE BINARY LINE ID
506 ; STATE DESIRED
507 ; C.RET - ON COMPLETION ENTRY, I/O STATUS BLOCK
508 ; C.SERV - ON INITIAL ENTRY, ZERO; ON COMPLETION ENTRY, ADDRESS OF
509 ; LINE ID TEMPORARY MEMORY BLOCK
510 ;
511 ; OUTPUT:
512 ;
513 ; C-BIT - CLEAR IF PROCESSED, SET IF NOT
514 ; @R5 - UPDATED CONTROL BLOCK
515 ; C.RET - ON FINAL RETURN, LOW BYTE IS SERVICE RETURN CODE, HIGH
516 ; BYTE IS SYSTEM RETURN CODE FOR FAILURES
517 ; C.SERV - ON FINAL RETURN, ZERO; ON WAITING FOR COMPLETION,
518 ; ADDRESS OF LINE ID TEMPORARY MEMORY BLOCK
519 ;
520 ; REQUIREMENTS:
521 ;
522 ; LINE ID TEMPORARY MEMORY BLOCK SYMBOLS:
523 ;
524 ; LENGTH - OFFSET OF LINE ID LENGTH
525 ; LINEID - OFFSET OF LINE ID
526 ; LOCK - OFFSET OF LOCK
527 ; STATE - OFFSET OF STATE
528 ;
529 ; CONTROL BLOCK SYMBOLS:
530 ;
531 ; C.ADDR - OFFSET OF ADDRESS FIELD
532 ; C.RET - OFFSET OF RETURN CODE FIELD
533 ; C.SERV - OFFSET OF SERVICE CONTEXT FIELD
534 ; CE$FAI - FAILURE RETURN CODE
535 ; CE$LID - INVALID LINE ID RETURN CODE
536 ; CE$PAR - PARAMETER ERROR RETURN CODE
537 ; CS$NCH - SUCCESS, NO CHANGE RETURN CODE
538 ; CS$SUC - SUCCESS RETURN CODE
539 ;
540 ; LINE FUNCTION CODES:
541 ;
542 ; LF.OFF - TURN LINE OFF
SRSTPR MACRO M1110 13-OCT-79 12:47 PAGE 11-1
SRSTLS
543 ; LF.ON - TURN LINE ON
544 ; LF.RAS - REASSIGN LINE
545 ;
546 ; SERVICE SYMBOLS:
547 ;
548 ; NCOLUN - NETWORK CONTROL LOGICAL UNIT NUMBER
549 ;
550 ; SYSTEM SYMBOLS:
551 ;
552 ; IS.SUC - SUCCESS RETURN CODE
553 ; IE.NSF - NO SUCH LINE (FLINE?) RETURN CODE
554 ;
555 ; NICE MESSAGE SYMBOLS:
556 ;
557 ; ST$OFF - STATE OFF
558 ; ST$ON - STATE ON
559 ; ST$MAI - STATE MAINTENANCE
560 ;
561 ; NOTES:
562 ;
563 ; TO SET A LINE TO MAINTENANCE STATE, THIS MODULE SIMPLY REASSIGNS THE
564 ; LINE TO COMEXEC PROCESS DLX. TO SET A LINE ON OR OFF, THE MODULE
565 ; REASSIGNS THE LINE TO COMEXEC PROCESS NSP, THEN TURNS IT ON OR OFF.
566 ;
567 ;--
568 ;======================================================================;
569 ;
570 ;
571 ; EXTERNAL MACROS
572 ;
573 .MCALL CONDF,SAVSTK,RESSTK,QIO$S,LFDF,SRDF,NICDF,LIMDF
574 ;
575 ; DEFINE EXTERNAL SYMBOLS
576 ;
577 000602 CONDF ;CONTROL BLOCK SYMBOLS
578 000602 LFDF ;LINE QIO FUNCTION CODES
579 000602 SRDF ;SERVICE SYMBOLS
580 000602 NICDF ;NICE MESSAGE SYMBOLS
581 000602 LIMDF ;LINE ID TEMPORARY MEMORY SYMBOLS
582 ;
583 ; DEFINE READ ONLY MEMORY
584 ;
585 000602 015370 R50DLX: .RAD50 /DLX/ ;RAD-50 PROCESS NAME OF DIRECT LINE CONTROLLER
586 000604 055210 R50NSP: .RAD50 /NSP/ ;RAD-50 PROCESS NAME OF NSP
587 ;
588 ; QIO LINE FUNCTION CODES
589 ;
590 000606 QIOCOD:
591 ;
592 000606 017000 .WORD LF.ON
593 000610 017010 .WORD LF.OFF
SRSTPR MACRO M1110 13-OCT-79 12:47 PAGE 12
SRSTLS
595 ;
596 ; LOCAL PROCEDURE BODY
597 ;
598 000612 PROCLC SRSTLS
599 000612 SAVSTK <R3> ;SAVE REGISTERS
600 000614 IF ; SERVICE CONTEXT = 0
601 000614 FALSE SET C.SERV(R5)
602 000622 THEN
603 000622 016503 000014 MOV C.ADDR(R5),R3 ;ADDRESS OF ARGUMENT BLOCK
604 000626 116303 000004 MOVB 4(R3),R3 ;REQUESTED STATE
605 000632 IF ; REQUESTED STATE = ON, OFF, OR MAINTENANCE
606 000632 TRUE EQ R3,#ST$ON
607 000640 TRUE EQ R3,#ST$OFF
608 000646 FALSE NE R3,#ST$MAI
609 000654 THEN
610 000654 016500 000014 MOV C.ADDR(R5),R0 ;ADDRESS OF LINE ID IN ARGUMENT BLOCK
611 000660 CALL SRFMLN ;FORMAT A LINE ID STRING
612 000664 IF ; NO RESOURCE ERROR
613 000664 FALSE CS
614 000666 THEN
615 000666 IF ; CONVERSION ERROR
616 000666 FALSE CLEAR R1
617 000672 THEN
618 000672 110165 000010 MOVB R1,C.RET(R5) ;PASS ON THE RETURN CODE
619 000676 000241 CLC ;PROCESSING COMPLETE
620 000700 ELSE
621 000702 010065 000002 MOV R0,C.SERV(R5) ;SAVE POINTER TO LINE ID MEMORY
622 000706 116001 000003 MOVB LENGTH(R0),R1 ;GET STRING LENGTH
623 000712 IF ; REQUESTED STATE = MAINTENANCE
624 000712 FALSE NE R3,#ST$MAI
625 000720 THEN
626 000720 016702 177656 MOV R50DLX,R2 ;PROCESS NAME FOR DIRECT LINE CONTROL
627 000724 112760 000002 000000 MOVB #2,STATE(R0) ;SET SERVICE STATE FOR LAST OPERATION
628 000732 ELSE
629 000734 016702 177644 MOV R50NSP,R2 ;PROCESS NAME FOR NSP
630 000740 112760 000001 000000 MOVB #1,STATE(R0) ;SET SERVICE STATE FOR ANOTHER OPERATION
631 000746 ENDIF
632 000746 012703 000010 MOV #C.RET,R3 ;OFFSET OF SPACE FOR STATUS BLOCK
633 000752 060503 ADD R5,R3 ;MAKE IT A POINTER
634 000754 062700 000004 ADD #LINEID,R0 ;POINT TO LINE ID
635 000760 QIO$S #LF.RAS,#NCOLUN,,,R3,#SRAST,<R0,R1,R2>
636 001022 IF ; FAILED TO QUEUE REASSIGN
637 001022 FALSE CC
638 001024 THEN
639 001024 016500 000002 MOV C.SERV(R5),R0 ;ADDRESS OF LINE ID MEMORY
640 001030 105060 000002 CLRB LOCK(R0) ;RELEASE LINE ID MEMORY
641 001034 005065 000002 CLR C.SERV(R5) ;CLEAR SERVICE CONTEXT
642 001040 CALL SRQDRF ;PROCESS QIO DIRECTIVE FAILURE
643 001044 ENDIF
644 001044 ENDIF
645 001044 ENDIF
646 001044 ELSE
647 001046 112765 177763 000010 MOVB #CE$PAR,C.RET(R5) ;PARAMETER ERROR
648 001054 000241 CLC ;PROCESSING COMPLETE
649 001056 ENDIF
SRSTPR MACRO M1110 13-OCT-79 12:47 PAGE 13
SRSTLS
651 001056 ELSE ; SERVICE CONTEXT <> 0
652 001060 016500 000002 MOV C.SERV(R5),R0 ;GET LINE ID MEMORY ADDRESS
653 001064 IF ; SUCCESSFUL OPERATION
654 001064 FALSEB LT C.RET(R5)
655 001072 THEN
656 001072 IF ; SERVICE STATE = 1
657 001072 FALSEB NE STATE(R0),#1
658 001102 THEN
659 001102 105065 000010 CLRB C.RET(R5) ;MARK OPERATION NOT COMPLETE
660 001106 116001 000003 MOVB LENGTH(R0),R1 ;LENGTH OF NAME STRING FROM CONTEXT
661 001112 016502 000014 MOV C.ADDR(R5),R2 ;ADDRESS OF ARGUMENT BLOCK
662 001116 116202 000004 MOVB 4(R2),R2 ;REQUESTED STATE
663 001122 006302 ASL R2 ;MAKE IT A WORD INDEX
664 001124 016202 000606' MOV QIOCOD(R2),R2 ;GET LINE QIO FUNCTION CODE
665 001130 012703 000010 MOV #C.RET,R3 ;OFFSET OF STATUS BLOCK SPACE
666 001134 060503 ADD R5,R3 ;MAKE IT A POINTER
667 001136 062700 000004 ADD #LINEID,R0 ;POINT TO LINE ID
668 001142 QIO$S R2,#NCOLUN,,,R3,#SRAST,<R0,R1>
669 001202 IF ; SUCCESSFULLY QUEUED
670 001202 FALSE CS
671 001204 THEN
672 001204 016500 000002 MOV C.SERV(R5),R0 ;RESTORE ADDRESS OF LINE ID MEMORY
673 001210 012760 000002 000000 MOV #2,STATE(R0) ;UPDATE SERVICE STATE
674 001216 ELSE
675 001220 CALL SRQDRF ;PROCESS QIO DIRECTIVE FAILURE
676 001224 ENDIF
677 001224 ELSE
678 001226 IF ; ACTUALLY CHANGED
679 001226 FALSEB NE C.RET(R5),#IS.SUC
680 001236 THEN
681 001236 112765 000001 000010 MOVB #CS$SUC,C.RET(R5) ;SET SUCCESS RETURN CODE
682 001244 ELSE
683 001246 112765 000003 000010 MOVB #CS$NCH,C.RET(R5) ;SET NO CHANGE SUCCESS RETURN CODE
684 001254 ENDIF
685 001254 ENDIF
686 001254 ELSE
687 001256 116565 000010 000011 MOVB C.RET(R5),C.RET+1(R5) ;SAVE THE REAL FAILURE REASON
688 001264 IF ; FAILURE = INVALID LINE ID
689 001264 FALSEB NE C.RET(R5),#IE.NSF
690 001274 THEN
691 001274 112765 177766 000010 MOVB #CE$LID,C.RET(R5) ;INVALID LINE ID
692 001302 ELSE
693 001304 112765 177774 000010 MOVB #CE$FAI,C.RET(R5) ;FAILURE RETURN
694 001312 ENDIF
695 001312 ENDIF
696 001312 IF ; OPERATION COMPLETE
697 001312 FALSEB CLEAR C.RET(R5)
698 001320 THEN
699 001320 016500 000002 MOV C.SERV(R5),R0 ;ADDRESS OF LINE ID MEMORY
700 001324 105060 000002 CLRB LOCK(R0) ;RELEASE LINE ID MEMORY
701 001330 005065 000002 CLR C.SERV(R5) ;CLEAR SERVICE CONTEXT AND C-BIT
702 001334 ENDIF
703 001334 ENDIF
704 001334 RESSTK <R3> ;RESTORE REGISTERS
705 001336 ENDPROC
SRSTPR MACRO M1110 13-OCT-79 12:47 PAGE 14
SRSTPR
1511 .SBTTL SRSTPR
1512 ;
1513 ;======================================================================;
1514 ;++
1515 ; +-------------------------------------------------+
1516 ; I I
1517 ; I S R S T P R I
1518 ; I - - - - - - I
1519 ; I I
1520 ; +-------------------------------------------------+
1521 ;
1522 ; FUNCTION:
1523 ;
1524 ; SERVICE MODULE TO SET A PARAMETER
1525 ;
1526 ; INPUT:
1527 ;
1528 ; R5 - ADDRESS OF CONTROL BLOCK REQUESTING SET
1529 ; C.ADDR - ADDRESS OF ARGUMENT BLOCK AS REQUIRED BY TYPE OF SET
1530 ; C.RET - AS DESCRIBED FOR TYPE OF SET
1531 ; C.SERV - AS DESCRIBED FOR TYPE OF SET
1532 ; C.TYPE - TYPE OF SET
1533 ;
1534 ; OUTPUT:
1535 ;
1536 ; C-BIT - CLEAR IF PROCESSED, SET IF NOT
1537 ; @R5 - UPDATED CONTROL BLOCK
1538 ; C.RET - RETURN CODE
1539 ; C.SERV - AS DESCRIBED FOR TYPE OF SET
1540 ;
1541 ; REQUIREMENTS:
1542 ;
1543 ; CONFIGURATION CONTROL SYMBOLS:
1544 ;
1545 ; FS$HOS - HOST FLAG
1546 ; FS$LLP - LOCAL LOOPBACK FLAG
1547 ; FS$LOF - LINE OFF FLAG
1548 ; FS$LST - LINE STATE FLAG
1549 ; FS$NST - NODE STATE FLAG
1550 ; FS$PAS - PASSWORD FLAG
1551 ;
1552 ; CONTROL BLOCK SYMBOLS:
1553 ;
1554 ; C.RET - OFFSET OF RETURN CODE FIELD
1555 ; C.TYPE - OFFSET OF TYPE FIELD
1556 ; CE$FUN - INVALID FUNCTION OR OPTION RETURN CODE
1557 ; SP$DHO - TYPE CODE FOR SET DEFAULT HOST
1558 ; SP$DRP - TYPE CODE FOR SET DEFAULT RECEIVE PASSWORD
1559 ; SP$DTP - TYPE CODE FOR SET DEFAULT TRANSMIT PASSWORD
1560 ; SP$LHO - TYPE CODE FOR SET LINE HOST
1561 ; SP$LLP - TYPE CODE FOR SET LOCAL LOOPBACK
1562 ; SP$LOF - TYPE CODE FOR SET LINE OFF
1563 ; SP$LST - TYPE CODE FOR SET LINE STATE
1564 ; SP$NST - TYPE CODE FOR SET NODE STATE
1565 ;
1566 ;--
1567 ;======================================================================;
SRSTPR MACRO M1110 13-OCT-79 12:47 PAGE 14-1
SRSTPR
1568 ;
1569 ; EXTERNAL MACROS
1570 ;
1571 .MCALL CONDF
1572 ;
1573 ; DEFINE EXTERNAL SYMBOLS
1574 ;
1575 001340 CONDF ;CONTROL BLOCK SYMBOLS
SRSTPR MACRO M1110 13-OCT-79 12:47 PAGE 15
SRSTPR
1577 ;
1578 ; PROCEDURE BODY
1579 ;
1580 001340 PROC SRSTPR
1581 001340 ONCASE ; TYPE CODE
1582 001340 116500 000016 MOVB C.TYPE(R5),R0
1584 001344 CASE ; LINE OFF
1585 001344 FALSE NE R0,#SP$LOF
1586 001352 DO
1587 001352 CALL SRSTLO ;SET LINE OFF
1590 001356 CASE ; LINE STATE
1591 001360 FALSE NE R0,#SP$LST
1592 001366 DO
1593 001366 CALL SRSTLS ;SET LINE STATE
1602 001372 CASE ; DEFAULT RECEIVE OR TRANSMIT PASSWORD
1603 001374 TRUE EQ R0,#SP$DRP
1604 001402 FALSE NE R0,#SP$DTP
1605 001410 DO
1606 001410 CALL SRSTPW ;SET PASSWORD
1609 001414 CASE ; LOCAL LOOPBACK
1610 001416 FALSE NE R0,#SP$LLP
1611 001424 DO
1612 001424 CALL SRSTLL ;SET LOCAL LOOPBACK
1615 001430 CASE ; DEFAULT OR LINE HOST
1616 001432 TRUE EQ R0,#SP$DHO
1617 001440 FALSE NE R0,#SP$LHO
1618 001446 DO
1619 001446 CALL SRSTHO ;SET HOST
1621 001452 ELSE
1622 001454 112765 177777 000010 MOVB #CE$FUN,C.RET(R5) ;FUNCTION CODE ERROR
1623 001462 000241 CLC ;PROCESSING COMPLETE
1624 001464 ENDCASE
1625 001464 ENDPROC
SRSTPR MACRO M1110 13-OCT-79 12:47 PAGE 16
SRSTPW
1628 .SBTTL SRSTPW
1629 ;
1630 ;======================================================================;
1631 ;++
1632 ; +-------------------------------------------------+
1633 ; I I
1634 ; I S R S T P W I
1635 ; I - - - - - - I
1636 ; I I
1637 ; +-------------------------------------------------+
1638 ;
1639 ; FUNCTION:
1640 ;
1641 ; SET PARAMETER SERVICE MODULE TO SET A PASSWORD
1642 ;
1643 ; INPUT:
1644 ;
1645 ; R5 - ADDRESS OF CONTROL BLOCK REQUESTING SET
1646 ; C.ADDR - ADDRESS OF ARGUMENT BLOCK
1647 ; EIGHT BYTE PASSWORD
1648 ; C.TYPE - TYPE OF PASSWORD SET REQUESTED
1649 ;
1650 ; OUTPUT:
1651 ;
1652 ; C-BIT - CLEAR
1653 ; @R5 - UPDATED CONTROL BLOCK
1654 ; C.RET - RETURN CODE
1655 ;
1656 ; REQUIREMENTS:
1657 ;
1658 ; V$XMT - OFFSET OF TRANSMIT PASSWORD IN VERIFICATION BLOCK ;**-17
1659 ; DLX SERVICE SYMBOLS: ;AP0001
1660 ; ;AP0001
1661 ; NX.NIC - NICE SERVICE QIO FUNCTION ;AP0001
1662 ; NX$RCV - SET RECEIVE PASSWORD SUBFUNCTION ;AP0001
1663 ; NX$XMT - SET TRANSMIT PASSWORD SUBFUNCTION ;AP0001
1664 ; ;AP0001
1665 ; SERVICE SYMBOLS: ;AP0001
1666 ; ;AP0001
1667 ; NCOLUN - NETWORK CONTROL LOGICAL UNIT NUMBER ;AP0001
1668 ; TEMFLG - NETWORK CONTROL EVENT FLAG NUMBER ;AP0001
1669 ; CONTROL BLOCK SYMBOLS: ;**-2
1670 ;
1671 ; C.ADDR - OFFSET OF ADDRESS FIELD
1672 ; C.RET - OFFSET OF RETURN CODE FIELD
1673 ; C.TYPE - OFFSET OF TYPE FIELD
1674 ; CE$FUN - INVALID FUNCTION ERROR RETURN CODE
1675 ; CS$SUC - SUCCESS RETURN CODE
1676 ; SP$DRP - TYPE CODE FOR DEFAULT RECEIVE PASSWORD
1677 ; SP$DTP - TYPE CODE FOR DEFAULT TRANSMIT PASSWORD
1678 ;
1679 ; V.XMT - DEFAULT TRANSMIT PASSWORD ;**-7
1680 ;-- ;**-2
1681 ;======================================================================;
1682 ;
1683 ;
1684 ; EXTERNAL MACROS
SRSTPR MACRO M1110 13-OCT-79 12:47 PAGE 16-1
SRSTPW
1685 ;
1686 .MCALL CONDF,SAVSTK,RESSTK,DLXDF,SRDF,QIOW$S ;AP0001
1687 ; ;**-1
1688 ; DEFINE EXTERNAL SYMBOLS
1689 ;
1690 001466 CONDF ;CONTROL BLOCK SYMBOLS
1691 001466 DLXDF ;DLX NICE SERVICE SYMBOLS ;AP0001
1692 001466 SRDF ;SERVICE SYMBOLS ;AP0001
1693 ; ;AP0001
1694 ; HOLDING AREA FOR LOCAL NODE NAME AND PASSWORD ;AP0001
1695 ; ;AP0001
1696 001466 006 LNODE: .BYTE 6 ;LENGTH OF NODE NAME ;AP0001
1697 001467 .BLKB 6 ;THE NODE NAME ;AP0001
1698 001475 .BLKB 8. ;THE PASSWORD ;AP0001
1699 .EVEN ;AP0001
SRSTPR MACRO M1110 13-OCT-79 12:47 PAGE 17
SRSTPW
1701 ;
1702 ; LOCAL PROCEDURE BODY
1703 ;
1704 001506 PROCLC SRSTPW ;AP0001
1705 001506 012702 001467' MOV #LNODE+1,R2 ;GET OUR NODE NAME BUFFER ;AP0001
1706 001512 012701 000006 MOV #6,R1 ;THIS MANY CHARACTERS ;AP0001
1707 001516 CALL LOCNOD ;COPY THE LOCAL NODE NAME IN ;AP0001
1708 001522 110167 177740 MOVB R1,LNODE ;STORE THE COUNT ;AP0001
1709 001526 012701 000010 MOV #8.,R1 ;MOVE 8 CHARACTER PASSWORD ;AP0001
1710 001532 016500 000014 MOV C.ADDR(R5),R0 ;FROM BUFFER ;AP0001
1711 001536 WHILE ; MORE CHARACTERS TO MOVE ;AP0001
1712 001536 FALSE EQ R1 ;AP0001
1713 001542 THEN ;AP0001
1714 001542 112022 MOVB (R0)+,(R2)+ ;MOVE THE PASSWORD IN ;AP0001
1715 001544 005301 DEC R1 ;AP0001
1716 001546 ENDWHILE ;AP0001
1717 001550 162702 001466' SUB #LNODE,R2 ;FIGURE LENGTH ;AP0001
1718 001554 IF ; THIS IS A RECEIVE PASSWORD ;AP0001
1719 001554 FALSE NE C.TYPE(R5),#SP$DRP ;AP0001
1720 001564 THEN ; SET THE FUNCTION CODE FOR THIS ;AP0001
1721 001564 012701 000032 MOV #NX$RCV,R1 ;SET THE RECEIVE PASSWORD ;AP0001
1722 001570 ELSE ;OR ;AP0001
1723 001572 012701 000030 MOV #NX$XMT,R1 ;SET THE TRANSMIT PASSWORD ;AP0001
1724 001576 ENDIF ;AP0001
1725 001576 012700 000010 MOV #C.RET,R0 ;GET STATUS BLOCK ADDRESS ;AP0001
1726 001602 060500 ADD R5,R0 ;AP0001
1727 001604 QIOW$S #NX.NIC,#NCOLUN,#TEMFLG,,R0,,<#LNODE,R2,R1> ;AP0001
1728 ;SET THE PASSWORD ;AP0001
1729 001652 IF ; QIO CALL DID NOT FAIL ;AP0001
1730 001652 FALSE CS ;AP0001
1731 001654 THEN ;AP0001
1732 001654 IF ; SUCCESS IN OPERATION ;AP0001
1733 001654 FALSEB MI (R0) ;AP0001
1734 001660 THEN ;AP0001
1735 001660 012700 000001 MOV #CS$SUC,R0 ;SUCCESSFUL RETURN CODE ;AP0001
1736 001664 ELSE ; CHECK ON THE ERROR ;AP0001
1737 001666 ONCASE ; CHECK THE RETURN CODE ;AP0001
1738 001666 CASE ; OPTION NOT SUPPORTED ;AP0001
1739 001666 FALSEB NE #IE.ONP,(R0) ;AP0001
1740 001674 DO ;AP0001
1741 001674 012700 177777 MOV #CE$FUN,R0 ;INVALID FUNCTION ;AP0001
1742 001700 ELSE ; CATCH-ALL ;AP0001
1743 001702 012700 177774 MOV #CE$FAI,R0 ;FAILURE RETURN ;AP0001
1744 001706 ENDCASE ;AP0001
1745 001706 ENDIF ;AP0001
1746 001706 ELSE ;AP0001
1747 001710 CALL SRQDRF ;ANALYZE QIO REQUEST FAILURE ;AP0001
1748 001714 ENDIF ;AP0001
1749 001714 ENDPROC ;AP0001
1751 000001 .END
SRSTPR MACRO M1110 13-OCT-79 12:47 PAGE 17-1
SYMBOL TABLE
A$$CHK= 000000 C$RCBK= 000047 FLGMSK= 000003 F$OPOT= 000000 LF.RAS= 017020
A$$CPS= 000000 C$RCEV= 000050 FL$BOO= 000001 F$ORLU= 000000 LF.RD = 015000
A$$TRP= 000000 C$RCIN= 000062 FL$DUM= 000001 F$OTLU= 000001 LF.WRT= 014400
BLKFLG= 000003 C$RCMA= 000146 FL$LOA= 000001 F$RCBK= 000002 LINEID 000004
CE$ACP= 177753 C$RCMS= 000054 FL$LOO= 000001 F$RCEV= 000001 LINLUN= 000017
CE$ADR= 177776 C$RDBK= 000043 FR$LCC= 000001 F$RCIN= 000000 LI$KNO= 000000
CE$CON= 177770 C$RDCM= 000035 FR$LCS= 000001 F$RCMA= 000000 LI$STA= 000001
CE$DIS= 177771 C$RDIN= 000040 FR$LNC= 000001 F$RCMS= 000002 LI$STR= 000002
CE$EOF= 177767 C$RDIS= 000040 FR$LNL= 000001 F$RDBK= 000000 LNKLUN= 000004
CE$FAI= 177774 C$RDRC= 000060 FR$LNS= 000001 F$RDCM= 000000 LNODE 001466R
CE$FIL= 177756 C$RLBF= 000001 FR$RMC= 000001 F$RDIN= 000001 LOCK 000002
CE$FUN= 177777 C$RLCB= 000002 FR$RML= 000001 F$RDIS= 000012 LOCNOD= ****** GX
CE$GEN= 177774 C$RLCI= 000000 FR$RMS= 000001 F$RDRC= 000000 LS$DUM= 000002
CE$IND= 177757 C$STBK= 000055 FS$HOS= 000001 F$RECO= 000001 LS$LOA= 000000
CE$IO = 177760 C$STPR= 000037 FS$INT= 000000 F$RLBF= 000001 LS$LOO= 000001
CE$LEN= 177775 C$STPS= 000037 FS$LLP= 000001 F$RLCB= 000001 LS$TRI= 000004
CE$LID= 177766 C$TRBK= 000046 FS$LOF= 000001 F$STBK= 000000 LS$TRQ= 000003
CE$LST= 177752 C$TRIN= 000063 FS$LOG= 000001 F$STPR= 000001 L$$ASG= 000000
CE$NOD= 177765 C$TRMA= 000145 FS$LST= 000001 F$STPS= 000006 L$$DRV= 000000
CE$NSD= 177755 C$TRMS= 000053 FS$NET= 000001 F$TEST= 000001 L$$P11= 000001
CE$NST= 177754 C$WRBK= 000044 FS$NST= 000000 F$TRAC= 000000 L$$11R= 000000
CE$NWE= 177773 C$WRCL= 000065 FS$PAS= 000001 F$TRBK= 000001 MOVE = ****** GX
CE$OBJ= 177750 C$WRCM= 000036 FT$CNS= 000000 F$TRIG= 000001 M$$CRB= 000124
CE$OPN= 177761 C$WRRC= 000061 FT$NOD= 000001 F$TRIN= 000000 M$$CRX= 000000
CE$OVR= 177764 C$ZRCN= 000064 FT$TSK= 000001 F$TRMA= 000000 M$$FCS= 000000
CE$PAR= 177763 C$$CKP= 000000 F$ALBF= 000001 F$TRMS= 000002 M$$OVR= 000000
CE$PRO= 177751 C$$ORE= 000400 F$ALCB= 000001 F$WRBK= 000000 NCOLUN= 000016
CE$REJ= 177772 C$$RSH= 177564 F$CB = 000017 F$WRCL= 000001 ND$BAD= 177777
CE$TMO= 177762 C.ADDR= 000014 F$CLCL= 000001 F$WRCM= 000000 ND$LCC= 000000
CMILUN= 000002 C.BKNM= 000014 F$CLCO= 000000 F$WRRC= 000000 ND$LCS= 000001
CMOLUN= 000001 C.CTXT= 000004 F$CLFL= 000000 F$ZERO= 000001 ND$LNC= 000004
CS$ACK= 000002 C.FUNC= 000006 F$CLLK= 000006 F$ZRCN= 000001 ND$LNS= 000005
CS$LKE= 000001 C.LEN = 000012 F$CLLN= 000002 F$$LVL= 000001 ND$RMC= 000002
CS$LNA= 000002 C.LINE= 000014 F$DPOS= 000001 F$150 = 000002 ND$RMS= 000003
CS$LOG= 000003 C.LKNM= 000020 F$DUMP= 000000 F$300 = 000012 ND$ZLC= 000000
CS$NCH= 000003 C.LUN = 000020 F$EVNT= 000001 F$50 = 000002 ND$ZLN= 000002
CS$SUC= 000001 C.MODE= 000021 F$EXAM= 000001 F$550 = 000002 ND$ZRM= 000001
C$ALBF= 000032 C.PRID= 000017 F$EXHO= 000000 G$$TPP= 000000 NETLUN= 000003
C$ALCB= 000033 C.PROC= 000007 F$GTCM= 000001 G$$TSS= 000000 NE$CON= 177762
C$CLCL= 000067 C.PROM= 000016 F$INCM= 000000 G$$TTK= 000000 NE$FIL= 177763
C$CLCO= 000003 C.PTR = 000000 F$INLU= 000001 HOSDB = ****** GX NE$FIO= 177756
C$CLFL= 000004 C.RET = 000010 F$IRLU= 000000 HOSDBE= ****** GX NE$FOR= 177776
C$CLLK= 000052 C.SAVE= 000022 F$LKLU= 000010 IE.NSF= ****** GX NE$FUN= 177777
C$CLLN= 000005 C.SERV= 000002 F$LNLU= 000002 IE.ONP= ****** GX NE$LCO= 177766
C$LEN = 000026 C.TASK= 000016 F$LNSR= 000001 IS.SUC= ****** GX NE$LID= 177770
C$NOPN= 000031 C.TYPE= 000016 F$LOAD= 000000 I$$RAR= 000000 NE$LPR= 177757
C$NORD= 000032 C.WAIT= 000020 F$LOGD= 000001 I$$RDN= 000000 NE$LST= 177767
C$OPCL= 000066 DM$END= 000000 F$LOOP= 000001 K$$CNT= 177546 NE$NCO= 177755
C$OPCO= 000034 DM$MIM= 000002 F$NTCM= 000000 K$$CSR= 177546 NE$NIC= 177753
C$OPIN= 000041 DM$PXA= 000003 F$OPCL= 000001 K$$LDC= 000000 NE$NOD= 177765
C$OPIR= 000056 DM$SAD= 000001 F$OPCO= 000000 K$$TPS= 000074 NE$NOR= 177754
C$OPLK= 000051 D$$BUG= 177514 F$OPIN= 000000 LD$LP = 000000 NE$ORD= 177774
C$OPLN= 000045 D$$ISK= 000000 F$OPIR= 000000 LENGTH 000003 NE$PAR= 177760
C$OPOR= 000057 D$$L11= 000001 F$OPLK= 000005 LF.CLS= 016210 NE$RES= 177761
C$OPOT= 000042 ENTLEN= 000013 F$OPLN= 000002 LF.OFF= 017010 NE$SER= 177764
C$ORD = 000145 FILLUN= 000014 F$OPLO= 000000 LF.ON = 017000 NE$STA= 177775
C$PROC= 000200 FLGGRP= 000000 F$OPOR= 000000 LF.OPN= 015400 NL$BRC= 000001
SRSTPR MACRO M1110 13-OCT-79 12:47 PAGE 17-2
SYMBOL TABLE
NL$BTR= 000002 NX$SLH= 000026 N.MLEN= 000454 SP$LHO= 000002 S$$YSZ= 001600
NL$RES= 000005 NX$SLM= 000042 PT$END= 000000 SP$LLP= 000011 TABBEG= 000007
NL$RLE= 000004 NX$SLO= 000040 PT$HOS= 000003 SP$LNM= 000016 TEMBLK 000000R 002
NL$RTR= 000003 NX$SLS= 000022 PT$NAM= 000001 SP$LNO= 000015 TEMBLN= 000032
NL$TMO= 000006 NX$SNH= 000024 PT$NUM= 000002 SP$LOF= 000012 TEMFLG= 000030
NL$ZRO= 000000 NX$SNM= 000036 P$$P45= 000000 SP$LST= 000001 TEMWLN= 000015
NN$CAC= 000011 NX$SNO= 000034 QIOCOD 000606R SP$NDM= 000014 TIMBIT= 000002
NN$CNI= 000013 NX$SNS= 000010 RI$LCC= 000001 SP$NDO= 000013 TIMFLG= 000002
NN$CNR= 000014 NX$XMT= 000030 RI$LCS= 000002 SP$NST= 000006 T$$KMG= 000000
NN$EXT= 000003 NX$ZLC= 000020 RI$LNC= 000007 SP$RRP= 000004 T$$MIN= 000000
NN$FMT= 000005 NX$ZNC= 000006 RI$LNL= 000006 SP$RTP= 000005 V$$CTR= 001000
NN$IZS= 000007 NX.NIC= 017050 RI$LNS= 000010 SRAST = ****** GX X$$DBT= 000000
NN$IZU= 000010 N$DPOS= 000014 RI$RMC= 000004 SRFMLN= ****** GX YES = 000001
NN$MAC= 000012 N$DUMP= 000003 RI$RML= 000003 SRQDRF= ****** GX $$CSTA= 000000
NN$NKS= 000004 N$EXAM= 000015 RI$RMS= 000005 SRSTHO 000000R $$PRST= 000014
NN$RES= 000006 N$LNSR= 000016 RI$ZLC= 000011 SRSTLL 000346R $$STIX= 000777
NN$UMR= 000002 N$LOAD= 000002 RI$ZLN= 000013 SRSTLO 000360R $$STNM= 000000
NN$UMS= 000001 N$LOGD= 000001 RI$ZRM= 000012 SRSTLS 000612R $$S766= 000011
NN$ZRO= 000000 N$LOOP= 000005 R$$DER= 000000 SRSTPR 001340RG $$S767= 000013
NO = 000000 N$RDIN= 000010 R$$K11= 000001 SRSTPW 001506R $$S770= 000011
NS$SUC= 000001 N$STPR= 000007 R$$SND= 000000 STATE 000000 $$S771= 000000
NX$DEP= 000046 N$TEST= 000006 R$$11M= 000000 ST$DIS= 000006 $$S772= 000011
NX$EXM= 000050 N$TRIG= 000004 R50DLX 000602R ST$ENA= 000005 $$S773= 000013
NX$RCV= 000032 N$XADJ= 000002 R50NSP 000604R ST$LOO= 000003 $$S774= 000077
NX$RLC= 000016 N$XINT= 000003 SERBIT= 000001 ST$MAI= 000004 $$S775= 000012
NX$RLN= 000012 N$XLCL= 000001 SERFLG= 000001 ST$OFF= 000001 $$S776= 000000
NX$RLS= 000014 N$XRMT= 000004 SP$DHO= 000003 ST$ON = 000000 $$S777= 000000
NX$RNC= 000004 N$ZERO= 000011 SP$DRP= 000007 ST$SHU= 000002 $$TRNM= 000000
NX$RNN= 000000 N$$USR= 000001 SP$DTP= 000010 S$$WRG= 000000 $$$ARG= 000002
NX$RNS= 000002
. ABS. 000024 000
001716 001
TEMDAT 000032 002
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 11580 WORDS ( 46 PAGES)
DYNAMIC MEMORY: 13228 WORDS ( 50 PAGES)
ELAPSED TIME: 00:02:46
SRSTPR,[135,30]SRSTPR/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,SRSTPR
SRSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:48 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
CE$FAI = 177774 6-208 10-476 13-693 17-1743
CE$FUN = 177777 6-206 8-339 15-1622 17-1741
CE$LID = 177766 10-474 13-691
CE$OVR = 177764 6-258
CE$PAR = 177763 12-647
CS$NCH = 000003 13-683
CS$SUC = 000001 6-200 6-256 10-468 13-681 17-1735
C.ADDR = 000014 6-179 6-192 10-435 12-603 12-610 13-661 17-1710
C.RET = 000010 6-190 *6-256 *6-258 *8-339 *10-443 10-448 10-464 *10-470 *10-479
*12-618 12-632 *12-647 13-654 *13-659 13-665 13-679 *13-681 *13-683
13-687 *13-687 13-689 *13-691 *13-693 13-697 *15-1622 17-1725
C.SERV = 000002 10-431 *10-446 10-455 *10-457 *10-480 12-601 *12-621 12-639 *12-641
13-652 13-672 13-699 *13-701
C.TYPE = 000016 6-181 15-1582 17-1719
ENTLEN = 000013 #5-171 6-243
FL$BOO = 000001 #4-82 4-82
FL$DUM = 000001 #4-82 4-82
FL$LOA = 000001 #4-82 4-82
FL$LOO = 000001 #4-82 4-82
FR$LCC = 000001 #4-82 4-82
FR$LCS = 000001 #4-82 4-82
FR$LNC = 000001 #4-82 4-82
FR$LNL = 000001 #4-82 4-82
FR$LNS = 000001 #4-82 4-82
FR$RMC = 000001 #4-82 4-82
FR$RML = 000001 #4-82 4-82
FR$RMS = 000001 #4-82 4-82
FS$HOS = 000001 #4-82 4-82 4-87 15-1614
FS$INT = 000000 #4-82 4-82 4-82 4-82
FS$LLP = 000001 #4-82 4-82 6-264 15-1608
FS$LOF = 000001 #4-82 4-82 8-343 15-1583
FS$LOG = 000001 #4-82 4-82
FS$LST = 000001 #4-82 4-82 10-484 15-1589
FS$NET = 000001 #4-82 4-82
FS$NST = 000000 #4-82 4-82 13-707 15-1595
FS$PAS = 000001 #4-82 4-82 15-1601 15-1626
FT$CNS = 000000 #4-82 4-82
FT$NOD = 000001 #4-82 4-82
FT$TSK = 000001 #4-82 4-82
F$ALBF = 000001 #4-82
F$ALCB = 000001 #4-82
F$CB = 000017 #4-82
F$CLCL = 000001 #4-82 4-82 #4-82
F$CLCO = 000000 #4-82
F$CLFL = 000000 #4-82
F$CLLK = 000006 #4-82 4-82 #4-82 4-82 #4-82 4-82 #4-82 4-82 #4-82
4-82 #4-82 4-82 #4-82
F$CLLN = 000002 #4-82 4-82 #4-82 4-82 #4-82
F$DPOS = 000001 #4-82 4-82
F$DUMP = 000000 #4-82 4-82
F$EVNT = 000001 #4-82 4-82
F$EXAM = 000001 #4-82 4-82
SRSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:48 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
F$EXHO = 000000 #4-82
F$GTCM = 000001 #4-82 4-82
F$INCM = 000000 #4-82 4-82
F$INLU = 000001 #4-82
F$IRLU = 000000 #4-82
F$LKLU = 000010 #4-82
F$LNLU = 000002 #4-82
F$LNSR = 000001 #4-82 4-82
F$LOAD = 000000 #4-82 4-82
F$LOGD = 000001 #4-82 4-82
F$LOOP = 000001 #4-82 4-82
F$NTCM = 000000 #4-82 4-82
F$OPCL = 000001 #4-82 4-82 #4-82
F$OPCO = 000000 #4-82
F$OPIN = 000000 #4-82
F$OPIR = 000000 #4-82
F$OPLK = 000005 #4-82 4-82 #4-82 4-82 #4-82 4-82 #4-82 4-82 #4-82
4-82 #4-82
F$OPLN = 000002 #4-82 4-82 #4-82 4-82 #4-82
F$OPLO = 000000 #4-82
F$OPOR = 000000 #4-82
F$OPOT = 000000 #4-82
F$ORLU = 000000 #4-82
F$OTLU = 000001 #4-82
F$RCBK = 000002 #4-82 4-82 #4-82 4-82 #4-82
F$RCEV = 000001 #4-82 4-82 #4-82
F$RCIN = 000000 #4-82
F$RCMA = 000000 #4-82
F$RCMS = 000002 #4-82 4-82 #4-82
F$RDBK = 000000 #4-82
F$RDCM = 000000 #4-82
F$RDIN = 000001 #4-82 4-82
F$RDIS = 000012 #4-82 4-82 #4-82 4-82 #4-82 4-82 #4-82 4-82 #4-82
4-82 #4-82 4-82 #4-82 4-82 #4-82 4-82 #4-82 4-82
#4-82
F$RDRC = 000000 #4-82
F$RECO = 000001 #4-82 4-82 #4-82
F$RLBF = 000001 #4-82
F$RLCB = 000001 #4-82
F$STBK = 000000 #4-82
F$STPR = 000001 #4-82 4-82
F$STPS = 000006 #4-82 4-82 #4-82 4-82 #4-82 4-82 #4-82 4-82 #4-82
4-82 #4-82 4-82 #4-82
F$TEST = 000001 #4-82 4-82
F$TRAC = 000000 #4-82 6-178 6-178 6-262 6-262 8-338 8-338 8-341 8-341
10-430 10-430 10-482 10-482 12-598 12-598 13-705 13-705 15-1580
15-1580 15-1625 15-1625 17-1704 17-1704 17-1749 17-1749
F$TRBK = 000001 #4-82 4-82 #4-82
F$TRIG = 000001 #4-82 4-82
F$TRIN = 000000 #4-82
F$TRMA = 000000 #4-82
F$TRMS = 000002 #4-82 4-82 #4-82
SRSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:48 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
F$WRBK = 000000 #4-82
F$WRCL = 000001 #4-82 4-82 #4-82
F$WRCM = 000000 #4-82
F$WRRC = 000000 #4-82
F$ZERO = 000001 #4-82 4-82
F$ZRCN = 000001 #4-82 4-82 #4-82
F$150 = 000002 #4-82
F$300 = 000012 #4-82
F$50 = 000002 #4-82
F$550 = 000002 #4-82
HOSDB = ****** GX 6-186 6-215
HOSDBE = ****** GX 6-219
IE.NSF = ****** GX 10-472 13-689
IE.ONP = ****** GX 6-204 17-1739
IS.SUC = ****** GX 13-679
I$$AS = ****** 6-178 8-338 10-430 12-598 15-1580 17-1704
LENGTH 000003 #9-425 10-447 #11-581 12-622 13-660
LF.OFF = 017010 10-451 11-593
LF.ON = 017000 11-592
LF.RAS = 017020 12-635
LINEID 000004 #9-425 10-450 #11-581 12-634 13-667
LNODE 001466 R #16-1696 17-1705 *17-1708 17-1717 17-1727
LOCK 000002 #9-425 *10-456 *10-463 #11-581 *12-640 *13-700
LOCNOD = ****** GX 17-1707
MOVE = ****** GX 6-187 6-251 6-255
NCOLUN = 000016 6-192 10-451 12-635 13-668 17-1727
NO = 000000 #4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82
4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82
4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82
4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82
4-82 4-82 4-82
NX$RCV = 000032 17-1721
NX$SNH = 000024 6-188
NX$XMT = 000030 17-1723
NX.NIC = 017050 6-192 17-1727
QIOCOD 000606 R #11-590 13-664
R$$11D = ****** 6-178 8-338 10-430 12-598 15-1580 17-1704
R$$11M = 000000 6-178 8-338 10-430 12-598 15-1580 17-1704
R50DLX 000602 R #11-585 12-626
R50NSP 000604 R #11-586 12-629
SP$DHO = 000003 6-181 15-1616
SP$DRP = 000007 15-1603 17-1719
SP$DTP = 000010 15-1604
SP$LHO = 000002 15-1617
SP$LLP = 000011 15-1610
SP$LOF = 000012 15-1585
SP$LST = 000001 15-1591
SRAST = ****** GX 10-451 12-635 13-668
SRFMLN = ****** GX 10-436 12-611
SRQDRF = ****** GX 6-212 10-458 12-642 13-675 17-1747
SRSTHO 000000 R #6-178 15-1619
SRSTLL 000346 R #8-338 15-1612
SRSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:48 PAGE 4
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
SRSTLO 000360 R #10-430 15-1587
SRSTLS 000612 R #12-598 15-1593
SRSTPR 001340 RG #15-1580
SRSTPW 001506 R 15-1606 #17-1704
STATE 000000 #9-425 #11-581 *12-627 *12-630 13-657 *13-673
ST$MAI = 000004 12-608 12-624
ST$OFF = 000001 12-607
ST$ON = 000000 12-606
TABBEG = 000007 #5-171 6-215
TEMBLK 000000 R #4-86
TEMBLN = 000032 #4-86
TEMFLG = 000030 6-192 17-1727
TEMWLN = 000015 #4-86 4-86 4-86
YES = 000001 #4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82
4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82
4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82
4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82
4-82 4-82 4-82 4-82 4-82
$$CSTA = 000000 #6-178 6-202 #6-202 6-203 #6-203 #6-209 #8-338 #10-430 #12-598
#15-1580 15-1581 #15-1581 15-1584 #15-1584 15-1590 15-1602 15-1609 15-1615
#15-1624 #17-1704 17-1737 #17-1737 17-1738 #17-1738 #17-1744
$$PRST = 000014 #6-178 *6-180 #6-180 6-194 #6-194 6-197 #6-197 6-202 #6-202
*6-218 #6-218 6-222 #6-222 6-225 #6-225 6-231 #6-231 6-245
#6-245 6-248 #6-248 #8-338 #10-430 *10-432 #10-432 10-437 #10-437
10-440 #10-440 10-452 #10-452 *10-465 #10-465 *10-471 #10-471 #12-598
*12-600 #12-600 *12-605 #12-605 12-612 #12-612 12-615 #12-615 *12-623
#12-623 12-636 #12-636 *13-653 #13-653 13-656 #13-656 13-669 #13-669
13-678 #13-678 *13-688 #13-688 13-696 #13-696 #15-1580 15-1581 #15-1581
#17-1704 *17-1711 #17-1711 17-1718 #17-1718 17-1729 #17-1729 17-1732 #17-1732
17-1737 #17-1737
$$SLST = ****** 6-178 6-181 6-181 6-182 6-195 6-196 6-198 6-198 6-199
6-201 6-201 6-204 6-204 6-205 6-207 6-207 6-209 6-210
6-211 6-211 6-213 6-214 6-214 6-218 6-219 6-219 6-220
6-220 6-221 6-223 6-223 6-224 6-226 6-226 6-227 6-229
6-230 6-230 6-232 6-232 6-233 6-233 6-234 6-234 6-235
6-235 6-236 6-241 6-242 6-244 6-244 6-246 6-246 6-247
6-249 6-249 6-250 6-252 6-257 6-257 6-259 6-260 6-262
8-338 8-341 10-430 10-433 10-434 10-438 10-439 10-441 10-441
10-442 10-445 10-445 10-453 10-454 10-459 10-460 10-461 10-462
10-462 10-466 10-467 10-469 10-469 10-472 10-472 10-473 10-475
10-475 10-477 10-478 10-481 10-482 12-598 12-601 12-601 12-602
12-606 12-606 12-607 12-607 12-608 12-608 12-609 12-613 12-614
12-616 12-616 12-617 12-620 12-620 12-624 12-624 12-625 12-628
12-628 12-631 12-637 12-638 12-643 12-644 12-645 12-646 12-646
12-649 13-651 13-651 13-654 13-654 13-655 13-657 13-657 13-658
13-670 13-671 13-674 13-674 13-676 13-677 13-677 13-679 13-679
13-680 13-682 13-682 13-684 13-685 13-686 13-686 13-689 13-689
13-690 13-692 13-692 13-694 13-695 13-697 13-697 13-698 13-702
13-703 13-705 15-1580 15-1585 15-1585 15-1586 15-1590 15-1590 15-1591
15-1591 15-1592 15-1602 15-1602 15-1603 15-1603 15-1604 15-1604 15-1605
15-1609 15-1609 15-1610 15-1610 15-1611 15-1615 15-1615 15-1616 15-1616
15-1617 15-1617 15-1618 15-1621 15-1621 15-1624 15-1625 17-1704 17-1711
SRSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:48 PAGE 5
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
17-1712 17-1712 17-1713 17-1716 17-1716 17-1719 17-1719 17-1720 17-1722
17-1722 17-1724 17-1730 17-1731 17-1733 17-1733 17-1734 17-1736 17-1736
17-1739 17-1739 17-1740 17-1742 17-1742 17-1744 17-1745 17-1746 17-1746
17-1748 17-1749
$$STIX = 000777 #6-178 *6-180 *6-180 #6-180 *6-180 *6-180 #6-180 6-194 6-194
#6-194 6-194 6-194 #6-194 6-197 6-197 #6-197 6-197 6-197
#6-197 6-202 6-202 #6-202 6-202 6-202 #6-202 6-202 6-202
#6-202 *6-209 #6-209 *6-209 6-209 #6-209 6-209 6-209 #6-209
6-209 6-210 #6-210 6-210 6-210 #6-210 6-210 6-213 #6-213
6-213 6-213 #6-213 6-213 *6-218 *6-218 #6-218 *6-218 *6-218
#6-218 6-222 6-222 #6-222 6-222 6-222 #6-222 6-225 6-225
#6-225 6-225 6-225 #6-225 6-229 #6-229 6-229 6-229 #6-229
6-229 6-231 6-231 #6-231 6-231 6-231 #6-231 6-241 #6-241
6-241 6-241 #6-241 6-241 6-242 #6-242 6-242 6-242 #6-242
6-242 6-244 #6-244 6-244 6-244 #6-244 6-244 6-245 6-245
#6-245 6-245 6-245 #6-245 6-248 6-248 #6-248 6-248 6-248
#6-248 6-252 #6-252 6-252 6-252 #6-252 6-252 6-259 #6-259
6-259 6-259 #6-259 6-259 6-260 #6-260 6-260 6-260 #6-260
6-260 #8-338 #10-430 *10-432 *10-432 #10-432 *10-432 *10-432 #10-432
10-437 10-437 #10-437 10-437 10-437 #10-437 10-440 10-440 #10-440
10-440 10-440 #10-440 10-452 10-452 #10-452 10-452 10-452 #10-452
10-459 #10-459 10-459 10-459 #10-459 10-459 10-460 #10-460 10-460
10-460 #10-460 10-460 10-461 #10-461 10-461 10-461 #10-461 10-461
*10-465 *10-465 #10-465 *10-465 *10-465 #10-465 *10-471 *10-471 #10-471
*10-471 *10-471 #10-471 10-477 #10-477 10-477 10-477 #10-477 10-477
10-478 #10-478 10-478 10-478 #10-478 10-478 10-481 #10-481 10-481
10-481 #10-481 10-481 #12-598 *12-600 *12-600 #12-600 *12-600 *12-600
#12-600 *12-605 *12-605 #12-605 *12-605 *12-605 #12-605 12-612 12-612
#12-612 12-612 12-612 #12-612 12-615 12-615 #12-615 12-615 12-615
#12-615 *12-623 *12-623 #12-623 *12-623 *12-623 #12-623 12-631 #12-631
12-631 12-631 #12-631 12-631 12-636 12-636 #12-636 12-636 12-636
#12-636 12-643 #12-643 12-643 12-643 #12-643 12-643 12-644 #12-644
12-644 12-644 #12-644 12-644 12-645 #12-645 12-645 12-645 #12-645
12-645 12-649 #12-649 12-649 12-649 #12-649 12-649 *13-653 *13-653
#13-653 *13-653 *13-653 #13-653 13-656 13-656 #13-656 13-656 13-656
#13-656 13-669 13-669 #13-669 13-669 13-669 #13-669 13-676 #13-676
13-676 13-676 #13-676 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-685 #13-685
13-685 13-685 #13-685 13-685 *13-688 *13-688 #13-688 *13-688 *13-688
#13-688 13-694 #13-694 13-694 13-694 #13-694 13-694 13-695 #13-695
13-695 13-695 #13-695 13-695 13-696 13-696 #13-696 13-696 13-696
#13-696 13-702 #13-702 13-702 13-702 #13-702 13-702 13-703 #13-703
13-703 13-703 #13-703 13-703 #15-1580 15-1581 15-1581 #15-1581 15-1581
15-1581 #15-1581 15-1581 15-1581 #15-1581 15-1624 #15-1624 15-1624 15-1624
#15-1624 15-1624 15-1624 #15-1624 15-1624 #17-1704 *17-1711 *17-1711 #17-1711
*17-1711 *17-1711 #17-1711 17-1716 #17-1716 17-1716 17-1716 #17-1716 17-1716
17-1718 17-1718 #17-1718 17-1718 17-1718 #17-1718 17-1724 #17-1724 17-1724
17-1724 #17-1724 17-1724 17-1729 17-1729 #17-1729 17-1729 17-1729 #17-1729
17-1732 17-1732 #17-1732 17-1732 17-1732 #17-1732 17-1737 17-1737 #17-1737
17-1737 17-1737 #17-1737 17-1737 17-1737 #17-1737 *17-1744 #17-1744 *17-1744
17-1744 #17-1744 17-1744 17-1744 #17-1744 17-1744 17-1745 #17-1745 17-1745
17-1745 #17-1745 17-1745 17-1748 #17-1748 17-1748 17-1748 #17-1748 17-1748
SRSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:48 PAGE 6
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
$$STNM = 000000 #6-178 *6-180 #6-180 *6-180 6-181 6-182 6-194 #6-194 6-194
6-195 6-196 6-197 #6-197 6-197 6-198 6-199 *6-201 6-201
6-202 #6-202 6-202 6-204 6-205 *6-207 6-207 6-209 #6-209
6-210 #6-210 6-211 6-211 6-213 #6-213 6-214 6-214 *6-218
#6-218 *6-218 *6-218 6-219 6-220 6-221 6-222 #6-222 6-222
6-223 6-224 6-225 #6-225 6-225 6-226 6-227 *6-229 #6-229
6-230 6-230 6-231 #6-231 6-231 6-232 6-233 6-234 6-235
6-236 6-241 #6-241 6-242 #6-242 6-244 6-244 #6-244 6-245
#6-245 6-245 6-246 6-247 6-248 #6-248 6-248 6-249 6-250
6-252 #6-252 *6-257 6-257 *6-259 #6-259 6-260 #6-260 #8-338
#10-430 *10-432 #10-432 *10-432 10-433 10-434 10-437 #10-437 10-437
10-438 10-439 10-440 #10-440 10-440 10-441 10-442 10-445 10-445
10-452 #10-452 10-452 10-453 10-454 10-459 #10-459 10-460 #10-460
10-461 #10-461 10-462 10-462 *10-465 #10-465 *10-465 10-466 10-467
*10-469 10-469 *10-471 #10-471 *10-471 10-472 10-473 *10-475 10-475
*10-477 #10-477 10-478 #10-478 10-481 #10-481 #12-598 *12-600 #12-600
*12-600 12-601 12-602 *12-605 #12-605 *12-605 12-606 12-607 12-608
12-609 12-612 #12-612 12-612 12-613 12-614 12-615 #12-615 12-615
12-616 12-617 12-620 12-620 *12-623 #12-623 *12-623 12-624 12-625
*12-628 12-628 *12-631 #12-631 12-636 #12-636 12-636 12-637 12-638
12-643 #12-643 12-644 #12-644 12-645 #12-645 12-646 12-646 12-649
#12-649 13-651 13-651 *13-653 #13-653 *13-653 13-654 13-655 13-656
#13-656 13-656 13-657 13-658 13-669 #13-669 13-669 13-670 13-671
*13-674 13-674 13-676 #13-676 13-677 13-677 13-678 #13-678 13-678
13-679 13-680 *13-682 13-682 *13-684 #13-684 13-685 #13-685 13-686
13-686 *13-688 #13-688 *13-688 13-689 13-690 *13-692 13-692 *13-694
#13-694 13-695 #13-695 13-696 #13-696 13-696 13-697 13-698 13-702
#13-702 13-703 #13-703 #15-1580 15-1581 #15-1581 15-1581 15-1585 15-1586
15-1590 15-1590 15-1591 15-1592 15-1602 15-1602 15-1603 15-1604 15-1605
15-1609 15-1609 15-1610 15-1611 15-1615 15-1615 15-1616 15-1617 15-1618
15-1621 15-1621 15-1624 #15-1624 #17-1704 *17-1711 #17-1711 *17-1711 *17-1711
17-1712 17-1713 17-1716 17-1716 #17-1716 17-1718 #17-1718 17-1718 17-1719
17-1720 *17-1722 17-1722 *17-1724 #17-1724 17-1729 #17-1729 17-1729 17-1730
17-1731 17-1732 #17-1732 17-1732 17-1733 17-1734 *17-1736 17-1736 17-1737
#17-1737 17-1737 17-1739 17-1740 *17-1742 17-1742 17-1744 #17-1744 17-1745
#17-1745 17-1746 17-1746 17-1748 #17-1748
$$S766 = 000011 #12-623 12-631 #12-636 12-643
$$S767 = 000013 #6-202 *6-209 #12-623 12-631 #12-636 12-643
$$S770 = 000011 #6-202 6-209 #6-225 6-229 #6-231 6-241 #10-452 10-459 #12-615
12-644 #13-669 13-676 #13-678 13-684
$$S771 = 000000 #6-202 6-209 #6-225 6-229 #6-231 6-241 #10-452 10-459 #12-615
12-644 #13-669 13-676 #13-678 13-684 #17-1737 *17-1744
$$S772 = 000011 #6-197 6-210 #6-222 6-242 #6-248 6-252 #10-440 10-460 #10-471
10-477 #12-612 12-645 #13-656 13-685 #13-688 13-694 #17-1737 17-1744
$$S773 = 000013 #6-197 6-210 #6-222 6-242 #6-248 6-252 #10-440 10-460 #10-471
10-477 #12-612 12-645 #13-656 13-685 #13-688 13-694 #17-1737 17-1744
$$S774 = 000077 #6-194 6-213 #6-218 6-244 #6-245 6-259 #10-437 10-461 #10-465
10-478 #12-605 12-649 #13-653 13-695 #13-696 13-702 #17-1732 17-1745
$$S775 = 000012 #6-194 6-213 #6-218 6-244 #6-245 6-259 #10-437 10-461 #10-465
10-478 #12-605 12-649 #13-653 13-695 #13-696 13-702 #15-1581 15-1624
#17-1732 17-1745
$$S776 = 000000 #6-180 6-260 #10-432 10-481 #12-600 13-703 #15-1581 15-1624 #17-1711
SRSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:48 PAGE 7
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
17-1716 #17-1718 17-1724 #17-1729 17-1748
$$S777 = 000000 #6-180 6-260 #10-432 10-481 #12-600 13-703 #15-1581 15-1624 #17-1711
17-1716 #17-1718 17-1724 #17-1729 17-1748
$$TRNM = 000000 #6-178 *6-180 #6-180 6-181 6-182 6-194 #6-194 6-195 6-196
6-197 #6-197 6-198 6-199 6-201 #6-201 6-202 #6-202 6-204
6-205 6-207 #6-207 6-209 6-209 #6-209 6-210 #6-210 6-211
#6-211 6-213 #6-213 6-214 #6-214 *6-218 #6-218 6-219 6-220
6-221 6-222 #6-222 6-223 6-224 6-225 #6-225 6-226 6-227
*6-229 #6-229 6-230 #6-230 6-231 #6-231 6-232 6-233 6-234
6-235 6-236 6-241 #6-241 6-242 #6-242 6-244 #6-244 6-245
#6-245 6-246 6-247 6-248 #6-248 6-249 6-250 6-252 #6-252
6-257 #6-257 *6-259 #6-259 6-260 #6-260 #8-338 #10-430 *10-432
#10-432 10-433 10-434 10-437 #10-437 10-438 10-439 10-440 #10-440
10-441 10-442 10-445 #10-445 10-452 #10-452 10-453 10-454 10-459
#10-459 10-460 #10-460 10-461 #10-461 10-462 #10-462 *10-465 #10-465
10-466 10-467 10-469 #10-469 *10-471 #10-471 10-472 10-473 10-475
#10-475 *10-477 #10-477 10-478 #10-478 10-481 #10-481 #12-598 *12-600
#12-600 12-601 12-602 *12-605 #12-605 12-606 12-607 12-608 12-609
12-612 #12-612 12-613 12-614 12-615 #12-615 12-616 12-617 12-620
#12-620 *12-623 #12-623 12-624 12-625 12-628 #12-628 *12-631 #12-631
12-636 #12-636 12-637 12-638 12-643 #12-643 12-644 #12-644 12-645
#12-645 12-646 #12-646 12-649 #12-649 13-651 #13-651 *13-653 #13-653
13-654 13-655 13-656 #13-656 13-657 13-658 13-669 #13-669 13-670
13-671 13-674 #13-674 13-676 #13-676 13-677 #13-677 13-678 #13-678
13-679 13-680 13-682 #13-682 *13-684 #13-684 13-685 #13-685 13-686
#13-686 *13-688 #13-688 13-689 13-690 13-692 #13-692 *13-694 #13-694
13-695 #13-695 13-696 #13-696 13-697 13-698 13-702 #13-702 13-703
#13-703 #15-1580 15-1581 #15-1581 15-1585 15-1586 15-1590 15-1590 #15-1590
15-1591 15-1592 15-1602 15-1602 #15-1602 15-1603 15-1604 15-1605 15-1609
15-1609 #15-1609 15-1610 15-1611 15-1615 15-1615 #15-1615 15-1616 15-1617
15-1618 15-1621 #15-1621 15-1624 15-1624 #15-1624 #17-1704 *17-1711 #17-1711
17-1712 17-1713 17-1716 #17-1716 17-1718 #17-1718 17-1719 17-1720 17-1722
#17-1722 *17-1724 #17-1724 17-1729 #17-1729 17-1730 17-1731 17-1732 #17-1732
17-1733 17-1734 17-1736 #17-1736 17-1737 #17-1737 17-1739 17-1740 17-1742
#17-1742 17-1744 17-1744 #17-1744 17-1745 #17-1745 17-1746 #17-1746 17-1748
#17-1748
$$$ARG = 000002 #6-192 6-192 #6-192 6-192 #6-192 6-192 #6-192 6-192 6-192
#6-192 6-192 6-192 6-192 6-192 6-192 6-192 6-192 6-192
6-192 6-192 #6-192 6-192 6-192 6-192 6-192 6-192 6-192
6-192 6-192 6-192 6-192 #6-192 6-192 6-192 6-192 6-192
6-192 6-192 6-192 6-192 6-192 6-192 #10-451 10-451 #10-451
10-451 #10-451 10-451 10-451 #10-451 10-451 10-451 10-451 10-451
10-451 10-451 10-451 10-451 10-451 10-451 #10-451 10-451 10-451
10-451 10-451 10-451 10-451 10-451 10-451 10-451 10-451 #10-451
10-451 10-451 10-451 10-451 10-451 10-451 10-451 10-451 10-451
10-451 #12-635 12-635 #12-635 12-635 #12-635 12-635 #12-635 12-635
12-635 #12-635 12-635 12-635 12-635 12-635 12-635 12-635 12-635
12-635 12-635 12-635 #12-635 12-635 12-635 12-635 12-635 12-635
12-635 12-635 12-635 12-635 12-635 #12-635 12-635 12-635 12-635
12-635 12-635 12-635 12-635 12-635 12-635 12-635 #13-668 13-668
#13-668 13-668 #13-668 13-668 13-668 #13-668 13-668 13-668 13-668
13-668 13-668 13-668 13-668 13-668 13-668 13-668 #13-668 13-668
SRSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:48 PAGE 8
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
13-668 13-668 13-668 13-668 13-668 13-668 13-668 13-668 13-668
#13-668 13-668 13-668 13-668 13-668 13-668 13-668 13-668 13-668
13-668 13-668 #17-1727 17-1727 #17-1727 17-1727 #17-1727 17-1727 #17-1727
17-1727 17-1727 #17-1727 17-1727 17-1727 17-1727 17-1727 17-1727 17-1727
17-1727 17-1727 17-1727 17-1727 #17-1727 17-1727 17-1727 17-1727 17-1727
17-1727 17-1727 17-1727 17-1727 17-1727 17-1727 #17-1727 17-1727 17-1727
17-1727 17-1727 17-1727 17-1727 17-1727 17-1727 17-1727 17-1727
SRSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:48 PAGE 9
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #6-187 #6-212 #6-251 #6-255 #10-436 #10-458 #12-611 #12-642 #13-675 #15-1587
#15-1593 #15-1606 #15-1612 #15-1619 #17-1707 #17-1747
CASE #6-178 6-203 #8-338 #10-430 #12-598 #15-1580 15-1584 15-1590 15-1602 15-1609
15-1615 #17-1704 17-1738
CONDF #5-166 5-170 #7-326 7-330 #9-418 9-422 #11-573 11-577 #14-1571 14-1575
#16-1686 16-1690
CONFIG #4-82
DIR$ #6-192 #6-192 #10-451 #10-451 #12-635 #12-635 #13-668 #13-668 #17-1727 #17-1727
DLXDF #5-166 #5-173 #7-326 #7-332 #16-1686 #16-1691
DO #6-178 6-205 6-221 #8-338 #10-430 #12-598 #15-1580 15-1586 15-1592 15-1605
15-1611 15-1618 #17-1704 17-1740
ELSE #6-178 6-201 6-207 6-211 6-214 6-230 6-257 #8-338 #10-430 10-445
10-462 10-469 10-475 #12-598 12-620 12-628 12-646 13-651 13-674 13-677
13-682 13-686 13-692 #15-1580 15-1621 #17-1704 17-1722 17-1736 17-1742 17-1746
ENDCAS #6-178 #6-209 #8-338 #10-430 #12-598 #15-1580 #15-1624 #17-1704 #17-1744
ENDIF #6-178 #6-209 #6-210 #6-213 #6-229 #6-241 #6-242 #6-244 #6-252 #6-259
#6-260 #8-338 #10-430 #10-459 #10-460 #10-461 #10-477 #10-478 #10-481 #12-598
#12-631 #12-643 #12-644 #12-645 #12-649 #13-676 #13-684 #13-685 #13-694 #13-695
#13-702 #13-703 #15-1580 #15-1624 #17-1704 #17-1716 #17-1724 #17-1744 #17-1745 #17-1748
ENDPRO #6-178 6-262 #8-338 8-341 #10-430 10-482 #12-598 13-705 #15-1580 15-1625
#17-1704 17-1749
ENDWHI #6-178 #6-244 #8-338 #10-430 #12-598 #15-1580 #17-1704 #17-1716
FALSE #6-178 6-195 6-219 6-220 6-226 6-246 6-249 #8-338 #10-430 10-433
10-438 10-441 10-453 #12-598 12-601 12-608 12-613 12-616 12-624 12-637
13-670 #15-1580 15-1585 15-1591 15-1604 15-1610 15-1617 #17-1704 17-1712 17-1719
17-1730
FALSEB #6-178 6-181 6-198 6-204 6-223 6-232 6-233 6-234 6-235 #8-338
#10-430 10-466 10-472 #12-598 13-654 13-657 13-679 13-689 13-697 #15-1580
#17-1704 17-1733 17-1739
HOSDF #5-166 #5-171
IF #6-178 6-180 6-194 6-197 6-202 6-218 6-222 6-225 6-231 6-245
6-248 #8-338 #10-430 10-432 10-437 10-440 10-452 10-465 10-471 #12-598
12-600 12-605 12-612 12-615 12-623 12-636 13-653 13-656 13-669 13-678
13-688 13-696 #15-1580 15-1581 #17-1704 17-1711 17-1718 17-1729 17-1732 17-1737
JMPPRO #6-178 #8-338 #10-430 #12-598 #15-1580 #17-1704
LFDF #9-418 #9-423 #11-573 #11-578
LIMDF #9-418 #9-425 #11-573 #11-581
MOV$ #6-192 6-192 6-192 6-192 #6-192 6-192 6-192 #6-192 6-192 6-192
#10-451 10-451 10-451 #10-451 10-451 10-451 #10-451 10-451 10-451 #12-635
12-635 12-635 12-635 #12-635 12-635 12-635 #12-635 12-635 12-635 #13-668
13-668 13-668 #13-668 13-668 13-668 #13-668 13-668 13-668 #17-1727 17-1727
17-1727 17-1727 #17-1727 17-1727 17-1727 #17-1727 17-1727 17-1727
MVB$ #6-192 #6-192 #10-451 #10-451 #12-635 #12-635 #13-668 #13-668 #17-1727 #17-1727
NICDF #7-326 7-331 #11-573 11-580
ONCASE #6-178 6-202 #8-338 #10-430 #12-598 #15-1580 15-1581 #17-1704 17-1737
PROC #4-78 15-1580
PROCLC #4-78 6-178 #6-178 8-338 #8-338 10-430 #10-430 12-598 #12-598 #15-1580
17-1704 #17-1704
PROFLG #4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82
4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82
4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82
4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82
SRSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:48 PAGE 10
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
4-82
QDPB$S #6-192 6-192 #10-451 10-451 #12-635 12-635 #13-668 13-668 #17-1727 17-1727
QIOW$S #5-166 #6-192 #7-326 #16-1686 #17-1727
QIO$S #9-418 10-451 #11-573 12-635 13-668
RESRG #5-166 #6-189
RESSTK #7-326 #11-573 13-704 #16-1686
RVP$ #6-192 6-192 6-192 6-192 #10-451 10-451 10-451 10-451 #12-635 12-635
12-635 12-635 #13-668 13-668 13-668 13-668 #17-1727 17-1727 17-1727 17-1727
SAVRG #5-166 #6-185
SAVSTK #7-326 #11-573 12-599 #16-1686
SRDF #5-166 #5-172 #7-326 #7-333 #9-418 #9-424 #11-573 #11-579 #16-1686 #16-1692
SWSTK$ #6-178 #8-338 #10-430 #12-598 #15-1580 #17-1704
TEMMDF #4-78 4-86
THEN #6-178 6-182 6-196 6-199 6-205 6-221 6-224 6-227 6-236 6-247
6-250 #8-338 #10-430 10-434 10-439 10-442 10-454 10-467 10-473 #12-598
12-602 12-609 12-614 12-617 12-625 12-638 13-655 13-658 13-671 13-680
13-690 13-698 #15-1580 15-1586 15-1592 15-1605 15-1611 15-1618 #17-1704 17-1713
17-1720 17-1731 17-1734 17-1740
TRUE #6-178 #8-338 #10-430 #12-598 12-606 12-607 #15-1580 15-1603 15-1616 #17-1704
TRUEB #6-178 #8-338 #10-430 #12-598 #15-1580 #17-1704
WHILE #6-178 6-218 #8-338 #10-430 #12-598 #15-1580 #17-1704 17-1711
$$BGND #6-178 6-181 6-195 6-198 6-204 6-219 6-220 6-223 6-226 6-232
6-233 6-234 6-235 6-246 6-249 #8-338 #10-430 10-433 10-438 10-441
10-453 10-466 10-472 #12-598 12-601 12-606 12-607 12-608 12-613 12-616
12-624 12-637 13-654 13-657 13-670 13-679 13-689 13-697 #15-1580 15-1585
15-1591 15-1603 15-1604 15-1610 15-1616 15-1617 #17-1704 17-1712 17-1719 17-1730
17-1733 17-1739
$$BGNN #6-178 #6-181 #6-195 #6-198 #6-201 #6-204 #6-207 #6-211 #6-214 #6-219
#6-220 #6-223 #6-226 #6-230 #6-232 #6-233 #6-234 #6-235 #6-244 #6-246
#6-249 #6-257 #8-338 #10-430 #10-433 #10-438 #10-441 #10-445 #10-453 #10-462
#10-466 #10-469 #10-472 #10-475 #12-598 #12-601 #12-606 #12-607 #12-608 #12-613
#12-616 #12-620 #12-624 #12-628 #12-637 #12-646 #13-651 #13-654 #13-657 #13-670
#13-674 #13-677 #13-679 #13-682 #13-686 #13-689 #13-692 #13-697 #15-1580 #15-1585
#15-1590 #15-1591 #15-1602 #15-1603 #15-1604 #15-1609 #15-1610 #15-1615 #15-1616 #15-1617
#15-1621 #17-1704 #17-1712 #17-1716 #17-1719 #17-1722 #17-1730 #17-1733 #17-1736 #17-1739
#17-1742 #17-1746
$$ELSE #6-178 #6-201 #6-207 #6-211 #6-214 #6-230 #6-257 #8-338 #10-430 #10-445
#10-462 #10-469 #10-475 #12-598 #12-620 #12-628 #12-646 #13-651 #13-674 #13-677
#13-682 #13-686 #13-692 #15-1580 #15-1590 #15-1602 #15-1609 #15-1615 #15-1621 #17-1704
#17-1722 #17-1736 #17-1742 #17-1746
$$GEN1 #6-178 6-178 6-181 6-182 6-195 6-196 6-198 6-198 6-199 6-201
6-201 6-204 6-205 6-207 6-207 6-209 6-210 6-211 6-211 6-213
6-214 6-214 6-218 6-219 6-220 6-220 6-221 6-223 6-224 6-226
6-226 6-227 6-229 6-230 6-230 6-232 6-233 6-234 6-235 6-236
6-241 6-242 6-244 6-244 6-246 6-246 6-247 6-249 6-249 6-250
6-252 6-257 6-257 6-259 6-260 6-262 #8-338 8-338 8-341 #10-430
10-430 10-433 10-434 10-438 10-439 10-441 10-441 10-442 10-445 10-445
10-453 10-454 10-459 10-460 10-461 10-462 10-462 10-466 10-467 10-469
10-469 10-472 10-473 10-475 10-475 10-477 10-478 10-481 10-482 #12-598
12-598 12-601 12-601 12-602 12-606 12-607 12-608 12-609 12-613 12-614
12-616 12-616 12-617 12-620 12-620 12-624 12-625 12-628 12-628 12-631
12-637 12-638 12-643 12-644 12-645 12-646 12-646 12-649 13-651 13-651
SRSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:48 PAGE 11
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
13-654 13-654 13-655 13-657 13-658 13-670 13-671 13-674 13-674 13-676
13-677 13-677 13-679 13-680 13-682 13-682 13-684 13-685 13-686 13-686
13-689 13-690 13-692 13-692 13-694 13-695 13-697 13-697 13-698 13-702
13-703 13-705 #15-1580 15-1580 15-1585 15-1586 15-1590 15-1590 15-1591 15-1592
15-1602 15-1602 15-1603 15-1604 15-1605 15-1609 15-1609 15-1610 15-1611 15-1615
15-1615 15-1616 15-1617 15-1618 15-1621 15-1621 15-1624 15-1625 #17-1704 17-1704
17-1711 17-1712 17-1712 17-1713 17-1716 17-1716 17-1719 17-1720 17-1722 17-1722
17-1724 17-1730 17-1731 17-1733 17-1733 17-1734 17-1736 17-1736 17-1739 17-1740
17-1742 17-1742 17-1744 17-1745 17-1746 17-1746 17-1748 17-1749
$$GEN2 #6-178 6-181 6-204 6-219 6-223 6-232 6-233 6-234 6-235 #8-338
#10-430 10-472 #12-598 12-606 12-607 12-608 12-624 13-657 13-679 13-689
#15-1580 15-1585 15-1591 15-1603 15-1604 15-1610 15-1616 15-1617 #17-1704 17-1719
17-1739
$$GNAB #6-178 #6-181 #6-195 #6-198 #6-204 #6-219 #6-223 #6-232 #6-233 #6-234
#6-235 #8-338 #10-430 #10-438 #10-453 #10-466 #10-472 #12-598 #12-606 #12-607
#12-608 #12-613 #12-624 #12-637 #13-654 #13-657 #13-670 #13-679 #13-689 #15-1580
#15-1585 #15-1591 #15-1603 #15-1604 #15-1610 #15-1616 #15-1617 #17-1704 #17-1712 #17-1719
#17-1730 #17-1733 #17-1739
$$GNBT #6-178 #6-220 #6-226 #6-246 #6-249 #8-338 #10-430 #10-433 #10-441 #12-598
#12-601 #12-616 #13-697 #15-1580 #17-1704
$$GNCM #6-178 6-181 6-195 6-198 6-204 6-219 6-220 6-223 6-226 6-232
6-233 6-234 6-235 6-246 6-249 #8-338 #10-430 10-433 10-438 10-441
10-453 10-466 10-472 #12-598 12-601 12-606 12-607 12-608 12-613 12-616
12-624 12-637 13-654 13-657 13-670 13-679 13-689 13-697 #15-1580 15-1585
15-1591 15-1603 15-1604 15-1610 15-1616 15-1617 #17-1704 17-1712 17-1719 17-1730
17-1733 17-1739
$$INMC #6-178 6-178 #8-338 8-338 #10-430 10-430 #12-598 12-598 #15-1580 15-1580
#17-1704 17-1704
$$INSY #6-178 6-178 #8-338 8-338 #10-430 10-430 #12-598 12-598 #15-1580 15-1580
#17-1704 17-1704
$$LAB #6-178 6-182 6-196 6-199 6-201 6-205 6-207 6-209 6-210 6-211
6-213 6-214 6-218 6-221 6-224 6-227 6-229 6-230 6-236 6-241
6-242 6-244 6-247 6-250 6-252 6-257 6-259 6-260 #8-338 #10-430
10-434 10-439 10-442 10-445 10-454 10-459 10-460 10-461 10-462 10-467
10-469 10-473 10-475 10-477 10-478 10-481 #12-598 12-602 12-609 12-614
12-617 12-620 12-625 12-628 12-631 12-638 12-643 12-644 12-645 12-646
12-649 13-651 13-655 13-658 13-671 13-674 13-676 13-677 13-680 13-682
13-684 13-685 13-686 13-690 13-692 13-694 13-695 13-698 13-702 13-703
#15-1580 15-1586 15-1590 15-1592 15-1602 15-1605 15-1609 15-1611 15-1615 15-1618
15-1621 15-1624 #17-1704 17-1711 17-1713 17-1716 17-1720 17-1722 17-1724 17-1731
17-1734 17-1736 17-1740 17-1742 17-1744 17-1745 17-1746 17-1748
$$POP #6-178 6-209 6-209 6-209 6-210 6-210 6-213 6-213 6-229 6-229
6-241 6-241 6-242 6-242 6-244 6-244 6-252 6-252 6-259 6-259
6-260 6-260 #8-338 #10-430 10-459 10-459 10-460 10-460 10-461 10-461
10-477 10-477 10-478 10-478 10-481 10-481 #12-598 12-631 12-631 12-643
12-643 12-644 12-644 12-645 12-645 12-649 12-649 13-676 13-676 13-684
13-684 13-685 13-685 13-694 13-694 13-695 13-695 13-702 13-702 13-703
13-703 #15-1580 15-1624 15-1624 15-1624 #17-1704 17-1716 17-1716 17-1724 17-1724
17-1744 17-1744 17-1744 17-1745 17-1745 17-1748 17-1748
$$POPI #6-178 6-209 6-209 6-209 6-210 6-210 6-213 6-213 6-229 6-229
6-241 6-241 6-242 6-242 6-244 6-244 6-252 6-252 6-259 6-259
6-260 6-260 #8-338 #10-430 10-459 10-459 10-460 10-460 10-461 10-461
SRSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:48 PAGE 12
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
10-477 10-477 10-478 10-478 10-481 10-481 #12-598 12-631 12-631 12-643
12-643 12-644 12-644 12-645 12-645 12-649 12-649 13-676 13-676 13-684
13-684 13-685 13-685 13-694 13-694 13-695 13-695 13-702 13-702 13-703
13-703 #15-1580 15-1624 15-1624 15-1624 #17-1704 17-1716 17-1716 17-1724 17-1724
17-1744 17-1744 17-1744 17-1745 17-1745 17-1748 17-1748
$$PUSH #6-178 #6-180 #6-180 #6-194 #6-194 #6-197 #6-197 #6-202 #6-202 #6-202
#6-218 #6-218 #6-222 #6-222 #6-225 #6-225 #6-231 #6-231 #6-245 #6-245
#6-248 #6-248 #8-338 #10-430 #10-432 #10-432 #10-437 #10-437 #10-440 #10-440
#10-452 #10-452 #10-465 #10-465 #10-471 #10-471 #12-598 #12-600 #12-600 #12-605
#12-605 #12-612 #12-612 #12-615 #12-615 #12-623 #12-623 #12-636 #12-636 #13-653
#13-653 #13-656 #13-656 #13-669 #13-669 #13-678 #13-678 #13-688 #13-688 #13-696
#13-696 #15-1580 #15-1581 #15-1581 #15-1581 #17-1704 #17-1711 #17-1711 #17-1718 #17-1718
#17-1729 #17-1729 #17-1732 #17-1732 #17-1737 #17-1737 #17-1737
$$STSM #6-178 #6-180 #6-180 #6-194 #6-194 #6-197 #6-197 #6-202 #6-202 #6-202
#6-218 #6-218 #6-222 #6-222 #6-225 #6-225 #6-231 #6-231 #6-245 #6-245
#6-248 #6-248 #8-338 #10-430 #10-432 #10-432 #10-437 #10-437 #10-440 #10-440
#10-452 #10-452 #10-465 #10-465 #10-471 #10-471 #12-598 #12-600 #12-600 #12-605
#12-605 #12-612 #12-612 #12-615 #12-615 #12-623 #12-623 #12-636 #12-636 #13-653
#13-653 #13-656 #13-656 #13-669 #13-669 #13-678 #13-678 #13-688 #13-688 #13-696
#13-696 #15-1580 #15-1581 #15-1581 #15-1581 #17-1704 #17-1711 #17-1711 #17-1718 #17-1718
#17-1729 #17-1729 #17-1732 #17-1732 #17-1737 #17-1737 #17-1737
$$SYS #6-178 #8-338 #10-430 #12-598 #15-1580 #17-1704
$$TRCE #6-178 6-178 6-262 #8-338 8-338 8-341 #10-430 10-430 10-482 #12-598
12-598 13-705 #15-1580 15-1580 15-1625 #17-1704 17-1704 17-1749