Google
 

Trailing-Edge - PDP-10 Archives - BB-H348C-RM_1982 - swskit-v21/listings/mcb/srrdin.list
There are no other files named srrdin.list in the archive.
SRRDIN	MACRO M1110  13-OCT-79 12:42
TABLE OF CONTENTS

     9-  114	SRRDIN
    13-  242	SRRLCS
    17-  386	SRRLNC
    21-  514	SRRLNL
    24-  664	SRRLNS
    26-  774	SRRNDC
    30-  911	SRRRML
    33- 1030	SRRRMS
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 3


      1					.TITLE	SRRDIN
      2					.NLIST  CND
      3						.IDENT	/V01.05/
      4					;
      5					; COPYRIGHT (C) 1978 BY
      6					; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
      7					;
      8					;
      9					; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED
     10					; ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE
     11					; INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER
     12					; COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
     13					; OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY
     14					; TRANSFERRED.
     15					;
     16					; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT  NOTICE
     17					; AND  SHOULD  NOT  BE  CONSTRUED  AS  A COMMITMENT BY DIGITAL EQUIPMENT
     18					; CORPORATION.
     19					;
     20					; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF  ITS
     21					; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
     22					;
     23					;
     24					; MODULE DESCRIPTION:
     25					;
     26					;   NCU SERVICE MODULE TO READ NETWORK INFORMATION
     27					;
     28					;
     29					; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
     30					;
     31					; IDENT HISTORY:
     32					;
     33					; 1.00	10-FEB-78
     34					;	VERSION 2.0 RELEASE
     35					;
     36					; 1.01	31-JUL-78	ALAN D. PECKHAM
     37					;	OFFLOAD MAPPED FUNCTIONS ONTO DLX
     38					; 1.02	28-AUG-78	ALAN D. PECKHAM
     39					;	DISALLOW ASKING FOR STATE OF LOCAL NODE AS IF A REMOTE NODE
     40					; 1.03	19-JAN-79	BUREN W. HOFFMAN
     41					;	CHANGED THE SRQNXF PROCEDURE FROM LOCAL TO GLOBAL.
     42					; 1.04	30-JAN-79	ALAN D. PECKHAM
     43					;	REMOVED SRQNXF TO SEPERATE MODULE
     44					; 1.05	31-JAN-79	ALAN D. PECKHAM
     45					;	FIX MISUNDERSTANDING ABOUT TRUEB IN SRRRMS
     46					;
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 4


     48					;
     49					;======================================================================;
     50					;++
     51					;          +-------------------------------------------------+
     52					;          I                                                 I
     53					;	   I R E A D   I N F O R M A T I O N   S E R V I C E I
     54					;	   I - - - - - - - - - - - - - - - - - - - - - - - - I
     55					;          I                                                 I
     56					;          +-------------------------------------------------+
     57					;
     58					; FUNCTION:
     59					;
     60					;   READ INFORMATION
     61					;
     62					; CALLING SEQUENCE:  CALL    SRRDIN
     63					;
     64					; INPUT:
     65					;
     66					;   R5 - ADDRESS OF CONTROL BLOCK
     67					;     C.LEN  - MAXIMUM LENGTH OF BUFFER IN BYTES
     68					;     C.ADDR - ADDRESS OF BUFFER FOR DATA
     69					;     C.TYPE - TYPE CODE OF INFORMATION DESIRED
     70					;   FOR LINE-ID LISTINGS
     71					;     C.PRID - PROCESS-ID TYPE OF OWNER OF LINES
     72					;              0 - LINES OWNED BY ANY PROCESS
     73					;              1 - LINES OWNED BY NSP
     74					;
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 5


     76					; OUTPUT:
     77					;
     78					;   C-BIT - CLEAR
     79					;   R5 - ADDRESS OF UPDATED CONTROL BLOCK
     80					;     C.RET - RETURN CODE
     81					;     C.LEN - AMOUNT OF DATA RETURNED
     82					;       FOR LISTINGS OF REMOTE NODES & LINE-IDS
     83					;         NUMBER OF REMOTE NODES OR LINE-IDS RETURNED IN BUFFER
     84					;       FOR COUNTS & STATUS
     85					;         LENGTH IN BYTES OF INFORMATION READ
     86					;     C.ADDR - ADDRESS OF BUFFER OF INFORMATION READ
     87					;     C.TYPE - NOT CHANGED
     88					;     C.PRID - NOT CHANGED
     89					;
     90					; REQUIREMENTS:
     91					;
     92					;   CONFIGURATION CONTROL SYMBOLS:
     93					;
     94					;     FR$LCC - LOCAL  NODE    COUNTERS
     95					;     FR$LCS - LOCAL  NODE    STATUS
     96					;     FR$RML - REMOTE NODE    LISTINGS
     97					;     FR$RMC - REMOTE NODE    COUNTERS
     98					;     FR$RMS - REMOTE NODE    STATUS
     99					;     FR$LNL -        LINE-ID LISTINGS
    100					;     FR$LNC -        LINE    COUNTERS
    101					;--
    102					;======================================================================;
    103					;
    104					; EXTERNAL MACROS
    105					;
    106					.MCALL  CONFIG
    107					.MCALL	PROC,PROCLC                                                             ;AP0001
    108					;                                                                               ;**-1
    109					; DEFINE EXTERNAL MACROS
    110					;
    111	000000				CONFIG				;CONFIGURATION CONTROL SYMBOLS
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 6
SRRDIN

    114					.SBTTL  SRRDIN
    115					;
    116					;======================================================================;
    117					;++
    118					;	   +-------------------------------------------------+
    119					;	   I						     I
    120					;	   I		       S R R D I N		     I
    121					;	   I		       - - - - - -		     I
    122					;	   I						     I
    123					;	   +-------------------------------------------------+
    124					;
    125					; FUNCTION:
    126					;
    127					;   READ INFORMATION
    128					;
    129					; CALLING SEQUENCE:  CALL    SRRDIN
    130					;
    131					; INPUT:
    132					;
    133					;   R5 - ADDRESS OF CONTROL BLOCK
    134					;     C.LEN  - MAXIMUM LENGTH OF BUFFER IN BYTES
    135					;     C.ADDR - ADDRESS OF BUFFER FOR DATA
    136					;     C.TYPE - TYPE CODE OF INFORMATION DESIRED
    137					;   FOR LINE-ID LISTINGS
    138					;     C.PRID - PROCESS-ID TYPE OF OWNER OF LINES
    139					;              0 - LINES OWNED BY ANY PROCESS
    140					;              1 - LINES OWNED BY NSP
    141					;   FOR LOCAL NODE COUNTERS
    142					;     @C.ADDR - LOCAL NODE NAME (I-6)
    143					;   FOR REMOTE NODE COUNTERS & STATUS
    144					;     @C.ADDR - REMOTE NODE NAME (I-6)
    145					;   FOR LINE COUNTERS & STATUS
    146					;     @C.ADDR - LINE-ID IN STANDARD FORMAT (4 BYTES)
    147					;
    148					; OUTPUT:
    149					;
    150					;   C-BIT - CLEAR
    151					;   R5 - ADDRESS OF UPDATED CONTROL BLOCK
    152					;     C.RET - RETURN CODE
    153					;     C.LEN - AMOUNT OF DATA RETURNED
    154					;       FOR LISTINGS OF REMOTE NODES & LINE-IDS
    155					;         NUMBER OF REMOTE NODES OR LINE-IDS RETURNED IN BUFFER
    156					;       FOR COUNTS & STATUS
    157					;         LENGTH IN BYTES OF INFORMATION READ
    158					;     C.ADDR - ADDRESS OF BUFFER OF INFORMATION READ
    159					;     C.TYPE - NOT CHANGED
    160					;     C.PRID - NOT CHANGED
    161					;   @C.ADDR - INFORMATION READ
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 7
SRRDIN

    163					;
    164					; REQUIREMENTS:
    165					;
    166					;   CONFIGURATION CONTROL SYMBOLS:
    167					;
    168					;     FR$LCC - LOCAL  NODE    COUNTERS
    169					;     FR$LCS - LOCAL  NODE    STATUS
    170					;     FR$RML - REMOTE NODE    LISTINGS
    171					;     FR$RMC - REMOTE NODE    COUNTERS
    172					;     FR$RMS - REMOTE NODE    STATUS
    173					;     FR$LNL -        LINE-ID LISTINGS
    174					;     FR$LNC -        LINE    COUNTERS
    175					;     FR$LNS -        LINE    STATUS
    176					;
    177					;   CONTROL BLOCK SYMBOLS:
    178					;
    179					;     CE$FUN - INVALID FUNCTION ERROR RETURN CODE
    180					;     C.RET  - OFFSET OF RETURN CODE
    181					;     C.LEN  - OFFSET OF LENGTH
    182					;     C.TYPE - OFFSET OF TYPE OF INFORMATION DESIRED
    183					;--
    184					;======================================================================;
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 8
SRRDIN

    186					;
    187					; EXTERNAL MACROS
    188					;
    189					.MCALL	CONDF                                                                   ;AP0001
    190					;                                                                               ;**-1
    191					; INTERNAL MACRO TO BUILD SERVICE TABLE ENTRY
    192					;
    193					.MACRO  SRVENT MNE,ABBR
    194					.IF     NE FR$'MNE
    195					  .WORD   SR'ABBR
    196					.IFF
    197					  .WORD   0
    198					.ENDC
    199					.ENDM
    200					;
    201					; DEFINE EXTERNAL SYMBOLS
    202					;
    203	000000				CONDF				;CONTROL BLOCK SYMBOLS
    204					;                                                                               ;**-1
    205					; INFORMATION REQUEST SERVICE TABLE
    206					;
    207	000000				INFTAB:
    208					;
    209	000000				SRVENT  LCC,RNDC		;READ LOCAL   NODE     COUNTERS
    210	000002				SRVENT  LCS,RLCS		;READ LOCAL   NODE     STATUS
    211	000004				SRVENT  RML,RRML		;READ REMOTE  NODE     LISTINGS
    212	000006				SRVENT  RMC,RNDC		;READ REMOTE  NODE     COUNTERS
    213	000010				SRVENT  RMS,RRMS		;READ REMOTE  NODE     STATUS
    214	000012				SRVENT  LNL,RLNL		;READ         LINE-ID  LISTINGS
    215	000014				SRVENT  LNC,RLNC		;READ         LINE     COUNTERS
    216	000016				SRVENT  LNS,RLNS		;READ         LINE     STATUS
    217					;
    218		000020 			INFEND	= .-INFTAB
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 9
SRRDIN

    220					;
    221					; PROCEDURE BODY
    222					;
    223	000020				PROC	SRRDIN
    224	000020	116500 	000016 		MOVB	C.TYPE(R5),R0		;GET TYPE CODE OF INFO REQUESTED
    225	000024	006300 			ASL	R0			;TURN IT INTO TABLE POINTER
    226	000026	016001 	177776'		MOV	INFTAB-2(R0),R1		;GET ADDRESS OF INFO REQUEST SERVICE
    227	000032				IF ; ADDRESS OF INFORMAMTION REQUEST SERVICE EXISTS
    228	000032				FALSE   HI R0,#INFEND
    229	000040				FALSE   CLEAR R1
    230	000044				THEN
    231	000044				  CALL	@R1			;DISPATCH SERVICE
    232	000046				ELSE
    233	000050	005065 	000012 		  CLR     C.LEN(R5)		;ZERO LENGTH OF INFORMATION READ
    234	000054	112765 	177777 	000010 	  MOVB    #CE$FUN,C.RET(R5)	;RETURN INVALID OPTION ERROR CODE
    235	000062				ENDIF
    236	000062	000241 			CLC				;SERVICE COMPLETED, RETURN
    237	000064				ENDPROC
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 10
SRRLCS

    242					.SBTTL  SRRLCS
    243					;
    244					;======================================================================;
    245					;++
    246					;	   +-------------------------------------------------+
    247					;	   I						     I
    248					;	   I		       S R R L C S		     I
    249					;	   I		       - - - - - -		     I
    250					;	   I						     I
    251					;	   +-------------------------------------------------+
    252					;
    253					; FUNCTION:
    254					;
    255					;   READ LOCAL NODE STATUS
    256					;
    257					; CALLING SEQUENCE:  CALL    SRRLCS
    258					;
    259					; INPUT:
    260					;
    261					;   R5 - ADDRESS OF CONTROL BLOCK
    262					;     C.LEN -  MAXIMUM LENGTH OF DATA BUFFER IN NUMBER OF BYTES
    263					;     C.ADDR - ADDRESS OF DATA BLOCK FOR LOCAL NODE STATUS
    264					;                                                                               ;**-1
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 11
SRRLCS

    266					; OUTPUT:
    267					;
    268					;   C-BIT - CLEAR
    269					;   @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
    270					;     C.RET  - RETURN CODE
    271					;     C.LEN  - LENGTH OF RETURNED DATA BLOCK IN NUMBER OF BYTES
    272					;     C.ADDR - ADDRESS OF UPDATED DATA BLOCK CONTAINING LOCAL NODE STATUS
    273					;   @C.ADDR -
    274					;
    275					;     I-----------------------------------I
    276					;     I OPER LOG STATE  I   NODE STATE    I
    277					;     I-----------------------------------I
    278					;     I                 I MAINT LOG STATE I
    279					;     I-               -I-----------------I
    280					;     I					  I
    281					;     I-				 -I
    282					;     I   DEFAULT HOST NODE NAME (I-6)    I
    283					;     I-				 -I
    284					;     I					  I
    285					;     I-----------------------------------I
    286					;     I   ROUTING VERSION                 I
    287					;     I-----------------I-		 -I
    288					;     I			I		  I
    289					;     I-	       -I-----------------I
    290					;     I   COMMUNICATIONS VERSION          I
    291					;     I-----------------------------------I
    292					;     I   SYSTEM VERSION (I-32)		  I
    293					;     I-				 -I
    294					;     I					  I
    295					;     I-				 -I
    296					;     :					  :
    297					;     :					  :
    298					;     :					  :
    299					;     I-				 -I
    300					;     I					  I
    301					;     I-----------------------------------I
    302					;
    303					; REQUIREMENTS:                                                                 ;**-1
    304					;
    305					;   CONTROL BLOCK SYMBOLS:
    306					;
    307					;     C.LEN  - OFFSET OF LENGTH
    308					;     C.ADDR - OFFSET OF BLOCK ADDRESS
    309					;
    310					;   DLX SERVICE SYMBOLS:                                                        ;AP0001
    311					;                                                                               ;AP0001
    312					;     NX.NIC  - NICE SERVICE QIO FUNCTION                                       ;AP0001
    313					;     NX$RNS  - READ NODE STATUS SUBFUNCTION                                    ;AP0001
    314					;--                                                                             ;**-28
    315					;======================================================================;
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 12
SRRLCS

    317					;
    318					; EXTERNAL MACROS
    319					;
    320					.MCALL	CONDF,NICDF,DLXDF,SRDF                                                  ;AP0001
    321					.MCALL	SAVSTK,RESSTK,QIOW$S                                                    ;AP0001
    322					;                                                                               ;**-2
    323					; DEFINE EXTERNAL SYMBOLS
    324					;
    325	000066				CONDF				;CONTROL BLOCK SYMBOLS
    326	000066				NICDF				;NICE MESSAGE SYMBOLS
    327	000066				DLXDF				;DLX NICE SERVICE SYMBOLS                       ;AP0001
    328	000066				SRDF				;SERVICE SYMBOLS                                ;**-1
    329					;                                                                               ;AP0001
    330					; HOLDING AREA FOR NODE / LINE NAME                                             ;AP0001
    331					;                                                                               ;AP0001
    332	000066				NNAME:	.BLKW	4                                                               ;AP0001
    333					                                                                                ;AP0001
    334					                                                                                ;AP0001
    335	000076				PROCLC	GETNOD                                                                  ;AP0001
    336	000076	016500 	000014 		MOV	C.ADDR(R5),R0		;GET BUFFER ADDRESS                             ;AP0001
    337	000102	012701 	000066'		MOV	#NNAME,R1		;AND HOLDING BUFFER                             ;AP0001
    338	000106	112002 			MOVB	(R0)+,R2		;THIS IS THE COUNT                              ;AP0001
    339	000110	110221 			MOVB	R2,(R1)+		;INSERT IT                                      ;AP0001
    340	000112				WHILE ; WE HAVE MORE OF THE NAME TO MOVE                                        ;AP0001
    341	000112				FALSE	EQ,R2                                                                   ;AP0001
    342	000116				DO                                                                              ;AP0001
    343	000116	112021 			  MOVB	(R0)+,(R1)+		;COPY IT OVER                                   ;AP0001
    344	000120	005302 			  DEC	R2                                                                      ;AP0001
    345	000122				ENDWHILE                                                                        ;AP0001
    346	000124	012701 	000066'		MOV	#NNAME,R1		;RECOVER THE HOLDING BUFFER                     ;AP0001
    347	000130	111102 			MOVB	(R1),R2			;AND GET                                        ;AP0001
    348	000132	005202 			INC	R2			;THE LENGTH OF THE DATA                         ;AP0001
    349	000134				ENDPROC                                                                         ;AP0001
    350					                                                                                ;AP0001
    351					                                                                                ;AP0001
    352	000136				PROCLC	GETLIN                                                                  ;AP0001
    353	000136	016500 	000014 		MOV	C.ADDR(R5),R0		;GET BUFFER ADDRESS                             ;AP0001
    354	000142	012701 	000066'		MOV	#NNAME,R1		;AND HOLDING BUFFER                             ;AP0001
    355	000146	012702 	000004 		MOV	#4,R2			;MOVE THIS MUCH                                 ;AP0001
    356	000152				WHILE ; WE HAVE MORE OF THE LINE-ID TO MOVE                                     ;AP0001
    357	000152				FALSE	EQ,R2                                                                   ;AP0001
    358	000156				DO                                                                              ;AP0001
    359	000156	112021 			  MOVB	(R0)+,(R1)+		;COPY IT OVER                                   ;AP0001
    360	000160	005302 			  DEC	R2                                                                      ;AP0001
    361	000162				ENDWHILE                                                                        ;AP0001
    362	000164	012701 	000066'		MOV	#NNAME,R1		;RECOVER THE HOLDING BUFFER                     ;AP0001
    363	000170	012702 	000004 		MOV	#4,R2			;AND SET LENGTH OF ID                           ;AP0001
    364	000174				ENDPROC                                                                         ;AP0001
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 13
SRRLCS

    366					;
    367					; PROCEDURE BODY
    368					;
    369	000176				PROCLC	SRRLCS                                                                  ;AP0001
    370	000176	012702 	000067'		MOV	#NNAME+1,R2		;GET OUR NODE NAME BUFFER                       ;AP0001
    371	000202	012701 	000006 		MOV	#6,R1			;THIS MANY CHARACTERS                           ;AP0001
    372	000206				CALL	LOCNOD			;COPY THE LOCAL NODE NAME IN                    ;AP0001
    373	000212	110167 	177650 		MOVB	R1,NNAME		;STORE THE COUNT                                ;AP0001
    374	000216	005201 			INC	R1			;AND FIGURE TOTAL LENGTH                        ;AP0001
    375	000220	012700 	000010 		MOV	#C.RET,R0		;COPY TO                                        ;AP0001
    376	000224	060500 			ADD	R5,R0			;GET STATUS BLOCK ADDRESS                       ;AP0001
    377	000226				QIOW$S #NX.NIC,#NCOLUN,#TEMFLG,,R0,,<#NNAME,R1,#NX$RNS,C.ADDR(R5),C.LEN(R5)>    ;AP0001
    378									;READ THE NODE COUNTS                           ;AP0001
    379	000302				CALL	SRQNXF			;PROCESS DLX RETURN CODES FOR NODE FUNCTION     ;AP0001
    380	000306				ENDPROC                                                                         ;AP0001
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 14
SRRLNC

    386					.SBTTL  SRRLNC
    387					;
    388					;======================================================================;
    389					;++
    390					;	   +-------------------------------------------------+
    391					;	   I						     I
    392					;	   I		       S R R L N C		     I
    393					;	   I		       - - - - - -		     I
    394					;	   I						     I
    395					;	   +-------------------------------------------------+
    396					;
    397					; FUNCTION:
    398					;
    399					;   READ LINE COUNTERS
    400					;
    401					; CALLING SEQUENCE:  CALL    SRRLNC
    402					;
    403					; INPUT:
    404					;
    405					;   R5 - ADDRESS OF CONTROL BLOCK
    406					;     C.LEN  - MAXIMUM LENGTH OF DATA BUFFER IN NUMBER OF BYTES
    407					;     C.ADDR - ADDRESS OF DATA BLOCK FOR LINE COUNTERS
    408					;   @C.ADDR -
    409					;
    410					;     !-----------------------------------!
    411					;     ! LINE CONTROLLER !   LINE DEVICE   !
    412					;     !-----------------------------------!
    413					;     ! LINE STATION    !   LINE NUMBER   !
    414					;     !-----------------------------------!
    415					;
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 15
SRRLNC

    417					; OUTPUT:
    418					;
    419					;   C-BIT - CLEAR
    420					;   @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
    421					;     C.RET  - RETURN CODE
    422					;     C.LEN  - TOTAL LENGTH OF RETURNED DATA BLOCK IN NUMBER OF BYTES
    423					;     C.ADDR - ADDRESS OF UPDATED DATA BLOCK CONTAINING LINE COUNTERS
    424					;   @C.ADDR -
    425					;
    426					;     !-----------------------------------!
    427					;     ! LINE CONTROLLER !   LINE DEVICE   !
    428					;     !-----------------------------------!
    429					;     ! LINE STATION    !   LINE NUMBER   !
    430					;     !-----------------------------------!
    431					;     ! COUNT LOW       !   NL$ZRO        !
    432					;     !-----------------------------------!
    433					;     ! NL$BRC          !   COUNT HIGH    !
    434					;     !-----------------------------------!
    435					;     ! COUNT HIGH      !   COUNT LOW     !
    436					;     !-----------------------------------!
    437					;     ! COUNT LOW       !   NL$BTR        !
    438					;     !-----------------------------------!
    439					;     ! NL$RTR          !   COUNT HIGH    !
    440					;     !-----------------------------------!
    441					;     ! COUNT HIGH      !   COUNT LOW     !
    442					;     !-----------------------------------!
    443					;     ! COUNT LOW       !   NL$RLE        !
    444					;     !-----------------------------------!
    445					;     ! NL$RES          !   COUNT HIGH    !
    446					;     !-----------------------------------!
    447					;     ! COUNT HIGH      !   COUNT LOW     !
    448					;     !-----------------------------------!
    449					;     ! COUNT LOW       !   NL$TMO        !
    450					;     !-----------------------------------!
    451					;                       !   COUNT HIGH    !
    452					;                       +-----------------!
    453					;     NL$ZRO = TIME IN SECONDS SINCE LAST ZEROED
    454					;     NL$BRC = BLOCKS RECEIVED
    455					;     NL$BTR = BLOCKS SENT
    456					;     NL$RTR = RETRANSMISSIONS, LINE ERRORS
    457					;     NL$RLE = RECEIVED LINE ERRORS
    458					;     NL$RES = RESOURCE ERRORS
    459					;     NL$TMO = RECEIVE TIMEOUTS (NOT AVAILABLE FROM DMC11)
    460					;
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 16
SRRLNC

    462					; REQUIREMENTS:
    463					;
    464					;   CONTROL BLOCK SYMBOLS:
    465					;
    466					;     CE$LID  - INVALID LINE-ID RETURN CODE
    467					;     C.RET  - OFFSET OF RETURN CODE
    468					;     C.LEN  - OFFSET OF LENGTH
    469					;     C.ADDR - OFFSET OF BLOCK ADDRESS
    470					;
    471					;   DLX SERVICE SYMBOLS:                                                        ;AP0001
    472					;                                                                               ;AP0001
    473					;     NX.NIC  - NICE SERVICE QIO FUNCTION                                       ;AP0001
    474					;     NX$RLC  - READ LINE COUNTS SUBFUNCTION                                    ;AP0001
    475					;                                                                               ;**-65
    476					;--
    477					;======================================================================;
    478					;                                                                               ;**-1
    479					; EXTERNAL MACROS
    480					;
    481					.MCALL	CONDF,NICDF,DLXDF,SRDF,QIOW$S                                           ;AP0001
    482					.MCALL  RESSTK,SAVSTK                                                           ;**-1
    483					;                                                                               ;**-1
    484					; DEFINE EXTERNAL SYMBOLS
    485					;
    486	000310				CONDF				;CONTROL BLOCK SYMBOLS                          ;**-1
    487	000310				SRDF				;SERVICE SYMBOLS                                ;AP0001
    488	000310				NICDF				;NICE MESSAGE SYMBOLS                           ;**-1
    489	000310				DLXDF				;DLX NICE SERVICE SYMBOLS                       ;AP0001
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 17
SRRLNC

    491					;                                                                               ;**-1
    492					; PROCEDURE BODY
    493					;
    494	000310				PROCLC	SRRLNC                                                                  ;AP0001
    495	000310				SAVSTK	<R4,R3>			;GET ROOM TO MOVE                               ;AP0001
    496	000314				CALL	GETLIN			;COPY THE LINE-ID TO THE HOLDING AREA           ;AP0001
    497	000320	016503 	000014 		MOV	C.ADDR(R5),R3		;GET DESTINATION ADDRESS (DDB)                  ;AP0001
    498	000324	060203 			ADD	R2,R3			;INDEX TO RECEIVE DATA                          ;AP0001
    499	000326	016504 	000012 		MOV	C.LEN(R5),R4		;GET LENGTH                                     ;AP0001
    500	000332	160204 			SUB	R2,R4			;OF RECEIVE AREA                                ;AP0001
    501	000334	012700 	000010 		MOV	#C.RET,R0		;COPY TO                                        ;AP0001
    502	000340	060500 			ADD	R5,R0			;GET STATUS BLOCK ADDRESS                       ;AP0001
    503	000342				QIOW$S	#NX.NIC,#NCOLUN,#TEMFLG,,R0,,<R1,R2,#NX$RLC,R3,R4>                      ;AP0001
    504									;READ THE LINE COUNTS                           ;AP0001
    505	000410				CALL	SRQNXF			;PROCESS DLX RETURN CODES FOR LINE FUNCTION     ;AP0001
    506	000414	060265 	000012 		ADD	R2,C.LEN(R5)		;ADD LINE-ID TO LENGTH OF RESPONSE              ;AP0001
    507	000420				RESSTK	<R3,R4>			;YOU CAN HAVE THESE BACK                        ;AP0001
    508	000424				ENDPROC                                                                         ;AP0001
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 18
SRRLNL

    514					.SBTTL  SRRLNL
    515					;
    516					;======================================================================;
    517					;++
    518					;	   +-------------------------------------------------+
    519					;	   I						     I
    520					;	   I		       S R R L N L		     I
    521					;	   I		       - - - - - -		     I
    522					;	   I						     I
    523					;	   +-------------------------------------------------+
    524					;
    525					; FUNCTION:
    526					;
    527					;   READ LISTING OF ALL KNOWN LINE-IDS OWNED BY A SPECIFIED PROCESS-ID TYPE
    528					;
    529					; CALLING SEQUENCE:  CALL    SRRLNL
    530					;
    531					; INPUT:
    532					;
    533					;   R5 - ADDRESS OF CONTROL BLOCK
    534					;     C.LEN  - MAXIMUM LENGTH OF DATA BUFFER IN NUMBER OF BYTES
    535					;     C.ADDR - ADDRESS OF DATA BLOCK FOR LISTING OF ALL LINE-IDS
    536					;     C.PRID - PROCESS-ID TYPE OF OWNER OF LINES
    537					;              0 - LINES OWNED BY ANY PROCESS
    538					;              1 - LINES OWNED BY NSP
    539					;
    540					; OUTPUT:
    541					;
    542					;   C-BIT - CLEAR
    543					;   @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
    544					;     C.RET  - RETURN CODE
    545					;     C.LEN  - NUMBER OF LINE-IDS RETURNED (CAN BE ZERO)
    546					;     C.ADDR - ADDRESS OF UPDATED DATA BLOCK CONTAINING LINE-IDS
    547					;     C.PRID - PROCESS-ID TYPE OF OWNER OF LINES (UNCHANGED)
    548					;   @C.ADDR -
    549					;
    550					;     !-----------------------------------!
    551					;     ! LINE CONTROLLER !   LINE DEVICE   !
    552					;     !-----------------------------------!
    553					;     ! LINE STATION    !   LINE NUMBER   !
    554					;     !===================================!
    555					;     ! LINE CONTROLLER !   LINE DEVICE   !
    556					;     !-----------------------------------!
    557					;     ! LINE STATION    !   LINE NUMBER   !
    558					;     !===================================!
    559					;     ! LINE CONTROLLER !   LINE DEVICE   !
    560					;     !-----------------------------------!
    561					;     ! LINE STATION    !   LINE NUMBER   !
    562					;     !===================================!
    563					;     ! ETC.            !                 !
    564					;     !-----------------------------------!
    565					;     !                 !                 !
    566					;     !===================================!
    567					;
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 19
SRRLNL

    569					; REQUIREMENTS:
    570					;
    571					;   CONTROL BLOCK SYMBOLS:
    572					;
    573					;     CS$SUC - SUCCESS RETURN CODE
    574					;     CE$FUN - INVALID FUNCTION OR OPTION ERROR RETURN CODE
    575					;     CE$OVR - RESOURCE ERROR RETURN CODE
    576					;     C.RET  - OFFSET OF RETURN CODE
    577					;     C.LEN  - OFFSET OF LENGTH
    578					;     C.ADDR - OFFSET OF BLOCK ADDRESS
    579					;     C.PRID - OFFSET OF PROCESS-ID
    580					;
    581					;   DLX SERVICE SYMBOLS:                                                        ;AP0001
    582					;                                                                               ;AP0001
    583					;     NX.NIC  - NICE SERVICE QIO FUNCTION                                       ;AP0001
    584					;     NX$RLN  - READ LINE IDENTIFIERS SUBFUNCTION                               ;AP0001
    585					;                                                                               ;**-35
    586					;--
    587					;======================================================================;
    588					;
    589					;                                                                               ;**-1
    590					; EXTERNAL MACROS
    591					;
    592					.MCALL	CONDF,DLXDF,SRDF,QIOW$S                                                 ;AP0001
    593					.MCALL  RESSTK,SAVSTK                                                           ;**-1
    594					;                                                                               ;**-1
    595					; DEFINE EXTERNAL SYMBOLS
    596					;
    597	000426				CONDF				;CONTROL BLOCK SYMBOLS
    598	000426				DLXDF				;DLX NICE SERVICE SYMBOLS                       ;AP0001
    599	000426				SRDF				;SERVICE SYMBOLS                                ;AP0001
    600					;                                                                               ;**-6
    601					; TRANSLATION TABLE FROM PROCESS-ID TO PROCESS NUMBER (LINE OWNERSHIP)
    602					;
    603	000426	000000 			PRIDTB:	.WORD	0		;ANY OWNER                                      ;AP0001
    604	000430	055210 				.RAD50	/NSP/		;NSP IS OWNER                                   ;AP0001
    605		000004 			PRIDLN	= .-PRIDTB		;LENGTH OF PROCESS-ID TABLE                     ;**-2
    606						.EVEN
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 20
SRRLNL

    608					;
    609					; PROCEDURE BODY
    610					;
    611	000432				PROCLC	SRRLNL                                                                  ;AP0001
    612	000432	116500 	000017 		MOVB	C.PRID(R5),R0		;GET PROCESS ID REQESTED                        ;AP0001
    613	000436	006300 			ASL	R0			;TURN INTO INDEX                                ;AP0001
    614	000440				IF ; PROCESS-ID IS LEGAL                                                        ;AP0001
    615	000440				FALSE   GE R0,#PRIDLN                                                           ;AP0001
    616	000446				THEN                                                                            ;AP0001
    617	000446	016000 	000426'		  MOV    PRIDTB(R0),R0		;TRANSLATE PROCESS-ID TO LLC PROCESS NAME       ;AP0001
    618	000452				  SAVSTK <R3,R4>		;GET ROOM TO MOVE                               ;AP0001
    619	000456	016502 	000014 		  MOV	C.ADDR(R5),R2		;GET BUFFER ADDRESS                             ;AP0001
    620	000462	016503 	000012 		  MOV	C.LEN(R5),R3		;LENGTH                                         ;AP0001
    621	000466	010204 			  MOV	R2,R4			;COPY ADDRESS AND                               ;AP0001
    622	000470				  IF ; BUFFER ADDRESS IS ODD                                                    ;AP0001
    623	000470				  FALSE CLEAR,#1,R4                                                             ;AP0001
    624	000476				  THEN                                                                          ;AP0001
    625	000476	005204 			    INC	R4			;BUMP THE ADDRESS                               ;AP0001
    626	000500	005303 			    DEC	R3			;AND DETRACT FROM THE COUNT                     ;AP0001
    627	000502				  ENDIF                                                                         ;AP0001
    628	000502	012701 	000010 		  MOV	#C.RET,R1		;COPY TO GET                                    ;AP0001
    629	000506	060501 			  ADD	R5,R1			;STATUS BLOCK ADDRESS                           ;AP0001
    630	000510				  QIOW$S #NX.NIC,#NCOLUN,#TEMFLG,,R1,,<R4,R3,#NX$RLN,R4,R3>                     ;AP0001
    631									;READ THE LINE-IDS AND OWNERS                   ;AP0001
    632	000556				  CALL	SRQNXF			;PROCESS DLX RETURN CODES FOR LINE FUNCTION     ;AP0001
    633	000562				  IF ; SUCCESSFUL                                                               ;AP0001
    634	000562				  TRUE	CC                                                                      ;AP0001
    635	000564				  FALSEB LE,(R1)                                                                ;AP0001
    636	000570				  THEN                                                                          ;AP0001
    637	000570	010403 			    MOV R4,R3			;FIGURE THE                                     ;AP0001
    638	000572	066503 	000012 		    ADD C.LEN(R5),R3		;END OF BUFFER                                  ;AP0001
    639	000576	005065 	000012 		    CLR C.LEN(R5)		;INITITIALIZE COUNT OF LINES                    ;AP0001
    640	000602				    WHILE ; STILL MORE OF THE BUFFER TO LOOK AT                                 ;AP0001
    641	000602				    FALSE HIS,R4,R3                                                             ;AP0001
    642	000606				    DO ; CHECK IF IT IS A LINE WE WANT                                          ;AP0001
    643	000606				      IF ; IT IS A WANTED LINE                                                  ;AP0001
    644	000606				      TRUE EQ,R0                                                                ;AP0001
    645	000612				      FALSE NE,4(R4),R0                                                         ;AP0001
    646	000620				      THEN ; COPY IT INTO A NEW LIST                                            ;AP0001
    647	000620	011422 			        MOV (R4),(R2)+                                                          ;AP0001
    648	000622	016422 	000002 		        MOV 2(R4),(R2)+                                                         ;AP0001
    649	000626	005265 	000012 		        INC C.LEN(R5)		;ONE MORE LINE...                               ;AP0001
    650	000632				      ENDIF                                                                     ;AP0001
    651	000632	062704 	000006 		    ADD #6,R4                                                                   ;AP0001
    652	000636				    ENDWHILE                                                                    ;AP0001
    653	000640				  ENDIF                                                                         ;AP0001
    654	000640				  RESSTK <R4,R3>                                                                ;AP0001
    655	000644				ELSE                                                                            ;AP0001
    656	000646	112765 	177777 	000010 	  MOVB    #CE$FUN,C.RET(R5)	;INVALID PROCESS-ID SPECIFIED                   ;AP0001
    657	000654				ENDIF                                                                           ;AP0001
    658	000654				ENDPROC                                                                         ;AP0001
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 21
SRRLNS

    664					.SBTTL  SRRLNS
    665					;
    666					;======================================================================;
    667					;++
    668					;	   +-------------------------------------------------+
    669					;	   I						     I
    670					;	   I		       S R R L N S		     I
    671					;	   I		       - - - - - -		     I
    672					;	   I						     I
    673					;	   +-------------------------------------------------+
    674					;
    675					; FUNCTION:
    676					;
    677					;   READ LINE STATUS
    678					;
    679					; CALLING SEQUENCE:  CALL    SRRLNS
    680					;
    681					; INPUT:
    682					;
    683					;   R5 - ADDRESS OF CONTROL BLOCK
    684					;     C.LEN -  MAXIMUM LENGTH OF DATA BUFFER IN NUMBER OF BYTES
    685					;     C.ADDR - ADDRESS OF DATA BLOCK FOR LINE STATUS
    686					;   @C.ADDR -
    687					;
    688					;     !-----------------------------------!
    689					;     ! LINE CONTROLLER !   LINE DEVICE   !
    690					;     !-----------------------------------!
    691					;     ! LINE STATION    !   LINE NUMBER   !
    692					;     !-----------------------------------!
    693					;
    694					; OUTPUT:
    695					;
    696					;   C-BIT - CLEAR
    697					;   @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
    698					;     C.RET  - RETURN CODE
    699					;     C.LEN  - LENGTH OF RETURNED DATA BLOCK IN NUMBER OF BYTES
    700					;     C.ADDR - ADDRESS OF UPDATED DATA BLOCK CONTAINING LINE STATUS
    701					;   @C.ADDR -
    702					;
    703					;     !-----------------------------------!
    704					;     ! LINE CONTROLLER !   LINE DEVICE   !
    705					;     !-----------------------------------!
    706					;     ! LINE STATION    !   LINE NUMBER   !
    707					;     !-----------------------------------!
    708					;     ! OPER LOG STATE  !   LINE STATE    !
    709					;     !-----------------------------------!
    710					;     !                 ! MAINT LOG STATE !
    711					;     !                 +-----------------!
    712					;     !					  !
    713					;     !					  !
    714					;     !	      REMOTE NODE NAME (I-6)	  !
    715					;     !					  !
    716					;     !					  !
    717					;     !-----------------------------------!
    718					;
    719					; REQUIREMENTS:
    720					;
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 21-1
SRRLNS

    721					;   CONTROL BLOCK SYMBOLS:
    722					;
    723					;     CS$SUC  - SUCCESS RETURN CODE
    724					;     CE$LID  - INVALID LINE-ID
    725					;     CE$OVR  - RESOURCE ERROR RETURN ERROR CODE
    726					;     C.RET  - OFFSET OF RETURN CODE
    727					;     C.LEN  - OFFSET OF LENGTH
    728					;     C.ADDR - OFFSET OF BLOCK ADDRESS
    729					;
    730					;   DLX SERVICE SYMBOLS:                                                        ;AP0001
    731					;                                                                               ;AP0001
    732					;     NX.NIC  - NICE SERVICE QIO FUNCTION                                       ;AP0001
    733					;     NX$RLS  - READ LINE STATUS SUBFUNCTION                                    ;AP0001
    734					;                                                                               ;**-43
    735					;--
    736					;======================================================================;
    737					;
    738					;
    739					; EXTERNAL MACROS
    740					;
    741					.MCALL	CONDF,NICDF,DLXDF,SRDF,QIOW$S                                           ;AP0001
    742					.MCALL  RESSTK,SAVSTK                                                           ;**-1
    743					;                                                                               ;**-1
    744					; DEFINE EXTERNAL SYMBOLS
    745					;
    746	000656				CONDF				;CONTROL BLOCK SYMBOLS
    747	000656				NICDF				;NICE MESSAGE SYMBOLS                           ;**-2
    748	000656				DLXDF				;DLX NICE SERVICE SYMBOLS                       ;AP0001
    749	000656				SRDF				;SERVICE SYMBOLS                                ;AP0001
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 22
SRRLNS

    751					;
    752					; PROCEDURE BODY
    753					;
    754	000656				PROCLC	SRRLNS                                                                  ;AP0001
    755	000656				SAVSTK	<R4,R3>			;GET ROOM TO MOVE                               ;AP0001
    756	000662				CALL	GETLIN			;COPY THE LINE-ID TO THE HOLDING AREA           ;AP0001
    757	000666	016503 	000014 		MOV	C.ADDR(R5),R3		;GET DESTINATION ADDRESS (DDB)                  ;AP0001
    758	000672	060203 			ADD	R2,R3			;INDEX TO RECEIVE DATA                          ;AP0001
    759	000674	016504 	000012 		MOV	C.LEN(R5),R4		;GET LENGTH                                     ;AP0001
    760	000700	160204 			SUB	R2,R4			;OF RECEIVE AREA                                ;AP0001
    761	000702	012700 	000010 		MOV	#C.RET,R0		;COPY TO                                        ;AP0001
    762	000706	060500 			ADD	R5,R0			;GET STATUS BLOCK ADDRESS                       ;AP0001
    763	000710				QIOW$S	#NX.NIC,#NCOLUN,#TEMFLG,,R0,,<R1,R2,#NX$RLS,R3,R4>                      ;AP0001
    764									;READ THE LINE STATUS                           ;AP0001
    765	000756				CALL	SRQNXF			;PROCESS DLX RETURN CODES FOR LINE FUNCTION     ;AP0001
    766	000762	060265 	000012 		ADD	R2,C.LEN(R5)		;ADD LINE-ID TO LENGTH OF RESPONSE              ;AP0001
    767	000766				RESSTK	<R3,R4>			;YOU CAN HAVE THESE BACK                        ;AP0001
    768	000772				ENDPROC                                                                         ;AP0001
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 23
SRRNDC

    774					.SBTTL  SRRNDC
    775					;
    776					;======================================================================;
    777					;++
    778					;	   +-------------------------------------------------+
    779					;	   I						     I
    780					;	   I		       S R R N D C		     I
    781					;	   I		       - - - - - -		     I
    782					;	   I						     I
    783					;	   +-------------------------------------------------+
    784					;
    785					; FUNCTION:
    786					;
    787					;   READ NODE COUNTS
    788					;
    789					; CALLING SEQUENCE:  CALL    SRRNDC
    790					;
    791					; INPUT:
    792					;
    793					;   R5 - ADDRESS OF CONTROL BLOCK
    794					;     C.LEN -  MAXIMUM LENGTH OF DATA BUFFER IN NUMBER OF BYTES
    795					;     C.ADDR - ADDRESS OF DATA BLOCK FOR NODE COUNTS
    796					;   @C.ADDR -
    797					;     NODE NAME (I-6)
    798					;
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 24
SRRNDC

    800					; OUTPUT:
    801					;
    802					;   C-BIT - CLEAR
    803					;   @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
    804					;     C.RET  - RETURN CODE
    805					;     C.LEN  - LENGTH OF RETURNED DATA BLOCK IN NUMBER OF BYTES
    806					;     C.ADDR - ADDRESS OF UPDATED DATA BLOCK CONTAINING NODE COUNTS
    807					;
    808					;     C.ADDR(R5) --> I-----------------------------------I
    809					;		     I		NODE NAME (I-6)		 I
    810					;		     I-					-I
    811					;		     I					 I
    812					;		     I-					-I
    813					;		     I					 I
    814					;		     I-----------------+-		-I
    815					;		     I NN$ZRO	       I		 I
    816					;		     I-----------------------------------I
    817					;		     I COUNT HIGH      I   COUNT LOW	 I
    818					;		     I-----------------------------------I
    819					;		     I COUNT LOW       I   NN$UMS	 I
    820					;		     I-----------------------------------I
    821					;		     I NN$EXT	       I   COUNT HIGH    I
    822					;		     I-----------------------------------I
    823					;		     I COUNT HIGH      I   COUNT LOW     I
    824					;		     I-----------------------------------I
    825					;		     I COUNT LOW       I   NN$NKS	 I
    826					;		     I-----------------------------------I
    827					;		     I NN$FMT	       I   COUNT HIGH    I
    828					;		     I-----------------------------------I
    829					;		     I COUNT HIGH      I   COUNT LOW	 I
    830					;		     I-----------------------------------I
    831					;		     I COUNT LOW       I   NN$RES	 I
    832					;		     I-----------------------------------I
    833					;		     I NN$IZS	       I   COUNT HIGH    I
    834					;		     I-----------------------------------I
    835					;		     I COUNT HIGH      I   COUNT LOW	 I
    836					;		     I-----------------------------------I
    837					;		     I COUNT LOW       I   NN$IZU	 I
    838					;		     I-----------------------------------I
    839					;		     I NN$CAC	       I   COUNT HIGH    I
    840					;		     I-----------------------------------I
    841					;		     I COUNT HIGH      I   COUNT LOW     I
    842					;		     I-----------------------------------I
    843					;		     I COUNT LOW       I   NN$MAC	 I
    844					;		     I-----------------------------------I
    845					;				       I   COUNT HIGH    I
    846					;				       I-----------------I
    847					;		NN$ZRO = SECONDS SINCE LAST ZEROED
    848					;		NN$UMS = USER MESSAGES SENT
    849					;		NN$EXT = EXTRANEOUS MESSAGES RECEIVED
    850					;		NN$NKS = NEGATIVE ACKNOWLEDGEMENTS SENT
    851					;		NN$FMT = FORMAT ERRORS OTHER THAN ROUTING
    852					;		NN$RES = RESOURCE ERRORS
    853					;		NN$IZS = SUCCESSFUL NEIGHBOR INITIALIZATIONS
    854					;		NN$IZU = UNSUCCESSFUL NEIGHBOR INITIALIZATIONS
    855					;		NN$CAC = CURRENTLY ACTIVE LOGICAL LINKS
    856					;		NN$MAC = MAXIMUM LOGICAL LINKS ACTIVE
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 25
SRRNDC

    858					; REQUIREMENTS:
    859					;
    860					;   CONTROL BLOCK SYMBOLS:
    861					;
    862					;     CE$NOD  - INVALID NODE NAME
    863					;     C.RET  - OFFSET OF RETURN CODE
    864					;     C.LEN  - OFFSET OF LENGTH
    865					;     C.ADDR - OFFSET OF BLOCK ADDRESS
    866					;
    867					;   DLX SERVICE SYMBOLS:                                                        ;AP0001
    868					;                                                                               ;AP0001
    869					;     NX.NIC  - NICE SERVICE QIO FUNCTION                                       ;AP0001
    870					;     NX$RNC  - READ NODE COUNTS SUBFUNCTION                                    ;AP0001
    871					;                                                                               ;**-32
    872					;--
    873					;======================================================================;
    874					;
    875					;                                                                               ;**-1
    876					; EXTERNAL MACROS
    877					;
    878					.MCALL	CONDF,NICDF,DLXDF,SRDF,QIOW$S                                           ;AP0001
    879					.MCALL  RESSTK,SAVSTK                                                           ;**-1
    880					;                                                                               ;**-1
    881					; DEFINE EXTERNAL SYMBOLS
    882					;
    883	000774				CONDF				;CONTROL BLOCK SYMBOLS
    884	000774				NICDF				;NICE MESSAGE SYMBOLS                           ;**-1
    885	000774				DLXDF				;DLX NICE SERVICE SYMBOLS                       ;AP0001
    886	000774				SRDF				;SERVICE SYMBOLS                                ;AP0001
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 26
SRRNDC

    888					;
    889					; PROCEDURE BODY
    890					;
    891	000774				PROCLC	SRRNDC                                                                  ;AP0001
    892	000774				SAVSTK	<R4,R3>			;GET ROOM TO MOVE                               ;AP0001
    893	001000				CALL	GETNOD			;COPY NODE NAME TO HOLDING AREA                 ;AP0001
    894	001004	016503 	000014 		MOV	C.ADDR(R5),R3		;INDEX TO AREA                                  ;AP0001
    895	001010	060203 			ADD	R2,R3			;TO RECEIVE DATA                                ;AP0001
    896	001012	016504 	000012 		MOV	C.LEN(R5),R4		;GET LENGTH                                     ;AP0001
    897	001016	160204 			SUB	R2,R4			;OF RECEIVE AREA                                ;AP0001
    898	001020	012700 	000010 		MOV	#C.RET,R0		;COPY TO                                        ;AP0001
    899	001024	060500 			ADD	R5,R0			;GET STATUS BLOCK ADDRESS                       ;AP0001
    900	001026				QIOW$S	#NX.NIC,#NCOLUN,#TEMFLG,,R0,,<R1,R2,#NX$RNC,R3,R4>                      ;AP0001
    901									;READ THE COUNTS                                ;AP0001
    902	001074				CALL	SRQNXF			;PROCESS DLX RETURN CODES FOR NODE FUNCTION     ;AP0001
    903	001100	060265 	000012 		ADD	R2,C.LEN(R5)		;ADD NODE NAME TO RESPONSE LENGTH               ;AP0001
    904	001104				RESSTK	<R3,R4>			;YOU CAN HAVE THESE BACK                        ;AP0001
    905	001110				ENDPROC                                                                         ;AP0001
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 27
SRRRML

    911					.SBTTL  SRRRML
    912					;
    913					;======================================================================;
    914					;++
    915					;	   +-------------------------------------------------+
    916					;	   I						     I
    917					;	   I		       S R R R M L		     I
    918					;	   I		       - - - - - -		     I
    919					;	   I						     I
    920					;	   +-------------------------------------------------+
    921					;
    922					; FUNCTION:
    923					;
    924					;   READ LISTING OF ALL KNOWN REMOTE NODE NAMES
    925					;
    926					; CALLING SEQUENCE:  CALL    SRRRML
    927					;
    928					; INPUT:
    929					;
    930					;   R5 - ADDRESS OF CONTROL BLOCK
    931					;     C.LEN  - MAXIMUM LENGTH OF DATA BUFFER IN NUMBER OF BYTES
    932					;     C.ADDR - ADDRESS OF DATA BLOCK FOR LISTING OF ALL REMOTE NODE NAMES
    933					;
    934					; OUTPUT:
    935					;
    936					;   C-BIT - CLEAR
    937					;   @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
    938					;     C.RET  - RETURN CODE
    939					;     C.LEN  - NUMBER OF REMOTE NODE NAMES RETURNED (CAN BE ZERO)
    940					;     C.ADDR - ADDRESS OF UPDATED DATA BLOCK CONTAINING REMOTE NODE NAMES
    941					;   @C.ADDR -
    942					;     NODE NAME (I-6)
    943					;     NODE NAME (I-6)
    944					;     NODE NAME (I-6)
    945					;     ETC.
    946					;
    947					; REQUIREMENTS:
    948					;
    949					;   CONTROL BLOCK SYMBOLS:
    950					;
    951					;     CS$SUC  - SUCCESS RETURN CODE
    952					;     CE$OVR  - RESOURCE ERROR RETURN ERROR CODE
    953					;     C.RET  - OFFSET OF RETURN CODE
    954					;     C.LEN  - OFFSET OF LENGTH
    955					;     C.ADDR - OFFSET OF BLOCK ADDRESS
    956					;
    957					;   DLX SERVICE SYMBOLS:                                                        ;AP0001
    958					;                                                                               ;AP0001
    959					;     NX.NIC  - NICE SERVICE QIO FUNCTION                                       ;AP0001
    960					;     NX$RNN  - READ NODE NAMES SUBFUNCTION                                     ;AP0001
    961					;--                                                                             ;**-7
    962					;======================================================================;
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 28
SRRRML

    964					;
    965					; EXTERNAL MACROS
    966					;
    967					.MCALL	CONDF,DLXDF,SRDF                                                        ;AP0001
    968					.MCALL  RESSTK,SAVSTK                                                           ;**-1
    969					;                                                                               ;**-1
    970					; DEFINE EXTERNAL SYMBOLS
    971					;
    972	001112				CONDF				;CONTROL BLOCK SYMBOLS
    973	001112				DLXDF				;DLX NICE SERVICE SYMBOLS                       ;AP0001
    974	001112				SRDF				;SERVICE SYMBOLS                                ;AP0001
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 29
SRRRML

    976					;
    977					; PROCEDURE BODY
    978					;
    979	001112				PROCLC	SRRRML                                                                  ;AP0001
    980	001112				SAVSTK <R3,R4>		;GET ROOM TO MOVE                                       ;AP0001
    981	001116	016502 	000014 		MOV	C.ADDR(R5),R2		;GET BUFFER ADDRESS                             ;AP0001
    982	001122	010203 			MOV	R2,R3			;COPY AND                                       ;AP0001
    983	001124	016504 	000012 		MOV	C.LEN(R5),R4		;GET LENGTH                                     ;AP0001
    984	001130				IF ; BUFFER ADDRESS IS ODD                                                      ;AP0001
    985	001130				FALSE CLEAR,#1,R3                                                               ;AP0001
    986	001136				THEN                                                                            ;AP0001
    987	001136	005203 			  INC	R3			;BUMP THE ADDRESS                               ;AP0001
    988	001140	005304 			  DEC	R4			;AND DETRACT FROM THE COUNT                     ;AP0001
    989	001142				ENDIF                                                                           ;AP0001
    990	001142	012701 	000010 		MOV	#C.RET,R1		;COPY TO                                        ;AP0001
    991	001146	060501 			ADD	R5,R1			;GET STATUS BLOCK ADDRESS                       ;AP0001
    992	001150				QIOW$S	#NX.NIC,#NCOLUN,#TEMFLG,,R1,,<R3,R4,#NX$RNN,R3,R4>                      ;AP0001
    993									;READ THE NODE-NAMES AND TYPES                  ;AP0001
    994	001216				CALL	SRQNXF			;PROCESS DLX RETURN CODES FOR LINE FUNCTION     ;AP0001
    995	001222				IF ; SUCCESSFUL                                                                 ;AP0001
    996	001222				TRUE	CC                                                                      ;AP0001
    997	001224				FALSEB	LE,(R1)                                                                 ;AP0001
    998	001230				THEN                                                                            ;AP0001
    999	001230	010301 			  MOV R3,R1			;GET END OF BUFFER                              ;AP0001
   1000	001232	066501 	000012 		  ADD C.LEN(R5),R1                                                              ;AP0001
   1001	001236	005065 	000012 		  CLR C.LEN(R5)			;INITITIALIZE COUNT OF NODES                    ;AP0001
   1002	001242				  WHILE ; STILL MORE OF THE BUFFER TO LOOK AT                                   ;AP0001
   1003	001242				  FALSE HIS,R3,R1                                                               ;AP0001
   1004	001246				  DO ; WEED OUT THE NODES WE WANT                                               ;AP0001
   1005	001246	112300 			    MOVB (R3)+,R0		;PICK UP NODE TYPE                              ;AP0001
   1006	001250	112304 			    MOVB (R3)+,R4		;AND LENGTH OF NAME                             ;AP0001
   1007	001252				    IF ; THIS NODE IS NOT THE LOCAL NODE                                        ;AP0001
   1008	001252				    FALSE EQ,#N$XLCL,R0                                                         ;AP0001
   1009	001260				    THEN ; COPY IT INTO A NEW LIST                                              ;AP0001
   1010	001260	110422 			      MOVB R4,(R2)+		;STORE THE NODE NAME LENGTH                     ;AP0001
   1011	001262				      WHILE ; WE HAVE MORE NODE NAME TO MOVE                                    ;AP0001
   1012	001262				      FALSE LE,R4                                                               ;AP0001
   1013	001266				      DO ; COPY THE NAME OVER                                                   ;AP0001
   1014	001266	112322 			        MOVB (R3)+,(R2)+                                                        ;AP0001
   1015	001270	005304 			        DEC R4                                                                  ;AP0001
   1016	001272				      ENDWHILE                                                                  ;AP0001
   1017	001274	005265 	000012 		      INC C.LEN(R5)		;ONE MORE NODE...                               ;AP0001
   1018	001300				    ELSE                                                                        ;AP0001
   1019	001302	060403 			      ADD R4,R3			;PASS THIS NODE BY                              ;AP0001
   1020	001304				    ENDIF                                                                       ;AP0001
   1021	001304				  ENDWHILE                                                                      ;AP0001
   1022	001306				ENDIF                                                                           ;AP0001
   1023	001306				RESSTK <R4,R3>                                                                  ;AP0001
   1024	001312				ENDPROC                                                                         ;AP0001
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 30
SRRRMS

   1030					.SBTTL  SRRRMS
   1031					;
   1032					;======================================================================;
   1033					;++
   1034					;	   +-------------------------------------------------+
   1035					;	   I						     I
   1036					;	   I		       S R R R M S		     I
   1037					;	   I		       - - - - - -		     I
   1038					;	   I						     I
   1039					;	   +-------------------------------------------------+
   1040					;
   1041					; FUNCTION:
   1042					;
   1043					;   READ REMOTE NODE STATUS
   1044					;
   1045					; CALLING SEQUENCE:  CALL    SRRRMS
   1046					;
   1047					; INPUT:
   1048					;
   1049					;   R5 - ADDRESS OF CONTROL BLOCK
   1050					;     C.LEN -  MAXIMUM LENGTH OF DATA BUFFER IN NUMBER OF BYTES
   1051					;     C.ADDR - ADDRESS OF DATA BLOCK FOR REMOTE NODE STATUS
   1052					;   @C.ADDR -
   1053					;     NODE NAME       (I-6)
   1054					;
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 31
SRRRMS

   1056					; OUTPUT:
   1057					;
   1058					;   C-BIT - CLEAR
   1059					;   @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
   1060					;     C.RET  - RETURN CODE
   1061					;     C.LEN  - LENGTH OF RETURNED DATA BLOCK IN NUMBER OF BYTES
   1062					;     C.ADDR - ADDRESS OF UPDATED DATA BLOCK CONTAINING REMOTE NODE STATUS
   1063					;
   1064					;   C.ADDR(R5) --> I-----------------------------------I
   1065					;		   I				       I
   1066					;		   I-				      -I
   1067					;		   I	NODE NAME (I-6)		       I
   1068					;		   I-				      -I
   1069					;		   I				       I
   1070					;		   I-----------------+-		      -I
   1071					;		   I NODE #  (EX-2)  I		       I
   1072					;		   I-----------------------------------I
   1073					;		   I NODE STATE	     I NODE # (EX-2)   I
   1074					;		   I-----------------------------------I
   1075					;		   I RECEIVE PASSWORD		       I
   1076					;		   I-				      -I
   1077					;		   I				       I
   1078					;		   I-				      -I
   1079					;		   I				       I
   1080					;		   I-				      -I
   1081					;		   I				       I
   1082					;		   I-----------------------------------I
   1083					;		   I TRANSMIT PASSWORD		       I
   1084					;		   I-				      -I
   1085					;		   I				       I
   1086					;		   I-				      -I
   1087					;		   I				       I
   1088					;		   I-				      -I
   1089					;		   I				       I
   1090					;		   I-----------------------------------I
   1091					;
   1092					; REQUIREMENTS:
   1093					;
   1094					;   CONTROL BLOCK SYMBOLS:
   1095					;
   1096					;     C.RET  - OFFSET OF RETURN CODE                                            ;**-1
   1097					;     C.LEN  - OFFSET OF LENGTH
   1098					;     C.ADDR - OFFSET OF BLOCK ADDRESS
   1099					;
   1100					;   DLX SERVICE SYMBOLS:                                                        ;AP0001
   1101					;                                                                               ;AP0001
   1102					;     NX.NIC  - NICE SERVICE QIO FUNCTION                                       ;AP0001
   1103					;     NX$RNS  - READ NODE STATUS SUBFUNCTION                                    ;AP0001
   1104					;                                                                               ;AP0002
   1105					;   INPUT VIA LNDDAT:                                                           ;AP0002
   1106					;                                                                               ;AP0002
   1107					;     NAMLEN - LENGTH OF LOCAL NODE NAME                                        ;AP0002
   1108					;     NODNAM - LOCAL NODE NAME                                                  ;AP0002
   1109					;--                                                                             ;**-14
   1110					;======================================================================;
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 32
SRRRMS

   1112					;
   1113					; EXTERNAL MACROS
   1114					;
   1115					.MCALL	CONDF,SRDF,NICDF,DLXDF,LNDMDF,QIOW$S                                    ;AP0002
   1116					.MCALL  RESSTK,SAVSTK                                                           ;**-1
   1117					;                                                                               ;**-1
   1118					; DEFINE EXTERNAL SYMBOLS
   1119					;
   1120	001314				CONDF				;CONTROL BLOCK SYMBOLS
   1121	001314				DLXDF				;DLX NICE SERVICE SYMBOLS                       ;AP0001
   1122	001314				SRDF				;SERVICE SYMBOLS                                ;AP0001
   1123					;                                                                               ;AP0002
   1124					; DEFINE READ/WRITE MEMORY                                                      ;AP0002
   1125					;                                                                               ;AP0002
   1126	001314				LNDMDF				;LOCAL NODE NAME MEMORY                         ;AP0002
   1127	001314				NICDF				;NICE MESSAGE SYMBOLS                           ;**-1
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 33
SRRRMS

   1129					;
   1130					; PROCEDURE BODY
   1131					;
   1132	001314				PROCLC	SRRRMS                                                                  ;AP0001
   1133	001314				SAVSTK	<R4,R3>			;GET ROOM TO MOVE                               ;AP0001
   1134	001320				CALL	GETNOD			;COPY NODE NAME TO HOLDING AREA                 ;AP0001
   1135	001324				IF ; NODE NAME LENGTHS EQUAL                                                    ;AP0002
   1136	001324	016703 	000002'		  MOV     NAMLEN,R3		;LENGTH OF NODE NAME                            ;AP0002
   1137	001330				FALSEB    NE (R1),R3                                                            ;AP0005
   1138	001334				THEN                                                                            ;AP0002
   1139	001334				  WHILE ; MORE NODE NAME TO COMPARE                                             ;AP0002
   1140	001334				  TRUE    PL,R3                                                                 ;AP0002
   1141	001340				  FALSEB  EQ,NNAME-1(R3),NODNAM-1(R3)                                           ;AP0002
   1142	001350				  DO                                                                            ;AP0002
   1143	001350	005303 			    DEC   R3			;RUN THE INDEX DOWN                             ;AP0002
   1144	001352				  ENDWHILE                                                                      ;AP0002
   1145	001354				  IF ; NODE NAMES MATCHED                                                       ;AP0002
   1146	001354				  FALSEB PL,R3                                                                  ;AP0002
   1147	001360				  THEN                                                                          ;AP0002
   1148	001360	105011 			    CLRB  (R1)			;INVALIDATE THE NAME                            ;AP0002
   1149	001362				  ENDIF                                                                         ;AP0002
   1150	001362				ENDIF                                                                           ;AP0002
   1151	001362	016503 	000014 		MOV	C.ADDR(R5),R3		;INDEX TO AREA                                  ;AP0001
   1152	001366	060203 			ADD	R2,R3			;TO RECEIVE DATA                                ;AP0001
   1153	001370	016504 	000012 		MOV	C.LEN(R5),R4		;GET LENGTH                                     ;AP0001
   1154	001374	160204 			SUB	R2,R4			;OF RECEIVE AREA                                ;AP0001
   1155	001376	012700 	000010 		MOV	#C.RET,R0		;COPY TO                                        ;AP0001
   1156	001402	060500 			ADD	R5,R0			;GET STATUS BLOCK ADDRESS                       ;AP0001
   1157	001404				QIOW$S	#NX.NIC,#NCOLUN,#TEMFLG,,R0,,<R1,R2,#NX$RNS,R3,R4>                      ;AP0001
   1158									;READ THE STATUS                                ;AP0001
   1159	001452				CALL	SRQNXF			;PROCESS DLX RETURN CODES FOR NODE FUNCTION     ;AP0001
   1160	001456				IF ; NO ERROR                                                                   ;AP0005
   1161	001456				FALSE	CS                                                                      ;AP0005
   1162	001460				THEN                                                                            ;AP0005
   1163	001460	060265 	000012 		  ADD     R2,C.LEN(R5)		;ADD NODE NAME TO RESPONSE LENGTH               ;AP0005
   1164	001464	000241 			  CLC                                                                           ;AP0005
   1165	001466				ENDIF                                                                           ;AP0005
   1166	001466				RESSTK	<R3,R4>			;YOU CAN HAVE THESE BACK                        ;AP0001
   1167	001472				ENDPROC                                                                         ;AP0001
   1170		000001 			.END
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 33-1
SYMBOL TABLE

