Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/spstpr.list
There are no other files named spstpr.list in the archive.
SPSTPR MACRO M1110 13-OCT-79 12:16
TABLE OF CONTENTS
8- 81 SPABRT
9- 143 SPCONS ;BH0002
11- 250 SPFINI
13- 344 SPINIT
15- 437 SPLINE
17- 529 SPLOGT ;BH0002
19- 628 SPNODE
20- 686 SPPARS
22- 908 SPPASS
23- 965 SPPLGT ;BH0002
25- 1093 SPPROC
27- 1314 SPSLLS ;BH0002
29- 1381 SPSTAB ;BH0002
31- 1436 SPSTAT
32- 1489 SPSTPR
34- 1601 SPSTUP
36- 1755 SPTASK ;AP0003
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 3
1 .TITLE SPSTPR
2 .NLIST CND
3 .IDENT /V01.05/
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 SET PARAMETER PROCESSOR
27 ;
28 ;
29 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
30 ;
31 ; IDENT HISTORY:
32 ;
33 ; 1.00 10-FEB-78
34 ; VERSION 2.0 RELEASE
35 ; 1.01 7-DEC-78 ALAN D. PECKHAM
36 ; ADD EVENT LOGGING HOOKS.
37 ; 1.02 22-JAN-79 BUREN W. HOFFMAN
38 ; SUNK THE EVENT LOGGING HOOKS A LITTLE DEEPER.
39 ; 1.03 25-FEB-79 ALAN D. PECKHAM
40 ; ADD MONITOR TASK EVENT LOGGING TARGET.
41 ; 1.04 28-FEB-79 ALAN D. PECKHAM
42 ; MISSED SOME CHECKS WHEN ADDING THE TARGET
43 ; 1.05 28-MAR-79 ALAN D. PECKHAM
44 ; ADDED CODE TO MAINTAIN "NEW TARGET" FLAGS
45 ;
SPSTPR MACRO M1110 13-OCT-79 12:16 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 PROCESSOR
58 ;
59 ; REQUIREMENTS:
60 ;
61 ; CONFIGURATION CONTROL SYMBOLS:
62 ;
63 ; FS$HOS - SET HOST DATABASE
64 ; FS$LLP - SET LOCAL LOOPBACK
65 ; FS$LOG - SET EVENT LOGGING DATABASE ;AP0001
66 ; FS$LST - SET LINE STATE
67 ; FS$PAS - SET PASSWORD
68 ;
69 ; EXTERNAL MACROS
70 ;
71 .MCALL PROC,PROCLC,SPMDF
72 ;
73 ; DEFINE CONFIGURATION CONTROL SYMBOLS
74 ;
75 000000 CONFIG
76 ;
77 ; DEFINE READ ONLY MEMORY
78 ;
79 000000 SPMDF ;SET PARAMETERS MEMORY
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 5
SPABRT
81 .SBTTL SPABRT
82 ;
83 ;======================================================================;
84 ;++
85 ; +-------------------------------------------------+
86 ; I I
87 ; I S P A B R T I
88 ; I - - - - - - I
89 ; I I
90 ; +-------------------------------------------------+
91 ;
92 ; FUNCTION:
93 ;
94 ; SET PARAMETER MODULE TO ABORT PROCESSING
95 ;
96 ; INPUT:
97 ;
98 ; R0 - NICE RESPONSE MESSAGE RETURN CODE
99 ; R4 - ADDRESS OF CONTEXT BLOCK
100 ; R5 - ADDRESS OF CONTROL BLOCK
101 ;
102 ; OUTPUT:
103 ;
104 ; @R4 - UPDATED CONTEXT
105 ; RETCOD - NICE RETURN CODE
106 ; STATE - FINISH STATE VALUE
107 ; @R5 - UPDATED CONTROL BLOCK
108 ; C.FUNC - ZERO
109 ;
110 ; REQUIREMENTS:
111 ;
112 ; SET PARAMETER SYMBOLS:
113 ;
114 ; FINISH - FINISH STATE VALUE
115 ; RETCOD - OFFSET OF NICE RETURN CODE IN CONTEXT
116 ; STATE - OFFSET OF PROCESSING STATE IN CONTEXT
117 ;
118 ; CONTROL BLOCK SYMBOLS:
119 ;
120 ; C.FUNC - OFFSET OF FUNCTION CODE
121 ;
122 ;--
123 ;======================================================================;
124 ;
125 ; EXTERNAL MACROS
126 ;
127 .MCALL SPDF,CONDF
128 ;
129 ; DEFINE EXTERNAL SYMBOLS
130 ;
131 000000 SPDF ;SET SYMBOLS
132 000000 CONDF ;CONTROL BLOCK SYMBOLS
133 ;
134 ; LOCAL PROCEDURE BODY
135 ;
136 000000 PROCLC SPABRT
137 000000 110064 000007 MOVB R0,RETCOD(R4) ;SET RETURN CODE FOR LATER
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 5-1
SPABRT
138 000004 105065 000006 CLRB C.FUNC(R5) ;INITIALIZE FOR NEXT STEP
139 000010 112764 000003 000006 MOVB #FINISH,STATE(R4) ;START THE TERMINATION
140 000016 ENDPROC
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 6
SPCONS
143 .SBTTL SPCONS ;BH0002
144 ; ;BH0002
145 ;======================================================================; ;BH0002
146 ;++ ;BH0002
147 ; +-------------------------------------------------+ ;BH0002
148 ; I I ;BH0002
149 ; I S P C O N S I ;BH0002
150 ; I - - - - - - I ;BH0002
151 ; I I ;BH0002
152 ; +-------------------------------------------------+ ;BH0002
153 ; ;BH0002
154 ; FUNCTION: ;BH0002
155 ; ;BH0002
156 ; SET PARAMETER MODULE TO PARSE A CONSOLE SPEC FROM A NICE MESSAGE ;BH0002
157 ; ;BH0002
158 ; INPUT: ;BH0002
159 ; ;BH0002
160 ; R2 - CURRENT ADDRESS IN MESSAGE ;BH0002
161 ; R3 - ADDRESS OF END OF MESSAGE ;BH0002
162 ; R4 - ADDRESS OF CONTEXT BLOCK ;BH0002
163 ; ;BH0002
164 ; OUTPUT: ;BH0002
165 ; ;BH0002
166 ; C-BIT - CLEAR IF SUCCESSFUL, SET IF NOT ;BH0002
167 ; R0 - IF FAILURE, NICE ERROR RETURN CODE ;BH0002
168 ; R2 - CURRENT ADDRESS IN MESSAGE ;BH0002
169 ; @R4 - UPDATED CONTEXT ;BH0002
170 ; LINE - LINE ENTRY IS USED FOR CONSOLE SPEC STORAGE. THE SPEC IS ;BH0002
171 ; STORED AS TWO ASCII CHARACTERS (DEVICE NAME) FOLLOWED BY ;BH0002
172 ; A WORD CONTAINING THE BINARY UNIT NUMBER. ;BH0002
173 ; ;BH0002
174 ; REQUIREMENTS: ;BH0002
175 ; ;BH0002
176 ; SET PARAMETER SYMBOLS: ;BH0002
177 ; ;BH0002
178 ; LINE - OFFSET OF LINE ENTRY IN CONTEXT ;BH0002
179 ; ;BH0002
180 ;-- ;BH0002
181 ;======================================================================; ;BH0002
182 ; ;BH0002
183 ; ;BH0002
184 ; EXTERNAL MACROS ;BH0002
185 ; ;BH0002
186 .MCALL SPDF,SAVSTK,RESSTK ;BH0002
187 ; ;BH0002
188 ; DEFINE EXTERNAL SYMBOLS ;BH0002
189 ; ;BH0002
190 000020 SPDF ;SET SYMBOLS ;BH0002
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 7
SPCONS
192 ; ;BH0002
193 ; LOCAL PROCEDURE BODY ;BH0002
194 ; ;BH0002
196 000020 PROCLC SPCONS ;BH0002
197 000020 012701 000020 MOV #LINE,R1 ; PUT THE CONSOLE SPEC INTO LINE ;BH0002
198 000024 060401 ADD R4,R1 ; MAKE IT A DESTINATION ADDRESS ;BH0002
199 000026 CALL GTMSBY ; GET THE FIELD LENGTH BYTE ;BH0002
200 000032 IF ; SUCCESS & TWO OR MORE BYTES ;BH0002
201 000032 FALSE CS ;BH0002
202 000034 FALSE LT R0,#2 ;BH0002
203 000042 THEN ;BH0002
204 000042 SAVSTK <R0> ; SAVE THE FIELD LENGTH ;BH0002
205 000044 012700 000002 MOV #2,R0 ; SET TO READ THE TWO ALPHA CHARACTERS ;BH0002
206 000050 CALL MVMSBY ; DO IT ;BH0002
207 000054 RESSTK <R0> ; RESTORE OUR MSG LENGTH FIELD ;BH0002
208 000056 000241 CLC ;BH0002
209 000060 ELSE ;BH0002
210 000062 000261 SEC ; BOMB ;BH0002
211 000064 ENDIF ;BH0002
212 000064 IF ; OK SO FAR ;BH0002
213 000064 FALSE CS ;BH0002
214 000066 THEN ;BH0002
215 000066 162700 000002 SUB #2,R0 ; ACCOUNT FOR TWO CHARACTERS ALREADY USED ;BH0002
216 000072 005011 CLR (R1) ; ZERO THE UNIT NUMBER WORD ;BH0002
217 000074 WHILE ; ALL IS OK, & CHARACTERS REMAINING ;BH0002
218 000074 FALSE CS ;BH0002
219 000076 FALSE LE R0 ;BH0002
220 000102 DO ;BH0002
221 000102 SAVSTK <R0> ; SAVE OUR LENGTH COUNTER AGAIN ;BH0002
222 000104 CALL GTMSBY ; GET THE NEXT CHARACTER (OCTAL DIGIT) ;BH0002
223 000110 IF ; READ WAS OK ;BH0002
224 000110 FALSE CS ;BH0002
225 000112 THEN ;BH0002
226 000112 162700 000060 SUB #'0,R0 ; CONVERT TO BINARY QUANTITY ;BH0002
227 000116 IF ; AN OCTAL DIGIT ;BH0002
228 000116 FALSE LT R0 ;BH0002
229 000122 FALSE GT R0,#7 ;BH0002
230 000130 THEN ;BH0002
231 000130 006311 ASL (R1) ; MULTIPLY EXISTING ;BH0002
232 000132 006311 ASL (R1) ; SUM ;BH0002
233 000134 006311 ASL (R1) ; BY 8 ;BH0002
234 000136 060011 ADD R0,(R1) ; AND ADD IN NEW DIGIT ;BH0002
235 000140 ELSE ;BH0002
236 000142 000261 SEC ;BH0002
237 000144 ENDIF ;BH0002
238 000144 ENDIF ;BH0002
239 000144 RESSTK <R0> ; GET BACK OUR COUNTER ;BH0002
240 000146 IF ; ALL OK SO FAR ;BH0002
241 000146 FALSE CS ;BH0002
242 000150 THEN ;BH0002
243 000150 005300 DEC R0 ; DECREMENT THE COUNTER ;BH0002
244 000152 ENDIF ;BH0002
245 000152 ENDWHILE ;BH0002
246 000154 ENDIF ;BH0002
247 000154 ENDPROC ;BH0002
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 8
SPFINI
250 .SBTTL SPFINI
251 ;
252 ;======================================================================;
253 ;++
254 ; +-------------------------------------------------+
255 ; I I
256 ; I S P F I N I I
257 ; I - - - - - - I
258 ; I I
259 ; +-------------------------------------------------+
260 ;
261 ; FUNCTION:
262 ;
263 ; SET PARAMETERS MODULE TO FINISH PROCESSING
264 ;
265 ; INPUT:
266 ;
267 ; R4 - ADDRESS OF CONTEXT BLOCK
268 ; CMLKNM - COMMAND LINK NUMBER
269 ; RETCOD - NICE RETURN CODE
270 ; R5 - ADDRESS OF CONTROL BLOCK
271 ; C.ADDR - ADDRESS OF COMMAND MESSAGE BUFFER
272 ; C.CTXT - ADDRESS OF CONTEXT BLOCK
273 ; C.FUNC - FUNCTION JUST COMPLETED
274 ;
275 ; OUTPUT:
276 ;
277 ; @R5 - UPDATED CONTROL BLOCK
278 ; C.ADDR - ON FINAL RETURN (RELEASE BUFFER REQUEST), ADDRESS OF
279 ; CONTEXT BLOCK
280 ; C.CTXT - ON FINAL RETURN, ZERO
281 ; C.FUNC - FUNCTION TO PERFORM
282 ; C.LEN - ON TRANSMIT MESSAGE REQUEST, LENGTH OF MESSAGE
283 ; C.LKNM - ON TRANSMIT MESSAGE REQUEST AND FINAL RETURN, COMMAND
284 ; LINK NUMBER
285 ;
286 ; REQUIREMENTS:
287 ;
288 ; SET PARAMETER SYMBOLS:
289 ;
290 ; CMLKNM - OFFSET OF COMMAND LINK NUMBER IN CONTEXT
291 ; RETCOD - OFFSET OF NICE RETURN CODE IN CONTEXT
292 ;
293 ; CONTROL BLOCK SYMBOLS:
294 ;
295 ; C.ADDR - OFFSET OF ADDRESS FIELD
296 ; C.CTXT - OFFSET OF CONTEXT FIELD
297 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
298 ; C.LEN - OFFSET OF LENGTH FIELD
299 ; C.LKNM - OFFSET OF LINK NUMBER FIELD
300 ; C$RLBF - RELEASE BUFFER FUNCTION CODE
301 ; C$TRMS - TRANSMIT MESSAGE FUNCTION CODE
302 ;
303 ;--
304 ;======================================================================;
305 ;
306 ;
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 8-1
SPFINI
307 ; EXTERNAL MACROS
308 ;
309 .MCALL SPDF,CONDF
310 ;
311 ; DEFINE EXTERNAL SYMBOLS
312 ;
313 000156 SPDF ;SET SYMBOLS
314 000156 CONDF ;CONTROL BLOCK SYMBOLS
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 9
SPFINI
316 ;
317 ; LOCAL PROCEDURE BODY
318 ;
319 000156 PROCLC SPFINI
320 000156 IF ; FUNCTION CODE = 0
321 000156 FALSEB SET C.FUNC(R5)
322 000164 THEN
323 000164 016502 000014 MOV C.ADDR(R5),R2 ;GET ADDRESS OF MESSAGE BUFFER
324 000170 116422 000007 MOVB RETCOD(R4),(R2)+ ;PUT RETURN CODE IN MESSAGE
325 000174 166502 000014 SUB C.ADDR(R5),R2 ;COMPUTE LENGTH OF MESSAGE
326 000200 010265 000012 MOV R2,C.LEN(R5) ;SET LENGTH OF MESSAGE
327 000204 016465 000000 000020 MOV CMLKNM(R4),C.LKNM(R5) ;SET COMMAND LINK NUMBER
328 000212 112765 177725 000006 MOVB #-C$TRMS,C.FUNC(R5) ;SET FUNCTION CODE TO TRANSMIT MESSAGE
329 000220 ENDIF
330 000220 IF ; FUNCTION CODE = TRANSMIT MESSAGE
331 000220 FALSEB NE C.FUNC(R5),#C$TRMS
332 000230 THEN
333 000230 112765 177777 000006 MOVB #-C$RLBF,C.FUNC(R5) ;RELEASE THE MESSAGE BUFFER
334 000236 ENDIF
335 000236 IF ; FUNCTION CODE = RELEASE BUFFER
336 000236 FALSEB NE C.FUNC(R5),#C$RLBF
337 000246 THEN
338 000246 016565 000004 000014 MOV C.CTXT(R5),C.ADDR(R5) ;SET UP TO RELEASE CONTEXT BLOCK
339 000254 005065 000004 CLR C.CTXT(R5) ;NO MORE CONTEXT POINTER
340 000260 105465 000006 NEGB C.FUNC(R5) ;SET FUNCTION CODE TO RELEASE BUFFER
341 000264 ENDIF
342 000264 ENDPROC
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 10
SPINIT
344 .SBTTL SPINIT
345 ;
346 ;======================================================================;
347 ;++
348 ; +-------------------------------------------------+
349 ; I I
350 ; I S P I N I T I
351 ; I - - - - - - I
352 ; I I
353 ; +-------------------------------------------------+
354 ;
355 ; FUNCTION:
356 ;
357 ; SET PARAMETER INITIALIZATION MODULE
358 ;
359 ; INPUT:
360 ;
361 ; R5 - ADDRESS OF CONTROL BLOCK
362 ; C.ADDR - ON ALLOCATE BUFFER COMPLETION, ADDRESS OF BUFFER
363 ; C.LKNM - COMMAND LINK NUMBER
364 ; C.FUNC - FUNCTION JUST PERFORMED
365 ; C.SAVE - ON ALLOCATE BUFFER COMPLETION, SAVED FIELDS
366 ; OTHER INPUTS - AS SPECIFIED FOR SPPARS
367 ;
368 ; OUTPUT:
369 ;
370 ; R4 - ADDRESS OF CONTEXT BLOCK
371 ; CMLKNM - COMMAND LINK NUMBER
372 ; OTHER FIELDS - ZERO OR AS SPECIFIED FOR SPPARS
373 ; @R5 - UPDATED CONTROL BLOCK
374 ; C.CTXT - ON FINAL RETURN, ADDRESS OF CONTEXT BLOCK
375 ; C.FUNC - FUNCTION TO PERFORM
376 ; C.LEN - ON ALLOCATE BUFFER REQUEST, LENGTH OF BUFFER
377 ; C.SAVE - ON ALLOCATE BUFFER REQUEST, SAVED FIELDS
378 ; OTHER OUTPUTS - AS SPECIFIED FOR SPPARS
379 ;
380 ; REQUIREMENTS:
381 ;
382 ; SET PARAMETER SYMBOLS:
383 ;
384 ; CMLKNM - OFFSET OF COMMAND LINK NUMBER IN CONTEXT
385 ; CTXTLN - LENGTH OF CONTEXT BLOCK
386 ;
387 ; CONTROL BLOCK SYMBOLS:
388 ;
389 ; C.ADDR - OFFSET OF ADDRESS FIELD
390 ; C.CTXT - OFFSET OF CONTEXT FIELD
391 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
392 ; C.LEN - OFFSET OF LENGTH FIELD
393 ; C.LKNM - OFFSET OF LINK NUMBER FIELD
394 ; C.SAVE - OFFSET OF SAVE AREA
395 ; C$ALBF - ALLOCATE BUFFER FUNCTION CODE
396 ; C$PROC - PROCESS FUNCTION CODE
397 ;
398 ;--
399 ;======================================================================;
400 ;
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 10-1
SPINIT
401 ;
402 ; EXTERNAL MACROS
403 ;
404 .MCALL CONDF,SPDF
405 ;
406 ; DEFINE EXTERNAL SYMBOLS
407 ;
408 000266 CONDF ;CONTROL BLOCK SYMBOLS
409 000266 SPDF ;SET SYMBOLS
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 11
SPINIT
411 ;
412 ; LOCAL PROCEDURE BODY
413 ;
414 000266 PROCLC SPINIT
415 000266 IF ; CONTROL BLOCK FUNCTION CODE = PROCESS JOB
416 000266 FALSEB NE C.FUNC(R5),#C$PROC
417 000276 THEN
418 000276 016565 000012 000022 MOV C.LEN(R5),C.SAVE(R5) ;SAVE LENGTH OF MESSAGE
419 000304 016565 000014 000024 MOV C.ADDR(R5),C.SAVE+2(R5) ;SAVE ADDRESS OF MESSAGE
420 000312 012765 000037 000012 MOV #CTXTLN,C.LEN(R5) ;SET LENGTH OF CONTEXT BLOCK
421 000320 112765 000032 000006 MOVB #C$ALBF,C.FUNC(R5) ;ALLOCATE CONTEXT BLOCK
422 000326 ELSE ; MUST BE ALLOCATE MEMORY BUFFER
423 000330 016504 000014 MOV C.ADDR(R5),R4 ;GET CONTEXT BLOCK ADDRESS
424 000334 010465 000004 MOV R4,C.CTXT(R5) ;AND PUT IT IN CONTROL BLOCK
425 000340 005000 CLR R0 ;SET UP A ZERO TO SPRAY
426 000342 010401 MOV R4,R1 ;START AT BEGINNING OF CONTEXT
427 000344 012702 000037 MOV #CTXTLN,R2 ;NUMBER OF BYTES TO SPRAY
428 000350 CALL SPRAY ;ZERO THE CONTEXT BLOCK
429 000354 016564 000020 000000 MOV C.LKNM(R5),CMLKNM(R4) ;SAVE THE COMMAND LINK NUMBER
430 000362 016565 000022 000012 MOV C.SAVE(R5),C.LEN(R5) ;RESTORE SAVED LENGTH
431 000370 016565 000024 000014 MOV C.SAVE+2(R5),C.ADDR(R5) ;RESTORE SAVED MESSAGE ADDRESS
432 000376 CALL SPPARS ;PARSE MESSAGE TO CONTEXT
433 000402 ENDIF
434 000402 ENDPROC
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 12
SPLINE
437 .SBTTL SPLINE
438 ;
439 ;======================================================================;
440 ;++
441 ; +-------------------------------------------------+
442 ; I I
443 ; I S P L I N E I
444 ; I - - - - - - I
445 ; I I
446 ; +-------------------------------------------------+
447 ;
448 ; FUNCTION:
449 ;
450 ; SET PARAMETERS MODULE TO PARSE A LINE ID FROM A NICE MESSAGE
451 ;
452 ; INPUT:
453 ;
454 ; R2 - CURRENT ADDRESS IN MESSAGE
455 ; R3 - ADDRESS OF END OF MESSAGE
456 ; R4 - ADDRESS OF CONTEXT BLOCK
457 ; OPTION - INDEX VALUE FOR OPTION BEING PROCESSED
458 ;
459 ; OUTPUT:
460 ;
461 ; C-BIT - CLEAR IF SUCCESSFUL, SET IF NOT
462 ; R0 - IF FAILURE, NICE ERROR CODE
463 ; R2 - CURRENT ADDRESS IN MESSAGE
464 ; @R4 - UPDATED CONTEXT
465 ; FLAGS - PROCESSING FLAGS
466 ; LINE - LINE ID
467 ;
468 ; REQUIREMENTS:
469 ;
470 ; SET PARAMETER SYMBOLS:
471 ;
472 ; FLAGS - OFFSET OF PROCESSING FLAGS IN CONTEXT
473 ; KNLNST - FLAG MASK FOR SETTING STATE OF KNOWN LINES
474 ; LINE - OFFSET OF LINE ID IN CONTEXT
475 ; LNSTIX - INDEX VALUE FOR SETTING LINE STATE
476 ; OPTION - OFFSET OF OPTION IN CONTEXT
477 ;
478 ; NICE MESSAGE SYMBOLS:
479 ;
480 ; LI$KNO - KNOWN LINES LINE ID TYPE VALUE
481 ; LI$STA - STANDARD LINE ID TYPE VALUE
482 ; NE$PAR - PARAMETER ERROR RETURN CODE
483 ;
484 ;--
485 ;======================================================================;
486 ;
487 ;
488 ; EXTERNAL MACROS
489 ;
490 .MCALL SPDF,NICDF
491 ;
492 ; DEFINE EXTERNAL SYMBOLS
493 ;
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 12-1
SPLINE
494 000404 SPDF ;SET SYMBOLS
495 000404 NICDF ;NICE MESSAGE SYMBOLS
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 13
SPLINE
497 ;
498 ; LOCAL PROCEDURE BODY
499 ;
500 000404 PROCLC SPLINE
501 000404 CALL GTMSBY ;GET FORMAT TYPE
502 000410 IF ; SUCCESS
503 000410 FALSE CS
504 000412 THEN
505 000412 IF ; FORMAT TYPE = STANDARD
506 000412 FALSE NE R0,#LI$STA
507 000420 THEN
508 000420 012700 000004 MOV #4,R0 ;MAXIMUM LENGTH OF LINE ID
509 000424 012701 000020 MOV #LINE,R1 ;OFFSET OF LINE ID IN CONTEXT
510 000430 060401 ADD R4,R1 ;MAKE IT A DESTINATION ADDRESS
511 000432 CALL MVMSBY ;MOVE LINE ID TO CONTEXT
512 000436 ELSE
513 000440 IF ; FORMAT TYPE = KNOWN LINES AND OPTION = SET LINE STATE
514 000440 FALSE NE R0,#LI$KNO
515 000446 FALSEB NE OPTION(R4),#LNSTIX
516 000456 THEN
517 000456 152764 000001 000036 BISB #KNLNST,FLAGS(R4) ;SET KNOWN LINES STATE SET FLAG
518 000464 000241 CLC ;SUCCESS
519 000466 ELSE
520 000470 012700 177760 MOV #NE$PAR,R0 ;PARAMETER ERROR
521 000474 000261 SEC ;FAILURE
522 000476 ENDIF
523 000476 ENDIF
524 000476 ENDIF
525 000476 ENDPROC
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 14
SPLOGT
529 .SBTTL SPLOGT ;BH0002
530 ; ;BH0002
531 ;======================================================================; ;BH0002
532 ;++ ;BH0002
533 ; +-------------------------------------------------+ ;BH0002
534 ; I I ;BH0002
535 ; I S P L O G T I ;BH0002
536 ; I - - - - - - I ;BH0002
537 ; I I ;BH0002
538 ; +-------------------------------------------------+ ;BH0002
539 ; ;BH0002
540 ; FUNCTION: ;BH0002
541 ; ;BH0002
542 ; SET PARAMETER MODULE TO PARSE A LOGGING TARGET FROM A NICE MESSAGE. ;BH0002
543 ; ;BH0002
544 ; INPUT: ;BH0002
545 ; ;BH0002
546 ; R0 - OPTION BYTE ;BH0002
547 ; R2 - CURRENT ADDRESS IN MESSAGE ;BH0002
548 ; R3 - ADDRESS OF END OF MESSAGE ;BH0002
549 ; R4 - ADDRESS OF CONTEXT BLOCK ;BH0002
550 ; ;BH0002
551 ; OUTPUT: ;BH0002
552 ; ;BH0002
553 ; C-BIT - SET IF UNSUCCESSFUL ;BH0002
554 ; @R4 - UPDATED CONTEXT BLOCK ;BH0002
555 ; OPTION - PROCESSING INDEX FOR NICE SET OPTION ;BH0002
556 ; STATE - IF SUCCESSFUL, SET UP STATE VALUE ;BH0002
557 ; ;BH0002
558 ; REQUIREMENTS: ;BH0002
559 ; ;BH0002
560 ; SET PARAMETER SYMBOLS: ;BH0002
561 ; ;BH0002
562 ; OPTION - OFFSET OF OPTION INDEX IN CONTEXT ;BH0002
563 ; ;BH0002
564 ; C.LEN - OFFSET OF LENGTH FIELD ;BH0002
565 ; ;BH0002
566 ;-- ;BH0002
567 ;======================================================================; ;BH0002
568 ; ;BH0002
569 ; ;BH0002
570 ; EXTERNAL MACROS ;BH0002
571 ; ;BH0002
572 .MCALL SPDF ;BH0002
573 ; ;BH0002
574 ; DEFINE EXTERNAL SYMBOLS ;BH0002
575 ; ;BH0002
576 000500 SPDF ;SET SYMBOLS ;BH0002
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 15
SPLOGT
578 ; ;BH0002
579 ; LOCAL PROCEDURE BODY ;BH0002
580 ; ;BH0002
581 000500 PROCLC SPLOGT ;BH0002
582 000500 105400 NEGB R0 ;INDICATE STATE VALUE ;AP0001
583 000502 110064 000010 MOVB R0,OPTION(R4) ;AND SET IN OPTION BYTE. ;AP0001
584 000506 CALL SPSTAT ;GET THE FLAG BYTE ;AP0001
585 000512 IF ; ANY INVALID BITS ON ;AP0001
586 000512 FALSE CS ;AP0004
587 000514 FALSEB SET #^B1010000,R0 ;AP0004
588 000522 THEN ;AP0001
589 000522 IF ; CHANGE TO NEW VALUE ;AP0001
590 000522 FALSEB SET #^B0100000,R0 ;AP0001
591 000530 THEN ; GET THE NEW SETTING ;AP0001
592 000530 ONCASE ; TARGET TYPE ;AP0001
593 000530 042700 177770 BIC #^C7,R0 ;ISOLATE THE TARGET TYPE ;AP0001
595 000534 CASE ; MASTER NODE ;AP0001
596 000534 FALSE NE #0,R0 ;AP0001
597 000542 DO ;AP0001
598 000542 CALL SPNODE ;GET THE NEW MASTER NODE ;AP0001
607 000546 CASE ; MONITOR TASK ;AP0003
608 000550 FALSE NE #3,R0 ;AP0003
609 000556 DO ;AP0003
610 000556 CALL SPNODE ;AP0003
611 000562 IF ; NODE NAME GATHERED SUCCESFULLY ;AP0003
612 000562 FALSE CS ;AP0003
613 000564 THEN ;AP0003
614 000564 CALL SPTASK ;GET TASK SPECIFICATION ;AP0003
615 000570 ENDIF ;AP0003
617 000570 ELSE ;AP0001
618 000572 000261 SEC ;INVALID TARGET TYPE ;AP0001
619 000574 ENDCASE ;AP0001
620 000574 ENDIF ;AP0001
621 000574 ELSE ; INVALID BITS ON ;AP0001
622 000576 000261 SEC ;BLOW IT UP ;AP0001
623 000600 ENDIF ;AP0001
624 000600 ENDPROC ;BH0002
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 16
SPNODE
628 .SBTTL SPNODE
629 ;
630 ;======================================================================;
631 ;++
632 ; +-------------------------------------------------+
633 ; I I
634 ; I S P N O D E I
635 ; I - - - - - - I
636 ; I I
637 ; +-------------------------------------------------+
638 ;
639 ; FUNCTION:
640 ;
641 ; SET PARAMETER MODULE TO PARSE A NODE NAME FROM A NICE MESSAGE
642 ;
643 ; INPUT:
644 ;
645 ; R2 - CURRENT ADDRESS IN MESSAGE
646 ; R3 - ADDRESS OF END OF MESSAGE
647 ; R4 - ADDRESS OF CONTEXT BLOCK
648 ;
649 ; OUTPUT:
650 ;
651 ; C-BIT - CLEAR IF SUCCESSFUL, SET IF NOT
652 ; R0 - IF FAILURE, NICE ERROR RETURN CODE
653 ; R2 - CURRENT ADDRESS IN MESSAGE
654 ; @R4 - UPDATED CONTEXT
655 ; NODE - NODE NAME IMAGE FIELD
656 ;
657 ; REQUIREMENTS:
658 ;
659 ; SET PARAMETER SYMBOLS:
660 ;
661 ; NODE - OFFSET OF NODE NAME IMAGE IN CONTEXT
662 ; NODLEN - MAXIMUM LENGTH OF NODE NAME
663 ;
664 ;--
665 ;======================================================================;
666 ;
667 ;
668 ; EXTERNAL MACROS
669 ;
670 .MCALL SPDF
671 ;
672 ; DEFINE EXTERNAL SYMBOLS
673 ;
674 000602 SPDF ;SET SYMBOLS
675 ;
676 ; LOCAL PROCEDURE BODY
677 ;
678 000602 PROCLC SPNODE
679 000602 012700 000006 MOV #NODLEN,R0 ;MAXIMUM LENGTH OF NODE NAME
680 000606 012701 000011 MOV #NODE,R1 ;OFFSET OF NODE NAME IN CONTEXT
681 000612 060401 ADD R4,R1 ;MAKE IT A DESTINATION ADDRESS
682 000614 CALL MVMSIM ;MOVE IMAGE FIELD TO CONTEXT
683 000620 ENDPROC
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 17
SPPARS
686 .SBTTL SPPARS
687 ;
688 ;======================================================================;
689 ;++
690 ; +-------------------------------------------------+
691 ; I I
692 ; I S P P A R S I
693 ; I - - - - - - I
694 ; I I
695 ; +-------------------------------------------------+
696 ;
697 ; FUNCTION:
698 ;
699 ; SET PARAMETER MODULE TO PARSE THE NICE COMMAND MESSAGE
700 ;
701 ; INPUT:
702 ;
703 ; R4 - ADDRESS OF CONTEXT BLOCK
704 ; R5 - ADDRESS OF CONTROL BLOCK
705 ; C.ADDR - ADDRESS OF MESSAGE
706 ; C.LEN - LENGTH OF MESSAGE
707 ;
708 ; OUTPUT:
709 ;
710 ; @R4 - UPDATED CONTEXT BLOCK
711 ; OPTION - PROCESSING INDEX FOR NICE SET OPTION
712 ; STATE - IF SUCCESSFUL, SET UP STATE VALUE
713 ; @R5 - UPDATED CONTROL BLOCK
714 ; C.FUNC - IF SUCCESSFUL, ZERO
715 ; OTHER OUTPUTS - AS DESCRIBED FOR SPABRT
716 ;
717 ; REQUIREMENTS:
718 ;
719 ; SET PARAMETER SYMBOLS:
720 ;
721 ; DEFHOS - SET DEFAULT HOST NICE OPTION VALUE
722 ; DEFREC - SET DEFAULT RECEIVE PASSWORD NICE OPTION VALUE
723 ; DEFTRA - SET DEFAULT TRANSMIT PASSWORD NICE OPTION VALUE
724 ; LINHOS - SET LINE HOST NICE OPTION VALUE
725 ; LINMAI - SET MAINTENANCE LOGGING STATE FOR LINE ;AP0001
726 ; LINOPR - SET OPERATOR LOGGING STATE FOR LINE ;AP0001
727 ; LINSTA - SET LINE STATE NICE OPTION VALUE
728 ; LOGTGT - SET LOGGING TARGET ;AP0001
729 ; NODMAI - SET MAINTENANCE LOGGING STATE FOR NODE ;AP0001
730 ; NODOPR - SET OPERATOR LOGGING STATE FOR NODE ;AP0001
731 ; LOCLOO - SET LOCAL LOOPBACK NICE OPTION VALUE
732 ; OPTION - OFFSET OF OPTION INDEX IN CONTEXT
733 ; SETUP - SET UP STATE VALUE
734 ; STATE - OFFSET OF PROCESSING STATE IN CONTEXT
735 ;
736 ; SET PARAMETER CONTROL TABLE SYMBOLS:
737 ;
738 ; DFHOIX - SET DEFAULT HOST
739 ; DFRCIX - SET DEFAULT RECEIVE PASSWORD
740 ; DFTRIX - SET DEFAULT TRANSMIT PASSWORD
741 ; LCLPIX - SET LOCAL LOOPBACK
742 ; LNHOIX - SET LINE HOST
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 17-1
SPPARS
743 ; LNSTIX - SET LINE STATE
744 ;
745 ; NICE MESSAGE SYMBOLS:
746 ;
747 ; NE$FOR - MESSAGE FORMAT ERROR RETURN CODE
748 ; NE$FUN - INVALID FUNCTION OR OPTION ERROR RETURN CODE
749 ; ST$ENA - ENABLED STATE VALUE
750 ;
751 ; CONFIGURATION CONTROL SYMBOLS:
752 ;
753 ; FS$HOS - SET HOST DATABASE
754 ; FS$LOG - SET LOGGING DATABASE ;AP0001
755 ; FS$LLP - SET LOCAL LOOPBACK
756 ; FS$LST - SET LINE STATE
757 ; FS$PAS - SET PASSWORD
758 ; FT$NOD - SET MASTER NODE LOGGING TARGET ;AP0001
759 ; FT$CNS - SET CONSOLE LOGGING TARGET ;AP0001
760 ;
761 ; CONTROL BLOCK SYMBOLS:
762 ;
763 ; C.ADDR - OFFSET OF ADDRESS FIELD
764 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
765 ; C.LEN - OFFSET OF LENGTH FIELD
766 ;
767 ;--
768 ;======================================================================;
769 ;
770 ;
771 ; EXTERNAL MACROS
772 ;
773 .MCALL SPDF,NICDF,CONDF,SAVSTK,RESSTK
774 ;
775 ; DEFINE EXTERNAL SYMBOLS
776 ;
777 000622 SPDF ;SET SYMBOLS
778 000622 NICDF ;NICE MESSAGE SYMBOLS
779 000622 CONDF ;CONTROL BLOCK SYMBOLS
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 18
SPPARS
781 ;
782 ; LOCAL PROCEDURE BODY
783 ;
784 000622 PROCLC SPPARS
785 000622 SAVSTK <R3> ;SAVE REGISTER
786 000624 016502 000014 MOV C.ADDR(R5),R2 ;GET ADDRESS OF MESSAGE
787 000630 010203 MOV R2,R3 ;COPY IT
788 000632 066503 000012 ADD C.LEN(R5),R3 ;COMPUTE END ADDRESS
789 000636 005202 INC R2 ;MOVE PAST FUNCTION CODE
790 000640 CALL GTMSBY ;GET OPTION BYTE
791 000644 IF ; SUCCESS
792 000644 FALSE CS
793 000646 THEN
794 000646 ONCASE ; OPTION
796 000646 CASE ; DEFAULT HOST
797 000646 FALSE NE R0,#DEFHOS
798 000654 DO
799 000654 112764 000000 000010 MOVB #DFHOIX,OPTION(R4) ;SET OPTION CONTROL INDEX
800 000662 CALL SPNODE ;PUT HOST NAME IN CONTEXT
801 000666 CASE ; LINE HOST
802 000670 FALSE NE R0,#LINHOS
803 000676 DO
804 000676 112764 000004 000010 MOVB #LNHOIX,OPTION(R4) ;SET OPTION CONTROL INDEX
805 000704 CALL SPLINE ;PUT LINE ID IN CONTEXT
806 000710 IF ; SUCCESS
807 000710 FALSE CS
808 000712 THEN
809 000712 CALL SPNODE ;PUT HOST NAME IN CONTEXT
810 000716 ENDIF
813 000716 CASE ; DEFAULT RECEIVE PASSWORD OR DEFAULT TRANSMIT PASSWORD
814 000720 TRUE EQ R0,#DEFREC
815 000726 FALSE NE R0,#DEFTRA
816 000734 DO
817 000734 IF ; RECEIVE PASSWORD
818 000734 FALSE NE R0,#DEFREC
819 000742 THEN
820 000742 112764 000012 000010 MOVB #DFRCIX,OPTION(R4) ;SET DEF. REC. PASSWORD OPTION CONTROL INDEX
821 000750 ELSE
822 000752 112764 000016 000010 MOVB #DFTRIX,OPTION(R4) ;SET DEF. TRAN. PASSWORD OPTION CONTROL INDEX
823 000760 ENDIF
824 000760 CALL SPPASS ;PUT PASSWORD IN CONTEXT
827 000764 CASE ; LOCAL LOOPBACK
828 000766 FALSE NE R0,#LOCLOO
829 000774 DO
830 000774 112764 000022 000010 MOVB #LCLPIX,OPTION(R4) ;SET LOCAL LOOPBACK OPTION CONTROL INDEX
831 001002 CALL SPSTAT ;PUT REQUESTED STATE IN CONTEXT
832 001006 IF ; SUCCESS
833 001006 FALSE CS
834 001010 THEN
835 001010 IF ; STATE = ENABLED
836 001010 FALSEB NE REQSTA(R4),#ST$ENA
837 001020 THEN
838 001020 CALL SPLINE ;PUT LINE ID IN CONTEXT
839 001024 ENDIF
840 001024 ENDIF
843 001024 CASE ; LINE STATE
844 001026 FALSE NE R0,#LINSTA
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 18-1
SPPARS
845 001034 DO
846 001034 112764 000030 000010 MOVB #LNSTIX,OPTION(R4) ;SET LINE STATE OPTION CONTROL INDEX
847 001042 CALL SPLINE ;PUT LINE ID IN CONTEXT
848 001046 IF ; SUCCESS
849 001046 FALSE CS
850 001050 THEN
851 001050 CALL SPSTAT ;PUT REQUESTED STATE IN CONTEXT
852 001054 ENDIF
855 001054 CASE ; NODE LOGGING STATE ;AP0001
856 001056 TRUE EQ #NODOPR,R0 ;AP0001
857 001064 FALSE NE #NODMAI,R0 ;AP0001
858 001072 DO ;AP0001
859 001072 105400 NEGB R0 ;INDICATE STATE VALUE ;AP0001
860 001074 110064 000010 MOVB R0,OPTION(R4) ;AND SET IN OPTION BYTE. ;AP0001
861 001100 CALL SPSTAB ;PUT REQUESTED STATE IN CONTEXT ;BH0002
862 001104 CASE ; LINE LOGGING STATE ;AP0001
863 001106 TRUE EQ #LINOPR,R0 ;AP0001
864 001114 FALSE NE #LINMAI,R0 ;AP0001
865 001122 DO ;AP0001
866 001122 105400 NEGB R0 ;INDICATE STATE VALUE ;AP0001
867 001124 SAVSTK <R0> ;SAVE THIS VALUE FOR LATER ;BH0002
868 001126 112764 000030 000010 MOVB #LNSTIX,OPTION(R4) ;SET EXPECTED VALUE AS ARG TO SPLINE ;BH0002
869 001134 CALL SPLINE ;PUT LINE ID IN CONTEXT ;BH0002
870 001140 RESSTK <R0> ;GET BACK OUR OPERATION ARG ;BH0002
871 001142 110064 000010 MOVB R0,OPTION(R4) ; AND STASH FOR LATER USE ;BH0002
872 001146 IF ; SUCCESS ;AP0001
873 001146 FALSE CS ;AP0001
874 001150 THEN ;AP0001
875 001150 CALL SPSTAB ;PUT REQUESTED STATE IN CONTEXT ;BH0002
876 001154 116464 000035 000024 MOVB REQSTA(R4),LINE+4(R4) ;HOKE THIS UP FOR EVENTUAL QIO ;BH0002
877 ; THIS WRITES ON FIRST BYTE OF PASSWORD ;BH0002
878 001162 ENDIF ;AP0001
879 001162 CASE ; LOGGING TARGET ;AP0001
880 001164 FALSE NE #LOGTGT,R0 ;AP0001
881 001172 DO ;AP0001
882 001172 CALL SPLOGT ;XLATE LOGGING TARGET STUFF ;BH0002
884 001176 ELSE
885 001200 012700 177777 MOV #NE$FUN,R0 ;FUNCTION CODE ERROR
886 001204 000261 SEC ;SET FAILURE
887 001206 ENDCASE
888 001206 ENDIF
889 001206 IF ; SUCCESS AND MESSAGE NOT USED UP
890 001206 FALSE CS
891 001210 FALSE EQ R2,R3
892 001214 THEN
893 001214 012700 177776 MOV #NE$FOR,R0 ;MESSAGE FORMAT ERROR
894 001220 000261 SEC ;SET FAILURE
895 001222 ENDIF
896 001222 IF ; SUCCESS
897 001222 FALSE CS
898 001224 THEN
899 001224 105065 000006 CLRB C.FUNC(R5) ;INITIALIZE FOR NEXT STATE
900 001230 112764 000001 000006 MOVB #SETUP,STATE(R4) ;MOVE TO NEXT STATE
901 001236 ELSE
902 001240 CALL SPABRT ;BLOW IT UP
903 001244 ENDIF
904 001244 RESSTK <R3> ;RESTORE REGISTER
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 18-2
SPPARS
905 001246 ENDPROC
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 19
SPPASS
908 .SBTTL SPPASS
909 ;
910 ;======================================================================;
911 ;++
912 ; +-------------------------------------------------+
913 ; I I
914 ; I S P P A S S I
915 ; I - - - - - - I
916 ; I I
917 ; +-------------------------------------------------+
918 ;
919 ; FUNCTION:
920 ;
921 ; SET PARAMETER MODULE TO PARSE A PASSWORD FROM A NICE MESSAGE
922 ;
923 ; INPUT:
924 ;
925 ; R2 - CURRENT ADDRESS IN MESSAGE
926 ; R3 - ADDRESS OF END OF MESSAGE
927 ; R4 - ADDRESS OF CONTEXT BLOCK
928 ;
929 ; OUTPUT:
930 ;
931 ; C-BIT - CLEAR IF SUCCESSFUL, SET IF NOT
932 ; R0 - IF FAILURE, NICE ERROR RETURN CODE
933 ; R2 - CURRENT ADDRESS IN MESSAGE
934 ; @R4 - UPDATED CONTEXT BLOCK
935 ; PASWOR - PASSWORD
936 ;
937 ; REQUIREMENTS:
938 ;
939 ; SET PARAMETER SYMBOLS:
940 ;
941 ; PASLEN - LENGTH OF PASSWORD
942 ; PASWOR - OFFSET OF PASSWORD IN CONTEXT
943 ;
944 ;--
945 ;======================================================================;
946 ;
947 ;
948 ; EXTERNAL MACROS
949 ;
950 .MCALL SPDF
951 ;
952 ; DEFINE EXTERNAL SYMBOLS
953 ;
954 001250 SPDF ;SET SYMBOLS
955 ;
956 ; LOCAL PROCEDURE BODY
957 ;
958 001250 PROCLC SPPASS
959 001250 012700 000010 MOV #PASLEN,R0 ;LENGTH OF PASSWORD
960 001254 012701 000024 MOV #PASWOR,R1 ;OFFSET OF PASSWORD IN CONTEXT
961 001260 060401 ADD R4,R1 ;MAKE IT A DESTINATION ADDRESS
962 001262 CALL MVMSBY ;MOVE FIELD TO CONTEXT
963 001266 ENDPROC
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 20
SPPLGT
965 .SBTTL SPPLGT ;BH0002
966 ; ;BH0002
967 ;======================================================================; ;BH0002
968 ;++ ;BH0002
969 ; +-------------------------------------------------+ ;BH0002
970 ; I I ;BH0002
971 ; I S P P L G T I ;BH0002
972 ; I - - - - - - I ;BH0002
973 ; I I ;BH0002
974 ; +-------------------------------------------------+ ;BH0002
975 ; ;BH0002
976 ; FUNCTION: ;BH0002
977 ; ;BH0002
978 ; SET PARAMETER MODULE TO PROCESS LOG TARGET DIRECTIVE ;BH0002
979 ; ;BH0002
980 ; INPUT: ;BH0002
981 ; ;BH0002
982 ; R3 - OPTION BYTE FROM CONTEXT ;BH0002
983 ; R4 - ADDRESS OF CONTEXT BLOCK ;BH0002
984 ; ;BH0002
985 ; OUTPUT: ;BH0002
986 ; ;BH0002
987 ; C-BIT - CLEAR IF SUCCESSFUL, SET IF NOT ;BH0002
988 ; LOGDB - LOGGING DATA BASE UPDATED. ;BH0002
989 ; ;BH0002
990 ; REQUIREMENTS: ;BH0002
991 ; ;BH0002
992 ; SET PARAMETER SYMBOLS: ;BH0002
993 ; ;BH0002
994 ; LINE - OFFSET OF LINE ENTRY IN CONTEXT ;BH0002
995 ; REQSTA - FLAGS BYTE FROM CONTEXT ;BH0002
996 ; ;BH0002
997 ;-- ;BH0002
998 ;======================================================================; ;BH0002
999 ; ;BH0002
1000 ; ;BH0002
1001 ; EXTERNAL MACROS ;BH0002
1002 ; ;BH0002
1003 .MCALL SPDF ;BH0002
1004 ; ;BH0002
1005 ; DEFINE EXTERNAL SYMBOLS ;BH0002
1006 ; ;BH0002
1007 001270 SPDF ;SET SYMBOLS ;BH0002
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 21
SPPLGT
1009 ; ;BH0002
1010 ; LOCAL PROCEDURE BODY ;BH0002
1011 ; ;BH0002
1012 001270 PROCLC SPPLGT ;BH0002
1013 001270 116400 000035 MOVB REQSTA(R4),R0 ;GET THE FLAGS BYTE ;AP0001
1014 001274 006200 ASR R0 ;ISOLATE ;AP0001
1015 001276 006200 ASR R0 ; THE ;AP0001
1016 001300 006200 ASR R0 ; LOGGING ;AP0001
1017 001302 042700 177774 BIC #^C3,R0 ; TYPE ;AP0001
1018 001306 012702 000000G MOV #LOGDB,R2 ;THIS IS ADDRESS OF START OF TABLE ;AP0001
1019 001312 WHILE ; STILL WITHIN TABLE & ENTRY NOT FOUND ;AP0001
1020 001312 FALSE EQ #LOGDBE,R2 ;AP0001
1021 001320 FALSEB EQ (R2),R0 ;AP0001
1022 001324 DO ;AP0001
1023 001324 062702 000052 ADD #L.GLEN,R2 ;STEP TO NEXT ENTRY ;AP0001
1024 001330 ENDWHILE ;AP0001
1025 001332 IF ; WE FOUND IT ;AP0001
1026 001332 FALSE EQ #LOGDBE,R2 ;AP0001
1027 001340 THEN ;AP0001
1028 001340 116400 000035 MOVB REQSTA(R4),R0 ;GET THE FLAGS BYTE ;AP0001
1029 001344 042700 177770 BIC #^C7,R0 ;ISOLATE THE TARGET TYPE ;AP0001
1030 001350 ONCASE ; TYPE OF LOGGING TARGET ;AP0001
1032 001350 CASE ; MASTER NODE ;AP0001
1033 001350 FALSE NE #0,R0 ;AP0001
1034 001356 DO ;AP0001
1035 001356 042712 000400 BIC #LG.MND,(R2) ;ASSUME BEING CLEARED ;AP0001
1036 001362 052762 000400 000002 BIS #LG.MND,L.GSWX(R2) ;AND INDICATE IT IS BEING ALTERED ;AP0005
1037 001370 IF ; NEW VALUE ASSIGNED ;AP0001
1038 001370 FALSEB SET #^B100000,REQSTA(R4) ;AP0001
1039 001400 THEN ;AP0001
1040 001400 052712 000400 BIS #LG.MND,(R2) ;VALUE SPECIFIED ;AP0001
1041 001404 062702 000042 ADD #L.GMND,R2 ;MAKE IT AN ADDRESS ;AP0001
1042 001410 012701 000007 MOV #7,R1 ;MAXIMUM LENGTH OF FIELD ;AP0001
1043 001414 012700 000011 MOV #NODE,R0 ;OFFSET TO ;AP0001
1044 001420 060400 ADD R4,R0 ;NODE NAME & LENGTH ;AP0001
1045 001422 CALL MOVE ;MOVE IT IN. ;AP0001
1046 001426 ENDIF ;AP0001
1063 001426 CASE ; MONITOR TASK ;AP0003
1064 001430 FALSE NE #3,R0 ;AP0003
1065 001436 DO ;AP0003
1066 001436 042712 002000 BIC #LG.TSK,(R2) ;ASSUME BEING CLEARED ;AP0003
1067 001442 052762 002000 000002 BIS #LG.TSK,L.GSWX(R2) ;AND INDICATE IT IS BEING CHANGED ;AP0005
1068 001450 IF ; NEW VALUE ASSIGNED ;AP0003
1069 001450 FALSEB SET #^B100000,REQSTA(R4) ;AP0003
1070 001460 THEN ;AP0003
1071 001460 052712 002000 BIS #LG.TSK,(R2) ;VALUE SPECIFIED ;AP0003
1072 001464 SAVSTK R2 ;SAVE DATA BASE ENTRY ADDRESS ;AP0004
1073 001466 062702 000033 ADD #L.GTND,R2 ;ADDRESS OF NODE NAME IN DB ;AP0003
1074 001472 012701 000007 MOV #7,R1 ;LENGTH OF FIELD ;AP0003
1075 001476 012700 000011 MOV #NODE,R0 ;ADDRESS OF NEW NAME ;AP0003
1076 001502 060400 ADD R4,R0 ;IN CONTEXT. ;AP0003
1077 001504 CALL MOVE ;COPY IT OVER. ;AP0003
1078 001510 RESSTK R2 ;GET DATA BASE ADDRESS ;AP0004
1079 001512 062702 000010 ADD #L.GTSK,R2 ;TO POINT TO TASK ENTRY ;AP0004
1080 001516 016400 000020 MOV LINE(R4),R0 ;ADDRESS OF NEW TASK SPECIFICATION ;AP0003
1081 001522 112001 MOVB (R0)+,R1 ;GET LENGTH ;AP0003
1082 001524 CALL MOVE ;AND COPY IT OVER ALSO. ;AP0003
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 21-1
SPPLGT
1083 001530 ENDIF ;AP0003
1085 001530 ENDCASE ;BH0002
1086 001530 ELSE ;BH0002
1087 001532 012700 177777 MOV #NE$FUN,R0 ;BH0002
1088 001536 000261 SEC ;BH0002
1089 001540 ENDIF ;BH0002
1090 001540 ENDPROC ;BH0002
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 22
SPPROC
1093 .SBTTL SPPROC
1094 ;
1095 ;======================================================================;
1096 ;++
1097 ; +-------------------------------------------------+
1098 ; I I
1099 ; I S P P R O C I
1100 ; I - - - - - - I
1101 ; I I
1102 ; +-------------------------------------------------+
1103 ;
1104 ; FUNCTION:
1105 ;
1106 ; SET PARAMETER MODULE TO PROCESS THE SET REQUEST
1107 ;
1108 ; INPUT:
1109 ;
1110 ; R4 - ADDRESS OF CONTEXT BLOCK
1111 ; FLAGS - PROCESSING FLAGS
1112 ; LINCOU - NUMBER OF LINES TO SET STATE FOR
1113 ; NEXLIN - ADDRESS OF NEXT LINE ID TO SET STATE FOR
1114 ; OPTION - OPTION INDEX
1115 ; OTHER FIELDS - AS REQUIRED BY OPTION CONTROL DATABASE FOR
1116 ; PARTICULAR SET
1117 ; R5 - ADDRESS OF CONTROL BLOCK
1118 ; C.ADDR - ADDRESS OF COMMAND MESSAGE BUFFER
1119 ; C.FUNC - FUNCTION JUST PERFORMED, ZERO FOR BEGIN SET
1120 ; C.RET - ON COMPLETION ENTRY, RETURN CODE
1121 ;
1122 ; OUTPUT:
1123 ;
1124 ; @R4 - UPDATED CONTEXT
1125 ; LINCOU - NUMBER OF LINES LEFT TO SET STATE FOR
1126 ; NEXLIN - ADDRESS OF LINE ID OF NEXT LINE TO SET STATE FOR
1127 ; @R5 - UPDATED CONTROL BLOCK
1128 ; @C.ADDR - SET SERVICE ARGUMENTS
1129 ; C.FUNC - FUNCTION TO PERFORM
1130 ; C.TYPE - TYPE OF SET TO DO
1131 ; OTHER OUTPUTS - AS DESCRIBED FOR SPABRT
1132 ;
1133 ; REQUIREMENTS:
1134 ;
1135 ; INPUT VIA OPTION CONTROL DATABASE:
1136 ;
1137 ; CONTAB - OPTION CONTROL TABLE, INDEXED BY OPTION INDEX
1138 ;
1139 ; SET PARAMETER SYMBOLS:
1140 ;
1141 ; FLAGS - OFFSET OF PROCESSING FLAGS IN CONTEXT
1142 ; KNLNST - SET KNOWN LINES STATE FLAG MASK
1143 ; LINCOU - OFFSET OF LINE COUNT IN CONTEXT
1144 ; NEXLIN - OFFSET OF NEXT LINE ID ADDRESS IN CONTEXT
1145 ; OPTION - OFFSET OF PROCESSING OPTION INDEX IN CONTEXT
1146 ;
1147 ; NICE MESSAGE SYMBOLS:
1148 ;
1149 ; NE$FUN - INVALID FUNCTION OR OPTION ERROR RETURN CODE
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 22-1
SPPROC
1150 ; NE$LID - INVALID LINE ID ERROR RETURN CODE
1151 ; NE$LST - INVALID LINE STATE ERROR RETURN CODE
1152 ; NE$NOD - INVALID NODE ID ERROR RETURN CODE
1153 ; NE$NOR - NO ROOM ERROR RETURN CODE
1154 ; NE$PAR - PARAMETER ERROR RETURN CODE
1155 ; NS$SUC - SUCCESS RETURN CODE
1156 ;
1157 ; CONTROL BLOCK SYMBOLS:
1158 ;
1159 ; C.ADDR - OFFSET OF ADDRESS FIELD
1160 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
1161 ; C.RET - OFFSET OF RETURN CODE FIELD
1162 ; C.TYPE - OFFSET OF TYPE CODE FIELD
1163 ; CE$LID - LINE ID ERROR CODE
1164 ; CE$LST - LINE STATE ERROR CODE
1165 ; CE$NOD - NODE ID ERROR CODE
1166 ; CE$OVR - TABLE OVERFLOW ERROR CODE
1167 ; CE$PAR - PARAMETER ERROR CODE
1168 ;
1169 ;--
1170 ;======================================================================;
1171 ;
1172 ; EXTERNAL MACROS
1173 ;
1174 .MCALL SPDF,CONDF,NICDF,SAVSTK,RESSTK
1176 .MCALL LOGDF ;AP0001
1178 ;
1179 ; DEFINE EXTERNAL SYMBOLS
1180 ;
1181 001542 SPDF ;SET SYMBOLS
1182 001542 CONDF ;CONTROL BLOCK SYMBOLS
1183 001542 NICDF ;NICE MESSAGE SYMBOLS
1185 001542 LOGDF ;LOG TARGET DATABASE SYMBOLS ;AP0001
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 23
SPPROC
1188 ;
1189 ; LOCAL PROCEDURE BODY
1190 ;
1191 001542 PROCLC SPPROC
1192 001542 IF ; FUNCTION CODE = 0
1193 001542 FALSEB SET C.FUNC(R5)
1194 001550 THEN
1195 001550 SAVSTK <R3> ;SAVE REGISTER
1197 001552 ONCASE ; OPTION TYPE ;AP0001
1198 001552 116403 000010 MOVB OPTION(R4),R3 ;GET OPTION CONTROL ENTRY ;AP0001
1199 001556 CASE ; PASS INFORMATION TO SET PARAMETER SERVICE ;AP0001
1200 001556 FALSE MI ;AP0001
1201 001560 DO ;AP0001
1203 001560 062703 000000' ADD #CONTAB,R3 ;ADD ADDRESS OF OPTION CONTROL TABLE ;AP0001
1204 001564 112365 000016 MOVB (R3)+,C.TYPE(R5) ;SET TYPE CODE IN CONTROL BLOCK ;AP0001
1205 001570 016502 000014 MOV C.ADDR(R5),R2 ;ADDRESS OF BUFFER ;AP0001
1206 001574 WHILE ; NEXT BYTE <> END MARKER ;AP0001
1207 001574 FALSEB CLEAR (R3) ;AP0001
1208 001600 DO ;AP0001
1209 001600 112300 MOVB (R3)+,R0 ;OFFSET OF CONTEXT ENTRY ;AP0001
1210 001602 060400 ADD R4,R0 ;MAKE IT A SOURCE ADDRESS ;AP0001
1211 001604 112301 MOVB (R3)+,R1 ;LENGTH OF CONTEXT ENTRY ;AP0001
1212 001606 IF ; LENGTH = 0 ;AP0001
1213 001606 FALSE SET R1 ;AP0001
1214 001612 THEN ;AP0001
1215 001612 111001 MOVB (R0),R1 ;GET LENGTH OF IMAGE FIELD ;AP0001
1216 001614 005201 INC R1 ;INCLUDE THE LENGTH BYTE ;AP0001
1217 001616 ENDIF ;AP0001
1218 001616 CALL MOVE ;MOVE FIELD FROM CONTEXT TO BUFFER ;AP0001
1219 001622 ENDWHILE ;AP0001
1220 001624 112765 177741 000006 MOVB #-C$STPR,C.FUNC(R5) ;SET FUNCTION CODE TO SET PARAMETER ;AP0001
1222 001632 CASE ; LOGGING TARGET ;AP0001
1223 001634 FALSE NE #-LOGTGT,R3 ;AP0001
1224 001642 DO ;AP0001
1225 001642 CALL SPPLGT ;PROCESS THE TARGET INFO ;BH0002
1226 001646 012700 000001 MOV #NS$SUC,R0 ;SAY IT IS A GOOD ONE ;BH0002
1227 001652 CALL SPABRT ;ALL DONE ! ;BH0002
1228 001656 CASE ; NODE LOGGING STATE ;BH0002
1229 001660 012700 000000 MOV #LG.OPR,R0 ;ASSUME WILL BE OPR ;BH0002
1230 001664 TRUE EQ R3,#-NODOPR ;BH0002
1231 001672 012700 000001 MOV #LG.MNT,R0 ;NOT SO, SO NOW MAINT ;BH0002
1232 001676 FALSE NE R3,#-NODMAI ;BH0002
1233 001704 DO ;BH0002
1234 001704 012702 000000G MOV #LOGDB,R2 ;SET TO FIND TABLE ENTRY IN DATABASE ;BH0002
1235 001710 WHILE ; STILL WITHIN TABLE & ENTRY NOT FOUND ;BH0002
1236 001710 FALSE EQ R2,#LOGDBE ;BH0002
1237 001716 FALSEB EQ R0,(R2) ;BH0002
1238 001722 DO ;BH0002
1239 001722 062702 000052 ADD #L.GLEN,R2 ;TO NEXT TABLE ENTRY ;BH0002
1240 001726 ENDWHILE ;BH0002
1241 001730 IF ; WE HAVE IT IN TABLE ;BH0002
1242 001730 FALSE EQ R2,#LOGDBE ;BH0002
1243 001736 THEN ;BH0002
1244 001736 042712 100000 BIC #LG.ON,(R2) ;ASSUME TO TURN OFF ;BH0002
1245 001742 IF ; TURNING IT ON ;BH0002
1246 001742 FALSEB NE REQSTA(R4) ;BH0002
1247 001750 THEN ;BH0002
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 23-1
SPPROC
1248 001750 052712 100000 BIS #LG.ON,(R2) ;TURN IT ON ;BH0002
1249 001754 ENDIF ;BH0002
1250 001754 ENDIF ;BH0002
1251 001754 012700 000001 MOV #NS$SUC,R0 ;BH0002
1252 001760 CALL SPABRT ;ALL DONE ;BH0002
1253 001764 CASE ; SET LINE LOGGING STATE ;BH0002
1254 001766 TRUE EQ R3,#-LINOPR ;BH0002
1255 001774 FALSE NE R3,#-LINMAI ;BH0002
1256 002002 DO ;BH0002
1257 002002 CALL SPSLLS ;DO THE STATE SETTING ;BH0002
1258 002006 ENDCASE ;AP0001
1260 002006 RESSTK <R3> ;RESTORE REGISTER ;**-19
1261 002010 ENDIF
1262 002010 IF ; FUNCTION CODE = SET PARAMETER
1263 002010 FALSEB NE C.FUNC(R5),#C$STPR
1264 002020 THEN
1265 002020 IF ; SUCCESS OR SETTING STATE KNOWN LINES
1266 002020 TRUEB GT C.RET(R5)
1267 002026 FALSEB CLEAR #KNLNST,FLAGS(R4)
1268 002036 THEN
1269 002036 012700 000001 MOV #NS$SUC,R0 ;SET SUCCESS RETURN
1270 002042 ELSE
1271 002044 ONCASE ; FAILURE
1272 002044 116500 000010 MOVB C.RET(R5),R0
1273 002050 CASE ; LINE ID
1274 002050 FALSE NE R0,#CE$LID
1275 002056 DO
1276 002056 012700 177770 MOV #NE$LID,R0 ;NICE LINE ID ERROR
1277 002062 CASE ; NODE NAME
1278 002064 FALSE NE R0,#CE$NOD
1279 002072 DO
1280 002072 012700 177765 MOV #NE$NOD,R0 ;NICE NODE NAME ERROR
1281 002076 CASE ; TABLE OVERFLOW
1282 002100 FALSE NE R0,#CE$OVR
1283 002106 DO
1284 002106 012700 177754 MOV #NE$NOR,R0 ;NICE NO ROOM ERROR
1285 002112 CASE ; PARAMETER ERROR
1286 002114 FALSE NE R0,#CE$PAR
1287 002122 DO
1288 002122 012700 177760 MOV #NE$PAR,R0 ;NICE PARAMETER ERROR
1289 002126 CASE ; INVALID LINE STATE
1290 002130 FALSE NE R0,#CE$LST
1291 002136 DO
1292 002136 012700 177767 MOV #NE$LST,R0 ;NICE LINE STATE ERROR
1293 002142 ELSE
1294 002144 012700 177777 MOV #NE$FUN,R0 ;NICE FUNCTON CODE ERROR
1295 002150 ENDCASE
1296 002150 ENDIF
1297 002150 005364 000002 DEC LINCOU(R4) ;DECREMENT LINE COUNT
1298 002154 IF ; NEW LINE COUNT > 0
1299 002154 FALSE LE
1300 002156 THEN
1301 002156 016400 000004 MOV NEXLIN(R4),R0 ;ADDRESS OF NEXT LINE ID
1302 002162 012701 000004 MOV #4,R1 ;LENGTH OF LINE ID
1303 002166 012702 000020 MOV #LINE,R2 ;OFFSET OF LINE ID IN CONTEXT
1304 002172 060402 ADD R4,R2 ;MAKE IT A DESTINATION ADDRESS
1305 002174 CALL MOVE ;MOVE NEXT LINE ID INTO CONTEXT
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 23-2
SPPROC
1306 002200 010064 000004 MOV R0,NEXLIN(R4) ;UPDATE POINTER TO NEXT LINE
1307 002204 105065 000006 CLRB C.FUNC(R5) ;LOOK LIKE STARTING FROM SCRATCH
1308 002210 ELSE
1309 002212 CALL SPABRT ;ALL DONE!
1310 002216 ENDIF
1311 002216 ENDIF
1312 002216 ENDPROC
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 24
SPSLLS
1314 .SBTTL SPSLLS ;BH0002
1315 ; ;BH0002
1316 ;======================================================================; ;BH0002
1317 ;++ ;BH0002
1318 ; +-------------------------------------------------+ ;BH0002
1319 ; I I ;BH0002
1320 ; I S P S L L S I ;BH0002
1321 ; I - - - - - - I ;BH0002
1322 ; I I ;BH0002
1323 ; +-------------------------------------------------+ ;BH0002
1324 ; ;BH0002
1325 ; FUNCTION: ;BH0002
1326 ; ;BH0002
1327 ; SET PARAMETER MODULE TO PROCESS SET LINE LOGGING STATES ;BH0002
1328 ; ;BH0002
1329 ; INPUT: ;BH0002
1330 ; ;BH0002
1331 ; R3 - OPTION BYTE FROM CONTEXT ;BH0002
1332 ; R4 - ADDRESS OF CONTEXT BLOCK ;BH0002
1333 ; R5 - ADDRESS OF CONTROL BLOCK ;BH0002
1334 ; ;BH0002
1335 ; OUTPUT: ;BH0002
1336 ; ;BH0002
1337 ; CALLS DLX TO UPDATE LINE DATABASES. ;BH0002
1338 ; ;BH0002
1339 ; REQUIREMENTS: ;BH0002
1340 ; ;BH0002
1341 ;-- ;BH0002
1342 ;======================================================================; ;BH0002
1343 ; ;BH0002
1344 ; ;BH0002
1345 ; EXTERNAL MACROS ;BH0002
1346 ; ;BH0002
1347 .MCALL SRDF,DLXDF,QIOW$S ;BH0002
1348 ; ;BH0002
1349 ; DEFINE EXTERNAL SYMBOLS ;BH0002
1350 ; ;BH0002
1351 002220 SRDF ;BH0002
1352 002220 DLXDF ;BH0002
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 25
SPSLLS
1354 ; ;BH0002
1355 ; LOCAL PROCEDURE BODY ;BH0002
1356 ; ;BH0002
1357 002220 PROCLC SPSLLS ;BH0002
1358 002220 012700 000010 MOV #C.RET,R0 ; DETERMINE ADDRESS OF STATUS BLOCK ;BH0002
1359 002224 060500 ADD R5,R0 ; FOR QIO CALL ;BH0002
1360 002226 012702 000040 MOV #NX$SLO,R2 ; ASSUME SETTING/CLEARING OPR STATE ;BH0002
1361 002232 012701 000020 MOV #LINE,R1 ; DETERMINE ADDRESS OF LINE BLOCK ;BH0002
1362 002236 060401 ADD R4,R1 ; ... ;BH0002
1363 002240 IF ; MAINTENANCE, HOWEVER ;BH0002
1364 002240 FALSE EQ R3,#-LINOPR ;BH0002
1365 002246 THEN ;BH0002
1366 002246 012702 000042 MOV #NX$SLM,R2 ; IT IS SET/CLEAR MAINT STATE ;BH0002
1367 002252 ENDIF ;BH0002
1368 002252 QIOW$S #NX.NIC,#NCOLUN,#TEMFLG,,R0,,<R1,#5,R2> ;BH0002
1369 002320 CALL SRQNXF ; PROCESS ANY ERROR CONDITION ;BH0002
1370 002324 IF ; SOMETHING WRONG ;BH0002
1371 002324 116500 000010 MOVB C.RET(R5),R0 ;BH0002
1372 002330 FALSE PL ;BH0002
1373 002332 THEN ;BH0002
1374 002332 CALL SPABRT ; BOMB ;BH0002
1375 002336 ELSE ;BH0002
1376 002340 112765 000037 000006 MOVB #C$STPR,C.FUNC(R5) ;BH0002
1377 002346 ENDIF ;BH0002
1378 002346 ENDPROC ;BH0002
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 26
SPSTAB
1381 .SBTTL SPSTAB ;BH0002
1382 ; ;BH0002
1383 ;======================================================================; ;BH0002
1384 ;++ ;BH0002
1385 ; +-------------------------------------------------+ ;BH0002
1386 ; I I ;BH0002
1387 ; I S P S T A B I ;BH0002
1388 ; I - - - - - - I ;BH0002
1389 ; I I ;BH0002
1390 ; +-------------------------------------------------+ ;BH0002
1391 ; ;BH0002
1392 ; FUNCTION: ;BH0002
1393 ; ;BH0002
1394 ; SET PARAMETER MODULE TO PARSE A STATE (ON/OFF) FROM A NICE MESSAGE ;BH0002
1395 ; ;BH0002
1396 ; INPUT: ;BH0002
1397 ; ;BH0002
1398 ; R2 - CURRENT ADDRESS IN MESSAGE ;BH0002
1399 ; R3 - ADDRESS OF END OF MESSAGE ;BH0002
1400 ; R4 - ADDRESS OF CONTEXT BLOCK ;BH0002
1401 ; ;BH0002
1402 ; OUTPUT: ;BH0002
1403 ; ;BH0002
1404 ; C-BIT - CLEAR IF SUCCESSFUL, SET IF NOT ;BH0002
1405 ; R0 - IF FAILURE, NICE ERROR RETURN CODE ;BH0002
1406 ; R2 - CURRENT ADDRESS IN MESSAGE ;BH0002
1407 ; @R4 - UPDATED CONTEXT ;BH0002
1408 ; REQSTA - REQUESTED STATE FROM MESSAGE ;BH0002
1409 ; ;BH0002
1410 ;-- ;BH0002
1411 ;======================================================================; ;BH0002
1412 ; ;BH0002
1413 ; ;BH0002
1414 ; EXTERNAL MACROS ;BH0002
1415 ; ;BH0002
1416 .MCALL SPDF ;BH0002
1417 ; ;BH0002
1418 ; DEFINE EXTERNAL SYMBOLS ;BH0002
1419 ; ;BH0002
1420 002350 SPDF ;SET SYMBOLS ;BH0002
1421 ; ;BH0002
1422 ; LOCAL PROCEDURE BODY ;BH0002
1423 ; ;BH0002
1424 002350 PROCLC SPSTAB ;BH0002
1425 002350 CALL SPSTAT ;READ THE STATUS ;BH0002
1426 002354 IF ; SUCCESS BUT WRONG VALUE ;BH0002
1427 002354 FALSE CS ;BH0002
1428 002356 FALSEB HIS #1,REQSTA(R4) ;BH0002
1429 002366 THEN ;BH0002
1430 002366 012700 177777 MOV #NE$FUN,R0 ;BH0002
1431 002372 000261 SEC ;BH0002
1432 002374 ENDIF ;BH0002
1433 002374 ENDPROC ;BH0002
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 28
SPSTAT
1436 .SBTTL SPSTAT
1437 ;
1438 ;======================================================================;
1439 ;++
1440 ; +-------------------------------------------------+
1441 ; I I
1442 ; I S P S T A T I
1443 ; I - - - - - - I
1444 ; I I
1445 ; +-------------------------------------------------+
1446 ;
1447 ; FUNCTION:
1448 ;
1449 ; SET PARAMETER MODULE TO PARSE A STATE FROM A NICE MESSAGE
1450 ;
1451 ; INPUT:
1452 ;
1453 ; R2 - CURRENT ADDRESS IN MESSAGE
1454 ; R3 - ADDRESS OF END OF MESSAGE
1455 ; R4 - ADDRESS OF CONTEXT BLOCK
1456 ;
1457 ; OUTPUT:
1458 ;
1459 ; C-BIT - CLEAR IF SUCCESSFUL, SET IF NOT
1460 ; R0 - IF FAILURE, NICE ERROR RETURN CODE
1461 ; R2 - CURRENT ADDRESS IN MESSAGE
1462 ; @R4 - UPDATED CONTEXT
1463 ; REQSTA - REQUESTED STATE FROM MESSAGE
1464 ;
1465 ;--
1466 ;======================================================================;
1467 ;
1468 ;
1469 ; EXTERNAL MACROS
1470 ;
1471 .MCALL SPDF
1472 ;
1473 ; DEFINE EXTERNAL SYMBOLS
1474 ;
1475 002376 SPDF ;SET SYMBOLS
1476 ;
1477 ; LOCAL PROCEDURE BODY
1478 ;
1479 002376 PROCLC SPSTAT
1480 002376 CALL GTMSBY ;GET STATE BYTE
1481 002402 IF ; SUCCESS
1482 002402 FALSE CS
1483 002404 THEN
1484 002404 110064 000035 MOVB R0,REQSTA(R4) ;PUT STATE IN CONTEXT
1485 002410 ENDIF
1486 002410 ENDPROC
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 29
SPSTPR
1489 .SBTTL SPSTPR
1490 ;
1491 ;======================================================================;
1492 ;++
1493 ; +-------------------------------------------------+
1494 ; I I
1495 ; I S P S T P R I
1496 ; I - - - - - - I
1497 ; I I
1498 ; +-------------------------------------------------+
1499 ;
1500 ; FUNCTION:
1501 ;
1502 ; SET PARAMETER MAIN MODULE
1503 ;
1504 ; INPUT:
1505 ;
1506 ; R5 - ADDRESS OF CONTROL BLOCK
1507 ; C.CTXT - ON INITIAL ENTRIES, ZERO; ON PROCESSING ENTRIES, ADDRESS
1508 ; OF CONTEXT BLOCK
1509 ; STATE - PROCESSING STATE
1510 ; C.FUNC - FUNCTION CODE JUST PERFORMED
1511 ; OTHER INPUTS - AS DESCRIBED FOR SUB-MODULES
1512 ;
1513 ; OUTPUT:
1514 ;
1515 ; C-BIT - CLEAR
1516 ; @R5 - UPDATED CONTROL BLOCK
1517 ; C.CTXT - ON FINAL RETURN, -1; ON PROCESSING RETURNS, ADDRESS OF
1518 ; CONTEXT BLOCK
1519 ; C.FUNC - ON FINAL RETURN, PROCESS FUNCTION CODE
1520 ; C.PROC - ON FINAL RETURN, GET COMMAND PROCESSOR NUMBER
1521 ; OTHER OUTPUTS - AS DESCRIBED FOR SUB-MODULES
1522 ;
1523 ; REQUIREMENTS:
1524 ;
1525 ; SET PARAMETER SYMBOLS:
1526 ;
1527 ; FINISH - FINISH STATE VALUE
1528 ; PROC - PROCESS STATE VALUE
1529 ; SETUP - SET UP STATE VALUE
1530 ; STATE - OFFSET OF STATE IN CONTEXT
1531 ;
1532 ; PROCESSOR SYMBOLS:
1533 ;
1534 ; P$GTCM - GET COMMAND PROCESSOR NUMBER
1535 ;
1536 ; CONTROL BLOCK SYMBOLS:
1537 ;
1538 ; C.CTXT - OFFSET OF CONTEXT FIELD
1539 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
1540 ; C.PROC - OFFSET OF PROCESSOR NUMBER FIELD
1541 ; C$RLBF - RELEASE BUFFER FUNCTION CODE
1542 ; C$PROC - PROCESS FUNCTION CODE
1543 ;
1544 ;--
1545 ;======================================================================;
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 29-1
SPSTPR
1546 ;
1547 ;
1548 ; EXTERNAL MACROS
1549 ;
1550 .MCALL CONDF,SPDF,PRDF
1551 ;
1552 ; DEFINE EXTERNAL SYMBOLS
1553 ;
1554 002412 CONDF ;CONTROL BLOCK SYMBOLS
1555 002412 SPDF ;SET SYMBOLS
1556 002412 PRDF ;PROCESSOR SYMBOLS
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 30
SPSTPR
1558 ;
1559 ; PROCEDURE BODY
1560 ;
1561 002412 PROC SPSTPR
1562 002412 016504 000004 MOV C.CTXT(R5),R4 ;GET CONTEXT POINTER
1563 002416 IF ; CONTEXT POINTER = 0
1564 002416 FALSE SET R4
1565 002422 THEN
1566 002422 IF ; FUNCTION CODE <> RELEASE MEMORY BUFFER
1567 002422 FALSEB EQ C.FUNC(R5),#C$RLBF
1568 002432 THEN
1569 002432 CALL SPINIT ;INITIALIZE
1570 002436 ELSE ; MUST HAVE JUST RELEASED CONTEXT, ALL DONE!
1571 002440 112765 000001 000007 MOVB #P$GTCM,C.PROC(R5) ;PASS THIS BACK FROM WHENCE IT CAME
1572 002446 112765 000200 000006 MOVB #C$PROC,C.FUNC(R5) ;FIX UP FUNCTION CODE
1573 002454 012765 177777 000004 MOV #-1,C.CTXT(R5) ;SIGNAL COMPLETE
1574 002462 005004 CLR R4 ;MAKE SURE NOBODY ELSE IN HERE RUNS
1575 002464 ENDIF
1576 002464 ENDIF
1577 002464 IF ; CONTEXT POINTER <> 0
1578 002464 FALSE CLEAR R4
1579 002470 THEN
1580 002470 IF ; STATE = SETUP
1581 002470 FALSEB NE STATE(R4),#SETUP
1582 002500 THEN
1583 002500 CALL SPSTUP ;SETUP FOR PROCESSING
1584 002504 ENDIF
1585 002504 WHILE ; STATE = PROCESS AND FUNCTION CODE >= 0
1586 002504 FALSEB NE STATE(R4),#PROC
1587 002514 FALSEB LT C.FUNC(R5)
1588 002522 DO
1589 002522 CALL SPPROC ;PROCESS A SET
1590 002526 ENDWHILE
1591 002530 IF ; STATE = FINISH UP
1592 002530 FALSEB NE STATE(R4),#FINISH
1593 002540 THEN
1594 002540 CALL SPFINI ;CLEAN UP
1595 002544 ENDIF
1596 002544 105465 000006 NEGB C.FUNC(R5) ;FIX UP FUNCTION CODE
1597 002550 ENDIF
1598 002550 000241 CLC ;FOLLOWING THE RULES...
1599 002552 ENDPROC
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 31
SPSTUP
1601 .SBTTL SPSTUP
1602 ;
1603 ;======================================================================;
1604 ;++
1605 ; +-------------------------------------------------+
1606 ; I I
1607 ; I S P S T U P I
1608 ; I - - - - - - I
1609 ; I I
1610 ; +-------------------------------------------------+
1611 ;
1612 ; FUNCTION:
1613 ;
1614 ; SET PARAMETER MODULE TO SET UP FOR PROCESSING
1615 ;
1616 ; INPUT:
1617 ;
1618 ; R4 - ADDRESS OF CONTEXT BLOCK
1619 ; FLAGS - PROCESSING FLAGS
1620 ; REQSTA - REQUESTED STATE FOR SET LINE STATE
1621 ; R5 - CONTROL BLOCK
1622 ; C.ADDR - ON INITIAL ENTRY, ADDRESS OF COMMAND MESSAGE BUFFER; ON
1623 ; READ INFORMATION COMPLETION, ADDRESS OF LINE LIST
1624 ; C.FUNC - FUNCTION CODE JUST PERFORMED
1625 ; C.LEN - ON READ INFORMATION COMPLETION, NUMBER OF LINES IN LIST
1626 ; C.RET - ON READ INFORMATION COMPLETION, RETURN CODE
1627 ; C.SAVE - ON READ INFORMATION COMPLETION, ADDRESS OF COMMAND
1628 ; MESSAGE BUFFER
1629 ;
1630 ; OUTPUT:
1631 ;
1632 ; @R4 - UPDATED CONTEXT
1633 ; LINE - LINE ID OF LINE TO SET STATE FOR
1634 ; LINCOU - NUMBER OF LINES TO SET STATE FOR
1635 ; NEXLIN - ADDRESS OF ID OF NEXT LINE TO SET STATE FOR
1636 ; STATE - ON FINAL SUCCESS RETURN, PROCESS STATE VALUE
1637 ; @R5 - UPDATED CONTROL BLOCK
1638 ; C.ADDR - ON READ INFORMATION REQUEST, ADDRESS OF BUFFER
1639 ; C.FUNC - FUNCTION TO PERFORM
1640 ; C.LEN - ON READ INFORMATION REQUEST, LENGTH OF BUFFER
1641 ; C.PRID - ON READ INFORMATION REQUEST, PROCESS ID
1642 ; C.SAVE - ON READ INFORMATION REQUEST, SAVED COMMAND BUFFER ADDRESS
1643 ; C.TYPE - ON READ INFORMATION REQUEST, LINE LIST TYPE CODE
1644 ;
1645 ; REQUIREMENTS:
1646 ;
1647 ; SET PARAMETER SYMBOLS:
1648 ;
1649 ; FLAGS - OFFSET OF PROCESSING FLAGS IN CONTEXT
1650 ; KNLNST - SET KNOWN LINE STATE FLAG MASK
1651 ; LINE - OFFSET OF LINE ID IN CONTEXT
1652 ; LINCOU - OFFSET OF LINE COUNTER IN CONTEXT
1653 ; NEXLIN - OFFSET OF NEXT LINE ID ADDRESS IN CONTEXT
1654 ; PROC - PROCESS STATE VALUE
1655 ; REQSTA - OFFSET OF REQUESTED LINE STATE IN CONTEXT
1656 ; STATE - OFFSET OF PROCESSING STATE IN CONTEXT
1657 ;
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 31-1
SPSTUP
1658 ; NICE MESSAGE SYMBOLS:
1659 ;
1660 ; N.MLEN - MAXIMUM LENGTH OF A NICE MESSAGE
1661 ; NE$FUN - INVALID FUNCTION OR OPTION ERROR RETURN CODE
1662 ; NE$PAR - INVALID PARAMETER ERROR RETURN CODE
1663 ; NS$SUC - SUCCESS RETURN CODE
1664 ; ST$MAI - MAINTENANCE STATE VALUE
1665 ; ST$OFF - OFF STATE VALUE
1666 ; ST$ON - ON STATE VALUE
1667 ;
1668 ; CONTROL BLOCK SYMBOLS:
1669 ;
1670 ; C.ADDR - OFFSET OF ADDRESS FIELD
1671 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
1672 ; C.LEN - OFFSET OF LENGTH FIELD
1673 ; C.PRID - OFFSET OF PROCESS ID FIELD
1674 ; C.RET - OFFSET OF RETURN CODE FIELD
1675 ; C.SAVE - OFFSET OF SAVE AREA
1676 ; C.TYPE - OFFSET OF TYPE FIELD
1677 ; C$RDIN - READ INFORMATION FUNCTION CODE
1678 ; RI$LNL - READ LINE LIST TYPE CODE
1679 ;
1680 ;--
1681 ;======================================================================;
1682 ;
1683 ;
1684 ; EXTERNAL MACROS
1685 ;
1686 .MCALL CONDF,SPDF,NICDF
1687 ;
1688 ; DEFINE EXTERNAL SYMBOLS
1689 ;
1690 002554 CONDF ;CONTROL BLOCK SYMBOLS
1691 002554 SPDF ;SET PARAMETER SYMBOLS
1692 002554 NICDF ;NICE MESSAGE SYMBOLS
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 32
SPSTUP
1694 ;
1695 ; LOCAL PROCEDURE BODY
1696 ;
1697 002554 PROCLC SPSTUP
1698 002554 IF ; FUNCTION CODE = 0
1699 002554 FALSEB SET C.FUNC(R5)
1700 002562 THEN
1701 002562 IF ; SETTING KNOWN LINES STATE
1702 002562 FALSEB CLEAR #KNLNST,FLAGS(R4)
1703 002572 THEN
1704 002572 IF ; REQUESTED STATE = ON, OFF OR MAINTENANCE
1705 002572 116400 000035 MOVB REQSTA(R4),R0
1706 002576 TRUE EQ R0,#ST$ON
1707 002604 TRUE EQ R0,#ST$OFF
1708 002612 FALSEB NE R0,#ST$MAI
1709 002620 THEN
1710 002620 016565 000014 000022 MOV C.ADDR(R5),C.SAVE(R5) ;SAVE ADDRESS OF MESSAGE BUFFER
1711 002626 062765 000006 000014 ADD #6,C.ADDR(R5) ;LEAVE SPACE FOR SET PARAM. CONTROL
1712 002634 012765 000446 000012 MOV #N.MLEN-6,C.LEN(R5) ;MAXIMUM NUMBER OF BYTES IN BUFFER
1713 002642 112765 000006 000016 MOVB #RI$LNL,C.TYPE(R5) ;READ THE LINE LIST
1714 002650 105065 000017 CLRB C.PRID(R5) ;FOR ALL PROCESSES
1715 002654 112765 177740 000006 MOVB #-C$RDIN,C.FUNC(R5) ;SET FUNCTION CODE TO READ INFORMATION
1716 002662 ELSE
1717 002664 012700 177760 MOV #NE$PAR,R0 ;NICE PARAMETER ERROR
1718 002670 CALL SPABRT ;BLOW IT UP
1719 002674 ENDIF
1720 002674 ELSE
1721 002676 112764 000002 000006 MOVB #PROC,STATE(R4) ;MOVE ON TO NEXT STATE
1722 002704 ENDIF
1723 002704 ENDIF
1724 002704 IF ; FUNCTION CODE = READ INFORMATION
1725 002704 FALSEB NE C.FUNC(R5),#C$RDIN
1726 002714 THEN
1727 002714 IF ; SUCCESS
1728 002714 FALSEB LT C.RET(R5)
1729 002722 THEN
1730 002722 016564 000012 000002 MOV C.LEN(R5),LINCOU(R4) ;NUMBER OF LINES TO SET FOR
1731 002730 IF ; NUMBER OF LINES > 0
1732 002730 FALSE LE
1733 002732 THEN
1734 002732 016500 000014 MOV C.ADDR(R5),R0 ;ADDRESS OF LIST
1735 002736 012701 000004 MOV #4,R1 ;LENGTH OF LINE ID
1736 002742 012702 000020 MOV #LINE,R2 ;OFFSET OF LINE ID IN CONTEXT
1737 002746 060402 ADD R4,R2 ;MAKE IT A DESTINATION ADDRESS
1738 002750 CALL MOVE ;MOVE 1ST LINE ID INTO CONTEXT
1739 002754 010064 000004 MOV R0,NEXLIN(R4) ;SAVE POINTER TO NEXT LINE ID
1740 002760 112764 000002 000006 MOVB #PROC,STATE(R4) ;GO TO NEXT STATE
1741 002766 105065 000006 CLRB C.FUNC(R5) ;INDICATE INITIALIZATION
1742 002772 ELSE
1743 002774 012700 000001 MOV #NS$SUC,R0 ;NICE SUCCESS
1744 003000 CALL SPABRT ;ALL DONE!
1745 003004 ENDIF
1746 003004 ELSE
1747 003006 012700 177777 MOV #NE$FUN,R0 ;NICE FUNCTION CODE ERROR
1748 003012 CALL SPABRT ;KILL IT
1749 003016 ENDIF
1750 003016 016565 000022 000014 MOV C.SAVE(R5),C.ADDR(R5) ;RESTORE MESSAGE BUFFER ADDRESS
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 32-1
SPSTUP
1751 003024 ENDIF
1752 003024 ENDPROC
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 33
SPTASK
1755 .SBTTL SPTASK ;AP0003
1756 ; ;AP0003
1757 ;======================================================================; ;AP0003
1758 ;++ ;AP0003
1759 ; +-------------------------------------------------+ ;AP0003
1760 ; I I ;AP0003
1761 ; I S P T A S K I ;AP0003
1762 ; I - - - - - - I ;AP0003
1763 ; I I ;AP0003
1764 ; +-------------------------------------------------+ ;AP0003
1765 ; ;AP0003
1766 ; FUNCTION: ;AP0003
1767 ; ;AP0003
1768 ; SET PARAMETER MODULE TO PARSE A TASK SPECIFICATION FROM A NICE MESSAGE. ;AP0003
1769 ; ;AP0003
1770 ; INPUT: ;AP0003
1771 ; ;AP0003
1772 ; R2 - CURRENT ADDRESS IN MESSAGE ;AP0003
1773 ; R3 - ADDRESS OF END OF MESSAGE ;AP0003
1774 ; R4 - ADDRESS OF CONTEXT BLOCK ;AP0003
1775 ; ;AP0003
1776 ; OUTPUT: ;AP0003
1777 ; ;AP0003
1778 ; C-BIT - SET IF UNSUCCESSFUL ;AP0003
1779 ; @R4 - UPDATED CONTEXT BLOCK ;AP0003
1780 ; OPTION - PROCESSING INDEX FOR NICE SET OPTION ;AP0003
1781 ; STATE - IF SUCCESSFUL, SET UP STATE VALUE ;AP0003
1782 ; ;AP0003
1783 ; REQUIREMENTS: ;AP0003
1784 ; ;AP0003
1785 ; SET PARAMETER SYMBOLS: ;AP0003
1786 ; ;AP0003
1787 ; OPTION - OFFSET OF OPTION INDEX IN CONTEXT ;AP0003
1788 ; ;AP0003
1789 ; C.LEN - OFFSET OF LENGTH FIELD ;AP0003
1790 ; ;AP0003
1791 ;-- ;AP0003
1792 ;======================================================================; ;AP0003
1793 ; ;AP0003
1794 ; ;AP0003
1795 ; EXTERNAL MACROS ;AP0003
1796 ; ;AP0003
1797 .MCALL SPDF ;AP0003
1798 ; ;AP0003
1799 ; DEFINE EXTERNAL SYMBOLS ;AP0003
1800 ; ;AP0003
1801 003026 SPDF ;SET SYMBOLS ;AP0003
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 34
SPTASK
1803 ; ;AP0003
1804 ; LOCAL PROCEDURE BODY ;AP0003
1805 ; ;AP0003
1806 003026 PROCLC SPTASK ;AP0003
1807 003026 010264 000020 MOV R2,LINE(R4) ;SAVE ADDRESS OF SPECIFICATION ;AP0003
1808 003032 CALL GTMSBY ;AND GET LENGTH. ;AP0003
1809 003036 IF ; LENGTH BYTE PRESENT ;AP0003
1810 003036 FALSE CS ;AP0003
1811 003040 THEN ;AP0003
1812 003040 060200 ADD R2,R0 ;ADD BASE ADDRESS ;AP0003
1813 003042 010064 000022 MOV R0,LINE+2(R4) ;SAVE THIS FOR A DOUBLE-CHECK. ;AP0003
1814 003046 CALL GTMSBY ;GET THE FORMAT TYPE. ;AP0003
1815 003052 IF ; FORMAT TYPE PRESENT ;AP0003
1816 003052 FALSE CS ;AP0003
1817 003054 THEN ;AP0003
1818 003054 005202 INC R2 ;BYPASS OBJECT TYPE. ;AP0003
1819 003056 ONCASE ; FORMAT TYPE ;AP0003
1820 003056 CASE ; OBJECT TYPE ONLY ;AP0003
1821 003056 FALSE SET R0 ;AP0003
1822 003062 DO ;AP0003
1823 003062 000241 CLC ;JUST RECOGNIZE THIS ;AP0003
1824 003064 CASE ; OBJECT TYPE AND DESCRIPTOR ;AP0003
1825 003066 FALSE NE #1,R0 ;AP0003
1826 003074 DO ;AP0003
1827 003074 CALL GTMSBY ;GET LENGTH OF DESCRIPTOR ;AP0003
1828 003100 IF ; LENGTH OBTAINED ;AP0003
1829 003100 FALSE CS ;AP0003
1830 003102 THEN ;AP0003
1831 003102 060002 ADD R0,R2 ;BYPASS DESCRIPTOR ;AP0003
1832 003104 000241 CLC ;AP0003
1833 003106 ENDIF ;AP0003
1834 003106 CASE ; OBJECT TYPE, GROUP, USER, DESCRIPTOR ;AP0003
1835 003110 FALSE NE #2,R0 ;AP0003
1836 003116 DO ;AP0003
1837 003116 062702 000004 ADD #4,R2 ;BYPASS GROUP AND USER WORDS ;AP0003
1838 003122 CALL GTMSBY ;GET LENGTH OF DESCRIPTOR ;AP0003
1839 003126 IF ; LENGTH OBTAINED ;AP0003
1840 003126 FALSE CS ;AP0003
1841 003130 THEN ;AP0003
1842 003130 060002 ADD R0,R2 ;BYPASS DESCRIPTOR ;AP0003
1843 003132 000241 CLC ;AP0003
1844 003134 ENDIF ;AP0003
1845 003134 ELSE ; BAD DESCRIPTOR TYPE ;AP0003
1846 003136 012700 177776 MOV #NE$FOR,R0 ;MESSAGE FORMAT ERROR ;AP0003
1847 003142 000261 SEC ;INDICATE ERROR ;AP0003
1848 003144 ENDCASE ;AP0003
1849 003144 IF ; SUCCESSFUL SO FAR ;AP0003
1850 003144 FALSE CS ;AP0003
1851 003146 FALSE NE LINE+2(R4),R2 ;CHECK LENGTH IS CORRECT ;AP0003
1852 003154 THEN ;AP0003
1853 003154 000241 CLC ;LENGTHS MATCH ;AP0003
1854 003156 ELSE ;AP0003
1855 003160 012700 177776 MOV #NE$FOR,R0 ;MESSAGE FORMAT ERROR ;AP0003
1856 003164 000261 SEC ;BAD DESCRIPTOR ;AP0003
1857 003166 ENDIF ;AP0003
1858 003166 ENDIF ;AP0003
1859 003166 ENDIF ;AP0003
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 34-1
SPTASK
1860 003166 ENDPROC ;AP0003
1862 000001 .END
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 34-2
SYMBOL TABLE
A$$CHK= 000000 C$OPOT= 000042 DM$MIM= 000002 F$LOOP= 000001 K$$TPS= 000074
A$$CPS= 000000 C$ORD = 000145 DM$PXA= 000003 F$NTCM= 000000 LCLPIX= 000022
A$$TRP= 000000 C$PROC= 000200 DM$SAD= 000001 F$OPCL= 000001 LD$LP = 000000
BLKFLG= 000003 C$RCBK= 000047 D$$BUG= 177514 F$OPCO= 000000 LG.CNS= 001000
CE$ACP= 177753 C$RCEV= 000050 D$$ISK= 000000 F$OPIN= 000000 LG.MND= 000400
CE$ADR= 177776 C$RCIN= 000062 D$$L11= 000001 F$OPIR= 000000 LG.MNT= 000001
CE$CON= 177770 C$RCMA= 000146 FILLUN= 000014 F$OPLK= 000005 LG.ON = 100000
CE$DIS= 177771 C$RCMS= 000054 FINISH= 000003 F$OPLN= 000002 LG.OPR= 000000
CE$EOF= 177767 C$RDBK= 000043 FLAGS 000036 F$OPLO= 000000 LG.TSK= 002000
CE$FAI= 177774 C$RDCM= 000035 FLGGRP= 000000 F$OPOR= 000000 LINCOU 000002
CE$FIL= 177756 C$RDIN= 000040 FLGMSK= 000003 F$OPOT= 000000 LINE 000020
CE$FUN= 177777 C$RDIS= 000040 FL$BOO= 000001 F$ORLU= 000000 LINHOS= 000001
CE$GEN= 177774 C$RDRC= 000060 FL$DUM= 000001 F$OTLU= 000001 LINLUN= 000017
CE$IND= 177757 C$RLBF= 000001 FL$LOA= 000001 F$RCBK= 000002 LINMAI= 000012
CE$IO = 177760 C$RLCB= 000002 FL$LOO= 000001 F$RCEV= 000001 LINOPR= 000011
CE$LEN= 177775 C$RLCI= 000000 FR$LCC= 000001 F$RCIN= 000000 LINSTA= 000010
CE$LID= 177766 C$STBK= 000055 FR$LCS= 000001 F$RCMA= 000000 LI$KNO= 000000
CE$LST= 177752 C$STPR= 000037 FR$LNC= 000001 F$RCMS= 000002 LI$STA= 000001
CE$NOD= 177765 C$STPS= 000037 FR$LNL= 000001 F$RDBK= 000000 LI$STR= 000002
CE$NSD= 177755 C$TRBK= 000046 FR$LNS= 000001 F$RDCM= 000000 LNHOIX= 000004
CE$NST= 177754 C$TRIN= 000063 FR$RMC= 000001 F$RDIN= 000001 LNKLUN= 000004
CE$NWE= 177773 C$TRMA= 000145 FR$RML= 000001 F$RDIS= 000012 LNSTIX= 000030
CE$OBJ= 177750 C$TRMS= 000053 FR$RMS= 000001 F$RDRC= 000000 LOCLOO= 000004
CE$OPN= 177761 C$WRBK= 000044 FS$HOS= 000001 F$RECO= 000001 LOGDB = ****** GX
CE$OVR= 177764 C$WRCL= 000065 FS$INT= 000000 F$RLBF= 000001 LOGDBE= ****** GX
CE$PAR= 177763 C$WRCM= 000036 FS$LLP= 000001 F$RLCB= 000001 LOGTGT= 000015
CE$PRO= 177751 C$WRRC= 000061 FS$LOF= 000001 F$STBK= 000000 LS$DUM= 000002
CE$REJ= 177772 C$ZRCN= 000064 FS$LOG= 000001 F$STPR= 000001 LS$LOA= 000000
CE$TMO= 177762 C$$CKP= 000000 FS$LST= 000001 F$STPS= 000006 LS$LOO= 000001
CMILUN= 000002 C$$ORE= 000400 FS$NET= 000001 F$TEST= 000001 LS$TRI= 000004
CMLKNM 000000 C$$RSH= 177564 FS$NST= 000000 F$TRAC= 000000 LS$TRQ= 000003
CMOLUN= 000001 C.ADDR= 000014 FS$PAS= 000001 F$TRBK= 000001 L$$ASG= 000000
CONTAB 000000R 002 C.BKNM= 000014 FT$CNS= 000000 F$TRIG= 000001 L$$DRV= 000000
CS$ACK= 000002 C.CTXT= 000004 FT$NOD= 000001 F$TRIN= 000000 L$$P11= 000001
CS$LKE= 000001 C.FUNC= 000006 FT$TSK= 000001 F$TRMA= 000000 L$$11R= 000000
CS$LNA= 000002 C.LEN = 000012 F$ALBF= 000001 F$TRMS= 000002 L.GCNS 000004
CS$LOG= 000003 C.LINE= 000014 F$ALCB= 000001 F$WRBK= 000000 L.GLEN 000052
CS$NCH= 000003 C.LKNM= 000020 F$CB = 000017 F$WRCL= 000001 L.GMND 000042
CS$SUC= 000001 C.LUN = 000020 F$CLCL= 000001 F$WRCM= 000000 L.GSEQ 000002
CTXTLN= 000037 C.MODE= 000021 F$CLCO= 000000 F$WRRC= 000000 L.GSW 000000
C$ALBF= 000032 C.PRID= 000017 F$CLFL= 000000 F$ZERO= 000001 L.GSWX 000002
C$ALCB= 000033 C.PROC= 000007 F$CLLK= 000006 F$ZRCN= 000001 L.GTND 000033
C$CLCL= 000067 C.PROM= 000016 F$CLLN= 000002 F$$LVL= 000001 L.GTSK 000010
C$CLCO= 000003 C.PTR = 000000 F$DPOS= 000001 F$150 = 000002 L.GTYP 000000
C$CLFL= 000004 C.RET = 000010 F$DUMP= 000000 F$300 = 000012 MOVE = ****** GX
C$CLLK= 000052 C.SAVE= 000022 F$EVNT= 000001 F$50 = 000002 MVMSBY= ****** GX
C$CLLN= 000005 C.SERV= 000002 F$EXAM= 000001 F$550 = 000002 MVMSIM= ****** GX
C$LEN = 000026 C.TASK= 000016 F$EXHO= 000000 GTMSBY= ****** GX M$$CRB= 000124
C$NOPN= 000031 C.TYPE= 000016 F$GTCM= 000001 G$$TPP= 000000 M$$CRX= 000000
C$NORD= 000032 C.WAIT= 000020 F$INCM= 000000 G$$TSS= 000000 M$$FCS= 000000
C$OPCL= 000066 DEFHOS= 000000 F$INLU= 000001 G$$TTK= 000000 M$$OVR= 000000
C$OPCO= 000034 DEFREC= 000013 F$IRLU= 000000 I$$RAR= 000000 NCOLUN= 000016
C$OPIN= 000041 DEFTRA= 000014 F$LKLU= 000010 I$$RDN= 000000 ND$BAD= 177777
C$OPIR= 000056 DFHOIX= 000000 F$LNLU= 000002 KNLNST= 000001 ND$LCC= 000000
C$OPLK= 000051 DFRCIX= 000012 F$LNSR= 000001 K$$CNT= 177546 ND$LCS= 000001
C$OPLN= 000045 DFTRIX= 000016 F$LOAD= 000000 K$$CSR= 177546 ND$LNC= 000004
C$OPOR= 000057 DM$END= 000000 F$LOGD= 000001 K$$LDC= 000000 ND$LNS= 000005
SPSTPR MACRO M1110 13-OCT-79 12:16 PAGE 34-3
SYMBOL TABLE
ND$RMC= 000002 NN$RES= 000006 N$TEST= 000006 RI$LNS= 000010 SP$LST= 000001
ND$RMS= 000003 NN$UMR= 000002 N$TRIG= 000004 RI$RMC= 000004 SP$NDM= 000014
ND$ZLC= 000000 NN$UMS= 000001 N$XADJ= 000002 RI$RML= 000003 SP$NDO= 000013
ND$ZLN= 000002 NN$ZRO= 000000 N$XINT= 000003 RI$RMS= 000005 SP$NST= 000006
ND$ZRM= 000001 NO = 000000 N$XLCL= 000001 RI$ZLC= 000011 SP$RRP= 000004
NETLUN= 000003 NODE 000011 N$XRMT= 000004 RI$ZLN= 000013 SP$RTP= 000005
NEXLIN 000004 NODLEN= 000006 N$ZERO= 000011 RI$ZRM= 000012 SRQNXF= ****** GX
NE$CON= 177762 NODMAI= 000007 N$$USR= 000001 R$$DER= 000000 STATE 000006
NE$FIL= 177763 NODOPR= 000006 N.MLEN= 000454 R$$K11= 000001 ST$DIS= 000006
NE$FIO= 177756 NS$SUC= 000001 OPTION 000010 R$$SND= 000000 ST$ENA= 000005
NE$FOR= 177776 NX$DEP= 000046 PASLEN= 000010 R$$11M= 000000 ST$LOO= 000003
NE$FUN= 177777 NX$EXM= 000050 PASWOR 000024 SERBIT= 000001 ST$MAI= 000004
NE$LCO= 177766 NX$RCV= 000032 PROC = 000002 SERFLG= 000001 ST$OFF= 000001
NE$LID= 177770 NX$RLC= 000016 PT$END= 000000 SETUP = 000001 ST$ON = 000000
NE$LPR= 177757 NX$RLN= 000012 PT$HOS= 000003 SPABRT 000000R ST$SHU= 000002
NE$LST= 177767 NX$RLS= 000014 PT$NAM= 000001 SPCONS 000020R S$$WRG= 000000
NE$NCO= 177755 NX$RNC= 000004 PT$NUM= 000002 SPFINI 000156R S$$YSZ= 001600
NE$NIC= 177753 NX$RNN= 000000 P$DPOS= 000016 SPINIT 000266R TEMFLG= 000030
NE$NOD= 177765 NX$RNS= 000002 P$DUMP= 000003 SPLINE 000404R TIMBIT= 000002
NE$NOR= 177754 NX$SLH= 000026 P$EVNT= 000011 SPLOGT 000500R TIMFLG= 000002
NE$ORD= 177774 NX$SLM= 000042 P$EXAM= 000017 SPNODE 000602R T$$KMG= 000000
NE$PAR= 177760 NX$SLO= 000040 P$GTCM= 000001 SPPARS 000622R T$$MIN= 000000
NE$RES= 177761 NX$SLS= 000022 P$INCM= 000015 SPPASS 001250R V$$CTR= 001000
NE$SER= 177764 NX$SNH= 000024 P$LNSR= 000004 SPPLGT 001270R X$$DBT= 000000
NE$STA= 177775 NX$SNM= 000036 P$LOAD= 000002 SPPROC 001542R YES = 000001
NL$BRC= 000001 NX$SNO= 000034 P$LOGD= 000020 SPRAY = ****** GX $$CSTA= 000000
NL$BTR= 000002 NX$SNS= 000010 P$LOOP= 000005 SPSLLS 002220R $$PRST= 000015
NL$RES= 000005 NX$XMT= 000030 P$NTCM= 000014 SPSTAB 002350R $$STIX= 000777
NL$RLE= 000004 NX$ZLC= 000020 P$RDIN= 000010 SPSTAT 002376R $$STNM= 000000
NL$RTR= 000003 NX$ZNC= 000006 P$STPR= 000007 SPSTPR 002412RG $$S767= 000073
NL$TMO= 000006 NX.NIC= 017050 P$TEST= 000006 SPSTUP 002554R $$S770= 000012
NL$ZRO= 000000 N$DPOS= 000014 P$TRIG= 000012 SPTASK 003026R $$S771= 000000
NN$CAC= 000011 N$DUMP= 000003 P$ZERO= 000013 SP$DHO= 000003 $$S772= 000077
NN$CNI= 000013 N$EXAM= 000015 P$$P45= 000000 SP$DRP= 000007 $$S773= 000011
NN$CNR= 000014 N$LNSR= 000016 REQSTA 000035 SP$DTP= 000010 $$S774= 000077
NN$EXT= 000003 N$LOAD= 000002 RETCOD 000007 SP$LHO= 000002 $$S775= 000010
NN$FMT= 000005 N$LOGD= 000001 RI$LCC= 000001 SP$LLP= 000011 $$S776= 000000
NN$IZS= 000007 N$LOOP= 000005 RI$LCS= 000002 SP$LNM= 000016 $$S777= 000000
NN$IZU= 000010 N$RDIN= 000010 RI$LNC= 000007 SP$LNO= 000015 $$TRNM= 000000
NN$MAC= 000012 N$STPR= 000007 RI$LNL= 000006 SP$LOF= 000012 $$$ARG= 000002
NN$NKS= 000004
. ABS. 000052 000
003170 001
SPDAT 000036 002
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 12237 WORDS ( 48 PAGES)
DYNAMIC MEMORY: 13228 WORDS ( 50 PAGES)
ELAPSED TIME: 00:05:35
SPSTPR,[135,30]SPSTPR/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,SPSTPR
SPSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:20 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
CE$LID = 177766 23-1274
CE$LST = 177752 23-1290
CE$NOD = 177765 23-1278
CE$OVR = 177764 23-1282
CE$PAR = 177763 23-1286
CMLKNM 000000 9-327 *11-429
CONTAB 000000 R #4-79 4-79 4-79 4-79 4-79 4-79 4-79 23-1203
CTXTLN = 000037 11-420 11-427
C$ALBF = 000032 11-421
C$PROC = 000200 11-416 30-1572
C$RDIN = 000040 32-1715 32-1725
C$RLBF = 000001 9-333 9-336 30-1567
C$STPR = 000037 23-1220 23-1263 25-1376
C$TRMS = 000053 9-328 9-331
C.ADDR = 000014 9-323 9-325 *9-338 11-419 11-423 *11-431 18-786 23-1205 32-1710
*32-1711 32-1734 *32-1750
C.CTXT = 000004 9-338 *9-339 *11-424 30-1562 *30-1573
C.FUNC = 000006 *5-138 9-321 *9-328 9-331 *9-333 9-336 *9-340 11-416 *11-421
*18-899 23-1193 *23-1220 23-1263 *23-1307 *25-1376 30-1567 *30-1572 30-1587
*30-1596 32-1699 *32-1715 32-1725 *32-1741
C.LEN = 000012 *9-326 11-418 *11-420 *11-430 18-788 *32-1712 32-1730
C.LKNM = 000020 *9-327 11-429
C.PRID = 000017 *32-1714
C.PROC = 000007 *30-1571
C.RET = 000010 23-1266 23-1272 25-1358 25-1371 32-1728
C.SAVE = 000022 *11-418 *11-419 11-430 11-431 *32-1710 32-1750
C.TYPE = 000016 *23-1204 *32-1713
DEFHOS = 000000 18-797
DEFREC = 000013 18-814 18-818
DEFTRA = 000014 18-815
DFHOIX = 000000 #4-79 18-799
DFRCIX = 000012 #4-79 18-820
DFTRIX = 000016 #4-79 18-822
FINISH = 000003 5-139 30-1592
FLAGS 000036 *13-517 23-1267 32-1702
FL$BOO = 000001 #4-75 4-75 #4-79 4-79
FL$DUM = 000001 #4-75 4-75 #4-79 4-79
FL$LOA = 000001 #4-75 4-75 #4-79 4-79
FL$LOO = 000001 #4-75 4-75 #4-79 4-79
FR$LCC = 000001 #4-75 4-75 #4-79 4-79
FR$LCS = 000001 #4-75 4-75 #4-79 4-79
FR$LNC = 000001 #4-75 4-75 #4-79 4-79
FR$LNL = 000001 #4-75 4-75 #4-79 4-79
FR$LNS = 000001 #4-75 4-75 #4-79 4-79
FR$RMC = 000001 #4-75 4-75 #4-79 4-79
FR$RML = 000001 #4-75 4-75 #4-79 4-79
FR$RMS = 000001 #4-75 4-75 #4-79 4-79
FS$HOS = 000001 #4-75 4-75 #4-79 4-79 4-79 4-79 11-435 15-626 18-795
FS$INT = 000000 #4-75 4-75 4-75 4-75 #4-79 4-79 4-79 4-79
FS$LLP = 000001 #4-75 4-75 #4-79 4-79 4-79 11-435 18-826 26-1380
FS$LOF = 000001 #4-75 4-75 #4-79 4-79
FS$LOG = 000001 #4-75 4-75 #4-79 4-79 5-141 11-435 13-527 15-626 18-854
SPSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:20 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
22-1175 22-1184 23-1196 26-1380
FS$LST = 000001 #4-75 4-75 #4-79 4-79 4-79 11-435 18-842 26-1380
FS$NET = 000001 #4-75 4-75 #4-79 4-79
FS$NST = 000000 #4-75 4-75 #4-79 4-79
FS$PAS = 000001 #4-75 4-75 #4-79 4-79 4-79 4-79 18-812 18-906
FT$CNS = 000000 #4-75 4-75 #4-79 4-79 15-600 21-1048
FT$NOD = 000001 #4-75 4-75 #4-79 4-79 15-594 21-1031
FT$TSK = 000001 #4-75 4-75 #4-79 4-79 15-606 21-1062 32-1753
F$ALBF = 000001 #4-75 #4-79
F$ALCB = 000001 #4-75 #4-79
F$CB = 000017 #4-75 #4-79
F$CLCL = 000001 #4-75 4-75 #4-75 #4-79 4-79 #4-79
F$CLCO = 000000 #4-75 #4-79
F$CLFL = 000000 #4-75 #4-79
F$CLLK = 000006 #4-75 4-75 #4-75 4-75 #4-75 4-75 #4-75 4-75 #4-75
4-75 #4-75 4-75 #4-75 #4-79 4-79 #4-79 4-79 #4-79
4-79 #4-79 4-79 #4-79 4-79 #4-79 4-79 #4-79
F$CLLN = 000002 #4-75 4-75 #4-75 4-75 #4-75 #4-79 4-79 #4-79 4-79
#4-79
F$DPOS = 000001 #4-75 4-75 #4-79 4-79
F$DUMP = 000000 #4-75 4-75 #4-79 4-79
F$EVNT = 000001 #4-75 4-75 #4-79 4-79
F$EXAM = 000001 #4-75 4-75 #4-79 4-79
F$EXHO = 000000 #4-75 #4-79
F$GTCM = 000001 #4-75 4-75 #4-79 4-79
F$INCM = 000000 #4-75 4-75 #4-79 4-79
F$INLU = 000001 #4-75 #4-79
F$IRLU = 000000 #4-75 #4-79
F$LKLU = 000010 #4-75 #4-79
F$LNLU = 000002 #4-75 #4-79
F$LNSR = 000001 #4-75 4-75 #4-79 4-79
F$LOAD = 000000 #4-75 4-75 #4-79 4-79
F$LOGD = 000001 #4-75 4-75 #4-79 4-79
F$LOOP = 000001 #4-75 4-75 #4-79 4-79
F$NTCM = 000000 #4-75 4-75 #4-79 4-79
F$OPCL = 000001 #4-75 4-75 #4-75 #4-79 4-79 #4-79
F$OPCO = 000000 #4-75 #4-79
F$OPIN = 000000 #4-75 #4-79
F$OPIR = 000000 #4-75 #4-79
F$OPLK = 000005 #4-75 4-75 #4-75 4-75 #4-75 4-75 #4-75 4-75 #4-75
4-75 #4-75 #4-79 4-79 #4-79 4-79 #4-79 4-79 #4-79
4-79 #4-79 4-79 #4-79
F$OPLN = 000002 #4-75 4-75 #4-75 4-75 #4-75 #4-79 4-79 #4-79 4-79
#4-79
F$OPLO = 000000 #4-75 #4-79
F$OPOR = 000000 #4-75 #4-79
F$OPOT = 000000 #4-75 #4-79
F$ORLU = 000000 #4-75 #4-79
F$OTLU = 000001 #4-75 #4-79
F$RCBK = 000002 #4-75 4-75 #4-75 4-75 #4-75 #4-79 4-79 #4-79 4-79
#4-79
F$RCEV = 000001 #4-75 4-75 #4-75 #4-79 4-79 #4-79
SPSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:20 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
F$RCIN = 000000 #4-75 #4-79
F$RCMA = 000000 #4-75 #4-79
F$RCMS = 000002 #4-75 4-75 #4-75 #4-79 4-79 #4-79
F$RDBK = 000000 #4-75 #4-79
F$RDCM = 000000 #4-75 #4-79
F$RDIN = 000001 #4-75 4-75 #4-79 4-79
F$RDIS = 000012 #4-75 4-75 #4-75 4-75 #4-75 4-75 #4-75 4-75 #4-75
4-75 #4-75 4-75 #4-75 4-75 #4-75 4-75 #4-75 4-75
#4-75 #4-79 4-79 #4-79 4-79 #4-79 4-79 #4-79 4-79
#4-79 4-79 #4-79 4-79 #4-79 4-79 #4-79 4-79 #4-79
4-79 #4-79
F$RDRC = 000000 #4-75 #4-79
F$RECO = 000001 #4-75 4-75 #4-75 #4-79 4-79 #4-79
F$RLBF = 000001 #4-75 #4-79
F$RLCB = 000001 #4-75 #4-79
F$STBK = 000000 #4-75 #4-79
F$STPR = 000001 #4-75 4-75 #4-79 4-79
F$STPS = 000006 #4-75 4-75 #4-75 4-75 #4-75 4-75 #4-75 4-75 #4-75
4-75 #4-75 4-75 #4-75 #4-79 4-79 #4-79 4-79 #4-79
4-79 #4-79 4-79 #4-79 4-79 #4-79 4-79 #4-79
F$TEST = 000001 #4-75 4-75 #4-79 4-79
F$TRAC = 000000 #4-75 #4-79 5-136 5-136 5-140 5-140 7-196 7-196 7-247
7-247 9-319 9-319 9-342 9-342 11-414 11-414 11-434 11-434
13-500 13-500 13-525 13-525 15-581 15-581 15-624 15-624 16-678
16-678 16-683 16-683 18-784 18-784 18-905 18-905 19-958 19-958
19-963 19-963 21-1012 21-1012 21-1090 21-1090 23-1191 23-1191 23-1312
23-1312 25-1357 25-1357 25-1378 25-1378 26-1424 26-1424 26-1433 26-1433
28-1479 28-1479 28-1486 28-1486 30-1561 30-1561 30-1599 30-1599 32-1697
32-1697 32-1752 32-1752 34-1806 34-1806 34-1860 34-1860
F$TRBK = 000001 #4-75 4-75 #4-75 #4-79 4-79 #4-79
F$TRIG = 000001 #4-75 4-75 #4-79 4-79
F$TRIN = 000000 #4-75 #4-79
F$TRMA = 000000 #4-75 #4-79
F$TRMS = 000002 #4-75 4-75 #4-75 #4-79 4-79 #4-79
F$WRBK = 000000 #4-75 #4-79
F$WRCL = 000001 #4-75 4-75 #4-75 #4-79 4-79 #4-79
F$WRCM = 000000 #4-75 #4-79
F$WRRC = 000000 #4-75 #4-79
F$ZERO = 000001 #4-75 4-75 #4-79 4-79
F$ZRCN = 000001 #4-75 4-75 #4-75 #4-79 4-79 #4-79
F$150 = 000002 #4-75 #4-79
F$300 = 000012 #4-75 #4-79
F$50 = 000002 #4-75 #4-79
F$550 = 000002 #4-75 #4-79
GTMSBY = ****** GX 7-199 7-222 13-501 18-790 28-1480 34-1808 34-1814 34-1827 34-1838
I$$AS = ****** 5-136 7-196 9-319 11-414 13-500 15-581 16-678 18-784 19-958
21-1012 23-1191 25-1357 26-1424 28-1479 30-1561 32-1697 34-1806
KNLNST = 000001 13-517 23-1267 32-1702
LCLPIX = 000022 #4-79 18-830
LG.MND = 000400 21-1035 21-1036 21-1040
LG.MNT = 000001 23-1231
LG.ON = 100000 23-1244 23-1248
SPSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:20 PAGE 4
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
LG.OPR = 000000 23-1229
LG.TSK = 002000 21-1066 21-1067 21-1071
LINCOU 000002 *23-1297 *32-1730
LINE 000020 4-79 4-79 4-79 7-195 7-197 13-509 *18-876 21-1080 23-1303
25-1361 32-1736 *34-1807 *34-1813 34-1851
LINHOS = 000001 18-802
LINMAI = 000012 18-864 23-1255
LINOPR = 000011 18-863 23-1254 25-1364
LINSTA = 000010 18-844
LI$KNO = 000000 13-514
LI$STA = 000001 13-506
LNHOIX = 000004 #4-79 18-804
LNSTIX = 000030 #4-79 13-515 18-846 18-868
LOCLOO = 000004 18-828
LOGDB = ****** GX 21-1018 23-1234
LOGDBE = ****** GX 21-1020 21-1026 23-1236 23-1242
LOGTGT = 000015 18-880 23-1223
L.GLEN 000052 21-1023 23-1239
L.GMND 000042 21-1041
L.GSWX 000002 *21-1036 *21-1067
L.GTND 000033 21-1073
L.GTSK 000010 21-1079
MOVE = ****** GX 21-1045 21-1077 21-1082 23-1218 23-1305 32-1738
MVMSBY = ****** GX 7-206 13-511 19-962
MVMSIM = ****** GX 16-682
NCOLUN = 000016 25-1368
NEXLIN 000004 23-1301 *23-1306 *32-1739
NE$FOR = 177776 18-893 34-1846 34-1855
NE$FUN = 177777 18-885 21-1087 23-1294 26-1430 32-1747
NE$LID = 177770 23-1276
NE$LST = 177767 23-1292
NE$NOD = 177765 23-1280
NE$NOR = 177754 23-1284
NE$PAR = 177760 13-520 23-1288 32-1717
NO = 000000 #4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75
4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75
4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75
4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75
4-75 4-75 4-75 #4-79 4-79 4-79 4-79 4-79 4-79
4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79
4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79
4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79
4-79 4-79 4-79 4-79 4-79 4-79
NODE 000011 4-79 4-79 16-680 21-1043 21-1075
NODLEN = 000006 16-679
NODMAI = 000007 18-857 23-1232
NODOPR = 000006 18-856 23-1230
NS$SUC = 000001 23-1226 23-1251 23-1269 32-1743
NX$SLM = 000042 25-1366
NX$SLO = 000040 25-1360
NX.NIC = 017050 25-1368
N.MLEN = 000454 32-1712
SPSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:20 PAGE 5
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
OPTION 000010 13-515 *15-583 *18-799 *18-804 *18-820 *18-822 *18-830 *18-846 *18-860
*18-868 *18-871 23-1198
PASLEN = 000010 19-959
PASWOR 000024 4-79 4-79 19-960
PROC = 000002 30-1586 32-1721 32-1740
P$GTCM = 000001 30-1571
REQSTA 000035 4-79 4-79 18-836 18-876 21-1013 21-1028 21-1038 21-1069 23-1246
26-1428 *28-1484 32-1705
RETCOD 000007 *5-137 9-324
RI$LNL = 000006 32-1713
R$$11D = ****** 5-136 7-196 9-319 11-414 13-500 15-581 16-678 18-784 19-958
21-1012 23-1191 25-1357 26-1424 28-1479 30-1561 32-1697 34-1806
R$$11M = 000000 5-136 7-196 9-319 11-414 13-500 15-581 16-678 18-784 19-958
21-1012 23-1191 25-1357 26-1424 28-1479 30-1561 32-1697 34-1806
SETUP = 000001 18-900 30-1581
SPABRT 000000 R #5-136 18-902 23-1227 23-1252 23-1309 25-1374 32-1718 32-1744 32-1748
SPCONS 000020 R #7-196
SPFINI 000156 R #9-319 30-1594
SPINIT 000266 R #11-414 30-1569
SPLINE 000404 R #13-500 18-805 18-838 18-847 18-869
SPLOGT 000500 R #15-581 18-882
SPNODE 000602 R 15-598 15-610 #16-678 18-800 18-809
SPPARS 000622 R 11-432 #18-784
SPPASS 001250 R 18-824 #19-958
SPPLGT 001270 R #21-1012 23-1225
SPPROC 001542 R #23-1191 30-1589
SPRAY = ****** GX 11-428
SPSLLS 002220 R 23-1257 #25-1357
SPSTAB 002350 R 18-861 18-875 #26-1424
SPSTAT 002376 R 15-584 18-831 18-851 26-1425 #28-1479
SPSTPR 002412 RG #30-1561
SPSTUP 002554 R 30-1583 #32-1697
SPTASK 003026 R 15-614 #34-1806
SP$DHO = 000003 4-79
SP$DRP = 000007 4-79
SP$DTP = 000010 4-79
SP$LHO = 000002 4-79
SP$LLP = 000011 4-79
SP$LST = 000001 4-79
SRQNXF = ****** GX 25-1369
STATE 000006 *5-139 *18-900 30-1581 30-1586 30-1592 *32-1721 *32-1740
ST$ENA = 000005 18-836
ST$MAI = 000004 32-1708
ST$OFF = 000001 32-1707
ST$ON = 000000 32-1706
TEMFLG = 000030 25-1368
YES = 000001 #4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75
4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75
4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75
4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75
4-75 4-75 4-75 4-75 4-75 #4-79 4-79 4-79 4-79
4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79
SPSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:20 PAGE 6
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79
4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79
4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79
4-79
$$CSTA = 000000 #5-136 #7-196 #9-319 #11-414 #13-500 #15-581 15-592 #15-592 15-595
#15-595 15-607 #15-619 #16-678 #18-784 18-794 #18-794 18-796 #18-796
18-801 18-813 18-827 18-843 18-855 18-862 18-879 #18-887 #19-958
#21-1012 *21-1030 #21-1030 21-1032 #21-1032 21-1063 #21-1085 #23-1191 23-1197
#23-1197 23-1199 #23-1199 23-1222 23-1228 23-1253 #23-1258 23-1271 #23-1271
23-1273 #23-1273 23-1277 23-1281 23-1285 23-1289 #23-1295 #25-1357 #26-1424
#28-1479 #30-1561 #32-1697 #34-1806 34-1819 #34-1819 34-1820 #34-1820 34-1824
34-1834 #34-1848
$$PRST = 000015 #5-136 #7-196 7-200 #7-200 7-212 #7-212 7-217 #7-217 7-223
#7-223 7-227 #7-227 *7-240 #7-240 #9-319 9-320 #9-320 9-330
#9-330 9-335 #9-335 #11-414 11-415 #11-415 #13-500 13-502 #13-502
13-505 #13-505 13-513 #13-513 #15-581 15-585 #15-585 15-589 #15-589
15-592 #15-592 15-611 #15-611 #16-678 #18-784 18-791 #18-791 18-794
#18-794 18-806 #18-806 18-817 #18-817 18-832 #18-832 18-835 #18-835
18-848 #18-848 *18-872 #18-872 18-889 #18-889 18-896 #18-896 #19-958
#21-1012 *21-1019 #21-1019 21-1025 #21-1025 *21-1030 #21-1030 *21-1037 #21-1037
*21-1068 #21-1068 #23-1191 23-1192 #23-1192 23-1197 #23-1197 *23-1206 #23-1206
*23-1212 #23-1212 *23-1235 #23-1235 23-1241 #23-1241 *23-1245 #23-1245 23-1262
#23-1262 23-1265 #23-1265 23-1271 #23-1271 23-1298 #23-1298 #25-1357 25-1363
#25-1363 25-1370 #25-1370 #26-1424 26-1426 #26-1426 #28-1479 28-1481 #28-1481
#30-1561 *30-1563 #30-1563 30-1566 #30-1566 30-1577 #30-1577 30-1580 #30-1580
30-1585 #30-1585 30-1591 #30-1591 #32-1697 32-1698 #32-1698 32-1701 #32-1701
32-1704 #32-1704 32-1724 #32-1724 32-1727 #32-1727 *32-1731 #32-1731 #34-1806
34-1809 #34-1809 34-1815 #34-1815 34-1819 #34-1819 34-1828 #34-1828 34-1839
#34-1839 34-1849 #34-1849
$$SLST = ****** 5-136 5-140 7-196 7-201 7-202 7-202 7-203 7-209 7-209
7-211 7-213 7-214 7-217 7-218 7-219 7-219 7-220 7-224
7-225 7-228 7-228 7-229 7-229 7-230 7-235 7-235 7-237
7-238 7-241 7-242 7-244 7-245 7-245 7-246 7-247 9-319
9-321 9-321 9-322 9-329 9-331 9-331 9-332 9-334 9-336
9-336 9-337 9-341 9-342 11-414 11-416 11-416 11-417 11-422
11-422 11-433 11-434 13-500 13-503 13-504 13-506 13-506 13-507
13-512 13-512 13-514 13-514 13-515 13-515 13-516 13-519 13-519
13-522 13-523 13-524 13-525 15-581 15-586 15-587 15-587 15-588
15-590 15-590 15-591 15-596 15-596 15-597 15-607 15-607 15-608
15-608 15-609 15-612 15-613 15-615 15-617 15-617 15-619 15-620
15-621 15-621 15-623 15-624 16-678 16-683 18-784 18-792 18-793
18-797 18-797 18-798 18-801 18-801 18-802 18-802 18-803 18-807
18-808 18-810 18-813 18-813 18-814 18-814 18-815 18-815 18-816
18-818 18-818 18-819 18-821 18-821 18-823 18-827 18-827 18-828
18-828 18-829 18-833 18-834 18-836 18-836 18-837 18-839 18-840
18-843 18-843 18-844 18-844 18-845 18-849 18-850 18-852 18-855
18-855 18-856 18-856 18-857 18-857 18-858 18-862 18-862 18-863
18-863 18-864 18-864 18-865 18-873 18-874 18-878 18-879 18-879
18-880 18-880 18-881 18-884 18-884 18-887 18-888 18-890 18-891
18-891 18-892 18-895 18-897 18-898 18-901 18-901 18-903 18-905
19-958 19-963 21-1012 21-1019 21-1020 21-1020 21-1021 21-1021 21-1022
21-1024 21-1024 21-1026 21-1026 21-1027 21-1033 21-1033 21-1034 21-1038
SPSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:20 PAGE 7
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
21-1038 21-1039 21-1046 21-1063 21-1063 21-1064 21-1064 21-1065 21-1069
21-1069 21-1070 21-1083 21-1085 21-1085 21-1086 21-1086 21-1089 21-1090
23-1191 23-1193 23-1193 23-1194 23-1200 23-1201 23-1206 23-1207 23-1207
23-1208 23-1213 23-1213 23-1214 23-1217 23-1219 23-1219 23-1222 23-1222
23-1223 23-1223 23-1224 23-1228 23-1228 23-1230 23-1230 23-1232 23-1232
23-1233 23-1235 23-1236 23-1236 23-1237 23-1237 23-1238 23-1240 23-1240
23-1242 23-1242 23-1243 23-1246 23-1246 23-1247 23-1249 23-1250 23-1253
23-1253 23-1254 23-1254 23-1255 23-1255 23-1256 23-1258 23-1258 23-1261
23-1263 23-1263 23-1264 23-1266 23-1266 23-1267 23-1267 23-1268 23-1270
23-1270 23-1274 23-1274 23-1275 23-1277 23-1277 23-1278 23-1278 23-1279
23-1281 23-1281 23-1282 23-1282 23-1283 23-1285 23-1285 23-1286 23-1286
23-1287 23-1289 23-1289 23-1290 23-1290 23-1291 23-1293 23-1293 23-1295
23-1296 23-1299 23-1300 23-1308 23-1308 23-1310 23-1311 23-1312 25-1357
25-1364 25-1364 25-1365 25-1367 25-1372 25-1373 25-1375 25-1375 25-1377
25-1378 26-1424 26-1427 26-1428 26-1428 26-1429 26-1432 26-1433 28-1479
28-1482 28-1483 28-1485 28-1486 30-1561 30-1564 30-1564 30-1565 30-1567
30-1567 30-1568 30-1570 30-1570 30-1575 30-1576 30-1578 30-1578 30-1579
30-1581 30-1581 30-1582 30-1584 30-1585 30-1586 30-1586 30-1587 30-1587
30-1588 30-1590 30-1590 30-1592 30-1592 30-1593 30-1595 30-1597 30-1599
32-1697 32-1699 32-1699 32-1700 32-1702 32-1702 32-1703 32-1706 32-1706
32-1707 32-1707 32-1708 32-1708 32-1709 32-1716 32-1716 32-1719 32-1720
32-1720 32-1722 32-1723 32-1725 32-1725 32-1726 32-1728 32-1728 32-1729
32-1732 32-1733 32-1742 32-1742 32-1745 32-1746 32-1746 32-1749 32-1751
32-1752 34-1806 34-1810 34-1811 34-1816 34-1817 34-1821 34-1821 34-1822
34-1824 34-1824 34-1825 34-1825 34-1826 34-1829 34-1830 34-1833 34-1834
34-1834 34-1835 34-1835 34-1836 34-1840 34-1841 34-1844 34-1845 34-1845
34-1848 34-1850 34-1851 34-1851 34-1852 34-1854 34-1854 34-1857 34-1858
34-1859 34-1860
$$STIX = 000777 #5-136 #7-196 7-200 7-200 #7-200 7-200 7-200 #7-200 7-211
#7-211 7-211 7-211 #7-211 7-211 7-212 7-212 #7-212 7-212
7-212 #7-212 7-217 7-217 #7-217 7-217 7-217 #7-217 7-223
7-223 #7-223 7-223 7-223 #7-223 7-227 7-227 #7-227 7-227
7-227 #7-227 7-237 #7-237 7-237 7-237 #7-237 7-237 7-238
#7-238 7-238 7-238 #7-238 7-238 *7-240 *7-240 #7-240 *7-240
*7-240 #7-240 7-244 #7-244 7-244 7-244 #7-244 7-244 7-245
#7-245 7-245 7-245 #7-245 7-245 7-246 #7-246 7-246 7-246
#7-246 7-246 #9-319 9-320 9-320 #9-320 9-320 9-320 #9-320
9-329 #9-329 9-329 9-329 #9-329 9-329 9-330 9-330 #9-330
9-330 9-330 #9-330 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-341 #9-341 9-341
9-341 #9-341 9-341 #11-414 11-415 11-415 #11-415 11-415 11-415
#11-415 11-433 #11-433 11-433 11-433 #11-433 11-433 #13-500 13-502
13-502 #13-502 13-502 13-502 #13-502 13-505 13-505 #13-505 13-505
13-505 #13-505 13-513 13-513 #13-513 13-513 13-513 #13-513 13-522
#13-522 13-522 13-522 #13-522 13-522 13-523 #13-523 13-523 13-523
#13-523 13-523 13-524 #13-524 13-524 13-524 #13-524 13-524 #15-581
15-585 15-585 #15-585 15-585 15-585 #15-585 15-589 15-589 #15-589
15-589 15-589 #15-589 15-592 15-592 #15-592 15-592 15-592 #15-592
15-592 15-592 #15-592 15-611 15-611 #15-611 15-611 15-611 #15-611
15-615 #15-615 15-615 15-615 #15-615 15-615 15-619 #15-619 15-619
15-619 #15-619 15-619 15-619 #15-619 15-619 15-620 #15-620 15-620
15-620 #15-620 15-620 15-623 #15-623 15-623 15-623 #15-623 15-623
SPSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:20 PAGE 8
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#16-678 #18-784 18-791 18-791 #18-791 18-791 18-791 #18-791 18-794
18-794 #18-794 18-794 18-794 #18-794 18-794 18-794 #18-794 18-806
18-806 #18-806 18-806 18-806 #18-806 18-810 #18-810 18-810 18-810
#18-810 18-810 18-817 18-817 #18-817 18-817 18-817 #18-817 18-823
#18-823 18-823 18-823 #18-823 18-823 18-832 18-832 #18-832 18-832
18-832 #18-832 18-835 18-835 #18-835 18-835 18-835 #18-835 18-839
#18-839 18-839 18-839 #18-839 18-839 18-840 #18-840 18-840 18-840
#18-840 18-840 18-848 18-848 #18-848 18-848 18-848 #18-848 18-852
#18-852 18-852 18-852 #18-852 18-852 *18-872 *18-872 #18-872 *18-872
*18-872 #18-872 18-878 #18-878 18-878 18-878 #18-878 18-878 18-887
#18-887 18-887 18-887 #18-887 18-887 18-887 #18-887 18-887 18-888
#18-888 18-888 18-888 #18-888 18-888 18-889 18-889 #18-889 18-889
18-889 #18-889 18-895 #18-895 18-895 18-895 #18-895 18-895 18-896
18-896 #18-896 18-896 18-896 #18-896 18-903 #18-903 18-903 18-903
#18-903 18-903 #19-958 #21-1012 *21-1019 *21-1019 #21-1019 *21-1019 *21-1019
#21-1019 21-1024 #21-1024 21-1024 21-1024 #21-1024 21-1024 21-1025 21-1025
#21-1025 21-1025 21-1025 #21-1025 *21-1030 *21-1030 #21-1030 *21-1030 *21-1030
#21-1030 *21-1030 *21-1030 #21-1030 *21-1037 *21-1037 #21-1037 *21-1037 *21-1037
#21-1037 21-1046 #21-1046 21-1046 21-1046 #21-1046 21-1046 *21-1068 *21-1068
#21-1068 *21-1068 *21-1068 #21-1068 21-1083 #21-1083 21-1083 21-1083 #21-1083
21-1083 21-1085 #21-1085 21-1085 21-1085 #21-1085 21-1085 21-1085 #21-1085
21-1085 21-1089 #21-1089 21-1089 21-1089 #21-1089 21-1089 #23-1191 23-1192
23-1192 #23-1192 23-1192 23-1192 #23-1192 23-1197 23-1197 #23-1197 23-1197
23-1197 #23-1197 23-1197 23-1197 #23-1197 *23-1206 *23-1206 #23-1206 *23-1206
*23-1206 #23-1206 *23-1212 *23-1212 #23-1212 *23-1212 *23-1212 #23-1212 23-1217
#23-1217 23-1217 23-1217 #23-1217 23-1217 23-1219 #23-1219 23-1219 23-1219
#23-1219 23-1219 *23-1235 *23-1235 #23-1235 *23-1235 *23-1235 #23-1235 23-1240
#23-1240 23-1240 23-1240 #23-1240 23-1240 23-1241 23-1241 #23-1241 23-1241
23-1241 #23-1241 *23-1245 *23-1245 #23-1245 *23-1245 *23-1245 #23-1245 23-1249
#23-1249 23-1249 23-1249 #23-1249 23-1249 23-1250 #23-1250 23-1250 23-1250
#23-1250 23-1250 23-1258 #23-1258 23-1258 23-1258 #23-1258 23-1258 23-1258
#23-1258 23-1258 23-1261 #23-1261 23-1261 23-1261 #23-1261 23-1261 23-1262
23-1262 #23-1262 23-1262 23-1262 #23-1262 23-1265 23-1265 #23-1265 23-1265
23-1265 #23-1265 23-1271 23-1271 #23-1271 23-1271 23-1271 #23-1271 23-1271
23-1271 #23-1271 *23-1295 #23-1295 *23-1295 23-1295 #23-1295 23-1295 23-1295
#23-1295 23-1295 23-1296 #23-1296 23-1296 23-1296 #23-1296 23-1296 23-1298
23-1298 #23-1298 23-1298 23-1298 #23-1298 23-1310 #23-1310 23-1310 23-1310
#23-1310 23-1310 23-1311 #23-1311 23-1311 23-1311 #23-1311 23-1311 #25-1357
25-1363 25-1363 #25-1363 25-1363 25-1363 #25-1363 25-1367 #25-1367 25-1367
25-1367 #25-1367 25-1367 25-1370 25-1370 #25-1370 25-1370 25-1370 #25-1370
25-1377 #25-1377 25-1377 25-1377 #25-1377 25-1377 #26-1424 26-1426 26-1426
#26-1426 26-1426 26-1426 #26-1426 26-1432 #26-1432 26-1432 26-1432 #26-1432
26-1432 #28-1479 28-1481 28-1481 #28-1481 28-1481 28-1481 #28-1481 28-1485
#28-1485 28-1485 28-1485 #28-1485 28-1485 #30-1561 *30-1563 *30-1563 #30-1563
*30-1563 *30-1563 #30-1563 30-1566 30-1566 #30-1566 30-1566 30-1566 #30-1566
30-1575 #30-1575 30-1575 30-1575 #30-1575 30-1575 30-1576 #30-1576 30-1576
30-1576 #30-1576 30-1576 30-1577 30-1577 #30-1577 30-1577 30-1577 #30-1577
30-1580 30-1580 #30-1580 30-1580 30-1580 #30-1580 30-1584 #30-1584 30-1584
30-1584 #30-1584 30-1584 30-1585 30-1585 #30-1585 30-1585 30-1585 #30-1585
30-1590 #30-1590 30-1590 30-1590 #30-1590 30-1590 30-1591 30-1591 #30-1591
30-1591 30-1591 #30-1591 30-1595 #30-1595 30-1595 30-1595 #30-1595 30-1595
30-1597 #30-1597 30-1597 30-1597 #30-1597 30-1597 #32-1697 32-1698 32-1698
SPSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:20 PAGE 9
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#32-1698 32-1698 32-1698 #32-1698 32-1701 32-1701 #32-1701 32-1701 32-1701
#32-1701 32-1704 32-1704 #32-1704 32-1704 32-1704 #32-1704 32-1719 #32-1719
32-1719 32-1719 #32-1719 32-1719 32-1722 #32-1722 32-1722 32-1722 #32-1722
32-1722 32-1723 #32-1723 32-1723 32-1723 #32-1723 32-1723 32-1724 32-1724
#32-1724 32-1724 32-1724 #32-1724 32-1727 32-1727 #32-1727 32-1727 32-1727
#32-1727 *32-1731 *32-1731 #32-1731 *32-1731 *32-1731 #32-1731 32-1745 #32-1745
32-1745 32-1745 #32-1745 32-1745 32-1749 #32-1749 32-1749 32-1749 #32-1749
32-1749 32-1751 #32-1751 32-1751 32-1751 #32-1751 32-1751 #34-1806 34-1809
34-1809 #34-1809 34-1809 34-1809 #34-1809 34-1815 34-1815 #34-1815 34-1815
34-1815 #34-1815 34-1819 34-1819 #34-1819 34-1819 34-1819 #34-1819 34-1819
34-1819 #34-1819 34-1828 34-1828 #34-1828 34-1828 34-1828 #34-1828 34-1833
#34-1833 34-1833 34-1833 #34-1833 34-1833 34-1839 34-1839 #34-1839 34-1839
34-1839 #34-1839 34-1844 #34-1844 34-1844 34-1844 #34-1844 34-1844 34-1848
#34-1848 34-1848 34-1848 #34-1848 34-1848 34-1848 #34-1848 34-1848 34-1849
34-1849 #34-1849 34-1849 34-1849 #34-1849 34-1857 #34-1857 34-1857 34-1857
#34-1857 34-1857 34-1858 #34-1858 34-1858 34-1858 #34-1858 34-1858 34-1859
#34-1859 34-1859 34-1859 #34-1859 34-1859
$$STNM = 000000 #5-136 #7-196 7-200 #7-200 7-200 7-201 7-202 7-203 7-209
7-209 7-211 #7-211 7-212 #7-212 7-212 7-213 7-214 7-217
#7-217 7-217 7-217 7-218 7-219 7-220 7-223 #7-223 7-223
7-224 7-225 7-227 #7-227 7-227 7-228 7-229 7-230 7-235
7-235 7-237 #7-237 7-238 #7-238 *7-240 #7-240 *7-240 7-241
7-242 7-244 #7-244 7-245 7-245 #7-245 7-246 #7-246 #9-319
9-320 #9-320 9-320 9-321 9-322 *9-329 #9-329 9-330 #9-330
9-330 9-331 9-332 *9-334 #9-334 9-335 #9-335 9-335 9-336
9-337 9-341 #9-341 #11-414 11-415 #11-415 11-415 11-416 11-417
*11-422 11-422 11-433 #11-433 #13-500 13-502 #13-502 13-502 13-503
13-504 13-505 #13-505 13-505 13-506 13-507 13-512 13-512 13-513
#13-513 13-513 13-514 13-515 13-516 13-519 13-519 13-522 #13-522
13-523 #13-523 13-524 #13-524 #15-581 15-585 #15-585 15-585 15-586
15-587 15-588 15-589 #15-589 15-589 15-590 15-591 15-592 #15-592
15-592 15-596 15-597 15-607 15-607 15-608 15-609 15-611 #15-611
15-611 15-612 15-613 15-615 #15-615 15-617 15-617 15-619 #15-619
15-620 #15-620 15-621 15-621 15-623 #15-623 #16-678 #18-784 18-791
#18-791 18-791 18-792 18-793 18-794 #18-794 18-794 18-797 18-798
18-801 18-801 18-802 18-803 18-806 #18-806 18-806 18-807 18-808
18-810 #18-810 18-813 18-813 18-814 18-815 18-816 18-817 #18-817
18-817 18-818 18-819 *18-821 18-821 *18-823 #18-823 18-827 18-827
18-828 18-829 18-832 #18-832 18-832 18-833 18-834 18-835 #18-835
18-835 18-836 18-837 18-839 #18-839 18-840 #18-840 18-843 18-843
18-844 18-845 18-848 #18-848 18-848 18-849 18-850 18-852 #18-852
18-855 18-855 18-856 18-857 18-858 18-862 18-862 18-863 18-864
18-865 *18-872 #18-872 *18-872 18-873 18-874 *18-878 #18-878 18-879
18-879 18-880 18-881 18-884 18-884 18-887 #18-887 18-888 #18-888
18-889 #18-889 18-889 18-890 18-891 18-892 18-895 #18-895 18-896
#18-896 18-896 18-897 18-898 *18-901 18-901 18-903 #18-903 #19-958
#21-1012 *21-1019 #21-1019 *21-1019 *21-1019 21-1020 21-1021 21-1022 21-1024
21-1024 #21-1024 21-1025 #21-1025 21-1025 21-1026 21-1027 *21-1030 #21-1030
*21-1030 21-1033 21-1034 *21-1037 #21-1037 *21-1037 21-1038 21-1039 21-1046
#21-1046 21-1063 21-1063 21-1064 21-1065 *21-1068 #21-1068 *21-1068 21-1069
21-1070 21-1083 #21-1083 21-1085 21-1085 #21-1085 21-1086 21-1086 21-1089
#21-1089 #23-1191 23-1192 #23-1192 23-1192 23-1193 23-1194 23-1197 #23-1197
SPSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:20 PAGE 10
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
23-1197 23-1200 23-1201 *23-1206 #23-1206 *23-1206 *23-1206 23-1207 23-1208
*23-1212 #23-1212 *23-1212 23-1213 23-1214 23-1217 #23-1217 23-1219 23-1219
#23-1219 23-1222 23-1222 23-1223 23-1224 23-1228 23-1228 23-1230 23-1232
23-1233 *23-1235 #23-1235 *23-1235 *23-1235 23-1236 23-1237 23-1238 23-1240
23-1240 #23-1240 23-1241 #23-1241 23-1241 23-1242 23-1243 *23-1245 #23-1245
*23-1245 23-1246 23-1247 *23-1249 #23-1249 23-1250 #23-1250 23-1253 23-1253
23-1254 23-1255 23-1256 23-1258 23-1258 #23-1258 *23-1261 #23-1261 23-1262
#23-1262 23-1262 23-1263 23-1264 23-1265 #23-1265 23-1265 23-1266 23-1267
23-1268 *23-1270 23-1270 23-1271 #23-1271 23-1271 23-1274 23-1275 23-1277
23-1277 23-1278 23-1279 23-1281 23-1281 23-1282 23-1283 23-1285 23-1285
23-1286 23-1287 23-1289 23-1289 23-1290 23-1291 *23-1293 23-1293 23-1295
#23-1295 23-1296 #23-1296 23-1298 #23-1298 23-1298 23-1299 23-1300 23-1308
23-1308 23-1310 #23-1310 23-1311 #23-1311 #25-1357 25-1363 #25-1363 25-1363
25-1364 25-1365 *25-1367 #25-1367 25-1370 #25-1370 25-1370 25-1372 25-1373
25-1375 25-1375 *25-1377 #25-1377 #26-1424 26-1426 #26-1426 26-1426 26-1427
26-1428 26-1429 26-1432 #26-1432 #28-1479 28-1481 #28-1481 28-1481 28-1482
28-1483 *28-1485 #28-1485 #30-1561 *30-1563 #30-1563 *30-1563 30-1564 30-1565
30-1566 #30-1566 30-1566 30-1567 30-1568 30-1570 30-1570 30-1575 #30-1575
30-1576 #30-1576 30-1577 #30-1577 30-1577 30-1578 30-1579 30-1580 #30-1580
30-1580 30-1581 30-1582 30-1584 #30-1584 30-1585 #30-1585 30-1585 30-1585
30-1586 30-1587 30-1588 30-1590 30-1590 #30-1590 30-1591 #30-1591 30-1591
30-1592 30-1593 30-1595 #30-1595 30-1597 #30-1597 #32-1697 32-1698 #32-1698
32-1698 32-1699 32-1700 32-1701 #32-1701 32-1701 32-1702 32-1703 32-1704
#32-1704 32-1704 32-1706 32-1707 32-1708 32-1709 *32-1716 32-1716 32-1719
#32-1719 32-1720 32-1720 *32-1722 #32-1722 32-1723 #32-1723 32-1724 #32-1724
32-1724 32-1725 32-1726 32-1727 #32-1727 32-1727 32-1728 32-1729 *32-1731
#32-1731 *32-1731 32-1732 32-1733 32-1742 32-1742 32-1745 #32-1745 32-1746
32-1746 32-1749 #32-1749 *32-1751 #32-1751 #34-1806 34-1809 #34-1809 34-1809
34-1810 34-1811 34-1815 #34-1815 34-1815 34-1816 34-1817 34-1819 #34-1819
34-1819 34-1821 34-1822 34-1824 34-1824 34-1825 34-1826 34-1828 #34-1828
34-1828 34-1829 34-1830 34-1833 #34-1833 34-1834 34-1834 34-1835 34-1836
34-1839 #34-1839 34-1839 34-1840 34-1841 34-1844 #34-1844 34-1845 34-1845
34-1848 #34-1848 34-1849 #34-1849 34-1849 34-1850 34-1851 34-1852 34-1854
34-1854 34-1857 #34-1857 34-1858 #34-1858 34-1859 #34-1859
$$S767 = 000073 #15-611 15-615 #18-835 18-839 #23-1212 23-1217 #23-1245 23-1249 #34-1828
34-1833 #34-1839 34-1844
$$S770 = 000012 #7-227 7-237 #15-611 15-615 #18-835 18-839 #23-1212 23-1217 #23-1245
23-1249 #34-1828 34-1833 #34-1839 34-1844
$$S771 = 000000 #7-227 7-237 #15-592 15-619 #18-806 18-810 #18-817 18-823 #18-832
18-840 #18-848 18-852 #18-872 18-878 #21-1037 21-1046 #21-1068 21-1083
#23-1206 23-1219 #23-1235 23-1240 #23-1241 23-1250 #23-1271 *23-1295 #34-1819
34-1848
$$S772 = 000077 #7-223 7-238 #7-240 7-244 #13-513 13-522 #15-592 15-619 #18-806
18-810 #18-817 18-823 #18-832 18-840 #18-848 18-852 #18-872 18-878
#21-1037 21-1046 #21-1068 21-1083 #23-1206 23-1219 #23-1235 23-1240 #23-1241
23-1250 #23-1271 23-1295 #32-1704 32-1719 #32-1731 32-1745 #34-1819 34-1848
#34-1849 34-1857
$$S773 = 000011 #7-223 7-238 #7-240 7-244 #13-513 13-522 #15-592 15-619 #18-794
18-887 #21-1030 21-1085 #23-1197 23-1258 #23-1271 23-1295 #32-1704 32-1719
#32-1731 32-1745 #34-1819 34-1848 #34-1849 34-1857
$$S774 = 000077 #7-217 7-245 #13-505 13-523 #15-589 15-620 #18-794 18-887 #21-1030
21-1085 #23-1197 23-1258 #23-1265 23-1296 #23-1298 23-1310 #30-1566 30-1575
SPSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:20 PAGE 11
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#30-1580 30-1584 #30-1585 30-1590 #30-1591 30-1595 #32-1701 32-1722 #32-1727
32-1749 #34-1815 34-1858
$$S775 = 000010 #7-217 7-245 #13-505 13-523 #15-589 15-620 #18-794 18-887 #21-1030
21-1085 #23-1197 23-1258 #23-1265 23-1296 #23-1298 23-1310 #30-1566 30-1575
#30-1580 30-1584 #30-1585 30-1590 #30-1591 30-1595 #32-1701 32-1722 #32-1727
32-1749 #34-1815 34-1858
$$S776 = 000000 #7-200 7-211 #7-212 7-246 #9-320 9-329 #9-330 9-334 #9-335
9-341 #11-415 11-433 #13-502 13-524 #15-585 15-623 #18-791 18-888
#18-889 18-895 #18-896 18-903 #21-1019 21-1024 #21-1025 21-1089 #23-1192
23-1261 #23-1262 23-1311 #25-1363 25-1367 #25-1370 25-1377 #26-1426 26-1432
#28-1481 28-1485 #30-1563 30-1576 #30-1577 30-1597 #32-1698 32-1723 #32-1724
32-1751 #34-1809 34-1859
$$S777 = 000000 #7-200 7-211 #7-212 7-246 #9-320 9-329 #9-330 9-334 #9-335
9-341 #11-415 11-433 #13-502 13-524 #15-585 15-623 #18-791 18-888
#18-889 18-895 #18-896 18-903 #21-1019 21-1024 #21-1025 21-1089 #23-1192
23-1261 #23-1262 23-1311 #25-1363 25-1367 #25-1370 25-1377 #26-1426 26-1432
#28-1481 28-1485 #30-1563 30-1576 #30-1577 30-1597 #32-1698 32-1723 #32-1724
32-1751 #34-1809 34-1859
$$TRNM = 000000 #5-136 #7-196 7-200 #7-200 7-201 7-202 7-203 7-209 #7-209
7-211 #7-211 7-212 #7-212 7-213 7-214 7-217 #7-217 7-218
7-219 7-220 7-223 #7-223 7-224 7-225 7-227 #7-227 7-228
7-229 7-230 7-235 #7-235 7-237 #7-237 7-238 #7-238 *7-240
#7-240 7-241 7-242 7-244 #7-244 7-245 #7-245 7-246 #7-246
#9-319 9-320 #9-320 9-321 9-322 *9-329 #9-329 9-330 #9-330
9-331 9-332 *9-334 #9-334 9-335 #9-335 9-336 9-337 9-341
#9-341 #11-414 11-415 #11-415 11-416 11-417 11-422 #11-422 11-433
#11-433 #13-500 13-502 #13-502 13-503 13-504 13-505 #13-505 13-506
13-507 13-512 #13-512 13-513 #13-513 13-514 13-515 13-516 13-519
#13-519 13-522 #13-522 13-523 #13-523 13-524 #13-524 #15-581 15-585
#15-585 15-586 15-587 15-588 15-589 #15-589 15-590 15-591 15-592
#15-592 15-596 15-597 15-607 15-607 #15-607 15-608 15-609 15-611
#15-611 15-612 15-613 15-615 #15-615 15-617 #15-617 15-619 15-619
#15-619 15-620 #15-620 15-621 #15-621 15-623 #15-623 #16-678 #18-784
18-791 #18-791 18-792 18-793 18-794 #18-794 18-797 18-798 18-801
18-801 #18-801 18-802 18-803 18-806 #18-806 18-807 18-808 18-810
#18-810 18-813 18-813 #18-813 18-814 18-815 18-816 18-817 #18-817
18-818 18-819 18-821 #18-821 *18-823 #18-823 18-827 18-827 #18-827
18-828 18-829 18-832 #18-832 18-833 18-834 18-835 #18-835 18-836
18-837 18-839 #18-839 18-840 #18-840 18-843 18-843 #18-843 18-844
18-845 18-848 #18-848 18-849 18-850 18-852 #18-852 18-855 18-855
#18-855 18-856 18-857 18-858 18-862 18-862 #18-862 18-863 18-864
18-865 *18-872 #18-872 18-873 18-874 *18-878 #18-878 18-879 18-879
#18-879 18-880 18-881 18-884 #18-884 18-887 18-887 #18-887 18-888
#18-888 18-889 #18-889 18-890 18-891 18-892 18-895 #18-895 18-896
#18-896 18-897 18-898 18-901 #18-901 18-903 #18-903 #19-958 #21-1012
*21-1019 #21-1019 21-1020 21-1021 21-1022 21-1024 #21-1024 21-1025 #21-1025
21-1026 21-1027 *21-1030 #21-1030 21-1033 21-1034 *21-1037 #21-1037 21-1038
21-1039 21-1046 #21-1046 21-1063 21-1063 #21-1063 21-1064 21-1065 *21-1068
#21-1068 21-1069 21-1070 21-1083 #21-1083 21-1085 21-1085 #21-1085 21-1086
#21-1086 21-1089 #21-1089 #23-1191 23-1192 #23-1192 23-1193 23-1194 23-1197
#23-1197 23-1200 23-1201 *23-1206 #23-1206 23-1207 23-1208 *23-1212 #23-1212
23-1213 23-1214 23-1217 #23-1217 23-1219 #23-1219 23-1222 23-1222 #23-1222
SPSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:20 PAGE 12
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
23-1223 23-1224 23-1228 23-1228 #23-1228 23-1230 23-1232 23-1233 *23-1235
#23-1235 23-1236 23-1237 23-1238 23-1240 #23-1240 23-1241 #23-1241 23-1242
23-1243 *23-1245 #23-1245 23-1246 23-1247 *23-1249 #23-1249 23-1250 #23-1250
23-1253 23-1253 #23-1253 23-1254 23-1255 23-1256 23-1258 23-1258 #23-1258
*23-1261 #23-1261 23-1262 #23-1262 23-1263 23-1264 23-1265 #23-1265 23-1266
23-1267 23-1268 23-1270 #23-1270 23-1271 #23-1271 23-1274 23-1275 23-1277
23-1277 #23-1277 23-1278 23-1279 23-1281 23-1281 #23-1281 23-1282 23-1283
23-1285 23-1285 #23-1285 23-1286 23-1287 23-1289 23-1289 #23-1289 23-1290
23-1291 23-1293 #23-1293 23-1295 23-1295 #23-1295 23-1296 #23-1296 23-1298
#23-1298 23-1299 23-1300 23-1308 #23-1308 23-1310 #23-1310 23-1311 #23-1311
#25-1357 25-1363 #25-1363 25-1364 25-1365 *25-1367 #25-1367 25-1370 #25-1370
25-1372 25-1373 25-1375 #25-1375 *25-1377 #25-1377 #26-1424 26-1426 #26-1426
26-1427 26-1428 26-1429 26-1432 #26-1432 #28-1479 28-1481 #28-1481 28-1482
28-1483 *28-1485 #28-1485 #30-1561 *30-1563 #30-1563 30-1564 30-1565 30-1566
#30-1566 30-1567 30-1568 30-1570 #30-1570 30-1575 #30-1575 30-1576 #30-1576
30-1577 #30-1577 30-1578 30-1579 30-1580 #30-1580 30-1581 30-1582 30-1584
#30-1584 30-1585 #30-1585 30-1586 30-1587 30-1588 30-1590 #30-1590 30-1591
#30-1591 30-1592 30-1593 30-1595 #30-1595 30-1597 #30-1597 #32-1697 32-1698
#32-1698 32-1699 32-1700 32-1701 #32-1701 32-1702 32-1703 32-1704 #32-1704
32-1706 32-1707 32-1708 32-1709 32-1716 #32-1716 32-1719 #32-1719 32-1720
#32-1720 *32-1722 #32-1722 32-1723 #32-1723 32-1724 #32-1724 32-1725 32-1726
32-1727 #32-1727 32-1728 32-1729 *32-1731 #32-1731 32-1732 32-1733 32-1742
#32-1742 32-1745 #32-1745 32-1746 #32-1746 32-1749 #32-1749 *32-1751 #32-1751
#34-1806 34-1809 #34-1809 34-1810 34-1811 34-1815 #34-1815 34-1816 34-1817
34-1819 #34-1819 34-1821 34-1822 34-1824 34-1824 #34-1824 34-1825 34-1826
34-1828 #34-1828 34-1829 34-1830 34-1833 #34-1833 34-1834 34-1834 #34-1834
34-1835 34-1836 34-1839 #34-1839 34-1840 34-1841 34-1844 #34-1844 34-1845
#34-1845 34-1848 34-1848 #34-1848 34-1849 #34-1849 34-1850 34-1851 34-1852
34-1854 #34-1854 34-1857 #34-1857 34-1858 #34-1858 34-1859 #34-1859
$$$ARG = 000002 #25-1368 25-1368 #25-1368 25-1368 #25-1368 25-1368 #25-1368 25-1368 25-1368
#25-1368 25-1368 25-1368 25-1368 25-1368 25-1368 25-1368 25-1368 25-1368
25-1368 25-1368 #25-1368 25-1368 25-1368 25-1368 25-1368 25-1368 25-1368
25-1368 25-1368 25-1368 25-1368 #25-1368 25-1368 25-1368 25-1368 25-1368
25-1368 25-1368 25-1368 25-1368 25-1368 25-1368
SPSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:20 PAGE 13
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #7-199 #7-206 #7-222 #11-428 #11-432 #13-501 #13-511 #15-584 #15-598 #15-610
#15-614 #16-682 #18-790 #18-800 #18-805 #18-809 #18-824 #18-831 #18-838 #18-847
#18-851 #18-861 #18-869 #18-875 #18-882 #18-902 #19-962 #21-1045 #21-1077 #21-1082
#23-1218 #23-1225 #23-1227 #23-1252 #23-1257 #23-1305 #23-1309 #25-1369 #25-1374 #26-1425
#28-1480 #30-1569 #30-1583 #30-1589 #30-1594 #32-1718 #32-1738 #32-1744 #32-1748 #34-1808
#34-1814 #34-1827 #34-1838
CASE #5-136 #7-196 #9-319 #11-414 #13-500 #15-581 15-595 15-607 #16-678 #18-784
18-796 18-801 18-813 18-827 18-843 18-855 18-862 18-879 #19-958 #21-1012
21-1032 21-1063 #23-1191 23-1199 23-1222 23-1228 23-1253 23-1273 23-1277 23-1281
23-1285 23-1289 #25-1357 #26-1424 #28-1479 #30-1561 #32-1697 #34-1806 34-1820 34-1824
34-1834
CONDF #4-79 #4-79 #5-127 #5-132 #8-309 #8-314 #10-404 #10-408 #17-773 #17-779
#22-1174 #22-1182 #29-1550 #29-1554 #31-1686 #31-1690
CONFIG #4-75 #4-79 #4-79
DIR$ #25-1368 #25-1368
DLXDF #24-1347 24-1352
DO #5-136 #7-196 7-220 #9-319 #11-414 #13-500 #15-581 15-597 15-609 #16-678
#18-784 18-798 18-803 18-816 18-829 18-845 18-858 18-865 18-881 #19-958
#21-1012 21-1022 21-1034 21-1065 #23-1191 23-1201 23-1208 23-1224 23-1233 23-1238
23-1256 23-1275 23-1279 23-1283 23-1287 23-1291 #25-1357 #26-1424 #28-1479 #30-1561
30-1588 #32-1697 #34-1806 34-1822 34-1826 34-1836
ELSE #5-136 #7-196 7-209 7-235 #9-319 #11-414 11-422 #13-500 13-512 13-519
#15-581 15-617 15-621 #16-678 #18-784 18-821 18-884 18-901 #19-958 #21-1012
21-1086 #23-1191 23-1270 23-1293 23-1308 #25-1357 25-1375 #26-1424 #28-1479 #30-1561
30-1570 #32-1697 32-1716 32-1720 32-1742 32-1746 #34-1806 34-1845 34-1854
ENDCAS #5-136 #7-196 #9-319 #11-414 #13-500 #15-581 15-619 #16-678 #18-784 18-887
#19-958 #21-1012 21-1085 #23-1191 23-1258 23-1295 #25-1357 #26-1424 #28-1479 #30-1561
#32-1697 #34-1806 34-1848
ENDIF #5-136 #7-196 7-211 7-237 7-238 7-244 7-245 7-246 #9-319 9-329
9-334 9-341 #11-414 11-433 #13-500 13-522 13-523 13-524 #15-581 15-615
15-619 15-620 15-623 #16-678 #18-784 18-810 18-823 18-839 18-840 18-852
18-878 18-887 18-888 18-895 18-903 #19-958 #21-1012 21-1024 21-1046 21-1083
21-1085 21-1089 #23-1191 23-1217 23-1219 23-1240 23-1249 23-1250 23-1258 23-1261
23-1295 23-1296 23-1310 23-1311 #25-1357 25-1367 25-1377 #26-1424 26-1432 #28-1479
28-1485 #30-1561 30-1575 30-1576 30-1584 30-1590 30-1595 30-1597 #32-1697 32-1719
32-1722 32-1723 32-1745 32-1749 32-1751 #34-1806 34-1833 34-1844 34-1848 34-1857
34-1858 34-1859
ENDPRO #5-136 5-140 #7-196 7-247 #9-319 9-342 #11-414 11-434 #13-500 13-525
#15-581 15-624 #16-678 16-683 #18-784 18-905 #19-958 19-963 #21-1012 21-1090
#23-1191 23-1312 #25-1357 25-1378 #26-1424 26-1433 #28-1479 28-1486 #30-1561 30-1599
#32-1697 32-1752 #34-1806 34-1860
ENDWHI #5-136 #7-196 #7-245 #9-319 #11-414 #13-500 #15-581 #16-678 #18-784 #19-958
#21-1012 #21-1024 #23-1191 #23-1219 #23-1240 #25-1357 #26-1424 #28-1479 #30-1561 #30-1590
#32-1697 #34-1806
FALSE #5-136 #7-196 7-201 7-202 7-213 7-218 7-219 7-224 7-228 7-229
7-241 #9-319 #11-414 #13-500 13-503 13-506 13-514 #15-581 15-586 15-596
15-608 15-612 #16-678 #18-784 18-792 18-797 18-802 18-807 18-815 18-818
18-828 18-833 18-844 18-849 18-857 18-864 18-873 18-880 18-890 18-891
18-897 #19-958 #21-1012 21-1020 21-1026 21-1033 21-1064 #23-1191 23-1200 23-1213
23-1223 23-1232 23-1236 23-1242 23-1255 23-1274 23-1278 23-1282 23-1286 23-1290
23-1299 #25-1357 25-1364 25-1372 #26-1424 26-1427 #28-1479 28-1482 #30-1561 30-1564
30-1578 #32-1697 32-1732 #34-1806 34-1810 34-1816 34-1821 34-1825 34-1829 34-1835
SPSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:20 PAGE 14
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
34-1840 34-1850 34-1851
FALSEB #5-136 #7-196 #9-319 9-321 9-331 9-336 #11-414 11-416 #13-500 13-515
#15-581 15-587 15-590 #16-678 #18-784 18-836 #19-958 #21-1012 21-1021 21-1038
21-1069 #23-1191 23-1193 23-1207 23-1237 23-1246 23-1263 23-1267 #25-1357 #26-1424
26-1428 #28-1479 #30-1561 30-1567 30-1581 30-1586 30-1587 30-1592 #32-1697 32-1699
32-1702 32-1708 32-1725 32-1728 #34-1806
IF #5-136 #7-196 #7-200 #7-212 #7-217 #7-223 #7-227 #7-240 #9-319 #9-320
#9-330 #9-335 #11-414 #11-415 #13-500 #13-502 #13-505 #13-513 #15-581 #15-585
#15-589 #15-592 #15-611 #16-678 #18-784 #18-791 #18-794 #18-806 #18-817 #18-832
#18-835 #18-848 #18-872 #18-889 #18-896 #19-958 #21-1012 #21-1019 #21-1025 #21-1030
#21-1037 #21-1068 #23-1191 #23-1192 #23-1197 #23-1206 #23-1212 #23-1235 #23-1241 #23-1245
#23-1262 #23-1265 #23-1271 #23-1298 #25-1357 #25-1363 #25-1370 #26-1424 #26-1426 #28-1479
#28-1481 #30-1561 #30-1563 #30-1566 #30-1577 #30-1580 #30-1585 #30-1591 #32-1697 #32-1698
#32-1701 #32-1704 #32-1724 #32-1727 #32-1731 #34-1806 #34-1809 #34-1815 #34-1819 #34-1828
#34-1839 #34-1849
JMPPRO #5-136 #7-196 #9-319 #11-414 #13-500 #15-581 #16-678 #18-784 #19-958 #21-1012
#23-1191 #25-1357 #26-1424 #28-1479 #30-1561 #32-1697 #34-1806
LOGDF #22-1176 22-1185
MOV$ #25-1368 #25-1368 #25-1368 #25-1368 #25-1368 #25-1368 #25-1368 #25-1368 #25-1368 #25-1368
MVB$ #25-1368 #25-1368
NICDF #12-490 12-495 #17-773 17-778 #22-1174 22-1183 #31-1686 31-1692
ONCASE #5-136 #7-196 #9-319 #11-414 #13-500 #15-581 #15-592 #16-678 #18-784 #18-794
#19-958 #21-1012 #21-1030 #23-1191 #23-1197 #23-1271 #25-1357 #26-1424 #28-1479 #30-1561
#32-1697 #34-1806 #34-1819
PRDF #29-1550 #29-1556
PROC #4-71 30-1561
PROCLC #4-71 5-136 #5-136 7-196 #7-196 9-319 #9-319 11-414 #11-414 13-500
#13-500 15-581 #15-581 16-678 #16-678 18-784 #18-784 19-958 #19-958 21-1012
#21-1012 23-1191 #23-1191 25-1357 #25-1357 26-1424 #26-1424 28-1479 #28-1479 #30-1561
32-1697 #32-1697 34-1806 #34-1806
PROFLG #4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75
4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75
4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75
4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75 4-75
4-75 #4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79
4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79
4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79
4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79 4-79
4-79 4-79
QDPB$S #25-1368 25-1368
QIOW$S #24-1347 #25-1368
RESSTK #6-186 7-207 7-239 #17-773 18-870 18-904 21-1078 #22-1174 23-1260
RVP$ #25-1368 25-1368 25-1368 25-1368
SAVSTK #6-186 #7-204 #7-221 #17-773 #18-785 #18-867 #21-1072 #22-1174 #23-1195
SPDF #5-127 #5-131 #6-186 #6-190 #8-309 #8-313 #10-404 #10-409 #12-490 #12-494
#14-572 #14-576 #16-670 #16-674 #17-773 #17-777 #19-950 #19-954 #20-1003 #20-1007
#22-1174 #22-1181 #26-1416 #26-1420 #28-1471 #28-1475 #29-1550 #29-1555 #31-1686 #31-1691
#33-1797 #33-1801
SPMDF #4-71 4-79
SRDF #24-1347 #24-1351
SWSTK$ #5-136 #7-196 #9-319 #11-414 #13-500 #15-581 #16-678 #18-784 #19-958 #21-1012
#23-1191 #25-1357 #26-1424 #28-1479 #30-1561 #32-1697 #34-1806
SPSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:20 PAGE 15
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
TABENT #4-79 4-79 4-79 4-79 4-79 4-79 4-79
THEN #5-136 #7-196 7-203 7-214 7-220 7-225 7-230 7-242 #9-319 9-322
9-332 9-337 #11-414 11-417 #13-500 13-504 13-507 13-516 #15-581 15-588
15-591 15-597 15-609 15-613 #16-678 #18-784 18-793 18-798 18-803 18-808
18-816 18-819 18-829 18-834 18-837 18-845 18-850 18-858 18-865 18-874
18-881 18-892 18-898 #19-958 #21-1012 21-1022 21-1027 21-1034 21-1039 21-1065
21-1070 #23-1191 23-1194 23-1201 23-1208 23-1214 23-1224 23-1233 23-1238 23-1243
23-1247 23-1256 23-1264 23-1268 23-1275 23-1279 23-1283 23-1287 23-1291 23-1300
#25-1357 25-1365 25-1373 #26-1424 26-1429 #28-1479 28-1483 #30-1561 30-1565 30-1568
30-1579 30-1582 30-1588 30-1593 #32-1697 32-1700 32-1703 32-1709 32-1726 32-1729
32-1733 #34-1806 34-1811 34-1817 34-1822 34-1826 34-1830 34-1836 34-1841 34-1852
TRUE #5-136 #7-196 #9-319 #11-414 #13-500 #15-581 #16-678 #18-784 18-814 18-856
18-863 #19-958 #21-1012 #23-1191 23-1230 23-1254 #25-1357 #26-1424 #28-1479 #30-1561
#32-1697 32-1706 32-1707 #34-1806
TRUEB #5-136 #7-196 #9-319 #11-414 #13-500 #15-581 #16-678 #18-784 #19-958 #21-1012
#23-1191 #23-1266 #25-1357 #26-1424 #28-1479 #30-1561 #32-1697 #34-1806
WHILE #5-136 #7-196 #7-217 #9-319 #11-414 #13-500 #15-581 #16-678 #18-784 #19-958
#21-1012 #21-1019 #23-1191 #23-1206 #23-1235 #25-1357 #26-1424 #28-1479 #30-1561 #30-1585
#32-1697 #34-1806
$$BGND #5-136 #7-196 #7-201 #7-202 #7-213 #7-218 #7-219 #7-224 #7-228 #7-229
#7-241 #9-319 #9-321 #9-331 #9-336 #11-414 #11-416 #13-500 #13-503 #13-506
#13-514 #13-515 #15-581 #15-586 #15-587 #15-590 #15-596 #15-608 #15-612 #16-678
#18-784 #18-792 #18-797 #18-802 #18-807 #18-814 #18-815 #18-818 #18-828 #18-833
#18-836 #18-844 #18-849 #18-856 #18-857 #18-863 #18-864 #18-873 #18-880 #18-890
#18-891 #18-897 #19-958 #21-1012 #21-1020 #21-1021 #21-1026 #21-1033 #21-1038 #21-1064
#21-1069 #23-1191 #23-1193 #23-1200 #23-1207 #23-1213 #23-1223 #23-1230 #23-1232 #23-1236
#23-1237 #23-1242 #23-1246 #23-1254 #23-1255 #23-1263 #23-1266 #23-1267 #23-1274 #23-1278
#23-1282 #23-1286 #23-1290 #23-1299 #25-1357 #25-1364 #25-1372 #26-1424 #26-1427 #26-1428
#28-1479 #28-1482 #30-1561 #30-1564 #30-1567 #30-1578 #30-1581 #30-1586 #30-1587 #30-1592
#32-1697 #32-1699 #32-1702 #32-1706 #32-1707 #32-1708 #32-1725 #32-1728 #32-1732 #34-1806
#34-1810 #34-1816 #34-1821 #34-1825 #34-1829 #34-1835 #34-1840 #34-1850 #34-1851
$$BGNN #5-136 #7-196 #7-201 #7-202 #7-209 #7-213 #7-218 #7-219 #7-224 #7-228
#7-229 #7-235 #7-241 #7-245 #9-319 #9-321 #9-331 #9-336 #11-414 #11-416
#11-422 #13-500 #13-503 #13-506 #13-512 #13-514 #13-515 #13-519 #15-581 #15-586
#15-587 #15-590 #15-596 #15-607 #15-608 #15-612 #15-617 #15-621 #16-678 #18-784
#18-792 #18-797 #18-801 #18-802 #18-807 #18-813 #18-814 #18-815 #18-818 #18-821
#18-827 #18-828 #18-833 #18-836 #18-843 #18-844 #18-849 #18-855 #18-856 #18-857
#18-862 #18-863 #18-864 #18-873 #18-879 #18-880 #18-884 #18-890 #18-891 #18-897
#18-901 #19-958 #21-1012 #21-1020 #21-1021 #21-1024 #21-1026 #21-1033 #21-1038 #21-1063
#21-1064 #21-1069 #21-1086 #23-1191 #23-1193 #23-1200 #23-1207 #23-1213 #23-1219 #23-1222
#23-1223 #23-1228 #23-1230 #23-1232 #23-1236 #23-1237 #23-1240 #23-1242 #23-1246 #23-1253
#23-1254 #23-1255 #23-1263 #23-1266 #23-1267 #23-1270 #23-1274 #23-1277 #23-1278 #23-1281
#23-1282 #23-1285 #23-1286 #23-1289 #23-1290 #23-1293 #23-1299 #23-1308 #25-1357 #25-1364
#25-1372 #25-1375 #26-1424 #26-1427 #26-1428 #28-1479 #28-1482 #30-1561 #30-1564 #30-1567
#30-1570 #30-1578 #30-1581 #30-1586 #30-1587 #30-1590 #30-1592 #32-1697 #32-1699 #32-1702
#32-1706 #32-1707 #32-1708 #32-1716 #32-1720 #32-1725 #32-1728 #32-1732 #32-1742 #32-1746
#34-1806 #34-1810 #34-1816 #34-1821 #34-1824 #34-1825 #34-1829 #34-1834 #34-1835 #34-1840
#34-1845 #34-1850 #34-1851 #34-1854
$$ELSE #5-136 #7-196 #7-209 #7-235 #9-319 #11-414 #11-422 #13-500 #13-512 #13-519
#15-581 #15-607 #15-617 #15-621 #16-678 #18-784 #18-801 #18-813 #18-821 #18-827
#18-843 #18-855 #18-862 #18-879 #18-884 #18-901 #19-958 #21-1012 #21-1063 #21-1086
#23-1191 #23-1222 #23-1228 #23-1253 #23-1270 #23-1277 #23-1281 #23-1285 #23-1289 #23-1293
SPSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:20 PAGE 16
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#23-1308 #25-1357 #25-1375 #26-1424 #28-1479 #30-1561 #30-1570 #32-1697 #32-1716 #32-1720
#32-1742 #32-1746 #34-1806 #34-1824 #34-1834 #34-1845 #34-1854
$$GEN1 #5-136 5-136 5-140 #7-196 7-196 7-201 7-202 7-203 7-209 7-209
7-211 7-213 7-214 7-217 7-218 7-219 7-219 7-220 7-224 7-225
7-228 7-228 7-229 7-230 7-235 7-235 7-237 7-238 7-241 7-242
7-244 7-245 7-245 7-246 7-247 #9-319 9-319 9-321 9-321 9-322
9-329 9-331 9-332 9-334 9-336 9-337 9-341 9-342 #11-414 11-414
11-416 11-417 11-422 11-422 11-433 11-434 #13-500 13-500 13-503 13-504
13-506 13-507 13-512 13-512 13-514 13-515 13-516 13-519 13-519 13-522
13-523 13-524 13-525 #15-581 15-581 15-586 15-587 15-588 15-590 15-591
15-596 15-597 15-607 15-607 15-608 15-609 15-612 15-613 15-615 15-617
15-617 15-619 15-620 15-621 15-621 15-623 15-624 #16-678 16-678 16-683
#18-784 18-784 18-792 18-793 18-797 18-798 18-801 18-801 18-802 18-803
18-807 18-808 18-810 18-813 18-813 18-814 18-815 18-816 18-818 18-819
18-821 18-821 18-823 18-827 18-827 18-828 18-829 18-833 18-834 18-836
18-837 18-839 18-840 18-843 18-843 18-844 18-845 18-849 18-850 18-852
18-855 18-855 18-856 18-857 18-858 18-862 18-862 18-863 18-864 18-865
18-873 18-874 18-878 18-879 18-879 18-880 18-881 18-884 18-884 18-887
18-888 18-890 18-891 18-892 18-895 18-897 18-898 18-901 18-901 18-903
18-905 #19-958 19-958 19-963 #21-1012 21-1012 21-1019 21-1020 21-1021 21-1022
21-1024 21-1024 21-1026 21-1027 21-1033 21-1034 21-1038 21-1039 21-1046 21-1063
21-1063 21-1064 21-1065 21-1069 21-1070 21-1083 21-1085 21-1085 21-1086 21-1086
21-1089 21-1090 #23-1191 23-1191 23-1193 23-1193 23-1194 23-1200 23-1201 23-1206
23-1207 23-1207 23-1208 23-1213 23-1213 23-1214 23-1217 23-1219 23-1219 23-1222
23-1222 23-1223 23-1224 23-1228 23-1228 23-1230 23-1232 23-1233 23-1235 23-1236
23-1237 23-1238 23-1240 23-1240 23-1242 23-1243 23-1246 23-1246 23-1247 23-1249
23-1250 23-1253 23-1253 23-1254 23-1255 23-1256 23-1258 23-1258 23-1261 23-1263
23-1264 23-1266 23-1266 23-1267 23-1268 23-1270 23-1270 23-1274 23-1275 23-1277
23-1277 23-1278 23-1279 23-1281 23-1281 23-1282 23-1283 23-1285 23-1285 23-1286
23-1287 23-1289 23-1289 23-1290 23-1291 23-1293 23-1293 23-1295 23-1296 23-1299
23-1300 23-1308 23-1308 23-1310 23-1311 23-1312 #25-1357 25-1357 25-1364 25-1365
25-1367 25-1372 25-1373 25-1375 25-1375 25-1377 25-1378 #26-1424 26-1424 26-1427
26-1428 26-1429 26-1432 26-1433 #28-1479 28-1479 28-1482 28-1483 28-1485 28-1486
#30-1561 30-1561 30-1564 30-1564 30-1565 30-1567 30-1568 30-1570 30-1570 30-1575
30-1576 30-1578 30-1578 30-1579 30-1581 30-1582 30-1584 30-1585 30-1586 30-1587
30-1587 30-1588 30-1590 30-1590 30-1592 30-1593 30-1595 30-1597 30-1599 #32-1697
32-1697 32-1699 32-1699 32-1700 32-1702 32-1703 32-1706 32-1707 32-1708 32-1709
32-1716 32-1716 32-1719 32-1720 32-1720 32-1722 32-1723 32-1725 32-1726 32-1728
32-1728 32-1729 32-1732 32-1733 32-1742 32-1742 32-1745 32-1746 32-1746 32-1749
32-1751 32-1752 #34-1806 34-1806 34-1810 34-1811 34-1816 34-1817 34-1821 34-1821
34-1822 34-1824 34-1824 34-1825 34-1826 34-1829 34-1830 34-1833 34-1834 34-1834
34-1835 34-1836 34-1840 34-1841 34-1844 34-1845 34-1845 34-1848 34-1850 34-1851
34-1852 34-1854 34-1854 34-1857 34-1858 34-1859 34-1860
$$GEN2 #5-136 #7-196 7-202 7-229 #9-319 9-331 9-336 #11-414 11-416 #13-500
13-506 13-514 13-515 #15-581 15-587 15-590 15-596 15-608 #16-678 #18-784
18-797 18-802 18-814 18-815 18-818 18-828 18-836 18-844 18-856 18-857
18-863 18-864 18-880 18-891 #19-958 #21-1012 21-1020 21-1021 21-1026 21-1033
21-1038 21-1064 21-1069 #23-1191 23-1223 23-1230 23-1232 23-1236 23-1237 23-1242
23-1254 23-1255 23-1263 23-1267 23-1274 23-1278 23-1282 23-1286 23-1290 #25-1357
25-1364 #26-1424 26-1428 #28-1479 #30-1561 30-1567 30-1581 30-1586 30-1592 #32-1697
32-1702 32-1706 32-1707 32-1708 32-1725 #34-1806 34-1825 34-1835 34-1851
$$GNAB #5-136 #7-196 #7-201 #7-202 #7-213 #7-218 #7-219 #7-224 #7-228 #7-229
SPSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:20 PAGE 17
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#7-241 #9-319 #9-331 #9-336 #11-414 #11-416 #13-500 #13-503 #13-506 #13-514
#13-515 #15-581 #15-586 #15-596 #15-608 #15-612 #16-678 #18-784 #18-792 #18-797
#18-802 #18-807 #18-814 #18-815 #18-818 #18-828 #18-833 #18-836 #18-844 #18-849
#18-856 #18-857 #18-863 #18-864 #18-873 #18-880 #18-890 #18-891 #18-897 #19-958
#21-1012 #21-1020 #21-1021 #21-1026 #21-1033 #21-1064 #23-1191 #23-1200 #23-1223 #23-1230
#23-1232 #23-1236 #23-1237 #23-1242 #23-1246 #23-1254 #23-1255 #23-1263 #23-1266 #23-1274
#23-1278 #23-1282 #23-1286 #23-1290 #23-1299 #25-1357 #25-1364 #25-1372 #26-1424 #26-1427
#26-1428 #28-1479 #28-1482 #30-1561 #30-1567 #30-1581 #30-1586 #30-1587 #30-1592 #32-1697
#32-1706 #32-1707 #32-1708 #32-1725 #32-1728 #32-1732 #34-1806 #34-1810 #34-1816 #34-1825
#34-1829 #34-1835 #34-1840 #34-1850 #34-1851
$$GNBT #5-136 #7-196 #9-319 #9-321 #11-414 #13-500 #15-581 #15-587 #15-590 #16-678
#18-784 #19-958 #21-1012 #21-1038 #21-1069 #23-1191 #23-1193 #23-1207 #23-1213 #23-1267
#25-1357 #26-1424 #28-1479 #30-1561 #30-1564 #30-1578 #32-1697 #32-1699 #32-1702 #34-1806
#34-1821
$$GNCM #5-136 #7-196 7-201 7-202 7-213 7-218 7-219 7-224 7-228 7-229
7-241 #9-319 9-321 9-331 9-336 #11-414 11-416 #13-500 13-503 13-506
13-514 13-515 #15-581 15-586 15-587 15-590 15-596 15-608 15-612 #16-678
#18-784 18-792 18-797 18-802 18-807 18-814 18-815 18-818 18-828 18-833
18-836 18-844 18-849 18-856 18-857 18-863 18-864 18-873 18-880 18-890
18-891 18-897 #19-958 #21-1012 21-1020 21-1021 21-1026 21-1033 21-1038 21-1064
21-1069 #23-1191 23-1193 23-1200 23-1207 23-1213 23-1223 23-1230 23-1232 23-1236
23-1237 23-1242 23-1246 23-1254 23-1255 23-1263 23-1266 23-1267 23-1274 23-1278
23-1282 23-1286 23-1290 23-1299 #25-1357 25-1364 25-1372 #26-1424 26-1427 26-1428
#28-1479 28-1482 #30-1561 30-1564 30-1567 30-1578 30-1581 30-1586 30-1587 30-1592
#32-1697 32-1699 32-1702 32-1706 32-1707 32-1708 32-1725 32-1728 32-1732 #34-1806
34-1810 34-1816 34-1821 34-1825 34-1829 34-1835 34-1840 34-1850 34-1851
$$INMC #5-136 5-136 #7-196 7-196 #9-319 9-319 #11-414 11-414 #13-500 13-500
#15-581 15-581 #16-678 16-678 #18-784 18-784 #19-958 19-958 #21-1012 21-1012
#23-1191 23-1191 #25-1357 25-1357 #26-1424 26-1424 #28-1479 28-1479 #30-1561 30-1561
#32-1697 32-1697 #34-1806 34-1806
$$INSY #5-136 #5-136 #7-196 #7-196 #9-319 #9-319 #11-414 #11-414 #13-500 #13-500
#15-581 #15-581 #16-678 #16-678 #18-784 #18-784 #19-958 #19-958 #21-1012 #21-1012
#23-1191 #23-1191 #25-1357 #25-1357 #26-1424 #26-1424 #28-1479 #28-1479 #30-1561 #30-1561
#32-1697 #32-1697 #34-1806 #34-1806
$$LAB #5-136 #7-196 7-203 7-209 7-211 7-214 7-217 7-220 7-225 7-230
7-235 7-237 7-238 7-242 7-244 7-245 7-246 #9-319 9-322 9-329
9-332 9-334 9-337 9-341 #11-414 11-417 11-422 11-433 #13-500 13-504
13-507 13-512 13-516 13-519 13-522 13-523 13-524 #15-581 15-588 15-591
15-597 15-607 15-609 15-613 15-615 15-617 15-619 15-620 15-621 15-623
#16-678 #18-784 18-793 18-798 18-801 18-803 18-808 18-810 18-813 18-816
18-819 18-821 18-823 18-827 18-829 18-834 18-837 18-839 18-840 18-843
18-845 18-850 18-852 18-855 18-858 18-862 18-865 18-874 18-878 18-879
18-881 18-884 18-887 18-888 18-892 18-895 18-898 18-901 18-903 #19-958
#21-1012 21-1019 21-1022 21-1024 21-1027 21-1034 21-1039 21-1046 21-1063 21-1065
21-1070 21-1083 21-1085 21-1085 21-1086 21-1089 #23-1191 23-1194 23-1201 23-1206
23-1208 23-1214 23-1217 23-1219 23-1222 23-1224 23-1228 23-1233 23-1235 23-1238
23-1240 23-1243 23-1247 23-1249 23-1250 23-1253 23-1256 23-1258 23-1258 23-1261
23-1264 23-1268 23-1270 23-1275 23-1277 23-1279 23-1281 23-1283 23-1285 23-1287
23-1289 23-1291 23-1293 23-1295 23-1296 23-1300 23-1308 23-1310 23-1311 #25-1357
25-1365 25-1367 25-1373 25-1375 25-1377 #26-1424 26-1429 26-1432 #28-1479 28-1483
28-1485 #30-1561 30-1565 30-1568 30-1570 30-1575 30-1576 30-1579 30-1582 30-1584
30-1585 30-1588 30-1590 30-1593 30-1595 30-1597 #32-1697 32-1700 32-1703 32-1709
SPSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:20 PAGE 18
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
32-1716 32-1719 32-1720 32-1722 32-1723 32-1726 32-1729 32-1733 32-1742 32-1745
32-1746 32-1749 32-1751 #34-1806 34-1811 34-1817 34-1822 34-1824 34-1826 34-1830
34-1833 34-1834 34-1836 34-1841 34-1844 34-1845 34-1848 34-1852 34-1854 34-1857
34-1858 34-1859
$$POP #5-136 #7-196 7-211 7-211 7-237 7-237 7-238 7-238 7-244 7-244
7-245 7-245 7-246 7-246 #9-319 9-329 9-329 9-334 9-334 9-341
9-341 #11-414 11-433 11-433 #13-500 13-522 13-522 13-523 13-523 13-524
13-524 #15-581 15-615 15-615 15-619 15-619 15-619 15-620 15-620 15-623
15-623 #16-678 #18-784 18-810 18-810 18-823 18-823 18-839 18-839 18-840
18-840 18-852 18-852 18-878 18-878 18-887 18-887 18-887 18-888 18-888
18-895 18-895 18-903 18-903 #19-958 #21-1012 21-1024 21-1024 21-1046 21-1046
21-1083 21-1083 21-1085 21-1085 21-1085 21-1089 21-1089 #23-1191 23-1217 23-1217
23-1219 23-1219 23-1240 23-1240 23-1249 23-1249 23-1250 23-1250 23-1258 23-1258
23-1258 23-1261 23-1261 23-1295 23-1295 23-1295 23-1296 23-1296 23-1310 23-1310
23-1311 23-1311 #25-1357 25-1367 25-1367 25-1377 25-1377 #26-1424 26-1432 26-1432
#28-1479 28-1485 28-1485 #30-1561 30-1575 30-1575 30-1576 30-1576 30-1584 30-1584
30-1590 30-1590 30-1595 30-1595 30-1597 30-1597 #32-1697 32-1719 32-1719 32-1722
32-1722 32-1723 32-1723 32-1745 32-1745 32-1749 32-1749 32-1751 32-1751 #34-1806
34-1833 34-1833 34-1844 34-1844 34-1848 34-1848 34-1848 34-1857 34-1857 34-1858
34-1858 34-1859 34-1859
$$POPI #5-136 #7-196 7-211 7-211 7-237 7-237 7-238 7-238 7-244 7-244
7-245 7-245 7-246 7-246 #9-319 9-329 9-329 9-334 9-334 9-341
9-341 #11-414 11-433 11-433 #13-500 13-522 13-522 13-523 13-523 13-524
13-524 #15-581 15-615 15-615 15-619 15-619 15-619 15-620 15-620 15-623
15-623 #16-678 #18-784 18-810 18-810 18-823 18-823 18-839 18-839 18-840
18-840 18-852 18-852 18-878 18-878 18-887 18-887 18-887 18-888 18-888
18-895 18-895 18-903 18-903 #19-958 #21-1012 21-1024 21-1024 21-1046 21-1046
21-1083 21-1083 21-1085 21-1085 21-1085 21-1089 21-1089 #23-1191 23-1217 23-1217
23-1219 23-1219 23-1240 23-1240 23-1249 23-1249 23-1250 23-1250 23-1258 23-1258
23-1258 23-1261 23-1261 23-1295 23-1295 23-1295 23-1296 23-1296 23-1310 23-1310
23-1311 23-1311 #25-1357 25-1367 25-1367 25-1377 25-1377 #26-1424 26-1432 26-1432
#28-1479 28-1485 28-1485 #30-1561 30-1575 30-1575 30-1576 30-1576 30-1584 30-1584
30-1590 30-1590 30-1595 30-1595 30-1597 30-1597 #32-1697 32-1719 32-1719 32-1722
32-1722 32-1723 32-1723 32-1745 32-1745 32-1749 32-1749 32-1751 32-1751 #34-1806
34-1833 34-1833 34-1844 34-1844 34-1848 34-1848 34-1848 34-1857 34-1857 34-1858
34-1858 34-1859 34-1859
$$PUSH #5-136 #7-196 #7-200 #7-200 #7-212 #7-212 #7-217 #7-217 #7-223 #7-223
#7-227 #7-227 #7-240 #7-240 #9-319 #9-320 #9-320 #9-330 #9-330 #9-335
#9-335 #11-414 #11-415 #11-415 #13-500 #13-502 #13-502 #13-505 #13-505 #13-513
#13-513 #15-581 #15-585 #15-585 #15-589 #15-589 #15-592 #15-592 #15-592 #15-611
#15-611 #16-678 #18-784 #18-791 #18-791 #18-794 #18-794 #18-794 #18-806 #18-806
#18-817 #18-817 #18-832 #18-832 #18-835 #18-835 #18-848 #18-848 #18-872 #18-872
#18-889 #18-889 #18-896 #18-896 #19-958 #21-1012 #21-1019 #21-1019 #21-1025 #21-1025
#21-1030 #21-1030 #21-1030 #21-1037 #21-1037 #21-1068 #21-1068 #23-1191 #23-1192 #23-1192
#23-1197 #23-1197 #23-1197 #23-1206 #23-1206 #23-1212 #23-1212 #23-1235 #23-1235 #23-1241
#23-1241 #23-1245 #23-1245 #23-1262 #23-1262 #23-1265 #23-1265 #23-1271 #23-1271 #23-1271
#23-1298 #23-1298 #25-1357 #25-1363 #25-1363 #25-1370 #25-1370 #26-1424 #26-1426 #26-1426
#28-1479 #28-1481 #28-1481 #30-1561 #30-1563 #30-1563 #30-1566 #30-1566 #30-1577 #30-1577
#30-1580 #30-1580 #30-1585 #30-1585 #30-1591 #30-1591 #32-1697 #32-1698 #32-1698 #32-1701
#32-1701 #32-1704 #32-1704 #32-1724 #32-1724 #32-1727 #32-1727 #32-1731 #32-1731 #34-1806
#34-1809 #34-1809 #34-1815 #34-1815 #34-1819 #34-1819 #34-1819 #34-1828 #34-1828 #34-1839
#34-1839 #34-1849 #34-1849
SPSTPR CREATED BY MACRO ON 13-OCT-79 AT 12:20 PAGE 19
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
$$STSM #5-136 #7-196 #7-200 #7-200 #7-212 #7-212 #7-217 #7-217 #7-223 #7-223
#7-227 #7-227 #7-240 #7-240 #9-319 #9-320 #9-320 #9-330 #9-330 #9-335
#9-335 #11-414 #11-415 #11-415 #13-500 #13-502 #13-502 #13-505 #13-505 #13-513
#13-513 #15-581 #15-585 #15-585 #15-589 #15-589 #15-592 #15-592 #15-592 #15-611
#15-611 #16-678 #18-784 #18-791 #18-791 #18-794 #18-794 #18-794 #18-806 #18-806
#18-817 #18-817 #18-832 #18-832 #18-835 #18-835 #18-848 #18-848 #18-872 #18-872
#18-889 #18-889 #18-896 #18-896 #19-958 #21-1012 #21-1019 #21-1019 #21-1025 #21-1025
#21-1030 #21-1030 #21-1030 #21-1037 #21-1037 #21-1068 #21-1068 #23-1191 #23-1192 #23-1192
#23-1197 #23-1197 #23-1197 #23-1206 #23-1206 #23-1212 #23-1212 #23-1235 #23-1235 #23-1241
#23-1241 #23-1245 #23-1245 #23-1262 #23-1262 #23-1265 #23-1265 #23-1271 #23-1271 #23-1271
#23-1298 #23-1298 #25-1357 #25-1363 #25-1363 #25-1370 #25-1370 #26-1424 #26-1426 #26-1426
#28-1479 #28-1481 #28-1481 #30-1561 #30-1563 #30-1563 #30-1566 #30-1566 #30-1577 #30-1577
#30-1580 #30-1580 #30-1585 #30-1585 #30-1591 #30-1591 #32-1697 #32-1698 #32-1698 #32-1701
#32-1701 #32-1704 #32-1704 #32-1724 #32-1724 #32-1727 #32-1727 #32-1731 #32-1731 #34-1806
#34-1809 #34-1809 #34-1815 #34-1815 #34-1819 #34-1819 #34-1819 #34-1828 #34-1828 #34-1839
#34-1839 #34-1849 #34-1849
$$SYS #5-136 #7-196 #9-319 #11-414 #13-500 #15-581 #16-678 #18-784 #19-958 #21-1012
#23-1191 #25-1357 #26-1424 #28-1479 #30-1561 #32-1697 #34-1806
$$TRCE #5-136 5-136 5-140 #7-196 7-196 7-247 #9-319 9-319 9-342 #11-414
11-414 11-434 #13-500 13-500 13-525 #15-581 15-581 15-624 #16-678 16-678
16-683 #18-784 18-784 18-905 #19-958 19-958 19-963 #21-1012 21-1012 21-1090
#23-1191 23-1191 23-1312 #25-1357 25-1357 25-1378 #26-1424 26-1424 26-1433 #28-1479
28-1479 28-1486 #30-1561 30-1561 30-1599 #32-1697 32-1697 32-1752 #34-1806 34-1806
34-1860