Trailing-Edge
-
PDP-10 Archives
-
cuspmar86binsrc_2of2_bb-fp63a-sb
-
10,7/networ/networ.mac
There are 9 other files named networ.mac in the archive. Click here to see a list.
TITLE NETWORK Program to list the nodes in a network
SUBTTL S. Sullivan
SALL ;Pretty listings
.DIREC FLBLST ;Prettier listings
COMMENT@
Things to do:
@
.TEXT \/SYMSEG:HIGH/LOCALS\
COMMENT@
COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1979,1985,1986. ALL RIGHTS RESERVED.
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.
@
SUBTTL Edit history
COMMENT @
[1] Add the /TYPE: switch to determine a node by it's type
[2] Fix the core freeing code in CLRDAT to not zero DDT when loaded
[3] Fix the BLT in CLRDAT so it does not initalize MATCH to -1
[4] Fix the .ISCAN call so indirect files are illegal if logged out
[5] Make sure the user can't get into a "*" mode if not logged in
[6] Take care of the way the NODE. UUO error returns easier now
[7] Make CONC use .ISLGI in SCAN to be consistant in checking if logged in
[10] We saved the temps too early in the OFLINE routine
[11] Make sure that we are able to recover from a node in a "funny" state
[12] Buffer TTY output to reduce monitor overhead
[13] Change "NODE" in output to "Node"
[14] Change the HOST switch to be HOSTESS to be monitor compatable
[15] Make the program Reenterable by setting up .JBREN
[16] Change the way TRMOP. errors are handled and fix
miscellaneous bugs.
[17] Make a zero low segment. Remove EXPs and replace with BLOCK.
[20] Don't allow "*" mode if not logged in...only can do when we
get control because SCAN has a matching bug, before we get it.
[21] Add a reset instruction because the dispatch through RUNAME
or RUNAMC in COMCON or the RUN/R command will not do a
reset unless the program is gotten from DSK. This means
that if the sharable dormant high seg was there and there
was no low seg an address check was the result.
[22] Fix OFLINE and correct other error recovery problems
[23] Add the /TOPOLOGY,/COST, and /SORT switches and fix some
more small bugs including a stack phase problem when we
used the default case (null node name).
[24] Fix the output from /TOPOLOGY so final node,cost pair is
preceeded by a tab.
[25] Version 2! Add DECnet to the program. Reorganize the structure
to make it easier to add new networks as they come along.
Also, fix some bugs
[26] Fix /LINKS to work consistantly, consolidate code in the
DECnet listing routines.
[27] Fix to work with new DNET. uuo, as per MCO 10716.
%2(27) Shipped with 7.02
[30] Fix to work with DECnet Phase IV.
[31] Update copyright notice for 7.03.
[32] Teach how to report non-named nodes on DECnet display
33 RDH 16-Apr-85
De-PRGEND this beast. Call version 3.
34 RDH 16-Apr-85
Add LAT service junk.
35 LEO 4-Sep-85
Do Copyrights.
36 WXD 3-Oct-85
Teach about DECnet endnode support.
@
SUBTTL Constants, symbols, and registers
SEARCH UUOSYM,JOBDAT,MACTEN,SCNMAC
.REQUE REL:SCAN.REL
.REQUE REL:HELPER.REL
TWOSEG 400000 ;So the program will have two segments
;** Define the version word
CUSTVR==0 ;Customer version
DECVER==3 ;DEC version
DECMVR==0 ;DEC minor version
DECEVR==36 ;DEC edit number
NETVER=CUSTVR*1B2+DECVER*1B11+DECMVR*1B17+DECEVR
LOC 137
NETVER
;** Set up .JBINT for interrupt trapping
LOC 134 ;Set PC at .JBINT and
EXP INTBLK ;make it point to our interrupt block
;** Set up .JBREN to allow users to "Reenter" the program
LOC 124 ;Set PC at .JBREN
EXP START+1 ;Begin at run start address
RELOC ;Set back to the high segment
COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1979,1986. ALL RIGHTS RESERVED.
\;END COPYRIGHT MACRO
;REGISTER DEFINITIONS
F=0 ;Flags
F.SEL=400000
T1=1 ;Temps
T2=2
T3=3
T4=4
P1=5 ;Save registers
P2=6
P3=7 ;For passing arguments to SCAN
P4=10
T5=11
T6=12
T7=13
CN=14 ;Current node we are processing
L1=15 ;First loop counter
L2=16 ;Second loop counter
P=17 ;Stack pointer
;DEFINITIONS NOT YET IN UUOSYM
DN%ARE==176000 ;DECnet area number
DN%NOD==001777 ;DECnet node number field
;Program parameters
MAXSPC==^D100 ;The max number of specs we will allow
DNMAX==^D1024 ;The max number of DECnet nodes we support
DNINFL==40 ;Size of DNINF block
MAXNOD==200 ;The max number of ANF nodes we can handle
NODDLN==100 ;Size of NODE. block data buffer
BLKSIZ==.FXLEN ;Number of words allocated to each Scan block
PREALO==MAXNOD/10 ;How many nnode specs to preallocate for
MAXNFE==MAXNOD/2 ;Maximum # of non-fatal errors we will allow
MAXCOR==10000 ;The maximum amount of core we allow (in words)
MO.CHR==400000 ;Character mode bit
DEFWID==^D72 ;Define our default width
PSIZ==100 ;Number of words in the stack
SUBTTL Impure storage
RELOC ;Set to low segment for data and stack
PDL: BLOCK PSIZ ;Stack
;** Interrupt block
INTBLK: BLOCK 1 ;4 words long,,interrupt handler
BLOCK 1 ;No message control,, 2 ^C
LASTPC: BLOCK 1 ;User PC stored here when interrupted
INTYPE: BLOCK 1 ;interrupt type in LH
SUBTTL UUO argument blocks
STDAT: ;Start of core to be zeroed on initalization
DNLOOP: BLOCK 1 ;AOBJN loop counter
DNLOC: BLOCK 1 ;SIXBIT name of local node
DNADR: BLOCK 1 ;Local node network address
DNLST: BLOCK DNMAX ;Max size of DECnet network
DNBIT: BLOCK DNMAX ;Parallel table to DNLST for flags
DN.LST==400000 ;*don't list this node
DN.ONL==200000 ;*this node is on-line
DN.ACT==100000 ;*this node is active
DNBLK: BLOCK 20 ;Size of info block
DNCNT: BLOCK 1 ;Count of nodes returned
DNMCNT: BLOCK 1 ;Count of nodes matched by specs
DNINF: BLOCK DNINFL ;DNET. UUO block for info
DNLINE: BLOCK 5 ;String block for line descriptor
DNLINN==<<.-DNLINE>*5>-1 ;How many bytes for the descriptor
;** Argument block for the NODE. UUO's .NDNDB function
NODBLK: BLOCK 1 ;NODE. UUO arg block
CURNOD: BLOCK 1 ;Current node number
FLDNUM: BLOCK 1 ;Field number we want
DATBLK: BLOCK NODDLN ;Data area
;** Argument block for the TRMOP. UUO's .TOWID function
TTWID: BLOCK 1 ;Function code to get TTY width
UDX: BLOCK 1 ;Our TTY's UDX
;** argument block for the NODE. UUO's .NDLND function
; This generates a list of all the nodes in the network by number
NODNUM: BLOCK 1 ;Header for UUO
NODBIN: BLOCK MAXNOD ;The list of the node numbers
NODNAM: BLOCK MAXNOD ;The list of the node names
SUBTTL Tables to allow wildcarding node names
;** List of valid node spec's
SPCCNT: BLOCK 1 ;Count of valid specs
SPCFLG: BLOCK MAXSPC ;List for flags pertaining to specs
;LH bits - non error conditions
SP.ANF==400000 ;Node found in the ANF10 network
SP.DEC==200000 ;Node found in the DECnet network
;RH bits - error conditions
SP.NNN==400000 ;Node not found
SP.NWD==200000 ;Node went away while processing
SPCLST: BLOCK MAXSPC ;List of node specs we have read
WLDLST: BLOCK MAXSPC ;List of wild card masks
;** Our model of an NDB. We copy the nodes NDB here so we can get it easier
NNM: BLOCK 1 ;Node number
SNM: BLOCK 1 ;Node name in sixbit
SID: BLOCK 10 ;Software ID (asciz)
DAT: BLOCK 10 ;Software date (asciz)
LMA: BLOCK 1 ;Last NCL message assigned
LMS: BLOCK 1 ;Last NCL ACK message sent
LAR: BLOCK 1 ;Last NCL ACK recieved
LAP: BLOCK 1 ;Last NCL ACK processed
LMR: BLOCK 1 ;Last NCL message recieved
LMP: BLOCK 1 ;Last NCL message processed
LAS: BLOCK 1 ;Last NCL ACK sent
MOM: BLOCK 1 ;Maximum outstanding message counter
TOP: BLOCK 20 ;Network topology table in the form
;XWD Level , Node
CNF: BLOCK 20 ;Configuration table in the form
;XWD Object , Number
ENDB: BLOCK 1 ;End of our NDB
SUBTTL Scan related switces
;** Scan switch storage
FIRSW: ;Start of switch area
WIDWD: BLOCK 1 ;/WIDTH:nn switch.
FASWD: BLOCK 1 ;Short listing switch
SILWD: BLOCK 1 ;/SILENCE switch
ANF10W: BLOCK 1 ;/ANF10 switch
DECNWD: BLOCK 1 ;/DECNET switch
LATNWD: BLOCK 1 ;/LAT switch
URCHWD: BLOCK 1 ;/UNREACHABLE switch
HEADWD: BLOCK 1 ;/HEADERS switch
BRIEWD: BLOCK 1 ;/BRIEF switch
TOPWD: BLOCK 1 ;/TOPOLOGY switch
ERRWD: BLOCK 1 ;/ERROR switch
COSTWD: BLOCK 1 ;/COST switch
SORTWD: BLOCK 1 ;/SORT switch
LINKWD: BLOCK 1 ;/LINKS switch
;** The following 12 locations must be contigous and in the same order
MCRWD: BLOCK 1 ;Switch for nodes with "MCR"
TTYWD: BLOCK 1 ;Switch for nodes with "TTY"
CDRWD: BLOCK 1 ;Switch for nodes with "CDR"
LPTWD: BLOCK 1 ;Switch for nodes with "LPT"
PTRWD: BLOCK 1 ;Switch for nodes with "PTR"
PTPWD: BLOCK 1 ;Switch for nodes with "PTP"
PLTWD: BLOCK 1 ;Switch for nodes with "PLT"
MTAWD: BLOCK 1 ;Switch for nodes with "MTA"
DTAWD: BLOCK 1 ;Switch for nodes with "DTA"
TSKWD: BLOCK 1 ;Switch for nodes with "TSK"
RDAWD: BLOCK 1 ;Switch for nodes with "RDA"
CDPWD: BLOCK 1 ;Switch for ndoes with "CDP"
DDPWD: BLOCK 1 ;Switch for nodes with "DDP"
NDEV==.-MCRWD ;Length of table of device switches
TYPWD: BLOCK 1 ;Value for the /TYPE switch
LASTSW: ;Last switch location
;** Other random variables used in odd places
JOB: BLOCK 1 ;Our job number
MATCH: BLOCK 1 ;Count of matches or match errors
CARWID: BLOCK 1 ;The width we are using
FIRSTL: BLOCK 1 ;Count of times through the SHOLST code
SBMCNT: BLOCK 1 ;Count of Scan block error message
OFFSET: BLOCK 1 ;The starting offset
WMATCH: BLOCK 1 ;Flag for status of a wildcard search
HPOS: BLOCK 1 ;The current horizontallocation of the carriage
NFECNT: BLOCK 1 ;Number of non-fatal errors
OUTCON: BLOCK 1 ;Output control word
ANFCNT: BLOCK 1 ;Count of nodes that were found to match specs
FTANF: BLOCK 1 ;-1 means monitor has ANF10 software
FTDEC: BLOCK 1 ;-1 means monitor has DECnet software
FTEND: BLOCK 1 ;-1 means DECnet running as ethernet endnode
FTLAT: BLOCK 1 ;-1 means monitor has LAT software
TEMP: BLOCK BLKSIZ+1 ;Our scratch area
;** TTY buffer space
NCHAR: BLOCK 1 ;Number of characters in the buffer
BUFFP: BLOCK 1 ;Pointer into the buffer
BUFFER: BLOCK ^D100 ;TTY buffer
BUFSIZ==<<.-BUFFER> * 5 > - 2 ;Number of characters in the buffer
SUBTTL Scan block storage area
;** Counters to keep track of the Scan block allocation
OUTFIL: BLOCK 1 ;Number of output specs
INFIL: BLOCK 1 ;Number of input specs
NUMBLK: BLOCK 1 ;Number of scan blocks allocated so far
;** Default area to store Scan blocks.
; Must be at the end of core incase we want to expand
SBLKS: BLOCK PREALO*BLKSIZ ;Make large enough to hold 1 Scan block
ENDAT: ;End of our low seg to be zeroed
SUBTTL Start up and main loop code
RELOC ;Back to pure code
;** Here to get the show on the road
START: TDZA P,P ;Run start
MOVEI P,1 ;CCL start
MOVEM P,OFFSET ;Save starting offset for Scan
MOVE P,[PSIZ,,PDL] ;Set up the stack
RESET ;RESET to prevent address checks
MOVEI T1,START ;Get the reenter address
MOVEM T1,.JBREN ; and set it up
PUSHJ P,INITIA ;Clear the data base...
PUSHJ P,FLUSH ;Set up the output buffer header
PUSHJ P,ISCN ;Initalize Scan
; JRST LOOP ;Fall into the main loop
;** Here to process the main loop
LOOP: PUSHJ P,TSCN ;SCAN a command line
PUSHJ P,DISECT ;Parse the node spec's
PUSHJ P,ANF10 ;Check out the ANF10 network
PUSHJ P,DECNET ;Check out the DECnet network
PUSHJ P,LATSER ;Check out the LAT 'network'
PUSHJ P,ERRSCN ;Check if node constraints too tight
LOOP1: SKIPE OFFSET ;Did we CCL start?
JRST FINISH ;No, exit and flush buffers
PUSHJ P,.ISLGI ;Are we logged in?
JRST FINISH ;No, exit and flush buffers
PUSHJ P,FLUSH ;Output anything in the buffer
PUSHJ P,INITIA ;Clear the data base...
PUSHJ P,FLUSH ;Set up our buffer headers again
JRST LOOP ;and look for another line of input
SUBTTL Data initialization routine
;** Routine to reset the data areas
INITIA: HLRZ T1,.JBSA ;Reduce our core back to small
CORE T1, ;as we should be.
JFCL ;We don't care
MOVE T2,OFFSET ;Save our start address offset
MOVE T1,[STDAT,,STDAT+1] ;Get the start and end of impure data
SETZM STDAT ;Zero the first word
BLT T1,ENDAT ;to the last word
SETOM FIRSW ;Set the first location of the
MOVE T1,[FIRSW,,FIRSW+1] ;Switch block to -1, then
BLT T1,LASTSW-1 ;The last one
;*All switchs must be initalized
;to -1 or Scan won't work right
MOVE T1,[INT,,INTBLK] ;initalize interrupt control block
BLT T1,INTBLK+IBLKLN ;from data in the high seg
MOVEI T1,.TOWID ;Set up the argument block for TTY width
MOVEM T1,TTWID ;So we can find his TTY's width
MOVEI T1,MAXNOD+1 ;The max number of nodes we can handle
MOVEM T1,NODNUM ;So we can build tables of nodes
ADDI T1,2 ;Fix the value for the
MOVEM T1,NODBLK ;.NDNDB function of the NODE. UUO
MOVEM T2,OFFSET ;Restore the offset
PJOB T2, ;Get our job number
MOVEM T2,JOB ;Save it
TRMNO. T2, ;Get our TTY's UDX
SETO T2, ;No, TRMNO. error, default is -1
MOVEM T2,UDX ;Yes, save it in TRMOP. argument block
MOVEI T1,.TOWID ;TRMOP. width function
MOVE T3,[XWD 2,T1] ;Set up to get the TTY width
TRMOP. T3, ;Try for it
MOVEI T3,DEFWID ;Error, use the default width!
MOVEM T3,CARWID ;Save for other routines
MOVE T4,[%FTPER] ;Get the feature test word
GETTAB T4, ;...
PUSHJ P,GTABER ;GETTAB error? tell user and die
TRNN T4,F%NET&777777 ;Do we have network software?
TDZA T1,T1 ;No, zero the flag
SETO T1, ;Yes, set the flag
MOVEM T1,FTANF ;Remember ANF flag
MOVE T4,[%CNST2] ;Get the monitor status word
GETTAB T4, ;...
PUSHJ P,GTABER ;GETTAB error? tell user and die
TLNN T4,(ST%D36) ;DECnet here?
TDZA T1,T1 ;No, zero the flag
SETO T1, ;Yes, set the flag
MOVEM T1,FTDEC ;Remember DECnet flag
TLNN T4,(ST%END) ;DECnet ethernet endnode?
TDZA T1,T1 ;No, zero the flag
SETO T1, ;Yes, set the flag
MOVEM T1,FTEND ;Remember DECnet ethernet endnode flag
SETOM FTLAT ;Assume LAT service for the nonce
POPJ P, ;Done...return
SUBTTL ANF10 processing loop
;** Here to do the ANF10 network display
ANF10: SKIPE FTANF ;Do we have ANF10 software?
SKIPN ANF10W ;Did we have /NOANF?
POPJ P, ;Yes just return
SKIPLE LINKWD ;/LINKS??
SKIPLE ANF10W ;Specify /ANF10?
CAIA ;Sense is wrong
POPJ P, ;YES, skip ANF10 output
SKIPG ANF10W ;Specify /ANF10?
SKIPG DECNWD ;Specify DECnet list?
CAIA ;Sense is wrong
POPJ P, ;Yes, just return
PUSHJ P,ANFTAB ;Build the ANF10 tables
PUSHJ P,ANFWLD ;Resolve ANF10 wildcarded node names
SKIPN ANFCNT ;Do we have anything to print?
POPJ P, ;No, quit now and save computes
PUSHJ P,ANFHEA ;Do ANF10 headers
MOVN L1,NODNUM ;Negate the number of nodes
HRLZS L1 ;Make it an AOBJN counter
ANFLOP: HRRZ CN,NODBIN(L1) ;Get the current node number
MOVSI T1,SP.ANF ;Do we want to list this node?
TDNN T1,NODBIN(L1) ;???
JRST ANFLO1 ;Nope!
PUSHJ P,BLDNDB ;Build a copy of the node's NDB
JRST ANFLO1 ;Skip the rest, not quite there
PUSHJ P,SELECT ;Does node meet switch constraints?
TLNE F,F.SEL ;Is the node selected for printing?
PUSHJ P,PRINFO ;Yes, Print selected info
ANFLO1: AOBJN L1,ANFLOP ;Increment and loop till done
PJRST CRLFH ;Finish with a CRLF
;Here to print the ANF10 header, if we have any nodes to print and
;if we did not specify /NOHEADERS
ANFHEA: SKIPN HEADWD ;Did they say no headers?
POPJ P, ;Yes, don't!
MOVEI T1,[ASCIZ \[ANF10 network: connected to \] ;Say what we are doing
PUSHJ P,.TSTRG## ;...
MOVE T3,UDX ;Get our TTY's UDX
GTNTN. T3, ;Change to NODE,,LINE
SETZ T3, ;Don't care, catch it later
HLRZS T3 ;Make the node number
MOVEI T2,2 ;No, set up an argument block
MOVE T1,[.NDRNN,,T2] ;and an ac
NODE. T1, ;Use NODE. UUO to check node
JRST [MOVEI T1,[ASCIZ \??????\] ;Unknown
PUSHJ P,.TSTRG## ;Type it
JRST .+2] ;Continue
PUSHJ P,.TSIXN## ;and type it
MOVEI T1,[ASCIZ \(\] ;Open paren for the number
PUSHJ P,.TSTRG## ;...
MOVE T1,T3 ;Get the local node's number
PUSHJ P,.TOCTW## ;Type it in octal
MOVEI T1,[ASCIZ \), located at \] ;Close the node name
PUSHJ P,.TSTRG## ;Type it out
MOVEI T3,.GTLOC ;Get where we are located
HRL T3,JOB ;Our job #
GETTAB T3, ;Do the GETTAB
SETZ T3, ;Don't care, catch it later
MOVEI T2,2 ;No, set up an argument block
MOVE T1,[.NDRNN,,T2] ;and an ac
NODE. T1, ;Use NODE. UUO to check node
JRST [MOVEI T1,[ASCIZ \??????\] ;Unknown
PUSHJ P,.TSTRG## ;Type it
JRST .+2] ;Continue
PUSHJ P,.TSIXN## ;and type it
MOVEI T1,[ASCIZ \(\] ;Open paren for the number
PUSHJ P,.TSTRG## ;...
MOVE T1,T3 ;Get the local node's number
PUSHJ P,.TOCTW## ;Type it in octal
MOVEI T1,[ASCIZ \), \] ;Close the node name
PUSHJ P,.TSTRG## ;Type it out
MOVE T1,NODNUM ;Get the node number
PUSHJ P,.TDECW## ;Type the number of nodes
MOVE T1,NODNUM ;Get the node number
CAIG T1,1 ;Is it singular or plural
SKIPA T1,[[ASCIZ \ node]\]] ;Singular
MOVEI T1,[ASCIZ \ nodes]\] ;Plural
PUSHJ P,.TSTRG## ;...
PJRST CRLFH ;Cap off ANF header with a <CR><LF>
;** Here to resolve the wild cards in the node spec's we got
ANFWLD: SKIPN T1,SPCCNT ;Do we have any specs
JRST ANFWL4 ;None, take the default
MOVN L1,T1 ;Get the negative count of specs
HRLZS L1 ;Make an AOBJN pointer
ANFWL1: MOVE T3,SPCLST(L1) ;Get the name
SKIPN T4,WLDLST(L1) ;Is this a wild card entry?
PUSHJ P,ANFWL6 ;No, make sure it's a name and -1 mask
ANDCAM T4,T3 ;Mask it
SETZ T1, ;Clear the match counter
MOVN L2,NODNUM ;Get count of known nodes
HRLZS L2 ;Make an AOBJN pointer
ANFWL2: MOVE T2,NODNAM(L2) ;Get a node name
ANDCAM T4,T2 ;Mask it
CAME T2,T3 ;Match?
JRST ANFWL3 ;No, Try the next one
AOS ANFCNT ;Increment the count of nodes found
MOVSI T1,SP.ANF ;Yes, Flag it to be listed
IORM T1,SPCFLG(L1) ;Mark the match in the spec flags
IORM T1,NODBIN(L2) ;Mark the match in known node list
ANFWL3: AOBJN L2,ANFWL2 ;Loop over all known nodes
AOBJN L1,ANFWL1 ;And all node specs
POPJ P, ;Return
;Here to set up for the default case
ANFWL4: MOVN T1,NODNUM ;Get the number of nodes
HRLZ T1,T1 ;Make an AOBJN pointer
MOVSI T2,SP.ANF ;"LIST NODE" Flag
ANFWL5: IORM T2,NODBIN(T1) ;Flag all nodes
AOBJN T1,ANFWL5 ;Loop over all nodes
AOS ANFCNT ;Increment the count of matches
POPJ P, ;Return
;Here to setup mask for the non-wilcarded case
ANFWL6: SETZ T4, ;Non-wildcard mask is 0
MOVEI T2,2 ;No, set up an argument block
ANFWL7: MOVE T1,[.NDRNN,,T2] ;and an ac
NODE. T1, ;Use NODE. UUO to check node
POPJ P, ;Error, Use what we have to use
MOVE T3,T1 ;Put it where it's expected
TLNN T1,777777 ;Is what we have a name?
JRST ANFWL7 ;Try for a SIXBIT result
POPJ P, ;No, Just return
;** Here to build our network tables, this is our snapshot of the network
ANFTAB: MOVE T1,[XWD .NDLND,NODNUM] ;Set up ac for NODE. UUO
NODE. T1, ;Can we get the table of node numbers?
PUSHJ P,NODERR ;No, tell user why and die
MOVEM T1,NODNUM ;Stash the number of nodes in network
MOVE T1,SORTWD ;Get the sort status
JUMPL T1,ANFTA1 ;No switch, default to sorted
CAIE T1,SRT.DF ;Default sort?
CAIN T1,SRT.NU ;Did the user type /SORT:NUMBER
ANFTA1: PUSHJ P,ANFSRT ;Yes, Sort the numbers
MOVN L2,NODNUM ;Negate the number of nodes
HRLZS L2 ;Make it an AOBJN counter
MOVEI T3,2 ;Get the argument block length
ANFTA2: MOVE T4,NODBIN(L2) ;Get a node number
MOVE T1,[XWD .NDRNN,T3] ;Set up T1 for NODE. UUO
NODE. T1, ;Can we change number to sixbit name?
SETZ T1, ;No, make it a zero name and wing it
MOVEM T1,NODNAM(L2) ;Yes, stash in ajacent table of names
AOBJN L2,ANFTA2 ;Loop till done
MOVE T1,SORTWD ;Get the sort status
CAIN T1,SRT.NA ;Did the user type /SORT:NAME
PUSHJ P,ANFNSR ;Yes, Sort them by name
CPOPJ: POPJ P, ;Return
;** Here to shellsort the node names gotten above
ANFNSR: HRRZ T1,NODNUM ;T1=Number_of_nodes
ANFNS1: LSH T1,-1 ;T1=T1/2
JUMPE T1,CPOPJ ;IF T1=0 then RETURN
MOVEI T2,1 ;T2=1
ANFNS2: HRRZ T3,T2 ;T3=T2
ANFNS4: HRRZ T4,T3
ADDI T4,(T1) ;T4=T3+T1
MOVE T5,<NODNAM-1>(T4) ;T5=node[T3+T1]
CAML T5,<NODNAM-1>(T3) ;IF node[T3] <= node[T3+T1]
JRST ANFNS3 ;then GOTO SORT3
EXCH T5,<NODNAM-1>(T3)
MOVEM T5,<NODNAM-1>(T4) ;exchange
MOVE T5,<NODBIN-1>(T4) ;Exchange the node numbers too
EXCH T5,<NODBIN-1>(T3)
MOVEM T5,<NODBIN-1>(T4) ;exchange
SUBI T3,(T1) ;T3=T3-T1
JUMPG T3,ANFNS4 ;IF T3>=1 GOTO SORT4
ANFNS3: HRRZ T5,NODNUM ;delayed T2=T2+1
SUBI T5,1(T1) ;then comparison
CAILE T2,(T5) ;IF T2>N-T1 then
AOJA T2,ANFNS1 ;GOTO SORT1
AOJA T2,ANFNS2 ;ELSE GOTO SORT2
;** Here to shellsort the node numbers gotten above
ANFSRT: HRRZ T1,NODNUM ;T1=Number_of_nodes
ANFSR1: LSH T1,-1 ;T1=T1/2
JUMPE T1,CPOPJ ;IF T1=0 then RETURN
MOVEI T2,1 ;T2=1
ANFSR2: HRRZ T3,T2 ;T3=T2
ANFSR4: HRRZ T4,T3
ADDI T4,(T1) ;T4=T3+T1
MOVE T5,<NODBIN-1>(T4) ;T5=node[T3+T1]
CAML T5,<NODBIN-1>(T3) ;IF node[T3] <= node[T3+T1]
JRST ANFSR3 ;then GOTO SORT3
EXCH T5,<NODBIN-1>(T3)
MOVEM T5,<NODBIN-1>(T4) ;exchange
SUBI T3,(T1) ;T3=T3-T1
JUMPG T3,ANFSR4 ;IF T3>=1 GOTO SORT4
ANFSR3: HRRZ T5,NODNUM ;delayed T2=T2+1
SUBI T5,1(T1) ;then comparison
CAILE T2,(T5) ;IF T2>N-T1 then
AOJA T2,ANFSR1 ;GOTO SORT1
AOJA T2,ANFSR2 ;ELSE GOTO SORT2
SUBTTL Build a node data block
;** Here to build a copy of the node's NDB in our space
BLDNDB: HRRZM CN,NNM ;Stash node number
HRRZM CN,CURNOD ;Again for NODE. UUO
MOVEI T1,2 ;Set up the field number
MOVEM T1,FLDNUM ;for the NODE. UUO
MOVE T2,CN ;Get the current node #
MOVE T3,[.NDRNN,,T1] ;Set up the AC
NODE. T3, ;Try to get the name
JRST BLDND2 ;Oops, node in a funny state
MOVEM T3,SNM ;Stash it
MOVE T1,[.NDNDB,,NODBLK] ;Set up the ac
AOS FLDNUM ;Point to next field in NDB
NODE. T1, ;Get next info?
JRST BLDND3 ;No, investigate
MOVE T3,[DATBLK,,SID] ;Yes, set up to BLT software ID
BLT T3,DAT ;to our NDB copy
AOS FLDNUM ;Point to software date field
NODE. T1, ;Get more info?
JRST BLDND4 ;No, investigate
MOVE T3,[DATBLK,,DAT] ;Yes, set up to BLT date
BLT T3,LMA ;to our NDB copy
AOS FLDNUM ;Point to next field
MOVE L2,[-10,,LMA] ;make loop counter for one word fields
BLDND1: NODE. T1, ;Get the info?
JRST BLDND4 ;No, investigate
MOVE T2,DATBLK ;Yes, move it to
MOVEM T2,(L2) ;our NDB copy
AOS FLDNUM ;Increment to point to next field
AOBJN L2,BLDND1 ;Loop till done
NODE. T1, ;Get the topology table?
JRST BLDND5 ;No, investigate
MOVE T3,[DATBLK,,TOP] ;Yes, copy topology table
BLT T3,CNF ;to our NDB copy
AOS T3,FLDNUM ;Point to the configuration field
NODE. T1, ;Can we get it?
JRST BLDND6 ;No, investigate
MOVE T3,[DATBLK,,CNF] ;Yes, BLT it to
BLT T3,ENDB ;our NDB copy
AOS (P) ;Skip return for success
POPJ P, ;Return
BLDND2: SETZM SNM ;Zero the info we can not get
BLDND3: SETZM SID ;...
BLDND4: SETZM DAT ;...
BLDND5: SETZM TOP ;...
BLDND6: SETZM CNF ;...
PJRST OFLINE ;Tell the user
SUBTTL ANF10 output routines
;** Here to decide whether or not to print a node. The decision is
; based on the selection of /<device-name> switches.
; A skip return is taken if the node is not to be printed.
SELECT: MOVE T1,[-NDEV,,0] ;Make a AOBJN pointer to switch words
TLO F,F.SEL
SELEC0: SKIPLE MCRWD(T1) ;Switch selected for a match?
JRST [SKIPGE DECNWD ;Did we specify DECnet listing?
SETZM DECNWD ;No, don't list if device switch
PUSHJ P,SEL0 ;Yes, Look for a match
TLZA F,F.SEL ;No match, clear the selected flag
JRST SELEC1 ;Continue
POPJ P,] ;No match, return
SKIPN MCRWD(T1) ;Switch selected for a non-match?
JRST [PUSHJ P,SEL0 ;Yes, Look for a match
CAIA ;Opposite sense from before
TLZA F,F.SEL ;No match, clear the selected flag
JRST SELEC1 ;Continue
POPJ P,] ;No match, return
SELEC1: AOBJN T1,SELEC0 ;Loop through all switches
SETO T1, ;Make T1 -1
CAMN T1,TYPWD ;Did we specify /TYPE:?
JRST SELEC4 ;No, don't check it
MOVE T1,TYPWD ;Get the type we are looking for
MOVEI T2,SID ;Point to the software ID
PUSHJ P,ASCSIX ;See if it matches
TLZ F,F.SEL ;No Match, Clear the print flag
SELEC4: AOS MATCH ;Count the number of matches
POPJ P, ;We want to print this node, just return
;Subroutine to see if a device type is in the NDB The device type
;is in the RH of T1
;CALL PUSHJ P,SEL0
; Return with no match
; Return with a match
SEL0: MOVE T2,[-NDEV,,0] ;AOBJN pointer to the configuration info
SEL1: SKIPN CNF(T2) ;No more devices?
POPJ P, ;None, just return, no match
HLRZ T3,CNF(T2) ;Get the object type
CAIN T3,(T1) ;Are they the same device?
AOSA (P) ;Skip return means we will print it
AOBJN T2,SEL1 ;No, loop till found or NDEV
POPJ P, ;...
;** Routine to compare the first six characters of an ASCIZ string
; with the SIXBIT value it T1
;
; call: T1=SIXBIT\value\
; T2=[ASCIZ\string\]
; PUSHJ P,ASCSIX
; <no match> ;First six chars of string converted to sixbit in T2
; <match>
ASCSIX: PUSHJ P,.PSH4T## ;Save the temps
MOVE T1,[-6,,-6] ;Set up an AOBJN pointer
SETZB T4,TEMP ;Clear temps where necessary
HLL T2,[POINT 7,0] ;Byte pointer for the asciz string
MOVE T3,[POINT 6,TEMP] ;Byte pointer for sixbit conversion
ASCSI1: ILDB T4,T2 ;Get a byte from the string
SUBI T4," " ;Make SIXBIT
JUMPLE T4,ASCEOS ;Is the character a space?
IDPB T4,T3 ;Place into the save byte
AOBJN T1,ASCSI1 ;Loop about 6 times
ASCEOS: PUSHJ P,.POP4T## ;Restore the temps
CAMN T1,TEMP ;Is it the same??
AOS (P) ;Yes, do the skip return
CAME T1,TEMP ;Did we match?
MOVE T2,TEMP ;No, copy what we had to T2
POPJ P, ;Return
;** Here to print the information about a node.
; This routine dispatches according to the switches selected:
; /SILENCE, /FAST, /BRIEF, /WIDTH, /TOPOLOGY
;
; destroys many registers
PRINFO: AOS MATCH ;If here we must have had a match
SKIPLE SILWD ;/SILENCE?
POPJ P, ;Yes, Just return...errors only!
PRINF1: SKIPLE TOPWD ;If /TOPOLOGY was specified
JRST PRTOPO ; then go print it
SKIPG FASWD ;/NOFAST or default?
PUSHJ P,PFIRST ;Yes, print the first line
SKIPLE FASWD ;/FAST?
PUSHJ P,SHOLST ;Yes, do a short list
SKIPG FASWD ;/FAST?
JRST PRINF2 ;No, /BRIEF is the default
SKIPE BRIEWD ;Did he say /BRIEF?
POPJ P, ;Yes, don't print configuration
PRINF2: SKIPG BRIEWD ;Here if /NOBRIEF or default
PUSHJ P,PCONF ;No, print the configuration
PRINF3: POPJ P, ;Return to loop
;** Here to print the first line in the default format
;
PFIRST: MOVEI T1,[ASCIZ \Node \] ;Print the lead word
PUSHJ P,.TSTRG## ;...
MOVE T1,SNM ;Get the sixbit node name
PUSHJ P,.TSIXN## ;and print it
PUSHJ P,.TTABC## ;followed by a <tab>
MOVEI T1,"(" ;Get a <left-paren>
PUSHJ P,.TCHAR## ;and print it
MOVE T1,NNM ;Get out node number
PUSHJ P,.TOCTW## ;and print it in octal
MOVEI T1,")" ;Get a <right-paren>
PUSHJ P,.TCHAR## ;and print it
PUSHJ P,.TTABC## ;followed by a <tab>
MOVEI T1,^D28 ;This is our horizontal position
MOVEM T1,HPOS ;so set it
MOVEI T1,SID ;Point at the software ID (asciz)
PUSHJ P,KILBLK ;And kill leading blanks
PUSHJ P,TCARE ;and print it carefully
PUSHJ P,.TTABC## ;followed by a <tab>
MOVEI T1,DAT ;Point to the software date (asciz)
PSTCRL: PUSHJ P,TCARE ;and print it carefully
PJRST CRLFH ;Cap off with a <CR><LF>
;Here to print topology information for a node
;P1 points to topo, p2 = count
PRTOPO: SETZ P2, ;Clear the count of chars printed
MOVEI T1,[ASCIZ \Node \] ;Lead off with "node<tab>"
PUSHJ P,.TSTRG## ;...
MOVE T1,SNM ;Get the name
PUSHJ P,.TSIXN## ; and print it
PUSHJ P,.TTABC## ;Print a <TAB>
MOVEI T1,"(" ;Get an open paren
PUSHJ P,.TCHAR## ; and print it
MOVE T1,NNM ;Get the node's number
PUSHJ P,.TOCTW## ; and print it
MOVEI T1,")" ;Finally, get the close paren
PUSHJ P,.TCHAR## ; and print it
PUSHJ P,.TTABC## ;Print another <TAB>
MOVEI P2,30 ;3 <TAB>s bring us to col # ^D24
MOVEM P2,HPOS ;Save our horizontal position
;Set up to output the topology information
MOVEI P1,TOP ;Get the address of the topology
SKIPN (P1) ; and if there aren't any
JRST [MOVEI T1,[ASCIZ \None\]; neighbors, then
PJRST PSTCRL] ; tell the user
JRST PRTOP3 ;Skip the ","<TAB> the first time
;Here to type a comma in the correct place
PRTOP2: MOVEI T1,[ASCIZ \, \] ;Point to ","<space>
CAIE P2,10 ;No ","<TAB> if CRLFH called
PUSHJ P,TCARE ;type it
;Here to print the neighbor's node number
PRTOP3: MOVE P2,HPOS ;Get the horizontal position
HRRZ T1,(P1) ;Get the neighbors node number
PUSHJ P,FLATSO ;Account for the size
PUSHJ P,.TOCTW## ; and print it in octal
SKIPE COSTWD ;Should we print the link costs?
PUSHJ P,PRCOST ;Print the link costs
SKIPE 1(P1) ;See if there are any more entrys
AOJA P1,PRTOP2 ; and if so, go process them
PUSHJ P,CRLFH ;Cap off the topology/cost line
SKIPN BRIEWD ;Check for configuration typeout
PUSHJ P,PCONF ;Yes, do the configuration
POPJ P, ;No more neighbors to process
;Here to print the link costs
PRCOST: HLRZ T1,(P1) ;Get the link's cost
PUSHJ P,FLATSD ;Account for the size
ADDI P2,2 ;Allow for the ")" & "("
MOVE T1,P2 ;Save P2
SUB T1,HPOS ;Get the length of the string
CAML P2,CARWID ;exceeded the carrage width?
PUSHJ P,CRLFH ;Yes, <CRLF> now
ADDM T1,HPOS ;add the length of the string
MOVE P2,HPOS ;Restore the horizontal postion
MOVEI T1,"(" ;Get an open paren
PUSHJ P,.TCHAR## ; and print it
HLRZ T1,(P1) ;Get the link's cost
PUSHJ P,.TDECW## ; and print it in decimal
MOVEI T1,")" ;Finish off the entry
PJRST .TCHAR## ; with a close paren
;** Routines to count (in P2) the number of chars used in the printed
; representation of the item in T1.
FLATSN: PUSH P,T1 ;Here for counting names
MOVEM P2,HPOS ;Save the horizontal position
FLATN1: SKIPE T1 ;If we haven't zeroed the whole wd
JRST [LSH T1,6 ;yet, then shift the name
AOJA P2,FLATN1] ;and count it
CAML P2,CARWID ;Can this fit??
PUSHJ P,CRLFH ;Too big to fit, <CRLF> now
MOVE P2,HPOS ;Restore the local count
POP P,T1 ;Restore the name
POPJ P, ;and return
FLATSO: PUSH P,T1 ;Here for octal numbers
MOVEM P2,HPOS ;Save the horizontal position
SKIPE T1 ;Worry about a zero
FLATO1: SKIPE T1 ;if we're not done yet
JRST [LSH T1,-3 ;divide the number by 8
AOJA P2,FLATO1] ;and count the digit
CAML P2,CARWID ;Can this fit??
PUSHJ P,CRLFH ;Too big to fit, <CRLF> now
MOVE P2,HPOS ;Restore the local count
POP P,T1 ;restore the number
POPJ P, ;and return
FLATSD: PUSH P,T1 ;Here for decimal numbers
SKIPE T1 ;Make sure zero counts 1
FLATD1: SKIPE T1 ;If there are still more digits
JRST [IDIVI T1,5+5 ;divide by 10
AOJA P2,FLATD1] ;and count the char
MOVEM P2,HPOS ;Save the horizontal position
POP P,T1 ;Restore the number
POPJ P, ;and return
;** Here to print the configuration information
PCONF: MOVE P1,[XWD -20,CNF] ;Make a AOBJN pointer
PUSHJ P,.TTABC## ;Type a <tab>
MOVEI T5,10 ;and set up horizontal position
PCONF1: SKIPN (P1) ;Any more devices?
JRST PCONF2 ;No, all done
HLRZ T1,(P1) ;Yes, get the configuration word
MOVE T1,CTAB(T1) ;and the asciz name string
PUSHJ P,.TSTRG## ;and print it
HRRZ T1,(P1) ;Get how many
PCONF3: IDIVI T1,^D10 ;and find the number of digits
ADDI T5,1 ;add one to the horizontal position
JUMPG T1,PCONF3 ;loop till we have counted all digits
HRRZ T1,(P1) ;Get how many, again
PUSHJ P,.TDECW## ;and print it this time
MOVEI T1,"]" ;Get a <left bracket>
PUSHJ P,.TCHAR## ;and print it
PUSHJ P,.TSPAC## ;followed by a space
ADDI T5,6 ;Add number of characters in the:
;device name [3]
;brackets [2]
;<space> [1]
;to the horizontal position
PUSH P,T5 ;save T5
ADDI T5,11 ;Add the max expected for the
;next device
CAMLE T5,CARWID ;Do we exceed the TTY's width?
JRST PCONF4 ;Yes, do a <CR><LF>
POP P,T5 ;No, restore T5 and
AOBJN P1,PCONF1 ;loop till done
PCONF2: PJRST CRLFH ;Cap off configuration line
PCONF4: SKIPG 1(P1) ;any more devices?
JRST PCONF5 ;Yes, loop back
PUSHJ P,CRLFH ;Type a <CR><LF>
PUSHJ P,.TTABC## ;and a <tab>
PCONF5: POP P,T5 ;then restore T5
MOVEI T5,10 ;Reset the horizontal position counter
AOBJN P1,PCONF1 ;and loop back
;** routine to produce a listing of nodes in the network
; by name and number only on one or two lines
SHOLSS: EXP [ASCIZ/)/] ;Zero
EXP [ASCIZ/) /] ;One
EXP [ASCIZ/) /] ;Two
EXP [ASCIZ/) /] ;Three
EXP [ASCIZ/) /] ;Four
EXP [ASCIZ/) /] ;Five
EXP [ASCIZ/) /] ;Six
EXP [ASCIZ/) /] ;Seven
EXP [ASCIZ/) /] ;Eight
EXP [ASCIZ/) /] ;Nine
EXP [ASCIZ/) /] ;Ten
EXP [ASCIZ/) /] ;Eleven
EXP [ASCIZ/) /] ;Twelve
EXP [ASCIZ/) /] ;Thirteen
EXP [ASCIZ/) /] ;Fourteen
EXP [ASCIZ/) /] ;Fifteen
SPCPRT=^D12
SHOLST: SKIPN FIRSTL ;Is this the first spec?
PUSHJ P,CRLFH ;Yes, do a <CR><LF>
AOS FIRSTL ;Count the number of specs we do
MOVE T2,HPOS ;Get our horizontal position
ADDI T2,SPCPRT ;INCREMENT by on tab to get here
IDIVI T2,SPCPRT ;Worst case node spec
IMULI T2,SPCPRT ;Make the number of 12 bit tabs
MOVEM T2,HPOS ;Save it for later
CAMLE T2,CARWID ;Enough space left?
JRST [PUSHJ P,CRLFH ;Do a <CR><LF>
MOVEI T1,SPCPRT ;Get new HPOS
MOVEM T1,HPOS ;Save the new position
JRST .+1] ;Continue
SETZ P1, ;Zero the position counter
MOVE T2,[POINT 6,SNM] ;Get the node name
MOVEI T1,6 ;Max number of characters in a name
SHOLS0: ILDB T3,T2 ;Get a character
JUMPE T3,SHOLS1 ;Is it blank?
ADDI P1,1 ;No, count characters in the spec
SOJG T1,SHOLS0 ;Have we looked at six characters?
SHOLS1: ADDI P1,2 ;Done, account for parens
SKIPA T1,NNM ;Get the node number, allowing for zero
SHOLS2: SKIPE T1 ;if we're not done yet
JRST [LSH T1,-3 ;divide the number by 8
AOJA P1,SHOLS2] ;and count the digit
MOVE T1,SNM ;Get the sixbit node name
PUSHJ P,.TSIXN## ;Type the node name
MOVEI T1,"(" ;Type a left paren
PUSHJ P,.TCHAR## ;...
HRRZ T1,NNM ;Type the node number
PUSHJ P,.TOCTW## ;in octal...
MOVEI T1,SPCPRT ;Our normal tab stop
SUBI T1,(P1) ;Subtract what we have
MOVE T1,SHOLSS(T1) ;to get pointer to fill string
PJRST .TSTRG ;Finish the entry
;** Here to do a carrage return/ line feed sequence
; and set HPOS (our horizontal position) to zero
CRLFH: SETZM HPOS ;Set the horizontal position back to
;the left margin
PJRST .TCRLF## ;And do a real <CR><LF>
;** Here to kill leading blanks or tabs from a string pointed to by T1
; Returns with T1 pointing to the start of the new string
; * destroys P3
KILBLK: PUSHJ P,.PSH4T## ;Save the temps
HLL T1,[POINT 7,0] ;Make T1 a byte pointer
MOVE T3,T1 ;Copy it
KILBL1: ILDB T2,T1 ;Load a byte
CAIN T2,40 ;Is it a <blank>
JRST KILBL1 ;Loop til we find a non-blank character
CAMN T1,T3 ;Are the byte pointers different?
JRST KILBL4 ;No, return to the caller
KILBL2: IDPB T2,T3 ;Deposit the current byte
ILDB T2,T1 ;Get another byte
JUMPN T2,KILBL2 ;Loop until zero byte
IDPB T2,T3 ;and deposit it
KILBL4: PUSHJ P,.POP4T## ;Restore the temps
POPJ P, ;and return
;** here to type a asciz string without exceeding the page width
; (if possible).
TCARE: PUSHJ P,.PSH4T## ;Save the temps
MOVE T3,HPOS ;Get the current horizontal position
HLL T1,[POINT 7,0] ;Make a byte pointer
TCARE1: ILDB T2,T1 ;Get the first byte
CAIN T2," " ;Is this a <tab>
JRST [ADDI T3,10 ;Yes, add to get to the next tab stop
TRZ T3,7 ;and get rid of the remainder
JRST .+2 ] ;Continue with corrected HPOS
AOS T3 ;Increment the string length
JUMPN T2,TCARE1 ;Loop till the end of the string
SOS T3 ;Correct for the Off By One error
MOVEM T3,HPOS ;Save our horizontal position
CAMLE T3,CARWID ;Is this less than the width?
PUSHJ P,CRLFH ;Reset HPOS and do a CRLF
TCARE3: PUSHJ P,.POP4T## ;and restore the temps
PJRST .TSTRG## ;Type the string and return
SUBTTL DECnet processing loop
;ROUTINE to do the DECnet part of the program
DECNET: SKIPE FTDEC ;Is there DECnet software??
SKIPN DECNWD ;Did they say /NODECNET??
POPJ P, ;Yes, just return
SKIPG DECNWD ;Did we get /DECNET?
SKIPG ANF10W ;Did we get /ANF10?
CAIA ;Wrong sense
POPJ P, ;Don't output the DECnet list
SKIPN FTDEC ;DECnet support in monitor?
POPJ P, ;No, just return
;Set up to get the list of all DECnet nodes
MOVE T5,[.DNLNN,,DNMAX] ;Argument for DNET. list node function
SKIPLE URCHWD ;Check the unreachable switch
TXOA T5,DN.FLK ;List of known nodes
TXO T5,DN.FLR ;List of active (reachable) nodes
MOVEM T5,DNLST ;Save the function code
MOVEI T5,DNLST ;Arg block for DNET.
DNET. T5, ;Get a list of node names
PUSHJ P,DNETER ;Error, Check it out
MOVE T3,.DNCNT(T5) ;Get the count of nodes
MOVEM T3,DNCNT ;Save it for later
MOVNS T3 ;Make an AOBJN pointer
HRLS T3 ;-count in LH
HRRI T3,2(T5) ;Point at the first node name
MOVEM T3,DNLOOP ;Save it for later reference
MOVE T1,SORTWD ;Get the sort status
JUMPL T1,DECNE1 ;No /SORT switch?
CAIE T1,SRT.DF ;Default sort?
CAIN T1,SRT.NA ;/SORT:NAME?
DECNE1: PUSHJ P,DNSRT ;Yes, sort the DECnet nodes by name
;Continued on next page
;Continued from previous page
;Get the local node name
MOVEI T5,DNBLK ;Point to the DNET. arg block
MOVE T2,[DN.FLE+<.DNLNN,,3>];Get the local node name
MOVEM T2,.DNFFL(T5) ;Save the function
DNET. T5, ;Get the local node name
PUSHJ P,DNETER ;Error, Check it out
MOVE T1,.DNCNT+1(T5) ;Get the local node name
MOVEM T1,DNLOC ;Save it
MOVEI T5,DNINF ;Pointer to DNET. argument block
MOVE T2,[.DNNDI,,DNINFL] ;Get local node's network address
MOVEM T2,.DNFFL(T5) ;...
MOVEM T1,.DNNAM(T5) ;Store local node's name
DNET. T5, ;Get network address of local node
PUSHJ P,DNETER ;Error, Check it out
MOVE T1,.DNADR(T5) ;Get local node's network address
MOVEM T1,DNADR ;Save for later
PUSHJ P,DECWLD ;Handle wild cards
SKIPN DNMCNT ;Any spec's match?
POPJ P, ;No, don't bother any more
PUSHJ P,DECHEA ;Print the header line if needed
PUSHJ P,CRLFH ;Lead off with a CRLF
SKIPE FTEND ;DECnet running as ethernet endnode?
POPJ P, ;Yes, all done, return
;Continued on next page
;Continued from previous page
DECLST: SKIPLE TOPWD ;Did they say /TOPOLOGY??
JRST DECTOP ;Yes, do the topology display
HLLZ L1,DNLOOP ;Get the DECnet AOBJN pointer
DECLS1: MOVSI T3,DN.LST ;Get the list-it bit
TDNN T3,DNBIT+2(L1) ;Do we list it?
JRST DECLS3 ;No, try the next one
;Do we just want nodes with links?
SKIPG LINKWD ;/LINKS??
JRST DECLS2 ;no, skip the check
PUSHJ P,DECINF ;Build a node info block
LDB T1,[POINTR .DNLLI(T5),DN.LNK] ;Get active links
JUMPE T1,DECLS3 ;Zero means ignore this node
DECLS2: MOVE T2,HPOS ;Get our horizontal position
ADDI T2,10 ;INCREMENT by on tab to get here
TRZ T2,7 ;Get rid of the remainder
MOVEM T2,HPOS ;Save it for later
CAMLE T2,CARWID ;Enough space left?
JRST [PUSHJ P,CRLFH ;Do a <CR><LF>
MOVEI T1,10 ;Get new HPOS
MOVEM T1,HPOS ;Save the new position
JRST .+1] ;Continue
MOVE T1,DNLST+2(L1) ;Get the sixbit node name
TLNN T1,770000 ;Make sure we have a top character
JRST [PUSH P,T1 ;[32] Remember node number
MOVEI T1,"(" ;[32] Blank, type number
PUSHJ P,.TCHAR## ;
LDB T1,[POINTR(0(P),DN%ARE)] ;[32] Area number
JUMPE T1,DECL2B ;[32] Skip if none
PUSHJ P,.TDECW## ;[32] Print area number
MOVEI T1,"." ;
PUSHJ P,.TCHAR## ;
DECL2B: POP P,T1 ;[32] Node number back
ANDI T1,DN%NOD ;[32] Except for area
PUSHJ P,.TDECW## ;
MOVEI T1,")" ;
PUSHJ P,.TCHAR## ;
JRST DECL2A] ;[32] Resume with tab
PUSHJ P,.TSIXN## ;Type the name
DECL2A: PUSHJ P,.TTABC## ;Print a <tab>
DECLS3: AOBJN L1,DECLS1 ;Loop
PJRST CRLFH ;Finish with a CRLF
;Get info about DECnet nodes
DECINF: MOVEI T5,DNINF ;Point to the DNET. UUO block
MOVE T1,[.DNNDI,,DNINFL] ;Function,,block size
MOVEM T1,.DNFFL(T5) ;Save it
MOVE T1,DNLST+2(L1) ;Get the sixbit node name
MOVEM T1,.DNNAM(T5) ;Save it
DNET. T5, ;Get the info
PUSHJ P,DNETER ;DNET.error, check it out
POPJ P, ;Return
;Routine to print the DECnet header if there are any nodes to print and
;the user has not specified /NOHEADERS
DECHEA: SKIPN HEADWD ;Did they say no headers?
POPJ P, ;Yes, just return
MOVEI T1,[ASCIZ \[DECnet network: local node \] ;Print the leader
PUSHJ P,.TSTRG## ;...
MOVE T1,DNLOC ;Get the local node name
PUSHJ P,.TSIXN## ;and type it too
MOVEI T1,[ASCIZ \, \] ;Local node name
PUSHJ P,.TSTRG## ;...
SKIPE FTEND ;DECnet running as ethernet endnode?
JRST [MOVEI T1,[ASCIZ \running as an ethernet endnode]\]
PJRST .TSTRG##] ;...
SKIPG T1,DNCNT ;Get the count of on-line nodes
JRST [MOVEI T1,[ASCIZ \no reachable nodes]\]
PJRST .TSTRG##] ;...
PUSHJ P,.TDECW## ;Type the number of nodes
MOVEI T1,[ASCIZ \ reachable\]
SKIPG URCHWD ;Just reachable?
PUSHJ P,.TSTRG## ;Yes, say so
MOVE T1,DNCNT ;Get the count back
CAIG T1,1 ;More than one
SKIPA T1,[[ASCIZ \ node\]] ;singular
MOVEI T1,[ASCIZ \ nodes\] ;plural
PUSHJ P,.TSTRG## ;...
LDB T1,[POINTR(DNADR,DN%ARE)] ;Get network area number
JUMPE T1,.TRBRK## ;Finish message if no area number
PUSH P,T1 ;Save area number a bit
MOVEI T1,[ASCIZ \ in area \] ;Add some explanation
PUSHJ P,.TSTRG## ;...
POP P,T1 ;Get back area number
PUSHJ P,.TDECW## ;Type area number
PJRST .TRBRK## ;Finish message and return
;DECTOP - print the "topology" of the DECnet network
DECTOP: MOVEI T1,[ASCIZ \Name Number Line Hops L.Links Delay
\]
SKIPE COSTWD ;Print the cost?
MOVEI T1,[ASCIZ \Name Number Line Cost Hops L.Links Delay
\]
PUSHJ P,.TSTRG## ;Type the header line
HLLZ L1,DNLOOP ;Get the DECnet AOBJN pointer
DECTO1: MOVSI T3,DN.LST ;Get the list-it bit
TDNN T3,DNBIT+2(L1) ;Do we list it?
JRST DECTO7 ;No, try the next one
PUSHJ P,DECINF ;Build a node information block
SKIPG LINKWD ;/LINKS??
JRST DECTO2 ;no, skip the check
LDB T1,[POINTR .DNLLI(T5),DN.LNK] ;Get active links
JUMPE T1,DECTO7 ;Zero means ignore this node
;Identify the node
DECTO2: MOVE T1,.DNNAM(T5) ;Get the node name
TLNN T1,770000 ;Make sure we have a node name
SETZ T1, ;Nope, don't type it out
PUSHJ P,.TSIXN## ;Type it
MOVEI T1,[ASCIZ \ (\] ;Tab over
PUSHJ P,.TSTRG## ;Type the string
MOVE T1,.DNADR(T5) ;Get the node number
TXNN T1,DN%ARE ;Is there an area number?
JRST DECTO3 ;No, continue
LDB T1,[POINTR(T1,DN%ARE)] ;Get area number
PUSHJ P,.TDECW## ;Type it
MOVEI T1,"." ;Add a seperator
PUSHJ P,.TCHAR## ;...
MOVE T1,.DNADR(T5) ;Get node number again
ANDX T1,DN%NOD ;Mask to just node within area
DECTO3: PUSHJ P,.TDECW## ;Type the node number
MOVEI T1,[ASCIZ \) \] ;Tab over
PUSHJ P,.TSTRG## ;Type the string
;Continued on next page
;Continued from previous page
;See if the node is reachable
LDB T1,[POINTR .DNRTR(T5),DN.RCH] ;Is the node reachable?
JUMPE T1,[MOVEI T1,[ASCIZ\Unreachable\]
PUSHJ P,.TSTRG## ;No, tell the user
JRST DECTO6] ;Continue with the next node
;Describe the connection to the node
MOVEI T1,.DNCKT(T5)
PUSHJ P,.TSTRG## ;If non-zero type the name
PUSHJ P,.TTABC## ;Tab over for fill
PUSHJ P,.TTABC## ;Tab over
;Check for the /COST switch setting
SKIPN COSTWD ;Print the cost?
JRST DECTO4
LDB T1,[POINTR .DNRTR(T5),DN.CST] ;Get the cost information
PUSHJ P,.TDECW## ;Print it
PUSHJ P,.TTABC## ;Tab over
DECTO4: LDB T1,[POINTR .DNRTR(T5),DN.HOP]
PUSHJ P,.TDECW## ;Print the number of hops
PUSHJ P,.TTABC## ;Tab over
;Tell about the logical links we have to the node
DECTO5: SKIPL .DNLLI(T5) ;Do we have valid information?
JRST DECTO6 ;No, finish the line
LDB T1,[POINTR .DNLLI(T5),DN.LNK] ;Get active links
PUSHJ P,.TDECW## ;Type it
PUSHJ P,.TTABC## ;Tab over
LDB T1,[POINTR .DNLLI(T5),DN.DLY] ;Get millisecond delay to node
PUSHJ P,.TDECW## ;Type it
DECTO6: PUSHJ P,.TCRLF## ;end line
DECTO7: AOBJN L1,DECTO1 ;Loop
POPJ P, ;Return
;Routine to select specific nodes to look at by dissecting the scan blocks
;L1 = AOBJN pointer to the list of DECnet node names in SIXBIT
DECWLD: SKIPN L1,SPCCNT ;Do we have any specs
JRST DECWL4 ;None, take the default
MOVNS L1 ;Get the negative count of specs
HRLZS L1 ;Make an AOBJN pointer
DECWL1: MOVE T3,SPCLST(L1) ;Get the name
SKIPN T4,WLDLST(L1) ;Is this a wild card entry?
SETZ T4, ;No, mask no names
ANDCAM T4,T3 ;Mask it
HLLZ L2,DNLOOP ;Get count of known nodes
DECWL2: MOVE T2,DNLST+2(L2) ;Get a node name
ANDCAM T4,T2 ;Mask it
CAME T2,T3 ;Match?
JRST DECWL3 ;No, Try the next one
AOS DNMCNT ;Count nodes that match
MOVSI T5,SP.DEC ;Yes, Flag it to be listed
IORM T5,SPCFLG(L1) ;Mark the match in the spec flags
MOVSI T5,DN.LST ;Flag node to be listed
IORM T5,DNBIT+2(L2) ;Mark the match in known node list
DECWL3: AOBJN L2,DECWL2 ;Loop over all known nodes
AOBJN L1,DECWL1 ;And all node specs
POPJ P, ;Return
;Here to set up for the default case
DECWL4: HLLZ T1,DNLOOP ;Get the number of nodes
MOVSI T2,DN.LST ;"LIST NODE" Flag
DECWL5: IORM T2,DNBIT+2(T1) ;Flag all nodes
AOBJN T1,DECWL5 ;Loop over all nodes
AOS DNMCNT ;Count a match
POPJ P, ;Return
SUBTTL DNSRT - SHELLsort the DECnet nodes
;DNSRT: T1=Number_of_nodes (N)
;DNSR1: T1=T1/2
; IF T1=0 then RETURN
; T2=1
;DNSR2: T3=T2
;DNSR4: IF node[T3] <= node[T3+T1] goto SORT3
; EXCH(node[T3],node[T3+T1])
; T3=T3-T1
; IF T3>=1 then goto SORT4
;DNSR3: T2=T2+1
; IF T2>N-T1 then goto SORT1
; goto sort2
DNSRT: HRRZ T1,DNCNT ;T1=Number_of_nodes
DNSR1: LSH T1,-1 ;T1=T1/2
JUMPE T1,CPOPJ ;IF T1=0 then RETURN
MOVEI T2,1 ;T2=1
DNSR2: HRRZ T3,T2 ;T3=T2
DNSR4: HRRZ T4,T3
ADDI T4,(T1) ;T4=T3+T1
MOVE T5,<DNLST+1>(T4) ;T5=node[T3+T1]
CAML T5,<DNLST+1>(T3) ;IF node[T3] <= node[T3+T1]
JRST DNSR3 ;then GOTO SORT3
EXCH T5,<DNLST+1>(T3)
MOVEM T5,<DNLST+1>(T4) ;exchange
SUBI T3,(T1) ;T3=T3-T1
JUMPG T3,DNSR4 ;IF T3>=1 GOTO SORT4
DNSR3: HRRZ T5,DNCNT ;delayed T2=T2+1
SUBI T5,1(T1) ;then comparison
CAILE T2,(T5) ;IF T2>N-T1 then
AOJA T2,DNSR1 ;GOTO SORT1
AOJA T2,DNSR2 ;ELSE GOTO SORT2
SUBTTL LAT processing routines
;Here to list info the LAT "network".
;
;As of this writing (18-Apr-85) the -10 doesn't support being itself a
;"LAT server", only a "LAT host", so we can only list servers since that
;is all we are listening for on the ethernet.
;
;Note also that since the LAT servers don't themselves broadcast their
;existence the -10 only knows about LAT servers that have in the past
;connected to the -10. As such, NETWORK can only type out a partial sum-
;mary of the LAT network.
LATSER: SKIPG LATNWD ;Want to see LATish info?
POPJ P, ;No, nothing to do here
PUSHJ P,LATHEA ;Type out a header if needed
POPJ P, ;Fatal LATOP. error
SKIPG P1,T1 ;Save number of known servers to be listed
POPJ P, ;None, just return now
MOVEI P2,DNLST ;Address of list of known servers
;Loop listing info for each known server
LATLP: MOVEI T1,5 ;Length
MOVEI T2,.LASAS ;And LATOP. function
DMOVEM T1,NODBLK+.LAACT;Set for LATOP. UUO
MOVEI T1,DNINFL ;Length
MOVEI T2,DNINF ;And address of aux buffer
DMOVEM T1,NODBLK+.LABCT;Set aux buffer for LATOP.
MOVSI T1,(POINT 7,) ;7-bit byte pointer
HRRI T1,1(P2) ;Address of server name string (short block)
MOVEM T1,NODBLK+.LAQUA;Set for LATOP.
MOVEI T1,NODBLK ;LATOP. UUO arg pointer to
LATOP. T1, ;Read info about LAT server
JRST [PUSHJ P,LATOPE ;LATOP. UUO error
JRST LATLP8] ;Advance to next server
PUSHJ P,LATWLD ;See if want to see this name
JRST LATLP8 ;Skip this LAT server
AOS MATCH ;Matched a LAT server
MOVEI T1,DNINF+10 ;Address of server name
PUSHJ P,.TSTRG## ;Type server name
MOVEI T1,[ASCIZ\ (\] ;Separating text
PUSHJ P,.TSTRG## ;Type that out too
MOVEI T1,DNINF+14 ;Address of server "location" string
PUSHJ P,.TSTRG## ;Type that out
MOVEI T1,")" ;Close off text
PUSHJ P,.TCHAR## ;Type it out
LATLP7: PUSHJ P,.TCRLF## ;End this listing line
LATLP8: ADDI P2,7 ;Advance to next "short form" server block
SOJG P1,LATLP ;Loop for all LAT servers
POPJ P, ;Return successfully
;Type out the LAT header info
LATHEA: MOVEI T1,4 ;Length of UUO arg block
MOVEI T2,.LASCH ;LAT function "Show Characteristics"
DMOVEM T1,NODBLK ;Stash for LATOP.
MOVEI T1,2*MAXNOD ;Size of aux area
MOVEI T2,NODBIN ;Address of aux area
DMOVEM T1,NODBLK+.LABCT;Set pointer to returned-data buffer
MOVEI T1,NODBLK ;LATOP. arg pointer to
LATOP. T1, ;Read general LAT host info
JRST [CAIN T1,NODBLK ;UUO unimplemented?
JRST NOLAT ;Yes, tell user no LAT here
JRST LATOPE] ;No, LATOP. UUO error
MOVEI T1,5 ;Length of UUO arg block
MOVEI T2,.LASAS ;LAT function "Show Servers"
DMOVEM T1,NODBLK+.LAACT;Stash for LATOP.
MOVEI T1,2*DNMAX ;Length of aux buffer
MOVEI T2,DNLST ;Address of aux buffer
DMOVEM T1,NODBLK+.LABCT;Set pointer for returned-info
SETZM NODBLK+.LAQUA ;Want short-form blocks
MOVEI T1,NODBLK ;LATOP. arg pointer to
LATOP. T1, ;Read list of known LAT servers
JRST LATOPE ;LATOP. UUO erorr
PUSHJ P,.TCRLF## ;Space down a line for neatness
SKIPN HEADWD ;User want a header?
JRST .POPJ1## ;No, all done here
MOVEI T1,[ASCIZ\[LAT service: local LAT host \]
PUSHJ P,.TSTRG## ;Start up the LAT header
MOVEI T1,NODBIN+24 ;Our LAT host name
PUSHJ P,.TSTRG## ;Type out host name string
MOVEI T1,[ASCIZ\; \] ;Separating text
PUSHJ P,.TSTRG## ;'Twixt name and number
HRRZ T1,NODBIN+00 ;"N-ALLOC-CIRCUITS"
PUSH P,T1 ;Hang onto it for a moment
JUMPE T1,[MOVEI T1,[ASCIZ\No\] ;If "0" then
PUSHJ P,.TSTRG## ;Then type "No known..."
JRST .+2] ;Blunder onwards
PUSHJ P,.TDECW## ;Type number of known servers
MOVE T2,0(P) ;Restore number of known servers
MOVEI T1,[ASCIZ\ known server]\] ;Cap off the LAT header text
CAIE T2,1 ;Singular or plural?
MOVEI T1,[ASCIZ\ known servers]\] ;Cap off the LAT header text
PUSHJ P,.TSTRG## ;With the closing bracket
PUSHJ P,.TCRLF## ;A <CR><LF>
POP P,T1 ;Return number of servers in T1
JRST .POPJ1## ;Now type out the known servers
;Wildcard selection of LAT servers
;
;Note that only the first six characters are checked!
LATWLD: SKIPG SPCCNT ;Did user type any specs?
JRST .POPJ1## ;No, then match everything
HRRZ T1,DNINF+6 ;Length of LAT server name string
MOVSI T2,(POINT 7,) ;Prototype byte pointer
HRRI T2,DNINF+10 ;Address of LAT server name string
PUSHJ P,LATSIX ;Get SIXBIT name in T1
POPJ P, ;Failed?
MOVN T4,SPCCNT ;Count of specs to check
HRLZ T4,T4 ;AOBJN pointer to SPCLST/WLDLST
;Loop checking wildcarded node specs
LATWL2: MOVE T3,SPCLST(T4) ;Next user-typed name
XOR T3,T1 ;Contrast with proposed server name
AND T3,WLDLST(T4) ;(ignoring any junk that should be ignored)
JUMPN T3,LATWL5 ;This spec loses!
JRST .POPJ1## ;No other constraints, this spec wins
LATWL5: AOBJN T4,LATWL2 ;Loop back and check the rest of the specs
POPJ P, ;Reject this LAT server
;Make SIXBIT name out of ASCIZ string
;
;Call with T1/count (future) and T2/pointer
LATSIX: PUSH P,[0] ;The prototype name
MOVSI T3,(POINT 6,0(P)) ;SIXBIT name builder
JRST LATSI4 ;Enter loop
LATSI2: ILDB T4,T2 ;Next name string character
SUBI T4,"0"-'0' ;SIXBITIFY the character
JUMPLE T4,LATSI5 ;Quit on space, null, or control characters
TLNE T3,770000 ;Filled up one word yet?
IDPB T4,T3 ;Nope, accumulate this character
LATSI4: SOJA T1,LATSI2 ;Decrement the count
LATSI5: POP P,T1 ;Position name
JRST .POPJ1## ;Successful return
;LAT errors
NOLAT:: PUSHJ P,.PSH4T## ;Save the temps
MOVE T1,['NWKNLS'] ;The prefix
MOVE T2,["?",,[ASCIZ \No LAT service available
\]]
PUSHJ P,.ERMSG## ;Print the error message
PUSHJ P,.POP4T## ;Restore the temps in case of dump
POPJ P, ;Propagate error return
;LATOP. UUO error
LATOPE: PUSHJ P,.PSH4T## ;Save the "T" acs
PUSH P,T1 ;Save the error code
MOVE T1,['NWKLUE'] ;LAT UUO Error prefix
MOVE T2,["?",,[ASCIZ\LATOP. UUO error (\]]
PUSHJ P,.ERMSG## ;Start up the error message
MOVE T1,0(P) ;The offending error code
PUSHJ P,.TOCTW## ;List the error code in octal
POP P,T2 ;Retrieve the error code
CAIG T2,LATERL ;Is the error code in range?
CAIGE T2,0 ;...?
SETO T2, ;No? make it zero!
MOVE T1,LATERT(T2) ;Get the error string
PUSHJ P,.TSTRG## ;and type it
PUSHJ P,.TCRLF## ;Cap off the error text
PUSHJ P,.POP4T## ;Restore the temps in case of dump
POPJ P, ;Propagate error
DEFINE X(TXT),<[ASCIZ\) TXT\]>
X Unknown LATOP UUO error
LATERT: X Insufficient buffer size
X Invalid parameter value
X LAT is not operational
X Invalid/Unknown LAT server name
X Invalid LAT parameter
X Invalid LAT parameter value
X Invalid/Unknown LAT service name
X Insufficient resources
X LAT host name already set
X Invalid LATOP. function
X Argument list too small
X Address check
X Insufficient privileges
LATERL==.-LATERT
SUBTTL Routines to interface to Scan
;** Routine to finish I/O and exit
;
FINISH: PUSHJ P,FLUSH ;Finish output
JRST .MONRT## ;And exit gracefully
;** Routine to flush output and go into character mode
;Clobbers T1
FLUSH: MOVSI T1,MO.CHR ;Get the output control bit
ANDCAM T1,OUTCON ;And clear it
SETZ T1, ;Send a null character to output the
PJRST OUTC ;current buffer and return
;** Routine to buffer tty output
; Called by SCAN and placed in character mode for prompt
; The character is in T1
OUTC: IDPB T1,BUFFP ;Deposit character in the buffer
SKIPL OUTCON ;If bit 0 is set then line mode
JRST OUTLST ;If char mode output the buffer
SOSGE NCHAR ;Decrement the character count
JRST OUTLST ;Output it to the TTY
POPJ P, ;Return
OUTLST: SETZ T1, ;Zero next character
IDPB T1,BUFFP ;To make the string ASCIZ
OUTSTR BUFFER ;Output the buffer
MOVE T1,[POINT 7,BUFFER] ;Reset the buffer pointer
MOVEM T1,BUFFP ;...
MOVEI T1,BUFSIZ ;Reset the character count
MOVEM T1,NCHAR ;...
POPJ P, ;Return to SCAN
;** Here from Scan to allocate space for Scan blocks as node or file specs
; IALLO increments number of specs on the input side of the "="
; OALLO increments the number of specs on the output side of the "="
;
; Scan will try to BLT the info into the right spot
IALLO: AOSA INFIL ;Add one to the number of input specs
OALLO: AOS OUTFIL ;Add one to the number of output specs
MOVE T1,NUMBLK ;Number of blocks allocated so far
CAILE T1,MAXSPC ;More than we allow?
JRST ALOCE1 ;Tell user we have an allocation error
IMULI T1,BLKSIZ ;Get the amount of core this takes
ADDI T1,BLKSIZ+SBLKS ;And add one more block & address
CAMG T1,.JBREL ;Do we already have enough core?
JRST OALLO1 ;Yes, We already have enough
PUSH P,T1 ;No, Save T1 around CORE UUO
CAILE T1,MAXCOR ;Are we still smaller than max allowed
JRST ALOCER ;No, tell user
ADDI T1,BLKSIZ ;Add block size
ANDI T1,777000 ;Mask to pages
ADDI T1,1000 ;And add one
CORE T1, ;...
JRST ALOCER ;Allocation error, tell user
PUSHJ P,.TCRLF## ;Do a <CR><LF>
MOVEI T1,"[" ;Type a <left bracket>
PUSHJ P,.TCHAR## ;...
MOVE T1,.JBREL ;Get how much we got now
ANDI T1,777000 ;Mask to pages
ADDI T1,2000 ;And add one
PUSHJ P,.TCORW## ;Type how much core we are using
MOVEI T1,[ASCIZ \ core]\] ;Tell him it's core
PUSHJ P,.TSTRG## ;...
POP P,T1 ;Ok, Restore T1
OALLO1: MOVEI T2,BLKSIZ ;a pointer and a block size
SUB T1,T2 ;Backup one block length
AOS NUMBLK ;add one to the count of
;Scan blocks allocated
POPJ P, ;Return to Scan
;** Here to initalize Scan with .ISCAN
; called from the startup code
ISCN: MOVE T2,[ISLEN,,ISBLK] ;.ISCAN argument block if logged in
PUSHJ P,.ISLGI## ;Are we logged in?
MOVE T2,[ISLEN,,ISBLO] ;.ISCAN argument block if logged out
MOVE T1,T2 ;Put the argument into T2
PJRST .ISCAN## ;Call .ISCAN
;** Here to do the Traditional Scanner .TSCAN
; called from the startup code
TSCN: MOVE T1,[TSLEN,,TSBLK] ;.TSCAN arg block for DECnet and ANF10
PUSHJ P,.TSCAN## ;Scan a line of input
MOVE T1,[OSLEN,,OSBLK] ;.OSCAN argument block
PUSHJ P,.OSCAN## ;Check SWITCH.INI[,]
MOVSI T1,MO.CHR ;Get the output control bit
IORM T1,OUTCON ;Set it for buffered mode
SKIPL T1,WIDWD ;Did the user type /WIDTH?
MOVEM T1,CARWID ;Yes, save his value for it
;Select default /ANF, /DECNET, /LAT action
SKIPGE ANF10W ;/ANF switch of some flavor?
SKIPL DECNWD ;or /DECNET switch of some type?
JRST TSCN2 ;Yes, no defaulting needed
SKIPGE LATNWD ;/LAT switch of some flavor?
JRST TSCN5 ;No, default to /ANF/DEC/NOLAT
;Here when user typed at least one of /ANF, /DECNET, or /LAT
TSCN2: SKIPGE ANF10W ;/[NO]ANF explicitly selected?
SETZM ANF10W ;No, deselect ANF
SKIPGE DECNWD ;/[NO]DECNET explicitly selected?
SETZM DECNWD ;No, deselect DECnet
SKIPGE LATNWD ;/[NO]LAT explicitly selected?
TSCN5: SETZM LATNWD ;No, deselect LAT
POPJ P, ;Return
SUBTTL Dissect the Scan blocks
;** Routine to get a node-spec out of a Scan block
;
; If the spec is "wild" do a search of node names for winners
; If not "wild" use the NODE. UUO to figure out who we want
; Then (in either case) insert the proper entries into the
; selection table
; Finally jump to the main loop to tell the user about what we already know
DISECT: SETZB T4,SPCCNT ;Zero both counts
SKIPN T3,NUMBLK ;Any spec's typed?
JRST DISEC3 ;No, just return
MOVN T3,NUMBLK ;Number of Scan Blocks
HRL T3,T3 ;Make an AOBJN pointer
HRRI T3,SBLKS ;Point to the first Scan block
DISEC1: PUSH P,[DISEC2] ;Return address for error routines
MOVE T1,.FXMOD(T3) ;Get the modifier word
TDNN T1,[FX.NDV] ;Did he type a device?
JRST SPECER ;Yes, tell him
TDNN T1,[FX.NUL] ;Did he type an extension?
JRST SPECER ;Yes, tell him
TDNE T1,[FX.DIR] ;Did he type a P,PN?
JRST SPECER ;Yes, tell him
MOVE T2,.FXNAM(T3) ;Is there a name?
MOVEM T2,SPCLST(T4) ;Save the node spec
SETCM T1,.FXNMM(T3) ;And out the mask
MOVEM T1,WLDLST(T4) ;Save the wild card mask
AOS T4 ;Increment the count of node specs
POP P,(P) ;Don't do the error return
DISEC2: ADDI T3,BLKSIZ-1 ;Add size of the block to the pointer
AOBJN T3,DISEC1 ;Loop until all the blocks are checked
MOVEM T4,SPCCNT ;Save the count of spec's
SKIPE SPCLST ;If there are any spec's then
POPJ P, ;Just return
DISEC3: MOVEI T1,1 ;Our default (/BRIEF)
SKIPGE BRIEWD ;Did he specify /BRIEF or /NOBRIEF?
MOVEM T1,BRIEWD ;No, assume /BRIEF on default
POPJ P, ;Return when all blocks are checked
SUBTTL Error message handling routines
;** Here when we run out of Scan block storage.
; tell the user once and continue, ignoring any more specs
ALOCER: SKIPE SBMCNT ;Sure to only tell him once!
JRST ALOCE2 ;Don't count errors unless we print them
MOVE T1,NFECNT ;How many non-fatal errors did we have?
CAILE T1,MAXNFE ;Did we have too many?
JRST NFEERR ;Yes, tell the user and die
AOS NFECNT ;No, count the error
POP P,T1 ;Restore T1
ALOCE1: PUSHJ P,.PSH4T## ;Save the temps
MOVE T1,['NWKSBE'] ;Yes, tell the user
MOVE T2,["%",,[ASCIZ \Scan Blocks used up. Node spec ignored
\]]
PUSHJ P,.ERMSG## ;Yes, print the error
PUSHJ P,.POP4T## ;Restore the temps
ALOCE2: MOVEI T2,1 ;Dummy up a scan block
MOVE T1,NUMBLK ;Number of blocks allocated so far
IMULI T1,BLKSIZ ;Get the amount of core this takes
ADDI T1,BLKSIZ+SBLKS ;And add one more block & address
AOS SBMCNT ;Keep track of how many times here
POPJ P, ;Return
;Copy of the interrupt control block to be BLTed on initalization
INT: XWD 4,CONC ;4 words long,,interrupt handler
XWD 0,2 ;No message control,, 2 ^C
BLOCK 1 ;User PC stored here when interrupted
BLOCK 1 ;Iinterrupt type in LH
IBLKLN==.-INT ;Length of interrupt block
;** Pointers to asciz strings used by the PCONF routine to
; print the device names in the configuration of a node. They must
; be in this order since they are indexed by their NCL device types.
CTAB: POINT 7,[ASCIZ \MCR[\]
POINT 7,[ASCIZ \TTY[\]
POINT 7,[ASCIZ \CDR[\]
POINT 7,[ASCIZ \LPT[\]
POINT 7,[ASCIZ \PTR[\]
POINT 7,[ASCIZ \PTP[\]
POINT 7,[ASCIZ \PLT[\]
POINT 7,[ASCIZ \MTA[\]
POINT 7,[ASCIZ \DTA[\]
POINT 7,[ASCIZ \TSK[\]
POINT 7,[ASCIZ \RDA[\]
POINT 7,[ASCIZ \CDP[\]
POINT 7,[ASCIZ \DDP[\]
SUBTTL Scan macro calls and definitions
;** Switch definitions
DEFINE SWTCHS<
SN *ANF10,ANF10W,FS.NFS ;Control ANF10 portion of program
SN BRIEF,BRIEWD,FS.NFS ;Control listing of devices
SN CDP,CDPWD,FS.NFS ;Only nodes with CDP's
SN CDR,CDRWD,FS.NFS ;Only nodes with CDR's
SN COST,COSTWD,FS.NFS ;List the link cost with /TOPOLOGY
SN DDP,DDPWD,FS.NFS ;Only nodes with DDP's
SN *DECNET,DECNWD,FS.NFS ;Control DECnet portion of program
SN DTA,DTAWD,FS.NFS ;Only nodes with DTA's
SN ERROR,ERRWD,FS.NFS ;Control listing of errors
SN FAST,FASWD,FS.NFS ;For super short list of nodes
SN HEADER,HEADWD,FS.NFS ;Control listing of headers
SN HOSTES,MCRWD,FS.NFS ;Same as "MCR"
SN LAT,LATNWD,FS.NFS ;Control LAT portion of program
SN LINKS,LINKWD,FS.NFS ;Listing of DECnet nodes with links
SN LPT,LPTWD,FS.NFS ;Only nodes with LPT's
SN MCR,MCRWD,FS.NFS ;Only nodes with MCR's (can be a host)
SN MTA,MTAWD,FS.NFS ;Only nodes with MTA's
SN PLT,PLTWD,FS.NFS ;Only nodes with PLT's
SN PTP,PTPWD,FS.NFS ;Only nodes with PTP's
SN PTR,PTRWD,FS.NFS ;Only nodes with PTR's
SN RDA,RDAWD,FS.NFS ;Only nodes with RDA's
SN SILENC,SILWD,FS.NFS ;Control non-error output
SL *SORT,SORTWD,SRT,SRT.DF,FS.NFS ;To sort the node names
SN *TOPOLO,TOPWD,FS.NFS ;For the TOPOLOGY listing
SN TSK,TSKWD,FS.NFS ;Only nodes with TSK's
SN TTY,TTYWD,FS.NFS ;Only nodes with TTY's
SP TYPE,TYPWD,.SIXSW##,-1,FS.LRG!FS.NFS!FS.VRQ ;Node type
SN UNREACH,URCHWD,FS.NFS ;List all known DECnet nodes
SP WIDTH,WIDWD,.DECNW##,-1,FS.NFS!FS.LRG ;Output width
> ;END OF THE SWTCHS MACRO
DOSCAN (TOGLS) ;The DOSCAN macro generates the tables
;defined by the SWTCHS macro
KEYS SRT,<NAME,NONE,NUMBER>
SRT.DF==SRT.L+1
SRT.NA==SRTNAM
SRT.NO==SRTNON
SRT.NU==SRTNUM
SUBTTL Scan argument blocks
;** .ISCAN initalization block if logged out
ISBLO: IOWD 1,ISCANI ;Acceptable CCL commands table
XWD OFFSET,'NWK' ;Starting offset,,Tmp core name
XWD 0,OUTC ;Default I/O
XWD 0,0 ;Indirect file name (unknown)
XWD 0,0 ;Monitor return,, prompt routine
EXP FS.IFI ;Indirect files illegal if logged out
;** .ISCAN initalization block if logged in
ISBLK: IOWD 1,ISCANI ;Acceptable CCL commands table
XWD OFFSET,'NWK' ;Starting offset,,Tmp core name
XWD 0,OUTC ;Default I/O
XWD 0,0 ;Indirect file name (unknown)
XWD 0,0 ;Monitor return,, prompt routine
EXP 0 ;Reserved by Scan for the future
ISLEN==.-ISBLK ;.ISCAN block length
;** Table of CCL names for SCAN
ISCANI: SIXBIT/NETWOR/ ;Default CCL name
;** .OSCAN argument block
; The options file scanner (SWITCH.INI[,])
OSBLK: IOWD TOGLSL,TOGLSN ;SWTCHS' table length,,name table
XWD TOGLSD,TOGLSM ;Table of defaults,,processor address
XWD 0,TOGLSP ;Pointers for storing values
EXP -1 ;Help word, -1 for "HLP:NETWOR.HLP"
SIXBIT /NETWOR/ ;Options word...our name
OSLEN==.-OSBLK ;Length of .OSCAN block
TSBLK: IOWD TOGLSL,TOGLSN ;SWTCHS' table length,,name table
XWD TOGLSD,TOGLSM ;Table of defaults,,processor address
XWD 0,TOGLSP ;Pointers for storing values
EXP -1 ;Use our name for help
XWD 0,0 ;Default to clear answers and file specs
XWD IALLO,OALLO ;Scan block allocation routines
XWD 0,0 ;Default for sticky defaults
XWD 0,1B18!1B19 ;Scan control flags
;1B18=More than 1 input spec OK
;1B19=Global switches can be anywhere
XWD 0,0 ;Let Scan store the values
TSLEN==.-TSBLK ;.TSCAN block length
;Here on a GETTAB error
GTABER: PUSHJ P,.PSH4T## ;Save the temps
MOVE T1,['NWKGUE'] ;The prefix
MOVE T2,["?",,[ASCIZ \GETTAB UUO error at PC \]]
PUSHJ P,.ERMSG## ;Print the error message
HRRZ T1,-4(P) ;Get the PC
SUBI T1,2 ;Backup to the UUO
PUSHJ P,.TOCTW## ;Type the address of the error
PUSHJ P,.POP4T## ;Restore the temps in case of dump
JRST FINISH ;and die
;Here with no network software loaded
NNSERR: PUSHJ P,.PSH4T## ;Save the temps
MOVE T1,['NWKNNS'] ;The prefix
MOVE T2,["?",,[ASCIZ \No networks are available
\]]
PUSHJ P,.ERMSG## ;Print the error message
PUSHJ P,.POP4T## ;Restore the temps in case of dump
JRST FINISH ;and die
NOANF: MOVE T1,['NWKNA1'] ;The prefix
MOVE T2,["?",,[ASCIZ \No ANF10 software installed\]]
PUSHJ P,.ERMSG## ;Print the error message
PUSHJ P,.POP4T## ;Restore in case of dump
JRST FINISH ;and die
OLDMON: MOVE T1,['NWKMTO'] ;The prefix
MOVE T2,["?",,[ASCIZ \Monitor too old. Must be 7.00 or later\]]
PUSHJ P,.ERMSG## ;Print the error message
PUSHJ P,.POP4T## ;Restore in case of dump
JRST FINISH ;and die
;Here on a DNET. UUO error
;DNET. errors:
DNERMS: [ASCIZ \DNUNE% Unknown DNET error\]
[ASCIZ \DNADE% Address error\]
[ASCIZ \DNWNA% Wrong number of arguments\]
[ASCIZ \DNIDN% Illegal job number\]
[ASCIZ \DNFNE% Illegal function number\]
[ASCIZ \DNILF% Illegal flag combination\]
[ASCIZ \DNNSN% No such node name\]
[ASCIZ \DNNSC% No such channel\]
DNERML=.-DNERMS ;Size of error message table
DNETER: PUSHJ P,.PSH4T## ;Save the temps
MOVE T1,['NWKDUE'] ;The prefix
MOVE T2,["?",,[ASCIZ \DNET. UUO error \]]
PUSHJ P,.ERMSG## ;Print the error message
PUSH P,T5 ;Save the error code
CAIG T5,DNERML ;Is the error code in range?
CAIGE T5,0 ;...?
SETZ T5, ;No? make it zero!
MOVE T1,DNERMS(T5) ;Get the error string
PUSHJ P,.TSTRG## ;and type it
POP P,T5 ;Restore the error code
MOVEI T1,[ASCIZ \ at PC \] ;End of string
PUSHJ P,.TSTRG## ;Type it
HRRZ T1,-4(P) ;Get the PC
SUBI T1,2 ;Backup to the UUO
PUSHJ P,.TOCTW## ;Type the address of the error
PUSHJ P,.POP4T## ;Restore the temps in case of dump
JRST FINISH ;and die
;Here on a NODE. UUO error
;Error codes
NODERM: [ASCIZ \NDUKE% Undefined error\]
[ASCIZ \NDIAL% Illegal argument list\]
[ASCIZ \NDINN% Illegal node name/number\]
[ASCIZ \NDPRV% Caller not privileged\]
[ASCIZ \NDNNA% Node not available\]
[ASCIZ \NDNLC% Job not locked in core\]
[ASCIZ \NDTOE% Time out error\]
[ASCIZ \NDRNZ% Reserved word non-zero\]
[ASCIZ \NDNND% I/O channel not open to or not network device\]
[ASCIZ \NDIOE% I/O Error occurred, LH is getsts info\]
[ASCIZ \NDNFC% No free core\]
[ASCIZ \NDIAJ% In use by another job\]
[ASCIZ \NDNMA% No message available\]
[ASCIZ \NDTNA% Terminal not available\]
[ASCIZ \NDNLT% Not a legal terminal\]
[ASCIZ \NDISF% Illegal sub function\]
[ASCIZ \NDRBS% Receive buffer too small\]
[ASCIZ \NDNUG% No ungreeted nodes\]
NODERL=.-NODERM
NODERR: PUSHJ P,.PSH4T## ;Save the temps
MOVE T4,[%FTPER] ;Get the feature test word
GETTAB T4, ;...
PUSHJ P,GTABER ;GETTAB error? tell user and die
TRNN T4,F%NET&777777 ;Do we have network software?
JRST NOANF ;No, tell the user
MOVE T4,[%CNVER] ;Is the monitor 7.00 or later?
GETTAB T4, ;...
PUSHJ P,GTABER ;GETTAB error? tell user and die
LSH T4,-6 ;Right justify monitor version
ANDI T4,777 ;and mask out other stuff
CAIGE T4,700 ;7.00 or later?
JRST OLDMON ;No, tell user and die
PUSH P,T1 ;Save the error code
MOVE T1,['NWKNUE'] ;Yes, the prefix
MOVE T2,["?",,[ASCIZ \NODE UUO error \]]
PUSHJ P,.ERMSG## ;Print the error message
POP P,T1 ;Restore the error code
CAIG T1,NODERL ;Is the error code in range?
CAIGE T1,0 ;...?
SETZ T1, ;No? make it zero!
MOVE T1,NODERM(T1) ;Get the error string
PUSHJ P,.TSTRG## ;and type it
MOVEI T1,[ASCIZ \ at PC \] ;End of string
PUSHJ P,.TSTRG## ;Type it
HRRZ T1,-4(P) ;Get the PC
SUBI T1,2 ;Backup to the UUO
PUSHJ P,.TOCTW## ;Type the address of the error
PUSHJ P,.POP4T## ;Restore the temps in case of dump
JRST FINISH ;and die
;Loop through all the specs looking for error bits
;in the SPCFLG vector
ERRSCN: MOVE T1,NFECNT ;How many non-fatal errors did we have?
CAILE T1,MAXNFE ;Did we have too many?
JRST NFEERR ;Yes, tell the user and die
AOS NFECNT ;No, count the error
MOVE T1,ANF10W ;Get /ANF
IOR T1,DECNWD ;And /DECNET
IOR T1,LATNWD ;And /LAT
JUMPE T1,NONET ;If /NO<everything> then complain
SKIPN L1,SPCCNT ;Any Spec's?
POPJ P, ;No, just return
MOVNS L1 ;Get the count of specs
HRLZS L1 ;Make a AOBJN pointer
SETZ T4, ;Clear our accumulator
ERRSC1: MOVE T1,SPCFLG(L1) ;Get the error mask
TLNN T1,SP.DEC!SP.ANF ;Did we find this node?
JRST [PUSHJ P,NONOD ;No, check it out
AOS T4 ;Count loosers
JRST ERRSC2 ] ;Carry on...
TLNE T1,SP.DEC ;DECnet node?
AOS MATCH ;Yes, count the match
ERRSC2: AOBJN L1,ERRSC1 ;Loop over all specs
SKIPE MATCH ;Any WINNERS?
POPJ P, ;Yes, See if we printed it
SKIPN T4 ;No, Any LOSERS?
PUSHJ P,NOMAT ;Yes, Tell user
POPJ P, ;Done, return to the main loop
;** Here when no node can meet the constraints set by the device
; switches set by the user
; Only prints if no other message has been typed
; uses T1-T4
NOMAT: MOVE T1,['NWKNNM'] ;The prefix
MOVE T2,["%",,[ASCIZ \No Nodes meet constraints
\]]
SETZB T3,T4 ;Zero these for Scan
PJRST .ERMSG## ;Print the error message
;and return
;** Here when the user has both /NOANF and /NODECNET selected
NONET: SKIPN ERRWD ;Do we want to print no-node errors?
POPJ P, ;No, just return
MOVE T1,['NWKNNS'] ;Get the prefix characters
PUSHJ P,ERMSP ;Go to our error message processor
POPJ P, ;Prefix only...
MOVE T1,[POINT 7,[ASCIZ \No network type selected.\]]
PUSHJ P,.TSTRG## ;rest of the message
; MOVEI T1,[ASCIZ\ ANF10\] ;ANF10 string
; SKIPE FTANF ;If we have ANF10
; PUSHJ P,.TSTRG## ;Tell the user
; MOVEI T1,[ASCIZ\ and\] ;If we have both ANF10 and DECnet
; SKIPE FTANF ;...
; SKIPN FTDEC ;...
; CAIA ;Wrong sense
; PUSHJ P,.TSTRG## ;Tell the user
; MOVEI T1,[ASCIZ\ DECnet\] ;DECnet string
; SKIPE FTDEC ;If we have DECnet
; PUSHJ P,.TSTRG## ;Tell the user
; MOVEI T1,"." ;PUNCUATE my mother always told me!
; PUSHJ P,.TCHAR## ;so I did.
PUSHJ P,.TCRLF## ;Finish out line
POPJ P, ;Finish up error scan
;** Here when we have to tell the user about a no-match situation.
NONOD: SKIPN ERRWD ;Do we want to print no-node errors?
POPJ P, ;No, just return
AOS MATCH ;Printed an error, increment match count
MOVE T1,['NWKNNN'] ;Get the prefix characters
PUSHJ P,ERMSP ;Go to our error message processor
POPJ P, ;Prefix only...
MOVE T1,[POINT 7,[ASCIZ \Node \]] ;If here, print the
PUSHJ P,.TSTRG## ;rest of the message
MOVE T1,SPCLST(L1) ;Put the node name into T1 for Scan
PUSHJ P,.TSIXN## ;and print it
MOVE T1,[POINT 7,[ASCIZ \ not in Network
\]]
PJRST .TSTRG## ;and the rest of the message
;** Here to handle too many non-fatal errors
; this is determined by MAXNFE in NDATA
NFEERR: MOVE T1,['NWKTME'] ;Too many non-fatal errors
MOVE T2,["?",,[ASCIZ \Too many errors
\]]
SETZB T3,T4 ;Clear for Scan
PUSHJ P,.ERMSG## ;Tell the user the bad news
JRST FINISH ;and then just die
;** Here to print standard error message prefixes
; Modified version of Scan's .ERMSG routine to allow us to put
; extra things in the line like a node spec or illegal parts of a
; node spec...
;
; T1 = The message prefix
; -1(P) = The address of the extra print routine
; uses T2-4
ERMSP: PUSH P,T1 ;Save the prefix
MOVE T1,NFECNT ;How many non-fatal errors did we have?
CAILE T1,MAXNFE ;Did we have too many?
JRST NFEERR ;Yes, tell the user and die
AOS NFECNT ;No, count the error
SKIPE HPOS ;If in middle of a line
PUSHJ P,CRLFH ;Then position to start of new line
MOVEI T1,"%" ;Get the lead character (never called if fatal)
PUSHJ P,.TCHAR## ;Issue the lead character
PUSHJ P,.VERBO## ;Get /MESSAGE setting
MOVE T4,T1 ;and copy it to a safer place
POP P,T1 ;Get the prefix back
TXNE T4,JWW.PR ;See if /VERBOS:PREFIX
PUSHJ P,.TSIXN## ;Yes, issue the prefix
PUSHJ P,.TSPAC## ;Space to the text area
TXNE T4,JWW.FL ;See if /MESSAGE:FIRST
AOS (P) ;Yes, Skip return to print the rest
POPJ P, ;and return to there
;** Here to tell the user he has entered a bad node spec.
; This happens when we get a PPN, device, or extension in a node spec
; We will tell him and then prompt him with a * as we change into
; run mode by poking our OFFSET word
SPECER: PUSHJ P,.PSH4T## ;Save the temps
MOVE T1,['NWKBNS'] ;The prefix
PUSHJ P,ERMSP ;Process the message
JRST SPECE1 ;and exit if prefix only
MOVEI T1,[ASCIZ \Bad NODE spec \]
PUSHJ P,.TSTRG## ;Type the generic message
MOVE T4,.FXMOD(T3) ;Get the Scan block modifier word
TDNN T4,[FX.NDV] ;Do we have a device?
JRST [MOVE T1,.FXDEV(T3) ;Get the device name
PUSHJ P,.TSIXN## ;Yes, type the device name
MOVEI T1,":" ;Get a ":"
PUSHJ P,.TCHAR## ;we printed a device
JRST .+1 ] ;Continue
MOVE T1,.FXNAM(T3) ;Get the name
PUSHJ P,.TSIXN## ;and print it always
TDNN T4,[FX.NUL] ;Null extension?
JRST [MOVEI T1,"." ;Get a period
PUSHJ P,.TCHAR## ;No, type the period
HLLZ T1,.FXEXT(T3) ;Get the extension
PUSHJ P,.TSIXN## ;No, type it
JRST .+1 ] ;Continue
TDNE T4,[FX.DIR] ;Was a directory typed?
JRST [MOVE T1,.FXDIR(T3) ;Yes, get the PPN
PUSHJ P,.TPPNW## ;and type it
JRST .+1] ;Continue
SPECE1: PUSHJ P,.TCRLF## ;Finish the error message with a <CRLF>
PUSHJ P,.POP4T## ;Restore the temps
MOVSI T1,SP.DEC!SP.ANF ;Get spec found flags
MOVEM T1,SPCFLG(T4) ;Say that we found the nodes
AOS T4 ;Fake out the count
POPJ P, ;and fake a return to WILDS
;** Here when a node has gone offline when we are processing it
OFLINE: SKIPN ERRWD ;Print "No Node" errors
POPJ P, ;No, fake loop
AOS MATCH ;So we don't get the
;"No nodes meet constraints"
MOVE T1,['NWKNWD'] ;No, The prefix
PUSHJ P,ERMSP ;Error message routine
JRST OFLIN3 ;and exit to the main loop
OFLIN2: MOVEI T1,[ASCIZ \Node (\] ;text
PUSHJ P,.TSTRG## ;Type the string
MOVE T1,CN ;Get the node number
PUSHJ P,.TOCTW## ;Type it
MOVEI T1,")" ;Get a <right paren>
PUSHJ P,.TCHAR## ;Type it
MOVEI T1,[ASCIZ \ is going on or offline\] ;Strange state msg
PUSHJ P,.TSTRG## ;Type the rest of the message
OFLIN3: PJRST CRLFH ;fake the end of the main loop
SUBTTL Control/C and other interrupt handling!
;Here on a ^C or other interrupt
CONC: PUSHJ P,.PSH4T## ;Save the temps
HLRZ T1,INTBLK+.ERCCL ;Get the interrupt type
TRNN T1,ER.ICC ;Was it a ^C interrupt?
JRST CONC1 ;No, check the next type
PUSHJ P,.ISLGI## ;Are we logged in?
JRST FINISH ;No, exit!
PUSHJ P,.POP4T## ;Yes, restore the temps and make it
EXIT 1, ;look like a plain ^C
;Here if the user types a CONTINUE command
PUSH P,INTBLK+.EROPC ;Put the return address on the stack
SETZM INTBLK+.EROPC ;and clear it in the interrupt block
POPJ P, ;Finally, return to what we were doing
CONC1: CAIE T1,ER.FUL ;is the disk full
JRST CONC2 ;No, check the next possibility
PUSHJ P,.PSH4T## ;Save the temps
MOVE T1,['NWKNMR']
MOVE T2,["?",,[ASCIZ \No more room on file structure\]]
SETZB T3,T4 ;Clear T3 and T4
PUSHJ P,.ERMSG## ;Print the Message
PUSHJ P,.POP4T## ;Restore the temps
JRST FINISH ;Exit...(Die)
CONC2: CAIE T1,ER.QEX ;Did he exceed his disk quota?
JRST CONC3 ;No, check the next possibility
MOVE T1,['NWKDQE']
MOVE T2,["?",,[ASCIZ \Disk Quota exceeded\]]
SETZB T3,T4 ;clear T3 and T4
PUSHJ P,.ERMSG## ;Print the message
PUSHJ P,.POP4T## ;Restore the temps
JRST FINISH ;Exit...(die)
CONC3: CAIE T1,ER.TLX ;Did he exceed his time limit?
JRST CONC4 ;No, check the last possibility
MOVE T1,['NWKTLE']
MOVE T2,["?",,[ASCIZ \Time Limit exceeded\]]
SETZB T3,T4 ;Clear T3 and T4
PUSHJ P,.ERMSG## ;Print the message
PUSHJ P,.POP4T## ;Restore the temps
EXIT 1, ;Do a continuable exit
;Here if the user types a CONTINUE command
PUSH P,LASTPC ;Put the return address on the stack
SETZM LASTPC ;and clear it in the interrupt block
POPJ P, ;Finally, return to what we were doing
CONC4: CAIE T1,ER.EIJ ;Did he encounter a fatal error
;of the fourth kind?
JRST CONC5 ;No, let the user have it
MOVE T1,['NWKFER']
MOVE T2,["?",,[ASCIZ \Fatal Error at PC \]]
SETZB T3,T4 ;Clear T3 and T4
PUSHJ P,.ERMSG## ;Print the message
HRRZ T1,LASTPC ;Get the last PC
SUBI T1,1 ;Backup to the error PC
PUSHJ P,.TOCTW## ;and type the PC
PUSHJ P,.POP4T## ;restore the temps
JRST FINISH ;Exit to the monitor
CONC5: POP P,T1 ;Restore T1
PUSH P,LASTPC ;Put the last PC on the stack
SETZM LASTPC ;Clear it in the interrupt block
POPJ P, ;Return to the user program
XLIST ;For a neater listing
LIT ;Force literals to be in high segment
LIST ;
END START