Google
 

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

     4-   55	$CONQIO - LOGICAL LINK CONNECT QIO (FUNCTION=33) PROCESSOR
     5-   98	CON - LOGICAL LINK CONNECT (SUBFUNCTION=000)
     6-  140	CNVCRB - CONVERT FROM USER'S CONNECT BLOCK
     9-  216	ACC - LOGICAL LINK CONNECT ACCEPT (SUBFUNCTION=010)
NSCON	MACRO M1110  13-OCT-79 10:19  PAGE 3


      1						.TITLE	NSCON
      2						.IDENT	/V01.01/
      3
      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					;	ACP CONNECT/ACCEPT QIO PROCESSOR
     27					;
     28					;
     29					;
     30					; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
     31					;
     32					; IDENT HISTORY:
     33					;
     34					; 1.00	10-FEB-78
     35					;	VERSION 2.0 RELEASE
     36					; 1.01	8-JUN-79  ALAN D. PECKHAM
     37					;	CORRECT RACE CONDITION IN ACC
     38
     39					; MACRO LIBRARY CALLS
     40					;
     41
     42						.MCALL	CCBDF$,NSPSY$,SAVRG,RESRG,MAP,$MVTBF,RECMAP
     43	000000					CCBDF$			;DEFINE CCB OFFSETS
     44	000000					NSPSY$			;DEFINE NSP INTERNAL SYMBOLS
     45
     46						.MCALL	LLWDF$,MBXDF$
     47	000000					LLWDF$			;DEFINE WINDOW BLOCK OFFSETS
     48	000000					MBXDF$			;DEFINE MAILBOX OFFSETS
     49
     50						.MCALL	CRBDF$,CNBDF$,NSSYM$
     51	000000					CRBDF$			;DEFINE CONNECT REQUEST BLOCK OFFSETS
     52	000000					CNBDF$			;DEFINE CONNECT PENDING BLOCK OFFSETS
     53	000000					NSSYM$			;DEFINE DEVICE RETURN VALUES
NSCON	MACRO M1110  13-OCT-79 10:19  PAGE 4
$CONQIO - LOGICAL LINK CONNECT QIO (FUNCTION=33) PROCESSOR

     55					.SBTTL	$CONQIO - LOGICAL LINK CONNECT QIO (FUNCTION=33) PROCESSOR
     56
     57					;+
     58					; ** - CON$QIO - CON$/ACC$ QIOS
     59					;
     60					; THIS ROUTINE PROCESSES QIO REQUESTS WITH FUNCTION
     61					; CODE OF 33 (EITHER CON$ OR ACC$).
     62					;
     63					; INPUTS:
     64					;
     65					;	R1 = SUBFUNCTION CODE
     66					;	R3 -> I/O PACKET
     67					;
     68					; OUTPUTS: (ON DISPATCH TO EITHER CON$ OR ACC$)
     69					;
     70					;	R3 -> I/O PACKET
     71					;	R5 -> WINDOW BLOCK
     72					;-
     73	000000					.PSECT	$NSACP
     74
     75	000000	017305 	000000G		$CONQIO::MOV	@I.LN2(R3),R5	;GET POINTER TO WINDOW BLOCK
     76	000004	005305 				DEC	R5		;REMOVE ACCESS INTERLOCK BIT FROM ADDRESS
     77	000006	012765 	000000C	000000 		MOV	#WI.RDV!WI.WRV,W.CTL(R5) ;ALLOW READ AND WRITE ACCESS
     78	000014	016365 	000000G	000002 		MOV	I.TCB(R3),W.TASK(R5) ;STORE TCB ADDRESS IN WINDOW BLOCK
     79	000022					CALL	MAPHDR		;GET POINTER TO TASK HEADER
     80	000026	005000 				CLR	R0		;CLEAR REGISTER TO PREVENT SIGN EXTEND
     81	000030	156200 	000000G			BISB	H.NML(R2),R0	;GET MAILBOX LUN NUMBER
     82	000034					CALL	MAPLUN		;GET POINTER TO 2ND LUN WORD
     83	000040	011065 	000016 			MOV	(R0),W.MBOX(R5)	;STORE MAILBOX ADDRESS IN WINDOW BLOCK
     84	000044	042765 	000001 	000016 		BIC	#1,W.MBOX(R5)	;CLEAR ACCESS BIT IN ADDRESS
     85	000052	010565 	000024 			MOV	R5,W.SNDQ+2(R5)	;INITIALIZE TRANSMIT QUEUE LISTHEAD
     86	000056	062765 	000022 	000024 		ADD	#W.SNDQ,W.SNDQ+2(R5) ;...
     87	000064	010565 	000030 			MOV	R5,W.RCVQ+2(R5)	;INITIALIZE RECEIVE QUEUE LISTHEAD
     88	000070	062765 	000026 	000030 		ADD	#W.RCVQ,W.RCVQ+2(R5) ;...
     89	000076	010565 	000036 			MOV	R5,W.INTQ+2(R5)	;INITIALIZE INTERRUPT QUEUE LISTHEAD
     90	000102	062765 	000034 	000036 		ADD	#W.INTQ,W.INTQ+2(R5) ;...
     91	000110	010365 	000014 			MOV	R3,W.PIO(R5)	;STORE I/O PACKET IN WINDOW BLOCK
     92	000114	105701 				TSTB	R1		;CON$ OR ACC$?
     93	000116	001402 				BEQ	10$		;IF NE, THEN CON$
     94	000120					CALLR	ACC		;OTHERWISE ACC$
     95
     96	000124				10$:				;REFERENCE LABEL