A$$CHK= 000000   	C$RCBK= 000047   	FL$BOO= 000001   	F$ORLU= 000000   	LS$LOA= 000000
A$$CPS= 000000   	C$RCEV= 000050   	FL$DUM= 000001   	F$OTLU= 000001   	LS$LOO= 000001
A$$TRP= 000000   	C$RCIN= 000062   	FL$LOA= 000001   	F$RCBK= 000002   	LS$TRI= 000004
BLKFLG= 000003   	C$RCMA= 000146   	FL$LOO= 000001   	F$RCEV= 000001   	LS$TRQ= 000003
CE$ACP= 177753   	C$RCMS= 000054   	FR$LCC= 000001   	F$RCIN= 000000   	L$$ASG= 000000
CE$ADR= 177776   	C$RDBK= 000043   	FR$LCS= 000001   	F$RCMA= 000000   	L$$DRV= 000000
CE$CON= 177770   	C$RDCM= 000035   	FR$LNC= 000001   	F$RCMS= 000002   	L$$P11= 000001
CE$DIS= 177771   	C$RDIN= 000040   	FR$LNL= 000001   	F$RDBK= 000000   	L$$11R= 000000
CE$EOF= 177767   	C$RDIS= 000040   	FR$LNS= 000001   	F$RDCM= 000000   	M$$CRB= 000124
CE$FAI= 177774   	C$RDRC= 000060   	FR$RMC= 000001   	F$RDIN= 000001   	M$$CRX= 000000
CE$FIL= 177756   	C$RLBF= 000001   	FR$RML= 000001   	F$RDIS= 000012   	M$$FCS= 000000
CE$FUN= 177777   	C$RLCB= 000002   	FR$RMS= 000001   	F$RDRC= 000000   	M$$OVR= 000000
CE$GEN= 177774   	C$RLCI= 000000   	FS$HOS= 000001   	F$RECO= 000001   	NAMLEN  000002R     002
CE$IND= 177757   	C$STBK= 000055   	FS$INT= 000000   	F$RLBF= 000001   	NCOLUN= 000016
CE$IO = 177760   	C$STPR= 000037   	FS$LLP= 000001   	F$RLCB= 000001   	ND$BAD= 177777
CE$LEN= 177775   	C$STPS= 000037   	FS$LOF= 000001   	F$STBK= 000000   	ND$LCC= 000000
CE$LID= 177766   	C$TRBK= 000046   	FS$LOG= 000001   	F$STPR= 000001   	ND$LCS= 000001
CE$LST= 177752   	C$TRIN= 000063   	FS$LST= 000001   	F$STPS= 000006   	ND$LNC= 000004
CE$NOD= 177765   	C$TRMA= 000145   	FS$NET= 000001   	F$TEST= 000001   	ND$LNS= 000005
CE$NSD= 177755   	C$TRMS= 000053   	FS$NST= 000000   	F$TRAC= 000000   	ND$RMC= 000002
CE$NST= 177754   	C$WRBK= 000044   	FS$PAS= 000001   	F$TRBK= 000001   	ND$RMS= 000003
CE$NWE= 177773   	C$WRCL= 000065   	FT$CNS= 000000   	F$TRIG= 000001   	ND$ZLC= 000000
CE$OBJ= 177750   	C$WRCM= 000036   	FT$NOD= 000001   	F$TRIN= 000000   	ND$ZLN= 000002
CE$OPN= 177761   	C$WRRC= 000061   	FT$TSK= 000001   	F$TRMA= 000000   	ND$ZRM= 000001
CE$OVR= 177764   	C$ZRCN= 000064   	F$ALBF= 000001   	F$TRMS= 000002   	NETLUN= 000003
CE$PAR= 177763   	C$$CKP= 000000   	F$ALCB= 000001   	F$WRBK= 000000   	NE$CON= 177762
CE$PRO= 177751   	C$$ORE= 000400   	F$CB  = 000017   	F$WRCL= 000001   	NE$FIL= 177763
CE$REJ= 177772   	C$$RSH= 177564   	F$CLCL= 000001   	F$WRCM= 000000   	NE$FIO= 177756
CE$TMO= 177762   	C.ADDR= 000014   	F$CLCO= 000000   	F$WRRC= 000000   	NE$FOR= 177776
CMILUN= 000002   	C.BKNM= 000014   	F$CLFL= 000000   	F$ZERO= 000001   	NE$FUN= 177777
CMOLUN= 000001   	C.CTXT= 000004   	F$CLLK= 000006   	F$ZRCN= 000001   	NE$LCO= 177766
CS$ACK= 000002   	C.FUNC= 000006   	F$CLLN= 000002   	F$$LVL= 000001   	NE$LID= 177770
CS$LKE= 000001   	C.LEN = 000012   	F$DPOS= 000001   	F$150 = 000002   	NE$LPR= 177757
CS$LNA= 000002   	C.LINE= 000014   	F$DUMP= 000000   	F$300 = 000012   	NE$LST= 177767
CS$LOG= 000003   	C.LKNM= 000020   	F$EVNT= 000001   	F$50  = 000002   	NE$NCO= 177755
CS$NCH= 000003   	C.LUN = 000020   	F$EXAM= 000001   	F$550 = 000002   	NE$NIC= 177753
CS$SUC= 000001   	C.MODE= 000021   	F$EXHO= 000000   	GETLIN  000136R  	NE$NOD= 177765
C$ALBF= 000032   	C.PRID= 000017   	F$GTCM= 000001   	GETNOD  000076R  	NE$NOR= 177754
C$ALCB= 000033   	C.PROC= 000007   	F$INCM= 000000   	G$$TPP= 000000   	NE$ORD= 177774
C$CLCL= 000067   	C.PROM= 000016   	F$INLU= 000001   	G$$TSS= 000000   	NE$PAR= 177760
C$CLCO= 000003   	C.PTR = 000000   	F$IRLU= 000000   	G$$TTK= 000000   	NE$RES= 177761
C$CLFL= 000004   	C.RET = 000010   	F$LKLU= 000010   	INFEND= 000020   	NE$SER= 177764
C$CLLK= 000052   	C.SAVE= 000022   	F$LNLU= 000002   	INFTAB  000000R  	NE$STA= 177775
C$CLLN= 000005   	C.SERV= 000002   	F$LNSR= 000001   	I$$RAR= 000000   	NL$BRC= 000001
C$LEN = 000026   	C.TASK= 000016   	F$LOAD= 000000   	I$$RDN= 000000   	NL$BTR= 000002
C$NOPN= 000031   	C.TYPE= 000016   	F$LOGD= 000001   	K$$CNT= 177546   	NL$RES= 000005
C$NORD= 000032   	C.WAIT= 000020   	F$LOOP= 000001   	K$$CSR= 177546   	NL$RLE= 000004
C$OPCL= 000066   	DM$END= 000000   	F$NTCM= 000000   	K$$LDC= 000000   	NL$RTR= 000003
C$OPCO= 000034   	DM$MIM= 000002   	F$OPCL= 000001   	K$$TPS= 000074   	NL$TMO= 000006
C$OPIN= 000041   	DM$PXA= 000003   	F$OPCO= 000000   	LD$LP = 000000   	NL$ZRO= 000000
C$OPIR= 000056   	DM$SAD= 000001   	F$OPIN= 000000   	LINLUN= 000017   	NNAME   000066R
C$OPLK= 000051   	D$$BUG= 177514   	F$OPIR= 000000   	LI$KNO= 000000   	NN$CAC= 000011
C$OPLN= 000045   	D$$ISK= 000000   	F$OPLK= 000005   	LI$STA= 000001   	NN$CNI= 000013
C$OPOR= 000057   	D$$L11= 000001   	F$OPLN= 000002   	LI$STR= 000002   	NN$CNR= 000014
C$OPOT= 000042   	FILLUN= 000014   	F$OPLO= 000000   	LNKLUN= 000004   	NN$EXT= 000003
C$ORD = 000145   	FLGGRP= 000000   	F$OPOR= 000000   	LOCNOD= ****** GX	NN$FMT= 000005
C$PROC= 000200   	FLGMSK= 000003   	F$OPOT= 000000   	LS$DUM= 000002   	NN$IZS= 000007
SRRDIN	MACRO M1110  13-OCT-79 12:42  PAGE 33-2
SYMBOL TABLE

