Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-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