NSCON	MACRO M1110  13-OCT-79 10:19  PAGE 5
CON - LOGICAL LINK CONNECT (SUBFUNCTION=000)

     98					.SBTTL	CON - LOGICAL LINK CONNECT (SUBFUNCTION=000)
     99
    100					;+
    101					; ** - CON - QIO REQUEST
    102					;
    103					; THIS ROUTINE PROCESSES A USER TASK'S CONNECT REQUEST. IT
    104					; CONVERTS THE USER'S CONNECT REQUEST BLOCK INTO THE INTERNAL
    105					; CONNECT BLOCK FORMAT AND CALLS NSP TO SEND THE CONNECT
    106					; INTITIATE MESSAGE.
    107					;
    108					; INPUTS:
    109					;
    110					;	R3 -> I/O PACKET
    111					;	R5 -> WINDOW BLOCK
    112					;-
    113
    114	000124				CON:	SWSTK$	40$		;SWITCH TO SYSTEM STATE
    115	000130					SAVRG	<R5>		;;SAVE THE ADDRESS OF THE WINDOW BLOCK
    116	000132	005000 				CLR	R0		;;SET PDV INDEX TO ZERO  (USER INTERFACE)
    117	000134	156500 	000011 			BISB	W.ULA(R5),R0	;;...AND MERGE IN THE USER LINK ADDRESS
    118	000140					CALL	GETDBK		;;ALLOCATE THE CONBLK
    119	000144	103420 				BCS	10$		;;IF CS, ALLOCATION FAILURE  (R1=ER$RES)
    120	000146	010065 	000004 			MOV	R0,C.NSP(R5)	;;STORE PDV AND ULA IN THE CCB
    121	000152	016500 	000016 			MOV	C.BUF+2(R5),R0	;;GET ADDRESS OF DESCRIPTOR BLOCK
    122	000156	010065 	000026 			MOV	R0,C.BUF2+2(R5)	;;SECOND DESCRIPTOR HAS ADDRESS FOR RETURN DATA
    123	000162	012765 	000020 	000030 		MOV	#N$$OPT,C.CNT2(R5) ;;..AND MAXIMUM LENGTH OF DATA
    124	000170					CALL	CNVCRB		;;CONVERT USER'S CONNECT REQUEST BLOCK
    125									;; INTO THE SYSTEM INTERFACE FORMAT
    126	000174					CALL	USRCON		;;CALL NSP TO DO CONNECT INITIATE
    127	000200	103013 				BCC	20$		;;IF CC, CONNECT REQUEST WAS PROCESSED
    128	000202					CALL	RLSDBK		;;ELSE, DEALLOCATE CONBLK  (R1=ER$NOD, ER$RES)
    129	000206				10$:	RESRG	<R5>		;;RESTORE ADDRESS OF WINDOW BLOCK
    130	000210	016503 	000014 			MOV	W.PIO(R5),R3	;;GET ADDRESS OF I/O PACKET
    131	000214					CALL	REMULA		;;REMOVE WINDOW BLOCK FROM ULT
    132	000220	012700 	000266 			MOV	#IE.NRJ&377,R0	;;GET REJECT ERROR CODE
    133	000224					CALLR	IODUN		;;POST ERROR COMPLETION TO USER
    134
    135	000230				20$:	RESRG	<R5>		;;RESTORE ADDRESS OF WINDOW BLOCK
    136	000232	016500 	000016 			MOV	W.MBOX(R5),R0	;;OTHERWISE GET ADDRESS OF MAILBOX
    137	000236	105260 	000006 			INCB	M.USE(R0)	;;INCR # OF PENDING/ACTIVE LOGICAL LINKS
    138	000242				40$:	RETURN			;;RETURN TO TASK STATE AND CALLER