NN$IZU= 000010   	NX$SNO= 000034   	PT$END= 000000   	SP$LLP= 000011   	ST$SHU= 000002
NN$MAC= 000012   	NX$SNS= 000010   	PT$HOS= 000003   	SP$LNM= 000016   	S$$WRG= 000000
NN$NKS= 000004   	NX$XMT= 000030   	PT$NAM= 000001   	SP$LNO= 000015   	S$$YSZ= 001600
NN$RES= 000006   	NX$ZLC= 000020   	PT$NUM= 000002   	SP$LOF= 000012   	TEMFLG= 000030
NN$UMR= 000002   	NX$ZNC= 000006   	P$$P45= 000000   	SP$LST= 000001   	TIMBIT= 000002
NN$UMS= 000001   	NX.NIC= 017050   	RI$LCC= 000001   	SP$NDM= 000014   	TIMFLG= 000002
NN$ZRO= 000000   	N$DPOS= 000014   	RI$LCS= 000002   	SP$NDO= 000013   	T$$KMG= 000000
NO    = 000000   	N$DUMP= 000003   	RI$LNC= 000007   	SP$NST= 000006   	T$$MIN= 000000
NODNAM  000004R     002	N$EXAM= 000015   	RI$LNL= 000006   	SP$RRP= 000004   	V$$CTR= 001000
NODNUM  000000R     002	N$LNSR= 000016   	RI$LNS= 000010   	SP$RTP= 000005   	X$$DBT= 000000
NS$SUC= 000001   	N$LOAD= 000002   	RI$RMC= 000004   	SRQNXF= ****** GX	YES   = 000001
NX$DEP= 000046   	N$LOGD= 000001   	RI$RML= 000003   	SRRDIN  000020RG 	$$CSTA= 000000
NX$EXM= 000050   	N$LOOP= 000005   	RI$RMS= 000005   	SRRLCS  000176R  	$$PRST= 000013
NX$RCV= 000032   	N$RDIN= 000010   	RI$ZLC= 000011   	SRRLNC  000310R  	$$STIX= 000777
NX$RLC= 000016   	N$STPR= 000007   	RI$ZLN= 000013   	SRRLNL  000432R  	$$STNM= 000000
NX$RLN= 000012   	N$TEST= 000006   	RI$ZRM= 000012   	SRRLNS  000656R  	$$S770= 000077
NX$RLS= 000014   	N$TRIG= 000004   	R$$DER= 000000   	SRRNDC  000774R  	$$S771= 000013
NX$RNC= 000004   	N$XADJ= 000002   	R$$K11= 000001   	SRRRML  001112R  	$$S772= 000077
NX$RNN= 000000   	N$XINT= 000003   	R$$SND= 000000   	SRRRMS  001314R  	$$S773= 000012
NX$RNS= 000002   	N$XLCL= 000001   	R$$11M= 000000   	ST$DIS= 000006   	$$S774= 000077
NX$SLH= 000026   	N$XRMT= 000004   	SERBIT= 000001   	ST$ENA= 000005   	$$S775= 000010
NX$SLM= 000042   	N$ZERO= 000011   	SERFLG= 000001   	ST$LOO= 000003   	$$S776= 000000
NX$SLO= 000040   	N$$USR= 000001   	SP$DHO= 000003   	ST$MAI= 000004   	$$S777= 000000
NX$SLS= 000022   	N.MLEN= 000454   	SP$DRP= 000007   	ST$OFF= 000001   	$$TRNM= 000000
NX$SNH= 000024   	PRIDLN= 000004   	SP$DTP= 000010   	ST$ON = 000000   	$$$ARG= 000002
NX$SNM= 000036   	PRIDTB  000426R  	SP$LHO= 000002

