Google
 

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