NSCON	MACRO M1110  13-OCT-79 10:19  PAGE 6
CNVCRB - CONVERT FROM USER'S CONNECT BLOCK

    140					.SBTTL	CNVCRB - CONVERT FROM USER'S CONNECT BLOCK
    141
    142					;+
    143					; ** - CNVCRB - CONVERT FROM USER'S CONNECT BLOCK
    144					;
    145					; THIS SUBROUTINE CONVERTS THE USER'S CONNECT REQUEST BLOCK
    146					; INTO A CONNECT REQUEST BLOCK THAT IS COMPATIBLE WITH THE
    147					; SYSTEM INTERFACE.
    148					;
    149					; INPUTS:
    150					;
    151					;	R3->	I/O PACKET
    152					;	R0->	CONBLK
    153					;
    154					; OUTPUTS:
    155					;
    156					;	R0, R1, & R2 ARE DESTROYED
    157					;-
    158	000000					.PSECT
    159
    160						.ENABL	LSB
    161
    162	000000				CNVCRB:	MAP	I.PRM(R3)	;;MAP TO USER'S CONNECT REQUEST BLOCK
    163	000006	016301 	000002G			MOV	I.PRM+2(R3),R1	;;GET ADDRESS OF USER'S CONNECT BLOCK
    164	000012	012120 				MOV	(R1)+,(R0)+	;;MOVE DESTINATION NODE NAME
    165	000014	012120 				MOV	(R1)+,(R0)+	;;...
    166	000016	012120 				MOV	(R1)+,(R0)+	;;...
    167	000020	005020 				CLR	(R0)+		;;SPECIFY MAXIMUM SEGMENT SIZE
    168	000022	012702 	000012 			MOV	#<N.RIDC-N.RDEC>/2+1,R2 ;;GET SIZE OF DESTINATION DESCRIPTOR
    169	000026	012120 			10$:	MOV	(R1)+,(R0)+	;;COPY DESTINATION DESCRIPTOR
    170	000030					SOB	R2,10$
    171	000034	012720 	000001 			MOV	#NC.FM1,(R0)+	;;SET SOURCE DESCRIPTOR TO FORMAT 1, OBJECT TYPE 0
    172	000040	012720 	000006 			MOV	#6,(R0)+	;;STORE SOURCE NAME LENGTH
    173	000044					SAVRG	<R1>		;;SAVE POINTER INTO USER'S CONNECT BLOCK
    174	000046	016301 	000000G			MOV	I.TCB(R3),R1	;;GET USER'S TASK TCB ADDRESS
    175	000052	016146 	000002G			MOV	T.NAM+2(R1),-(SP) ;;STORE LAST 3 CHARACTERS OF NAME
    176	000056	016101 	000000G			MOV	T.NAM(R1),R1	;;GET FIRST 3 CHARACTERS OF NAME
    177	000062					CALL	$C5TA		;;CONVERT THEM FROM RAD50 TO ASCII
    178	000066	012601 				MOV	(SP)+,R1	;;GET LAST 3 CHARACTERS OF NAME AGAIN
    179	000070					CALL	$C5TA		;;CONVERT THEM FROM RAD50 TO ASCII
    180	000074					RESRG	<R1>
    181	000076	062700 	000012 			ADD	#N.RQDL-<N.SDS1+6>,R0 	;;MOVE CONBLK POINTER TO N.RQDL
    182	000102	012702 	000027 			MOV	#<N.RQL-N.RIDC>/2,R2
    183	000106	012120 			20$:	MOV	(R1)+,(R0)+	;;COPY REQUESTOR ID, PASSWORD
    184	000110					SOB	R2,20$		;;AND ACCOUNTING INFORMATION
    185	000114	016302 	000010G			MOV	I.PRM+10(R3),R2	;;GET OPTIONAL DATA COUNT
    186	000120	010220 				MOV	R2,(R0)+	;;STORE COUNT IN THE CONBLK
    187	000122	001420 				BEQ	50$		;;IF EQ, NO OPTIONAL DATA - JUST EXIT
    188	000124	000407 				BR	30$		;;ELSE GO MOVE IT
NSCON	MACRO M1110  13-OCT-79 10:19  PAGE 7
CNVCRB - CONVERT FROM USER'S CONNECT BLOCK

    190					;+
    191					; ** - MVDAT - COMMON DATA MOVER
    192					;
    193					; COMMON SUBROUTINE FOR MOVING USER OPTIONAL DATA ON ACC$ AND REJ$
    194					;
    195					; INPUTS:
    196					;
    197					;	R3 -> I/O PACKET
    198					;	R4 -> ACC$ OR REJ$ CCB ADDRESS
    199					;
    200					;-
    201
    202	000126	016400 	000016 		MVDAT::	MOV	C.BUF+2(R4),R0	;;GET ADDRESS OF CONBLK
    203	000132	016302 	000010G			MOV	I.PRM+10(R3),R2	;;GET NUMBER OF BYTES OF OPTIONAL DATA
    204	000136	010264 	000020 			MOV	R2,C.CNT(R4)	;;...AND STORE IN THE CCB
    205	000142	001410 				BEQ	50$		;;IF EQ, NO OPTIONAL DATA - JUST EXIT
    206	000144				30$:	MAP	I.PRM+4(R3)	;;MAP TO USER'S OPTIONAL DATA
    207	000152	016301 	000006G			MOV	I.PRM+6(R3),R1	;;GET ADDRESS OF OPTIONAL DATA
    208	000156	112120 			40$:	MOVB	(R1)+,(R0)+	;;MOVE OPTIONAL DATA INTO CONBLK
    209	000160					SOB	R2,40$		;;LOOP TILL DONE
    210	000164				50$:	RECMAP			;;RECOVER MAPPING
    211	000172					RETURN			;;RETURN
    212
    213						.DSABL	LSB