. ABS.	000000	   000
      	001474	   001
LNDDAT	000012	   002
ERRORS DETECTED:  0

VIRTUAL MEMORY USED:  11228 WORDS  ( 44 PAGES)
DYNAMIC MEMORY:  12172 WORDS  ( 46 PAGES)
ELAPSED TIME:  00:02:17
SRRDIN,[135,30]SRRDIN/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,SRRDIN
SRRDIN     CREATED BY  MACRO  ON 13-OCT-79 AT 12:43	PAGE 1

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

CE$FUN	= 177777	 9-234      20-656    
C.ADDR	= 000014	 12-336     12-353     13-377     17-497     20-619     22-757     26-894     29-981     33-1151   
C.LEN 	= 000012	*9-233      13-377     17-499    *17-506     20-620     20-638    *20-639    *20-649     22-759    
                        *22-766     26-896    *26-903     29-983     29-1000   *29-1001   *29-1017    33-1153   *33-1163   
C.PRID	= 000017	 20-612    
C.RET 	= 000010	*9-234      13-375     17-501     20-628    *20-656     22-761     26-898     29-990     33-1155   
C.TYPE	= 000016	 9-224     
FL$BOO	= 000001	#5-111      5-111     
FL$DUM	= 000001	#5-111      5-111     
FL$LOA	= 000001	#5-111      5-111     
FL$LOO	= 000001	#5-111      5-111     
FR$LCC	= 000001	#5-111      5-111      8-209      22-772    
FR$LCS	= 000001	#5-111      5-111      8-210      9-240     
FR$LNC	= 000001	#5-111      5-111      8-215      13-384    
FR$LNL	= 000001	#5-111      5-111      8-214      17-512    
FR$LNS	= 000001	#5-111      5-111      8-216      20-662    
FR$RMC	= 000001	#5-111      5-111      8-212      22-772    
FR$RML	= 000001	#5-111      5-111      8-211      26-909    
FR$RMS	= 000001	#5-111      5-111      8-213      29-1028   
FS$HOS	= 000001	#5-111      5-111     
FS$INT	= 000000	#5-111      5-111      5-111      5-111     
FS$LLP	= 000001	#5-111      5-111     
FS$LOF	= 000001	#5-111      5-111     
FS$LOG	= 000001	#5-111      5-111     
FS$LST	= 000001	#5-111      5-111     
FS$NET	= 000001	#5-111      5-111     
FS$NST	= 000000	#5-111      5-111     
FS$PAS	= 000001	#5-111      5-111     
FT$CNS	= 000000	#5-111      5-111     
FT$NOD	= 000001	#5-111      5-111     
FT$TSK	= 000001	#5-111      5-111     
F$ALBF	= 000001	#5-111     
F$ALCB	= 000001	#5-111     
F$CB  	= 000017	#5-111     
F$CLCL	= 000001	#5-111      5-111     #5-111     
F$CLCO	= 000000	#5-111     
F$CLFL	= 000000	#5-111     
F$CLLK	= 000006	#5-111      5-111     #5-111      5-111     #5-111      5-111     #5-111      5-111     #5-111     
                         5-111     #5-111      5-111     #5-111     
