Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/tstest.list
There are no other files named tstest.list in the archive.
TSTEST MACRO M1110 13-OCT-79 12:59
TABLE OF CONTENTS
8- 52 TSABRT
9- 114 TSBLBK
11- 181 TSFINI
13- 306 TSINIT
15- 402 TSLINE
18- 570 TSNODE
22- 787 TSPARS
24- 987 TSTEST
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 3
1 .TITLE TSTEST
2 .IDENT /V01.00/
3 ;
4 ; COPYRIGHT (C) 1978 BY
5 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
6 ;
7 ;
8 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
9 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
10 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
11 ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
12 ; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
13 ; TRANSFERRED.
14 ;
15 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
16 ; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
17 ; CORPORATION.
18 ;
19 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
20 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
21 ;
22 ;
23 ; MODULE DESCRIPTION:
24 ;
25 ; NCU TEST PROCESSOR
26 ;
27 ;
28 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
29 ;
30 ; IDENT HISTORY:
31 ;
32 ; 1.00 10-FEB-78
33 ; VERSION 2.0 RELEASE
34 ;
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 4
36 ;
37 ; +-------------------------------------------------+
38 ; I I
39 ; I T E S T I
40 ; I - - - - I
41 ; I I
42 ; +-------------------------------------------------+
43 ;
44 ; FUNCTION:
45 ;
46 ; NICE PROCESS TEST PROCESSOR
47 ;
48 ; EXTERNAL STRUCTURING MACROS
49 ;
50 .MCALL PROC,PROCLC
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 5
TSABRT
52 .SBTTL TSABRT
53 ;
54 ;======================================================================;
55 ;++
56 ; +-------------------------------------------------+
57 ; I I
58 ; I T S A B R T I
59 ; I - - - - - - I
60 ; I I
61 ; +-------------------------------------------------+
62 ;
63 ; FUNCTION:
64 ;
65 ; TEST PROCESSOR MODULE TO ABORT THE PROCESS
66 ;
67 ; INPUT:
68 ;
69 ; R0 - NICE ERROR RETURN CODE
70 ; R4 - ADDRESS OF CONTEXT BLOCK
71 ; R5 - ADDRESS OF CONTROL BLOCK
72 ;
73 ; OUTPUT:
74 ;
75 ; @R4 - UPDATED CONTEXT
76 ; RETCOD - NICE ERROR RETURN CODE
77 ; STATE - FINISH STATE
78 ; @R5 - UPDATED CONTROL BLOCK
79 ; C.FUNC - CLEAR
80 ;
81 ; REQUIREMENTS:
82 ;
83 ; TEST SYMBOLS:
84 ;
85 ; FINISH - STATE VALUE FOR FINISH
86 ; RETCOD - OFFSET OF RETURN CODE IN CONTEXT
87 ; STATE - OFFSET OF STATE IN CONTEXT
88 ;
89 ; CONTROL BLOCK SYMBOLS:
90 ;
91 ; C.FUNC - OFFSET OF FUNCTION CODE
92 ;
93 ;--
94 ;======================================================================;
95 ;
96 ;
97 ; EXTERNAL MACROS
98 ;
99 .MCALL TSDF,CONDF
100 ;
101 ; DEFINE EXTERNAL SYMBOLS
102 ;
103 000000 TSDF ;TEST SYMBOLS
104 000000 CONDF ;CONTROL BLOCK SYMBOLS
105 ;
106 ; LOCAL PROCEDURE BODY
107 ;
108 000000 PROCLC TSABRT
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 5-1
TSABRT
109 000000 110064 000015 MOVB R0,RETCOD(R4) ;SET RETURN CODE FOR LATER
110 000004 105065 000006 CLRB C.FUNC(R5) ;INITIALIZE FOR NEXT STEP
111 000010 112764 000003 000014 MOVB #FINISH,STATE(R4) ;START THE TERMINATION
112 000016 ENDPROC
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 6
TSBLBK
114 .SBTTL TSBLBK
115 ;
116 ;======================================================================;
117 ;++
118 ; +-------------------------------------------------+
119 ; I I
120 ; I T S B L B K I
121 ; I - - - - - - I
122 ; I I
123 ; +-------------------------------------------------+
124 ;
125 ; FUNCTION:
126 ;
127 ; TEST PROCESSOR MODULE TO BUILD A TEST DATA BLOCK
128 ;
129 ; INPUT:
130 ;
131 ; R1 - ADDRESS OF AREA TO BUILD IN
132 ; R4 - ADDRESS OF CONTEXT BLOCK
133 ; BLKLEN - LENGTH OF TEST BLOCK
134 ; BLKTYP - TYPE OF TEST BLOCK
135 ;
136 ; OUTPUT:
137 ;
138 ; R1 - ADDRESS OF NEXT BYTE IN TEST BLOCK BUFFER
139 ;
140 ; REQUIREMENTS:
141 ;
142 ; TEST SYMBOLS:
143 ;
144 ; BLKLEN - OFFSET OF TEST BLOCK LENGTH IN CONTEXT
145 ; BLKTYP - OFFSET OF TEST BLOCK TYPE
146 ;
147 ;--
148 ;======================================================================;
149 ;
150 ;
151 ; EXTERNAL MACROS
152 ;
153 .MCALL TSDF
154 ;
155 ; DEFINE EXTERNAL SYMBOLS
156 ;
157 000020 TSDF ;TEST SYMBOLS
158 ;
159 ; DEFINE READ/ONLY STORAGE
160 ;
161 ; TEST PATTERNS, INDEXED BY TYPE
162 ;
163 000020 TESPAT:
164 ;
165 000020 000 .BYTE 0 ;TYPE 0, ZEROS
166 000021 377 .BYTE 377 ;TYPE 1, ONES
167 000022 125 .BYTE 125 ;TYPE 2, MIXED ( 01010101 )
168 ;
169 .EVEN
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 7
TSBLBK
171 ;
172 ; LOCAL PROCEDURE BODY
173 ;
174 000024 PROCLC TSBLBK
175 000024 116400 000032 MOVB BLKTYP(R4),R0 ;GET BLOCK TYPE
176 000030 116000 000020' MOVB TESPAT(R0),R0 ;GET TEST PATTERN BYTE
177 000034 016402 000012 MOV BLKLEN(R4),R2 ;LENGTH OF TEST BLOCK
178 000040 CALL SPRAY ;BUILD A TEST BLOCK
179 000044 ENDPROC
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 8
TSFINI
181 .SBTTL TSFINI
182 ;
183 ;======================================================================;
184 ;++
185 ; +-------------------------------------------------+
186 ; I I
187 ; I T S F I N I I
188 ; I - - - - - - I
189 ; I I
190 ; +-------------------------------------------------+
191 ;
192 ; FUNCTION:
193 ;
194 ; TEST PROCESSOR MODULE TO FINISH UP THE PROCESS
195 ;
196 ; INPUT:
197 ;
198 ; R4 - ADDRESS OF CONTEXT BLOCK
199 ; CMLKNM - LINK NUMBER OF COMMAND LINK
200 ; COUNT - NUMBER OF UNTRANSMITTED TEST MESSAGES
201 ; LPLKNM - LINK NUMBER OF LOOP LINK
202 ; MSGADR - ADDRESS OF EXTRA MESSAGE BUFFER
203 ; RETCOD - NICE RETURN CODE
204 ; R5 - ADDRESS OF CONTROL BLOCK
205 ; C.ADDR - ADDRESS OF ORIGINAL MESSAGE BUFFER
206 ; C.CTXT - ADDRESS OF CONTEXT BLOCK
207 ; C.FUNC - ON INITIAL ENTRY, ZERO; ON COMPLETION ENTRIES, FUNCTION
208 ; JUST PERFORMED
209 ;
210 ; OUTPUT:
211 ;
212 ; @R4 - UPDATED CONTEXT
213 ; LPLKNM - ZERO WHEN CLOSED
214 ; MSGADR - ZERO WHEN RELEASED
215 ; @R5 - UPDATED CONTROL BLOCK
216 ; C.ADDR - ADDRESS OF MESSAGE TO TRANSMIT OR BUFFER TO RELEASE
217 ; C.CTXT - ZERO WHEN CONTEXT BEING RELEASED
218 ; C.FUNC - FUNCTION TO PERFORM
219 ; C.LEN - LENGTH OF MESSAGE TO TRANSMIT
220 ; C.LKNM - LINK TO CLOSE, THEN LINK TO TRANSMIT ON
221 ;
222 ; REQUIREMENTS:
223 ;
224 ; TEST SYMBOLS:
225 ;
226 ; CMLKNM - OFFSET OF COMMAND LINK NUMBER IN CONTEXT
227 ; COUNT - OFFSET OF UNTRANSMITTED TEST MESSAGE COUNT IN CONTEXT
228 ; LPLKNM - OFFSET OF LOOP LINK NUMBER IN CONTEXT
229 ; MSGADR - OFFSET OF EXTRA MESSAGE BUFFER ADDRESS IN CONTEXT
230 ; RETCOD - OFFSET OF NICE RETURN CODE IN CONTEXT
231 ;
232 ; CONTROL BLOCK SYMBOLS:
233 ;
234 ; C.ADDR - OFFSET OF ADDRESS FIELD
235 ; C.CTXT - OFFSET OF CONTEXT FIELD
236 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
237 ; C.LEN - OFFSET OF LENGTH FIELD
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 8-1
TSFINI
238 ; C.LKNM - OFFSET OF LINK NUMBER FIELD
239 ; C$CLLK - CLOSE LINK FUNCTION CODE
240 ; C$RLBF - RELEASE BUFFER FUNCTION CODE
241 ; C$TRMS - TRANSMIT MESSAGE FUNCTION CODE
242 ;
243 ;--
244 ;======================================================================;
245 ;
246 ; EXTERNAL MACROS
247 ;
248 .MCALL TSDF,CONDF
249 ;
250 ; DEFINE EXTERNAL SYMBOLS
251 ;
252 000046 TSDF ;TEST SYMBOLS
253 000046 CONDF ;CONTROL BLOCK SYMBOLS
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 9
TSFINI
255 ;
256 ; LOCAL PROCEDURE BODY
257 ;
258 000046 PROCLC TSFINI
259 000046 IF ; FUNCTION CODE = 0
260 000046 FALSEB SET C.FUNC(R5)
261 000054 THEN
262 000054 IF ; LOOP LINK OPEN
263 000054 FALSE CLEAR LPLKNM(R4)
264 000062 THEN
265 000062 016465 000002 000020 MOV LPLKNM(R4),C.LKNM(R5) ;PUT LINK NUMBER IN CONTROL BLOCK
266 000070 112765 177726 000006 MOVB #-C$CLLK,C.FUNC(R5) ;SET FUNCTION CODE TO CLOSE LINK
267 000076 ELSE
268 000100 112765 000052 000006 MOVB #C$CLLK,C.FUNC(R5) ;LOOK LIKE LINK JUST CLOSED
269 000106 ENDIF
270 000106 ENDIF
271 000106 IF ; FUNCTION CODE = CLOSE LINK
272 000106 FALSEB NE C.FUNC(R5),#C$CLLK
273 000116 THEN
274 000116 005064 000002 CLR LPLKNM(R4) ;MARK LINK CLOSED
275 000122 016502 000014 MOV C.ADDR(R5),R2 ;GET ADDRESS OF MESSAGE BUFFER
276 000126 116422 000015 MOVB RETCOD(R4),(R2)+ ;PUT RETURN CODE IN MESSAGE
277 000132 116422 000004 MOVB COUNT(R4),(R2)+ ;PUT LOW BYTE OF COUNT IN MESSAGE
278 000136 116422 000005 MOVB COUNT+1(R4),(R2)+ ;LIKEWISE HIGH BYTE
279 000142 166502 000014 SUB C.ADDR(R5),R2 ;COMPUTE LENGTH OF MESSAGE
280 000146 010265 000012 MOV R2,C.LEN(R5) ;SET LENGTH OF MESSAGE
281 000152 016465 000000 000020 MOV CMLKNM(R4),C.LKNM(R5) ;SET COMMAND LINK NUMBER
282 000160 112765 177725 000006 MOVB #-C$TRMS,C.FUNC(R5) ;SET FUNCTION CODE TO TRANSMIT MESSAGE
283 000166 ENDIF
284 000166 IF ; FUNCTION CODE = TRANSMIT MESSAGE
285 000166 FALSEB NE C.FUNC(R5),#C$TRMS
286 000176 THEN
287 000176 112765 177777 000006 MOVB #-C$RLBF,C.FUNC(R5) ;RELEASE THE MESSAGE BUFFER
288 000204 ENDIF
289 000204 IF ; FUNCTION CODE = RELEASE BUFFER
290 000204 FALSEB NE C.FUNC(R5),#C$RLBF
291 000214 THEN
292 000214 IF ; MESSAGE BUFFER ALLOCATED
293 000214 FALSE CLEAR MSGADR(R4)
294 000222 THEN
295 000222 016465 000006 000014 MOV MSGADR(R4),C.ADDR(R5) ;PUT ADDRESS IN CONTROL BLOCK
296 000230 005064 000006 CLR MSGADR(R4) ;MARK AS GONE
297 000234 ELSE
298 000236 016565 000004 000014 MOV C.CTXT(R5),C.ADDR(R5) ;SET UP TO RELEASE CONTEXT BLOCK
299 000244 005065 000004 CLR C.CTXT(R5) ;NO MORE CONTEXT POINTER
300 000250 ENDIF
301 000250 105465 000006 NEGB C.FUNC(R5) ;RELEASE BUFFER AGAIN
302 000254 ENDIF
303 000254 105465 000006 NEGB C.FUNC(R5) ;FIX UP FUNCTION CODE
304 000260 ENDPROC
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 10
TSINIT
306 .SBTTL TSINIT
307 ;
308 ;======================================================================;
309 ;++
310 ; +-------------------------------------------------+
311 ; I I
312 ; I T S I N I T I
313 ; I - - - - - - I
314 ; I I
315 ; +-------------------------------------------------+
316 ;
317 ; FUNCTION:
318 ;
319 ; TEST PROCESSOR INITIALIZATION MODULE
320 ;
321 ; INPUT:
322 ;
323 ; R5 - ADDRESS OF CONTROL BLOCK
324 ; C.ADDR - ON INITIAL ENTRY, ADDRESS OF NICE MESSAGE BUFFER; ON
325 ; COMPLETION ENTRY, ADDRESS OF CONTEXT BLOCK
326 ; C.FUNC - ON INITIAL ENTRY, PROCESS FUNCTION CODE; ON COMPLETION
327 ; ENTRY, ALLOCATE BUFFER FUNCTION CODE
328 ; C.LEN - ON INITIAL ENTRY, LENGTH OF NICE MESSAGE
329 ; C.LKNM - COMMAND LINK NUMBER
330 ; C.SAVE - ON COMPLETION ENTRY, LENGTH AND ADDRESS OF NICE MESSAGE
331 ;
332 ; OUTPUT:
333 ;
334 ; R4 - ON FINAL RETURN, CONTEXT BLOCK ADDRESS
335 ; @R4 - ON FINAL RETURN, INITIALIZED CONTEXT
336 ; CMLKNM - COMMAND LINK NUMBER
337 ; OTHER FIELDS - AS INITIALIZED BY MODULE TSPARS, OTHERWISE ZERO
338 ; @R5 - UPDATED CONTROL BLOCK
339 ; C.ADDR - ON FINAL RETURN, ADDRESS OF NICE MESSAGE
340 ; C.CTXT - ON FINAL RETURN, ADDRESS OF CONTEXT BLOCK
341 ; C.FUNC - FUNCTION TO BE PERFORMED
342 ; C.LEN - ON ALLOCATION REQUEST, LENGTH TO ALLOCATE; ON FINAL
343 ; RETURN, LENGTH OF NICE MESSAGE
344 ; C.SAVE - ON ALLOCATION REQUEST, SAVED LENGTH AND ADDRESS OF NICE
345 ; MESSAGE
346 ;
347 ; REQUIREMENTS:
348 ;
349 ; TEST SYMBOLS:
350 ;
351 ; CMLKNM - OFFSET OF COMMAND LINK NUMBER IN CONTEXT
352 ; CTXTLN - LENGTH NEEDED FOR CONTEXT BLOCK
353 ;
354 ; CONTROL BLOCK SYMBOLS:
355 ;
356 ; C.ADDR - OFFSET OF ADDRESS FIELD
357 ; C.CTXT - OFFSET OF CONTEXT FIELD
358 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
359 ; C.LEN - OFFSET OF LENGTH FIELD
360 ; C.LKNM - OFFSET OF LINK NUMBER FIELD
361 ; C.SAVE - OFFSET OF SAVE FIELD
362 ; C$ALBF - ALLOCATE BUFFER FUNCTION CODE
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 10-1
TSINIT
363 ; C$PROC - PROCESS FUNCTION CODE
364 ;
365 ;--
366 ;======================================================================;
367 ;
368 ; EXTERNAL MACROS
369 ;
370 .MCALL CONDF,TSDF
371 ;
372 ; DEFINE EXTERNAL SYMBOLS
373 ;
374 000262 CONDF ;CONTROL BLOCK SYMBOLS
375 000262 TSDF ;TEST SYMBOLS
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 11
TSINIT
377 ;
378 ; LOCAL PROCEDURE BODY
379 ;
380 000262 PROCLC TSINIT
381 000262 IF ; CONTROL BLOCK FUNCTION CODE = PROCESS JOB
382 000262 FALSEB NE C.FUNC(R5),#C$PROC
383 000272 THEN
384 000272 016565 000012 000022 MOV C.LEN(R5),C.SAVE(R5) ;SAVE LENGTH OF MESSAGE
385 000300 016565 000014 000024 MOV C.ADDR(R5),C.SAVE+2(R5) ;SAVE ADDRESS OF MESSAGE
386 000306 012765 000033 000012 MOV #CTXTLN,C.LEN(R5) ;SET LENGTH OF CONTEXT BLOCK
387 000314 112765 000032 000006 MOVB #C$ALBF,C.FUNC(R5) ;ALLOCATE CONTEXT BLOCK
388 000322 ELSE ; MUST BE ALLOCATE MEMORY BUFFER
389 000324 016504 000014 MOV C.ADDR(R5),R4 ;GET CONTEXT BLOCK ADDRESS
390 000330 010465 000004 MOV R4,C.CTXT(R5) ;AND PUT IT IN CONTROL BLOCK
391 000334 005000 CLR R0 ;SET UP A ZERO TO SPRAY
392 000336 010401 MOV R4,R1 ;START AT BEGINNING OF CONTEXT
393 000340 012702 000033 MOV #CTXTLN,R2 ;NUMBER OF BYTES TO SPRAY
394 000344 CALL SPRAY ;ZERO THE CONTEXT BLOCK
395 000350 016564 000020 000000 MOV C.LKNM(R5),CMLKNM(R4) ;SAVE THE COMMAND LINK NUMBER
396 000356 016565 000022 000012 MOV C.SAVE(R5),C.LEN(R5) ;RESTORE SAVED LENGTH
397 000364 016565 000024 000014 MOV C.SAVE+2(R5),C.ADDR(R5) ;RESTORE SAVED MESSAGE ADDRESS
398 000372 CALL TSPARS ;PARSE MESSAGE TO CONTEXT
399 000376 ENDIF
400 000376 ENDPROC
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 12
TSLINE
402 .SBTTL TSLINE
403 ;
404 ;======================================================================;
405 ;++
406 ; +-------------------------------------------------+
407 ; I I
408 ; I T S L I N E I
409 ; I - - - - - - I
410 ; I I
411 ; +-------------------------------------------------+
412 ;
413 ; FUNCTION:
414 ;
415 ; TEST PROCESSOR MODULE TO CONDUCT A LINE TEST
416 ;
417 ; INPUT:
418 ;
419 ; R4 - ADDRESS OF CONTEXT BLOCK
420 ; COUNT - NUMBER OF BLOCKS TO LOOP
421 ; LINE - LINE ID OF LINE TO TEST
422 ; NODE - NODE LINE IS ON
423 ; R5 - ADDRESS OF CONTROL BLOCK
424 ; C.ADDR - ADDRESS OF INITIAL NICE MESSAGE BUFFER
425 ; C.FUNC - ON INITIAL ENTRY, ZERO; ON COMPLETION ENTRY, FUNCTION
426 ; COMPLETED
427 ; C.LEN - ON RECEIVE COMPLETION, LENGTH OF RECEIVED MESSAGE
428 ; C.LKNM - ON OPEN LINK COMPLETION, LINK NUMBER OF LOOP LINK
429 ; C.RET - ON SERVICE COMPLETION, SERVICE RETURN CODE
430 ;
431 ; OUTPUT:
432 ;
433 ; @R4 - UPDATED CONTEXT
434 ; LPLKNM - LOOP LINK NUMBER IF OPENED
435 ; COUNT - NUMBER OF MESSAGES NOT LOOPED
436 ; OTHER FIELDS - ON FINAL RETURN, AS DESCRIBED FOR MODULE TSABRT
437 ; @R5 - UPDATED CONTROL BLOCK
438 ; C.ADDR - ADDRESS OF INITIAL NICE MESSAGE BUFFER
439 ; @C.ADDR - ON TRANSMIT REQUEST, NICE MESSAGE TO LINE SERVICE LOOP;
440 ; ON RECEIVE REQUEST, SPACE FOR NICE RESPONSE
441 ; C.FUNC - FUNCTION TO BE PERFORMED
442 ; C.LEN - ON RECEIVE REQUEST, LENGTH OF BUFFER
443 ;
444 ; REQUIREMENTS:
445 ;
446 ; TEST SYMBOLS:
447 ;
448 ; COUNT - OFFSET OF COUNT IN CONTEXT
449 ; LINE - OFFSET OF LINE IN CONTEXT
450 ; LPLKNM - OFFSET OF LOOP LINK NUMBER IN CONTEXT
451 ; NODE - OFFSET OF NODE NAME IN CONTEXT
452 ;
453 ; NICE MESSAGE SYMBOLS:
454 ;
455 ; LI$STA - TYPE CODE FOR STANDARD LINE ID
456 ; LS$LOO - OPTION CODE FOR LINE SERVICE LOOP OPTION
457 ; NE$NCO - NETWORK COMMUNICATIONS ERROR RETURN CODE
458 ; NE$NOD - NODE NAME ERROR CODE
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 12-1
TSLINE
459 ; N.MLEN - MAXIMUM LENGTH OF A NICE MESSAGE
460 ; N$LNSR - LINE SERVICE FUNCTION CODE
461 ;
462 ; CONTROL BLOCK SYMBOLS
463 ;
464 ; C.ADDR - OFFSET OF ADDRESS FIELD
465 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
466 ; C.LEN - OFFSET OF LENGTH FIELD
467 ; C.LKNM - OFFSET OF LINK NUMBER FIELD
468 ; C.RET - OFFSET OF RETURN CODE FIELD
469 ; C$OPLK - OPEN LINK FUNCTION CODE
470 ; C$RCMS - RECEIVE MESSAGE FUNCTION CODE
471 ; C$TRMS - TRANSMIT MESSAGE FUNCTION CODE
472 ;
473 ;--
474 ;======================================================================;
475 ;
476 ;
477 ; EXTERNAL MACROS
478 ;
479 .MCALL TSDF,CONDF,NICDF,SAVSTK,RESSTK
480 ;
481 ; DEFINE EXTERNAL SYMBOLS
482 ;
483 000400 TSDF ;TEST SYMBOLS
484 000400 CONDF ;CONTROL BLOCK SYMBOLS
485 000400 NICDF ;NICE MESSAGE SYMBOLS
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 13
TSLINE
487 ;
488 ; LOCAL PROCEDURE BODY
489 ;
490 000400 PROCLC TSLINE
491 000400 IF ; FUNCTION CODE = 0
492 000400 FALSEB SET C.FUNC(R5)
493 000406 THEN
494 000406 012700 000017 MOV #NODE,R0 ;OFFSET OF NODE NAME IMAGE IN CONTEXT
495 000412 060400 ADD R4,R0 ;MAKE IT AN ADDRESS
496 000414 CALL BLCNBK ;BUILD A CONNECT BLOCK
497 000420 112765 177727 000006 MOVB #-C$OPLK,C.FUNC(R5) ;SET FUNCTION CODE TO OPEN LINK
498 000426 ENDIF
499 000426 IF ; FUNCTION CODE = OPEN LINK
500 000426 FALSEB NE C.FUNC(R5),#C$OPLK
501 000436 THEN
502 000436 IF ; SUCCESS
503 000436 FALSEB LT C.RET(R5)
504 000444 THEN
505 000444 016564 000020 000002 MOV C.LKNM(R5),LPLKNM(R4) ;SET LOOP LINK NUMBER IN CONTEXT
506 000452 016502 000014 MOV C.ADDR(R5),R2 ;GET BUFFER ADDRESS
507 000456 112722 000016 MOVB #N$LNSR,(R2)+ ;NICE FUNCTION CODE FOR LINE SERVICE
508 000462 112722 000001 MOVB #LS$LOO,(R2)+ ;LOOP OPTION
509 000466 112722 000001 MOVB #LI$STA,(R2)+ ;LINE ID FORMAT = STANDARD
510 000472 012700 000026 MOV #LINE,R0 ;OFFSET OF LINE ID IN CONTEXT
511 000476 060400 ADD R4,R0 ;MAKE IT A SOURCE ADDRESS
512 000500 012701 000004 MOV #4,R1 ;LENGTH OF LINE ID
513 000504 CALL MOVE ;MOVE LINE ID TO MESSAGE
514 000510 116422 000004 MOVB COUNT(R4),(R2)+ ;LOW BYTE OF REQUESTED LOOP COUNT
515 000514 116422 000005 MOVB COUNT+1(R4),(R2)+ ;AND HIGH BYTE
516 000520 010201 MOV R2,R1 ;CHANGE REGISTER CONVENTION
517 000522 CALL TSBLBK ;BUILD TEST BLOCK
518 000526 166501 000014 SUB C.ADDR(R5),R1 ;COMPUTE LENGTH OF MESSAGE
519 000532 010165 000012 MOV R1,C.LEN(R5) ;PUT IT IN CONTROL BLOCK
520 000536 112765 177725 000006 MOVB #-C$TRMS,C.FUNC(R5) ;TRANSMIT LINE SERVICE REQUEST
521 000544 ELSE
522 000546 012700 177765 MOV #NE$NOD,R0 ;ASSUME ERROR IN NODE NAME
523 000552 CALL TSABRT ;AND GIVE UP
524 000556 ENDIF
525 000556 ENDIF
526 000556 IF ; FUNCTION CODE = TRANSMIT MESSAGE
527 000556 FALSEB NE C.FUNC(R5),#C$TRMS
528 000566 THEN
529 000566 IF ; SUCCESS
530 000566 FALSEB LT C.RET(R5)
531 000574 THEN
532 000574 012765 000454 000012 MOV #N.MLEN,C.LEN(R5) ;LENGTH OF RECEIVE BUFFER
533 000602 112765 177724 000006 MOVB #-C$RCMS,C.FUNC(R5) ;SET FUNCTION CODE TO RECEIVE MESSAGE
534 000610 ELSE
535 000612 012700 177755 MOV #NE$NCO,R0 ;NETWORK COMMUNICATION ERROR
536 000616 CALL TSABRT ;GO AWAY
537 000622 ENDIF
538 000622 ENDIF
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 14
TSLINE
540 000622 IF ; FUNCTION CODE = RECEIVE MESSAGE
541 000622 FALSEB NE C.FUNC(R5),#C$RCMS
542 000632 THEN
543 000632 IF ; SUCCESS
544 000632 FALSEB LT C.RET(R5)
545 000640 THEN
546 000640 SAVSTK <R3> ;SAVE REGISTER
547 000642 016503 000014 MOV C.ADDR(R5),R3 ;ADDRESS OF MESSAGE
548 000646 010302 MOV R3,R2 ;COPY IT
549 000650 066503 000012 ADD C.LEN(R5),R3 ;COMPUTE END ADDRESS
550 000654 005202 INC R2 ;MOVE PAST RETURN CODE
551 000656 CALL GTMSWD ;GET ERROR COUNT
552 000662 IF ; SUCCESS
553 000662 FALSE CS
554 000664 THEN
555 000664 010064 000004 MOV R0,COUNT(R4) ;SET NUMBER NOT LOOPED
556 000670 ELSE
557 000672 005064 000004 CLR COUNT(R4) ;NUMBER NOT LOOP IS ZERO
558 000676 000241 CLC ;SET SUCCESS
559 000700 ENDIF
560 000700 RESSTK <R3> ;RESTORE REGISTER
561 000702 117500 000014 MOVB @C.ADDR(R5),R0 ;GET NICE RETURN CODE
562 000706 ELSE
563 000710 012700 177755 MOV #NE$NCO,R0 ;NETWORK COMMUNICATIONS ERROR
564 000714 ENDIF
565 000714 CALL TSABRT ;ALL DONE IN ANY CASE
566 000720 ENDIF
567 000720 105465 000006 NEGB C.FUNC(R5) ;FIX UP FUNCTION CODE
568 000724 ENDPROC
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 15
TSNODE
570 .SBTTL TSNODE
571 ;
572 ;======================================================================;
573 ;++
574 ; +-------------------------------------------------+
575 ; I I
576 ; I T S N O D E I
577 ; I - - - - - - I
578 ; I I
579 ; +-------------------------------------------------+
580 ;
581 ; FUNCTION:
582 ;
583 ; TEST PROCESSOR MODULE TO DO A LOOP TEST TO A NODE
584 ;
585 ; INPUT:
586 ;
587 ; R4 - ADDRESS OF CONTEXT BLOCK
588 ; COUNT - NUMBER OF MESSAGES TO LOOP
589 ; MSGADR - ADDRESS OF PROTOTYPE TEST MESSAGE
590 ; MSGLEN - LENGTH OF PROTOTYPE TEST MESSAGE
591 ; NODE - NODE TO LOOP TO
592 ; R5 - ADDRESS OF CONTROL BLOCK
593 ; C.ADDR - ADDRESS OF MESSAGE BUFFER
594 ; C.FUNC - ON INITIAL ENTRY, ZERO; ON COMPLETION ENTRY, FUNCTION
595 ; JUST PERFORMED
596 ; C.LEN - ON RECEIVE COMPLETION, LENGTH OF MESSAGE RECEIVED
597 ; C.LKNM - ON OPEN LINK COMPLETION, LOOP LINK NUMBER
598 ; C.RET - ON COMPLETION ENTRY, SERVICE RETURN CODE
599 ;
600 ; OUTPUT:
601 ;
602 ; @R4 - UPDATED CONTEXT
603 ; COUNT - NUMBER OF MESSAGES LEFT TO LOOP
604 ; LPLKNM - LOOP LINK NUMBER
605 ; MSGADR - ADDRESS OF PROTOTYPE TEST MESSAGE
606 ; MSGLEN - LENGTH OF PROTOTYPE TEST MESSAGE
607 ; @R5 - UPDATED CONTROL BLOCK
608 ; C.ADDR - ADDRESS OF MESSAGE BUFFER
609 ; C.FUNC - FUNCTION TO PERFORM
610 ; C.LEN - ON TRANSMIT REQUEST, LENGTH TO TRANSMIT; ON ALLOCATE
611 ; BUFFER REQUEST, LENGTH TO ALLOCATE; ON RECEIVE REQUEST,
612 ; LENGTH OF BUFFER
613 ;
614 ; REQUIREMENTS:
615 ;
616 ; TEST SYMBOLS:
617 ;
618 ; COUNT - OFFSET OF LOOP COUNT IN CONTEXT
619 ; LPLKNM - OFFSET OF LOOP LINK NUMBER IN CONTEXT
620 ; MSGADR - OFFSET OF PROTOTYPE TEST MESSAGE IN CONTEXT
621 ; MSGLEN - OFFSET OF PROTOTYPE TEST MESSAGE LENGTH IN CONTEXT
622 ; NODE - OFFSET OF LOOP NODE IN CONTEXT
623 ;
624 ; NICE MESSAGE SYMBOLS:
625 ;
626 ; NE$NCO - NETWORK COMMUNICATIONS ERROR RETURN CODE
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 15-1
TSNODE
627 ; NE$NIC - REMOTE NICE OBJECT UNAVAILABLE ERROR RETURN CODE
628 ; NE$NOD - NODE NAME ERROR RETURN CODE
629 ; NE$RES - RESOURCE ERROR CODE
630 ; NS$SUC - SUCCESS RETURN CODE
631 ; N.MLEN - MAXIMUM LENGTH OF A NICE MESSAGE
632 ; N$LOOP - LOOPBACK FUNCTION CODE
633 ;
634 ; CONTROL BLOCK SYMBOLS:
635 ;
636 ; C.ADDR - OFFSET OF ADDRESS FIELD
637 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
638 ; C.LEN - OFFSET OF LENGTH FIELD
639 ; C.LKNM - OFFSET OF LINK NUMBER FIELD
640 ; C.RET - OFFSET OF RETURN CODE FIELD
641 ; C$ALBF - ALLOCATE BUFFER FUNCTION CODE
642 ; C$OPLK - OPEN LINK FUNCTION CODE
643 ; C$RCMS - RECEIVE MESSAGE FUNCTION CODE
644 ; C$TRMS - TRANSMIT MESSAGE FUNCTION CODE
645 ; CE$NOD - INVALID NODE ID ERROR RETURN
646 ; CE$NOD - OBJECT DOESN'T EXIST ERROR RETURN
647 ; CE$REJ - REJECTED ERROR RETURN
648 ;
649 ;--
650 ;======================================================================;
651 ;
652 ; EXTERNAL MACROS
653 ;
654 .MCALL TSDF,CONDF,NICDF
655 ;
656 ; DEFINE EXTERNAL SYMBOLS
657 ;
658 000726 TSDF ;TEST SYMBOLS
659 000726 CONDF ;CONTROL BLOCK SYMBOLS
660 000726 NICDF ;NICE MESSAGE SYMBOLS
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 16
TSNODE
662 ;
663 ; LOCAL PROCEDURE BODY
664 ;
665 000726 PROCLC TSNODE
666 000726 IF ; FUNCTION CODE = 0
667 000726 FALSEB SET C.FUNC(R5)
668 000734 THEN
669 000734 012700 000017 MOV #NODE,R0 ;OFFSET OF NODE NAME IMAGE IN CONTEXT
670 000740 060400 ADD R4,R0 ;MAKE IT AN ADDRESS
671 000742 CALL BLCNBK ;BUILD A CONNECT BLOCK
672 000746 112765 177727 000006 MOVB #-C$OPLK,C.FUNC(R5) ;SET FUNCTION CODE TO OPEN LINK
673 000754 ENDIF
674 000754 IF ; FUNCTION CODE = OPEN LINK
675 000754 FALSEB NE C.FUNC(R5),#C$OPLK
676 000764 THEN
677 000764 IF ; SUCCESS
678 000764 FALSEB LT C.RET(R5)
679 000772 THEN
680 000772 016564 000020 000002 MOV C.LKNM(R5),LPLKNM(R4) ;SET LOOP LINK NUMBER IN CONTEXT
681 001000 016501 000014 MOV C.ADDR(R5),R1 ;GET BUFFER ADDRESS
682 001004 010164 000006 MOV R1,MSGADR(R4) ;SET LOOP MESSAGE ADDRESS IN CONTEXT
683 001010 112721 000005 MOVB #N$LOOP,(R1)+ ;NICE FUNCTION CODE TO LOOP
684 001014 105021 CLRB (R1)+ ;ZERO OPTION FIELD
685 001016 CALL TSBLBK ;BUILD TEST BLOCK
686 001022 166501 000014 SUB C.ADDR(R5),R1 ;COMPUTE LENGTH OF LOOP MESSAGE
687 001026 010164 000010 MOV R1,MSGLEN(R4) ;SAVE IT IN CONTEXT
688 001032 012765 000454 000012 MOV #N.MLEN,C.LEN(R5) ;LENGTH OF A NICE MESSAGE BUFFER
689 001040 112765 177746 000006 MOVB #-C$ALBF,C.FUNC(R5) ;ALLOCATE A TRANSMIT/RECEIVE BUFFER
690 001046 ELSE
691 001050 ONCASE ; ERROR RETURN CODE
692 001050 116500 000010 MOVB C.RET(R5),R0
693 001054 CASE ; INVALID NODE ID
694 001054 FALSE NE R0,#CE$NOD
695 001062 DO
696 001062 012700 177765 MOV #NE$NOD,R0 ;INVALID NODE ID
697 001066 CASE ; OBJECT DOESN'T EXIST
698 001070 FALSE NE R0,#CE$OBJ
699 001076 DO
700 001076 012700 177753 MOV #NE$NIC,R0 ;NICE PROCESS UNAVAILABLE
701 001102 CASE ; REJECTED
702 001104 FALSE NE R0,#CE$REJ
703 001112 DO
704 001112 012700 177761 MOV #NE$RES,R0 ;RESOURCE ERROR
705 001116 ELSE
706 001120 012700 177755 MOV #NE$NCO,R0 ;NETWORK COMMUNICATION ERROR
707 001124 ENDCASE
708 001124 CALL TSABRT ;GIVE UP
709 001130 ENDIF
710 001130 ENDIF
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 17
TSNODE
712 001130 IF ; FUNCTION CODE = RECEIVE MESSAGE
713 001130 FALSEB NE C.FUNC(R5),#C$RCMS
714 001140 THEN
715 001140 IF ; SUCCESS AND LENGTH RECEIVED = LENGTH SENT - 1
716 001140 FALSEB LT C.RET(R5)
717 001146 016400 000010 MOV MSGLEN(R4),R0 ;LENGTH SENT
718 001152 005300 DEC R0 ;-1
719 001154 FALSE NE C.LEN(R5),R0
720 001162 THEN
721 001162 IF ; NICE SUCCESS
722 001162 016500 000014 MOV C.ADDR(R5),R0 ;ADDRESS OF MESSAGE BUFFER
723 001166 FALSEB NE (R0)+,#NS$SUC
724 001174 THEN
725 001174 016401 000006 MOV MSGADR(R4),R1 ;ADDRESS OF MESSAGE SENT
726 001200 062701 000002 ADD #2,R1 ;MOVE PAST FUNCTION CODE AND OPTION
727 001204 016502 000012 MOV C.LEN(R5),R2 ;LENGTH RECEIVED
728 001210 005302 DEC R2 ;DON'T INCLUDE RETURN CODE
729 001212 WHILE ; COUNT > 0 AND TRANSMIT BYTE = RECEIVE BYTE
730 001212 FALSE LE R2
731 001216 FALSEB NE (R0)+,(R1)+
732 001222 DO
733 001222 005302 DEC R2 ;DECREMENT COUNT
734 001224 ENDWHILE
735 001226 IF ; MESSAGES MATCH
736 001226 FALSE SET R2
737 001232 THEN
738 001232 005364 000004 DEC COUNT(R4) ;DECREMENT NUMBER TO LOOP
739 001236 IF ; NUMBER TO LOOP > 0
740 001236 FALSE LE COUNT(R4)
741 001244 THEN
742 001244 112765 000032 000006 MOVB #C$ALBF,C.FUNC(R5) ;SIGNAL TO TRANSMIT ANOTHER
743 001252 ELSE
744 001254 012700 000001 MOV #NS$SUC,R0 ;SUCCESS!
745 001260 CALL TSABRT ;SO QUIT
746 001264 ENDIF
747 001264 ELSE
748 001266 012700 177755 MOV #NE$NCO,R0 ;NETWORK COMMUNICATIONS ERROR
749 001272 CALL TSABRT ;BLOW UP
750 001276 ENDIF
751 001276 ELSE
752 001300 117500 000014 MOVB @C.ADDR(R5),R0 ;PASS ON THE NICE ERROR CODE
753 001304 CALL TSABRT ;BAG IT
754 001310 ENDIF
755 001310 ELSE
756 001312 012700 177755 MOV #NE$NCO,R0 ;NETWORK COMMUNICATIONS ERROR
757 001316 CALL TSABRT ;NO GO
758 001322 ENDIF
759 001322 ENDIF
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 18
TSNODE
761 001322 IF ; FUNCTION CODE = ALLOCATE BUFFER
762 001322 FALSEB NE C.FUNC(R5),#C$ALBF
763 001332 THEN
764 001332 016400 000006 MOV MSGADR(R4),R0 ;ADDRESS OF LOOP MESSAGE
765 001336 016401 000010 MOV MSGLEN(R4),R1 ;LENGTH OF LOOP MESSAGE
766 001342 010165 000012 MOV R1,C.LEN(R5) ;SET LENGTH TO TRANSMIT
767 001346 016502 000014 MOV C.ADDR(R5),R2 ;ADDRESS OF TRANSMIT/RECEIVE BUFFER
768 001352 CALL MOVE ;SET UP BUFFER WITH MESSAGE TO TRANSMIT
769 001356 112765 177725 000006 MOVB #-C$TRMS,C.FUNC(R5) ;SET FUNCTION CODE TO TRANSMIT MESSAGE
770 001364 ENDIF
771 001364 IF ; FUNCTION CODE = TRANSMIT MESSAGE
772 001364 FALSEB NE C.FUNC(R5),#C$TRMS
773 001374 THEN
774 001374 IF ; SUCCESS
775 001374 FALSEB LT C.RET(R5)
776 001402 THEN
777 001402 012765 000454 000012 MOV #N.MLEN,C.LEN(R5) ;LENGTH OF RECEIVE BUFFER
778 001410 112765 177724 000006 MOVB #-C$RCMS,C.FUNC(R5) ;SET FUNCTION CODE TO RECEIVE MESSAGE
779 001416 ELSE
780 001420 012700 177755 MOV #NE$NCO,R0 ;NETWORK COMMUNICATION ERROR
781 001424 CALL TSABRT ;GO AWAY
782 001430 ENDIF
783 001430 ENDIF
784 001430 105465 000006 NEGB C.FUNC(R5) ;FIX UP FUNCTION CODE
785 001434 ENDPROC
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 19
TSPARS
787 .SBTTL TSPARS
788 ;
789 ;======================================================================;
790 ;++
791 ; +-------------------------------------------------+
792 ; I I
793 ; I T S P A R S I
794 ; I - - - - - - I
795 ; I I
796 ; +-------------------------------------------------+
797 ;
798 ; FUNCTION:
799 ;
800 ; TEST PROCESSOR MODULE TO PARSE THE NICE COMMAND MESSAGE
801 ;
802 ; INPUT:
803 ;
804 ; R4 - ADDRESS OF CONTEXT BLOCK
805 ; R5 - ADDRESS OF CONTROL BLOCK
806 ; C.ADDR - ADDRESS OF NICE MESSAGE
807 ; C.LEN - LENGTH OF NICE MESSAGE
808 ;
809 ; OUTPUT:
810 ;
811 ; @R4 - UPDATED CONTEXT
812 ; BLKLEN - LENGTH OF TEST BLOCK
813 ; BLKTYP - TYPE OF TEST BLOCK
814 ; COUNT - NUMBER OF TEST BLOCKS TO LOOP
815 ; LINE - LINE TO TEST
816 ; NODE - NODE TO LOOP TO, OR NODE LINE IS ON
817 ; STATE - NEXT STATE FOR PROCESS
818 ; @R5 - UPDATED CONTROL BLOCK
819 ; C.FUNC - ZERO OR AS SPECIFIED FOR MODULE TSABRT
820 ;
821 ; REQUIREMENTS:
822 ;
823 ; TEST SYMBOLS:
824 ;
825 ; LINTES - LINE TEST STATE VALUE
826 ; MXBKLN - MAXIMUM TEST BLOCK LENGTH
827 ; MXBKTY - MAXIMUM TEST BLOCK TYPE VALUE
828 ; NODLEN - MAXIMUM LENGTH OF A NODE NAME
829 ; NODTES - NODE TEST STATE VALUE
830 ; TESLIN - LINE TEST NICE MESSAGE OPTION
831 ; TESNOD - NODE TEST NICE MESSAGE OPTION
832 ;
833 ; NICE MESSAGE SYMBOLS:
834 ;
835 ; LI$STA - STANDARD LINE ID TYPE VALUE
836 ; NE$FOR - FORMAT ERROR RETURN CODE
837 ; NE$FUN - FUNCTION OR OPTION ERROR RETURN CODE
838 ; NE$PAR - PARAMETER ERROR RETURN CODE
839 ;
840 ; CONTROL BLOCK SYMBOLS:
841 ;
842 ; C.ADDR - OFFSET OF ADDRESS FIELD
843 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 19-1
TSPARS
844 ; C.LEN - OFFSET OF LENGTH FIELD
845 ;
846 ;--
847 ;======================================================================;
848 ;
849 ; EXTERNAL MACROS
850 ;
851 .MCALL TSDF,NICDF,CONDF,SAVSTK,RESSTK
852 ;
853 ; DEFINE EXTERNAL SYMBOLS
854 ;
855 001436 TSDF ;TEST SYMBOLS
856 001436 NICDF ;NICE MESSAGE SYMBOLS
857 001436 CONDF ;CONTROL BLOCK SYMBOLS
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 20
TSPARS
859 ;
860 ; LOCAL PROCEDURE BODY
861 ;
862 001436 PROCLC TSPARS
863 001436 SAVSTK <R3> ;SAVE REGISTER
864 001440 016502 000014 MOV C.ADDR(R5),R2 ;GET ADDRESS OF MESSAGE
865 001444 010203 MOV R2,R3 ;COPY IT
866 001446 066503 000012 ADD C.LEN(R5),R3 ;COMPUTE END ADDRESS
867 001452 005202 INC R2 ;MOVE PAST FUNCTION CODE
868 001454 CALL GTMSBY ;GET OPTION BYTE
869 001460 IF ; SUCCESS
870 001460 FALSE CS
871 001462 THEN
872 001462 ONCASE ; OPTION
873 001462 CASE ; TEST NODE
874 001462 FALSE NE R0,#TESNOD
875 001470 DO
876 001470 112764 000001 000014 MOVB #NODTES,STATE(R4) ;SET NEXT STATE TO NODE TEST
877 001476 000241 CLC ;SET SUCCESS SO FAR
878 001500 CASE ; TEST LINE
879 001502 FALSE NE R0,#TESLIN
880 001510 DO
881 001510 112764 000002 000014 MOVB #LINTES,STATE(R4) ;SET NEXT STATE TO LINE TEST
882 001516 000241 CLC ;SET SUCCESS SO FAR
883 001520 ELSE
884 001522 012700 177777 MOV #NE$FUN,R0 ;FUNCTION CODE ERROR
885 001526 000261 SEC ;SET FAILURE
886 001530 ENDCASE
887 001530 ENDIF
888 001530 IF ; SUCCESS SO FAR
889 001530 FALSE CS
890 001532 THEN
891 001532 012700 000006 MOV #NODLEN,R0 ;MAXIMUM LENGTH OF NODE NAME
892 001536 012701 000017 MOV #NODE,R1 ;OFFSET OF NODE NAME IN CONTEXT
893 001542 060401 ADD R4,R1 ;MAKE IT A DESTINATION ADDRESS
894 001544 CALL MVMSIM ;MOVE IMAGE FIELD TO CONTEXT
895 001550 ENDIF
896 001550 IF ; SUCCESS
897 001550 FALSE CS
898 001552 THEN
899 001552 IF ; STATE = LINE TEST
900 001552 FALSEB NE STATE(R4),#LINTES
901 001562 THEN
902 001562 CALL GTMSBY ;GET LINE FORMAT TYPE
903 001566 IF ; SUCCESS
904 001566 FALSE CS
905 001570 THEN
906 001570 IF ; LINE FORMAT TYPE <> STANDARD
907 001570 FALSE EQ R0,#LI$STA
908 001576 THEN
909 001576 012700 177760 MOV #NE$PAR,R0 ;PARAMETER ERROR
910 001602 000261 SEC ;SET FAILURE
911 001604 ELSE
912 001606 012700 000004 MOV #4,R0 ;LENGTH OF LINE ID
913 001612 012701 000026 MOV #LINE,R1 ;OFFSET OF LINE ID IN CONTEXT
914 001616 060401 ADD R4,R1 ;MAKE IT A DESTINATION ADDRESS
915 001620 CALL MVMSBY ;MOVE BYTES TO CONTEXT
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 20-1
TSPARS
916 001624 ENDIF
917 001624 ENDIF
918 001624 ELSE
919 001626 000241 CLC ;SET SUCCESS
920 001630 ENDIF
921 001630 ENDIF
922 001630 IF ; SUCCESS SO FAR
923 001630 FALSE CS
924 001632 THEN
925 001632 CALL GTMSWD ;GET REPEAT COUNT
926 001636 IF ; SUCCESS
927 001636 FALSE CS
928 001640 THEN
929 001640 010064 000004 MOV R0,COUNT(R4) ;SET COUNT IN CONTEXT
930 001644 ENDIF
931 001644 ENDIF
932 001644 IF ; SUCCESS SO FAR
933 001644 FALSE CS
934 001646 THEN
935 001646 CALL GTMSBY ;GET TEST BLOCK TYPE
936 001652 IF ; SUCCESS
937 001652 FALSE CS
938 001654 THEN
939 001654 IF ; REQUESTED TYPE < 0 OR > MAXIMUM
940 001654 TRUE LT R0
941 001660 FALSE LE R0,#MXBKTY
942 001666 THEN
943 001666 012700 177760 MOV #NE$PAR,R0 ;PARAMETER ERROR
944 001672 000261 SEC ;SET FAILURE
945 001674 ELSE
946 001676 110064 000032 MOVB R0,BLKTYP(R4) ;SET BLOCK TYPE IN CONTEXT
947 001702 000241 CLC ;SET SUCCESS
948 001704 ENDIF
949 001704 ENDIF
950 001704 ENDIF
951 001704 IF ; SUCCESS SO FAR
952 001704 FALSE CS
953 001706 THEN
954 001706 CALL GTMSWD ;GET TEST BLOCK LENGTH
955 001712 IF ; SUCCESS
956 001712 FALSE CS
957 001714 THEN
958 001714 IF ; REQUESTED LENGTH <= 0 OR > MAXIMUM
959 001714 TRUE LE R0
960 001720 FALSE LE R0,#MXBKLN
961 001726 THEN
962 001726 012700 177760 MOV #NE$PAR,R0 ;PARAMETER ERROR
963 001732 000261 SEC ;SET FAILURE
964 001734 ELSE
965 001736 010064 000012 MOV R0,BLKLEN(R4) ;SET BLOCK LENGTH IN CONTEXT
966 001742 000241 CLC ;SET SUCCESS
967 001744 ENDIF
968 001744 ENDIF
969 001744 ENDIF
970 001744 IF ; SUCCESS AND MESSAGE NOT USED UP
971 001744 FALSE CS
972 001746 FALSE EQ R2,R3
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 20-2
TSPARS
973 001752 THEN
974 001752 012700 177776 MOV #NE$FOR,R0 ;MESSAGE FORMAT ERROR
975 001756 000261 SEC ;SET FAILURE
976 001760 ENDIF
977 001760 IF ; SUCCESS
978 001760 FALSE CS
979 001762 THEN
980 001762 105065 000006 CLRB C.FUNC(R5) ;INITIALIZE FOR NEXT STATE
981 001766 ELSE
982 001770 CALL TSABRT ;BLOW IT UP
983 001774 ENDIF
984 001774 RESSTK <R3> ;RESTORE REGISTER
985 001776 ENDPROC
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 21
TSTEST
987 .SBTTL TSTEST
988 ;
989 ;======================================================================;
990 ;++
991 ; +-------------------------------------------------+
992 ; I I
993 ; I T S T E S T I
994 ; I - - - - - - I
995 ; I I
996 ; +-------------------------------------------------+
997 ;
998 ; FUNCTION:
999 ;
1000 ; TEST PROCESSOR MAIN MODULE
1001 ;
1002 ; INPUT:
1003 ;
1004 ; R5 - CONTROL BLOCK
1005 ; C.CTXT - ON INITIAL ENTRY, ZERO; ON PROCESSING ENTRY, ADDRESS OF
1006 ; CONTEXT BLOCK
1007 ; C.FUNC - FUNCTION JUST COMPLETED
1008 ; CONTEXT BLOCK - CONTEXT INFORMATION
1009 ; STATE - CURRENT PROCESSING STATE
1010 ; OTHER FIELDS - AS SPECIFIED FOR SUB-MODULES
1011 ;
1012 ; OUTPUT:
1013 ;
1014 ; C-BIT - CLEAR
1015 ; @R4 - UPDATED CONTEXT, AS SPECIFIED FOR SUB-MODULES
1016 ; @R5 - UPDATED CONTROL BLOCK
1017 ; C.CTXT - ON FINAL RETURN, -1; ON PROCESSING RETURN, AS SPECIFIED
1018 ; FOR SUB-MODULES
1019 ; C.FUNC - ON FINAL RETURN, PROCESS FUNCTION CODE; ON PROCESSING
1020 ; RETURN, AS SPECIFIED FOR SUB-MODULES
1021 ; C.PROC - ON FINAL RETURN, PROCESSOR NUMBER FOR GET COMMAND
1022 ; OTHER FIELDS - ON PROCESSING RETURN, AS SPECIFIED FOR SUB-MODULES
1023 ;
1024 ; REQUIREMENTS:
1025 ;
1026 ; TEST SYMBOLS:
1027 ;
1028 ; FINISH - FINISH STATE
1029 ; LINTES - LINE TEST STATE
1030 ; NODTES - NODE TEST STATE
1031 ;
1032 ; PROCESSOR SYMBOLS:
1033 ;
1034 ; P$GTCM - GET COMMAND PROCESSOR NUMBER
1035 ;
1036 ; CONTROL BLOCK SYMBOLS:
1037 ;
1038 ; C.CTXT - OFFSET OF CONTEXT FIELD
1039 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
1040 ; C.PROC - OFFSET OF PROCESSOR NUMBER FIELD
1041 ; C$PROC - PROCESS FUNCTION CODE
1042 ; C$RLBF - RELEASE BUFFER FUNCTION CODE
1043 ;
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 21-1
TSTEST
1044 ;--
1045 ;======================================================================;
1046 ;
1047 ;
1048 ; EXTERNAL MACROS
1049 ;
1050 .MCALL CONDF,TSDF,PRDF
1051 ;
1052 ; DEFINE EXTERNAL SYMBOLS
1053 ;
1054 002000 CONDF ;CONTROL BLOCK SYMBOLS
1055 002000 TSDF ;TEST SYMBOLS
1056 002000 PRDF ;PROCESSOR SYMBOLS
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 22
TSTEST
1058 ;
1059 ; PROCEDURE BODY
1060 ;
1061 002000 PROC TSTEST
1062 002000 016504 000004 MOV C.CTXT(R5),R4 ;GET CONTEXT POINTER
1063 002004 IF ; CONTEXT POINTER = 0
1064 002004 FALSE SET R4
1065 002010 THEN
1066 002010 IF ; FUNCTION CODE <> RELEASE MEMORY BUFFER
1067 002010 FALSEB EQ C.FUNC(R5),#C$RLBF
1068 002020 THEN
1069 002020 CALL TSINIT ;INITIALIZE
1070 002024 ELSE ; MUST HAVE JUST RELEASED CONTEXT, ALL DONE!
1071 002026 112765 000001 000007 MOVB #P$GTCM,C.PROC(R5) ;PASS THIS BACK FROM WHENCE IT CAME
1072 002034 112765 000200 000006 MOVB #C$PROC,C.FUNC(R5) ;FIX UP FUNCTION CODE
1073 002042 012765 177777 000004 MOV #-1,C.CTXT(R5) ;SIGNAL COMPLETE
1074 002050 005004 CLR R4 ;MAKE SURE NOBODY ELSE IN HERE RUNS
1075 002052 ENDIF
1076 002052 ENDIF
1077 002052 IF ; CONTEXT POINTER <> 0
1078 002052 FALSE CLEAR R4
1079 002056 THEN
1080 002056 IF ; STATE = NODE TEST
1081 002056 FALSEB NE STATE(R4),#NODTES
1082 002066 THEN
1083 002066 CALL TSNODE ;PROCESS NODE TEST
1084 002072 ENDIF
1085 002072 IF ; STATE = LINE TEST
1086 002072 FALSEB NE STATE(R4),#LINTES
1087 002102 THEN
1088 002102 CALL TSLINE ;PROCESS LINE TEST
1089 002106 ENDIF
1090 002106 IF ; STATE = FINISH UP
1091 002106 FALSEB NE STATE(R4),#FINISH
1092 002116 THEN
1093 002116 CALL TSFINI ;CLEAN UP
1094 002122 ENDIF
1095 002122 ENDIF
1096 002122 000241 CLC ;FOLLOWING THE RULES...
1097 002124 ENDPROC
1098 000001 .END
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 22-1
SYMBOL TABLE
A$$CHK= 000000 C$OPOT= 000042 FINISH= 000003 F$OPOT= 000000 LS$LOO= 000001
A$$CPS= 000000 C$ORD = 000145 FL$BOO= 000001 F$ORLU= 000000 LS$TRI= 000004
A$$TRP= 000000 C$PROC= 000200 FL$DUM= 000001 F$OTLU= 000001 LS$TRQ= 000003
BLCNBK= ****** GX C$RCBK= 000047 FL$LOA= 000001 F$RCBK= 000002 L$$ASG= 000000
BLKLEN 000012 C$RCEV= 000050 FL$LOO= 000001 F$RCEV= 000001 L$$DRV= 000000
BLKTYP 000032 C$RCIN= 000062 FR$LCC= 000001 F$RCIN= 000000 L$$P11= 000001
CE$ACP= 177753 C$RCMA= 000146 FR$LCS= 000001 F$RCMA= 000000 L$$11R= 000000
CE$ADR= 177776 C$RCMS= 000054 FR$LNC= 000001 F$RCMS= 000002 MOVE = ****** GX
CE$CON= 177770 C$RDBK= 000043 FR$LNL= 000001 F$RDBK= 000000 MSGADR 000006
CE$DIS= 177771 C$RDCM= 000035 FR$LNS= 000001 F$RDCM= 000000 MSGLEN 000010
CE$EOF= 177767 C$RDIN= 000040 FR$RMC= 000001 F$RDIN= 000001 MVMSBY= ****** GX
CE$FAI= 177774 C$RDIS= 000040 FR$RML= 000001 F$RDIS= 000012 MVMSIM= ****** GX
CE$FIL= 177756 C$RDRC= 000060 FR$RMS= 000001 F$RDRC= 000000 MXBKLN= 000452
CE$FUN= 177777 C$RLBF= 000001 FS$HOS= 000001 F$RECO= 000001 MXBKTY= 000002
CE$GEN= 177774 C$RLCB= 000002 FS$INT= 000000 F$RLBF= 000001 M$$CRB= 000124
CE$IND= 177757 C$RLCI= 000000 FS$LLP= 000001 F$RLCB= 000001 M$$CRX= 000000
CE$IO = 177760 C$STBK= 000055 FS$LOF= 000001 F$STBK= 000000 M$$FCS= 000000
CE$LEN= 177775 C$STPR= 000037 FS$LOG= 000001 F$STPR= 000001 M$$OVR= 000000
CE$LID= 177766 C$STPS= 000037 FS$LST= 000001 F$STPS= 000006 ND$BAD= 177777
CE$LST= 177752 C$TRBK= 000046 FS$NET= 000001 F$TEST= 000001 ND$LCC= 000000
CE$NOD= 177765 C$TRIN= 000063 FS$NST= 000000 F$TRAC= 000000 ND$LCS= 000001
CE$NSD= 177755 C$TRMA= 000145 FS$PAS= 000001 F$TRBK= 000001 ND$LNC= 000004
CE$NST= 177754 C$TRMS= 000053 FT$CNS= 000000 F$TRIG= 000001 ND$LNS= 000005
CE$NWE= 177773 C$WRBK= 000044 FT$NOD= 000001 F$TRIN= 000000 ND$RMC= 000002
CE$OBJ= 177750 C$WRCL= 000065 FT$TSK= 000001 F$TRMA= 000000 ND$RMS= 000003
CE$OPN= 177761 C$WRCM= 000036 F$ALBF= 000001 F$TRMS= 000002 ND$ZLC= 000000
CE$OVR= 177764 C$WRRC= 000061 F$ALCB= 000001 F$WRBK= 000000 ND$ZLN= 000002
CE$PAR= 177763 C$ZRCN= 000064 F$CB = 000017 F$WRCL= 000001 ND$ZRM= 000001
CE$PRO= 177751 C$$CKP= 000000 F$CLCL= 000001 F$WRCM= 000000 NE$CON= 177762
CE$REJ= 177772 C$$ORE= 000400 F$CLCO= 000000 F$WRRC= 000000 NE$FIL= 177763
CE$TMO= 177762 C$$RSH= 177564 F$CLFL= 000000 F$ZERO= 000001 NE$FIO= 177756
CMLKNM 000000 C.ADDR= 000014 F$CLLK= 000006 F$ZRCN= 000001 NE$FOR= 177776
COUNT 000004 C.BKNM= 000014 F$CLLN= 000002 F$$LVL= 000001 NE$FUN= 177777
CS$ACK= 000002 C.CTXT= 000004 F$DPOS= 000001 F$150 = 000002 NE$LCO= 177766
CS$LKE= 000001 C.FUNC= 000006 F$DUMP= 000000 F$300 = 000012 NE$LID= 177770
CS$LNA= 000002 C.LEN = 000012 F$EVNT= 000001 F$50 = 000002 NE$LPR= 177757
CS$LOG= 000003 C.LINE= 000014 F$EXAM= 000001 F$550 = 000002 NE$LST= 177767
CS$NCH= 000003 C.LKNM= 000020 F$EXHO= 000000 GTMSBY= ****** GX NE$NCO= 177755
CS$SUC= 000001 C.LUN = 000020 F$GTCM= 000001 GTMSWD= ****** GX NE$NIC= 177753
CTXTLN= 000033 C.MODE= 000021 F$INCM= 000000 G$$TPP= 000000 NE$NOD= 177765
C$ALBF= 000032 C.PRID= 000017 F$INLU= 000001 G$$TSS= 000000 NE$NOR= 177754
C$ALCB= 000033 C.PROC= 000007 F$IRLU= 000000 G$$TTK= 000000 NE$ORD= 177774
C$CLCL= 000067 C.PROM= 000016 F$LKLU= 000010 I$$RAR= 000000 NE$PAR= 177760
C$CLCO= 000003 C.PTR = 000000 F$LNLU= 000002 I$$RDN= 000000 NE$RES= 177761
C$CLFL= 000004 C.RET = 000010 F$LNSR= 000001 K$$CNT= 177546 NE$SER= 177764
C$CLLK= 000052 C.SAVE= 000022 F$LOAD= 000000 K$$CSR= 177546 NE$STA= 177775
C$CLLN= 000005 C.SERV= 000002 F$LOGD= 000001 K$$LDC= 000000 NL$BRC= 000001
C$LEN = 000026 C.TASK= 000016 F$LOOP= 000001 K$$TPS= 000074 NL$BTR= 000002
C$NOPN= 000031 C.TYPE= 000016 F$NTCM= 000000 LD$LP = 000000 NL$RES= 000005
C$NORD= 000032 C.WAIT= 000020 F$OPCL= 000001 LINE 000026 NL$RLE= 000004
C$OPCL= 000066 DM$END= 000000 F$OPCO= 000000 LINTES= 000002 NL$RTR= 000003
C$OPCO= 000034 DM$MIM= 000002 F$OPIN= 000000 LI$KNO= 000000 NL$TMO= 000006
C$OPIN= 000041 DM$PXA= 000003 F$OPIR= 000000 LI$STA= 000001 NL$ZRO= 000000
C$OPIR= 000056 DM$SAD= 000001 F$OPLK= 000005 LI$STR= 000002 NN$CAC= 000011
C$OPLK= 000051 D$$BUG= 177514 F$OPLN= 000002 LPLKNM 000002 NN$CNI= 000013
C$OPLN= 000045 D$$ISK= 000000 F$OPLO= 000000 LS$DUM= 000002 NN$CNR= 000014
C$OPOR= 000057 D$$L11= 000001 F$OPOR= 000000 LS$LOA= 000000 NN$EXT= 000003
TSTEST MACRO M1110 13-OCT-79 12:59 PAGE 22-2
SYMBOL TABLE
NN$FMT= 000005 N$ZERO= 000011 RETCOD 000015 SP$LOF= 000012 TSLINE 000400R
NN$IZS= 000007 N$$USR= 000001 RI$LCC= 000001 SP$LST= 000001 TSNODE 000726R
NN$IZU= 000010 N.MLEN= 000454 RI$LCS= 000002 SP$NDM= 000014 TSPARS 001436R
NN$MAC= 000012 OPTION 000016 RI$LNC= 000007 SP$NDO= 000013 TSTEST 002000RG
NN$NKS= 000004 PT$END= 000000 RI$LNL= 000006 SP$NST= 000006 T$$KMG= 000000
NN$RES= 000006 PT$HOS= 000003 RI$LNS= 000010 SP$RRP= 000004 T$$MIN= 000000
NN$UMR= 000002 PT$NAM= 000001 RI$RMC= 000004 SP$RTP= 000005 V$$CTR= 001000
NN$UMS= 000001 PT$NUM= 000002 RI$RML= 000003 STATE 000014 X$$DBT= 000000
NN$ZRO= 000000 P$DPOS= 000016 RI$RMS= 000005 ST$DIS= 000006 YES = 000001
NO = 000000 P$DUMP= 000003 RI$ZLC= 000011 ST$ENA= 000005 $$CSTA= 000000
NODE 000017 P$EVNT= 000011 RI$ZLN= 000013 ST$LOO= 000003 $$PRST= 000015
NODLEN= 000006 P$EXAM= 000017 RI$ZRM= 000012 ST$MAI= 000004 $$STIX= 000777
NODTES= 000001 P$GTCM= 000001 R$$DER= 000000 ST$OFF= 000001 $$STNM= 000000
NS$SUC= 000001 P$INCM= 000015 R$$K11= 000001 ST$ON = 000000 $$S766= 000077
N$DPOS= 000014 P$LNSR= 000004 R$$SND= 000000 ST$SHU= 000002 $$S767= 000020
N$DUMP= 000003 P$LOAD= 000002 R$$11M= 000000 S$$WRG= 000000 $$S770= 000077
N$EXAM= 000015 P$LOGD= 000020 SPRAY = ****** GX S$$YSZ= 001600 $$S771= 000015
N$LNSR= 000016 P$LOOP= 000005 SP$DHO= 000003 TESLIN= 000001 $$S772= 000077
N$LOAD= 000002 P$NTCM= 000014 SP$DRP= 000007 TESNOD= 000000 $$S773= 000025
N$LOGD= 000001 P$RDIN= 000010 SP$DTP= 000010 TESPAT 000020R $$S774= 000077
N$LOOP= 000005 P$STPR= 000007 SP$LHO= 000002 TSABRT 000000R $$S775= 000012
N$RDIN= 000010 P$TEST= 000006 SP$LLP= 000011 TSBLBK 000024R $$S776= 000000
N$STPR= 000007 P$TRIG= 000012 SP$LNM= 000016 TSFINI 000046R $$S777= 000000
N$TEST= 000006 P$ZERO= 000013 SP$LNO= 000015 TSINIT 000262R $$TRNM= 000000
N$TRIG= 000004 P$$P45= 000000
. ABS. 000033 000
002126 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 10685 WORDS ( 42 PAGES)
DYNAMIC MEMORY: 12172 WORDS ( 46 PAGES)
ELAPSED TIME: 00:03:13
TSTEST,[135,30]TSTEST/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,TSTEST
TSTEST CREATED BY MACRO ON 13-OCT-79 AT 13:01 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
BLCNBK = ****** GX 13-496 16-671
BLKLEN 000012 7-177 *20-965
BLKTYP 000032 7-175 *20-946
CE$NOD = 177765 16-694
CE$OBJ = 177750 16-698
CE$REJ = 177772 16-702
CMLKNM 000000 9-281 *11-395
COUNT 000004 9-277 9-278 13-514 13-515 *14-555 *14-557 *17-738 17-740 *20-929
CTXTLN = 000033 11-386 11-393
C$ALBF = 000032 11-387 16-689 17-742 18-762
C$CLLK = 000052 9-266 9-268 9-272
C$OPLK = 000051 13-497 13-500 16-672 16-675
C$PROC = 000200 11-382 22-1072
C$RCMS = 000054 13-533 14-541 17-713 18-778
C$RLBF = 000001 9-287 9-290 22-1067
C$TRMS = 000053 9-282 9-285 13-520 13-527 18-769 18-772
C.ADDR = 000014 9-275 9-279 *9-295 *9-298 11-385 11-389 *11-397 13-506 13-518
14-547 14-561 16-681 16-686 17-722 17-752 18-767 20-864
C.CTXT = 000004 9-298 *9-299 *11-390 22-1062 *22-1073
C.FUNC = 000006 *5-110 9-260 *9-266 *9-268 9-272 *9-282 9-285 *9-287 9-290
*9-301 *9-303 11-382 *11-387 13-492 *13-497 13-500 *13-520 13-527
*13-533 14-541 *14-567 16-667 *16-672 16-675 *16-689 17-713 *17-742
18-762 *18-769 18-772 *18-778 *18-784 *20-980 22-1067 *22-1072
C.LEN = 000012 *9-280 11-384 *11-386 *11-396 *13-519 *13-532 14-549 *16-688 17-719
17-727 *18-766 *18-777 20-866
C.LKNM = 000020 *9-265 *9-281 11-395 13-505 16-680
C.PROC = 000007 *22-1071
C.RET = 000010 13-503 13-530 14-544 16-678 16-692 17-716 18-775
C.SAVE = 000022 *11-384 *11-385 11-396 11-397
FINISH = 000003 5-111 22-1091
F$TRAC = 000000 5-108 5-108 5-112 5-112 7-174 7-174 7-179 7-179 9-258
9-258 9-304 9-304 11-380 11-380 11-400 11-400 13-490 13-490
14-568 14-568 16-665 16-665 18-785 18-785 20-862 20-862 20-985
20-985 22-1061 22-1061 22-1097 22-1097
GTMSBY = ****** GX 20-868 20-902 20-935
GTMSWD = ****** GX 14-551 20-925 20-954
I$$AS = ****** 5-108 7-174 9-258 11-380 13-490 16-665 20-862 22-1061
LINE 000026 13-510 20-913
LINTES = 000002 20-881 20-900 22-1086
LI$STA = 000001 13-509 20-907
LPLKNM 000002 9-263 9-265 *9-274 *13-505 *16-680
LS$LOO = 000001 13-508
MOVE = ****** GX 13-513 18-768
MSGADR 000006 9-293 9-295 *9-296 *16-682 17-725 18-764
MSGLEN 000010 *16-687 17-717 18-765
MVMSBY = ****** GX 20-915
MVMSIM = ****** GX 20-894
MXBKLN = 000452 20-960
MXBKTY = 000002 20-941
NE$FOR = 177776 20-974
NE$FUN = 177777 20-884
NE$NCO = 177755 13-535 14-563 16-706 17-748 17-756 18-780
TSTEST CREATED BY MACRO ON 13-OCT-79 AT 13:01 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
NE$NIC = 177753 16-700
NE$NOD = 177765 13-522 16-696
NE$PAR = 177760 20-909 20-943 20-962
NE$RES = 177761 16-704
NODE 000017 13-494 16-669 20-892
NODLEN = 000006 20-891
NODTES = 000001 20-876 22-1081
NS$SUC = 000001 17-723 17-744
N$LNSR = 000016 13-507
N$LOOP = 000005 16-683
N.MLEN = 000454 13-532 16-688 18-777
P$GTCM = 000001 22-1071
RETCOD 000015 *5-109 9-276
R$$11D = ****** 5-108 7-174 9-258 11-380 13-490 16-665 20-862 22-1061
R$$11M = 000000 5-108 7-174 9-258 11-380 13-490 16-665 20-862 22-1061
SPRAY = ****** GX 7-178 11-394
STATE 000014 *5-111 *20-876 *20-881 20-900 22-1081 22-1086 22-1091
TESLIN = 000001 20-879
TESNOD = 000000 20-874
TESPAT 000020 R #6-163 7-176
TSABRT 000000 R #5-108 13-523 13-536 14-565 16-708 17-745 17-749 17-753 17-757
18-781 20-982
TSBLBK 000024 R #7-174 13-517 16-685
TSFINI 000046 R #9-258 22-1093
TSINIT 000262 R #11-380 22-1069
TSLINE 000400 R #13-490 22-1088
TSNODE 000726 R #16-665 22-1083
TSPARS 001436 R 11-398 #20-862
TSTEST 002000 RG #22-1061
$$CSTA = 000000 #5-108 #7-174 #9-258 #11-380 #13-490 #16-665 16-691 #16-691 16-693
#16-693 16-697 16-701 #16-707 #20-862 20-872 #20-872 20-873 #20-873
20-878 #20-886 #22-1061
$$PRST = 000015 #5-108 #7-174 #9-258 9-259 #9-259 9-262 #9-262 9-271 #9-271
9-284 #9-284 9-289 #9-289 9-292 #9-292 #11-380 11-381 #11-381
#13-490 13-491 #13-491 13-499 #13-499 13-502 #13-502 13-526 #13-526
13-529 #13-529 14-540 #14-540 14-543 #14-543 14-552 #14-552 #16-665
16-666 #16-666 16-674 #16-674 16-677 #16-677 16-691 #16-691 17-712
#17-712 17-715 #17-715 17-721 #17-721 17-729 #17-729 17-735 #17-735
17-739 #17-739 18-761 #18-761 18-771 #18-771 18-774 #18-774 #20-862
20-869 #20-869 20-872 #20-872 20-888 #20-888 20-896 #20-896 20-899
#20-899 20-903 #20-903 20-906 #20-906 20-922 #20-922 20-926 #20-926
20-932 #20-932 20-936 #20-936 20-939 #20-939 20-951 #20-951 20-955
#20-955 20-958 #20-958 20-970 #20-970 20-977 #20-977 #22-1061 *22-1063
#22-1063 22-1066 #22-1066 22-1077 #22-1077 22-1080 #22-1080 22-1085 #22-1085
22-1090 #22-1090
$$SLST = ****** 5-108 5-112 7-174 7-179 9-258 9-260 9-260 9-261 9-263
9-263 9-264 9-267 9-267 9-269 9-270 9-272 9-272 9-273
9-283 9-285 9-285 9-286 9-288 9-290 9-290 9-291 9-293
9-293 9-294 9-297 9-297 9-300 9-302 9-304 11-380 11-382
11-382 11-383 11-388 11-388 11-399 11-400 13-490 13-492 13-492
13-493 13-498 13-500 13-500 13-501 13-503 13-503 13-504 13-521
13-521 13-524 13-525 13-527 13-527 13-528 13-530 13-530 13-531
TSTEST CREATED BY MACRO ON 13-OCT-79 AT 13:01 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
13-534 13-534 13-537 13-538 14-541 14-541 14-542 14-544 14-544
14-545 14-553 14-554 14-556 14-556 14-559 14-562 14-562 14-564
14-566 14-568 16-665 16-667 16-667 16-668 16-673 16-675 16-675
16-676 16-678 16-678 16-679 16-690 16-690 16-694 16-694 16-695
16-697 16-697 16-698 16-698 16-699 16-701 16-701 16-702 16-702
16-703 16-705 16-705 16-707 16-709 16-710 17-713 17-713 17-714
17-716 17-716 17-719 17-719 17-720 17-723 17-723 17-724 17-729
17-730 17-730 17-731 17-731 17-732 17-734 17-734 17-736 17-736
17-737 17-740 17-740 17-741 17-743 17-743 17-746 17-747 17-747
17-750 17-751 17-751 17-754 17-755 17-755 17-758 17-759 18-762
18-762 18-763 18-770 18-772 18-772 18-773 18-775 18-775 18-776
18-779 18-779 18-782 18-783 18-785 20-862 20-870 20-871 20-874
20-874 20-875 20-878 20-878 20-879 20-879 20-880 20-883 20-883
20-886 20-887 20-889 20-890 20-895 20-897 20-898 20-900 20-900
20-901 20-904 20-905 20-907 20-907 20-908 20-911 20-911 20-916
20-917 20-918 20-918 20-920 20-921 20-923 20-924 20-927 20-928
20-930 20-931 20-933 20-934 20-937 20-938 20-940 20-940 20-941
20-941 20-942 20-945 20-945 20-948 20-949 20-950 20-952 20-953
20-956 20-957 20-959 20-959 20-960 20-960 20-961 20-964 20-964
20-967 20-968 20-969 20-971 20-972 20-972 20-973 20-976 20-978
20-979 20-981 20-981 20-983 20-985 22-1061 22-1064 22-1064 22-1065
22-1067 22-1067 22-1068 22-1070 22-1070 22-1075 22-1076 22-1078 22-1078
22-1079 22-1081 22-1081 22-1082 22-1084 22-1086 22-1086 22-1087 22-1089
22-1091 22-1091 22-1092 22-1094 22-1095 22-1097
$$STIX = 000777 #5-108 #7-174 #9-258 9-259 9-259 #9-259 9-259 9-259 #9-259
9-262 9-262 #9-262 9-262 9-262 #9-262 9-269 #9-269 9-269
9-269 #9-269 9-269 9-270 #9-270 9-270 9-270 #9-270 9-270
9-271 9-271 #9-271 9-271 9-271 #9-271 9-283 #9-283 9-283
9-283 #9-283 9-283 9-284 9-284 #9-284 9-284 9-284 #9-284
9-288 #9-288 9-288 9-288 #9-288 9-288 9-289 9-289 #9-289
9-289 9-289 #9-289 9-292 9-292 #9-292 9-292 9-292 #9-292
9-300 #9-300 9-300 9-300 #9-300 9-300 9-302 #9-302 9-302
9-302 #9-302 9-302 #11-380 11-381 11-381 #11-381 11-381 11-381
#11-381 11-399 #11-399 11-399 11-399 #11-399 11-399 #13-490 13-491
13-491 #13-491 13-491 13-491 #13-491 13-498 #13-498 13-498 13-498
#13-498 13-498 13-499 13-499 #13-499 13-499 13-499 #13-499 13-502
13-502 #13-502 13-502 13-502 #13-502 13-524 #13-524 13-524 13-524
#13-524 13-524 13-525 #13-525 13-525 13-525 #13-525 13-525 13-526
13-526 #13-526 13-526 13-526 #13-526 13-529 13-529 #13-529 13-529
13-529 #13-529 13-537 #13-537 13-537 13-537 #13-537 13-537 13-538
#13-538 13-538 13-538 #13-538 13-538 14-540 14-540 #14-540 14-540
14-540 #14-540 14-543 14-543 #14-543 14-543 14-543 #14-543 14-552
14-552 #14-552 14-552 14-552 #14-552 14-559 #14-559 14-559 14-559
#14-559 14-559 14-564 #14-564 14-564 14-564 #14-564 14-564 14-566
#14-566 14-566 14-566 #14-566 14-566 #16-665 16-666 16-666 #16-666
16-666 16-666 #16-666 16-673 #16-673 16-673 16-673 #16-673 16-673
16-674 16-674 #16-674 16-674 16-674 #16-674 16-677 16-677 #16-677
16-677 16-677 #16-677 16-691 16-691 #16-691 16-691 16-691 #16-691
16-691 16-691 #16-691 *16-707 #16-707 *16-707 16-707 #16-707 16-707
16-707 #16-707 16-707 16-709 #16-709 16-709 16-709 #16-709 16-709
16-710 #16-710 16-710 16-710 #16-710 16-710 17-712 17-712 #17-712
17-712 17-712 #17-712 17-715 17-715 #17-715 17-715 17-715 #17-715
TSTEST CREATED BY MACRO ON 13-OCT-79 AT 13:01 PAGE 4
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
17-721 17-721 #17-721 17-721 17-721 #17-721 17-729 17-729 #17-729
17-729 17-729 #17-729 17-734 #17-734 17-734 17-734 #17-734 17-734
17-735 17-735 #17-735 17-735 17-735 #17-735 17-739 17-739 #17-739
17-739 17-739 #17-739 17-746 #17-746 17-746 17-746 #17-746 17-746
17-750 #17-750 17-750 17-750 #17-750 17-750 17-754 #17-754 17-754
17-754 #17-754 17-754 17-758 #17-758 17-758 17-758 #17-758 17-758
17-759 #17-759 17-759 17-759 #17-759 17-759 18-761 18-761 #18-761
18-761 18-761 #18-761 18-770 #18-770 18-770 18-770 #18-770 18-770
18-771 18-771 #18-771 18-771 18-771 #18-771 18-774 18-774 #18-774
18-774 18-774 #18-774 18-782 #18-782 18-782 18-782 #18-782 18-782
18-783 #18-783 18-783 18-783 #18-783 18-783 #20-862 20-869 20-869
#20-869 20-869 20-869 #20-869 20-872 20-872 #20-872 20-872 20-872
#20-872 20-872 20-872 #20-872 20-886 #20-886 20-886 20-886 #20-886
20-886 20-886 #20-886 20-886 20-887 #20-887 20-887 20-887 #20-887
20-887 20-888 20-888 #20-888 20-888 20-888 #20-888 20-895 #20-895
20-895 20-895 #20-895 20-895 20-896 20-896 #20-896 20-896 20-896
#20-896 20-899 20-899 #20-899 20-899 20-899 #20-899 20-903 20-903
#20-903 20-903 20-903 #20-903 20-906 20-906 #20-906 20-906 20-906
#20-906 20-916 #20-916 20-916 20-916 #20-916 20-916 20-917 #20-917
20-917 20-917 #20-917 20-917 20-920 #20-920 20-920 20-920 #20-920
20-920 20-921 #20-921 20-921 20-921 #20-921 20-921 20-922 20-922
#20-922 20-922 20-922 #20-922 20-926 20-926 #20-926 20-926 20-926
#20-926 20-930 #20-930 20-930 20-930 #20-930 20-930 20-931 #20-931
20-931 20-931 #20-931 20-931 20-932 20-932 #20-932 20-932 20-932
#20-932 20-936 20-936 #20-936 20-936 20-936 #20-936 20-939 20-939
#20-939 20-939 20-939 #20-939 20-948 #20-948 20-948 20-948 #20-948
20-948 20-949 #20-949 20-949 20-949 #20-949 20-949 20-950 #20-950
20-950 20-950 #20-950 20-950 20-951 20-951 #20-951 20-951 20-951
#20-951 20-955 20-955 #20-955 20-955 20-955 #20-955 20-958 20-958
#20-958 20-958 20-958 #20-958 20-967 #20-967 20-967 20-967 #20-967
20-967 20-968 #20-968 20-968 20-968 #20-968 20-968 20-969 #20-969
20-969 20-969 #20-969 20-969 20-970 20-970 #20-970 20-970 20-970
#20-970 20-976 #20-976 20-976 20-976 #20-976 20-976 20-977 20-977
#20-977 20-977 20-977 #20-977 20-983 #20-983 20-983 20-983 #20-983
20-983 #22-1061 *22-1063 *22-1063 #22-1063 *22-1063 *22-1063 #22-1063 22-1066
22-1066 #22-1066 22-1066 22-1066 #22-1066 22-1075 #22-1075 22-1075 22-1075
#22-1075 22-1075 22-1076 #22-1076 22-1076 22-1076 #22-1076 22-1076 22-1077
22-1077 #22-1077 22-1077 22-1077 #22-1077 22-1080 22-1080 #22-1080 22-1080
22-1080 #22-1080 22-1084 #22-1084 22-1084 22-1084 #22-1084 22-1084 22-1085
22-1085 #22-1085 22-1085 22-1085 #22-1085 22-1089 #22-1089 22-1089 22-1089
#22-1089 22-1089 22-1090 22-1090 #22-1090 22-1090 22-1090 #22-1090 22-1094
#22-1094 22-1094 22-1094 #22-1094 22-1094 22-1095 #22-1095 22-1095 22-1095
#22-1095 22-1095
$$STNM = 000000 #5-108 #7-174 #9-258 9-259 #9-259 9-259 9-260 9-261 9-262
#9-262 9-262 9-263 9-264 *9-267 9-267 *9-269 #9-269 9-270
#9-270 9-271 #9-271 9-271 9-272 9-273 *9-283 #9-283 9-284
#9-284 9-284 9-285 9-286 *9-288 #9-288 9-289 #9-289 9-289
9-290 9-291 9-292 #9-292 9-292 9-293 9-294 9-297 9-297
9-300 #9-300 9-302 #9-302 #11-380 11-381 #11-381 11-381 11-382
11-383 *11-388 11-388 11-399 #11-399 #13-490 13-491 #13-491 13-491
13-492 13-493 *13-498 #13-498 13-499 #13-499 13-499 13-500 13-501
13-502 #13-502 13-502 13-503 13-504 *13-521 13-521 13-524 #13-524
TSTEST CREATED BY MACRO ON 13-OCT-79 AT 13:01 PAGE 5
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
13-525 #13-525 13-526 #13-526 13-526 13-527 13-528 13-529 #13-529
13-529 13-530 13-531 *13-534 13-534 13-537 #13-537 13-538 #13-538
14-540 #14-540 14-540 14-541 14-542 14-543 #14-543 14-543 14-544
14-545 14-552 #14-552 14-552 14-553 14-554 *14-556 14-556 14-559
#14-559 *14-562 14-562 *14-564 #14-564 14-566 #14-566 #16-665 16-666
#16-666 16-666 16-667 16-668 *16-673 #16-673 16-674 #16-674 16-674
16-675 16-676 16-677 #16-677 16-677 16-678 16-679 *16-690 16-690
16-691 #16-691 16-691 16-694 16-695 16-697 16-697 16-698 16-699
16-701 16-701 16-702 16-703 *16-705 16-705 16-707 #16-707 16-709
#16-709 16-710 #16-710 17-712 #17-712 17-712 17-713 17-714 17-715
#17-715 17-715 17-716 17-719 17-720 17-721 #17-721 17-721 17-723
17-724 17-729 #17-729 17-729 17-729 17-730 17-731 17-732 17-734
17-734 #17-734 17-735 #17-735 17-735 17-736 17-737 17-739 #17-739
17-739 17-740 17-741 *17-743 17-743 17-746 #17-746 17-747 17-747
17-750 #17-750 17-751 17-751 17-754 #17-754 17-755 17-755 17-758
#17-758 17-759 #17-759 18-761 #18-761 18-761 18-762 18-763 *18-770
#18-770 18-771 #18-771 18-771 18-772 18-773 18-774 #18-774 18-774
18-775 18-776 *18-779 18-779 18-782 #18-782 18-783 #18-783 #20-862
20-869 #20-869 20-869 20-870 20-871 20-872 #20-872 20-872 20-874
20-875 20-878 20-878 20-879 20-880 20-883 20-883 20-886 #20-886
20-887 #20-887 20-888 #20-888 20-888 20-889 20-890 20-895 #20-895
20-896 #20-896 20-896 20-897 20-898 20-899 #20-899 20-899 20-900
20-901 20-903 #20-903 20-903 20-904 20-905 20-906 #20-906 20-906
20-907 20-908 20-911 20-911 20-916 #20-916 20-917 #20-917 20-918
20-918 20-920 #20-920 20-921 #20-921 20-922 #20-922 20-922 20-923
20-924 20-926 #20-926 20-926 20-927 20-928 *20-930 #20-930 20-931
#20-931 20-932 #20-932 20-932 20-933 20-934 20-936 #20-936 20-936
20-937 20-938 20-939 #20-939 20-939 20-940 20-941 20-942 20-945
20-945 20-948 #20-948 20-949 #20-949 20-950 #20-950 20-951 #20-951
20-951 20-952 20-953 20-955 #20-955 20-955 20-956 20-957 20-958
#20-958 20-958 20-959 20-960 20-961 20-964 20-964 20-967 #20-967
20-968 #20-968 20-969 #20-969 20-970 #20-970 20-970 20-971 20-972
20-973 20-976 #20-976 20-977 #20-977 20-977 20-978 20-979 20-981
20-981 20-983 #20-983 #22-1061 *22-1063 #22-1063 *22-1063 22-1064 22-1065
22-1066 #22-1066 22-1066 22-1067 22-1068 22-1070 22-1070 22-1075 #22-1075
22-1076 #22-1076 22-1077 #22-1077 22-1077 22-1078 22-1079 22-1080 #22-1080
22-1080 22-1081 22-1082 22-1084 #22-1084 22-1085 #22-1085 22-1085 22-1086
22-1087 22-1089 #22-1089 22-1090 #22-1090 22-1090 22-1091 22-1092 22-1094
#22-1094 22-1095 #22-1095
$$S766 = 000077 #17-739 17-746
$$S767 = 000020 #17-739 17-746
$$S770 = 000077 #17-729 17-734 #17-735 17-750 #20-906 20-916
$$S771 = 000015 #16-691 *16-707 #17-729 17-734 #17-735 17-750 #20-906 20-916
$$S772 = 000077 #14-552 14-559 #16-691 16-707 #17-721 17-754 #20-903 20-917 #20-939
20-948 #20-958 20-967
$$S773 = 000025 #14-552 14-559 #16-691 16-707 #17-721 17-754 #20-872 20-886 #20-903
20-917 #20-939 20-948 #20-958 20-967
$$S774 = 000077 #9-262 9-269 #9-292 9-300 #13-502 13-524 #13-529 13-537 #14-543
14-564 #16-677 16-709 #17-715 17-758 #18-774 18-782 #20-872 20-886
#20-899 20-920 #20-926 20-930 #20-936 20-949 #20-955 20-968 #22-1066
22-1075 #22-1080 22-1084 #22-1085 22-1089 #22-1090 22-1094
$$S775 = 000012 #9-262 9-269 #9-292 9-300 #13-502 13-524 #13-529 13-537 #14-543
TSTEST CREATED BY MACRO ON 13-OCT-79 AT 13:01 PAGE 6
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
14-564 #16-677 16-709 #17-715 17-758 #18-774 18-782 #20-872 20-886
#20-899 20-920 #20-926 20-930 #20-936 20-949 #20-955 20-968 #22-1066
22-1075 #22-1080 22-1084 #22-1085 22-1089 #22-1090 22-1094
$$S776 = 000000 #9-259 9-270 #9-271 9-283 #9-284 9-288 #9-289 9-302 #11-381
11-399 #13-491 13-498 #13-499 13-525 #13-526 13-538 #14-540 14-566
#16-666 16-673 #16-674 16-710 #17-712 17-759 #18-761 18-770 #18-771
18-783 #20-869 20-887 #20-888 20-895 #20-896 20-921 #20-922 20-931
#20-932 20-950 #20-951 20-969 #20-970 20-976 #20-977 20-983 #22-1063
22-1076 #22-1077 22-1095
$$S777 = 000000 #9-259 9-270 #9-271 9-283 #9-284 9-288 #9-289 9-302 #11-381
11-399 #13-491 13-498 #13-499 13-525 #13-526 13-538 #14-540 14-566
#16-666 16-673 #16-674 16-710 #17-712 17-759 #18-761 18-770 #18-771
18-783 #20-869 20-887 #20-888 20-895 #20-896 20-921 #20-922 20-931
#20-932 20-950 #20-951 20-969 #20-970 20-976 #20-977 20-983 #22-1063
22-1076 #22-1077 22-1095
$$TRNM = 000000 #5-108 #7-174 #9-258 9-259 #9-259 9-260 9-261 9-262 #9-262
9-263 9-264 9-267 #9-267 *9-269 #9-269 9-270 #9-270 9-271
#9-271 9-272 9-273 *9-283 #9-283 9-284 #9-284 9-285 9-286
*9-288 #9-288 9-289 #9-289 9-290 9-291 9-292 #9-292 9-293
9-294 9-297 #9-297 9-300 #9-300 9-302 #9-302 #11-380 11-381
#11-381 11-382 11-383 11-388 #11-388 11-399 #11-399 #13-490 13-491
#13-491 13-492 13-493 *13-498 #13-498 13-499 #13-499 13-500 13-501
13-502 #13-502 13-503 13-504 13-521 #13-521 13-524 #13-524 13-525
#13-525 13-526 #13-526 13-527 13-528 13-529 #13-529 13-530 13-531
13-534 #13-534 13-537 #13-537 13-538 #13-538 14-540 #14-540 14-541
14-542 14-543 #14-543 14-544 14-545 14-552 #14-552 14-553 14-554
14-556 #14-556 14-559 #14-559 14-562 #14-562 *14-564 #14-564 14-566
#14-566 #16-665 16-666 #16-666 16-667 16-668 *16-673 #16-673 16-674
#16-674 16-675 16-676 16-677 #16-677 16-678 16-679 16-690 #16-690
16-691 #16-691 16-694 16-695 16-697 16-697 #16-697 16-698 16-699
16-701 16-701 #16-701 16-702 16-703 16-705 #16-705 16-707 16-707
#16-707 16-709 #16-709 16-710 #16-710 17-712 #17-712 17-713 17-714
17-715 #17-715 17-716 17-719 17-720 17-721 #17-721 17-723 17-724
17-729 #17-729 17-730 17-731 17-732 17-734 #17-734 17-735 #17-735
17-736 17-737 17-739 #17-739 17-740 17-741 17-743 #17-743 17-746
#17-746 17-747 #17-747 17-750 #17-750 17-751 #17-751 17-754 #17-754
17-755 #17-755 17-758 #17-758 17-759 #17-759 18-761 #18-761 18-762
18-763 *18-770 #18-770 18-771 #18-771 18-772 18-773 18-774 #18-774
18-775 18-776 18-779 #18-779 18-782 #18-782 18-783 #18-783 #20-862
20-869 #20-869 20-870 20-871 20-872 #20-872 20-874 20-875 20-878
20-878 #20-878 20-879 20-880 20-883 #20-883 20-886 20-886 #20-886
20-887 #20-887 20-888 #20-888 20-889 20-890 20-895 #20-895 20-896
#20-896 20-897 20-898 20-899 #20-899 20-900 20-901 20-903 #20-903
20-904 20-905 20-906 #20-906 20-907 20-908 20-911 #20-911 20-916
#20-916 20-917 #20-917 20-918 #20-918 20-920 #20-920 20-921 #20-921
20-922 #20-922 20-923 20-924 20-926 #20-926 20-927 20-928 *20-930
#20-930 20-931 #20-931 20-932 #20-932 20-933 20-934 20-936 #20-936
20-937 20-938 20-939 #20-939 20-940 20-941 20-942 20-945 #20-945
20-948 #20-948 20-949 #20-949 20-950 #20-950 20-951 #20-951 20-952
20-953 20-955 #20-955 20-956 20-957 20-958 #20-958 20-959 20-960
20-961 20-964 #20-964 20-967 #20-967 20-968 #20-968 20-969 #20-969
20-970 #20-970 20-971 20-972 20-973 20-976 #20-976 20-977 #20-977
TSTEST CREATED BY MACRO ON 13-OCT-79 AT 13:01 PAGE 7
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
20-978 20-979 20-981 #20-981 20-983 #20-983 #22-1061 *22-1063 #22-1063
22-1064 22-1065 22-1066 #22-1066 22-1067 22-1068 22-1070 #22-1070 22-1075
#22-1075 22-1076 #22-1076 22-1077 #22-1077 22-1078 22-1079 22-1080 #22-1080
22-1081 22-1082 22-1084 #22-1084 22-1085 #22-1085 22-1086 22-1087 22-1089
#22-1089 22-1090 #22-1090 22-1091 22-1092 22-1094 #22-1094 22-1095 #22-1095
TSTEST CREATED BY MACRO ON 13-OCT-79 AT 13:01 PAGE 8
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #7-178 #11-394 #11-398 #13-496 #13-513 #13-517 #13-523 #13-536 #14-551 #14-565
#16-671 #16-685 #16-708 #17-745 #17-749 #17-753 #17-757 #18-768 #18-781 #20-868
#20-894 #20-902 #20-915 #20-925 #20-935 #20-954 #20-982 #22-1069 #22-1083 #22-1088
#22-1093
CASE #5-108 #7-174 #9-258 #11-380 #13-490 #16-665 16-693 16-697 16-701 #20-862
20-873 20-878 #22-1061
CONDF #5-99 #5-104 #8-248 #8-253 #10-370 #10-374 #12-479 #12-484 #15-654 #15-659
#19-851 #19-857 #21-1050 #21-1054
DO #5-108 #7-174 #9-258 #11-380 #13-490 #16-665 16-695 16-699 16-703 17-732
#20-862 20-875 20-880 #22-1061
ELSE #5-108 #7-174 #9-258 9-267 9-297 #11-380 11-388 #13-490 13-521 13-534
14-556 14-562 #16-665 16-690 16-705 17-743 17-747 17-751 17-755 18-779
#20-862 20-883 20-911 20-918 20-945 20-964 20-981 #22-1061 22-1070
ENDCAS #5-108 #7-174 #9-258 #11-380 #13-490 #16-665 16-707 #20-862 20-886 #22-1061
ENDIF #5-108 #7-174 #9-258 #9-269 #9-270 #9-283 #9-288 #9-300 #9-302 #11-380
#11-399 #13-490 #13-498 #13-524 #13-525 #13-537 #13-538 #14-559 #14-564 #14-566
#16-665 #16-673 #16-707 #16-709 #16-710 #17-734 #17-746 #17-750 #17-754 #17-758
#17-759 #18-770 #18-782 #18-783 #20-862 #20-886 #20-887 #20-895 #20-916 #20-917
#20-920 #20-921 #20-930 #20-931 #20-948 #20-949 #20-950 #20-967 #20-968 #20-969
#20-976 #20-983 #22-1061 #22-1075 #22-1076 #22-1084 #22-1089 #22-1094 #22-1095
ENDPRO #5-108 5-112 #7-174 7-179 #9-258 9-304 #11-380 11-400 #13-490 14-568
#16-665 18-785 #20-862 20-985 #22-1061 22-1097
ENDWHI #5-108 #7-174 #9-258 #11-380 #13-490 #16-665 #17-734 #20-862 #22-1061
FALSE #5-108 #7-174 #9-258 9-263 9-293 #11-380 #13-490 14-553 #16-665 16-694
16-698 16-702 17-719 17-730 17-736 17-740 #20-862 20-870 20-874 20-879
20-889 20-897 20-904 20-907 20-923 20-927 20-933 20-937 20-941 20-952
20-956 20-960 20-971 20-972 20-978 #22-1061 22-1064 22-1078
FALSEB #5-108 #7-174 #9-258 9-260 9-272 9-285 9-290 #11-380 11-382 #13-490
13-492 13-500 13-503 13-527 13-530 14-541 14-544 #16-665 16-667 16-675
16-678 17-713 17-716 17-723 17-731 18-762 18-772 18-775 #20-862 20-900
#22-1061 22-1067 22-1081 22-1086 22-1091
IF #5-108 #7-174 #9-258 #9-259 #9-262 #9-271 #9-284 #9-289 #9-292 #11-380
#11-381 #13-490 #13-491 #13-499 #13-502 #13-526 #13-529 #14-540 #14-543 #14-552
#16-665 #16-666 #16-674 #16-677 #16-691 #17-712 #17-715 #17-721 #17-729 #17-735
#17-739 #18-761 #18-771 #18-774 #20-862 #20-869 #20-872 #20-888 #20-896 #20-899
#20-903 #20-906 #20-922 #20-926 #20-932 #20-936 #20-939 #20-951 #20-955 #20-958
#20-970 #20-977 #22-1061 #22-1063 #22-1066 #22-1077 #22-1080 #22-1085 #22-1090
JMPPRO #5-108 #7-174 #9-258 #11-380 #13-490 #16-665 #20-862 #22-1061
NICDF #12-479 #12-485 #15-654 #15-660 #19-851 #19-856
ONCASE #5-108 #7-174 #9-258 #11-380 #13-490 #16-665 16-691 #20-862 20-872 #22-1061
PRDF #21-1050 21-1056
PROC #4-50 22-1061
PROCLC #4-50 5-108 #5-108 7-174 #7-174 9-258 #9-258 11-380 #11-380 13-490
#13-490 16-665 #16-665 20-862 #20-862 #22-1061
RESSTK #12-479 #14-560 #19-851 #20-984
SAVSTK #12-479 14-546 #19-851 20-863
SWSTK$ #5-108 #7-174 #9-258 #11-380 #13-490 #16-665 #20-862 #22-1061
THEN #5-108 #7-174 #9-258 #9-261 #9-264 #9-273 #9-286 #9-291 #9-294 #11-380
#11-383 #13-490 #13-493 #13-501 #13-504 #13-528 #13-531 #14-542 #14-545 #14-554
#16-665 #16-668 #16-676 #16-679 #16-695 #16-699 #16-703 #17-714 #17-720 #17-724
#17-732 #17-737 #17-741 #18-763 #18-773 #18-776 #20-862 #20-871 #20-875 #20-880
#20-890 #20-898 #20-901 #20-905 #20-908 #20-924 #20-928 #20-934 #20-938 #20-942
TSTEST CREATED BY MACRO ON 13-OCT-79 AT 13:01 PAGE 9
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#20-953 #20-957 #20-961 #20-973 #20-979 #22-1061 #22-1065 #22-1068 #22-1079 #22-1082
#22-1087 #22-1092
TRUE #5-108 #7-174 #9-258 #11-380 #13-490 #16-665 #20-862 #20-940 #20-959 #22-1061
TRUEB #5-108 #7-174 #9-258 #11-380 #13-490 #16-665 #20-862 #22-1061
TSDF #5-99 #5-103 #6-153 #6-157 #8-248 #8-252 #10-370 #10-375 #12-479 #12-483
#15-654 #15-658 #19-851 #19-855 #21-1050 #21-1055
WHILE #5-108 #7-174 #9-258 #11-380 #13-490 #16-665 17-729 #20-862 #22-1061
$$BGND #5-108 #7-174 #9-258 #9-260 #9-263 #9-272 #9-285 #9-290 #9-293 #11-380
#11-382 #13-490 #13-492 #13-500 #13-503 #13-527 #13-530 #14-541 #14-544 #14-553
#16-665 #16-667 #16-675 #16-678 #16-694 #16-698 #16-702 #17-713 #17-716 #17-719
#17-723 #17-730 #17-731 #17-736 #17-740 #18-762 #18-772 #18-775 #20-862 #20-870
#20-874 #20-879 #20-889 #20-897 #20-900 #20-904 #20-907 #20-923 #20-927 #20-933
#20-937 #20-940 #20-941 #20-952 #20-956 #20-959 #20-960 #20-971 #20-972 #20-978
#22-1061 #22-1064 #22-1067 #22-1078 #22-1081 #22-1086 #22-1091
$$BGNN #5-108 #7-174 #9-258 9-260 9-263 9-267 9-272 9-285 9-290 9-293
9-297 #11-380 11-382 11-388 #13-490 13-492 13-500 13-503 13-521 13-527
13-530 13-534 14-541 14-544 14-553 14-556 14-562 #16-665 16-667 16-675
16-678 16-690 16-694 16-697 16-698 16-701 16-702 16-705 17-713 17-716
17-719 17-723 17-730 17-731 17-734 17-736 17-740 17-743 17-747 17-751
17-755 18-762 18-772 18-775 18-779 #20-862 20-870 20-874 20-878 20-879
20-883 20-889 20-897 20-900 20-904 20-907 20-911 20-918 20-923 20-927
20-933 20-937 20-940 20-941 20-945 20-952 20-956 20-959 20-960 20-964
20-971 20-972 20-978 20-981 #22-1061 22-1064 22-1067 22-1070 22-1078 22-1081
22-1086 22-1091
$$ELSE #5-108 #7-174 #9-258 9-267 9-297 #11-380 11-388 #13-490 13-521 13-534
14-556 14-562 #16-665 16-690 16-697 16-701 16-705 17-743 17-747 17-751
17-755 18-779 #20-862 20-878 20-883 20-911 20-918 20-945 20-964 20-981
#22-1061 22-1070
$$GEN1 #5-108 #5-108 #5-112 #7-174 #7-174 #7-179 #9-258 #9-258 #9-260 #9-260
#9-261 #9-263 #9-263 #9-264 #9-267 #9-267 #9-269 #9-270 #9-272 #9-273
#9-283 #9-285 #9-286 #9-288 #9-290 #9-291 #9-293 #9-293 #9-294 #9-297
#9-297 #9-300 #9-302 #9-304 #11-380 #11-380 #11-382 #11-383 #11-388 #11-388
#11-399 #11-400 #13-490 #13-490 #13-492 #13-492 #13-493 #13-498 #13-500 #13-501
#13-503 #13-503 #13-504 #13-521 #13-521 #13-524 #13-525 #13-527 #13-528 #13-530
#13-530 #13-531 #13-534 #13-534 #13-537 #13-538 #14-541 #14-542 #14-544 #14-544
#14-545 #14-553 #14-554 #14-556 #14-556 #14-559 #14-562 #14-562 #14-564 #14-566
#14-568 #16-665 #16-665 #16-667 #16-667 #16-668 #16-673 #16-675 #16-676 #16-678
#16-678 #16-679 #16-690 #16-690 #16-694 #16-695 #16-697 #16-697 #16-698 #16-699
#16-701 #16-701 #16-702 #16-703 #16-705 #16-705 #16-707 #16-709 #16-710 #17-713
#17-714 #17-716 #17-716 #17-719 #17-720 #17-723 #17-724 #17-729 #17-730 #17-730
#17-731 #17-732 #17-734 #17-734 #17-736 #17-736 #17-737 #17-740 #17-740 #17-741
#17-743 #17-743 #17-746 #17-747 #17-747 #17-750 #17-751 #17-751 #17-754 #17-755
#17-755 #17-758 #17-759 #18-762 #18-763 #18-770 #18-772 #18-773 #18-775 #18-775
#18-776 #18-779 #18-779 #18-782 #18-783 #18-785 #20-862 #20-862 #20-870 #20-871
#20-874 #20-875 #20-878 #20-878 #20-879 #20-880 #20-883 #20-883 #20-886 #20-887
#20-889 #20-890 #20-895 #20-897 #20-898 #20-900 #20-901 #20-904 #20-905 #20-907
#20-908 #20-911 #20-911 #20-916 #20-917 #20-918 #20-918 #20-920 #20-921 #20-923
#20-924 #20-927 #20-928 #20-930 #20-931 #20-933 #20-934 #20-937 #20-938 #20-940
#20-940 #20-941 #20-942 #20-945 #20-945 #20-948 #20-949 #20-950 #20-952 #20-953
#20-956 #20-957 #20-959 #20-959 #20-960 #20-961 #20-964 #20-964 #20-967 #20-968
#20-969 #20-971 #20-972 #20-973 #20-976 #20-978 #20-979 #20-981 #20-981 #20-983
#20-985 #22-1061 #22-1061 #22-1064 #22-1064 #22-1065 #22-1067 #22-1068 #22-1070 #22-1070
TSTEST CREATED BY MACRO ON 13-OCT-79 AT 13:01 PAGE 10
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
#22-1075 #22-1076 #22-1078 #22-1078 #22-1079 #22-1081 #22-1082 #22-1084 #22-1086 #22-1087
#22-1089 #22-1091 #22-1092 #22-1094 #22-1095 #22-1097
$$GEN2 #5-108 #7-174 #9-258 #9-272 #9-285 #9-290 #11-380 #11-382 #13-490 #13-500
#13-527 #14-541 #16-665 #16-675 #16-694 #16-698 #16-702 #17-713 #17-719 #17-723
#17-731 #18-762 #18-772 #20-862 #20-874 #20-879 #20-900 #20-907 #20-941 #20-960
#20-972 #22-1061 #22-1067 #22-1081 #22-1086 #22-1091
$$GNAB #5-108 #7-174 #9-258 9-272 9-285 9-290 #11-380 11-382 #13-490 13-500
13-503 13-527 13-530 14-541 14-544 14-553 #16-665 16-675 16-678 16-694
16-698 16-702 17-713 17-716 17-719 17-723 17-730 17-731 17-740 18-762
18-772 18-775 #20-862 20-870 20-874 20-879 20-889 20-897 20-900 20-904
20-907 20-923 20-927 20-933 20-937 20-940 20-941 20-952 20-956 20-959
20-960 20-971 20-972 20-978 #22-1061 22-1067 22-1081 22-1086 22-1091
$$GNBT #5-108 #7-174 #9-258 9-260 9-263 9-293 #11-380 #13-490 13-492 #16-665
16-667 17-736 #20-862 #22-1061 22-1064 22-1078
$$GNCM #5-108 #7-174 #9-258 9-260 9-263 9-272 9-285 9-290 9-293 #11-380
11-382 #13-490 13-492 13-500 13-503 13-527 13-530 14-541 14-544 14-553
#16-665 16-667 16-675 16-678 16-694 16-698 16-702 17-713 17-716 17-719
17-723 17-730 17-731 17-736 17-740 18-762 18-772 18-775 #20-862 20-870
20-874 20-879 20-889 20-897 20-900 20-904 20-907 20-923 20-927 20-933
20-937 20-940 20-941 20-952 20-956 20-959 20-960 20-971 20-972 20-978
#22-1061 22-1064 22-1067 22-1078 22-1081 22-1086 22-1091
$$INMC #5-108 5-108 #7-174 7-174 #9-258 9-258 #11-380 11-380 #13-490 13-490
#16-665 16-665 #20-862 20-862 #22-1061 22-1061
$$INSY #5-108 5-108 #7-174 7-174 #9-258 9-258 #11-380 11-380 #13-490 13-490
#16-665 16-665 #20-862 20-862 #22-1061 22-1061
$$LAB #5-108 #7-174 #9-258 9-261 9-264 9-267 9-269 9-270 9-273 9-283
9-286 9-288 9-291 9-294 9-297 9-300 9-302 #11-380 11-383 11-388
11-399 #13-490 13-493 13-498 13-501 13-504 13-521 13-524 13-525 13-528
13-531 13-534 13-537 13-538 14-542 14-545 14-554 14-556 14-559 14-562
14-564 14-566 #16-665 16-668 16-673 16-676 16-679 16-690 16-695 16-697
16-699 16-701 16-703 16-705 16-707 16-709 16-710 17-714 17-720 17-724
17-729 17-732 17-734 17-737 17-741 17-743 17-746 17-747 17-750 17-751
17-754 17-755 17-758 17-759 18-763 18-770 18-773 18-776 18-779 18-782
18-783 #20-862 20-871 20-875 20-878 20-880 20-883 20-886 20-887 20-890
20-895 20-898 20-901 20-905 20-908 20-911 20-916 20-917 20-918 20-920
20-921 20-924 20-928 20-930 20-931 20-934 20-938 20-942 20-945 20-948
20-949 20-950 20-953 20-957 20-961 20-964 20-967 20-968 20-969 20-973
20-976 20-979 20-981 20-983 #22-1061 22-1065 22-1068 22-1070 22-1075 22-1076
22-1079 22-1082 22-1084 22-1087 22-1089 22-1092 22-1094 22-1095
$$POP #5-108 #7-174 #9-258 9-269 9-269 9-270 9-270 9-283 9-283 9-288
9-288 9-300 9-300 9-302 9-302 #11-380 11-399 11-399 #13-490 13-498
13-498 13-524 13-524 13-525 13-525 13-537 13-537 13-538 13-538 14-559
14-559 14-564 14-564 14-566 14-566 #16-665 16-673 16-673 16-707 16-707
16-707 16-709 16-709 16-710 16-710 17-734 17-734 17-746 17-746 17-750
17-750 17-754 17-754 17-758 17-758 17-759 17-759 18-770 18-770 18-782
18-782 18-783 18-783 #20-862 20-886 20-886 20-886 20-887 20-887 20-895
20-895 20-916 20-916 20-917 20-917 20-920 20-920 20-921 20-921 20-930
20-930 20-931 20-931 20-948 20-948 20-949 20-949 20-950 20-950 20-967
20-967 20-968 20-968 20-969 20-969 20-976 20-976 20-983 20-983 #22-1061
22-1075 22-1075 22-1076 22-1076 22-1084 22-1084 22-1089 22-1089 22-1094 22-1094
22-1095 22-1095
$$POPI #5-108 #7-174 #9-258 9-269 9-269 9-270 9-270 9-283 9-283 9-288
TSTEST CREATED BY MACRO ON 13-OCT-79 AT 13:01 PAGE 11
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
9-288 9-300 9-300 9-302 9-302 #11-380 11-399 11-399 #13-490 13-498
13-498 13-524 13-524 13-525 13-525 13-537 13-537 13-538 13-538 14-559
14-559 14-564 14-564 14-566 14-566 #16-665 16-673 16-673 16-707 16-707
16-707 16-709 16-709 16-710 16-710 17-734 17-734 17-746 17-746 17-750
17-750 17-754 17-754 17-758 17-758 17-759 17-759 18-770 18-770 18-782
18-782 18-783 18-783 #20-862 20-886 20-886 20-886 20-887 20-887 20-895
20-895 20-916 20-916 20-917 20-917 20-920 20-920 20-921 20-921 20-930
20-930 20-931 20-931 20-948 20-948 20-949 20-949 20-950 20-950 20-967
20-967 20-968 20-968 20-969 20-969 20-976 20-976 20-983 20-983 #22-1061
22-1075 22-1075 22-1076 22-1076 22-1084 22-1084 22-1089 22-1089 22-1094 22-1094
22-1095 22-1095
$$PUSH #5-108 #7-174 #9-258 #9-259 #9-259 #9-262 #9-262 #9-271 #9-271 #9-284
#9-284 #9-289 #9-289 #9-292 #9-292 #11-380 #11-381 #11-381 #13-490 #13-491
#13-491 #13-499 #13-499 #13-502 #13-502 #13-526 #13-526 #13-529 #13-529 #14-540
#14-540 #14-543 #14-543 #14-552 #14-552 #16-665 #16-666 #16-666 #16-674 #16-674
#16-677 #16-677 #16-691 #16-691 #16-691 #17-712 #17-712 #17-715 #17-715 #17-721
#17-721 #17-729 #17-729 #17-735 #17-735 #17-739 #17-739 #18-761 #18-761 #18-771
#18-771 #18-774 #18-774 #20-862 #20-869 #20-869 #20-872 #20-872 #20-872 #20-888
#20-888 #20-896 #20-896 #20-899 #20-899 #20-903 #20-903 #20-906 #20-906 #20-922
#20-922 #20-926 #20-926 #20-932 #20-932 #20-936 #20-936 #20-939 #20-939 #20-951
#20-951 #20-955 #20-955 #20-958 #20-958 #20-970 #20-970 #20-977 #20-977 #22-1061
#22-1063 #22-1063 #22-1066 #22-1066 #22-1077 #22-1077 #22-1080 #22-1080 #22-1085 #22-1085
#22-1090 #22-1090
$$STSM #5-108 #7-174 #9-258 #9-259 #9-259 #9-262 #9-262 #9-271 #9-271 #9-284
#9-284 #9-289 #9-289 #9-292 #9-292 #11-380 #11-381 #11-381 #13-490 #13-491
#13-491 #13-499 #13-499 #13-502 #13-502 #13-526 #13-526 #13-529 #13-529 #14-540
#14-540 #14-543 #14-543 #14-552 #14-552 #16-665 #16-666 #16-666 #16-674 #16-674
#16-677 #16-677 #16-691 #16-691 #16-691 #17-712 #17-712 #17-715 #17-715 #17-721
#17-721 #17-729 #17-729 #17-735 #17-735 #17-739 #17-739 #18-761 #18-761 #18-771
#18-771 #18-774 #18-774 #20-862 #20-869 #20-869 #20-872 #20-872 #20-872 #20-888
#20-888 #20-896 #20-896 #20-899 #20-899 #20-903 #20-903 #20-906 #20-906 #20-922
#20-922 #20-926 #20-926 #20-932 #20-932 #20-936 #20-936 #20-939 #20-939 #20-951
#20-951 #20-955 #20-955 #20-958 #20-958 #20-970 #20-970 #20-977 #20-977 #22-1061
#22-1063 #22-1063 #22-1066 #22-1066 #22-1077 #22-1077 #22-1080 #22-1080 #22-1085 #22-1085
#22-1090 #22-1090
$$SYS #5-108 #7-174 #9-258 #11-380 #13-490 #16-665 #20-862 #22-1061
$$TRCE #5-108 5-108 5-112 #7-174 7-174 7-179 #9-258 9-258 9-304 #11-380
11-380 11-400 #13-490 13-490 14-568 #16-665 16-665 18-785 #20-862 20-862
20-985 #22-1061 22-1061 22-1097