NSCON	MACRO M1110  13-OCT-79 10:19  PAGE 9
ACC - LOGICAL LINK CONNECT ACCEPT (SUBFUNCTION=010)

    216					.SBTTL	ACC - LOGICAL LINK CONNECT ACCEPT (SUBFUNCTION=010)
    217
    218					;+
    219					; ** - ACC - QIO REQUEST
    220					;
    221					; THIS ROUTINE PROCESSES A USER TASK'S ACCEPT CONNECT REQUEST.
    222					; IT ACCEPTS A CONNECTION THAT THE USER RECEIVED THROUGH HIS
    223					; NETWORK DATA QUEUE.
    224					;
    225					; INPUTS:
    226					;
    227					;	R3->	I/O PACKET
    228					;	R5->	WINDOW BLOCK
    229					;
    230					;-
    231	000174					.PSECT
    232
    233	000174				ACC:	SWSTK$	30$		;SWITCH TO SYSTEM STATE
    234	000200	016504 	000016 			MOV	W.MBOX(R5),R4	;GET THE ADDRESS OF THE MAILBOX
    235	000204					CALL	TLACHK		;CHECK TLA RETURNED BY USER
    236	000210	010104 				MOV	R1,R4		;;COPY CI CCB ADDRESS (TLA)
    237	000212	001471 				BEQ	20$		;;IF EQ, INVALID TLA RETURNED
    238	000214	005064 	000004 			CLR	C.NSP(R4)	;;ZERO PDV INDEX FOR USER INTERFACE
    239	000220	156564 	000011 	000004 		BISB	W.ULA(R5),C.NSP(R4) ;;...AND MERGE IN THE ULA
    240									;;STORE DISCONNECT CONTEXT IN I/O PACKET
    241	000226	016363 	000000G	000012G		MOV	I.LN2(R3),I.PRM+12(R3) ;; POINTER TO 2ND LUN WORD
    242	000234	012763 	000000C	000014G		MOV	#IE.ABO&377,I.PRM+14(R3) ;; LINK DISCONNECTING STATUS
    243	000242	005063 	000016G			CLR	I.PRM+16(R3)	;; NO BYTE COUNT
    244	000246	116465 	000006 	000010 		MOVB	C.LIN(R4),W.LLA(R5) ;;SAVE LLA IN WINDOW BLOCK
    245	000254	016465 	000022 	000012 		MOV	C.FLG(R4),W.SEGZ(R5) ;;STORE THE MAX SEGMENT SIZE THAT WE CAN TRANSMIT
    246	000262					CALL	MVDAT		;;MOVE OPTIONAL DATA INTO CONBLK
    247	000266					SAVRG	<R3,R5,C.NSP(R4)> ;;SAVE I/O PACKET, WINDOW ADDRESS, AND ULA    ;AP0001
    248	000276	010405 				MOV	R4,R5		;;COPY CCB ADDRESS                              ;**-1
    249	000300					CALL	USRACC		;;CALL NSP TO ACCEPT CONNECTION
    250	000304					RESRG	<R3,R5>		;;RESTORE ULA AND WINDOW ADDRESS                ;AP0001
    251	000310	103414 				BCS	10$		;;IF CS, RESOURCE ERROR FROM USRACC             ;**-1
    252	000312	010305 				MOV	R3,R5		;;COPY ULA AND                                  ;AP0001
    253	000314					RESRG	<R3>		;;RECOVER THE I/O PACKET ADDRESS                ;**-1
    254	000316					CALL	GETWB		;;...IN CASE LINK DISCONNECTED)
    255	000322	103427 				BCS	30$		;;IF CS, LINK HAS BEEN DISCONNECTED
    256	000324	152765 	000002 	000004 		BISB	#WS.EST,W.STAT(R5) ;;INDICATE THAT LOGICAL LINK IS ESTABLISHED
    257	000332	005065 	000014 			CLR	W.PIO(R5)	;;CLEAR PENDING I/O PACKET CELL IN WINDOW BLOCK
    258	000336					CALLR	IOSUC		;;POST COMPLETION TO USER AND RETURN
    259
    260	000342	016500 	000016 		10$:	MOV	W.MBOX(R5),R0	;;GET MAILBOX ADDRESS AND DECREMENT
    261	000346	105360 	000006 			DECB	M.USE(R0)	;;...THE ACTIVE LINK COUNT
    262	000352					CALL	REMULA		;;DEALLOCATE WINDOW BLOCK AND CLEAR LUN ACCESS
    263	000356	012703 	000001 			MOV	#ER$RES,R3	;;SET REJECT REASON CODE
    264	000362	010405 				MOV	R4,R5		;;COPY CCB ADDRESS
    265	000364					CALL	CCBREJ		;;ISSUE CONNECT REJECT
    266	000370					RESRG	<R3>		;;RECOVER I/O PACKET ADDRESS
    267	000372	012700 	000000C			MOV	#IE.RSU&377,R0	;;SET RESOURCE ERROR FOR USER
    268	000376				20$:	CALLR	IODUN1		;;COMPLETE I/O REQUEST IN ERROR
    269
    270	000402				30$:	RETURN			;;RETURN TO TASK STATE AND CALLER
    271
    272		000001 				.END
NSCON	MACRO M1110  13-OCT-79 10:19  PAGE 9-1
SYMBOL TABLE