F$CLLN	= 000002	#5-111      5-111     #5-111      5-111     #5-111     
F$DPOS	= 000001	#5-111      5-111     
F$DUMP	= 000000	#5-111      5-111     
F$EVNT	= 000001	#5-111      5-111     
F$EXAM	= 000001	#5-111      5-111     
F$EXHO	= 000000	#5-111     
F$GTCM	= 000001	#5-111      5-111     
F$INCM	= 000000	#5-111      5-111     
F$INLU	= 000001	#5-111     
F$IRLU	= 000000	#5-111     
F$LKLU	= 000010	#5-111     
F$LNLU	= 000002	#5-111     
F$LNSR	= 000001	#5-111      5-111     
SRRDIN     CREATED BY  MACRO  ON 13-OCT-79 AT 12:43	PAGE 2

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

F$LOAD	= 000000	#5-111      5-111     
F$LOGD	= 000001	#5-111      5-111     
F$LOOP	= 000001	#5-111      5-111     
F$NTCM	= 000000	#5-111      5-111     
F$OPCL	= 000001	#5-111      5-111     #5-111     
F$OPCO	= 000000	#5-111     
F$OPIN	= 000000	#5-111     
F$OPIR	= 000000	#5-111     
F$OPLK	= 000005	#5-111      5-111     #5-111      5-111     #5-111      5-111     #5-111      5-111     #5-111     
                         5-111     #5-111     
