Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - ncptab.c09
There is 1 other file named ncptab.c09 in the archive. Click here to see a list.
 INS 1/1	;09C1
	;DSKT:NCPTAB.MAC[10,6026,NML702] 10-Feb-84 11:08:21, Edit by DAVENPORT
	;
	; Change keyword names from $DNxxx to $KNxxx to avoid conflicts with
	; DNET. UUO definitions from UUOSYM.R36.
	;
	;DSKC:NCPTAB.MAC[10,6026,NCPTAB] 19-Jan-84 14:47:10, Edit by DAVENPORT
	;
	; QAR #125739, 125740 - Change LITBRK break mask to make "?" a break
	; character.  This allows help to be typed for circuit-ids, line-ids,
	; and several other fields.  Add help message to NML-10s version of
	; $IFILE, $OFILE, and $FILE parser macros.
	;
	;DSKC:NCPTAB.MAC[10,6026,NCPTAB] 10-Jan-84 11:22:33, Edit by DAVENPORT
	;
	; QAR # 125523 - Fix EVLIST parse macro to correctly default events to
	; ".*" on a carriage return.  Requires change to GLXSCN on TOPS-10 to
	; implement defaulting of tokens.
	;
	;DSKC:NCPTAB.MAC[10,6026,NCPTAB] 15-Dec-83 12:55:40, Edit by DAVENPORT
	;
	; Make NOD$NAME macro only accept node names starting with an alphabetic
	; character.  To parse node addresses, use the NOD$NUMBER macro.
	;
 INS 11/1	;09C2
	;PH4:<HALPIN>NCPTAB.MAC.9 12-Dec-83 17:41:57, Edit by HALPIN
	;	ident 51
	;	Moved NCPDEV & NCPMAN symbol definitions so OPR builds
	;	don't blow up
	;
	;PH4:<HALPIN>NCPTAB.MAC.6 30-Nov-83 13:50:40, Edit by HALPIN
	;	ident 50
	;	SET NODE node-id SERVICE NODE VERSION number
	;
	;<MCINTEE>NCPTAB.MAC.4, 21-Nov-83 12:43:03, Edit by MCINTEE
	;	ident 49
	;	Remove local symbols, as they blow up the build
	;
	;<MCINTEE>NCPTAB.MAC.9,  9-Nov-83 07:57:05, Edit by MCINTEE
	;	ident 48
	;	More version stuff
	;
	;<MCINTEE>NCPTAB.MAC.4,  3-Nov-83 13:58:56, Edit by MCINTEE
	;	ident 47
	;	Leave local symbols in. They are useful.
	;
	;<MCINTEE>NCPTAB.MAC.3,  1-Nov-83 10:50:07, Edit by MCINTEE
	;	ident 46
	; 	Fix up version stuff
	;	Fix bug in NOD$NUMBER
	;
	;<MCINTEE.WORK>NCPTAB.MAC.2,  9-Aug-83 11:29:21, Edit by MCINTEE
	;
	;	ident 45
	;	Allow x.y for node number
	;
	;<MCINTEE.WORK>NCPTAB.MAC.8,  7-Jul-83 12:46:23, Edit by MCINTEE
	;
	;	ident 44
	;	SHOW ADJACENT NODE qualifier work
	;
	;<MCINTEE.WORK>NCPTAB.MAC.2, 30-Jun-83 15:19:27, Edit by MCINTEE
	;	ident 43
	;	more work on the new qualifiers
	;
	;<MCINTEE.WORK>NCPTAB.MAC.20, 30-Jun-83 08:42:28, Edit by MCINTEE
	;	ident 42
	;	Conflict in names for LOAD command and LOADER module
	;	Conflict in names for LOOP command and LOOPER module
	;
	;<MCINTEE.WORK>NCPTAB.MAC.18, 30-Jun-83 08:06:12, Edit by MCINTEE
	;
	;	ident 41
	;	phase IV updates:
	;       add modules CONFIGURATOR, CONSOLE, LOADER, LOOPER
	;	add selector SIGNIFICANT
	;	add qualifiers ADJACENT NODE node-id, CIRCUIT circuit-id, KNOWN CIRCUITS
	;	add entities ADJACENT NODES & AREA
	;
	;<X25-UPDATE>NCPTAB.MAC.6, 21-Jun-83 08:42:18, Edit by MCINTEE
	;
	;	ident 40
	;	X25 update - correction to SET/ZERO MODULE X25-SERVER.
	;	No qualifier for X25-SERVER.
	;
 REP 258/1	;09C3
	;                    COPYRIGHT (c) 1980, 1981, 1982
	;                    DIGITAL EQUIPMENT CORPORATION
	;                        Maynard, Massachusetts
	;
	;     This software is furnished under a license and may  be  used
	;     and copied only in accordance with the terms of such license
	;     and with the inclusion of the above copyright notice.   This
	;     software  or any other copies thereof may not be provided or
	;     otherwise made available to any other person.  No  title  to
	;     and ownership of the software is hereby transferred.
	;
	;     The information  in  this  software  is  subject  to  change
	;     without  notice  and should not be construed as a commitment
	;     by DIGITAL EQUIPMENT CORPORATION.
	;
	;     DIGITAL assumes no responsibility for the use or reliability
	;     of  its  software  on  equipment  which  is  not supplied by
	;     DIGITAL.

 WIT
	;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
	;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
	;
	;          COPYRIGHT (C) 1976,1977,1978,1979,1980,1981,1982
	;          BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
 REP 7/2	;09C4
		SEARCH MACSYM	      ; System Wide Macro Definitions
		SEARCH GLXMAC	      ; GALAXY Universal Definitions
	TOPS20	SEARCH MONSYM	      ; Monitor Universal Symbols
		SEARCH ORNMAC	      ; OPR/ORION Universal Definitions

		S1=:1
 WIT
		SEARCH GLXMAC	      ; GALAXY Universal Definitions
		SEARCH ORNMAC	      ; OPR/ORION Universal Definitions

		PROLOG NCPTAB	      ; Init Galaxy macros and such

	TOPS20 <SEARCH MONSYM>	      ; Monitor Universal Symbols
		SEARCH MACSYM	      ; System Wide Macro Definitions

		SUBTTL 	REGISTER DEFINITIONS 

		S1=:1		         
 INS 1/3	;09C5
		SUBTTL	VERSION INFORMATION 


		NCPMAN==:^D00	     ;Maintenance edit number
		NCPDEV==:^D51	     ;Development edit number (ident # in edit history)
		NCPEDT==:<NCPDEV&777>*1000+<NCPMAN&777>
		NCPVER==:^D4	     ;Major version number
		NCPMIN==:^D0	     ;Minor version number
		NCPWHO==:^D0	     ;Customer version number

	; GLXVRX (MAJ,MIN,EDT,WHO) - Make GLXMAC version number
	; AND print out a version number in listing
	DEFINE PRTVER (MAJ,MIN,EDT,WHO), <
		GLXNCP==:<BYTE(3)WHO(9)MAJ(6)MIN(18)EDT>
		IF1 <
		PRINTX NCPTAB - Assembled using GLXMAC version: 'MAJ'.'MIN('EDT)>>

	; NCPVRX (VERSION,MINOR,EDIT,WHO) - Make NCP Version 
	; AND print it out in the listing.
	DEFINE	NCPVRX (MAJ,MIN,EDT,WHO), <
		NCPVRS==:<BYTE(3)WHO(9)MAJ(6)MIN(18)EDT>
		IF1 <
		PRINTX NCPTAB - Assembling NCP version: 'MAJ'.'MIN('EDT)>>
		
	;Invoke the macros.
		NCPVRX (\NCPVER,\NCPMIN,\NCPEDT,\NCPWHO) ; Make & print version number
		PRTVER (\GLXVER,\GLXMIN,\GLXEDT,\GLXWHO) ; Print GLXMAC version in listing

 DEL 7/3	;09C6
	; PRTVER (MAJ,MIN,EDT) - Print out a version number in listing

	DEFINE PRTVER (MAJ,MIN,EDT,DOT<.>), <
		IF1 <
		PRINTX NCPTAB - Assembled using GLXMAC version: 'MAJ'DOT'MIN('EDT)>>

	; NCPVER (VERSION,MINOR,EDIT,WHO) - Make NCP Version 

	DEFINE	NCPVER (VER,MIN,EDT,WHO), <
		NCPVRS==:<BYTE(3)WHO(9)VER(6)MIN(18)EDT>>

	; X.25 - Delineate X.25 features

	IFNDEF	FTX25, <FTX25==1>     ; Make X.25 permanent

	DEFINE	X.25 <IFN FTX25, >

 REP 38/3	;09C7
	; NOD$NAME (next-pdb) - Parse canonical Node Name

	DEFINE	NOD$NAME (NEXT,LIST), <
		IFB <LIST>, <$NODNM (NEXT,<Node Name>,<$FLAGS(CM%NSF+CM%PO)>)>
		IFNB <LIST>, <$NODNM (NEXT,<Node Name>,<$FLAGS(CM%NSF+CM%PO),LIST>)>
		>		      ; End of NOD$NAME Definition

	; NOD$NUMBER (next-pdb) - Parse canonical Node Number 

	DEFINE	NOD$NUMBER (NEXT,LIST), <
		IFB <LIST>, <$NUMBER (NEXT,<^D10>,<Decimal Node Address>)>
		IFNB <LIST>, <$NUMBER (NEXT,<^D10>,<Decimal Node Address>,LIST)>
		>		      ; End of NOD$NUMBER Definition

	; NOD$ID (next-pdb) - Parse canonical node identifier

	DEFINE	NOD$ID (NEXT,LIST,%A), <
		$NUMBER (NEXT,<^D10>,<Decimal Node Address>,<$ALTERNATE(%A)>)
	%A:	NOD$NAME (NEXT,LIST)
		IF2 <PURGE %A>	      ; Remove from symbol table
		>		      ; End of NOD$ID Definition
 WIT
	; NOD$NAME (next-pdb, alternate-pdb) - Parse canonical Node Name

	DEFINE	NOD$NAME (NEXT,LIST), <
	IFB <LIST>,<$NODNM (NEXT,<Node Name>,<$FLAGS(CM%NSF+CM%PO),$ACTION(CHKNAM)>)>
	IFNB <LIST>,<$NODNM (NEXT,<Node Name>,<$FLAGS(CM%NSF+CM%PO),$ACTION(CHKNAM),LIST>)>
		>		      ; End of NOD$NAME Definition

	; NOD$NUMBER (next-pdb, alternate-pdb, next-pdb-default)  
	; Parse canonical node number 

	DEFINE	NOD$NUMBER (NEXT,LIST,NDEFLT,%A,%B), <

		$NUMBER (%A,<^D10>,<Area Number or Decimal Node Address>,LIST)

	IFNB <NDEFLT>,<
	%A:	$TOKEN (%B,<.>,<$DEFAULT(NDEFLT),$ALTERNATE(NEXT)>)
	>;;END OF IFNB NDEFLT

	IFB <NDEFLT>,<
	%A:	$TOKEN (%B,<.>,<$ALTERNATE(NEXT)>)
	>;;END OF IFB NDEFLT

	%B:	$NUMBER (NEXT,<^D10>,<Decimal Node Address>)
		IF2 <PURGE %A,%B>     ; Remove from symbol table
		>		      ; End of NOD$NUMBER Definition

	; NOD$ID (next-pdb, alternate-pdb, next-pdb-default) 
	; Parse canonical node identifier 

	DEFINE	NOD$ID (NEXT,LIST,NDEFLT,%A), <
		NOD$NUMBER (NEXT,<$ALTERNATE(%A)>,NDEFLT)
	%A:	NOD$NAME (NEXT,LIST)
		IF2 <PURGE %A>        ; Remove from symbol table
	     	>		      ; End of NOD$ID Definition

	; NI$ADDRESS (next-pdb) - Parse NI address

	DEFINE	NI$ADDRESS (NEXT,LIST), <
		IFB <LIST>, <$FIELD (NEXT,<NI address>,<$FLAGS(CM%BRK),$BREAK(HEXBRK)>)>
		IFNB <LIST>, <$FIELD (NEXT,<NI address>,<$FLAGS(CM%BRK),$BREAK(HEXBRK),LIST>)>
		>		      ; End of NI$ADDRESS Definition
 REP 72/3	;09C8
	%B:	$DIGIT (%C,<^D10>,<Event Type>,<$ALTERNATE(%G)>)
 WIT
	%B:	$DIGIT (%C,<^D10>,<Event Type>,<$DEFAULT(<*>),$ALTERNATE(%G)>)
 DEL 100/3	;09C9
	X.25 <			      ; Start X.25 conditions

 DEL 139/3	;09C10
	>			      ; End X.25 conditional features
 REP 202/3	;09C11
		IFNDEF $DN'CODE,<
			..Z==..Z+1    ; Bump keyword code counter
			$DN'CODE==:..Z>	; Assign value to global symbol
		IFN .CLIST, <PRINTX <$DN'CODE	= 'KEY>>
		IFB <FLAGS>, <DSPTAB (NXT,$DN'CODE,KEY)>
		IFNB <FLAGS>, <DSPTAB (NXT,$DN'CODE,KEY,FLAGS)>
 WIT
		IFNDEF $KN'CODE,<
			..Z==..Z+1    ; Bump keyword code counter
			$KN'CODE==:..Z>	; Assign value to global symbol
		IFN .CLIST, <PRINTX <$KN'CODE	= 'KEY>>
		IFB <FLAGS>, <DSPTAB (NXT,$KN'CODE,KEY)>
		IFNB <FLAGS>, <DSPTAB (NXT,$KN'CODE,KEY,FLAGS)>
 INS 272/3	;09C12
	;KEYWORD BREAK SET.  SAME AS STANDARD FIELD FOR NOW

	KEYB0.==FLDB0.
	KEYB1.==FLDB1.
	KEYB2.==FLDB2.
	KEYB3.==FLDB3.

 REP 275/3	;09C13
	IF1, <	DEFINE	$IFILE (NXT,HELP,ARGLST) <
			$FIELD (<NXT>,<HELP>,<$BREAK (T10BRK),ARGLST>)>

		DEFINE	$OFILE (NXT,HELP,ARGLST) <
			$FIELD (<NXT>,<HELP>,<$BREAK (T10BRK),ARGLST>)>

		DEFINE	$FILE (NXT,HELP,ARGLST) <
 WIT
	IF1, <	DEFINE	$IFILE (NXT,HELP<input filespec>,ARGLST) <
			$FIELD (<NXT>,<HELP>,<$BREAK (T10BRK),ARGLST>)>

		DEFINE	$OFILE (NXT,HELP<output filespec>,ARGLST) <
			$FIELD (<NXT>,<HELP>,<$BREAK (T10BRK),ARGLST>)>

		DEFINE	$FILE (NXT,HELP<filespec>,ARGLST) <
 REP 293/3	;09C14
	TOPS20<
 WIT
	TOPS20 <
 REP 300/3	;09C15
	%E:	$FILE (NEXT,<Remote File Name>,<$ALTERNATE(%F)>)
 WIT
	%E:	$IFILE (NEXT,<Remote File Name>,<$ALTERNATE(%F)>)
 REP 313/3	;09C16
	%D:	$FILE (NEXT,<Remote File Name>,<$ALTERNATE(%E)>)
 WIT
	%D:	$OFILE (NEXT,<Remote File Name>,<$ALTERNATE(%E)>)
 REP 318/3	;09C17
	>
 WIT
	>; END TOPS20
 DEL 7/4	;09C18
		GLXMAJ==:<GLXVRS&077700000000>_-^D24 ; Get major version number
		GLXMIN==:<GLXVRS&000077000000>_-^D18 ; Get minor version number
		GLXEDT==:<GLXVRS&000000777777> ; Get edit number

		PRTVER (\GLXMAJ,\GLXMIN,\GLXEDT) ; Print GALAXY version in listing
		NCPVER (^D3,0,^D39,0) ; Make our version number

 REP 25/4	;09C19
	IF2 <ASUPPRESS>		      ; Remove symbols
 WIT
	IF2 <ASUPPRESS>
 REP 16/5	;09C20
	NCPGVN:	EXP	GLXVRS	      ; Version number of GALAXY
	NCPVRN:	EXP	NCPVRS	      ; Version number of NCP

		IF2	<PURGE GLXVRS>
 WIT
	NCPGVN:	EXP	GLXNCP	      ; Version number of GLXMAC 
	NCPVRN:	EXP	NCPVRS	      ; Version number of NCP

 INS 29/5	;09C21
	DOTBRK:	BRMSK. (KEYB0.,KEYB1.,KEYB2.,KEYB3.,<.>) ; Keyword w/o dot as a break character
 REP 39/5	;09C22
	LITBRK:	BRMSK. (FLDB0.,<FLDB1.&<^-<1_^D33!1_^D23>>>,FLDB2.,FLDB3.,!#$%&'()*+-./:;<=>?@[\]^_`{|}~)
 WIT
	LITBRK:	BRMSK. (FLDB0.,<FLDB1.&<^-<1_^D33!1_^D23>>>,FLDB2.,FLDB3.,!#$%&'()*+-./:;<=>@[\]^_`{|}~)
		SUBTTL	Parser Action Routines


	; $ACTION routine used to check for a valid node name returned
	; by the $NODNM parse macro.  It filters out node addresses.

	CHKNAM:	SKIPGE	CR.RES(S2)	; Name start with alphabetic character?
		  PJRST	[SETO	0,	; Yes, return TRUE
			 POPJ	P,]	; ...
		MOVEI	S2,[ASCIZ /Node name must start with an alphabetic character/]
		SETZ	0,		; Return FALSE with error message in S2
		POPJ	P,		; ...
 INS 1/7	;09C23
		SUBTTL  Tables that appear out of ordinary sequence
	;The reason for such things is to get the $KNxxx constants defined in 
	;the NCPKEY macro to be consecutive.

	;Module ids
	SHW201:$STAB		      ; MODULE module-id keyword table
		NCPKEY  (SHW270,CFG,CONFIGURATOR)
		NCPKEY  (SHW280,CSL,CONSOLE)
		NCPKEY  (SHW290,LDR,LOADER)
		NCPKEY  (SHW290,LPR,LOOPER)
		NCPKEY	(SHW210,XAC,X25-ACCESS)
		NCPKEY	(SHW220,XPR,X25-PROTOCOL)
		NCPKEY	(SHW260,XSV,X25-SERVER)
		$ETAB

 REP 24/7	;09C24
		SIXBIT	/HLP/	      ; Extension
 WIT
		SIXBIT	/MEM/	      ; Extension
 REP 11/9	;09C25
	X.25 <	NCPKEY	(CLR800,MDL,MODULE)>
 WIT
	      	NCPKEY	(CLR800,MDL,MODULE)
 REP 18/10	;09C26
	X.25 <	PARKEY	(CLR325,C$PRCL,^D0921,RECALL)>
 WIT
	      	PARKEY	(CLR325,C$PRCL,^D0921,RECALL)
 REP 32/10	;09C27
	X.25 <	VALKEY	(CLR399,C$MRCL,^D0920,RECALLS)>
 WIT
	      	VALKEY	(CLR399,C$MRCL,^D0920,RECALLS)
 REP 13/11	;09C28
	X.25 <	PARKEY	(CLR425,L$PHBK,^D1122,HOLDBACK)>
	X.25 <	PARKEY	(CLR435,L$PMAX,^D0000,MAXIMUM)>
 WIT
	      	PARKEY	(CLR425,L$PHBK,^D1122,HOLDBACK)
	      	PARKEY	(CLR435,L$PMAX,^D0000,MAXIMUM)
 DEL 25/11	;09C29
	X.25 <			      ; Start X.25 conditions
 DEL 32/11	;09C30
	>			      ; End X.25 conditions
 REP 34/14	;09C31
	X.25 <	PARKEY	(CLR759,E$QMOD,^D4,MODULE)>
 WIT
	      	PARKEY	(CLR759,E$QMOD,^D4,MODULE)
 DEL 44/14	;09C32
	X.25 <			      ; Start X.25 conditions
 DEL 54/14	;09C33
	>			      ; End X.25 conditions
 DEL 3/15	;09C34
	X.25 <			      ; Start X.25 conditions
 DEL 13/15	;09C35
	>			      ; End X.25 conditions
 DEL 3/16	;09C36
	X.25 <			      ; Start X.25 conditions
 DEL 36/16	;09C37
	>			      ; End X.25 conditions
 DEL 3/17	;09C38
	X.25 <			      ; Start X.25 conditions
 DEL 111/17	;09C39
	>			      ; End X.25 conditions
 DEL 3/18	;09C40
	X.25 <			      ; Start X.25 conditions
 DEL 84/18	;09C41
	>			      ; End X.25 conditional features
 REP 3/19	;09C42
	CLR900:	NOD$NUMBER (CLR906,<$ALTERNATE(CLR901)>) ; NODE node-address

	CLR901:	NOD$NAME (CLR904)     ; NODE node-name
 WIT
	CLR900:	NOD$NUMBER (CLR906,<$ALTERNATE(CLR901)>,<ALL>)   ; NODE node-address

	CLR901:	NOD$NAME (CLR904)     	     ; NODE node-name
 REP 13/19	;09C43
	CLR906:	$KEYDSP	(CLR990,<$ALTERNATE(CLR910)>)
 WIT
	CLR906:	$KEYDSP	(CLR990,<$ALTERNATE(CLR910),$DEFAULT(ALL)>)
 REP 20/19	;09C44
		PARKEY	(CLR925,N$PDMP,^D000,DUMP)
 WIT
		PARKEY  (CLR9A0,N$PDIA,^D123,DIAGNOSTIC)
		PARKEY	(CLR925,N$PDMP,^D000,DUMP)
		PARKEY  (CLR9B0,N$PHRD,^D114,HARDWARE)
 INS 71/19	;09C45
		VALKEY	(CLR942,N$SNOD,^D115,NODE)
 INS 74/19	;09C46
	CLR942:	$KEYDSP	(CLR943,$DEFAULT<VERSION>)

	CLR943:	$STAB
		VALKEY	(CLR999,N$NVER,^D000,VERSION)
		$ETAB

 INS 93/19	;09C47
	;CLEAR NODE x DIAGNOSTIC 
	CLR9A0:	$KEYDSP (CLR9A1,<$DEFAULT(FILE)>)

	CLR9A1:	$STAB
	      	PARKEY  (CLR9A2,N$PDI1,^D0,FILE)
		$ETAB

	CLR9A2:	NETIFI  (NCPCFM)

	;CLEAR NODE x HARDWARE 
	CLR9B0:	$KEYDSP (CLR9B1,<$DEFAULT(ADDRESS)>)

	CLR9B1:	$STAB
		PARKEY  (CLR9B2,N$PHR1,^D0,ADDRESS)
		$ETAB

	CLR9B2:	NI$ADDRESS (NCPCFM)

 INS 53/21	;09C48
		PARKEY	(LOD24A,N$SNOD,,NODE)
 INS 58/21	;09C49
	LOD24A:	$KEYDSP	(LOD24B,$DEFAULT<VERSION>)

	LOD24B:	$STAB
		PARKEY	(LOD24C,N$NVER,,VERSION)
		$ETAB

	LOD24C:	$NUMBER	(LOD210,<^D10>)

 INS 7/23	;09C50
		NCPKEY  (SHW410,ADJ,ADJACENT)
		NCPKEY  (SHW112,ARE,AREA)
 REP 13/23	;09C51
	X.25 <	NCPKEY	(SHW200,MDL,MODULE)>
		NCPKEY	(SHW400,NOD,NODE)
		NCPKEY	(NCPCFM,QUE,QUEUE)
 WIT
	      	NCPKEY	(SHW200,MDL,MODULE)
		NCPKEY	(SHW400,NOD,NODE)
		NCPKEY	(NCPCFM,QUE,QUEUE)
		NCPKEY  (SHW420,SIG,SIGNIFICANT)
 REP 20/23	;09C52
	SHW111:	$STAB		      ; ACTIVE Entities Keyword Table
		NCPKEY	(SHW192,CKT,CIRCUITS)
		NCPKEY	(SHW192,LIN,LINES)
		NCPKEY	(SHW500,LGG,LOGGING)
	X.25 <	NCPKEY	(SHW192,MDL,MODULES)>
		NCPKEY	(SHW192,NOD,NODES)
		$ETAB

	SHW130:	CKT$ID	(SHW192)      ; CIRCUIT ckt-id
 WIT
	SHW111:	$STAB		      ; ACTIVE/KNOWN Entities Keyword Table
		NCPKEY  (SHW192,ARE,AREAS)
		NCPKEY	(SHW422,CKT,CIRCUITS)
		NCPKEY	(SHW192,LIN,LINES)
		NCPKEY	(SHW500,LGG,LOGGING)
	      	NCPKEY	(SHW192,MDL,MODULES)
		NCPKEY	(SHW192,NOD,NODES)
		$ETAB
		    
	SHW112:	$NUMBER	(SHW192,<^D10>,<Area number>) ; AREA area-id

	SHW130:	CKT$ID	(SHW422)      ; CIRCUIT ckt-id
 DEL 55/23	;09C53
	X.25 <			      ; Start X.25 conditions
 REP 59/23	;09C54
	SHW201:	$STAB		      ; MODULE module-id keyword table
		NCPKEY	(SHW210,XAC,X25-ACCESS)
		NCPKEY	(SHW220,XPR,X25-PROTOCOL)
		NCPKEY	(SHW260,XSV,X25-SERVER)
		$ETAB

 WIT
	;The following table has been moved to the beginning so that
	;$KNxxx for module ids will be consecutive.
	;SHW201:$STAB		      ; MODULE module-id keyword table
	;	NCPKEY  (SHW270,CFG,CONFIGURATOR)
	;	NCPKEY  (SHW280,CSL,CONSOLE)
	;	NCPKEY  (SHW290,LDR,LOADER)
	;	NCPKEY  (SHW290,LPR,LOOPER)
	;	NCPKEY	(SHW210,XAC,X25-ACCESS)
	;	NCPKEY	(SHW220,XPR,X25-PROTOCOL)
	;	NCPKEY	(SHW260,XSV,X25-SERVER)
	;	$ETAB

		SUBTTL SHOW/LIST MODULE X25-ACCESS Commands
 INS 89/23	;09C55
		SUBTTL SHOW/LIST MODULE X25-PROTOCOL Commands
 INS 117/23	;09C56
		SUBTTL SHOW/LIST MODULE X25-SERVER Commands
 REP 121/23	;09C57
		NCPKEY	(SHW262,CTR,COUNTERS)
 WIT
		NCPKEY	(NCPCFM,CTR,COUNTERS)
 REP 141/23	;09C58
	>			      ; End X.25 conditions

	SHW400:	NOD$ID	(SHW192)      ; NODE node-id

	SHW500:	$KEYDSP	(SHW510,<$DEFAULT(SUMMARY)>)

	SHW510:	$STAB		      ; LOGGING entities keyword table
		NCPKEY	(SHW530,CHR,CHARACTERISTICS)
		NCPKEY	(SHW530,EVT,EVENTS)
		NCPKEY	(SHW530,STS,STATUS)
		NCPKEY	(SHW530,SUM,SUMMARY)
		$ETAB

	SHW530:	$KEYDSP	(SHW540,<$ALTERNATE(NCPCFM)>)

	SHW540:	$STAB		      ; Qualifier Keyword Table
		PARKEY	(SHW550,E$SKNW,^D200,KNOWN)
		PARKEY	(SHW570,E$PSNK,^D200,SINK)
		$ETAB

	SHW550:	$KEYDSP	(SHW560,<$DEFAULT(SINKS)>)

	SHW560:	$STAB		      ; KNOWN Qualifier Keyword Table
		KNWKEY	(NCPCFM,E$SSNK,^D000,SINKS)
		$ETAB

	SHW570:	$KEYDSP	(SHW580,<$DEFAULT(NODE)>)

	SHW580:	$STAB		      ; SINK Qualifier Keyword Table
		PARKEY	(SHW590,E$SNOD,^D000,NODE)
		$ETAB

	SHW590:	NOD$ID	(NCPCFM)      ; SINK NODE node-id

		SUBTTL	SET and DEFINE Commands

	SETFDB:	$KEYDSP	(SET001)

	SET001:	$STAB
		NCPKEY	(SET100,CKT,CIRCUIT)
		NCPKEY	(SET300,XTR,EXECUTOR)
		NCPKEY	(SET400,KNW,KNOWN)
		NCPKEY	(SET200,LIN,LINE)
		NCPKEY	(SET500,LGG,LOGGING)
	X.25 <	NCPKEY	(SET600,MDL,MODULE)>
		NCPKEY	(SET900,NOD,NODE)
 WIT

		SUBTTL SHOW/LIST MODULE CONFIGURATOR Commands

	SHW270:	$KEYDSP (SHW271,<$DEFAULT(SUMMARY)>)

	SHW271: $STAB			; SHOW MODULE CONFIGURATOR selector table
		NCPKEY (SHW272,STS,STATUS)
		NCPKEY (SHW272,SUM,SUMMARY)
		$ETAB

	SHW272: $KEYDSP (SHW273,<$ALTERNATE(NCPCFM)>)

	SHW273:	$STAB			; CONFIGURATOR qualifier table
		PARKEY (SHW274,C$FCKT,^D100,CIRCUIT)
		PARKEY (SHW275,C$FKNW,^D100,KNOWN)
		$ETAB

	SHW274:	CKT$ID (NCPCFM)		; CIRCUIT circuit-id

	SHW275: $KEYDSP (SHW276,<$DEFAULT(CIRCUITS)>)

	SHW276:	$STAB			; KNOWN CIRCUITS
		KNWKEY (NCPCFM,C$FKNC,^D0,CIRCUITS)
 INS 1/25	;09C59
		SUBTTL SHOW/LIST MODULE CONSOLE Commands
	SHW280:	$KEYDSP (SHW281)

	SHW281: $STAB			; SHOW/LIST MODULE CONSOLE selector table
		NCPKEY (NCPCFM,CHR,CHARACTERISTICS)
		NCPKEY (NCPCFM,SUM,SUMMARY)
		$ETAB

		SUBTTL SHOW/LIST MODULE LOADER/LOOPER Commands
	SHW290:	$KEYDSP (SHW291)

	SHW291: $STAB			; SHOW/LIST MODULE LOADER/LOOPER selector table
		NCPKEY (NCPCFM,STS,STATUS)
		NCPKEY (NCPCFM,SUM,SUMMARY)
		$ETAB

	SHW400:	NOD$ID  (SHW192,,<SUMMARY>)

	SHW410:	$KEYDSP (SHW411,$DEFAULT(NODES)) ; ADJACENT NODES

	SHW411:	$STAB
		NCPKEY  (SHW412,NOD,NODES)
		$ETAB

	SHW412:	$KEYDSP	(SHW413,<$DEFAULT(SUMMARY)>)

	SHW413:	$STAB		      ; SHOW ADJACENT NODE node-id Keyword Table
		NCPKEY	(SHW414,CHR,CHARACTERISTICS)
		NCPKEY	(SHW414,CTR,COUNTERS)
		NCPKEY	(SHW414,STS,STATUS)
		NCPKEY	(SHW414,SUM,SUMMARY)
		$ETAB

	SHW414:	$KEYDSP (SHW415,<$ALTERNATE(NCPCFM)>)

	SHW415:	$STAB			; SHOW ADJACENT NODES qualifier table
		PARKEY (SHW416,A$NCKT,^D822,CIRCUIT)
		PARKEY (SHW417,A$NKNW,^D822,KNOWN)
		$ETAB

	SHW416:	CKT$ID (NCPCFM)

	SHW417:	$KEYDSP (SHW418,<$DEFAULT (CIRCUITS)>)

	SHW418:	$STAB
		KNWKEY (NCPCFM,A$NKNC,^D0,CIRCUITS)
		$ETAB

	SHW420: $KEYDSP (SHW421)	; SHOW SIGNIFICANT selector table

	SHW421: $STAB
		NCPKEY  (SHW422,CKT,CIRCUITS)
		NCPKEY	(SHW192,LIN,LINES)
		NCPKEY	(SHW192,MDL,MODULES)
		NCPKEY  (SHW192,NOD,NODES)
		$ETAB

	SHW422:	$KEYDSP (SHW423,<$DEFAULT(SUMMARY)>)

	SHW423:	$STAB		      ; CIRCUITS selector table
		NCPKEY	(SHW424,CHR,CHARACTERISTICS)
		NCPKEY	(SHW424,CTR,COUNTERS)
		NCPKEY	(SHW424,STS,STATUS)
		NCPKEY	(SHW424,SUM,SUMMARY)
		$ETAB

	SHW424:	$KEYDSP	(SHW425,<$ALTERNATE(NCPCFM)>)

	SHW425:	$STAB			; CIRCUITS qualifier table
		PARKEY  (SHW426,C$CADJ,^D800,ADJACENT)
		$ETAB

	SHW426:	$KEYDSP (SHW427,<$DEFAULT(NODE)>)

	SHW427:	$STAB
		PARKEY  (SHW428,C$CNOD,^D0,NODE)
		$ETAB

	SHW428:	NOD$ID  (NCPCFM)

	 	SUBTTL SHOW LOGGING SINK sink-type Commands

	SHW500:	$KEYDSP	(SHW510,<$DEFAULT(SUMMARY)>)

	SHW510:	$STAB		      ; LOGGING entities keyword table
		NCPKEY	(SHW530,CHR,CHARACTERISTICS)
		NCPKEY	(SHW530,EVT,EVENTS)
		NCPKEY	(SHW530,STS,STATUS)
		NCPKEY	(SHW530,SUM,SUMMARY)
		$ETAB

	SHW530:	$KEYDSP	(SHW540,<$ALTERNATE(NCPCFM)>)

	SHW540:	$STAB		      ; Qualifier Keyword Table
		PARKEY	(SHW550,E$SKNW,^D200,KNOWN)
		PARKEY	(SHW570,E$PSNK,^D200,SINK)
		$ETAB

	SHW550:	$KEYDSP	(SHW560,<$DEFAULT(SINKS)>)

	SHW560:	$STAB		      ; KNOWN Qualifier Keyword Table
		KNWKEY	(NCPCFM,E$SSNK,^D000,SINKS)
		$ETAB

	SHW570:	$KEYDSP	(SHW580,<$DEFAULT(NODE)>)

	SHW580:	$STAB		      ; SINK Qualifier Keyword Table
		PARKEY	(SHW590,E$SNOD,^D000,NODE)
		$ETAB

	SHW590:	NOD$ID	(NCPCFM)      ; SINK NODE node-id

		SUBTTL	SET and DEFINE Commands

	SETFDB:	$KEYDSP	(SET001)

	SET001:	$STAB
		NCPKEY	(SET100,CKT,CIRCUIT)
		NCPKEY	(SET300,XTR,EXECUTOR)
		NCPKEY	(SET400,KNW,KNOWN)
		NCPKEY	(SET200,LIN,LINE)
		NCPKEY	(SET500,LGG,LOGGING)
	      	NCPKEY	(SET600,MDL,MODULE)
		NCPKEY	(SET900,NOD,NODE)
		$ETAB

 REP 12/25	;09C60
	X.25 <	PARKEY	(SET110,C$PBKG,^D0910,BLOCKING)>
	X.25 <	PARKEY	(SET115,C$PCHN,^D1121,CHANNEL)>
 WIT
	      	PARKEY	(SET110,C$PBKG,^D0910,BLOCKING)
	      	PARKEY	(SET115,C$PCHN,^D1121,CHANNEL)
 REP 17/25	;09C61
	X.25 <	PARKEY	(SET133,C$PDTE,^D1120,DTE)>
 WIT
	      	PARKEY	(SET133,C$PDTE,^D1120,DTE)
 REP 23/25	;09C62
	X.25 <	PARKEY	(SET135,C$PMAX,^D0000,MAXIMUM)>
	X.25 <	PARKEY	(SET134,C$PNBR,^D0930,NUMBER)>
		PARKEY	(SET160,C$POWR,^D1100,OWNER)
		PARKEY	(SET161,C$PPST,^D1010,POLLING)
	X.25 <	PARKEY	(SET130,C$PRCL,^D0921,RECALL)>
 WIT
	      	PARKEY	(SET135,C$PMAX,^D0000,MAXIMUM)
	      	PARKEY	(SET134,C$PNBR,^D0930,NUMBER)
		PARKEY	(SET160,C$POWR,^D1100,OWNER)
		PARKEY	(SET161,C$PPST,^D1010,POLLING)
	      	PARKEY	(SET130,C$PRCL,^D0921,RECALL)
 REP 33/25	;09C63
	X.25 <	PARKEY	(SET185,C$PUSG,^D1111,USAGE)>
 WIT
	      	PARKEY	(SET185,C$PUSG,^D1111,USAGE)
 DEL 43/25	;09C64
	X.25 <			      ; Start X.25 conditions
 DEL 47/25	;09C65
	>			      ; End X.25 conditions
 DEL 61/25	;09C66
	X.25 <			      ; Start X.25 conditions
 DEL 67/25	;09C67
	>			      ; End X.25 conditions
 REP 73/25	;09C68
	X.25 <	PARKEY	(SET137,C$MBLK,^D1122,DATA)>
	X.25 <	PARKEY	(SET138,C$MRCL,^D0920,RECALLS)>
		PARKEY	(SET143,C$MTRA,^D1146,TRANSMITS)
	X.25 <	PARKEY	(SET139,C$MWDW,^D1123,WINDOW)>
		$ETAB

	X.25 <			      ; Start X.25 conditions
 WIT
	      	PARKEY	(SET137,C$MBLK,^D1122,DATA)
	      	PARKEY	(SET138,C$MRCL,^D0920,RECALLS)
		PARKEY	(SET143,C$MTRA,^D1146,TRANSMITS)
	      	PARKEY	(SET139,C$MWDW,^D1123,WINDOW)
		$ETAB

 DEL 87/25	;09C69
	>			      ; End X.25 conditions
 DEL 160/25	;09C70
	X.25 <			      ; Start X.25 conditions
 DEL 164/25	;09C71
	>			      ; End X.25 conditions
 REP 175/25	;09C72
	X.25 <	VALKEY	(SET199,C$TX25,^D3,X25)>
 WIT
	      	VALKEY	(SET199,C$TX25,^D3,X25)
 REP 17/26	;09C73
	X.25 <	PARKEY	(SET250,L$PHBK,^D1122,HOLDBACK)>
	X.25 <	PARKEY	(SET225,L$PMAX,^D0000,MAXIMUM)>
 WIT
	      	PARKEY	(SET250,L$PHBK,^D1122,HOLDBACK)
	      	PARKEY	(SET225,L$PMAX,^D0000,MAXIMUM)
 DEL 51/26	;09C74
	X.25 <			      ; Start X.25 conditions
 DEL 67/26	;09C75
	>			      ; End X.25 conditions
 REP 76/26	;09C76
	X.25 <	VALKEY	(SET299,L$PLPB,^D5,LAPB)>
 WIT
	      	VALKEY	(SET299,L$PLPB,^D5,LAPB)
 INS 16/29	;09C77
		PARKEY  (NCPCFM,P$ALL,,ALL)
 REP 35/29	;09C78
	X.25 <	PARKEY	(SET528,E$QMDL,^D4,MODULE)>
 WIT
	      	PARKEY	(SET528,E$QMDL,^D4,MODULE)
 DEL 43/29	;09C79
	X.25 <			      ; Start X.25 conditions
 REP 48/29	;09C80
		PARKEY	(SET504,E$MXAC,\$DNXAC,X25-ACCESS)
		PARKEY	(SET504,E$MXPR,\$DNXPR,X25-PROTOCOL)
		PARKEY	(SET504,E$MXSV,\$DNXSV,X25-SERVER)
		$ETAB

	>			      ; End X.25 conditions
 WIT
		PARKEY  (SET504,E$MCFG,\$KNCFG,CONFIGURATOR)
		PARKEY  (SET504,E$MCSL,\$KNCSL,CONSOLE)
		PARKEY  (SET504,E$MLOD,\$KNLDR,LOADER)
		PARKEY  (SET504,E$MLOP,\$KNLPR,LOOPER)
		PARKEY	(SET504,E$MXAC,\$KNXAC,X25-ACCESS)
		PARKEY	(SET504,E$MXPR,\$KNXPR,X25-PROTOCOL)
		PARKEY	(SET504,E$MXSV,\$KNXSV,X25-SERVER)
		$ETAB

 DEL 3/30	;09C81
	X.25 <			      ; Start X.25 conditions
 INS 8/30	;09C82
		NCPKEY  (SET6C0,CFG,CONFIGURATOR)
		NCPKEY  (SET6A0,CSL,CONSOLE)
		NCPKEY  (SET6B0,LDR,LOADER)
		NCPKEY  (SET6B0,LPR,LOOPER)
 DEL 13/30	;09C83
	>			      ; End X.25 conditions
 DEL 3/31	;09C84
	X.25 <			      ; Start X.25 conditions
 DEL 45/31	;09C85
	>			      ; End X.25 conditions
 DEL 3/32	;09C86
	X.25 <			      ; Start X.25 conditions
 REP 163/32	;09C87
	>			      ; End X.25 conditions
 WIT
		SUBTTL SET/DEFINE MODULE CONSOLE Commands
	SET6A0:	$KEYDSP (SET6A1,<$DEFAULT(RESERVATION)>)

	SET6A1:	$STAB			; SET/DEFINE MODULE CONSOLE  selector table
		PARKEY (SET6A2,C$SRES,^D110,RESERVATION)
		$ETAB

	SET6A2: $KEYDSP (SET6A3,<$DEFAULT(TIMER)>)

	SET6A3:	$STAB			; RESERVATION TIMER
		PARKEY (SET6A4,C$STIM,^D0,TIMER)
		$ETAB

	SET6A4: $NUMBER (NCPCFM,^D10)


		SUBTTL SET/DEFINE LOADER & LOOPER Commands
	SET6B0:	$KEYDSP (SET6B1,<$DEFAULT(ASSISTANCE)>)

	SET6B1:	$STAB
		PARKEY (SET6C2,L$DASS,^D10,ASSISTANCE)
		$ETAB

		SUBTTL SET/DEFINE MODULE CONFIGURATOR Commands
	SET6C0:	$KEYDSP (SET6C1)

	SET6C1:	$STAB			; SET/DEFINE MODULE CONFIGURATOR selector table
		PARKEY (SET6C4,X$ALL,^D0000,ALL)
		PARKEY (SET6C2,C$FSUR,^D110,SURVEILLANCE)
		$ETAB

	SET6C2:	$KEYDSP (SET6C3)

	SET6C3:	$STAB			; SURVEILLANCE/ASSISTANCE control
		VALKEY (NCPCFM,M$DISB,^D1,DISABLED)
		VALKEY (NCPCFM,M$ENAB,^D0,ENABLED)
		$ETAB

	SET6C4:	$KEYDSP (SET6C5)

	SET6C5:	$STAB
		PARKEY (SET6C6,M$CCIR,^D100,CIRCUIT)
		PARKEY (SET6C7,M$CKCR,^D100,KNOWN)
		$ETAB

	SET6C6:	CKT$ID (NCPCFM)

	SET6C7:	$KEYDSP (SET6C8,<$DEFAULT(CIRCUITS)>)

	SET6C8:	$STAB
		KNWKEY  (NCPCFM,M$CKKC,^D0,CIRCUITS)
		$ETAB
 DEL 3/33	;09C88
	X.25 <			      ; Start X.25 conditions
 DEL 99/33	;09C89
	>			      ; End X.25 conditional features
 REP 3/34	;09C90
	SET900:	NOD$NUMBER (SET904,<$ALTERNATE(SET901)>) ; NODE node-address

	SET901:	NOD$NAME (SET902)     ; NODE node-name
 WIT
	SET900:	NOD$NUMBER (SET904,<$ALTERNATE(SET901)>,<ALL>) ; NODE node-address

	SET901:	NOD$NAME (SET902)          ; NODE node-name
 INS 18/34	;09C91
		PARKEY  (SET9Y0,N$PARE,^D928,AREA)
 REP 22/34	;09C92
		PARKEY	(SET930,N$PDMP,^D000,DUMP)
 WIT
		PARKEY  (SET9Z0,N$PDIA,^D123,DIAGNOSTIC)
		PARKEY	(SET930,N$PDMP,^D000,DUMP)
		PARKEY  (SET9A0,N$PHRD,^D114,HARDWARE)
 INS 33/34	;09C93
		PARKEY	(SET9B0,N$PSEG,^D932,SEGMENT)
 REP 36/34	;09C94
	X.25 <	PARKEY	(SET993,N$PSUB,^D911,SUBADDRESSES)>
 WIT
	      	PARKEY	(SET993,N$PSUB,^D911,SUBADDRESSES)
 INS 111/34	;09C95
		PARKEY	(SET968,N$MARE,^D925,AREA)
		PARKEY	(SET969,N$MBRO,^D926,BROADCAST)
 INS 123/34	;09C96
	SET969:	$KEYDSP (SET96A)

	SET96A:	$STAB
		PARKEY  (SET968,N$MBNR,^D0,NONROUTERS)
		PARKEY  (SET968,N$MBBR,^D1,ROUTERS)
		$ETAB

 INS 143/34	;09C97
		PARKEY	(SET98A,N$SNOD,^D115,NODE)
 INS 150/34	;09C98
	SET98A:	$KEYDSP	(SET98B,<$DEFAULT(VERSION)>)

	SET98B:	$STAB
		PARKEY	(SET98C,N$NVER,^D000,VERSION)
		$ETAB

	SET98C:	$NUMBER	(SETX99,<^D10>)

 DEL 178/34	;09C99
	X.25 <			      ; Start X.25 conditions
 DEL 182/34	;09C100
	>			      ; End X.25 conditions
 REP 193/34	;09C101
		VALKEY	(SETX99,N$TNNR,^D1,NONROUTING)
		VALKEY	(SETX99,N$TPII,^D2,PHASE-II)
		VALKEY	(SETX99,N$TRTG,^D0,ROUTING)
 WIT
		VALKEY	(SETX99,N$TNAR,^D3,AREA-ROUTER)
		VALKEY	(SETX99,N$TNNR,^D1,NONROUTING-III)
		VALKEY	(SETX99,N$TNN4,^D5,NONROUTING-IV)
	;	VALKEY	(SETX99,N$TPII,^D2,PHASE-II)
		VALKEY	(SETX99,N$TRTG,^D0,ROUTING-III)
		VALKEY	(SETX99,N$TRT4,^D4,ROUTING-IV)
 REP 1/35	;09C102
		SUBTTL	TELL Command Prefix

	TELFDB:	NOD$ID	(TEL130)      ; NODE node-id

	TEL130:	$KEYDSP	(TEL140,<$ALTERNATE(TEL170)>)

	TEL140:	$STAB		      ; TELL access control keyword table
		PARKEY	(TEL150,N$XACT,,ACCOUNT)
		PARKEY	(TEL155,N$XPWD,,PASSWORD)
		PARKEY	(TEL160,N$XUSR,,USER)
		$ETAB

	TEL150:	$FIELD	(TEL130,<Account String>,<$FLAGS(CM%BRK),$BREAK(LITBRK)>)

	TEL155:	$FIELD	(TEL130,<Password String>,<$FLAGS(CM%BRK),$BREAK(LITBRK)>)

	TEL160:	$FIELD	(TEL130,<User Name>,<$FLAGS(CM%BRK),$BREAK(LITBRK)>)

	TEL170:	$KEYDSP	(TEL172)

	TEL172:	$STAB		      ; NCP Command Keyword Table
		NCPKEY	(CANFDB,CAN,CANCEL)
		NCPKEY	(CLRFDB,CLR,CLEAR)
		NCPKEY	(SETFDB,DEF,DEFINE)
		NCPKEY	(DMPFDB,DMP,DUMP)
		NCPKEY	(HLPFDB,HLP,HELP)
		NCPKEY	(SHWFDB,LST,LIST)
		NCPKEY	(LODFDB,LOD,LOAD)
		NCPKEY	(LOPFDB,LOP,LOOP)
		NCPKEY	(CLRFDB,PUR,PURGE)
		NCPKEY	(SETFDB,SET,SET)
		NCPKEY	(SHWFDB,SHW,SHOW)
		NCPKEY	(TRGFDB,TRG,TRIGGER)
		NCPKEY	(ZERFDB,ZRO,ZERO)
 WIT

	;SET NODE x AREA 
	SET9Y0:	$KEYDSP (SET9Y1,<$DEFAULT(MAXIMUM)>)

	SET9Y1:	$STAB
		PARKEY  (SET9Y2,N$PAR1,^D0,MAXIMUM)
		$ETAB

	SET9Y2:	$KEYDSP (SET9Y3)

	SET9Y3:	$STAB
		PARKEY  (SET9Y4,N$PARC,^D0,COST)
		PARKEY  (SET9Y4,N$PARH,^D1,HOPS)
		$ETAB

	SET9Y4:	$NUMBER (SETX99,<^D10>)

	;SET NODE x DIAGNOSTIC 
	SET9Z0:	$KEYDSP (SET9Z1,<$DEFAULT(FILE)>)

	SET9Z1:	$STAB
		PARKEY  (SET9Z2,N$PDI1,^D0,FILE)
		$ETAB

	SET9Z2:	NETIFI  (SETX99)

	;SET NODE x HARDWARE 
	SET9A0:	$KEYDSP (SET9A1,<$DEFAULT(ADDRESS)>)

	SET9A1:	$STAB
		PARKEY  (SET9A2,N$PHR1,^D0,ADDRESS)
		$ETAB

	SET9A2:	NI$ADDRESS (SETX99)

	;SET NODE x SEGMENT
	SET9B0:	$KEYDSP (SET9B1,<$DEFAULT(BUFFER)>)

	SET9B1:	$STAB
		PARKEY  (SET9B2,N$PSE1,^D0,BUFFER)
		$ETAB

	SET9B2:	$KEYDSP (SET9B3,<$DEFAULT(SIZE)>)

	SET9B3:	$STAB
		PARKEY  (SETX99,N$PSE2,^D0,SIZE)
 INS 1/36	;09C103
		SUBTTL	TELL Command Prefix

	TELFDB:	NOD$ID	(TEL130)      ; NODE node-id

	TEL130:	$KEYDSP	(TEL140,<$ALTERNATE(TEL170)>)

	TEL140:	$STAB		      ; TELL access control keyword table
		PARKEY	(TEL150,N$XACT,,ACCOUNT)
		PARKEY	(TEL155,N$XPWD,,PASSWORD)
		PARKEY	(TEL160,N$XUSR,,USER)
		$ETAB

	TEL150:	$FIELD	(TEL130,<Account String>,<$FLAGS(CM%BRK),$BREAK(LITBRK)>)

	TEL155:	$FIELD	(TEL130,<Password String>,<$FLAGS(CM%BRK),$BREAK(LITBRK)>)

	TEL160:	$FIELD	(TEL130,<User Name>,<$FLAGS(CM%BRK),$BREAK(LITBRK)>)

	TEL170:	$KEYDSP	(TEL172)

	TEL172:	$STAB		      ; NCP Command Keyword Table
		NCPKEY	(CANFDB,CAN,CANCEL)
		NCPKEY	(CLRFDB,CLR,CLEAR)
		NCPKEY	(SETFDB,DEF,DEFINE)
		NCPKEY	(DMPFDB,DMP,DUMP)
		NCPKEY	(HLPFDB,HLP,HELP)
		NCPKEY	(SHWFDB,LST,LIST)
		NCPKEY	(LODFDB,LOD,LOAD)
		NCPKEY	(LOPFDB,LOP,LOOP)
		NCPKEY	(CLRFDB,PUR,PURGE)
		NCPKEY	(SETFDB,SET,SET)
		NCPKEY	(SHWFDB,SHW,SHOW)
		NCPKEY	(TRGFDB,TRG,TRIGGER)
		NCPKEY	(ZERFDB,ZRO,ZERO)
		$ETAB

 REP 10/37	;09C104
	X.25 <	NCPKEY	(ZER150,MDL,MODULE)>
 WIT
	      	NCPKEY	(ZER150,MDL,MODULE)
 REP 23/37	;09C105
	X.25 <	NCPKEY	(ZER210,MDL,MODULES)>
 WIT
	      	NCPKEY	(ZER210,MDL,MODULES)
 DEL 27/37	;09C106
	X.25 <			      ; Start X.25 conditions
 REP 33/37	;09C107
		NCPKEY	(ZER152,XPR,X25-SERVER)
 WIT
		NCPKEY	(ZER160,XSV,X25-SERVER)
 REP 57/37	;09C108
	>			      ; End X.25 conditions

	ZER170:	NOD$ID	(ZER210)      ; NODE node-id

	ZER210:	$KEYDSP	(ZER211,<$DEFAULT(COUNTERS)>)
 WIT
	ZER160:	$KEY	(NCPCFM,ZER161,<$DEFAULT(COUNTERS)>)

	ZER161:	$STAB
		PARKEY	(,Z$PCTR,^D0000,COUNTERS)
		$ETAB


	ZER170:	NOD$ID	(ZER210,,<COUNTERS>)      ; NODE node-id

	ZER210:	$KEYDSP	(ZER211,$DEFAULT(COUNTERS))
 SUM 2091