ACC     000174R  	C$$CKP= 000000   	ER$SSS= 000045   	IE.ABO= ****** GX	LS.MNK= 000040
ACKMAS= 170000   	C$$ORE= 000400   	ER$STA= 000051   	IE.NDA= 177662   	LS.RES= 000360
ACKPRE= 100000   	C$$RSH= 177564   	ER$TCN= 000040   	IE.NNT= 177660   	LS.RSV= 000300
ACKRES= 060000   	C.BID   000003   	ER$TCO= 000041   	IE.NRJ= 177666   	L$$ASG= 000000
ACKWRA= 010000   	C.BUF   000014   	ER$TPA= 000010   	IE.RSU= ****** GX	L$$DRV= 000000
A$$CHK= 000000   	C.BUF1  000014   	ER$UOB= 000004   	IE.URJ= 177667   	L$$P11= 000001
A$$CPS= 000000   	C.BUF2  000024   	E$$XPR= 000000   	IODUN = ****** GX	L$$11R= 000000
A$$PRI= 000000   	C.CNT   000020   	FC.CCP= 000020   	IODUN1= ****** GX	L.CIQ   000026
A$$TRP= 000000   	C.CNT1  000020   	FC.CTL= 000006   	IOSUC = ****** GX	L.DCR   000036
A.NAK = 010000   	C.CNT2  000030   	FC.KCP= 000016   	IS.DAO= 000002   	L.FLG   000012
CB.CCB= 000002   	C.FLG   000022   	FC.KIL= 000004   	I$$RAR= 000000   	L.LDA   000024
CB.RDB= 000004   	C.FLG1  000022   	FC.RCE= 000002   	I$$RDN= 000000   	L.LIA   000026
CCBREJ= ****** GX	C.FLG2  000032   	FC.RCP= 000014   	I.LN2 = ****** GX	L.LLA   000002
CE.ABO= 100362   	C.FNC   000010   	FC.TIM= 000010   	I.PRM = ****** GX	L.LNG1  000054
CE.DIS= 100366   	C.LIN   000006   	FC.XCP= 000012   	I.TCB = ****** GX	L.LNO   000022
CE.ERR= 100370   	C.LNK   000000   	FC.XME= 000000   	KDSAR0= 172360   	L.LSA   000032
CE.MOP= 100372   	C.MOD   000011   	FE.CAL= 000040   	KDSDR0= 172320   	L.LSF   000044
CE.NTE= 100361   	C.NSP   000004   	FE.DRV= 000010   	KISAR0= 172340   	L.LVL   000001
CE.RTE= 100376   	C.RSV   000002   	FE.EXP= 000200   	KISAR5= 172352   	L.NDA   000034
CE.SRC= 100364   	C.STA   000007   	FE.EXT= 000001   	KISAR6= 172354   	L.NIN   000016
CE.TMO= 100374   	C.STS   000012   	FE.EXV= 000004   	KISAR7= 172356   	L.NLA   000036
CF.EOM= 000004   	DF$ADJ= 020000   	FE.LSI= 000400   	KISDR0= 172300   	L.NSTA  000025
CF.HDR= 000020   	DF$DWN= 001000   	FE.MUP= 000002   	KISDR6= 172314   	L.NXN   000014
CF.LB = 100000   	DF$FRE= 070000   	FE.MXT= 040000   	KISDR7= 172316   	L.PDV   000041
CF.SOM= 000010   	DF$LCL= 040000   	FE.NLG= 100000   	K$$CNT= 177546   	L.REM   000006
CF.SYN= 000040   	DF$LNK= 004000   	FE.PKT= 000100   	K$$CSR= 177546   	L.RLA   000010
CF.TRN= 000100   	DF$REM= 010000   	FE.PLA= 000020   	K$$LDC= 000000   	L.RNO   000020
CL$ACK= 000040   	DF$RES= 002000   	FS.AST= 000000   	K$$TPS= 000074   	L.STA   000000
CL$MFL= 000010   	DF$TMP= 100000   	FS.CIB= 002000   	LA.ACK= 100000   	L.TC    000042
CL$NRM= 000020   	D$CHN   000002   	FS.CRA= 001000   	LA.MSK= 170000   	L.TIC   000043
CL$SFL= 000004   	D$FLG   000000   	FS.DIS= 013000   	LA.NAK= 110000   	L.TIPD  000005
CL$TYP= 000001   	D$LEN   000014   	FS.DVC= 001000   	LA.NMS= 010000   	L.TIPI  000004
CL.MU1= 000001   	D$LNG   000005   	FS.ENB= 012000   	LA.RES= 060000   	L.UDQ   000034
CL.MU2= 000002   	D$NAM   000006   	FS.GET= 006000   	LD$LP = 000000   	L.ULA   000040
CL.RES= 177774   	D$USE   000004   	FS.INI= 000000   	LF.DFL= 000060   	L.USA   000030
CMODE = 140000   	D$$BUG= 177514   	FS.KIL= 000000   	LF.DSP= 000040   	L.USTA  000024
CNVCRB  000000R  	D$$ISK= 000000   	FS.LTM= 001000   	LF.DST= 000020   	L.XQ1   000046
CON     000124R     002	D$$L11= 000001   	FS.MNT= 004000   	LF.FPN= 000010   	L.XQ2   000050
CS.ABO= 000100   	D$$YNC= 000000   	FS.MSN= 014000   	LF.HF0= 001000   	L.XQ3   000052
CS.BUF= 000200   	D$$YNM= 000000   	FS.RNG= 011000   	LF.HMF= 020000   	MAPHDR= ****** GX
CS.DCR= 000400   	ER$ABO= 000046   	FS.RTN= 001000   	LF.HSF= 010000   	MAPLUN= ****** GX
CS.DEV= 000002   	ER$ABT= 000011   	FS.SET= 005000   	LF.INR= 000100   	MA.DA = 000000
CS.DIS= 000040   	ER$ACC= 000042   	FS.STM= 000000   	LF.INT= 000400   	MA.IL = 000020
CS.ENB= 000020   	ER$ACT= 000044   	FS.STP= 002000   	LF.LCL= 040000   	MC.CC = 000040
CS.EOF= 000001   	ER$CDI= 000052   	FS.STR= 001000   	LF.MMF= 100000   	MC.CI = 000020
CS.ERR= 100000   	ER$COM= 000047   	FS.TRM= 003000   	LF.MSF= 040000   	MC.DC = 000100
CS.HFE= 002000   	ER$FCF= 000050   	FS.XKL= 002000   	LF.NKR= 000200   	MC.DI = 000060
CS.LST= 040000   	ER$FMT= 000005   	FS.XOF= 010000   	LF.NKS= 000400   	MC.NO = 000000
CS.MTL= 004000   	ER$GEN= 000007   	FS.XON= 007000   	LF.NPN= 000001   	MC.ST = 000120
CS.RNG= 000010   	ER$IFC= 000030   	F$$LVL= 000001   	LF.NTS= 002000   	MD.BM = 000040
CS.ROV= 000004   	ER$ILS= 000043   	GETDBK= ****** GX	LF.RSU= 100000   	MD.EM = 000100
CS.RSN= 010000   	ER$IMG= 000053   	GETWB = ****** GX	LS.DLS= 000200   	MD.ILS= 000040
CS.SUC= 000001   	ER$MLB= 000006   	G$$TPP= 000000   	LS.FCC= 000004   	MD.IM = 000020
CS.TMO= 020000   	ER$NOD= 000002   	G$$TSS= 000000   	LS.FC0= 000001   	MF.ACK= 000004
CX.GDQ= 000001   	ER$NSD= 000003   	G$$TTK= 000000   	LS.FC1= 000002   	MF.CTL= 000010
CX.REQ= 000002   	ER$RES= 000001   	G$$WRD= 000000   	LS.ILS= 000200   	MF.DAT= 000000
CX.UNL= 000004   	ER$SSR= 000000   	H.NML = ****** GX	LS.MAK= 000020   	MPAR  = 172100
NSCON	MACRO M1110  13-OCT-79 10:19  PAGE 9-2
SYMBOL TABLE