F$OPLN	= 000002	#5-111      5-111     #5-111      5-111     #5-111     
F$OPLO	= 000000	#5-111     
F$OPOR	= 000000	#5-111     
F$OPOT	= 000000	#5-111     
F$ORLU	= 000000	#5-111     
F$OTLU	= 000001	#5-111     
F$RCBK	= 000002	#5-111      5-111     #5-111      5-111     #5-111     
F$RCEV	= 000001	#5-111      5-111     #5-111     
F$RCIN	= 000000	#5-111     
F$RCMA	= 000000	#5-111     
F$RCMS	= 000002	#5-111      5-111     #5-111     
F$RDBK	= 000000	#5-111     
F$RDCM	= 000000	#5-111     
F$RDIN	= 000001	#5-111      5-111     
F$RDIS	= 000012	#5-111      5-111     #5-111      5-111     #5-111      5-111     #5-111      5-111     #5-111     
                         5-111     #5-111      5-111     #5-111      5-111     #5-111      5-111     #5-111      5-111     
                        #5-111      5-112      9-239      13-383     17-511     20-661     22-771     26-908     29-1027   
F$RDRC	= 000000	#5-111     
F$RECO	= 000001	#5-111      5-111     #5-111     
F$RLBF	= 000001	#5-111     
F$RLCB	= 000001	#5-111     
F$STBK	= 000000	#5-111     
F$STPR	= 000001	#5-111      5-111     
F$STPS	= 000006	#5-111      5-111     #5-111      5-111     #5-111      5-111     #5-111      5-111     #5-111     
                         5-111     #5-111      5-111     #5-111     
F$TEST	= 000001	#5-111      5-111     
F$TRAC	= 000000	#5-111      9-223      9-223      9-237      9-237      12-335     12-335     12-349     12-349    
                         12-352     12-352     12-364     12-364     13-369     13-369     13-380     13-380     17-494    
                         17-494     17-508     17-508     20-611     20-611     20-658     20-658     22-754     22-754    
                         22-768     22-768     26-891     26-891     26-905     26-905     29-979     29-979     29-1024   
                         29-1024    33-1132    33-1132    33-1167    33-1167   
F$TRBK	= 000001	#5-111      5-111     #5-111     
F$TRIG	= 000001	#5-111      5-111     
F$TRIN	= 000000	#5-111     
F$TRMA	= 000000	#5-111     
F$TRMS	= 000002	#5-111      5-111     #5-111     
F$WRBK	= 000000	#5-111     
F$WRCL	= 000001	#5-111      5-111     #5-111     
F$WRCM	= 000000	#5-111     
F$WRRC	= 000000	#5-111     
F$ZERO	= 000001	#5-111      5-111     
F$ZRCN	= 000001	#5-111      5-111     #5-111     
SRRDIN     CREATED BY  MACRO  ON 13-OCT-79 AT 12:43	PAGE 3

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

F$150 	= 000002	#5-111     
F$300 	= 000012	#5-111     
F$50  	= 000002	#5-111     
F$550 	= 000002	#5-111     
GETLIN	  000136 R	#12-352     17-496     22-756    
GETNOD	  000076 R	#12-335     26-893     33-1134   
INFEND	= 000020	#8-218      9-228     
INFTAB	  000000 R	#8-207      8-218      9-226     
I$$AS 	= ******	 9-223      12-335     12-352     13-369     17-494     20-611     22-754     26-891     29-979    
                         33-1132   
LOCNOD	= ******  GX	 13-372    
NAMLEN	  000002 R	#32-1126    33-1136   
NCOLUN	= 000016	 13-377     17-503     20-630     22-763     26-900     29-992     33-1157   
NNAME 	  000066 R	#12-332     12-337     12-346     12-354     12-362     13-370    *13-373     13-377     33-1141   
NO    	= 000000	#5-111      5-111      5-111      5-111      5-111      5-111      5-111      5-111      5-111     
                         5-111      5-111      5-111      5-111      5-111      5-111      5-111      5-111      5-111     
                         5-111      5-111      5-111      5-111      5-111      5-111      5-111      5-111      5-111     
                         5-111      5-111      5-111      5-111      5-111      5-111      5-111      5-111      5-111     
                         5-111      5-111      5-111     
NODNAM	  000004 R	#32-1126    33-1141   
NODNUM	  000000 R	#32-1126   
NX$RLC	= 000016	 17-503    
NX$RLN	= 000012	 20-630    
NX$RLS	= 000014	 22-763    
NX$RNC	= 000004	 26-900    
NX$RNN	= 000000	 29-992    
NX$RNS	= 000002	 13-377     33-1157   
NX.NIC	= 017050	 13-377     17-503     20-630     22-763     26-900     29-992     33-1157   
N$XLCL	= 000001	 29-1008   
PRIDLN	= 000004	#19-605     20-615    
PRIDTB	  000426 R	#19-603     19-605     20-617    
R$$11D	= ******	 9-223      12-335     12-352     13-369     17-494     20-611     22-754     26-891     29-979    
                         33-1132   
R$$11M	= 000000	 9-223      12-335     12-352     13-369     17-494     20-611     22-754     26-891     29-979    
                         33-1132   
SRQNXF	= ******  GX	 13-379     17-505     20-632     22-765     26-902     29-994     33-1159   
SRRDIN	  000020 RG	#9-223     
SRRLCS	  000176 R	 8-210     #13-369    
SRRLNC	  000310 R	 8-215     #17-494    
SRRLNL	  000432 R	 8-214     #20-611    
SRRLNS	  000656 R	 8-216     #22-754    
SRRNDC	  000774 R	 8-209      8-212     #26-891    
SRRRML	  001112 R	 8-211     #29-979    
SRRRMS	  001314 R	 8-213     #33-1132   
TEMFLG	= 000030	 13-377     17-503     20-630     22-763     26-900     29-992     33-1157   
YES   	= 000001	#5-111      5-111      5-111      5-111      5-111      5-111      5-111      5-111      5-111     
                         5-111      5-111      5-111      5-111      5-111      5-111      5-111      5-111      5-111     
                         5-111      5-111      5-111      5-111      5-111      5-111      5-111      5-111      5-111     
                         5-111      5-111      5-111      5-111      5-111      5-111      5-111      5-111      5-111     
                         5-111      5-111      5-111      5-111      5-111     
$$CSTA	= 000000	#9-223     #12-335    #12-352    #13-369    #17-494    #20-611    #22-754    #26-891    #29-979    
                        #33-1132   
SRRDIN     CREATED BY  MACRO  ON 13-OCT-79 AT 12:43	PAGE 4

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

$$PRST	= 000013	#9-223     *9-227     #9-227     #12-335    *12-340    #12-340    #12-352    *12-356    #12-356    
                        #13-369    #17-494    #20-611     20-614    #20-614    *20-622    #20-622     20-633    #20-633    
                         20-640    #20-640     20-643    #20-643    #22-754    #26-891    #29-979    *29-984    #29-984    
                         29-995    #29-995     29-1002   #29-1002   *29-1007   #29-1007   *29-1011   #29-1011   #33-1132   
                         33-1135   #33-1135    33-1139   #33-1139    33-1145   #33-1145    33-1160   #33-1160   
$$SLST	= ******	 9-223      9-228      9-228      9-229      9-229      9-230      9-232      9-232      9-235     
                         9-237      12-335     12-340     12-341     12-341     12-342     12-345     12-345     12-349    
                         12-352     12-356     12-357     12-357     12-358     12-361     12-361     12-364     13-369    
                         13-380     17-494     17-508     20-611     20-615     20-615     20-616     20-623     20-623    
                         20-624     20-627     20-634     20-635     20-635     20-636     20-640     20-641     20-641    
                         20-642     20-644     20-644     20-645     20-645     20-646     20-650     20-652     20-652    
                         20-653     20-655     20-655     20-657     20-658     22-754     22-768     26-891     26-905    
                         29-979     29-985     29-985     29-986     29-989     29-996     29-997     29-997     29-998    
                         29-1002    29-1003    29-1003    29-1004    29-1008    29-1008    29-1009    29-1011    29-1012   
                         29-1012    29-1013    29-1016    29-1016    29-1018    29-1018    29-1020    29-1021    29-1021   
                         29-1022    29-1024    33-1132    33-1137    33-1137    33-1138    33-1139    33-1140    33-1140   
                         33-1141    33-1141    33-1142    33-1144    33-1144    33-1146    33-1146    33-1147    33-1149   
                         33-1150    33-1161    33-1162    33-1165    33-1167   
$$STIX	= 000777	#9-223     *9-227     *9-227     #9-227     *9-227     *9-227     #9-227      9-235     #9-235     
                         9-235      9-235     #9-235      9-235     #12-335    *12-340    *12-340    #12-340    *12-340    
                        *12-340    #12-340     12-345    #12-345     12-345     12-345    #12-345     12-345    #12-352    
                        *12-356    *12-356    #12-356    *12-356    *12-356    #12-356     12-361    #12-361     12-361    
                         12-361    #12-361     12-361    #13-369    #17-494    #20-611     20-614     20-614    #20-614    
                         20-614     20-614    #20-614    *20-622    *20-622    #20-622    *20-622    *20-622    #20-622    
                         20-627    #20-627     20-627     20-627    #20-627     20-627     20-633     20-633    #20-633    
                         20-633     20-633    #20-633     20-640     20-640    #20-640     20-640     20-640    #20-640    
                         20-643     20-643    #20-643     20-643     20-643    #20-643     20-650    #20-650     20-650    
                         20-650    #20-650     20-650     20-652    #20-652     20-652     20-652    #20-652     20-652    
                         20-653    #20-653     20-653     20-653    #20-653     20-653     20-657    #20-657     20-657    
                         20-657    #20-657     20-657    #22-754    #26-891    #29-979    *29-984    *29-984    #29-984    
                        *29-984    *29-984    #29-984     29-989    #29-989     29-989     29-989    #29-989     29-989    
                         29-995     29-995    #29-995     29-995     29-995    #29-995     29-1002    29-1002   #29-1002   
                         29-1002    29-1002   #29-1002   *29-1007   *29-1007   #29-1007   *29-1007   *29-1007   #29-1007   
                        *29-1011   *29-1011   #29-1011   *29-1011   *29-1011   #29-1011    29-1016   #29-1016    29-1016   
                         29-1016   #29-1016    29-1016    29-1020   #29-1020    29-1020    29-1020   #29-1020    29-1020   
                         29-1021   #29-1021    29-1021    29-1021   #29-1021    29-1021    29-1022   #29-1022    29-1022   
                         29-1022   #29-1022    29-1022   #33-1132    33-1135    33-1135   #33-1135    33-1135    33-1135   
                        #33-1135    33-1139    33-1139   #33-1139    33-1139    33-1139   #33-1139    33-1144   #33-1144   
                         33-1144    33-1144   #33-1144    33-1144    33-1145    33-1145   #33-1145    33-1145    33-1145   
                        #33-1145    33-1149   #33-1149    33-1149    33-1149   #33-1149    33-1149    33-1150   #33-1150   
                         33-1150    33-1150   #33-1150    33-1150    33-1160    33-1160   #33-1160    33-1160    33-1160   
                        #33-1160    33-1165   #33-1165    33-1165    33-1165   #33-1165    33-1165   
$$STNM	= 000000	#9-223     *9-227     #9-227     *9-227      9-228      9-229      9-230      9-232      9-232     
                        *9-235     #9-235     #12-335    *12-340    #12-340    *12-340    *12-340     12-341     12-342    
                         12-345     12-345    #12-345    #12-352    *12-356    #12-356    *12-356    *12-356     12-357    
                         12-358     12-361     12-361    #12-361    #13-369    #17-494    #20-611     20-614    #20-614    
                         20-614     20-615     20-616    *20-622    #20-622    *20-622     20-623     20-624     20-627    
                        #20-627     20-633    #20-633     20-633     20-634     20-635     20-636     20-640    #20-640    
                         20-640     20-640     20-641     20-642     20-643    #20-643     20-643     20-644     20-645    
                         20-646     20-650    #20-650     20-652     20-652    #20-652     20-653    #20-653    *20-655    
                         20-655    *20-657    #20-657    #22-754    #26-891    #29-979    *29-984    #29-984    *29-984    
                         29-985     29-986     29-989    #29-989     29-995    #29-995     29-995     29-996     29-997    
SRRDIN     CREATED BY  MACRO  ON 13-OCT-79 AT 12:43	PAGE 5

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

                         29-998     29-1002   #29-1002    29-1002    29-1002    29-1003    29-1004   *29-1007   #29-1007   
                        *29-1007    29-1008    29-1009   *29-1011   #29-1011   *29-1011   *29-1011    29-1012    29-1013   
                         29-1016    29-1016   #29-1016    29-1018    29-1018    29-1020   #29-1020    29-1021    29-1021   
                        #29-1021    29-1022   #29-1022   #33-1132    33-1135   #33-1135    33-1135    33-1137    33-1138   
                         33-1139   #33-1139    33-1139    33-1139    33-1140    33-1141    33-1142    33-1144    33-1144   
                        #33-1144    33-1145   #33-1145    33-1145    33-1146    33-1147    33-1149   #33-1149    33-1150   
                        #33-1150    33-1160   #33-1160    33-1160    33-1161    33-1162    33-1165   #33-1165   
$$S770	= 000077	#20-643     20-650    #29-1011    29-1016   
$$S771	= 000013	#20-643     20-650    #29-1011    29-1016   
$$S772	= 000077	#20-640     20-652    #29-1007    29-1020   
$$S773	= 000012	#20-640     20-652    #29-1007    29-1020   
$$S774	= 000077	#20-622     20-627    #20-633     20-653    #29-1002    29-1021   #33-1139    33-1144   #33-1145   
                         33-1149   
$$S775	= 000010	#20-622     20-627    #20-633     20-653    #29-1002    29-1021   #33-1139    33-1144   #33-1145   
                         33-1149   
$$S776	= 000000	#9-227      9-235     #12-340     12-345    #12-356     12-361    #20-614     20-657    #29-984    
                         29-989    #29-995     29-1022   #33-1135    33-1150   #33-1160    33-1165   
$$S777	= 000000	#9-227      9-235     #12-340     12-345    #12-356     12-361    #20-614     20-657    #29-984    
                         29-989    #29-995     29-1022   #33-1135    33-1150   #33-1160    33-1165   
$$TRNM	= 000000	#9-223     *9-227     #9-227      9-228      9-229      9-230      9-232     #9-232     *9-235     
                        #9-235     #12-335    *12-340    #12-340     12-341     12-342     12-345    #12-345    #12-352    
                        *12-356    #12-356     12-357     12-358     12-361    #12-361    #13-369    #17-494    #20-611    
                         20-614    #20-614     20-615     20-616    *20-622    #20-622     20-623     20-624     20-627    
                        #20-627     20-633    #20-633     20-634     20-635     20-636     20-640    #20-640     20-641    
                         20-642     20-643    #20-643     20-644     20-645     20-646     20-650    #20-650     20-652    
                        #20-652     20-653    #20-653     20-655    #20-655    *20-657    #20-657    #22-754    #26-891    
                        #29-979    *29-984    #29-984     29-985     29-986     29-989    #29-989     29-995    #29-995    
                         29-996     29-997     29-998     29-1002   #29-1002    29-1003    29-1004   *29-1007   #29-1007   
                         29-1008    29-1009   *29-1011   #29-1011    29-1012    29-1013    29-1016   #29-1016    29-1018   
                        #29-1018    29-1020   #29-1020    29-1021   #29-1021    29-1022   #29-1022   #33-1132    33-1135   
                        #33-1135    33-1137    33-1138    33-1139   #33-1139    33-1140    33-1141    33-1142    33-1144   
                        #33-1144    33-1145   #33-1145    33-1146    33-1147    33-1149   #33-1149    33-1150   #33-1150   
                         33-1160   #33-1160    33-1161    33-1162    33-1165   #33-1165   
$$$ARG	= 000002	#13-377     13-377    #13-377     13-377    #13-377     13-377    #13-377     13-377    #13-377    
                         13-377    #13-377     13-377     13-377    #13-377     13-377     13-377     13-377     13-377    
                         13-377     13-377     13-377     13-377     13-377     13-377    #13-377     13-377     13-377    
                         13-377     13-377     13-377     13-377     13-377     13-377     13-377     13-377    #13-377    
                         13-377     13-377     13-377     13-377     13-377     13-377     13-377     13-377     13-377    
                         13-377    #17-503     17-503    #17-503     17-503    #17-503     17-503    #17-503     17-503    
                        #17-503     17-503    #17-503     17-503     17-503    #17-503     17-503     17-503     17-503    
                         17-503     17-503     17-503     17-503     17-503     17-503     17-503    #17-503     17-503    
                         17-503     17-503     17-503     17-503     17-503     17-503     17-503     17-503     17-503    
                        #17-503     17-503     17-503     17-503     17-503     17-503     17-503     17-503     17-503    
                         17-503     17-503    #20-630     20-630    #20-630     20-630    #20-630     20-630    #20-630    
                         20-630    #20-630     20-630    #20-630     20-630     20-630    #20-630     20-630     20-630    
                         20-630     20-630     20-630     20-630     20-630     20-630     20-630     20-630    #20-630    
                         20-630     20-630     20-630     20-630     20-630     20-630     20-630     20-630     20-630    
                         20-630    #20-630     20-630     20-630     20-630     20-630     20-630     20-630     20-630    
                         20-630     20-630     20-630    #22-763     22-763    #22-763     22-763    #22-763     22-763    
                        #22-763     22-763    #22-763     22-763    #22-763     22-763     22-763    #22-763     22-763    
                         22-763     22-763     22-763     22-763     22-763     22-763     22-763     22-763     22-763    
                        #22-763     22-763     22-763     22-763     22-763     22-763     22-763     22-763     22-763    
SRRDIN     CREATED BY  MACRO  ON 13-OCT-79 AT 12:43	PAGE 6

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

                         22-763     22-763    #22-763     22-763     22-763     22-763     22-763     22-763     22-763    
                         22-763     22-763     22-763     22-763    #26-900     26-900    #26-900     26-900    #26-900    
                         26-900    #26-900     26-900    #26-900     26-900    #26-900     26-900     26-900    #26-900    
                         26-900     26-900     26-900     26-900     26-900     26-900     26-900     26-900     26-900    
                         26-900    #26-900     26-900     26-900     26-900     26-900     26-900     26-900     26-900    
                         26-900     26-900     26-900    #26-900     26-900     26-900     26-900     26-900     26-900    
                         26-900     26-900     26-900     26-900     26-900    #29-992     29-992    #29-992     29-992    
                        #29-992     29-992    #29-992     29-992    #29-992     29-992    #29-992     29-992     29-992    
                        #29-992     29-992     29-992     29-992     29-992     29-992     29-992     29-992     29-992    
                         29-992     29-992    #29-992     29-992     29-992     29-992     29-992     29-992     29-992    
                         29-992     29-992     29-992     29-992    #29-992     29-992     29-992     29-992     29-992    
                         29-992     29-992     29-992     29-992     29-992     29-992    #33-1157    33-1157   #33-1157   
                         33-1157   #33-1157    33-1157   #33-1157    33-1157   #33-1157    33-1157   #33-1157    33-1157   
                         33-1157   #33-1157    33-1157    33-1157    33-1157    33-1157    33-1157    33-1157    33-1157   
                         33-1157    33-1157    33-1157   #33-1157    33-1157    33-1157    33-1157    33-1157    33-1157   
                         33-1157    33-1157    33-1157    33-1157    33-1157   #33-1157    33-1157    33-1157    33-1157   
                         33-1157    33-1157    33-1157    33-1157    33-1157    33-1157    33-1157   
SRRDIN     CREATED BY  MACRO  ON 13-OCT-79 AT 12:43	PAGE 7

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

CALL  		#9-231     #13-372    #13-379    #17-496    #17-505    #20-632    #22-756    #22-765    #26-893    #26-902    
                #29-994    #33-1134   #33-1159   
CASE  		#9-223     #12-335    #12-352    #13-369    #17-494    #20-611    #22-754    #26-891    #29-979    #33-1132   
CONDF 		#8-189      8-203     #12-320     12-325    #16-481     16-486    #19-592     19-597    #21-741     21-746    
                #25-878     25-883    #28-967     28-972    #32-1115    32-1120   
CONFIG		#5-106     #5-111     
DIR$  		#13-377     13-377    #17-503     17-503    #20-630     20-630    #22-763     22-763    #26-900     26-900    
                #29-992     29-992    #33-1157    33-1157   
DLXDF 		#12-320     12-327    #16-481     16-489    #19-592     19-598    #21-741     21-748    #25-878     25-885    
                #28-967     28-973    #32-1115    32-1121   
DO    		#9-223     #12-335     12-342    #12-352     12-358    #13-369    #17-494    #20-611     20-642    #22-754    
                #26-891    #29-979     29-1004    29-1013   #33-1132    33-1142   
ELSE  		#9-223      9-232     #12-335    #12-352    #13-369    #17-494    #20-611     20-655    #22-754    #26-891    
                #29-979     29-1018   #33-1132   
ENDCAS		#9-223     #12-335    #12-352    #13-369    #17-494    #20-611    #22-754    #26-891    #29-979    #33-1132   
ENDIF 		#9-223     #9-235     #12-335    #12-345    #12-352    #12-361    #13-369    #17-494    #20-611    #20-627    
                #20-650    #20-652    #20-653    #20-657    #22-754    #26-891    #29-979    #29-989    #29-1016   #29-1020   
                #29-1021   #29-1022   #33-1132   #33-1144   #33-1149   #33-1150   #33-1165   