MPCSR = 177746   	NI.FRT= 000001   	NT.ABT= 000004   	N.DFM   000004   	PF$RLI= 000002
MSGHDR= 000007   	NI.FUB= 000010   	NT.ACK= 000001   	N.DFMT  000010   	PF$RRI= 000004
MS.AST= 000010   	NI.INI= 000001   	NT.BOM= 000040   	N.DGP   000006   	PF$RVE= 000001
MS.CIP= 000200   	NI.RLI= 000002   	NT.CON= 000001   	N.DGRP  000012   	PF$RVR= 000040
MVDAT   000126RG 	NI.RRI= 000004   	NT.DSC= 000003   	N.DNM   000014   	PF$SLI= 000002
M$$CRB= 000124   	NI.RVE= 000001   	NT.EOM= 000100   	N.DNMC  000012   	PF$SRI= 000004
M$$CRX= 000000   	NI.VER= 000002   	NT.FCN= 037400   	N.DOBJ  000011   	PF$SRT= 000001
M$$FCS= 000000   	NO.DTR= 000077   	NT.INT= 000002   	N.DOT   000005   	PF$STA= 000003
M$$MGE= 000000   	NO.FAL= 000021   	NT.LOG= 000011   	N.DUS   000010   	PF$SUB= 000010
M$$OVR= 000000   	NO.FA1= 000001   	NT.MD1= 000420   	N.DUSR  000014   	PF$UP = 000001
M.MAIL  000012   	NO.NCU= 000023   	NT.MFL= 000002   	N.LGTH= 000160   	PIRQ  = 177772
M.MAX   000007   	NO.RTL= 000022   	NT.MOD= 000020   	N.NODE  000000   	PMODE = 030000
M.MBL = 000016   	NO.TAS= 000000   	NT.MOM= 000000   	N.OPDL  000136   	PR0   = 000000
M.NAST  000005   	NO.TCL= 000017   	NT.MOP= 000010   	N.OPTD  000140   	PR1   = 000040
M.NEXT  000000   	NO.TC1= 000005   	NT.NAK= 000002   	N.PASL  000102   	PR4   = 000200
M.SPA   000010   	NO.TLK= 000020   	NT.NFL= 000000   	N.PASS  000104   	PR5   = 000240
M.STAT  000004   	NP$RTR= 000003   	NT.SFL= 000001   	N.RAC   000070   	PR6   = 000300
M.TASK  000002   	NR$IFC= 000030   	NT.SOL= 000140   	N.RACC  000066   	PR7   = 000340
M.USE   000006   	NS.BOM= 000040   	NT.XOF= 000004   	N.RDE   000012   	PS    = 177776
NC.FM0= 000000   	NS.EOM= 000100   	NT.XON= 000010   	N.RDEC  000010   	PS$NTI= 000003
NC.FM1= 000001   	NS.MFL= 000003   	N$ACQ   000000   	N.RFM   000006   	PS$OFF= 000000
NC.FM2= 000002   	NS.MOM= 000000   	N$ICF   000006   	N.RGP   000010   	PS$STR= 000001
NETTIM= 000005   	NS.NFL= 000001   	N$LNI   000010   	N.RID   000034   	PS$UP = 000005
NE$ABO= 000046   	NS.SET= 000002   	N$LVC   000022   	N.RIDC  000032   	PS$VER= 000004
NE$ABT= 000011   	NS.SFL= 000002   	N$NOD   000032   	N.RND   000000   	PS$WT = 000002
NE$ACC= 000042   	NS.SOL= 000140   	N$PLD   000026   	N.RNM   000016   	P$CHN   000004
NE$ACT= 000044   	NS.SUC= 000001   	N$STS   000042   	N.RNMC  000014   	P$CNT   000005
NE$CDI= 000052   	NT$ABO= 000022   	N$TCB   000004   	N.ROT   000007   	P$FRQ   000012
NE$COM= 000047   	NT$ACC= 000002   	N$TMP   000012   	N.RPS   000056   	P$FSP   000013
NE$FCF= 000050   	NT$ADS= 000000   	N$VER   000036   	N.RPSC  000054   	P$LCD   000002
NE$FMT= 000005   	NT$AKD= 000016   	N$$DAT= 000030   	N.RQDL  000060   	P$LEN   000014
NE$GEN= 000007   	NT$AKI= 000020   	N$$DIS= 000020   	N.RQID  000062   	P$LST   000000
NE$ILS= 000043   	NT$CC = 000012   	N$$INT= 000020   	N.RQL = 000110   	P$NOD   000010
NE$IMG= 000053   	NT$CON= 000000   	N$$LDV= 000001   	N.RSRV= 000030   	P$PFQ   000006
NE$MLB= 000006   	NT$DAT= 000002   	N$$MOV= 000010   	N.RUS   000012   	P$TIM   000003
NE$NOD= 000002   	NT$DIS= 000010   	N$$OPT= 000020   	N.SDE   000042   	P$$P45= 000000
NE$NSD= 000003   	NT$IDC= 000034   	N$$OVR= 000042   	N.SDEC  000040   	P$$WRD= 000000
NE$RES= 000001   	NT$IDN= 000030   	N$$SYS= 000001   	N.SDL1  000036   	Q$$OPT= 000010
NE$SSR= 000000   	NT$ILN= 000032   	N$$USR= 000001   	N.SDL2  000042   	REMULA= ****** GX
NE$SSS= 000045   	NT$IND= 000024   	N.ACNT  000116   	N.SDS1  000040   	RF.CLN= 000000
NE$STA= 000051   	NT$INL= 000026   	N.ACTL  000114   	N.SDS2  000056   	RF.CTL= 000003
NE$TCN= 000040   	NT$INT= 000004   	N.CAC   000120   	N.SEG   000006   	RF.TIM= 177400
NE$TCO= 000041   	NT$LS = 000014   	N.CACC  000116   	N.SEGZ  000002   	RF.TM0= 000400
NE$TPA= 000010   	NT$MOD= 000012   	N.CBL = 000142   	N.SFM   000036   	RF.WTD= 000020
NE$UOB= 000004   	NT$NAK= 000022   	N.CDA   000142   	N.SFMT  000034   	RF.WTM= 000030
NE.ABO= 177776   	NT$OFF= 000026   	N.CDAC  000140   	N.SGP   000040   	RF.WTS= 000010
NE.ACT= 177771   	NT$ON = 000002   	N.CID   000064   	N.SGRP  000036   	RH.CNT= 000001
NE.CLS= 177767   	NT$QRY= 000014   	N.CIDC  000062   	N.SND   000030   	RH.EFM= 000020
NE.DIS= 177777   	NT$REJ= 000004   	N.CPS   000106   	N.SNM   000046   	RH.HDR= 000002
NE.FMT= 177770   	NT$ROU= 000022   	N.CPSC  000104   	N.SNMC  000044   	RH.PRI= 000014
NE.NDT= 177766   	NT$RTI= 000010   	N.CTL   000000   	N.SOBJ  000035   	RH.PR1= 000004
NE.NOD= 177774   	NT$RTN= 000000   	N.DDE   000010   	N.SOT   000037   	RH.RFM= 000100
NE.REJ= 177775   	NT$SNG= 000006   	N.DDEC  000006   	N.SUS   000042   	RLSDBK= ****** GX
NE.RES= 177773   	NT$STP= 000004   	N.DDL1  000012   	N.SUSR  000040   	R$$DER= 000000
NE.TIM= 177772   	NT$XOF= 000020   	N.DDL2  000016   	PF$EIP= 000100   	R$$K11= 000001
NI.FLI= 000002   	NT$XON= 000016   	N.DDS1  000014   	PF$ENB= 000200   	R$$SND= 000000
NI.FRI= 000004   	NT.ABO= 000005   	N.DDS2  000020   	PF$OFF= 000000   	R$$11M= 000000
NSCON	MACRO M1110  13-OCT-79 10:19  PAGE 9-3
SYMBOL TABLE