ENDPRO		#9-223      9-237     #12-335     12-349    #12-352     12-364    #13-369     13-380    #17-494     17-508    
                #20-611     20-658    #22-754     22-768    #26-891     26-905    #29-979     29-1024   #33-1132    33-1167   
ENDWHI		#9-223     #12-335    #12-345    #12-352    #12-361    #13-369    #17-494    #20-611    #20-652    #22-754    
                #26-891    #29-979    #29-1016   #29-1021   #33-1132   #33-1144   
FALSE 		#9-223      9-228      9-229     #12-335     12-341    #12-352     12-357    #13-369    #17-494    #20-611    
                 20-615     20-623     20-641     20-645    #22-754    #26-891    #29-979     29-985     29-1003    29-1008   
                 29-1012   #33-1132    33-1161   
FALSEB		#9-223     #12-335    #12-352    #13-369    #17-494    #20-611    #20-635    #22-754    #26-891    #29-979    
                #29-997    #33-1132   #33-1137   #33-1141   #33-1146   
IF    		#9-223      9-227     #12-335     12-340    #12-352     12-356    #13-369    #17-494    #20-611     20-614    
                 20-622     20-633     20-640     20-643    #22-754    #26-891    #29-979     29-984     29-995     29-1002   
                 29-1007    29-1011   #33-1132    33-1135    33-1139    33-1145    33-1160   
JMPPRO		#9-223     #12-335    #12-352    #13-369    #17-494    #20-611    #22-754    #26-891    #29-979    #33-1132   
LNDMDF		#32-1115   #32-1126   
MOV$  		#13-377    #13-377    #13-377    #13-377    #13-377    #13-377    #13-377    #13-377    #13-377    #13-377    
                #13-377    #13-377    #17-503    #17-503    #17-503    #17-503    #17-503    #17-503    #17-503    #17-503    
                #17-503    #17-503    #17-503    #17-503    #20-630    #20-630    #20-630    #20-630    #20-630    #20-630    
                #20-630    #20-630    #20-630    #20-630    #20-630    #20-630    #22-763    #22-763    #22-763    #22-763    
                #22-763    #22-763    #22-763    #22-763    #22-763    #22-763    #22-763    #22-763    #26-900    #26-900    
                #26-900    #26-900    #26-900    #26-900    #26-900    #26-900    #26-900    #26-900    #26-900    #26-900    
                #29-992    #29-992    #29-992    #29-992    #29-992    #29-992    #29-992    #29-992    #29-992    #29-992    
                #29-992    #29-992    #33-1157   #33-1157   #33-1157   #33-1157   #33-1157   #33-1157   #33-1157   #33-1157   
                #33-1157   #33-1157   #33-1157   #33-1157   
MVB$  		#13-377     13-377    #17-503     17-503    #20-630     20-630    #22-763     22-763    #26-900     26-900    
                #29-992     29-992    #33-1157    33-1157   
NICDF 		#12-320    #12-326    #16-481    #16-488    #21-741    #21-747    #25-878    #25-884    #32-1115   #32-1127   
ONCASE		#9-223     #12-335    #12-352    #13-369    #17-494    #20-611    #22-754    #26-891    #29-979    #33-1132   
PROC  		#5-107      9-223     
PROCLC		#5-107     #9-223      12-335    #12-335     12-352    #12-352     13-369    #13-369     17-494    #17-494    
                 20-611    #20-611     22-754    #22-754     26-891    #26-891     29-979    #29-979     33-1132   #33-1132   
PROFLG		#5-111     #5-111     #5-111     #5-111     #5-111     #5-111     #5-111     #5-111     #5-111     #5-111     
                #5-111     #5-111     #5-111     #5-111     #5-111     #5-111     #5-111     #5-111     #5-111     #5-111     
                #5-111     #5-111     #5-111     #5-111     #5-111     #5-111     #5-111     #5-111     #5-111     #5-111     
                #5-111     #5-111     #5-111     #5-111     #5-111     #5-111     #5-111     #5-111     #5-111     #5-111     
SRRDIN     CREATED BY  MACRO  ON 13-OCT-79 AT 12:43	PAGE 8

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

                #5-111     
QDPB$S		#13-377    #13-377    #17-503    #17-503    #20-630    #20-630    #22-763    #22-763    #26-900    #26-900    
                #29-992    #29-992    #33-1157   #33-1157   
QIOW$S		#12-321    #13-377    #16-481    #17-503    #19-592    #20-630    #21-741    #22-763    #25-878    #26-900    
                #29-992    #32-1115   #33-1157   
RESSTK		#12-321    #16-482    #17-507    #19-593    #20-654    #21-742    #22-767    #25-879    #26-904    #28-968    
                #29-1023   #32-1116   #33-1166   
RVP$  		#13-377    #13-377    #13-377    #13-377    #17-503    #17-503    #17-503    #17-503    #20-630    #20-630    
                #20-630    #20-630    #22-763    #22-763    #22-763    #22-763    #26-900    #26-900    #26-900    #26-900    
                #29-992    #29-992    #29-992    #29-992    #33-1157   #33-1157   #33-1157   #33-1157   
SAVSTK		#12-321    #16-482    #17-495    #19-593    #20-618    #21-742    #22-755    #25-879    #26-892    #28-968    
                #29-980    #32-1116   #33-1133   
SRDF  		#12-320     12-328    #16-481     16-487    #19-592     19-599    #21-741     21-749    #25-878     25-886    
                #28-967     28-974    #32-1115    32-1122   
SRVENT		#8-193     #8-209     #8-210     #8-211     #8-212     #8-213     #8-214     #8-215     #8-216     
SWSTK$		#9-223     #12-335    #12-352    #13-369    #17-494    #20-611    #22-754    #26-891    #29-979    #33-1132   
THEN  		#9-223     #9-230     #12-335    #12-342    #12-352    #12-358    #13-369    #17-494    #20-611    #20-616    
                #20-624    #20-636    #20-642    #20-646    #22-754    #26-891    #29-979    #29-986    #29-998    #29-1004   
                #29-1009   #29-1013   #33-1132   #33-1138   #33-1142   #33-1147   #33-1162   
TRUE  		#9-223     #12-335    #12-352    #13-369    #17-494    #20-611    #20-634    #20-644    #22-754    #26-891    
                #29-979    #29-996    #33-1132   #33-1140   
TRUEB 		#9-223     #12-335    #12-352    #13-369    #17-494    #20-611    #22-754    #26-891    #29-979    #33-1132   
WHILE 		#9-223     #12-335     12-340    #12-352     12-356    #13-369    #17-494    #20-611     20-640    #22-754    
                #26-891    #29-979     29-1002    29-1011   #33-1132    33-1139   
$$BGND		#9-223      9-228      9-229     #12-335     12-341    #12-352     12-357    #13-369    #17-494    #20-611    
                 20-615     20-623     20-634     20-635     20-641     20-644     20-645    #22-754    #26-891    #29-979    
                 29-985     29-996     29-997     29-1003    29-1008    29-1012   #33-1132    33-1137    33-1140    33-1141   
                 33-1146    33-1161   
$$BGNN		#9-223      9-228      9-229      9-232     #12-335     12-341     12-345    #12-352     12-357     12-361    
                #13-369    #17-494    #20-611     20-615     20-623     20-634     20-635     20-641     20-644     20-645    
                 20-652     20-655    #22-754    #26-891    #29-979     29-985     29-996     29-997     29-1003    29-1008   
                 29-1012    29-1016    29-1018    29-1021   #33-1132    33-1137    33-1140    33-1141    33-1144    33-1146   
                 33-1161   
$$ELSE		#9-223      9-232     #12-335    #12-352    #13-369    #17-494    #20-611     20-655    #22-754    #26-891    
                #29-979     29-1018   #33-1132   
$$GEN1		#9-223      9-223      9-228      9-229      9-229      9-230      9-232      9-232      9-235      9-237     
                #12-335     12-335     12-340     12-341     12-341     12-342     12-345     12-345     12-349    #12-352    
                 12-352     12-356     12-357     12-357     12-358     12-361     12-361     12-364    #13-369     13-369    
                 13-380    #17-494     17-494     17-508    #20-611     20-611     20-615     20-616     20-623     20-624    
                 20-627     20-634     20-635     20-635     20-636     20-640     20-641     20-642     20-644     20-644    
                 20-645     20-646     20-650     20-652     20-652     20-653     20-655     20-655     20-657     20-658    
                #22-754     22-754     22-768    #26-891     26-891     26-905    #29-979     29-979     29-985     29-986    
                 29-989     29-996     29-997     29-997     29-998     29-1002    29-1003    29-1004    29-1008    29-1009   
                 29-1011    29-1012    29-1012    29-1013    29-1016    29-1016    29-1018    29-1018    29-1020    29-1021   
                 29-1021    29-1022    29-1024   #33-1132    33-1132    33-1137    33-1138    33-1139    33-1140    33-1140   
                 33-1141    33-1142    33-1144    33-1144    33-1146    33-1146    33-1147    33-1149    33-1150    33-1161   
                 33-1162    33-1165    33-1167   
$$GEN2		#9-223      9-228     #12-335    #12-352    #13-369    #17-494    #20-611     20-615     20-623     20-641    
                 20-645    #22-754    #26-891    #29-979     29-985     29-1003    29-1008   #33-1132    33-1137    33-1141   
$$GNAB		#9-223     #9-228     #12-335    #12-341    #12-352    #12-357    #13-369    #17-494    #20-611    #20-615    
                #20-634    #20-635    #20-641    #20-644    #20-645    #22-754    #26-891    #29-979    #29-996    #29-997    
                #29-1003   #29-1008   #29-1012   #33-1132   #33-1137   #33-1140   #33-1141   #33-1146   #33-1161   
SRRDIN     CREATED BY  MACRO  ON 13-OCT-79 AT 12:43	PAGE 9

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

$$GNBT		#9-223     #9-229     #12-335    #12-352    #13-369    #17-494    #20-611    #20-623    #22-754    #26-891    
                #29-979    #29-985    #33-1132   
$$GNCM		#9-223      9-228      9-229     #12-335     12-341    #12-352     12-357    #13-369    #17-494    #20-611    
                 20-615     20-623     20-634     20-635     20-641     20-644     20-645    #22-754    #26-891    #29-979    
                 29-985     29-996     29-997     29-1003    29-1008    29-1012   #33-1132    33-1137    33-1140    33-1141   
                 33-1146    33-1161   
$$INMC		#9-223      9-223     #12-335     12-335    #12-352     12-352    #13-369     13-369    #17-494     17-494    
                #20-611     20-611    #22-754     22-754    #26-891     26-891    #29-979     29-979    #33-1132    33-1132   
$$INSY		#9-223      9-223     #12-335     12-335    #12-352     12-352    #13-369     13-369    #17-494     17-494    
                #20-611     20-611    #22-754     22-754    #26-891     26-891    #29-979     29-979    #33-1132    33-1132   
$$LAB 		#9-223      9-230      9-232      9-235     #12-335     12-340     12-342     12-345    #12-352     12-356    
                 12-358     12-361    #13-369    #17-494    #20-611     20-616     20-624     20-627     20-636     20-640    
                 20-642     20-646     20-650     20-652     20-653     20-655     20-657    #22-754    #26-891    #29-979    
                 29-986     29-989     29-998     29-1002    29-1004    29-1009    29-1011    29-1013    29-1016    29-1018   
                 29-1020    29-1021    29-1022   #33-1132    33-1138    33-1139    33-1142    33-1144    33-1147    33-1149   
                 33-1150    33-1162    33-1165   
$$POP 		#9-223     #9-235     #9-235     #12-335    #12-345    #12-345    #12-352    #12-361    #12-361    #13-369    
                #17-494    #20-611    #20-627    #20-627    #20-650    #20-650    #20-652    #20-652    #20-653    #20-653    
                #20-657    #20-657    #22-754    #26-891    #29-979    #29-989    #29-989    #29-1016   #29-1016   #29-1020   
                #29-1020   #29-1021   #29-1021   #29-1022   #29-1022   #33-1132   #33-1144   #33-1144   #33-1149   #33-1149   
                #33-1150   #33-1150   #33-1165   #33-1165   
$$POPI		#9-223     #9-235     #9-235     #12-335    #12-345    #12-345    #12-352    #12-361    #12-361    #13-369    
                #17-494    #20-611    #20-627    #20-627    #20-650    #20-650    #20-652    #20-652    #20-653    #20-653    
                #20-657    #20-657    #22-754    #26-891    #29-979    #29-989    #29-989    #29-1016   #29-1016   #29-1020   
                #29-1020   #29-1021   #29-1021   #29-1022   #29-1022   #33-1132   #33-1144   #33-1144   #33-1149   #33-1149   
                #33-1150   #33-1150   #33-1165   #33-1165   
$$PUSH		#9-223     #9-227     #9-227     #12-335    #12-340    #12-340    #12-352    #12-356    #12-356    #13-369    
                #17-494    #20-611    #20-614    #20-614    #20-622    #20-622    #20-633    #20-633    #20-640    #20-640    
                #20-643    #20-643    #22-754    #26-891    #29-979    #29-984    #29-984    #29-995    #29-995    #29-1002   
                #29-1002   #29-1007   #29-1007   #29-1011   #29-1011   #33-1132   #33-1135   #33-1135   #33-1139   #33-1139   
                #33-1145   #33-1145   #33-1160   #33-1160   
$$STSM		#9-223     #9-227     #9-227     #12-335    #12-340    #12-340    #12-352    #12-356    #12-356    #13-369    
                #17-494    #20-611    #20-614    #20-614    #20-622    #20-622    #20-633    #20-633    #20-640    #20-640    
                #20-643    #20-643    #22-754    #26-891    #29-979    #29-984    #29-984    #29-995    #29-995    #29-1002   
                #29-1002   #29-1007   #29-1007   #29-1011   #29-1011   #33-1132   #33-1135   #33-1135   #33-1139   #33-1139   
                #33-1145   #33-1145   #33-1160   #33-1160   
$$SYS 		#9-223     #12-335    #12-352    #13-369    #17-494    #20-611    #22-754    #26-891    #29-979    #33-1132   
$$TRCE		#9-223      9-223      9-237     #12-335     12-335     12-349    #12-352     12-352     12-364    #13-369    
                 13-369     13-380    #17-494     17-494     17-508    #20-611     20-611     20-658    #22-754     22-754    
                 22-768    #26-891     26-891     26-905    #29-979     29-979     29-1024   #33-1132    33-1132    33-1167