SISDR0= 172200   	S$MLK   000024   	UDSDR0= 177620   	V$RCV   000002   	W.CTL   000000
SR0   = 177572   	S$NKS   000010   	UISAR0= 177640   	V$XMT   000012   	W.INTQ  000034
SR3   = 172516   	S$RES   000014   	UISAR4= 177650   	V$$CTR= 001000   	W.LLA   000010
ST$CC = 000002   	S$SEC   000000   	UISAR5= 177652   	WINDOW= 004000   	W.LUN   000007
ST$CIR= 000003   	S$SNI   000016   	UISAR6= 177654   	WI.RDV= ****** GX	W.MBOX  000016
ST$CIS= 000001   	S$UMR   000004   	UISAR7= 177656   	WI.WRV= ****** GX	W.MODC  000005
ST$DAT= 000005   	S$UMS   000002   	UISDR0= 177600   	WS.DIC= 000004   	W.PIO   000014
ST$DID= 000015   	S$UNI   000020   	UISDR4= 177610   	WS.DIP= 000100   	W.RCVQ  000026
ST$DIP= 000006   	S$$WRG= 000000   	UISDR5= 177612   	WS.EST= 000002   	W.SEGZ  000012
ST$DIR= 000012   	S$$YSZ= 007600   	UISDR6= 177614   	WS.INT= 000040   	W.SNDQ  000022
ST$DIS= 000014   	TLACHK= ****** GX	UISDR7= 177616   	WS.KIP= 000200   	W.STAT  000004
ST$UDI= 000013   	TPS   = 177564   	USRACC= ****** GX	WS.MOD= 000010   	W.TASK  000002
ST$UNR= 000011   	T$$KMG= 000000   	USRCON= ****** GX	WS.STA= 000020   	W.ULA   000011
SWR   = 177570   	T$$MIN= 000000   	VF$RCV= 100000   	WS.VE1= 000001   	W.WBL = 000040
S$EMR   000006   	T.NAM = ****** GX	VF$XMT= 040000   	W.CCBU  000006   	X$$DBT= 000000
S$FMT   000012   	UBMPR = 170200   	V$FLG   000000   	W.CINT  000032   	$CONQI  000000RG    002
S$LEN   000040   	UDSAR0= 177660   	V$LEN   000022   	W.CSND  000020   	$C5TA = ****** GX
S$LNK   000022

. ABS.	000160	   000
      	000404	   001
$NSACP	000244	   002
ERRORS DETECTED:  0

VIRTUAL MEMORY USED:  21147 WORDS  ( 83 PAGES)
DYNAMIC MEMORY:  20620 WORDS  ( 79 PAGES)
ELAPSED TIME:  00:00:45
NSCON,[131,34]NSCON/CR/-SP=[130,10]NETLIB/ML,RSXMC4/PA:1,[131,10]NSCON
NSCON      CREATED BY  MACRO  ON 13-OCT-79 AT 10:20	PAGE 1

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

ACC   	  000174 R	 4-94      #9-233     
CCBREJ	= ******  GX	 9-265     
CNVCRB	  000000 R	 5-124     #6-162     
CON   	  000124 R	#5-114     
C.BUF 	  000014	 5-121      7-202     
C.BUF2	  000024	*5-122     
C.CNT 	  000020	*7-204     
C.CNT2	  000030	*5-123     
C.FLG 	  000022	 9-245     
C.LIN 	  000006	 9-244     
C.NSP 	  000004	*5-120     *9-238     *9-239      9-247     
ER$RES	= 000001	 9-263     
GETDBK	= ******  GX	 5-118     
GETWB 	= ******  GX	 9-254     
H.NML 	= ******  GX	 4-81      
IE.ABO	= ******  GX	 9-242     
IE.NRJ	= 177666	 5-132     
IE.RSU	= ******  GX	 9-267     
IODUN 	= ******  GX	 5-133     
IODUN1	= ******  GX	 9-268     
IOSUC 	= ******  GX	 9-258     
I.LN2 	= ******  GX	 4-75       9-241     
I.PRM 	= ******  GX	 6-162      6-163      6-185      7-203      7-206      7-207     *9-241     *9-242     *9-243     
I.TCB 	= ******  GX	 4-78       6-174     
KISAR6	= 172354	*6-162     *7-206     *7-210     
MAPHDR	= ******  GX	 4-79      
MAPLUN	= ******  GX	 4-82      
MVDAT 	  000126 RG	#7-202      9-246     
M$$MGE	= 000000	 6-162      7-206      7-210     
M.USE 	  000006	*5-137     *9-261     
NC.FM1	= 000001	 6-171     
N$$OPT	= 000020	 5-123     
N.RDEC	  000010	 6-168     
N.RIDC	  000032	 6-168      6-182     
N.RQDL	  000060	 6-181     
N.RQL 	= 000110	 6-182     
N.SDS1	  000040	 6-181     
REMULA	= ******  GX	 5-131      9-262     
RLSDBK	= ******  GX	 5-128     
TLACHK	= ******  GX	 9-235     
T.NAM 	= ******  GX	 6-175      6-176     
UISAR6	= 177654	 7-210     
USRACC	= ******  GX	 9-249     
USRCON	= ******  GX	 5-126     
WI.RDV	= ******  GX	 4-77      
WI.WRV	= ******  GX	 4-77      
WS.EST	= 000002	 9-256     
W.CTL 	  000000	*4-77      
W.INTQ	  000034	*4-89       4-90      *4-90      
W.LLA 	  000010	*9-244     
W.MBOX	  000016	*4-83      *4-84       5-136      9-234      9-260     
W.PIO 	  000014	*4-91       5-130     *9-257     
NSCON      CREATED BY  MACRO  ON 13-OCT-79 AT 10:20	PAGE 2

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

W.RCVQ	  000026	*4-87       4-88      *4-88      
W.SEGZ	  000012	*9-245     
W.SNDQ	  000022	*4-85       4-86      *4-86      
W.STAT	  000004	*9-256     
W.TASK	  000002	*4-78      
W.ULA 	  000011	 5-117      9-239     
$CONQI	  000000 RG	#4-75      
$C5TA 	= ******  GX	 6-177      6-179     
NSCON      CREATED BY  MACRO  ON 13-OCT-79 AT 10:20	PAGE 3

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

CALL  		 4-79       4-82       5-114      5-118      5-124      5-126      5-128      5-131      6-177      6-179     
                 9-233      9-235      9-246      9-249      9-254      9-262      9-265     
CALLR 		#4-94      #5-133     #9-258     #9-268     
CCBDF$		#3-42       3-43      
CNBDF$		#3-50      #3-52      
CRBDF$		#3-50       3-51      
HWDDF$		#6-162      6-162     #7-206      7-206     #7-210      7-210     
LLWDF$		#3-46      #3-47      
MAP   		#3-42      #6-162     #7-206     
MBXDF$		#3-46      #3-48      
NSPSY$		#3-42      #3-44      
NSSYM$		#3-50       3-53      
RECMAP		#3-42       7-210     
RESRG 		#3-42       5-129      5-135      6-180      9-250      9-253      9-266     
RETURN		 5-138      7-211      9-270     
SAVRG 		#3-42       5-115      6-173      9-247     
SOB   		#6-170     #6-184     #7-209     
SWSTK$		#5-114     #9-233     
$MVTBF		#3-42