Google
 

Trailing-Edge - PDP-10 Archives - bb-m836d-bm - tools/rmtcon/rmtcon.seq
There are 3 other files named rmtcon.seq in the archive. Click here to see a list.
                                Date: 10 Jun 85  17:01:45
                                 Charge Number:V20-05113                                                                   SEQ 0001

                                    Revision "0.2" of
                   Diagnostic Engineering Functional Specification for
                                   NI Services Program

                                         RMTCON
   Revisions:

   Rev 0.1      26-Sep-83 By John R. Kirchoff
   Rev 0.2      17-Oct-84 By Gary Papazian
   Overview of the Diagnostic Product                               Page ii
   Table of Contents                                              10 Jun 85                                                SEQ 0002


                              Table of Contents
                                                                       Page
                                                                       ----

           1.0     OVERVIEW OF DIAGNOSTIC PRODUCT . . . . . . . . . . . 1
           1.1       Scope of this document . . . . . . . . . . . . . . 1
           1.2       General program description  . . . . . . . . . . . 1
           1.3       Users and Uses . . . . . . . . . . . . . . . . . . 1
           1.4       Pre-requisite software . . . . . . . . . . . . . . 1

           2.0     PRODUCT GOALS/NON-GOALS  . . . . . . . . . . . . . . 2

           2.1       Performance goals  . . . . . . . . . . . . . . . . 2
           2.1.1       Program size . . . . . . . . . . . . . . . . . . 2
           2.1.2       Program run time . . . . . . . . . . . . . . . . 2
           2.1.3       Exec mode capability . . . . . . . . . . . . . . 2
           2.1.4       User mode capability . . . . . . . . . . . . . . 2
           2.1.5       Fault Detection  . . . . . . . . . . . . . . . . 2
           2.1.6       Fault isolation  . . . . . . . . . . . . . . . . 2
           2.1.7       General user interface philosophy  . . . . . . . 3
           2.1.8       Program documentation  . . . . . . . . . . . . . 3

           2.2       Compatibility goals  . . . . . . . . . . . . . . . 3
           2.2.1       CPU family . . . . . . . . . . . . . . . . . . . 3
           2.2.2       Standard diagnostic support software . . . . . . 3
           2.2.3       Operating systems (TOPS-10)  . . . . . . . . . . 3
           2.2.4       Operating systems (TOPS-20)  . . . . . . . . . . 4
           2.2.5       Spear  . . . . . . . . . . . . . . . . . . . . . 4

           2.3       Failsoft goals . . . . . . . . . . . . . . . . . . 4
           2.3.1       CPU/Memory failures  . . . . . . . . . . . . . . 4
           2.3.2       Power fail/restart . . . . . . . . . . . . . . . 4

           2.4       Restrictions . . . . . . . . . . . . . . . . . . . 4
           2.4.1       User mode privileges . . . . . . . . . . . . . . 4
           2.4.2       User mode priority interrupts  . . . . . . . . . 4

           2.5       Non-Goals  . . . . . . . . . . . . . . . . . . . . 5

           3.0     REQUIREMENTS . . . . . . . . . . . . . . . . . . . . 6
           3.1       Run time requirements  . . . . . . . . . . . . . . 6
           3.2       Development environment requirements . . . . . . . 6
           3.3       Evaluation system  . . . . . . . . . . . . . . . . 6

           4.0     PROGRAM INTERFACES . . . . . . . . . . . . . . . . . 7
           4.1       Diagnostic software interfaces . . . . . . . . . . 7
           4.2       Operating system interfaces (TOPS-10)  . . . . . . 7
           4.3       Operating system interfaces (TOPS-20)  . . . . . . 7

           5.0     COMMANDS . . . . . . . . . . . . . . . . . . . . . . 8

           6.0     FUNCTIONAL DESCRIPTION . . . . . . . . . . . . . .  10
           6.1       Relationship To Other Components . . . . . . . .  10
           6.2       NI Services Program  . . . . . . . . . . . . . .  11
           6.3       PLUTO Console Carrier Server . . . . . . . . . .  12
   Overview of the Diagnostic Product                            Page iii
   Table of Contents                                            10 Jun 85                                                  SEQ 0003


           6.4       Console Carrier Protocol . . . . . . . . . . . .  12
           6.4.1       Message Flow Within The CC Protocol  . . . . .  13
           6.4.2       Characteristics And Uses Of The Protocol . . .  14
           6.5       Remote Console Reservation . . . . . . . . . . .  16
           6.5.1       Reservation States . . . . . . . . . . . . . .  16
           6.5.2       Reservation Details  . . . . . . . . . . . . .  17
           6.5.3       Console Carrier exists - but console in use  .  18
           6.5.4       Console Carrier exists - Console not reserved   18
           6.5.5       Console Carrier exists - we own the console  .  19
           6.5.6       Console Carrier code does not exist  . . . . .  20
           6.6       Remote Console Operation . . . . . . . . . . . .  23

           7.0     ERROR REPORTING PHILOSOPHY . . . . . . . . . . . .  24
           7.1       Reporting to SPEAR . . . . . . . . . . . . . . .  24

           8.0     OPEN ISSUES  . . . . . . . . . . . . . . . . . . .  25

           9.0     SCHEDULE . . . . . . . . . . . . . . . . . . . . .  25

           10.0    BIBLIOGRAPHY . . . . . . . . . . . . . . . . . . .  26

           11.0    GLOSSARY . . . . . . . . . . . . . . . . . . . . .  27

           12.0    REVISION HISTORY . . . . . . . . . . . . . . . . .  27

           13.0    ALGORITHMS . . . . . . . . . . . . . . . . . . . .  28
           13.1      NI Services Program algorithm  . . . . . . . . .  28
           13.2      Normal Command Processing algorithm  . . . . . .  28
           13.3      Reserve Remote Console algorithm . . . . . . . .  29
           13.4      Release Remote Console algorithm . . . . . . . .  29
           13.5      Load Server Code algorithm . . . . . . . . . . .  30
           13.6      Multi-block Load algorithm . . . . . . . . . . .  31
   Overview of the Diagnostic Product                                Page 1
   OVERVIEW OF DIAGNOSTIC PRODUCT                                 10 Jun 85                                                SEQ 0004


   1.0  OVERVIEW OF DIAGNOSTIC PRODUCT

       1.1  Scope of this document

       This document describes the functional definition,  design  details,
       testing  requirements  and  schedule  for  the  "NI Services Program
       [DFNIC] of the TOPS-20 implementation of  the  TOPS-20/PLUTO.   This
       program  implements  the  console carrier requestor portion (CCR) of
       the NI based system.  This document will be updated whenever changes
       are necessitated in these areas.



       1.2  General program description

       The NI Services Program is a user mode only Program  that  will  run
       under  the  TOPS-20  Operating  System  (Release  6.1 or newer).  In
       simple terms  the  NI  Services  Program  is  basically  a  terminal
       interface  between  TOPS-20(host) and a remote program which resides
       in a PLUTO(node) on the NI.  This Program will have the  ability  to
       cause  a  Diagnostic  or  a Utility program in the remote node to be
       loaded and executed.  It will also be able to communicate  with  the
       remote  program while it is running and may take status or terminate
       its operation.

       Command and Response Packets are  passed  between  the  NI  Services
       Program  and the PLUTO Console Carrier Server Task using the Console
       Carrier Protocol and the NI Remote Console Interface provided by the
       LLMOP% JSYS.



       1.3  Users and Uses

       Field Service will use this Program to  run  remote  diagnostic  and
       utility programs on NI nodes.



       1.4  Pre-requisite software


        o  TOPS-20 Operating System with the LLMOP% JSYS implemented.
   Overview of the Diagnostic Product                                Page 2
   PRODUCT GOALS/NON-GOALS                                        10 Jun 85                                                SEQ 0005


   2.0  PRODUCT GOALS/NON-GOALS

       2.1  Performance goals

       To be able to execute, with a high  degree  of  predictability,  the
       commands  received  by  the  user  on  a terminal and relay messages
       effectively from the remote program.



       2.1.1  Program size

       The NI Services Program should  not  be  more  than  10k,  including
       buffer storage.



       2.1.2  Program run time

       Run time in the traditional sense does not apply.  This  program  is
       used as a terminal interface between TOPS-20 and a remote NI node.



       2.1.3  Exec mode capability

       The NI Services Program will not run in Exec Mode.



       2.1.4  User mode capability

       The user will need Wheel, Operator or Maintenance priviledges to run
       this Program.



       2.1.5  Fault Detection

       The NI  Services  Program  will  not  have  any  of  its  own  Fault
       Detection.   Any  error  detected  by  the  remote  program  will be
       displayed for the User to see.  A JSYS failure will be displayed  on
       the users terminal like all other TOPS-20 programs.



       2.1.6  Fault isolation

       The NI Services Program has no built in isolation  capability.   Any
       Functional  Fault  Detected  will  be passed back to the user by the
       remote program for analysis and reporting.
   Overview of the Diagnostic Product                                Page 3
   PRODUCT GOALS/NON-GOALS                                        10 Jun 85                                                SEQ 0006


       2.1.7  General user interface philosophy

       The  NI  Services  Program  will  use  TOPS-20  style  Parsing   and
       Recognition.



       2.1.8  Program documentation

       Excerpts from this Functional Specification will be incorporated  in
       the  final Program documentation.  The Program Documentation will be
       in conformance to the Diagnostic Q.A.  Manual.



       2.2  Compatibility goals

       The NI Services Program will support the manditory functionality  as
       defined  in  the "A PLUTO IMPLEMTATION OF A CONSOLE CARRIER SERVER",
       3-Mar-82 by Paul Weiss.



       2.2.1  CPU family

       The NI Services Program is a user Program and is  Monitor  dependent
       rather  than Hardware dependent.  It will run on any KL10 Model B 36
       bit CPU provided the Monitor is a TOPS-20 Monitor that supports  the
       NI.



       2.2.2  Standard diagnostic support software

       The NI Services Program will not use any of the Standard  Diagnostic
       Support  Software.   It  will  be  a  self contained program with an
       ".EXE" extension.



       2.2.3  Operating systems (TOPS-10)

       There is no planned TOPS-10 support for the NI Services Program.  If
       in  the  future  it  is  decided to have the NI Services Program run
       under TOPS-10, it will be done as a separate project.   The  TOPS-10
       effort  will  be  minimized  by organizing the Software in a modular
       fashion.
   Overview of the Diagnostic Product                                Page 4
   PRODUCT GOALS/NON-GOALS                                        10 Jun 85                                                SEQ 0007


       2.2.4  Operating systems (TOPS-20)

       The NI Services Program will  run  under  TOPS-20  release  6.1  and
       newer.



       2.2.5  Spear

       The NI Services Program will be upward compatible with  versions  of
       SPEAR after TOPS-20 release 6.1 and newer.



       2.3  Failsoft goals

       2.3.1  CPU/Memory failures

       The NI Services Program will be aborted by the Operating System.



       2.3.2  Power fail/restart

       The Ni Services Program will have to be restarted by the  user  when
       the System is reloaded.



       2.4  Restrictions

       The NI Services Program will only work  under  a  TOPS-20  Operating
       System  and  communication will only be with a PLUTO node located on
       the NI.



       2.4.1  User mode privileges

       The LLMOP% JSYS requires Wheel, Operator or Maintenence priviledges.
       This means that the directory the user is logged on to must have the
       above priviledges.



       2.4.2  User mode priority interrupts

       The NI Services Program will not use any Hardware  Interrupts.   The
       Software Interrupt System will be used.
   Overview of the Diagnostic Product                                Page 5
   PRODUCT GOALS/NON-GOALS                                        10 Jun 85                                                SEQ 0008


       2.5  Non-Goals


        o  The Ni Services Program will not do error retries.

        o  The NI Services Program will provide no exec mode support.

        o  The NI Services Program will provide no TOPS-10 support as  part
           of this Project.
   Overview of the Diagnostic Product                                Page 6
   REQUIREMENTS                                                   10 Jun 85                                                SEQ 0009


   3.0  REQUIREMENTS

       3.1  Run time requirements


        o  A TOPS-20 Timesharing Monitor needs to be running.

        o  Adequate user priviledges.

        o  An NI (ETHERNET) Network

        o  A PLUTO, that has Console Carrier Server support.




       3.2  Development environment requirements

       The hardware requirements needed to test  the  NI  Services  Program
       are:

        o  A KL10 system that has a KLNI and a PLUTO is required.

        o  One Pluto system with a UNA.

        o  Two host systems residing on the NI.


       The NI Services Program must be tested with the PLUTO console server
       in   each  of  the  three  possible  states  described  below  under
       Reservation States.

       The NI Services Program must be tested with the PLUTO  at  micro-odt
       level  and  with  the  PLUTO  based  diagnostics package to test the
       normal processing of commands.



       3.3  Evaluation system

       Engineering, Manufacturing and CSSE are expected to make  their  own
       arrangements as to the availability of hardware for their Diagnostic
       evaluation.
   Overview of the Diagnostic Product                                Page 7
   PROGRAM INTERFACES                                             10 Jun 85                                                SEQ 0010


   4.0  PROGRAM INTERFACES

       4.1  Diagnostic software interfaces

       Not Applicable



       4.2  Operating system interfaces (TOPS-10)

       Not Supported



       4.3  Operating system interfaces (TOPS-20)

       The programming interface will be  with  the  Monitor.   Packets  of
       information  will be sent and recieved using Monitor Calls that will
       be supported in TOPS-20 Release 6.1 and newer.
   Overview of the Diagnostic Product                                Page 8
   COMMANDS                                                       10 Jun 85                                                SEQ 0011


   5.0  COMMANDS

       The commands available to the user of the NI Services Program are:

           HELP

           ENABLE/DISABLE
       |           Debug
                   Spear-Reporting
                   Output-Logging (to) <file-spec>
       |           Trace


           IDENTIFY (node) <node-address>

       |   DISPLAY-ADDRESS <of>
       |           All
       |           Local-node
       |           Remote-nodes-on-network

       |   READ-COUNTERS <node>

       |   REDEFINE

       |   CONNECT (port) <number>

       |   CONNECT (node) <node-address>


           SHOW
       |           All
       |           Debug
       |           Logging
       |           Spear-reporting
       |           Trace


           QUIT
       |   EXIT

           Control-C
           Control-Y
       |   Control-D
       |   Control-B

       The HELP command will list information about the other commands  and
       their options

       The ENABLE command is used to enable or  "turn-on"  certain  program
       features.

       The DISABLE command is used to disable or "turn-off" certain program
       features.
   Overview of the Diagnostic Product                                Page 9
   COMMANDS                                                       10 Jun 85                                                SEQ 0012


|      The IDENTIFY command will cause the program to perform a REQUEST  ID
|      to  the  address specified as part of the command and will print the
|      SYS-ID information obtained from that address.
|  
|      The DISPLAY-ADDRESS command displays the address of the  local  node
|      and/or all the remote nodes on the network.
|  
|      The READ-COUNTERS command will read the counters  of  the  specified
|      node.
|  
|      The REDEFINE command  will  enable  the  user  to  change  the  exit
|      character to exit from the remote mode.
|  
|      The CONNECT command actually connects the  user's  terminal  to  the
|      PLUTO console terminal to transfer characters back and forth between
|      the two.  A "control-D" typed by the user will disconnect the user's
|      terminal  from  this  mode and return the user's terminal to command
|      mode.  A "control-B" typed on the user's terminal will cause a BREAK
|      to be sent to the the PLUTO.

       The SHOW command is used to display the  current  state  of  various
       options and control flags in use by the program.
|  
|      The QUIT and EXIT commands will return the user  to  TOPS20  monitor
|      level.   It  will Deselect a selected NODE properly before returning
|      to the monitor and close the logging file if it was in use.
|  
|      A CONTROL-D typed while in the Remote Terminal  mode  will  cause  a
|      disconnect from the remote mode and put the user back to the command
|      level.
|  
|      Two CONTROL-C's typed while the program is in command or remote mode
|      will always put the user back to TOPS20 monitor level.

       A CONTROL-Y typed while the program is in any  mode  will  cause  an
       immediate  return  to  TOPS20  monitor  level.  The monitor CONTINUE
       command will then resume operation from the interrupted point.
   Overview of the Diagnostic Product                               Page 10
   FUNCTIONAL DESCRIPTION                                         10 Jun 85                                                SEQ 0013


   6.0  FUNCTIONAL DESCRIPTION

       The PLUTO hardware does not include  a  physical  console  terminal.
       Instead,  a  facility has been designed whereby a terminal on a host
       node can be connected logically to  the  console  interface  on  the
       PLUTO and hence act as its console.

       The standard PLUTO Server software will not use the console at  all,
       but  there  are  occasions  where this facility will be useful.  For
       example,  diagnostics  will  use  this   facility   extensively   to
       communicate  with  the  user  running  the diagnostic - this enables
       diagnostics that currently exist to be used without being rewritten.
       Also,  the  11/24  PLUTO  processor  includes  micro-ODT, and so the
       remote console facility may be used to control or  debug  a  failing
       node,  much  in the same way that a standard 11/24 may be controlled
       via its own console terminal.



       6.1  Relationship To Other Components


         Terminal
            |
            |
            V
         +-----+  LLMOP%  +---------+   NI    +-------+  ASYNC  +-------+
         | NIS |<-------->| TOPS-20 |<------->| PLUTO |<------->| PLUTO |
         +-----+          +---------+  (MOP)  |  UNA  | Console | 11/24 |
            |                                 |  CCS  |         +-------+
            |            +----------+         +-------+
            +----------->| Volatile |
                         | Data     |     NIS = NI Services Program
                         | Base     |     CCS = Console Carrier Server
                         +----------+
   Overview of the Diagnostic Product                               Page 11
   FUNCTIONAL DESCRIPTION                                         10 Jun 85                                                SEQ 0014


       6.2  NI Services Program

       The NI Services Program will  communicate  with  the  PLUTO  console
       carrier  server  (CCS)  which  resides  on  a target node to provide
       remote access to normal PLUTO console  services.   The  NI  Services
       Program  will  provide  the  user  interface to communicate with the
       remote console.  This program communicates via the LLMOP%  interface
       with  the  TOPS-20 monitor which in turn communicates with the PLUTO
       console carrier server on a target node.  It is a  requirement  that
       the  user  be  a  privileged user in order to invoke the NI Services
       Program and communicate with the PLUTO console carrier server.

       There are two pieces of software that implement the  remote  console
       facility.   The  NI Services Program on a TOPS20 host implements the
       Console Carrier protocol and transfers characters transmitted across
       the  NI  to and from a physical terminal on the host.  The PLUTO UNA
       code that implements this facility is known as the  Console  Carrier
       Server.

       The PLUTO remote console is a resource, and as such  is  subject  to
       contention  between multiple requesting hosts.  There is a mechanism
       to  resolve  conflicts   in   using   the   remote   console,   viz.
       'reservation'  of  the  console.  The requestor has to 'reserve' the
       console before it may be used to transfer characters,  and  normally
       the  requestor  'releases'  the  remote console when it is no longer
       required.

       There is  a  timeout  associated  with  reservation  of  the  remote
       console;   the  requestor  must  communicate  with  the server often
       enough so that the reservation timer does  not  complete  and  hence
       cause  the  remote  console  to be released from the requestor.  The
       value of the reservation timer is of  the  order  of  minutes;   its
       exact value will be determined later.

       Having reserved the PLUTO's remote console  facility  and  confirmed
       that the reservation was successful, the NI Services Program may now
       initiate  communication  to  and  from  the  PLUTO  remote  console.
       Normally  this  would  involve  communications with a real terminal,
       taking characters typed by the user on the real terminal and passing
       them  to  the  remote  console and taking characters from the remote
       console and displaying them on the users real terminal.

       There is a requirement to provide an escape convention, so that  the
       terminal user may effect the following features:

       1.  Exit from  the  REMOTE  TERMINAL  portion  of  the  NI  Services
           Program.

       2.  Emulate an input break condition, as though the user had hit the
           break  key  on a local 11/24 console.  This will force the PLUTO
           processor into its micro-ODT, making available all the  features
           that   micro-ODT  permits,  ie.   examining  memory,  depositing
           memory, resetting the machine etc.
   Overview of the Diagnostic Product                               Page 12
   FUNCTIONAL DESCRIPTION                                         10 Jun 85                                                SEQ 0015


       3.  Pass characters through that would otherwise be  interpreted  by
           the hosts terminal driver, for example ^C.


       As previously described, the requestor program  should  ensure  that
       there  is  communications  with the server often enough to avoid the
       reservation timer in the server  expiring  and  forcing  the  remote
       console  back in the unreserved state.  The Console Carrier protocol
       includes the ability to send 'null' messages so  that  communication
       can  still  occur  between  a  functioning  requestor and the server
       without passing any data.

       When the terminal user has finished with  the  remote  console,  the
       requestor should relinquish control.  The remote console facility is
       now available to other requestors.



       6.3  PLUTO Console Carrier Server

       The PLUTO console carrier server is  being  supplied  by  the  PLUTO
       server base.



       6.4  Console Carrier Protocol

       The Console Carrier (CC) protocol is, as its name implies,  a  means
       of transporting ("carrying") the information flow between a computer
       console and that console's usually human user,  in  a  situation  in
       which  the  user's  terminal  is attached to a system other than the
       system of interest.  The information is typically streams  of  ASCII
       characters,  though  that is not a requirement of the protocol.  The
       physical console serving as a paradigm  for  the  model  is  not  an
       "old-fashioned"  console  with  a  switch  register, boot, continue,
       examine, address, and deposit switches, but rather an ASCII console.
       Such  a  console  is  a distinguished terminal.  It can be used as a
       normal terminal I/O device until a particular sequence of characters
       is input by the human, after which point it has all the capabilities
       of the old-fashioned console.

       The objects of interest in the protocol are a  requestor  module,  a
       server module (the objects which speak the protocol) and a requestor
       user process and server user process.  Typically the latter two will
       be  a  human using the remote console, and the target system's ASCII
       console, respectively.  The requestor and  server  protocol  modules
       occupy levels III through VI in the ISO model:  they make direct use
       of a data link layer (DDCMP or NI  Data  Link),  under  which  is  a
       physical  link  layer  (RS232-C or Ethernet Physical Link).  The end
       users make direct use of the CC Requestor and Server.

       The Console Carrier protocol is a simple half-duplex polled protocol
       designed  to  provide  some  degree  of end-to-end (or user-to-user)
       communication without the overhead of DECnet logical  links.   These
       sections  will  discuss  the  operation  of the protocol in terms of
   Overview of the Diagnostic Product                               Page 13
   FUNCTIONAL DESCRIPTION                                         10 Jun 85                                                SEQ 0016


       message interchanges, the services the protocol  affords,  and  what
       the  costs are for supplying those services in such an "inexpensive"
       manner.  The description will be informal;  the protocol is formally
       defined in the DNA Low-level Maintenance Operations Spec.



       6.4.1  Message Flow Within The CC Protocol

       The protocol is  comprised  of  six  different  types  of  messages:
       Request  System  ID,  System  ID,  Reserve Console, Release Console,
       Console Command and Poll, and Console Response and  Acknowledgement.
       The  procedure  which  a  Console Requestor must follow to reserve a
       remote console is:

       1.  Ask the remote system for a System ID message, and receive  that
           message.

       2.  Note that the remote system has a remote console, and  that  the
           console  is  not  reserved.  These two pieces of information are
           included in the system ID message.

       3.  Assuming that the remote system has an unreserved console,  send
           that remote system a Reserve Console message.

       4.  Again ask the remote system for a System ID message by means  of
           a  Request  System ID message.  If the requestor system has been
           successful in reserving  the  remote  console,  the  requestor's
           address  will  appear  as  the  console  owner  in the System ID
           message.


       If the remote system does not have  a  remote  console,  it  may  be
       possible  to "put a console on the system".  This is not part of the
       CC  protocol,  but  is   rather   a   function   of   a   particular
       implementation.   For  instance, it will be seen later in this paper
       that the CC server for a Pluto implementation runs on the CPU aboard
       the  Pluto's  UNA,  not  on  the Pluto's CPU.  This CC server can be
       down-line loaded into the UNA, at which time the remote system  will
       "have" a console.

       After reserving the remote console, the requestor must maintain that
       reservation  by  sending Console Commands and Polls at some interval
       less than the console's reservation timer.  (The  magnitude  of  the
       timer is contained, again, within the System ID message.)

       After the point at which the console is successfully  reserved,  the
       communication  consists  of  an  arbitrarily  long series of Console
       Commands   and   Polls,   answered   by   Console   Responses    and
       Acknowledgements.  Any messages may have null data;  the protocol is
       concerned only with the  correct  state  changes.   This  dialog  is
       driven  by  the Requestor, which is responsible for issuing commands
       and polling for  responses  from  the  Server.   The  Server  cannot
       independently return a response.  Therefore, the Requestor must know
       when and how often it must poll a response in  order  to  prevent  a
   Overview of the Diagnostic Product                               Page 14
   FUNCTIONAL DESCRIPTION                                         10 Jun 85                                                SEQ 0017


       buffer  overrun at the Server.  The association of Requestor-defined
       command data to Server-returned response data is made  in  the  user
       layer   above   the  CC  protocol.   The  communications  path  thus
       established between Requestor  User  and  Server  User  will  remain
       intact  until the console is explicitly given up by the Requestor by
       means of a Release Console message, or until  the  interval  between
       Console  Commands  and  Polls  exceeds  the  Console  Server-defined
       reservation timer.  The protocol state is reflected unchanged by the
       Console   Server.   The  burden  of  recognizing  an  unsynchronized
       protocol rests on the requestor.  To resynchronize the protocol, the
       requestor must release, then re-reserve the console.



       6.4.2  Characteristics And Uses Of The Protocol

       A user process within a DECnet  network  (or  other  modern  layered
       protocol  network)  has  available certain services which allow that
       user to believe that there exists a direct,  exclusive,  error  free
       communication  path  between him/herself and some physically distant
       analogous user process.  Of course, neither of the "users"  need  be
       human,  and  the  physical  distance  may  vary by several orders of
       magnitude, but in all cases, a model of two users "conversing"  over
       an  I/O channel (telephone line, "pipe") is a useful one.  Such user
       processes have the following expectations of an end-to-end protocol:

       1.  That the pipe  will  hide  the  imperfections  of  the  physical
           medium;  that is, they expect the path to be error-free.

       2.  That everything entering at one end will come out the  other  in
           the  same  order;   that is, they expect guaranteed delivery and
           sequentiality.

       3.  That no other user's traffic will be interjected into their data
           stream, and that the data that they input will be delivered only
           to the partner process.

       4.  The initiating process expects that, if an attempted  connection
           succeeds,  that  connection will be made only to the object with
           which it is specifically interested in communicating.

       5.  Both processes expect a degree of  flow  control  sufficient  to
           protect  themselves  and  the  network  from  congestion  and/or
           overrun.


       The CC protocol addresses all of these problems except the first  by
       the  expedient  of ignoring them:  it is entirely the concern of the
       user processes to see that they get done.  The first, the error-free
       path, is assumed to be supplied by the data link layer protocol.

       Delivery is not guaranteed:  if a requestor doesn't poll the  server
       as  fast  as  the  server generates responses, response data will be
       lost.  If the requestor generates commands faster than the server or
       the  server  user  process is able to process them, commands will be
   Overview of the Diagnostic Product                               Page 15
   FUNCTIONAL DESCRIPTION                                         10 Jun 85                                                SEQ 0018


       lost, or the association of response to command will become skewed.

       Access  to  the  PLUTO  Console  Carrier  Server  is  controlled  by
       requiring  that  the  value of the "verification" field in a Reserve
       Console message match the verification field which is stored in  the
       PLUTO  UNA.   How the verification field value in the PLUTO UNA gets
       set is yet to be defined.  Access to  the  CC  requestor  module  is
       neither  specified  nor  controlled  by  the protocol.  (However, CC
       requestors will typically be implemented on larger, more  controlled
       systems.)

       Because the protocol assumes no layers between  itself  and  a  user
       layer,  and  because it demands no particular proof of identity from
       its users, the server user process is that process which happens  to
       be  interested  in  being the server user.  Control of the access to
       the console by a requestor user is within the protocol:  a requestor
       sends  the console server a request to reserve the console, and then
       asks the console  to  send  a  system  ID.   If  the  requestor  has
       successfully  reserved the console, the requestor's own address will
       appear in the ID message as  the  console  user.   A  requestor  may
       explicitly  release  a reserved console.  In addition, a reservation
       timer, the magnitude of which is indicated in the system ID message,
       determines  how  long  the  requestor  may  remain idle (not sending
       commands  or  polling  for  data)  before  its  ownership  will   be
       rescinded.   (The magnitude of this timer is not yet defined;  it is
       thought to  be  of  the  order  of  minutes.)  This  value  will  be
       hard-coded into the Console Carrier Server microcode.

       Flow  control  is  very  rudimentary:   only  one  message  may   be
       outstanding  at  any  one  time;  to return response data requires a
       command/poll.  Lost response data is reported by the CC server.  The
       protocol  state  is  kept  as  a one-bit sequence number.  The first
       command from the requestor  has  a  sequence  number  of  one.   The
       protocol  state  of  the  requestor may be thought of as the message
       number of the current command/poll that it is  currently  attempting
       to get across.  The protocol state of the server may be thoght of as
       the message number of the last correctly received  command/poll.   A
       change  in  state  implies  an  ACK, and is accompanied by (possibly
       null) command data or response data.  Command/polls  with  no  state
       changes and no data are used by the Console Requestor to NAK Console
       Responses.  The Console Server has the ability to indicate  that  it
       has  dropped  (or  lost,  or  scrambled)  a Console Command, and the
       ability to piggyback Console Response data  on  that  NAK.   Such  a
       response  might  be better called a WAK (wait/acknowledgement), with
       the semantic meaning:  "I've received your command,  but  no  action
       will   be   taken  on  it.   Please  retransmit  the  command,  and,
       incidently, here is some response data."

       All of this should be taken to mean that this protocol assumes  that
       the  requestor user process has the intelligence of a human, that in
       fact the requestor user process is a human.  Although the preceeding
       traits seem to describe a terrible protocol, they are, in fact, very
       much the same traits exhibited by  a  real  ASCII  console  terminal
       connected to a computer system in which one may be interested.  That
       terminal may be attached by some process of no interest, it  may  be
   Overview of the Diagnostic Product                               Page 16
   FUNCTIONAL DESCRIPTION                                         10 Jun 85                                                SEQ 0019


       too slow to output the information from the process without dropping
       characters, it may be  typing  out  the  uncoordinated  interspersed
       outputs  of  several  processes,  it  may  be a terminal on a "dead"
       machine, etc.  In such a case, the human user would either make some
       sense  of  the scrambled mess presented to him/her, or would put the
       terminal into console mode and reboot the system, perhaps using  the
       console  emulator  to  try  to figure the system's state first.  (Of
       course, it will frequently be the case that the terminal will afford
       the user exactly the desired capabilities.)



       6.5  Remote Console Reservation

       The user must specify the target node with which the user wishes  to
       communicate.   The required input to the NI Services Program will be
       a node id (ie.  either  node  name  or  node  address).   The  other
       parameters are optional.  If not specified in the command line, they
       must be specified in the Ni Services data base.  If specified in the
       command  line,  they  override the parameters set in the NI Services
       data base.  The syntax for the command line input is:

       |   RMTCON> CONNECT port-id

       |   RMTCON> CONNECT node-id


       If the connection  is  established  with  the  specified  node,  the
       following message will be displayed on the user's terminal:
       |   To Disconnect & return to command mode, type a single control-D
|  
|      Typing one or several  carrage  returns  will  then  result  in  the
|      following prompt to be displayed on the user's terminal:
       |   Local>

       The user can now begin communications as a remote terminal.

       In order for the NI Services Program to communicate  with  a  remote
       node,  the  SERVICE  CIRCUIT, HARDWARE ADDRESS, and SERVICE PASSWORD
       must be specified in either the command line or  the  volatile  data
       base.   The  names  of  the  files  containing the special secondary
       loader and the micro-code will be hardwired into the program image.



       6.5.1  Reservation States

       The PLUTO console carrier server may be in one of three states  when
       the user wishes to reserve the console:

       1.  The PLUTO console carrier server is loaded and unreserved.

       2.  The PLUTO console carrier server is loaded and reserved.
   Overview of the Diagnostic Product                               Page 17
   FUNCTIONAL DESCRIPTION                                         10 Jun 85                                                SEQ 0020


       3.  The PLUTO console carrier server is not loaded.


       If the PLUTO console carrier server is loaded and unreserved, the NI
       Services  Program  will  reserve  it.   At this point, the user will
       enter commands as if he were physically located at a  console.   The
       commands  will  be  transmitted by the requestor to the server.  The
       appropriate response will  be  transmitted  by  the  server  to  the
       requestor.  The requestor will display this information to the user.
       If the PLUTO console carrier server is loaded and reserved, an error
       message will be displayed to the user on the issuing terminal.

       If the PLUTO console carrier server is  not  loaded,  the  requestor
       will  load  the  server.   It  may be necessary for the requestor to
       identify the target node via the  48-bit  hardware  address  if  the
       target node is not known to the network.  Once the server is loaded,
       the requestor will attempt to reserve the  console  and  proceed  as
       above.



       6.5.2  Reservation Details

       The PLUTO UNA code that implements the Console Carrier protocol  may
       or  may  not  be resident in the PLUTO UNA.  Thus the requestor must
       check whether the Console Carrier code is present in the  PLUTO  UNA
       and if necessary load the appropriate server code into the PLUTO UNA
       via the NI.

       The target PLUTO may be responding to one of two 48bit NI addresses,
       depending  on the state of the PLUTO UNA.  Thus the requestor should
       attempt to communicate  with  both  the  PLUTO  48bit  hardware  UNA
       address  and  the PLUTO 48bit Phase IV UNA address and use whichever
       one that responds in subsequent messages.

       In its initial state, the  PLUTO  UNA  will  respond  to  its  48bit
       hardware  UNA  address.   When the PLUTO Server software initializes
       the UNA for a phase IV node, it changes the  UNA  address  to  be  a
       Phase  IV  48bit  address.   The Phase IV 48bit address is formed by
       appending the 16bit Phase IV node number to a fixed 32bit value.

       The following sections describe the different situations  which  may
       occur  when  the  requestor  tries  to connect to the remote console
       facility.  The requestor sends the initial request,  to  both  48bit
       addresses if necessary, as follows:

           REQUEST ID :
                   CODE = 15
                   RECEIPT NUMBER = requestors identification


       We will now see the possible responses  to  this  request,  and  the
       actions that may be taken by the requestor in each case.
   Overview of the Diagnostic Product                               Page 18
   FUNCTIONAL DESCRIPTION                                         10 Jun 85                                                SEQ 0021


       6.5.3  Console Carrier exists - but console in use

       In this case, the Console Carrier code  has  been  loaded  into  the
       PLUTO  UNA  previously, but at the moment, another host has reserved
       the console, so that it is unavailable to us.

       The format of the reply is:

           SYSTEM ID :
                   CODE = 7
                   RECEIPT NUMBER = matches value sent in REQUEST ID
                   OTHER INFO :
                           MAINTENANCE VERSION = 3.0.0     
                           FUNCTIONS = at least console carrier
                           CONSOLE USER = non-zero 48bit Phase IV address
                                           which does not match our address
                           RESERVATION TIMER =     (value to be determined)
                           CONSOLE COMMAND SIZE =  (value to be determined)
                           CONSOLE RESPONSE SIZE = (value to be determined)
                           HARDWARE ADDRESS = 48bit hardware UNA address
                           DEVICE = 1              (ie. UNA)


       In this case, console carrier is known to be present as the 'console
       carrier'  bit is set in the FUNCTIONS field - other bits will be set
       in this field depending on the current state of the PLUTO UNA.   The
       console  is  reserved  by  some  user  as  CONSOLE USER is non zero.
       However the host is not the  current  user  of  the  remote  console
       feature  as  the  value of this field does not match the hosts 48bit
       Phase IV address.

       In this case, the host is unable to reserve the console.  There  are
       two  options  at  this point:  either wait a while and try again, or
       return an error message to the user who is  requesting  the  console
       service for the PLUTO.



       6.5.4  Console Carrier exists - Console not reserved

       In this case, the Console Carrier code has  been  previously  loaded
       into  the PLUTO UNA, but at the moment there is no requestor who has
       reserved the console.

       The reply looks like:

           SYSTEM ID :
                   CODE = 7
                   RECEIPT NUMBER = matches value sent in REQUEST ID
                   OTHER INFO :
                           MAINTENANCE VERSION = 3.0.0     
                           FUNCTIONS = at least console carrier
                           CONSOLE USER = 0        (ie. not reserved)
                           RESERVATION TIMER =     (value to be determined)
                           CONSOLE COMMAND SIZE =  (value to be determined)
   Overview of the Diagnostic Product                               Page 19
   FUNCTIONAL DESCRIPTION                                         10 Jun 85                                                SEQ 0022


                           CONSOLE RESPONSE SIZE = (value to be determined)
                           HARDWARE ADDRESS = 48bit hardware UNA address
                           DEVICE = 1              (ie. UNA)


       Here we see that the Console Carrier code is running, as the console
       carrier  bit is set in the FUNCTIONS byte.  However, CONSOLE USER is
       0 meaning that there is  no  current  host  that  has  reserved  the
       console.

       We may now attempt to reserve the console, as follows:

           RESERVE CONSOLE :
                   CODE = 13


       This will attempt to reserve the remote console  for  our  exclusive
       use.   However it is possible that another user is trying to reserve
       the console, and managed to do so before we were able to.  There  is
       also  a  possibility  that  the Console Carrier in the PLUTO UNA has
       been disabled before we were able to reserve the console.   Thus  we
       need  to  check  whether we did indeed manage to reserve the console
       successfully.

       We now issue another REQUEST ID message, and depending on the reply,
       we  will  find  that we own the console, or that some other host has
       reserved the console before us, or that Console Carrier is no longer
       operational in the PLUTO, and will therefore have to be reloaded.



       6.5.5  Console Carrier exists - we own the console

       Assuming that we have tried  to  reserve  the  console,  as  in  the
       previous  case,  then  we  would  normally expect this reply when we
       issue the second REQUEST ID.  In  this  case,  we  have  managed  to
       successfully  reserve  the  PLUTO  console  carrier  server  and may
       proceed to use the remote console feature.

       It is also possible that due to some error, the console believes  we
       own it, but we were not aware that we own it.  This case is an error
       as there can only be one user of the Console  Carrier  request  code
       for  a  given PLUTO at any time.  In this case, the requestor should
       issue a warning message, then release  the  console  via  a  RELEASE
       CONSOLE  message and then attempt to reserve the console again via a
       RESERVE CONSOLE message.

       The format of the reply is:

           SYSTEM ID :
                   CODE = 7
                   RECEIPT NUMBER = matches value sent in REQUEST ID
                   OTHER INFO :
                           MAINTENANCE VERSION = 3.0.0     
                           FUNCTIONS = at least console carrier
   Overview of the Diagnostic Product                               Page 20
   FUNCTIONAL DESCRIPTION                                         10 Jun 85                                                SEQ 0023


                           CONSOLE USER = non-zero 48bit Phase IV address
                                           which matches our address
                           RESERVATION TIMER =     (value to be determined)
                           CONSOLE COMMAND SIZE =  (value to be determined)
                           CONSOLE RESPONSE SIZE = (value to be determined)
                           HARDWARE ADDRESS = 48bit hardware UNA address
                           DEVICE = 1              (ie. UNA)


       The console carrier code is present, as determined by the bit set in
       the  FUNCTIONS field, and we are designated as the console requestor
       as the CONSOLE USER is set to be our 48bit Phase IV address.  We may
       now  use the console carrier server and communicate between the host
       terminal and the DL on the PLUTO.



       6.5.6  Console Carrier code does not exist

       Either there has never been any console carrier  code  operating  in
       the  PLUTO, or else it had previously been loaded but has since been
       disabled.

       The reply in this case looks like:

           SYSTEM ID :
                   CODE = 7
                   RECEIPT NUMBER = matches value sent in REQUEST ID
                   OTHER INFO :
                           MAINTENANCE VERSION = 3.0.0
                           FUNCTIONS = does not include console carrier
                           HARDWARE ADDRESS = 48bit UNA hardware address
                           DEVICE = 1              (ie. UNA)



       In this case, the FUNCTIONS  field  does  not  include  the  console
       carrier  bit, so there is no running PLUTO Console Carrier server on
       the PLUTO's UNA.  Therefore we must load the  console  carrier  code
       into the UNA.  This is accomplished by sending a BOOT message to the
       PLUTO indicating that we wish to load the communications  processor,
       ie.  the UNA, rather than the PLUTO itself.

       The message format is:

           BOOT :
                   CODE = 6
                   VERIFICATION = 8 bytes of password
                   PROCESSOR = 1           (ie. communications processor)
                   CONTROL :
                           BOOT SERVER = 1         (ie. requesting system)
                           BOOT DEVICE = 0         (ie. system default)
                   DEVICE ID = 0           (ie. irrelevant)
                   SOFTWARE ID = -1        (ie. system image)
   Overview of the Diagnostic Product                               Page 21
   FUNCTIONAL DESCRIPTION                                         10 Jun 85                                                SEQ 0024


       As in the case of loading a PLUTO from a host,  the  password  field
       may  be  set  up  in the PLUTO UNA as 8 octets of zero, or it may be
       non-zero.  The  requestor  should  attempt  this  message  twice  if
       necessary,  once  with  the  normal  password,  and  once  with  the
       VERIFICATION field consisting of 8 octets of  zeros.   Only  one  of
       these  requests  will be responded to.  Note that the SOFTWARE ID is
       always -1;  "diagnostic" is not supported when trying  to  boot  the
       communications processor (ie.  the UNA).

       The reply to the BOOT message will be a REQUEST PROGRAM, which is  a
       request  for  the host to load the appropriate secondary loader into
       the PLUTO UNA.  The format of the request is as follows:

           REQUEST PROGRAM :
                   CODE = 8
                   DEVICE TYPE = 1         (ie. UNA)
                   FORMAT VERSION = 1
                   PROGRAM TYPE = 0        (ie. secondary loader)
                   SOFTWARE ID = -1        (ie. system image)
                   OTHER INFO :
                           MAINTENANCE VERSION = 3.0.0
                           FUNCTIONS = dependant on current UNA state
                           ...         the rest of this section depends on
                                       the current UNA state


       The secondary loader that the host responds with is not the same  as
       would  be  sent  for  a  load  of the complete node.  This secondary
       loader is a loader which will load an image into the PLUTO  UNA  WCS
       rather  than the PLUTO memory.  The secondary loader is contained in
       a file PLUTOWL.SYS on the PLUTO directory.

       The host sends the secondary loader in a single message as follows:
           
           MEMORY LOAD WITH TRANSFER ADDRESS :
                   CODE = 0
                   LOAD NUMBER = 0
                   LOAD ADDRESS =          (value to be determined)
                   IMAGE DATA = data from PLUTOWL.SYS
                   TRANSFER ADDRESS =      (value to be determined)


       The PLUTO WCS secondary loader now runs and requests the  PLUTO  WCS
       code  to  be  loaded,  ie.   the  console  carrier server code.  The
       message is as follows:

           REQUEST PROGRAM :
                   CODE = 8
                   DEVICE TYPE = 1         (ie. UNA)
                   FORMAT VERSION = 1
                   PROGRAM TYPE = 2        (ie. system)
                   SOFTWARE ID = -1        (ie. loading standard software)
                   OTHER INFO :
                           MAINTENANCE VERSION = 3.0.0
                           FUNCTIONS = dependant on current UNA state
   Overview of the Diagnostic Product                               Page 22
   FUNCTIONAL DESCRIPTION                                         10 Jun 85                                                SEQ 0025


                           ...         the rest of this section depends on
                                       the current state of the UNA


       The host will now load down the PLUTO console  carrier  server  code
       into  the  PLUTO  UNA  WCS.   This  is a multiblock load.  The PLUTO
       console carrier server code is in the file PLUTOCC.SYS on the  PLUTO
       directory.

       The host sends the following message:

           MEMORY LOAD :
                   CODE = 2
                   LOAD NUMBER = starts at zero
                   LOAD ADDRESS = starting address to load this segment
                   IMAGE DATA = data to be loaded into the UNA's WCS


       The exact method for determining LOAD ADDRESS and  IMAGE  DATA  from
       the  file  PLUTOCC.SYS  will  be  determined  later.   The PLUTO UNA
       secondary loader will reply with a message in the following form:

           REQUEST MEMORY LOAD :
                   CODE = 10
                   LOAD NUMBER = number of next segment to load
                   ERROR = 0, if the last segment received correctly
                           1, if the last segment received was in error


       The sequence of MEMORY LOAD and REQUEST MEMORY LOAD is  repeated  as
       often as necessary to complete the load of the PLUTO console carrier
       server.  The load is terminated with a message of the form:

           PARAMETER LOAD WITH TRANSFER ADDRESS :
                   CODE = 20
                   LOAD NUMBER = matches the last REQUEST MEMORY LOAD value
                   PARAMETERS :
                           0               (ie. no parameters)
                   TRANSFER ADDRESS = starting address of Console Carrier server


       The actual value for TRANSFER ADDRESS will be determined later.

       At this stage the PLUTO console carrier server is loaded and running
       in  the  PLUTO UNA WCS.  The host should now issue a RESERVE CONSOLE
       request to attempt to get exclusive access  to  the  remote  console
       facility.  The format of the message is as follows:

           RESERVE CONSOLE :
                   CODE = 13


       The possible responses to the RESERVE CONSOLE message are  explained
       in a previous section.
   Overview of the Diagnostic Product                               Page 23
   FUNCTIONAL DESCRIPTION                                         10 Jun 85                                                SEQ 0026


       6.6  Remote Console Operation

       Once the remote  console  is  reserved,  a  timer  routine  will  be
       executed once per second.  The timer routine will transmit a console
       command and poll message to the server with any data which has  been
       typed  in by the user since the last transmit.  If any response data
       is received from the server, this data  will  be  displayed  on  the
       user's  terminal  exactly  as  it was received from the server.  The
       reservation timer for the server  must  be  specified  in  units  of
       seconds.   Since  the  requestor is polling at one second intervals,
       there is no problem with satisfying the requirement that the  server
       must be polled within the time specified by its reservation timer.
   Overview of the Diagnostic Product                               Page 24
   ERROR REPORTING PHILOSOPHY                                     10 Jun 85                                                SEQ 0027


   7.0  ERROR REPORTING PHILOSOPHY


        o  Report back to the user on functional errors.

        o  Hardware errors will be detected and  logged  by  the  Operating
           System.




       7.1  Reporting to SPEAR

       The following information will be logged into the System  Error  Log
       for SPEAR use.

        o  The current time when the remote console is reserved.

        o  The current time when the remote console is released.

        o  Port number/Node number.
   Overview of the Diagnostic Product                               Page 25
   OPEN ISSUES                                                    10 Jun 85                                                SEQ 0028


   8.0  OPEN ISSUES

   There must be some special character which will be  used  to  specify  a
   'BREAK' command in order to get the attention of micro-odt.  [Control-B]

   There must also be some special character to exit console carrier  mode.
   [Control-X]

   These  special  characters  should  be   agreed   upon   by   all   host
   implementations  (VMS  and TOPS).  At this point, there has not been any
   agreement on the details in these areas.

   The manner in which circuits  over  the  UNA  are  modelled  in  network
   management  has  not been defined as yet.  For DDCMP circuits, the owner
   is changed to the appropriate module (ex.  LOOPER)  and  the  state  and
   sub-state  of  the  circuit  is  set  according  to  the  operation (ex.
   on-looping).  There is currently no  definition  of  the  model  of  UNA
   circuits  which specifies that this information will be kept or how this
   information  will  be  passed  to  network  management  if  it  will  be
   collected.



   9.0  SCHEDULE


      Milestone            Target Date
      ---------            -----------

   1. Functional Spec      6 May 83
      Complete

   2. Design/Code          1 July 83
      Complete

   3. Begin Debug          5 July 83

   4. Complete Debug       15 July 83

   5. Documentation        29 July 83
      Complete

   6. Evaluation           5 Aug 83
      Complete

   7. Completed            12 Aug 83
   Overview of the Diagnostic Product                               Page 26
   BIBLIOGRAPHY                                                   10 Jun 85                                                SEQ 0029


   10.0  BIBLIOGRAPHY


        o  Diagnostic Engineering Project Plan For Support of the  Ethernet
           Port (KLNI) on KL10.
           Frank Gatulis / January 13,1983

        o  NI Node Product Architecture Specification

           / March 24,1982

        o  Digital Network Architecture - Low Level Maintenance  Operations
           Architectural Specification
           Bob Stewart, Ken Chapman / April 20,1982

        o  A PLUTO Implementation of a Console Carrier Server
           Paul Weiss / March 3,1982
   Overview of the Diagnostic Product                               Page 27
   GLOSSARY                                                       10 Jun 85                                                SEQ 0030


   11.0  GLOSSARY


            o  CCR    Console Carrier Requestor, (the NI Services Program)

            o  CCS    Console Carrier Server

            o  FCS    First Customer Ship

            o  KLNI   KL10 NI Ethernet Adapter

            o  N/A    Not Applicable

            o  NI     Network Interconnect (ETHERNET)

            o  PLUTO  Communications Controller

            o  RCS    Remote Console Service

            o  SCS    Systems Communications Services

            o  SPEAR  Standard Package for Error Analysis and Reporting

            o  TBD    To Be Determined

            o  UUT    Unit Under Test




   12.0  REVISION HISTORY

           Revision 0.1
           May 3, 1983
           John R.  Kirchoff
           The first mailing of this document.
   Overview of the Diagnostic Product                               Page 28
   ALGORITHMS                                                     10 Jun 85                                                SEQ 0031


   13.0  ALGORITHMS

   13.1  NI Services Program algorithm


           MODULE NIS
               Get node to connect to
               Check for required parameters in data base
               IF user is privileged THEN
                   Open circuit
                   IF NI circuit THEN
                       Set characteristics
                   ENDIF
                   CALL Reserve_console
                   IF success then
                       Clear exit_flag
                       WHILE exit_flag not set DO
                           CALL process_command
                       ENDWHILE
                       Call release_console
                   ENDIF
                   Close circuit
               ELSE
                   Display error messge
               ENDIF
           EXIT




   13.2  Normal Command Processing algorithm


           ROUTINE process_command
               WHILE exit not set DO
                   Complement message number
                   IF timer expired or character received THEN
                       IF character received = exit character THEN
                           Set exit
                       ELSE
                           Transmit console command and poll message
                           Display response if any
                       ENDIF
                   ELSE
                       Wait
                   ENDIF
   Overview of the Diagnostic Product                               Page 29
   ALGORITHMS                                                     10 Jun 85                                                SEQ 0032


   13.3  Reserve Remote Console algorithm


           ROUTINE reserve_console
               Clear error
               CALL transmit(request_id)[receive system id message]
               IF CCS not loaded THEN
                   CALL load_server
               ELSEIF CCS reserved by other node THEN
                   Display error message
                   Set error
               ELSEIF CCS reserved by local node THEN
                   CALL release_console
               ENDIF
               IF no error THEN
                   Retry = 0
                   Clear fatal_error
                   WHILE retry < 5 and not fatal_error and not success DO
                       IF no error THEN
                           CALL transmit(reserve_console)
                           CALL transmit(request_id)
                           IF reservation not successful THEN
                               IF not loaded THEN
                                   CALL load_server
                               ELSE
                                   Set fatal_error
                                   Display error message
                               ENDIF
                           ELSE
                               Get reservation timer from system id message
                               Message_number = 0
                               Set success
                           ENDIF
                      ENDIF
                   ENDWHILE
               ENDIF
           RETURN




   13.4  Release Remote Console algorithm


           ROUTINE release_console
               CALL transmit(release_console)
           RETURN
   Overview of the Diagnostic Product                               Page 30
   ALGORITHMS                                                     10 Jun 85                                                SEQ 0033


   13.5  Load Server Code algorithm


           ROUTINE load
               Transmit boot message - no service password
               IF no reply THEN
                   Transmit boot message - include service password
                   IF no reply THEN Set fatal error
               ENDIF
               WHILE no fatal error DO
                   Set secondary comm loader flag
                   WHILE no error and more to load DO
                       Open image and check for proper format
                       IF improper format THEN
                           Set file error
                       ELSE
                           Get start address, length, and transfer address
                           IF loading secondary comm loader THEN
                               Read entire image
                               Transmit memory load with transfer address
                           ELSE
                               Call multi-block load
                               Set retry counter to 0
                               WHILE no error and request memory load
                                              and req segment = load number DO
                                   Transmit memory load with transfer address
                                   IF no error and request memory load
                                               and req segment = load number
                                               and retry counter < 5 THEN
                                       Increment retry counter
                                   ELSE
                                       Increment load segment number
                                   ENDIF
                               ENDWHILE
                           ENDIF
                       ENDIF
                       IF no error THEN
                           Close file being loaded
                           IF loading server image THEN
                               IF request memory and segment = load number THEN
                                   Indicate no more to load
                               ELSE
                                   Set line protocol error
                               ENDIF
                           ELSE
                               IF request program received THEN
                                   Set file to load from Program Request
                               ELSE
                                   Set line protocol error
                               ENDIF
                           ENDIF
                       ENDIF
                   ENDWHILE
               ENDWHILE
           RETURN
   Overview of the Diagnostic Product                               Page 31
   ALGORITHMS                                                     10 Jun 85                                                SEQ 0034


   13.6  Multi-block Load algorithm


            ROUTINE multi-block_load
               Set Load Segment number to 0
               Set Requested Segment number to 0
               WHILE no error and more to load DO
                   Read a segment of memory from file
                   Set retry count to 0
                   WHILE no error and Requested Segment = Load Segment DO
                       Transmit Memory Load Message
                       IF no error THEN
                           IF Request Memory Load received THEN
                               Set Requested Segment number from message
                               IF Requested Segment = Load Segment THEN
                                   IF Retry count less than 5 THEN
                                       Increment retry count
                                   ELSE
                                       Set Line Communication error
                                   ENDIF
                               ELSE
                                   IF Req Segment .ne. Load Segment+1 THEN
                                       Set Line Protocol error
                                   ENDIF
                               ENDIF
                           ELSE
                               Set Line Protocol error
                           ENDIF
                       ENDIF
                   ENDWHILE
               Increment Load Segment number
               ENDWHILE
           RETURN
RMTCON LST                                                              DECDOC VER  00.24   10-JUN-85 17:01:57   PAGE 1             
                                                                                                                           SEQ 0035




















				   DOCUMENT
				**************
				  RMTCON LST
				**************

















		    COPYRIGHT 1985
		    DIGITAL EQUIPMENT CORPORATION
		    MAYNARD, MASS. 01754
RMTCON LST                                                              DECDOC VER  00.24   10-JUN-85 17:01:57   PAGE 2             
                                                                                                                           SEQ 0036

				 TABLE OF CONTENTS
				*******************


	1	

	51	*RELOC* [KC10] RELOCATABLE CONTROL AND DISPATCH STORAGE

	57	COMMAND PARSING TABLES

	164	TOP LEVEL PARSER

	205	CONNECT PORT/NODE COMMAND

	268	ENABLE COMMAND

	302	DISABLE COMMAND

	339	REDEFINE COMMAND

	382	HELP COMMAND

	418	REQUEST ID COMMAND

	448	SET PASSWORD

	468	READ COUNTERS COMMAND

	492	DISPLAY COMMAND

	545	SHOW COMMAND

	1	RMTCNM

	57	INITIAL START UP

	116	REMOTE TERMINAL OPERATION

	240	TERMINAL INPUT INTERRUPT HANDLER

	293	RCSND INTERRUPT HANDLER

	343	RCPOL INTERRUPT HANDLER

	447	SAVE/RESTORE TERMINAL PARAMETERS

	503	REMOTE TERMINAL STORAGE
RMTCON LST                                                              DECDOC VER  00.24   10-JUN-85 17:01:57   PAGE 3             
                                                                                                                           SEQ 0037

				 TABLE OF CONTENTS
				*******************


	535	INTERRUPT CHANNEL & LEVEL TABLES

	587	RCRID SUBROUTINE

	657	RCRCT SUBROUTINE

	726	RCRBT SUBROUTINE

	801	RCRPY SUBROUTINE

	873	RCRSV SUBROUTINE

	941	RCREL SUBROUTINE

	1005	RCSND SUBROUTINE

	1093	RCPOL SUBROUTINE

	1170	RCABT SUBROUTINE

	1222	RCSTS SUBROUTINE

	1308	RCADR SUBROUTINE

	1369	LLMOP SUBROUTINE

	1407	RDSTIM SUBROUTINE

	1455	HEX SUBROUTINE

	1527	REJUS SUBROUTINE

	1578	PWSWAP SUBROUTINE

	1617	PRINT 12 DIGIT HEX NUMBER SUBROUTINE

	1664	ASCIZ A 12 DIGIT HEX NUMBER SUBROUTINE

	1746	SPEAR SUBROUTINES

	1861	RESERVE CONSOLE

	2259	RELEASE CONSOLE
RMTCON LST                                                              DECDOC VER  00.24   10-JUN-85 17:01:57   PAGE 4             
                                                                                                                           SEQ 0038

				 TABLE OF CONTENTS
				*******************


	2406	SHOW ALL NODE ADDRESSES ON NETWORK

	2499	REQUEST ID DECODING AND REPORTING OF MESSAGE SUBROUTINES

	3331	DEBUG TABLE FOR PRINTING SYS-ID INFO

	3477	READ COUNTERS REPORTING

	3679	READ COUNTER BYTES & PRINT

	3703	DEBUG TABLE FOR PRINTING READ COUNTERS INFORMATION

	3784	STATUS FLAG REPORTING

	3846	SPEAR REPORTING SUBROUTINES

	4057	GENERAL STORAGE
RMTCON LST                                                              DECDOC VER  00.24   10-JUN-85 17:01:57   PAGE 5             
                                                                                                                           SEQ 0039
		*****************************************************************
	1	RMTCON
		*****************************************************************

		*****************************************************************
	51	*RELOC* [KC10] RELOCATABLE CONTROL AND DISPATCH STORAGE
		*****************************************************************

		*****************************************************************
	57	COMMAND PARSING TABLES
		*****************************************************************

		*****************************************************************
	164	TOP LEVEL PARSER
		*****************************************************************

		*****************************************************************
	205	CONNECT PORT/NODE COMMAND
		*****************************************************************

		*****************************************************************
	268	ENABLE COMMAND
		*****************************************************************

		*****************************************************************
	302	DISABLE COMMAND
		*****************************************************************

		*****************************************************************
	339	REDEFINE COMMAND
		*****************************************************************

		*****************************************************************
	382	HELP COMMAND
		*****************************************************************

		*****************************************************************
	418	REQUEST ID COMMAND
		*****************************************************************
RMTCON LST                                                              DECDOC VER  00.24   10-JUN-85 17:01:57   PAGE 6             
                                                                                                                           SEQ 0040
		*****************************************************************
	448	SET PASSWORD
		*****************************************************************

		*****************************************************************
	468	READ COUNTERS COMMAND
		*****************************************************************

		*****************************************************************
	492	DISPLAY COMMAND
		*****************************************************************

		*****************************************************************
	545	SHOW COMMAND
		*****************************************************************

		568	 QUIT command - Exit this program (NI SERVER) & return to system monitor.

		*****************************************************************
	1	RMTCNM
		*****************************************************************

		*****************************************************************
	57	INITIAL START UP
		*****************************************************************

		*****************************************************************
	116	REMOTE TERMINAL OPERATION
		*****************************************************************

		*****************************************************************
	240	TERMINAL INPUT INTERRUPT HANDLER
		*****************************************************************

		*****************************************************************
	293	RCSND INTERRUPT HANDLER
		*****************************************************************

		*****************************************************************
	343	RCPOL INTERRUPT HANDLER
		*****************************************************************
RMTCON LST                                                              DECDOC VER  00.24   10-JUN-85 17:01:57   PAGE 7             
                                                                                                                           SEQ 0041
		*****************************************************************
	447	SAVE/RESTORE TERMINAL PARAMETERS
		*****************************************************************

		*****************************************************************
	503	REMOTE TERMINAL STORAGE
		*****************************************************************

		*****************************************************************
	535	INTERRUPT CHANNEL & LEVEL TABLES
		*****************************************************************

		*****************************************************************
	587	RCRID SUBROUTINE
		*****************************************************************

		589	 RCRID subroutine

		*****************************************************************
	657	RCRCT SUBROUTINE
		*****************************************************************

		659	 RCRCT subroutine

		*****************************************************************
	726	RCRBT SUBROUTINE
		*****************************************************************

		728	 RCRBT subroutine 

		*****************************************************************
	801	RCRPY SUBROUTINE
		*****************************************************************

		803	 RCRPY subroutine

		*****************************************************************
	873	RCRSV SUBROUTINE
		*****************************************************************

		875	 RCRSV subroutine
RMTCON LST                                                              DECDOC VER  00.24   10-JUN-85 17:01:57   PAGE 8             
                                                                                                                           SEQ 0042
		*****************************************************************
	941	RCREL SUBROUTINE
		*****************************************************************

		943	 RCREL subroutine

		*****************************************************************
	1005	RCSND SUBROUTINE
		*****************************************************************

		1007	 RCSND subroutine - SEND CONSOLE COMMAND

		*****************************************************************
	1093	RCPOL SUBROUTINE
		*****************************************************************

		1095	 RCPOL subroutine - CONSOLE RESPONSE POLL

		*****************************************************************
	1170	RCABT SUBROUTINE
		*****************************************************************

		1172	 RCABT subroutine - ABORT OUTSTANDING REMOTE CONSOLE REQUEST.

		*****************************************************************
	1222	RCSTS SUBROUTINE
		*****************************************************************

		1224	 RCSTS - OBTAIN REMOTE CONSOLE REQUEST STATUS

		*****************************************************************
	1308	RCADR SUBROUTINE
		*****************************************************************

		1310	 RCADR subroutine - READ LOCAL ADDRESS

		*****************************************************************
	1369	LLMOP SUBROUTINE
		*****************************************************************
RMTCON LST                                                              DECDOC VER  00.24   10-JUN-85 17:01:57   PAGE 9             
                                                                                                                           SEQ 0043
		*****************************************************************
	1407	RDSTIM SUBROUTINE
		*****************************************************************

		1409	 Rdstim subroutine

		1432	 OTIME subroutine

		*****************************************************************
	1455	HEX SUBROUTINE
		*****************************************************************

		1457	 HEX subroutine

		*****************************************************************
	1527	REJUS SUBROUTINE
		*****************************************************************

		1529	 REJUS  subroutine

		*****************************************************************
	1578	PWSWAP SUBROUTINE
		*****************************************************************

		1580	 PWSWAP  subroutine

		*****************************************************************
	1617	PRINT 12 DIGIT HEX NUMBER SUBROUTINE
		*****************************************************************

		1619	 PRHEX prints a 12 digit hex node address.

		*****************************************************************
	1664	ASCIZ A 12 DIGIT HEX NUMBER SUBROUTINE
		*****************************************************************

		1666	 UHEX subroutine

		*****************************************************************
	1746	SPEAR SUBROUTINES
		*****************************************************************
RMTCON LST                                                              DECDOC VER  00.24   10-JUN-85 17:01:57   PAGE 10            
                                                                                                                           SEQ 0044
		*****************************************************************
	1861	RESERVE CONSOLE
		*****************************************************************

		*****************************************************************
	2259	RELEASE CONSOLE
		*****************************************************************

		*****************************************************************
	2406	SHOW ALL NODE ADDRESSES ON NETWORK
		*****************************************************************

		2408	  SALLAD subroutine	Called from SALLNO (Show all Nodes) in RMTCNP

		*****************************************************************
	2499	REQUEST ID DECODING AND REPORTING OF MESSAGE SUBROUTINES
		*****************************************************************

		2501	 RRID subroutine     Called from REQU (Req-ID command) in RMTCNP.

		*****************************************************************
	3331	DEBUG TABLE FOR PRINTING SYS-ID INFO
		*****************************************************************

		*****************************************************************
	3477	READ COUNTERS REPORTING
		*****************************************************************

		*****************************************************************
	3679	READ COUNTER BYTES & PRINT
		*****************************************************************

		*****************************************************************
	3703	DEBUG TABLE FOR PRINTING READ COUNTERS INFORMATION
		*****************************************************************

		*****************************************************************
	3784	STATUS FLAG REPORTING
		*****************************************************************

		3786	 RDFLGS Subroutine - Come here after doing "GO RCSTS"
RMTCON LST                                                              DECDOC VER  00.24   10-JUN-85 17:01:57   PAGE 11            
                                                                                                                           SEQ 0045
		*****************************************************************
	3846	SPEAR REPORTING SUBROUTINES
		*****************************************************************

		*****************************************************************
	4057	GENERAL STORAGE
		*****************************************************************

		4059	  General Program Storage 
RMTCON DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:47 10-Jun-85 Page 1
RMTCNT	MAC	10-Jun-85 15:17		RMTCON                                                                             SEQ 0046

     1					SUBTTL	RMTCON
     2
     3			000000		DECVER==0
     4			000001		MCNVER==1
     5
     6
     7						XLIST
     8						LIST
     9						LALL
    10
    11					NAME	\MCNVER,\DECVER^
    12
    13					TITLE	RMTCON DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0^
    14
    15					; ****************************************************************
    16					; This "NI SERVER" runs under "TOPS20" only.			 !
    17					; ****************************************************************
    18
    19					;"COPYRIGHT 1984"
    20					;"LARGE SYSTEMS DIAGNOSTICS GROUP"
    21					;"DIGITAL EQUIPMENT CORPORATION"
    22					;"MARLBORO, MASS. 01752"
    23
    24					;"GARY PAPAZIAN"
    25
    26	000137					LOC	137
    27	000137	000001	000000		MCNVER,,DECVER
    28	000000'					RELOC
    29
    30						NOSYM
    31					SEARCH	KCUNV,MONSYM,MACSYM,UUOSYM
    32						SALL
    33
    34			000000		DEBUG==0				;No debug area
    35			000000		EXCASB==0				;No exec mode
    36			000001		USRASB==1				;User mode
    37			000000		MEMMAP==0
    38			000001		PGMEND==1
    39			400000		IPAG=400000
    40
    41					.REQUIRE	RMTCNP
    42					.REQUIRE	RMTCNM
    43
    44					; **************************
    45					; * Externals and internals *
    46					; **************************
    47
    48					INTERN	IPAG,DECVER,MCNVER
    49					EXTERN	PGMNAM,START,STARTA
RMTCON DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:47 10-Jun-85 Page 2
RMTCNT	MAC	10-Jun-85 15:17		RMTCON                                                                             SEQ 0047

    50
    51					SUBTTL	*RELOC* [KC10] RELOCATABLE CONTROL AND DISPATCH STORAGE
    52
    53					EXTERN	START,STARTA,PGMNAM,MODCHK,SUBINI
    54			000000		DDTLNK=:0				;Ddt linkage address (no ddt)
    55
    56					; ************************************************************
    57					; Program starting addresses
    58					; These addresses call various special start routines and or options
    59					; Normal start address is 140 all others are special.
    60					; ************************************************************
    61
    62	000000'	254 00 0 00 000000*	BEGIN::	JRST	MODCHK			;Mode check starting address
    63
    64	000001'	254 00 0 00 000000*	$START::JRST	START			;Stand-alone start
    65
    66	000002'	254 00 0 00 000001'	DIAGMN::JRST	$START			;Diagnostic monitor start
    67
    68	000003'	254 00 0 00 000001'	SYSEXR::JRST	$START			;System exerciser start
    69
    70						IFNDEF	SADR1,<SADR1=BEGIN>
    71	000004'	254 00 0 00 000000'	SFSTRT::JRST	SADR1			;Special feature start
    72
    73						IFNDEF	SADR2,<SADR2=BEGIN>
    74	000005'	254 00 0 00 000000'	PFSTRT::JRST	SADR2			;Power fail restart
    75
    76						IFNDEF	SADR3,<SADR3=BEGIN>
    77	000006'	254 00 0 00 000000'	REENTR::JRST	SADR3			;Reenter start
    78
    79	000007'	254 00 0 00 000001'	DDTSRT::JRST	$START			;Ddt start
    80
    81	000010'	254 00 0 00 000000*	SBINIT::JRST	SUBINI			;Pmgint linkage
    82
    83	000011'	000000	000000		RETURN::0				;Return address storage
    84
    85	000012'	000000	000001		ITRCNT::1				;Program iterations
    86
    87						IFNDEF	ABTADR,<ABTADR=0>
    88	000013'	000000	000000		ABORT::	ABTADR				;Abort routine address
    89
    90						IFNDEF	TLTADR,<TLTADR=0>
    91	000014'	000000	000000		TOTALS::TLTADR				;Totals routine address
    92
    93	000015'	000000	000000			0				;Reserved
    94	000016'	000000	000000			0
    95	000017'	000000	000000			0
RMTCON DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:47 10-Jun-85 Page 2
RELOC	KCM	22-Apr-83 09:26		*RELOC* [KC10] RELOCATABLE CONTROL AND DISPATCH STORAGE                            SEQ 0048

    96
    97					; ************************************************************
    98					; Special program dispatch addresses
    99					; ************************************************************
   100
   101	000020'	037 01 0 00 000003 	BEGEND::ENDPASS				;End of pass
   102	000021'	254 00 0 00 000000*	$BEND1::JRST	STARTA			;Keep running program
   103	000022'	037 02 0 00 000003 	$BEND2::EOPROG				;End of program - no return
   104
   105	000023'	350 00 0 17 000000 	CPOPJ1::AOS	(P)			;Skip return
   106	000024'	263 17 0 00 000000 	CPOPJ::	RTN				;Non-skip regular return
   107
   108					; ************************************************************
   109					; Program fixed parameter area
   110					; ************************************************************
   111
   112						IFNDEF	PAREA1,<PAREA1=0>
   113	000025'	000000	000000		RANDBS::PAREA1				;Random base number
   114	000026'	000000000000#		P%NAME::PGMNAM				;Pointer to programs name
   115	000027'	000001	000000		P%VER::	MCNVER,,DECVER			;Mcn & dec version level
   116	000030'	000000	000000		$EMODE::EXCASB				;Exec allowed if -1
   117	000031'	000000	000001		$UMODE::USRASB				;User allowed if -1
   118	000032'	000000	000000		$MMAP::	MEMMAP				;Allow memory rtns if -1
   119
   120					; ************************************************************
   121					; Uuo dispatch table
   122					; ************************************************************
   123						XLIST
   124						LIST
   125
   126	000033'	000161'	000161'		U%DTBL::LUUO1,,U%ERR
   127	000034'	000161'	000161'			LUUO3,,LUUO2
   128	000035'	000161'	000161'			LUUO5,,LUUO4
   129	000036'	000161'	000161'			LUUO7,,LUUO6
   130	000037'	000161'	000161'			LUUO11,,LUUO10
   131	000040'	000161'	000161'			LUUO13,,LUUO12
   132	000041'	000161'	000161'			LUUO15,,LUUO14
   133	000042'	000161'	000161'			LUUO17,,LUUO16
   134	000043'	000161'	000161'			LUUO21,,LUUO20
   135	000044'	000161'	000161'			LUUO23,,LUUO22
   136	000045'	000161'	000161'			LUUO25,,LUUO24
   137	000046'	000161'	000161'			LUUO27,,LUUO26
   138	000047'	000161'	000161'			LUUO31,,LUUO30
   139	000050'	000161'	000161'			LUUO33,,LUUO32
RMTCON DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:47 10-Jun-85 Page 3
RELOC	KCM	22-Apr-83 09:26		*RELOC* [KC10] RELOCATABLE CONTROL AND DISPATCH STORAGE                            SEQ 0049

   140
   141					; ************************************************************
   142					; 'Comnd' command parsing parameters
   143					; ************************************************************
   144
   145	000051'	014000	000000		INIT::	014000,,000000			;.Cmini - 'comnd' initialization
   146	000052'	000000	000000			0
   147	000053'	010000	000000		CFM::	010000,,000000			;.Cmcfm - 'comnd' confirm
   148	000054'	000000	000000			0
   149
   150					; ************************************************************
   151					; Program variable parameter area
   152					; ************************************************************
   153
   154	000055'	000000	000000		USER::	0				;0 = Exec, -1 = user mode flag
   155	000056'	000000	000000		MONTYP::0				;0 = Tops10, -1 = tops20
   156	000057'	000000	000000		MONFLG::0				;Diag monitor special user flag
   157	000060'	000000	000000		MONCTL::0				;Diag mon/sys exr flag
   158	000061'	000000	000000		MONTEN::0				;-1= Loaded by 10
   159	000062'	000000	000000		SERNBR::0				;Processor serial number
   160	000063'	000000	000000		CONSW::	0				;Console switch settings
   161	000064'	000000	000000		PASCNT::0				;Program pass count
   162	000065'	000000	000000		RUNFLG::0				;Program run flag
   163	000066'	000000	000000		TESTPC::0				;Subtest pc
   164	000067'	000000	000000		TESTNBR::0				;Subtest number
   165	000070'	000000	000000		CLOCKF::0				;Clock ticked flag
   166	000071'	000000	000000		CLKCNT::0				;Clock tick counter
   167	000072'	000000	000000		TIMERF::0				;Interval timer ticked flag
   168	000073'	000000	000000		TMRCNT::0				;Interval timer tick counter
   169	000074'	000000	000000		PVPAGI::0				;If n=0, override "INHPAG" switch action
   170	000075'	000000	000000		CSHFLG::0				;Allow cache if 0
   171	000076'	000000	000000		CSHMEM::0				;Cache memory segments if zero
   172	000077'	000000	000000		$ONETM::0				;Subroutine initialization flag
   173	000100'	000000	000000		PG%END::0				;If n=0, xct'd by 'eopuuo' before ending prog
   174	000101'	000000	000000		S%TOGGLE::0				;If n=0, use c(consw) for switches
   175	000102'	000000	000000		SWPTAB::0				;0 = No prompt, adr = adr of sixbit prompt table
   176
   177	000103'	000000	000000		CC%FLG::0				;Control-c flag
   178	000104'	000000	000000		CY%FLG::0				;Control-y flag
   179	000105'	000000	000000		CD%FLG::0				;Control-d flag
   180	000106'	000000	000000		CC%PRE::0				;^C check pre-routine
   181	000107'	000000	000000		CC%POST::0				;^C check post-routine
   182	000110'	000000	000000		CY%PRE::0				;^Y pre-routine
   183	000111'	000000	000000		CY%POST::0				;^Y post-routine
   184	000112'	000000	000000		CY%ACT::0				;^Y activated flag
   185	000113'	000000	000000		C%PSTK::0				;Saved parser stack pointer
   186	000114'	000000	000000		C%CCADR::0				;^C transfer address
RMTCON DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:47 10-Jun-85 Page 4
RELOC	KCM	22-Apr-83 09:26		*RELOC* [KC10] RELOCATABLE CONTROL AND DISPATCH STORAGE                            SEQ 0050

   187
   188					; ************************************************************
   189					; Error handler parameters
   190					; ************************************************************
   191
   192	000115'	000000	000000		ERRPC::	0				;Error pc
   193	000116'	000000	000000		ERRNBR::0				;Error [test#,,error#]
   194	000117'	000000	000000		ERRTLS::0				;Error totals
   195	000120'	000000	000000		ERMORE::0				;Additional error handler linkage
   196	000121'	000000	000000		REPTU::	0				;Repeat uuo iterations
   197	000122'	000000	000000		SCOPE::	0				;Error handler scope loop flag
   198	000123'	000000	000000		E%LUUO::0				;Error luuo
   199	000124'	000000	000000		E%ERPC::0				;Error pc
   200	000125'	000000	000000		E%FMT::	0				;Error format, 0=pc, -1=#
   201	000126'	000000	000000		E%ERFLG::0				;Error flag, -1=use repeat ac's
   202	000127'	000000	000000		E%CORFL::0				; " CORRECT FLAG
   203	000130'	000000	000000		E%COREC::0				; " CORRECT DATA
   204	000131'	000000	000000		E%ACTFL::0				; " ACTUAL FLAG
   205	000132'	000000	000000		E%ACTUL::0				; " ACTUAL DATA
   206	000133'	000000	000000		E%DISCR::0				; " DISCREPENCY DATA
   207	000134'	000000	000000		E%ERH1::0				;If n=0, xct'd at start of %eruuo
   208	000135'	000000	000000		E%ERH2::0				;If n=0, xct'd at end of %eruuo
   209	000136'	000000	000000		E%ERH3::0				;If n=0, xct'd after "PC" of %eruuo
   210
   211					; ************************************************************
   212					; Processor interrupt control storage
   213					; ************************************************************
   214
   215	000137'	000000	000000		ITRCH1::0				;Pc & flags of current interrupt
   216	000140'	000000	000000			0
   217	000141'	000000	000000			0				;New pc and flags
   218	000142'	000000	000000			0
   219
   220	000143'	000000	000000		I%AC0::	0				;Interrupt saved ac0
   221	000144'	000000	000000		I%SVPI::0				;Interrupt saved pi
   222	000145'	000000	000000		I%SVAPR::0				;Interrupt saved apr
   223
   224	000146'	000000	000000		I%ITRX::0				;Additional interrupt linkage
   225	000147'	000000	000000		I%ITRY::0				; "
   226	000150'	000000	000000		I%PWRX::0				;Additional power fail linkage
   227	000151'	000000	000000		I%PWRY::0				; "
   228
   229	000152'	000000	000000		I%LEVTAB::0				;Tops-20 software interrupt levtab address
   230	000153'	000000	000000		I%CHNTAB::0				;Tops-20 software interrupt chntab address
   231	000154'					BLOCK	3			;Unused (was old i%lxpc)
RMTCON DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:47 10-Jun-85 Page 5
RELOC	KCM	22-Apr-83 09:26		*RELOC* [KC10] RELOCATABLE CONTROL AND DISPATCH STORAGE                            SEQ 0051

   232
   233					; ************************************************************
   234					; Uuo control
   235					; ************************************************************
   236
   237	000157'	000000	000000		U%USRTN::0				;Additional users uuo routine
   238	000160'	000000	000000		U%RTX::	0				;Additional uuo linkage
   239	000161'	000000	000000		U%ERR::	0				;Inited as (jrst $uoerx)
   240	000162'	000000	000000		U%SVUUO::0				;Current users uuo
   241	000163'	000000	000000		U%SVUPC::0				;Pc of current users uuo
   242	000164'	000000	000000		U%UUO::	0				;If n=0, xct'd at start of $uortn
   243	000165'	000000	000000		M%MUUO::0				;If n=0, xct'd at start of muuoer
   244
   245					; ************************************************************
   246					; Memory managment storage
   247					; ************************************************************
   248
   249	000166'	000000	000000		MAPNEW::0				;Memory mapping control flag, -1 = 32m mapping
   250	000167'	000000	000000		MEMTOT::0				;Total memory size in k (1024.)
   251	000170'	000000	000000		MEMLOW::0				;Lowest usable memory
   252	000171'				MEMSIZ::BLOCK ^D41			;Memory segment pointer table
RMTCON DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:47 10-Jun-85 Page 6
RELOC	KCM	22-Apr-83 09:26		*RELOC* [KC10] RELOCATABLE CONTROL AND DISPATCH STORAGE                            SEQ 0052

   253
   254					; ************************************************************
   255					; Print control storage
   256					; ************************************************************
   257
   258	000242'	000000	000000		P%FLAG::0				;Print flag, -1 while in print routine
   259	000243'	000000	000000		P%ENABLE::0				;Print enable, -cnt of allowed output lines
   260
   261	000244'	000000	000000		P%FORCE::0				;Set for forced printout
   262	000245'	000000	000000		P%FRCALL::0				;Print force all override
   263	000246'	000000	000000		P%FCRLF::0				;Print free cr/lf flag (at column 80)
   264	000247'	000000	000000		P%OPTR::0				;Byte pointer for output buffer
   265	000250'	000000	000000		P%OUTP::0				;Starting address of output buffer
   266	000251'	000000	000000		P%LFGO::0				;Continue after line feed
   267	000252'	000000	000000		P%NOTYP::0				;Prevent terminal output
   268	000253'	000000	000000		P%XOFF::0				;Xoff flag
   269	000254'	000000	000000		P%SAV::	0				;Print temporary save word
   270	000255'	000000	000000		P%PNT::	0				;Print misc control flag
   271	000256'	000000	000000		P%CARCT::0				;Print character position count
   272	000257'	000000	000000		P%DISF::0				;Print disabled flag
   273	000260'	000000	000000		P%INHIBIT::0				;Print inhibit (control-o)
   274	000261'	000000	000000		P%TINH::0				;Inhibit print input checks
   275	000262'	000000	000000		P%SPACE::0				;Print space control
   276	000263'	000000	000000		P%TABF::0				;Tab conversion flag
   277	000264'	000000	000000		P%DVOFF::0				;Logical device inited flag
   278
   279	000265'	000000	000000		P%RADIX::0				;Decimal print radix (^d10)
   280	000266'	000000	000000		P%RADLC::0				;Decimal print leading char (space)
   281	000267'	000000	000000		P%RADCNT::0				;Decimal print leading char count (^d10)
   282
   283	000270'	000000	000000		P%PAX1::0				;If n=0, xct'd after printing cr/lf
   284	000271'	000000	000000		P%UERR::0				;If n=0, xct'd at end of user mode error
RMTCON DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:47 10-Jun-85 Page 7
RELOC	KCM	22-Apr-83 09:26		*RELOC* [KC10] RELOCATABLE CONTROL AND DISPATCH STORAGE                            SEQ 0053

   285
   286					; ************************************************************
   287					; Typein control storage
   288					; ************************************************************
   289
   290	000272'	000000	000000		T%TWAIT::0				;Type-in wait time
   291	000273'	000000	000000		T%TIMW::0				;Time waited
   292	000274'	000000	000000		T%CHAR::0				;Actual typed in char
   293	000275'	000000	000000		T%CHRIN::0				;Upper cased & parity stripped char
   294	000276'	000000	000000		T%NUMB::0				;Typed in number
   295	000277'	000000	000000		T%DIGIT::0				;-1 If any digit typed
   296	000300'	000000	000000		T%NEG::	0				;Negate flag
   297	000301'	000000	000000		T%CNV::	0				;Decimal convert flag
   298
   299	000302'	000000	000000		T%CDADR::0				;Control-d dispatch address
   300
   301	000303'	000000	000000		T%IPTR::0				;Typein input byte pointer
   302	000304'	000000	000000		T%INP::	0				;Address of typein input buffer
   303
   304	000305'	000000	000000		T%TAX1::0				;If n=0, xct'd at start of altmode switch call
   305	000306'	000000	000000		T%TAX2::0				;If n=0, xct'd at end of altmode switch call
   306
   307	000307'	000000	000000		T%TAX3::0				;If n=0, xct'd at end of altmode ^d
   308
   309					; ************************************************************
   310					; User mode output file information
   311					; ************************************************************
   312
   313	000310'	000000	000000		P%DSKF::0				;Print on the disk
   314	000311'	000000	000000		P%T20::	0				;Print tops-20 file name style
   315	000312'	000000	000000		P%T20P::0				;Print tops-20 pointer to file name
   316	000313'	000000	000000		P%DJFN::0				;Print tops-20 logical device jfn
   317	000314'				P%OHDR::BLOCK	3			;Logical file output buffer header
   318	000317'	000000	000000		P%OUTNM::0				;File name
   319	000320'	000000	000000		P%OUTEX::0				;File name extension
   320	000321'					BLOCK	2
RMTCON DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:47 10-Jun-85 Page 8
RELOC	KCM	22-Apr-83 09:26		*RELOC* [KC10] RELOCATABLE CONTROL AND DISPATCH STORAGE                            SEQ 0054

   321
   322					; ************************************************************
   323					; Power fail ac save storage
   324					; ************************************************************
   325
   326	000323'				POWER::	BLOCK	^D16
   327
   328					; ************************************************************
   329					; Pushdown list control information
   330					; ************************************************************
   331
   332	000343'	000000	000000		$PSHER::0				;Inited as (jrst psherr)
   333	000344'	000000	000000		PLIST::	0				;Base pointer (plist-pliste,,plist)
   334	000345'				PLISTS::BLOCK	200
   335	000545'	000000	000000		PLISTE::0				;End of pushdown list
   336
   337					; ************************************************************
   338					; Special future expansion room
   339					; ************************************************************
   340
   341	000546'	000000	000000		$ATOM::	0				;Adr of command atom buffer
   342	000547'	000000	000000		$GTJFNB::0				;Adr of file name block
   343	000550'	000000	000000		$IPAG::	0				;Adr of input page
   344
   345	000551'	000000	000000		T%TERM::0				;Terminal type
   346	000552'	000000	000000		T%TWD::	0				;Terminal width
   347	000553'	000000	000000		T%TLEN::0				;Terminal length
   348
   349	000554'	000000	000000		C%FIRST::0				;If n=0, xct'd before first parse
   350
   351	000555'	000000	000000		U%SVPC::0				;Pc of luuo
   352
   353	000556'	000000	000000		I%L1FL::0				;Tops-20 level 1 interrupt flags
   354	000557'	000000	000000		I%L1PC::0				;Tops-20 level 1 interrupt pc
   355
   356	000560'	000000	000000		I%L2FL::0				;Tops-20 level 2 interrupt flags
   357	000561'	000000	000000		I%L2PC::0				;Tops-20 level 2 interrupt pc
   358
   359	000562'	000000	000000		I%L3FL::0				;Tops-20 level 3 interrupt flags
   360	000563'	000000	000000		I%L3PC::0				;Tops-20 level 3 interrupt pc
   361
   362					; ************************************************************
   363					; End of fixed storage
   364					; ************************************************************
   365
   366	000564'	000000	000000		ENDFIX::0				;End of fixed storage
   367
   368						END

NO ERRORS DETECTED

PROGRAM BREAK IS 000565
CPU TIME USED 00:02.850

127P CORE USED
ABORT	    88#
ABTADR	    87	    88                                                                                                     SEQ 0055
BEGEND	   101#
BEGIN	    62#
C%CCAD	   186#
C%FIRS	   349#
C%PSTK	   185#
CC%FLG	   177#
CC%POS	   181#
CC%PRE	   180#
CD%FLG	   179#
CFM	   147#
CLKCNT	   166#
CLOCKF	   165#
CONSW	   160#
CPOPJ	   106#
CPOPJ1	   105#
CSHFLG	   170#
CSHMEM	   171#
CY%ACT	   184#
CY%FLG	   178#
CY%POS	   183#
CY%PRE	   182#
DDTLNK	    54#
DDTSRT	    79#
DEBUG	    34#
DECVER	     3#	    11	    27	    48	   115
DIAGMN	    66#
E%ACTF	   204#
E%ACTU	   205#
E%CORE	   203#
E%CORF	   202#
E%DISC	   206#
E%ERFL	   201#
E%ERH1	   207#
E%ERH2	   208#
E%ERH3	   209#
E%ERPC	   199#
E%FMT	   200#
E%LUUO	   198#
ENDFIX	   366#
ERMORE	   195#
ERRNBR	   193#
ERRPC	   192#
ERRTLS	   194#
EXCASB	    35#	   116
I%AC0	   220#
I%CHNT	   230#
I%ITRX	   224#
I%ITRY	   225#
I%L1FL	   353#
I%L1PC	   354#
I%L2FL	   356#
I%L2PC	   357#
I%L3FL	   359#                                                                                                            SEQ 0056
I%L3PC	   360#
I%LEVT	   229#
I%PWRX	   226#
I%PWRY	   227#
I%SVAP	   222#
I%SVPI	   221#
INIT	   145#
IPAG	    39#	    48
ITRCH1	   215#
ITRCNT	    85#
LUUO1	   124	   124#	   126
LUUO10	   124	   124#	   130
LUUO11	   124	   124#	   130
LUUO12	   124	   124#	   131
LUUO13	   124	   124#	   131
LUUO14	   124	   124#	   132
LUUO15	   124	   124#	   132
LUUO16	   124	   124#	   133
LUUO17	   124	   124#	   133
LUUO2	   124	   124#	   127
LUUO20	   124	   124#	   134
LUUO21	   124	   124#	   134
LUUO22	   124	   124#	   135
LUUO23	   124	   124#	   135
LUUO24	   124	   124#	   136
LUUO25	   124	   124#	   136
LUUO26	   124	   124#	   137
LUUO27	   124	   124#	   137
LUUO3	   124	   124#	   127
LUUO30	   124	   124#	   138
LUUO31	   124	   124#	   138
LUUO32	   124	   124#	   139
LUUO33	   124	   124#	   139
LUUO4	   124	   124#	   128
LUUO5	   124	   124#	   128
LUUO6	   124	   124#	   129
LUUO7	   124	   124#	   129
M%MUUO	   243#
MAPNEW	   249#
MCNVER	     4#	    11	    27	    48	   115
MEMLOW	   251#
MEMMAP	    37#	   118
MEMSIZ	   252#
MEMTOT	   250#
MODCHK	    53#	    62
MONCTL	   157#
MONFLG	   156#
MONTEN	   158#
MONTYP	   155#
P	   105
P%CARC	   271#
P%DISF	   272#
P%DJFN	   316#                                                                                                            SEQ 0057
P%DSKF	   313#
P%DVOF	   277#
P%ENAB	   259#
P%FCRL	   263#
P%FLAG	   258#
P%FORC	   261#
P%FRCA	   262#
P%INHI	   273#
P%LFGO	   266#
P%NAME	   114#
P%NOTY	   267#
P%OHDR	   317#
P%OPTR	   264#
P%OUTE	   319#
P%OUTN	   318#
P%OUTP	   265#
P%PAX1	   283#
P%PNT	   270#
P%RADC	   281#
P%RADI	   279#
P%RADL	   280#
P%SAV	   269#
P%SPAC	   275#
P%T20	   314#
P%T20P	   315#
P%TABF	   276#
P%TINH	   274#
P%UERR	   284#
P%VER	   115#
P%XOFF	   268#
PAREA1	   112	   113
PASCNT	   161#
PFSTRT	    74#
PG%END	   173#
PGMEND	    38#
PGMNAM	    49#	    53#	   114
PLIST	   333#
PLISTE	   335#
PLISTS	   334#
POWER	   326#
PVPAGI	   169#
RANDBS	   113#
REENTR	    77#
REPTU	   196#
RETURN	    83#
RUNFLG	   162#
S%TOGG	   174#
SADR1	    70	    71
SADR2	    73	    74
SADR3	    76	    77
SBINIT	    81#
SCOPE	   197#
SERNBR	   159#                                                                                                            SEQ 0058
SFSTRT	    71#
START	    49#	    53#	    64
STARTA	    49#	    53#	   102
SUBINI	    53#	    81
SWPTAB	   175#
SYSEXR	    68#
T%CDAD	   299#
T%CHAR	   292#
T%CHRI	   293#
T%CNV	   297#
T%DIGI	   295#
T%INP	   302#
T%IPTR	   301#
T%NEG	   296#
T%NUMB	   294#
T%TAX1	   304#
T%TAX2	   305#
T%TAX3	   307#
T%TERM	   345#
T%TIMW	   291#
T%TLEN	   347#
T%TWAI	   290#
T%TWD	   346#
TESTNB	   164#
TESTPC	   163#
TIMERF	   167#
TLTADR	    90	    91
TMRCNT	   168#
TOTALS	    91#
U%DTBL	   126#
U%ERR	   124	   126	   239#
U%RTX	   238#
U%SVPC	   351#
U%SVUP	   241#
U%SVUU	   240#
U%USRT	   237#
U%UUO	   242#
USER	   154#
USRASB	    36#	   117
$ATOM	   341#
$BEND1	   102#
$BEND2	   103#
$EMODE	   116#
$GTJFN	   342#
$IPAG	   343#
$MMAP	   118#
$ONETM	   172#
$PSHER	   332#
$START	    64#	    66	    68	    79
$UMODE	   117#
ENDPAS	   101
EOPROG	   103                                                                                                             SEQ 0059
NAME	     8#	    11
RTN	   106
RMTCNP DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:47 10-Jun-85 Page 1
RMTCNP	MAC	10-Jun-85 15:18	                                                                                           SEQ 0060

     1
     2			000000		DECVER==0
     3			000001		MCNVER==1
     4
     5
     6						XLIST
     7						LIST
     8						LALL
     9
    10					NAME	\MCNVER,\DECVER^
    11
    12					TITLE	RMTCNP DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0^
    13
    14					; ****************************************************************
    15					; This "NI SERVER" runs under "TOPS20" only.			 !
    16					; ****************************************************************
    17
    18					;COPYRIGHT 1985
    19					;LARGE SYSTEMS DIAGNOSTICS GROUP
    20					;DIGITAL EQUIPMENT CORPORATION
    21					;MARLBORO, MASS. 01752
    22
    23					;GARY PAPAZIAN
    24
    25					SEARCH	KCUNV,MONSYM,MACSYM,UUOSYM
    26
    27						NOSYM
    28						SALL
RMTCNP DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:47 10-Jun-85 Page 2
RMTCNP	MAC	10-Jun-85 15:18	                                                                                           SEQ 0061

    29
    30					;Parse.Mac user interface
    31
    32						INTERN	DISABL,ENABLE
    33						INTERN	HELP,PGMHDR,PGMNAM,PGNAME,PROMPT,.QUIT
    34						INTERN	CONECT,SHOW,MAINCM
    35
    36						EXTERN	$ATOM,CFM,CONSW,PRTNBR,TARADH,TARADL,PRHEX,HEX
    37						EXTERN	DBGFLG,LOGFLG,TRCFLG,P%CARC,SBINIT
    38						EXTERN	SPRFLG,T%TWD,TTEXIT,$REMOTE,CTRSTR
    39						EXTERN	START,STARTA,C$QUIT,IPAG,I%L2FL,I%L3FL,I%L1FL
    40						EXTERN	INTAKE,ECHOF,CMFILE,CSB,DIAT20,GTJDEV,GTJDIR
    41						EXTERN	GTJEXT,GTJFIL,GTJFLG,$CCL,RRID,SPR1,SPR4
    42						EXTERN	RESCON,RELCON,RRCT,RCADR,SALLAD,NODSEL
    43						EXTERN	PWFLG,PWORDH,PWORDL
    44
    45					;Data push list definitions
    46
    47			000016			DP=16				;Define dp as data list pointer
    48
    49					DEFINE	PUSHD	(ARG),<			;Push data on data stack
    50						IRP	ARG
    51					<	PUSH	DP,ARG>>
    52
    53					DEFINE	POPD	(ARG),<			;Pop data from data stack
    54						IRP	ARG
    55					<	POP	DP,ARG>>
    56
RMTCNP DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:47 10-Jun-85 Page 3
RMTCNP	MAC	10-Jun-85 15:18		COMMAND PARSING TABLES                                                             SEQ 0062

    57					SUBTTL	COMMAND PARSING TABLES
    58					;#***********************************************************************
    59					; CMTAB cmd,addr	cmd  = keyword to parse for
    60					;			addr = dispatch address or return value (data)
    61					;#***********************************************************************
    62					;This is the top level command table.
    63
    64	000000'	000014	000014			SCMTAB	MAINCM			;Start command table, top level
    65	000001'	000462'	000101'			CMTAB	CONNECT,CONECT		;Connect (to node/port) command
    66	000002'	000464'	000177'			CMTAB	DISABLE,DISABL		;Disable spear, logging, trace, debug
    67	000003'	000466'	000364'			CMTAB	DISPLAY,DISPLA		;Display spear, log, trace, debug flags
    68	000004'	000470'	000151'			CMTAB	ENABLE,ENABLE		;Enable spear, logging, trace, debug
    69	000005'	000472'	000446'			CMTAB	EXIT,.QUIT		;Command to exit i.E. Quit
    70	000006'	000473'	000263'			CMTAB	HELP,HELP		;Help command
    71	000007'	000474'	000314'			CMTAB	IDENTIFY,REQU		;Request id command
    72	000010'	000476'	000446'			CMTAB	QUIT,.QUIT		;Quit, exit to kcmon
    73	000011'	000477'	000350'			CMTAB	READ-COUNTERS,RDCTRS	;Read counters
    74	000012'	000502'	000226'			CMTAB	REDEFINE,REDEFINE	;Redefine remote tty switch char
    75	000013'	000504'	000336'			CMTAB	SET-PASSWORD,SETPW	;Set password
    76	000014'	000507'	000433'			CMTAB	SHOW,SHOW		;Show local/remote/all node addresses
    77						ECMTAB				;End command table, top level
    78
    79					;This table is used with the 'ENABLE and DISABLE' command.
    80
    81	000015'	000004	000004			SCMTAB	ENATAB			;Start of enable command table
    82	000016'	000510'	000001			CMTAB	DEBUG,1			;Enable debug
    83	000017'	000512'	000002			CMTAB	LOGGING,2		;Enable logging command
    84	000020'	000514'	000003			CMTAB	SPEAR-REPORTING,3	;Enable spear command
    85	000021'	000520'	000004			CMTAB	TRACE,4			;Enable program trace
    86						ECMTAB				;End of enable command table
    87
    88					;These tables are used with the 'CONNECT' command.
    89
    90	000022'	000002	000002			SCMTAB	CONTAB
    91	000023'	000522'	000000			CMTAB	NODE,0			;12 digit hex
    92	000024'	000523'	000001			CMTAB	PORT,1			;0,1,2,3
    93						ECMTAB
    94
    95	000025'	000004	000004			SCMTAB	PRTTAB			;Port 0,1,2,3
    96	000026'	000524'	000000			CMTAB	0,0
    97	000027'	000525'	000001			CMTAB	1,1
    98	000030'	000526'	000002			CMTAB	2,2
    99	000031'	000527'	000003			CMTAB	3,3
   100						ECMTAB
   101
   102					;This table is used with the 'DISPLAY' command
   103
   104	000032'	000005	000005			SCMTAB	DISTAB			;Start of display-address table
   105	000033'	000530'	000000			CMTAB	ALL,0			;Display state of all
   106	000034'	000510'	000001			CMTAB	DEBUG,1			;Display state of debug
   107	000035'	000512'	000002			CMTAB	LOGGING,2		;Display state of logging
   108	000036'	000514'	000003			CMTAB	SPEAR-REPORTING,3	;Display state of spear
   109	000037'	000520'	000004			CMTAB	TRACE,4			;Display state of trace
   110						ECMTAB				;End of display address command table
   111
RMTCNP DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:47 10-Jun-85 Page 4
RMTCNP	MAC	10-Jun-85 15:18		COMMAND PARSING TABLES                                                             SEQ 0063

   112
   113					; **************************************************************************
   114					; *     Top level command parser  (see COMND JSYS for field/format defs)   *
   115					; **************************************************************************
   116
   117					;The macro used to build the command descriptor block is (cmddb.) And has the
   118					;Following format (type,flags,data,help,default,additional command data block),
   119					;The type field will contain the command function code, the function codes are:
   120					;
   121					;  .Cmkey= 0    ;keyword		.Cmusr= 12   ;user name
   122					;  .Cmnum= 1    ;number			.Cmcma= 13   ;comma
   123					;  .Cmnoi= 2    ;guide (noise) word	.Cmini= 14   ;init line
   124					;  .Cmswi= 3    ;switch			.Cmdev= 16   ;device name
   125					;  .Cmifi= 4    ;input file		.Cmtxt= 17   ;text to action char
   126					;  .Cmofi= 5    ;output file		.Cmqst= 21   ;quoted string
   127					;  .Cmfil= 6    ;general filespec	.Cmuqs= 22   ;unquoted string
   128					;  .Cmfld= 7    ;arbitrary field	.Cmtok= 23   ;token
   129					;  .Cmcfm= 10   ;confirm		.Cmnux= 24   ;number delimited
   130					;  .Cmdir= 11   ;directory name                      ; by non-digit
   131					;
   132					;The flag field will contain one of the following flags or will be represented
   133					;By two commas (,,), this indicates to the macro that this field is blank.
   134					;The flags are:
   135					;		Cm%hpp		;help pointer is present
   136					;		Cm%dpp		;default pointer is present
   137					;		Cm%sdh		;suppress default help message
   138					;
   139					;The data field is dependent on the command function, see tops20 monitor call
   140					;Manual commd jsys v544.  This field may be omitted by using two commas (,,).
   141					;
   142					;The help field points to a message to be printed if the question mark (?)
   143					;Is typed.  This field may be omitted by using two commas (,,).
   144					;
   145					;The default field is pointer to a string to be used if the escape is the first
   146					;Character to be typed.  This field may be omitted by using two commas (,,).
   147					;
   148					;The alternate command block is a pointer to a command block to be parsed if
   149					;The parse failed in the first command block.  This field may be omited.
   150					;
   151					;The function field is always used but not all other fields are necessarily
   152					;Used.  If a field to the right is to be used, the unused fields separating
   153					;The fields must be represented by two commas (,,).
   154					;
   155					;KCUNV.MAC uses the COMND JSYS in the following manner:
   156					;
   157					;	CMD	[CMDDB.(TYPE,FLAGS,DATA,etc)],<text>
   158					;
   159					;Where CMD, CMDDB., <text> are KCUNV functions
   160					;and (type,flags,data,etc) are COMND JSYS fields.
   161					;
   162					;See JSYS, KCMON.MEM, KCUNV,KCSUB, MONSYM, MACSYM, UUOSYM
   163
RMTCNP DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:47 10-Jun-85 Page 5
RMTCNP	MAC	10-Jun-85 15:18		TOP LEVEL PARSER                                                                   SEQ 0064

   164					SUBTTL	TOP LEVEL PARSER
   165
   166	000040'				PGMNAM:	ASCIZ/
   167	000040'	015 012 075 055 075 	=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
   168	000041'	055 075 055 075 055 
   169	000042'	075 055 075 055 075 
   170	000043'	055 075 055 075 055 
   171	000044'	075 055 075 055 075 
   172	000045'	055 075 055 075 055 
   173	000046'	075 055 075 055 075 
   174	000047'	055 075 055 075 055 
   175	000050'	075 055 075 055 075 
   176	000051'	055 075 015 012 174 	| DECSYSTEM 20 NETWORK INTERCONNECT SERVER  |
   177	000052'	040 104 105 103 123 
   178	000053'	131 123 124 105 115 
   179	000054'	040 062 060 040 116 
   180	000055'	105 124 127 117 122 
   181	000056'	113 040 111 116 124 
   182	000057'	105 122 103 117 116 
   183	000060'	116 105 103 124 040 
   184	000061'	123 105 122 126 105 
   185	000062'	122 040 040 174 015 
   186	000063'	012 075 055 075 055 	=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
   187	000064'	075 055 075 055 075 
   188	000065'	055 075 055 075 055 
   189	000066'	075 055 075 055 075 
   190	000067'	055 075 055 075 055 
   191	000070'	075 055 075 055 075 
   192	000071'	055 075 055 075 055 
   193	000072'	075 055 075 055 075 
   194	000073'	055 075 055 075 055 
   195	000074'	075 015 012 000 000 	/
   196
   197	000075'				PGMHDR:	ASCIZ/
   198	000075'	015 012 000 000 000 	/
   199
   200	000076'	62 55 64 43 57 56 	PGNAME:	SIXBIT	/RMTCON/			;Program name
   201
   202	000077'	122 115 124 103 117 	PROMPT:	ASCIZ/RMTCON> /			;Program prompt for top level
   203	000100'	116 076 040 000 000 
   204
RMTCNP DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:47 10-Jun-85 Page 6
RMTCNP	MAC	10-Jun-85 15:18		CONNECT PORT/NODE COMMAND                                                          SEQ 0065

   205					SUBTTL	CONNECT PORT/NODE COMMAND
   206					; ***********************************************************************
   207					; 1. CONNECT PORT inputs a port number (0-3) & stores it in PRTNBR which
   208					;    is used as the CHANNEL-ID in LLMOP argument blocks.
   209					;
   210					; 2. CONNECT NODE inputs a 12 digit hex number (no spaces allowed) & stores
   211					;    it in TARADH & TARADL which is used as the destination address in the
   212					;    RESERVE CONSOLE argument block & other LLMOP's.
   213					; ***********************************************************************
   214
   215	000101'	400 01 0 00 000000 	CONECT:	CMD	[CMDDB.(.CMKEY,,CONTAB)]
   216	000102'	201 02 0 00 000531'
   217	000103'	037600	000001
   218
   219	000104'	550 01 0 02 000000 		HRRZ	AC1,(AC2)
   220	000105'	254 00 1 01 000106'		JRST	@$CON(AC1)		;Dispatch to port or node
   221
   222	000106'	000000	000122'		$CON:	.CONN
   223	000107'	000000	000110'			.CONP
   224
   225	000110'	201 01 0 00 000533'	.CONP:	GUIDE	<NUMBER>		;Port
   226	000111'	201 02 0 00 000537'
   227	000112'	037600	000001
   228
   229	000113'	400 01 0 00 000000 		CMD	[CMDDB.(.CMKEY,,PRTTAB)]
   230	000114'	201 02 0 00 000541'
   231	000115'	037600	000001
   232
   233	000116'	550 01 0 02 000000 		HRRZ	AC1,(AC2)		;Get port number
   234	000117'	202 01 0 00 000000*		MOVEM	AC1,PRTNBR		;Save
   235	000120'	037 15 0 00 000001 		CMDCFM
   236	000121'	263 17 0 00 000000 		RTN
   237
   238	000122'	201 01 0 00 000543'	.CONN:	GUIDE	<ADDRESS>		;node
   239	000123'	201 02 0 00 000547'
   240	000124'	037600	000001
   241
   242	000125'	400 01 0 00 000000 		CMD	[CMDDB.(.CMFLD,,,<12 DIGIT HEX ADDRESS>)]
   243	000126'	201 02 0 00 000556'
   244	000127'	037600	000001
   245
   246	000130'	260 17 0 00 000000*		GO	HEX			;Input hex digits
   247	000131'	302 04 0 00 000014 		CAIE	AC4,^D12		;12 Digits ?
   248	000132'	260 17 0 00 000564'		CMDERR	<WRONG FORMAT>		; No,report error
   249	000133'	037 15 0 00 000001 		CMDCFM
   250
   251	000134'	202 10 0 00 000000*		MOVEM	AC10,TARADH		;Put node number and entry bit in table
   252	000135'	202 11 0 00 000000*		MOVEM	AC11,TARADL
RMTCNP DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:47 10-Jun-85 Page 7
RMTCNP	MAC	10-Jun-85 15:18		CONNECT PORT/NODE COMMAND                                                          SEQ 0066

   253
   254	000136'	260 17 0 00 000000*		GO	RESCON			;Go reserve (conect) node
   255	000137'	254 00 0 00 000150'		 JRST	.CONNX			; Cannot reserve, exit
   256
   257	000140'	037 01 0 00 000566'		PMSG	<T[O [D[ISCONNECT & RETURN TO COMMAND MODE, TYPE A SINGLE CONTROL->
   258	000141'	200 00 0 00 000000*		MOVE	TTEXIT
   259	000142'	271 00 0 00 000100 		ADDI	100
   260	000143'	037 12 0 00 000000 		PNTCHR
   261	000144'	332 00 0 00 000000*		SKIPE	DBGFLG			;Debug mode?
   262	000145'	037 01 0 00 000601'		 PMSG	<^L[OCAL ->		; Yes
   263	000146'	037 03 0 00 000001 		PCRLF
   264	000147'	260 17 0 00 000000*		GO	$REMOTE			;Do RCSEND & RCPOLL's (in RMTCNM)
   265
   266	000150'	263 17 0 00 000000 	.CONNX:	RTN
   267
RMTCNP DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:47 10-Jun-85 Page 8
RMTCNP	MAC	10-Jun-85 15:18		ENABLE COMMAND                                                                     SEQ 0067

   268					SUBTTL	ENABLE COMMAND
   269					;#***********************************************************************
   270					; Enable debug, logging, spear or trace
   271					;#***********************************************************************
   272
   273	000151'	400 01 0 00 000000 	ENABLE:	CMD	[CMDDB.(.CMKEY,,ENATAB)]
   274	000152'	201 02 0 00 000603'
   275	000153'	037600	000001
   276
   277	000154'	550 01 0 02 000000 		HRRZ	AC1,(AC2)		;Set up to go to proper enable routine
   278	000155'	037 15 0 00 000001 		CMDCFM
   279	000156'	254 00 1 01 000157'		JRST	@$ENA(AC1)
   280
   281	000157'	000 00 0 00 000000 	$ENA:	Z
   282	000160'	000000	000164'			EN.DBG				;1
   283	000161'	000000	000166'			EN.LOG				;2
   284	000162'	000000	000173'			EN.SPEAR			;3
   285	000163'	000000	000175'			EN.TRACE			;4
   286
   287	000164'	476 00 0 00 000144*	EN.DBG:	SETOM	DBGFLG			;Enable debug
   288	000165'	263 17 0 00 000000 		RTN
   289
   290	000166'	200 00 0 00 000000*	EN.LOG:	MOVE	AC0,CONSW		;Get console switches
   291	000167'	661 00 0 00 000040 		TLO	AC0,SW.LOG		;Set the log switch
   292	000170'	202 00 0 00 000166*	        MOVEM	AC0,CONSW		;Save the console switches
   293	000171'	476 00 0 00 000000*		SETOM	LOGFLG			;Set enable logging word
   294	000172'	263 17 0 00 000000 		RTN
   295
   296	000173'	476 00 0 00 000000*	EN.SPEAR:SETOM	SPRFLG			;Enable spear
   297	000174'	263 17 0 00 000000 		RTN
   298
   299	000175'	476 00 0 00 000000*	EN.TRACE:SETOM	TRCFLG			;Enable trace
   300	000176'	263 17 0 00 000000 		RTN
   301
RMTCNP DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:47 10-Jun-85 Page 9
RMTCNP	MAC	10-Jun-85 15:18		DISABLE COMMAND                                                                    SEQ 0068

   302					SUBTTL	DISABLE COMMAND
   303					;#***********************************************************************
   304					; Disable debug, logging, spear or trace
   305					;#***********************************************************************
   306
   307	000177'	400 01 0 00 000000 	DISABL:	CMD	[CMDDB.(.CMKEY,,ENATAB)]
   308	000200'	201 02 0 00 000603'
   309	000201'	037600	000001
   310
   311	000202'	550 01 0 02 000000 		HRRZ	AC1,(AC2)		;Set up to go to proper enable routine
   312	000203'	037 15 0 00 000001 		CMDCFM
   313	000204'	254 00 1 01 000205'		JRST	@$DIS(AC1)
   314
   315	000205'	000 00 0 00 000000 	$DIS:	Z
   316	000206'	000000	000212'			DA.DBG				;1
   317	000207'	000000	000214'			DA.LOG				;2
   318	000210'	000000	000222'			DA.SPEAR			;3
   319	000211'	000000	000224'			DA.TRACE			;4
   320
   321	000212'	402 00 0 00 000164*	DA.DBG:	SETZM	DBGFLG			;Disable debug
   322	000213'	263 17 0 00 000000 		RTN
   323
   324	000214'	200 00 0 00 000170*	DA.LOG:	MOVE	AC0,CONSW		;Get console switches
   325	000215'	621 00 0 00 000040 		TLZ	AC0,SW.LOG		;Clear the log switch
   326	000216'	202 00 0 00 000214*	        MOVEM	AC0,CONSW		;Save the console switches
   327	000217'	402 00 0 00 000171*		SETZM	LOGFLG			;Clear enable logging word
   328
   329	000220'	037 05 0 00 000003 		DROPDV				;Close the device
   330	000221'	263 17 0 00 000000 		RTN
   331
   332	000222'	402 00 0 00 000173*	DA.SPEAR:SETZM	SPRFLG			;Disable spear
   333	000223'	263 17 0 00 000000 		RTN
   334
   335	000224'	402 00 0 00 000175*	DA.TRACE:SETZM	TRCFLG			;Disable trace
   336	000225'	263 17 0 00 000000 		RTN
   337
   338
RMTCNP DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:47 10-Jun-85 Page 10
RMTCNP	MAC	10-Jun-85 15:18		REDEFINE COMMAND                                                                   SEQ 0069

   339					SUBTTL	REDEFINE COMMAND
   340					;#***************************************************************************
   341					;Redefine the "EXIT CHAR" to be any of those listed below.
   342					;note, the entire word "CONTROL" must be entered.
   343					;#***************************************************************************
   344
   345	000226'	201 01 0 00 000605'	REDEFINE:GUIDE	<TTY EXIT CHARACTER>
   346	000227'	201 02 0 00 000613'
   347	000230'	037600	000001
   348
   349	000231'	201 01 0 00 000615'		CMD	[CMDDB.(.CMKEY,,.TSWC,,,CFM)],<NOT A VALID SWITCH CHARACTER>
   350	000232'	201 02 0 00 000623'
   351	000233'	037600	000001
   352	000234'	306 03 0 00 000000*		CAIN	AC3,CFM
   353	000235'	254 00 0 00 000255'		JRST	REDEF1			;Cr only
   354
   355	000236'	550 06 0 02 000000 		HRRZ	AC6,(AC2)		;Get char
   356
   357	000237'	037 15 0 00 000001 		CMDCFM
   358
   359	000240'	202 06 0 00 000141*		MOVEM	AC6,TTEXIT		;Set it up
   360	000241'	263 17 0 00 000000 		RTN
   361
   362	000242'	000012	000012			SCMTAB	.TSWC
   363	000243'	000625'	000001			CMTAB	CONTROL-A,"A"-100
   364	000244'	000627'	000004			CMTAB	CONTROL-D,"D"-100
   365	000245'	000631'	000005			CMTAB	CONTROL-E,"E"-100
   366	000246'	000633'	000006			CMTAB	CONTROL-F,"F"-100
   367	000247'	000635'	000016			CMTAB	CONTROL-N,"N"-100
   368	000250'	000637'	000020			CMTAB	CONTROL-P,"P"-100
   369	000251'	000641'	000026			CMTAB	CONTROL-V,"V"-100
   370	000252'	000643'	000027			CMTAB	CONTROL-W,"W"-100
   371	000253'	000645'	000030			CMTAB	CONTROL-X,"X"-100
   372	000254'	000647'	000032			CMTAB	CONTROL-Z,"Z"-100
   373						ECMTAB
   374
   375	000255'	037 01 0 00 000651'	REDEF1:	PMSG	<TTY E[XIT CHARACTER = CONTROL->
   376	000256'	200 00 0 00 000240*		MOVE	TTEXIT
   377	000257'	271 00 0 00 000100 		ADDI	100
   378	000260'	037 12 0 00 000000 		PNTCHR
   379	000261'	037 03 0 00 000001 		PCRLF
   380	000262'	263 17 0 00 000000 		RTN
   381
RMTCNP DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:47 10-Jun-85 Page 11
RMTCNP	MAC	10-Jun-85 15:18		HELP COMMAND                                                                       SEQ 0070

   382					SUBTTL	HELP COMMAND
   383					;#***********************************************************************
   384					; To assist user in the options available
   385					;#***********************************************************************
   386
   387	000263'	201 01 0 00 000657'	HELP:	GUIDE	<ABOUT A COMMAND, (* FOR ALL)>
   388	000264'	201 02 0 00 000667'
   389	000265'	037600	000001
   390
   391	000266'	400 01 0 00 000000 		CMD	[CMDDB.(.CMTXT)]
   392	000267'	201 02 0 00 000671'
   393	000270'	037600	000001
   394
   395	000271'	200 06 0 00 000673'		MOVE	AC6,[POINT 7,HLPBUF]	;Get pointer to help buffer
   396	000272'	201 07 1 00 000000*		MOVEI	AC7,@$ATOM		;Get the address of the atom buffer
   397	000273'	200 01 0 00 000674'		MOVE	AC1,[POINT 7,(AC7)]	;Get pointer to atom buffer
   398
   399	000274'	134 00 0 00 000001 		ILDB	AC0,AC1			;Get first character
   400	000275'	136 00 0 00 000006 		IDPB	AC0,AC6			;Put it in help buffer
   401	000276'	326 00 0 00 000274'		JUMPN	AC0,.-2			;Do till null
   402
   403	000277'	037 15 0 00 000001 		CMDCFM
   404
   405	000300'	201 00 0 00 000305'		MOVEI	AC0,HLPFIL		;Get pointer to help file
   406	000301'	201 01 0 00 000307'		MOVEI	AC1,HLPBUF		;Get pointer to help buffer
   407	000302'	037 16 0 00 000004 		FHELP				;Go provide requested help
   408
   409	000303'	037 15 0 00 000004 		FRESET				;Reset the help file
   410
   411	000304'	263 17 0 00 000000 		RTN
   412
   413	000305'	62 55 64 43 57 56 	HLPFIL:	SIXBIT	/RMTCON/			;Name of help file
   414	000306'	50 54 60 00 00 00 		SIXBIT	/HLP/			;Extension of help file
   415
   416	000307'				HLPBUF:	BLOCK	^D5			;Buffer for help request
   417
RMTCNP DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:47 10-Jun-85 Page 12
RMTCNP	MAC	10-Jun-85 15:18		REQUEST ID COMMAND                                                                 SEQ 0071

   418					SUBTTL	REQUEST ID COMMAND
   419					;#***********************************************************************
   420					;Enter via "IDENTIFY" (addr) Command.
   421					;Node does not have to be selected (reserved).
   422					;The req id will return info (status) on desired node.
   423					;#***********************************************************************
   424
   425	000314'	201 01 0 00 000675'	REQU:	GUIDE	<NODE>
   426	000315'	201 02 0 00 000700'
   427	000316'	037600	000001
   428
   429	000317'	400 01 0 00 000000 		CMD	[CMDDB.(.CMFLD,,,<12 DIGIT HEX ADDRESS>)]
   430	000320'	201 02 0 00 000556'
   431	000321'	037600	000001
   432
   433	000322'	260 17 0 00 000130*		GO	HEX			;Input hex digits
   434	000323'	302 04 0 00 000014 		CAIE	AC4,^D12		;12 Digits ?
   435	000324'	260 17 0 00 000564'		CMDERR	<WRONG FORMAT>		; No,report error
   436	000325'	037 15 0 00 000001 		CMDCFM
   437
   438	000326'	200 00 0 00 000224*		MOVE	AC0,TRCFLG		;See what flag is
   439	000327'	322 00 0 00 000332'		JUMPE	AC0,REQU1		;If zero, force a trace then clear it
   440	000330'	260 17 0 00 000000*		GO	RRID			;Do Req-ID for this node
   441	000331'	254 00 0 00 000335'		JRST	REQUX
   442
   443	000332'	476 00 0 00 000326*	REQU1:	SETOM	TRCFLG			;Force trace
   444	000333'	260 17 0 00 000330*		GO	RRID			;Do request id for this node
   445	000334'	402 00 0 00 000332*		SETZM	TRCFLG			;Clear trace
   446	000335'	263 17 0 00 000000 	REQUX:	RTN
   447
RMTCNP DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:47 10-Jun-85 Page 13
RMTCNP	MAC	10-Jun-85 15:18		SET PASSWORD                                                                       SEQ 0072

   448					SUBTTL	SET PASSWORD
   449					;#************************************************************************
   450					;Enter via "SET-PASSWORD"  command.
   451					;Take up to 16 hex digits & store in PWORDH/L.
   452					;The Password is used in RCRBT & RCRSV
   453					;#************************************************************************
   454
   455	000336'	400 01 0 00 000000 	SETPW:	CMD	[CMDDB.(.CMFLD,,,<UP TO 16 HEX DIGITS>)]
   456	000337'	201 02 0 00 000706'
   457	000340'	037600	000001
   458
   459	000341'	476 00 0 00 000000*		SETOM	PWFLG			;Doing password flag
   460	000342'	260 17 0 00 000322*		GO	HEX			;Input hex digits
   461	000343'	037 15 0 00 000001 		CMDCFM
   462	000344'	202 10 0 00 000000*		MOVEM	AC10,PWORDH		;Hi = bytes 7,6,5,4,z
   463	000345'	202 11 0 00 000000*		MOVEM	AC11,PWORDL		;Lo = bytes 3,2,1,0,z
   464	000346'	402 00 0 00 000341*		SETZM	PWFLG			;Done
   465	000347'	263 17 0 00 000000 		RTN
   466
RMTCNP DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:47 10-Jun-85 Page 14
RMTCNP	MAC	10-Jun-85 15:18		SET PASSWORD                                                                       SEQ 0073

   467
   468					SUBTTL	READ COUNTERS COMMAND
   469					;#*************************************************************************
   470					;Enter via "READ-COUNTERS" (addr) Command.
   471					;Node does not have to be selected (reserved).
   472					;The counter information will be returned on the desired node.
   473					;#*************************************************************************
   474
   475	000350'	201 01 0 00 000675'	RDCTRS:	GUIDE	<NODE>
   476	000351'	201 02 0 00 000700'
   477	000352'	037600	000001
   478
   479	000353'	400 01 0 00 000000 		CMD	[CMDDB.(.CMFLD,,,<12 DIGIT HEX ADDRESS>)]
   480	000354'	201 02 0 00 000556'
   481	000355'	037600	000001
   482
   483	000356'	260 17 0 00 000342*		GO	HEX			;Input hex digits
   484	000357'	302 04 0 00 000014 		CAIE	AC4,^D12		;12 Digits ?
   485	000360'	260 17 0 00 000564'		CMDERR	<WRONG FORMAT>		; No,report error
   486
   487	000361'	037 15 0 00 000001 		CMDCFM
   488
   489	000362'	260 17 0 00 000000*		GO	RRCT			;Do read counters for this node
   490	000363'	263 17 0 00 000000 		RTN
   491
RMTCNP DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:47 10-Jun-85 Page 15
RMTCNP	MAC	10-Jun-85 15:18		DISPLAY COMMAND                                                                    SEQ 0074

   492					SUBTTL	DISPLAY COMMAND
   493					;#****************************************************************************
   494					;Display state (enabled/disabled) of debug, logging, spear reporting & trace.
   495					;#****************************************************************************
   496
   497	000364'	201 01 0 00 000711'	DISPLA:	GUIDE	<CURRENT STATE OF>	;Noise word for show command
   498	000365'	201 02 0 00 000717'
   499	000366'	037600	000001
   500
   501	000367'	400 01 0 00 000000 		CMD	[CMDDB.(.CMKEY,,DISTAB)]
   502	000370'	201 02 0 00 000721'
   503	000371'	037600	000001
   504
   505	000372'	550 01 0 02 000000 		HRRZ	AC1,(AC2)
   506	000373'	037 15 0 00 000001 		CMDCFM
   507	000374'	254 00 1 01 000375'		JRST	@$DISP(AC1)		;Go display it
   508
   509	000375'	000000	000402'		$DISP:	.$ALL				;0
   510	000376'	000000	000414'			.D$DBG				;1
   511	000377'	000000	000407'			.D$LOG				;2
   512	000400'	000000	000421'			.D$SPE				;3
   513	000401'	000000	000426'			.D$TRC				;4
   514
   515	000402'	260 17 0 00 000414'	.$ALL:	GO	.D$DBG			;Display debug
   516	000403'	260 17 0 00 000407'		GO	.D$LOG			;Display logging
   517	000404'	260 17 0 00 000421'		GO	.D$SPE			;Display spear
   518	000405'	260 17 0 00 000426'		GO	.D$TRC			;Display trace
   519	000406'	263 17 0 00 000000 		RTN
   520
   521	000407'	336 00 0 00 000217*	.D$LOG:	SKIPN	LOGFLG			;Is logging enabled ?
   522	000410'	037 01 0 00 000723'		PMSG	<L[OGGING IS DISABLED^>
   523	000411'	332 00 0 00 000407*		SKIPE	LOGFLG
   524	000412'	037 01 0 00 000727'		PMSG	<L[OGGING IS ENABLED^>
   525	000413'	263 17 0 00 000000 		RTN
   526
   527	000414'	336 00 0 00 000212*	.D$DBG:	SKIPN	DBGFLG			;Is debug enabled ?
   528	000415'	037 01 0 00 000733'		PMSG	<P[ROGRAM [DEBUG[ IS DISABLED^>
   529	000416'	332 00 0 00 000414*		SKIPE	DBGFLG
   530	000417'	037 01 0 00 000740'		PMSG	<P[ROGRAM [DEBUG[ IS ENABLED^>
   531	000420'	263 17 0 00 000000 		RTN
   532
   533	000421'	336 00 0 00 000222*	.D$SPE:	SKIPN	SPRFLG			;Is spear enabled ?
   534	000422'	037 01 0 00 000745'		PMSG	<R[EPORTS TO [SPEAR [ARE DISABLED^>
   535	000423'	332 00 0 00 000421*		SKIPE	SPRFLG
   536	000424'	037 01 0 00 000753'		PMSG	<R[EPORTS TO [SPEAR [ARE ENABLED^>
   537	000425'	263 17 0 00 000000 		RTN
   538
   539	000426'	336 00 0 00 000334*	.D$TRC:	SKIPN	TRCFLG			;Is trace enabled ?
   540	000427'	037 01 0 00 000761'		PMSG	<P[ROGRAM [TRACE [IS DISABLED^>
   541	000430'	332 00 0 00 000426*		SKIPE	TRCFLG
   542	000431'	037 01 0 00 000766'		PMSG	<P[ROGRAM [TRACE [IS ENABLED^>
   543	000432'	263 17 0 00 000000 		RTN
   544
RMTCNP DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:47 10-Jun-85 Page 16
RMTCNP	MAC	10-Jun-85 15:18		SHOW COMMAND                                                                       SEQ 0075

   545					SUBTTL	SHOW COMMAND
   546					;#*****************************************************************************
   547					; Show the LOCAL node & all remote node addresses on network.
   548					;#*****************************************************************************
   549
   550	000433'	201 01 0 00 000773'	SHOW:	GUIDE	<NODE ADDRESSES ON NETWORK>
   551	000434'	201 02 0 00 001003'
   552	000435'	037600	000001
   553	000436'	037 15 0 00 000001 		CMDCFM
   554										; LOCAL node address
   555	000437'	200 00 0 00 000430*		MOVE	AC0,TRCFLG		;Save TRACE flag
   556	000440'	476 00 0 00 000437*		SETOM	TRCFLG			;Force TRACE
   557	000441'	260 17 0 00 000000*		GO	RCADR			;Do the LLMOP to read local node addr
   558	000442'	600 00 0 00 000000 		 NOP				; error return
   559	000443'	202 00 0 00 000440*		MOVEM	AC0,TRCFLG		;Restore TRACE
   560
   561	000444'	260 17 0 00 000000*		GO	SALLAD			;All REMOTE NODE addresses on network
   562	000445'	263 17 0 00 000000 		RTN
   563
   564
   565
   566
   567					;#**************************************************************************
   568					;* QUIT command - Exit this program (NI SERVER) & return to system monitor.
   569					;#**************************************************************************
   570
   571	000446'	201 01 0 00 001005'	.QUIT:	GUIDE	<TO MONITOR>		;Noise word for quit command
   572	000447'	201 02 0 00 001012'
   573	000450'	037600	000001
   574	000451'	037 15 0 00 000001 		CMDCFM				;Expect a carriage return here
   575
   576	000452'	260 17 0 00 000000*		GO	CTRSTR			;Restore controlling terminal
   577
   578	000453'	260 17 0 00 000000*		GO	SPR4			;Go make a spear entry for this
   579										; Diagnostic exit
   580	000454'	200 00 0 00 000216*		MOVE	AC0,CONSW		;Get console switches
   581	000455'	621 00 0 00 000040 		TLZ	AC0,SW.LOG		;Clear the log switch
   582	000456'	202 00 0 00 000454*	        MOVEM	AC0,CONSW		;Save the console switches
   583	000457'	402 00 0 00 000411*		SETZM	LOGFLG			;Clear enable logging word
   584	000460'	037 05 0 00 000003 		DROPDV				;Close the device
   585	000461'	254 00 1 00 000000*		JRST	@C$QUIT			;Quit through kcsub
   586
   587						END

NO ERRORS DETECTED

PROGRAM BREAK IS 001014
CPU TIME USED 00:02.702

130P CORE USED
AC0	   290	   291	   292	   324	   325	   326	   399	   400	   401	   405	   438	   439	   555	   559
	   580	   581	   582                                                                                             SEQ 0076
AC1	   215	   219	   220	   225	   229	   233	   234	   238	   242	   248	   273	   277	   279	   307
	   311	   313	   345	   349	   387	   391	   397	   399	   406	   425	   429	   435	   455	   475
	   479	   485	   497	   501	   505	   507	   550	   571
AC10	   251	   462
AC11	   252	   463
AC2	   216	   219	   226	   230	   233	   239	   243	   274	   277	   308	   311	   346	   350	   355
	   388	   392	   426	   430	   456	   476	   480	   498	   502	   505	   551	   572
AC3	   352
AC4	   247	   434	   484
AC6	   355	   359	   395	   400
AC7	   396	   397
C$QUIT	    39#	   585
CFM	    36#	   350	   352
CM%HPP	   243	   430	   456	   480
CMFILE	    40#
CONECT	    34	    65	   215#
CONSW	    36#	   290	   292	   324	   326	   580	   582
CONTAB	    90#	    93	   216
CSB	    40#
CTRSTR	    38#	   576
DA.DBG	   316	   321#
DA.LOG	   317	   324#
DA.SPE	   318	   332#
DA.TRA	   319	   335#
DBGFLG	    37#	   261	   287	   321	   527	   529
DECVER	     2#	    10
DIAT20	    40#
DISABL	    32	    66	   307#
DISPLA	    67	   497#
DISTAB	   104#	   110	   502
DP	    47#
ECHOF	    40#
EN.DBG	   282	   287#
EN.LOG	   283	   290#
EN.SPE	   284	   296#
EN.TRA	   285	   299#
ENABLE	    32	    68	   273#
ENATAB	    81#	    86	   274	   308
GTJDEV	    40#
GTJDIR	    40#
GTJEXT	    41#
GTJFIL	    41#
GTJFLG	    41#
HELP	    33	    70	   387#
HEX	    36#	   246	   433	   460	   483
HLPBUF	   395	   406	   416#
HLPFIL	   405	   413#
I%L1FL	    39#
I%L2FL	    39#
I%L3FL	    39#
INTAKE	    40#
IPAG	    39#
L..TSW	   362	   373#                                                                                                    SEQ 0077
L.CONT	    90	    93#
L.DIST	   104	   110#
L.ENAT	    81	    86#
L.MAIN	    64	    77#
L.PRTT	    95	   100#
LOGFLG	    37#	   293	   327	   521	   523	   583
MAINCM	    34	    64#	    77
MCNVER	     3#	    10
NODSEL	    42#
P%CARC	    37#
PGMHDR	    33	   197#
PGMNAM	    33	   166#
PGNAME	    33	   200#
PRHEX	    36#
PROMPT	    33	   202#
PRTNBR	    36#	   234
PRTTAB	    95#	   100	   230
PWFLG	    43#	   459	   464
PWORDH	    43#	   462
PWORDL	    43#	   463
RCADR	    42#	   557
RDCTRS	    73	   475#
REDEF1	   353	   375#
REDEFI	    74	   345#
RELCON	    42#
REQU	    71	   425#
REQU1	   439	   443#
REQUX	   441	   446#
RESCON	    42#	   254
RRCT	    42#	   489
RRID	    41#	   440	   444
SALLAD	    42#	   561
SBINIT	    37#
SETPW	    75	   455#
SHOW	    34	    76	   550#
SPR1	    41#
SPR4	    41#	   578
SPRFLG	    38#	   296	   332	   533	   535
START	    39#
STARTA	    39#
SW.LOG	   291	   325	   581
T%TWD	    38#
TARADH	    36#	   251
TARADL	    36#	   252
TRCFLG	    37#	   299	   335	   438	   443	   445	   539	   541	   555	   556	   559
TTEXIT	    38#	   258	   359	   376
$ATOM	    36#	   396
$CCL	    41#
$CON	   220	   222#
$DIS	   313	   315#
$DISP	   507	   509#
$ENA	   279	   281#
$REMOT	    38#	   264                                                                                                     SEQ 0078
.$ALL	   509	   515#
..XX	   216#	   216	   226#	   226	   230#	   230	   239#	   239	   243#	   243	   274#	   274	   308#	   308
	   346#	   346	   350#	   350	   388#	   388	   392#	   392	   426#	   426	   430#	   430	   456#	   456
	   476#	   476	   480#	   480	   498#	   498	   502#	   502	   551#	   551	   572#	   572
.CMFLD	   243	   430	   456	   480
.CMKEY	   216	   230	   274	   308	   350	   502
.CMNOI	   226	   239	   346	   388	   426	   476	   498	   551	   572
.CMTXT	   392
.CONN	   222	   238#
.CONNX	   255	   266#
.CONP	   223	   225#
.D$DBG	   510	   515	   527#
.D$LOG	   511	   516	   521#
.D$SPE	   512	   517	   533#
.D$TRC	   513	   518	   539#
.QUIT	    33	    69	    72	   571#
.TSWC	   350	   362#	   373
CMD	   215	   225	   229	   238	   242	   273	   307	   345	   349	   387	   391	   425	   429	   455
	   475	   479	   497	   501	   550	   571                                                                     SEQ 0079
CMDCFM	   235	   249	   278	   312	   357	   403	   436	   461	   487	   506	   553	   574
CMDDB.	   216	   226	   230	   239	   243	   274	   308	   346	   350	   388	   392	   426	   430	   456
	   476	   480	   498	   502	   551	   572
CMDERR	   248	   435	   485
CMTAB	    65	    66	    67	    68	    69	    70	    71	    72	    73	    74	    75	    76	    82	    83
	    84	    85	    91	    92	    96	    97	    98	    99	   105	   106	   107	   108	   109	   363
	   364	   365	   366	   367	   368	   369	   370	   371	   372
DROPDV	   329	   584
ECMTAB	    65#	    77	    82#	    86	    91#	    93	    96#	   100	   105#	   110	   363#	   373
FHELP	   407
FRESET	   409
GO	   246	   248	   254	   264	   433	   435	   440	   444	   460	   483	   485	   489	   515	   516
	   517	   518	   557	   561	   576	   578
GUIDE	   225	   238	   345	   387	   425	   475	   497	   550	   571
NAME	     7#	    10
NOP	   558
PCRLF	   263	   379
PMSG	   257	   262	   375	   522	   524	   528	   530	   534	   536	   540	   542
PNTCHR	   260	   378
POPD	    53#
PSIXM	   257	   262	   375	   522	   524	   528	   530	   534	   536	   540	   542
PUSHD	    49#
RTN	   236	   266	   288	   294	   297	   300	   322	   330	   333	   336	   360	   380	   411	   446
	   465	   490	   519	   525	   531	   537	   543	   562
SCMTAB	    64	    81	    90	    95	   104	   362
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 1
RMTCNM	MAC	10-Jun-85 15:20		RMTCNM                                                                             SEQ 0080

     1					SUBTTL	RMTCNM
     2
     3			000000		DECVER==0
     4			000001		MCNVER==1
     5
     6
     7						XLIST
     8						LIST
     9						LALL
    10
    11					NAME	\MCNVER,\DECVER^
    12
    13					TITLE	RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0^
    14
    15					;#**********************************************************************
    16					; This "NI SERVER" runs under "TOPS20" only.
    17					;#**********************************************************************
    18
    19					;COPYRIGHT 1985
    20					;LARGE SYSTEMS DIAGNOSTICS GROUP
    21					;DIGITAL EQUIPMENT CORPORATION
    22					;MARLBORO, MASS. 01752
    23
    24					;GARY PAPAZIAN
    25
    26						NOSYM
    27					SEARCH	KCUNV,MONSYM,MACSYM,UUOSYM
    28						SALL
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 2
RMTCNM	MAC	10-Jun-85 15:20		RMTCNM                                                                             SEQ 0081

    29
    30					INTERN	LOGFLG,SPRFLG,TRCFLG,DBGFLG,RRID,SPR1,SPR4
    31					INTERN	HEX,PRHEX,PRTNBR,TARADH,TARADL,TTEXIT,$REMOTE,CTRSTR
    32					INTERN	RESCON,RELCON,RRCT,RCADR,SALLAD,NODSEL
    33					INTERN	PWFLG,PWORDH,PWORDL
    34
    35					EXTERN	TESTPC,ATOM,C$QUIT,CONSW,P%T20,P%T20P,C%FIRST,START
    36					EXTERN	P%DJFN
    37
    38					;Note: Z:<CUSP10>PARAM.KLM contains equates such as CR, XON, XOFF etc.
    39
    40					;Data stack definitions
    41
    42			000016			DP=16				;Define dp as data stack pointer
    43
    44					DEFINE	PUSHD	(ARG),<			;Push data on data stack
    45						IRP	ARG
    46					<	PUSH	DP,ARG>>
    47
    48					DEFINE	POPD	(ARG),<			;Pop data from data stack
    49						IRP	ARG
    50					<	POP	DP,ARG>>
    51
    52		320740	000025'		OPDEF	ERJSYS	[ERCAL	$ERJSYS]	;Jsys error reporter
    53
    54
    55			003720		BUFSIZ=^D2000				;Max Command/Response buffer size
    56
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 3
RMTCNM	MAC	10-Jun-85 15:20		INITIAL START UP                                                                   SEQ 0082

    57					SUBTTL	INITIAL START UP
    58					;#****************************************************************************
    59					;  Set up "C%FIRST" so that kcsub will execute "INITIA" code before prompting.
    60					;#****************************************************************************
    61
    62	000000'	200 00 0 00 015642'	SETUP:	MOVE	AC0,[GO	INITIA]		;Get initialization address
    63	000001'	202 00 0 00 000000*		MOVEM	AC0,C%FIRST		;Store it where kcsub can find it
    64	000002'	254 00 0 00 000000*		JRST	START			;Do the initialization
    65
    66					; This code is executed in startup before prompting occurs.
    67
    68	000003'	200 16 0 00 015643'	INITIA:	MOVE	DP,[IOWD STKLEN,DSTK]	;Set up the data stack pointer
    69
    70	000004'	332 00 0 00 015073'		SKIPE	ONETIM			;Skip if first through this code
    71	000005'	254 00 0 00 000012'		 JRST	INPEX			; Not first time
    72	000006'	476 00 0 00 015073'		SETOM	ONETIM			;Mark that this code is executed
    73	000007'	476 00 0 00 000000*		SETOM	P%T20
    74	000010'	201 00 0 00 000020'		MOVEI	AC0,LOGNAM		;Get address of the logname to use
    75	000011'	202 00 0 00 000000*		MOVEM	AC0,P%T20P		;Save it
    76
    77	000012'	037 01 0 00 015644'	INPEX:	PMSG	<F[OR HELP, TYPE "[HELP" [AFTER THE PROGRAM PROMPT^>
    78	000013'	260 17 0 00 000373'		GO	CTSAVE			;Save controlling terminal parameters
    79	000014'	201 01 0 00 400000 		MOVEI	AC1,.FHSLF		;Process handle
    80	000015'	200 02 0 00 015655'		MOVE	AC2,[1B<.TICTI>]	;Enable all type-in
    81	000016'	104 00 0 00 000174 		STIW				;Set Terminal Interrupt Word to
    82	000017'	263 17 0 00 000000 		RTN				; allow ^C exit at any time to monitor
    83
    84	000020'	104 123 113 072 122 	LOGNAM:	ASCIZ/DSK:REMOTE.LOG/
    85	000021'	105 115 117 124 105 
    86	000022'	056 114 117 107 000 
    87
    88			015656'		T=SIXBTZ<NI SERVER>
    89
    90	000023'	000000	000000		PWFLG:	0				;When set, "HEX" will rejustify for
    91										;PASSWORD & not for ADDRESS
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 4
RMTCNM	MAC	10-Jun-85 15:20		INITIAL START UP                                                                   SEQ 0083

    92
    93					;#**********************************************************************
    94					; If data stack push down overflow occurs, program will come here.
    95					;#**********************************************************************
    96
    97	000024'	037200	015660'		DSERR:	FATALP	<^DATA STACK PUSH DOWN LIST OVERFLOW^>
    98
    99	000025'	037 01 0 00 015667'	$ERJSYS:	PMSG	<^? JSYS E[RROR AT >
   100	000026'	262 17 0 00 000000 		GETIT	AC0
   101	000027'	037 06 0 00 000000 		PNT6
   102	000030'	037 01 0 00 015673'		PMSG	< - >
   103
   104	000031'	561 01 0 00 000000*		HRROI	AC1,ATOM
   105	000032'	525 02 0 00 400000 		HRLOI	AC2,.FHSLF		;Get system error string
   106	000033'	400 03 0 00 000000 		SETZ	AC3,
   107	000034'	104 00 0 00 000011 		ERSTR
   108	000035'	104 00 0 00 000170 		 HALTF
   109	000036'	104 00 0 00 000170 		 HALTF
   110
   111	000037'	037 00 0 00 000031*		PNTMSG	ATOM
   112	000040'	037 03 0 00 000001 		PCRLF
   113	000041'	104 00 0 00 000170 		HALTF
   114	000042'	254 00 0 00 000002*		JRST	START
   115
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 5
RMTCNM	MAC	10-Jun-85 15:20		REMOTE TERMINAL OPERATION                                                          SEQ 0084

   116					SUBTTL	REMOTE TERMINAL OPERATION
   117					;#****************************************************************************
   118					; $REMOTE subroutine - Entered from "CONNECT" in RMTCNP.
   119					;#****************************************************************************
   120
   121	000043'	402 00 0 00 000452'	$REMOTE:SETZM	IBUFCT			;Init terminal input buffer char ctr
   122	000044'	402 00 0 00 000453'		SETZM	OBUFCT			;Init terminal output buffer char ctr
   123
   124	000045'	402 00 0 00 000454'		SETZM	TTIBUF			;Clear buffers (helps debug)
   125	000046'	200 01 0 00 015674'		MOVE	AC1,[TTIBUF,,TTIBUF+1]	;Source,,Dest
   126	000047'	251 01 0 00 010313'		BLT	AC1,TABLEN
   127
   128	000050'	402 00 0 00 000441'		SETZM	XOFFLG			;XOFF flag
   129	000051'	402 00 0 00 000442'		SETZM	BRKFLG			;BREAK flag
   130	000052'	402 00 0 00 000443'		SETZM	CHRFLG			;Character received flag
   131	000053'	402 00 0 00 000444'		SETZM	TIMINT			;Timer interrupt
   132	000054'	402 00 0 00 000445'		SETZM	EXTFLG			;Exit character received flag
   133	000055'	402 00 0 00 000446'		SETZM	MNOFLG			;Msg number flag used in RCSND & RCPOL
   134	000056'	402 00 0 00 015324'		SETZM	CMDPND			;Command pending flag
   135
   136	000057'	260 17 0 00 000415'		GO	INITIM			;Initialize reservation timer
   137
   138					; SETUP TERMINAL
   139					;#**************************
   140
   141	000060'	201 01 0 00 777777 	REM1:	MOVEI	AC1,.CTTRM		;Specified termimal
   142	000061'	104 00 0 00 000107 		RFMOD				; read its JFN mode word
   143	000062'	202 02 0 00 000437'		MOVEM	AC2,TTMOD		; & save it (restored in REMX)
   144	000063'	620 02 0 00 004300 		TRZ	AC2,1B24!3B29		;change to: 7 bit in/out, echos off,
   145										; no format control, no translation
   146	000064'	104 00 0 00 000110 		SFMOD				;Set program related modes for
   147										; specified terminal
   148	000065'	201 01 0 00 400000 	REM3:	MOVEI	AC1,.FHSLF		;Process handle
   149	000066'	104 00 0 00 000173 		RTIW				;Read terminal interrupt word
   150	000067'	202 02 0 00 000440'		MOVEM	AC2,TTIWD		; & save it (restored in REMX)
   151	000070'	201 01 0 00 400000 		MOVEI	AC1,.FHSLF		;Process handle
   152	000071'	200 02 0 00 015655'		MOVE	AC2,[1B<.TICTI>]	;All type in
   153	000072'	104 00 0 00 000174 		STIW				;Set modified terminal interr word
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 6
RMTCNM	MAC	10-Jun-85 15:20		REMOTE TERMINAL OPERATION                                                          SEQ 0085

   154
   155					; SETUP INTERRUPTS
   156					;#***********************
   157
   158	000073'	201 01 0 00 400000 	REM6:	MOVEI	AC1,.FHSLF		;Current process handle
   159	000074'	200 02 0 00 015675'		MOVE	AC2,[LEVTAB,,CHNTAB]	;interrupt tables
   160	000075'	104 00 0 00 000125 		SIR				;Set chan & priority level table addr
   161										; for current process
   162	000076'	104 00 0 00 000126 		EIR				;Enable interrupt system
   163
   164	000077'	200 01 0 00 015676'		MOVE	AC1,[.TICTI,,2]		;Assign terminal intr for ALL TYPE-IN
   165	000100'	104 00 0 00 000137 		ATI				; for chan 2
   166
   167	000101'	201 01 0 00 400000 		MOVEI	AC1,.FHSLF		;Current process handle
   168	000102'	200 02 0 00 015677'		MOVE	AC2,[17B3]		;Chan 0,1,2,3
   169	000103'	104 00 0 00 000131 		AIC				;Activate specified channels only
   170
   171					;#*************************************************************************
   172					; Loop & wait for characters from TTY input
   173					;#*************************************************************************
   174
   175	000104'	200 05 0 00 015700'		MOVE	AC5,[POINT 8,TTIBUF]	;Init input buffer pointer
   176
   177	000105'	332 00 0 00 000443'	LOOP:	SKIPE	CHRFLG			;Have a char?
   178	000106'	254 00 0 00 000114'		 JRST	LOOP1			; yes, process it
   179	000107'	336 00 0 00 000444'		SKIPN	TIMINT			;Reservation timer up yet?
   180	000110'	254 00 0 00 000105'		 JRST	LOOP			; No, try all over
   181	000111'	332 00 0 00 015065'		SKIPE	TRCFLG			;Yes, force RCPOLL
   182	000112'	037 01 0 00 015701'		 PMSG	<^S[ENDING NULL [RCSEND [TO FORCE [RCPOLL [TO NOT LOOSE CONNECTION^>
   183	000113'	254 00 0 00 000117'		JRST	LOOP2
   184
   185	000114'	402 00 0 00 000443'	LOOP1:	SETZM	CHRFLG
   186	000115'	332 00 0 00 000445'		SKIPE	EXTFLG			;Was it "EXIT CHAR"?
   187	000116'	254 00 0 00 000136'		 JRST	LOOPX			; Yes, restore all & return
   188
   189	000117'	332 00 0 00 015324'	LOOP2:	SKIPE	CMDPND			;No, command pending?
   190	000120'	254 00 0 00 000105'		 JRST	LOOP			; Yes, RCSEND denied
   191
   192	000121'	350 00 0 00 000446'		AOS	MNOFLG			;Complement msg number
   193	000122'	476 00 0 00 015324'		SETOM	CMDPND			;Set command pending
   194	000123'	402 00 0 00 000444'		SETZM	TIMINT
   195	000124'	260 17 0 00 000415'		GO	INITIM			;Initialize reservation timer
   196
   197									; *** MUST TRANSACT ***
   198
   199	000125'	201 01 0 00 400000 		MOVEI	AC1,.FHSLF		;Invoke RCSEND: Current process handle
   200	000126'	200 02 0 00 015715'		MOVE	AC2,[1B0]		;Channel 0
   201	000127'	104 00 0 00 000132 		IIC				;Initiate interrupt on chan 0 (RCSEND)
   202
   203	000130'	336 00 0 00 015070'		SKIPN	DBGFLG			;Debug?
   204	000131'	254 00 0 00 000105'		 JRST	LOOP			; no, repeat all
   205	000132'	201 01 0 00 400000 		MOVEI	AC1,.FHSLF		;Invoke RCPOLL: Current process handle
   206	000133'	200 02 0 00 015716'		MOVE	AC2,[1B1]		;Channel 1
   207	000134'	104 00 0 00 000132 		IIC				;Initiate interrupt on chan 1 (RCPOLL)
   208	000135'	254 00 0 00 000105'		JRST	LOOP			;Repeat all
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 7
RMTCNM	MAC	10-Jun-85 15:20		REMOTE TERMINAL OPERATION                                                          SEQ 0086

   209
   210					; We got EXIT CHAR...reset stuff & go back to command mode
   211					;#*********************************************************
   212
   213	000136'	260 17 0 00 012627'	LOOPX:	GO	RELCON			;Release console
   214	000137'	600 00 0 00 000000 		 NOP				; Unsucessful release
   215	000140'	200 01 0 00 015717'		MOVE	AC1,[.TICTI]		;Clear interrupts
   216	000141'	104 00 0 00 000140 		DTI				;De-assign all type-in
   217
   218	000142'	201 01 0 00 400000 		MOVEI	AC1,.FHSLF
   219	000143'	200 02 0 00 015677'		MOVE	AC2,[17B3]
   220	000144'	104 00 0 00 000133 		DIC				;De-activate chan 0,1,2,3
   221	000145'	104 00 0 00 000130 		DIR				;Disable system
   222	000146'	104 00 0 00 000141 		CIS				;Clear interrupt system
   223
   224					; RESTORE TERMINAL
   225					;#************************
   226
   227	000147'	201 01 0 00 777777 	LOOPX1:	MOVEI	AC1,.CTTRM		; Specified terminal
   228	000150'	200 02 0 00 000437'		MOVE	AC2,TTMOD		; get orig JFN mode word
   229	000151'	104 00 0 00 000110 		SFMOD				; restore program related modes
   230	000152'	104 00 0 00 000217 		STPAR				; restore device  related modes
   231
   232	000153'	201 01 0 00 400000 		MOVEI	AC1,.FHSLF		;Process handle
   233	000154'	200 02 0 00 000440'		MOVE 	AC2,TTIWD		;Get orig terminal interr word
   234	000155'	104 00 0 00 000174 		STIW				; & restore orig terminal int word
   235
   236	000156'	037 03 0 00 000001 		PCRLF
   237
   238	000157'	263 17 0 00 000000 		RTN				; & return to Parser in RMTCNP
   239
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 8
RMTCNM	MAC	10-Jun-85 15:20		TERMINAL INPUT INTERRUPT HANDLER                                                   SEQ 0087

   240					SUBTTL	TERMINAL INPUT INTERRUPT HANDLER
   241					;#***************************************************************************
   242					;Input chars from the TTY & set various flags depending on character.
   243					;Other routines/interrupt handlers will key off the flags.
   244					;Put all other chars into TTIBUF.
   245					; (See P.2-59 TOPS-20 MONITOR CALLS REFERENCE MANUAL)
   246					;#***************************************************************************
   247
   248	000160'	261 17 0 00 000001 	TTYINP:	PUTIT	<AC1,AC0>		;Save some ac's
   249	000161'	261 17 0 00 000000 
   250	000162'	201 01 0 00 777777 	TTIN7:	MOVEI	AC1,.CTTRM		;TTY source designation
   251	000163'	104 00 0 00 000102 		SIBE				;TTY input buffer empty?
   252	000164'	254 00 0 00 000166'		 JRST	TTIN2			; no, get character
   253	000165'	254 00 0 00 000222'		JRST	TTINX			;yes, dismiss interrupt
   254
   255	000166'	104 00 0 00 000073 	TTIN2:	PBIN				;Get character from terminal
   256	000167'	312 01 0 00 015071'		CAME	AC1,TTEXIT		;Match exit character ?
   257	000170'	254 00 0 00 000174'		 JRST	TTIN1			; no, continue
   258	000171'	476 00 0 00 000445'		SETOM	EXTFLG			;Yes, set flag for use in $REMOTE
   259	000172'	476 00 0 00 000443'		SETOM	CHRFLG
   260	000173'	254 00 0 00 000222'		JRST	TTINX			;& exit
   261
   262	000174'	302 01 0 00 000002 	TTIN1:	CAIE	AC1,"B"-100		;Control-B ?
   263	000175'	254 00 0 00 000201'		 JRST	TTIN6
   264	000176'	476 00 0 00 000442'		SETOM	BRKFLG			;Yes, set flag for use in RCSND
   265	000177'	476 00 0 00 000443'		SETOM	CHRFLG
   266	000200'	254 00 0 00 000222'		JRST	TTINX
   267
   268	000201'	302 01 0 00 000023 	TTIN6:	CAIE	AC1,XOFF		;XOFF ?
   269	000202'	254 00 0 00 000205'		 JRST	TTIN3
   270	000203'	476 00 0 00 000441'		SETOM	XOFFLG			;Yes, stop output
   271	000204'	254 00 0 00 000222'		JRST	TTINX
   272
   273	000205'	302 01 0 00 000021 	TTIN3:	CAIE	AC1,XON			;Xon ?
   274	000206'	254 00 0 00 000211'		 JRST	TTIN5
   275	000207'	402 00 0 00 000441'		SETZM	XOFFLG			;Yes, allow output
   276	000210'	254 00 0 00 000222'		JRST	TTINX
   277
   278	000211'	200 00 0 00 000452'	TTIN5:	MOVE	AC0,IBUFCT		;Get terminal input pointers
   279	000212'	317 00 0 00 010314'		CAMG	AC0,CBUFSZ		;Pointer beyond buff size?
   280	000213'	254 00 0 00 000216'		 JRST	TTIN4			; no
   281	000214'	037 01 0 00 015720'		PMSG	<^WARNING...INPUT BUFFER POINTER BEYOND BUFF LENGTH^>
   282	000215'	254 00 0 00 000222'		JRST	TTINX
   283
   284	000216'	136 01 0 00 000005 	TTIN4:	IDPB	AC1,AC5			;Deposit byte in TTIBUF
   285	000217'	350 00 0 00 000452'		AOS	IBUFCT			;bump pointer
   286	000220'	476 00 0 00 000443'		SETOM	CHRFLG
   287	000221'	254 00 0 00 000162'		JRST	TTIN7			;see if tty buffer empty
   288
   289	000222'	262 17 0 00 000000 	TTINX:	GETIT	<AC0,AC1>		;Restore ac's
   290	000223'	262 17 0 00 000001 
   291	000224'	104 00 0 00 000136 		DEBRK				;dismiss interrupt
   292
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 9
RMTCNM	MAC	10-Jun-85 15:20		RCSND INTERRUPT HANDLER                                                            SEQ 0088

   293					SUBTTL	RCSND INTERRUPT HANDLER
   294					;#*****************************************************************************
   295					; Take chars from the input buffer (TTIBUF) & pass them to PLUTO
   296					; via the RCSND LLMOP.
   297					; RCSND sets the argument block (RCSNDB+.LMREQ) to interrupt when RCPOL arrives
   298					;#*****************************************************************************
   299
   300	000225'	261 17 0 00 000001 	RCSEND:	PUTIT	<AC1,AC0>		;Save some ac's
   301	000226'	261 17 0 00 000000 
   302	000227'	336 00 0 00 015070'		SKIPN	DBGFLG			;Debug?
   303	000230'	254 00 0 00 000245'		 JRST	RCS4			; no
   304
   305	000231'	200 05 0 00 015700'		MOVE	AC5,[POINT 8,TTIBUF]	;Yes, fake it!
   306	000232'	200 06 0 00 015731'		MOVE	AC6,[POINT 8,TTOBUF]
   307
   308	000233'	200 00 0 00 000452'		MOVE	AC0,IBUFCT
   309	000234'	202 00 0 00 000453'		MOVEM	AC0,OBUFCT		;For later use by RCPOLL
   310
   311	000235'	336 00 0 00 000452'		SKIPN	IBUFCT			;Any input?
   312	000236'	254 00 0 00 000256'		 JRST	RCSX			; no, dismiss interrupt
   313
   314	000237'	134 00 0 00 000005 	RCS2:	ILDB	AC0,AC5			;Yes, put TTIBUF char in ac0
   315	000240'	136 00 0 00 000006 		IDPB	AC0,AC6			;then to TTOBUF
   316
   317	000241'	372 00 0 00 000452'		SOSE	IBUFCT			;any chars left?
   318	000242'	254 00 0 00 000237'		 JRST	RCS2			; yes, do again
   319
   320	000243'	200 05 0 00 015700'		MOVE	AC5,[POINT 8,TTIBUF]	;No, init input buffer pointer
   321	000244'	254 00 0 00 000256'		JRST	RCSX			; & dismiss interrupt
   322
   323	000245'	200 00 0 00 015700'	RCS4:	MOVE	AC0,[POINT 8,TTIBUF]
   324	000246'	200 01 0 00 000452'		MOVE	AC1,IBUFCT
   325	000247'	261 16 0 00 000000 		PUSHD	<AC0,AC1>		;Buffer ptr & Byte Count for RCSND
   326	000250'	261 16 0 00 000001 
   327	000251'	260 17 0 00 010744'		GO	RCSND			;Do Send Console Command jsys
   328	000252'	254 00 0 00 000261'		 JRST	RCS6			; Jsys error return
   329	000253'	262 16 0 00 015072'		POPD	SREQN			;Save req # (not used)
   330
   331	000254'	402 00 0 00 000452'		SETZM	IBUFCT			;re-init byte counter
   332	000255'	200 05 0 00 015700'		MOVE	AC5,[POINT 8,TTIBUF]	; & init input buffer pointer
   333
   334	000256'	262 17 0 00 000000 	RCSX:	GETIT	<AC0,AC1>		;Restore ac's
   335	000257'	262 17 0 00 000001 
   336	000260'	104 00 0 00 000136 		DEBRK				;dismiss interrupt
   337
   338
   339	000261'	037 01 0 00 015732'	RCS6:	PMSG	<^.RCSND JSYS F[AILURE - ^>
   340	000262'	260 17 0 00 011641'		GO	FJSYS			;Go report jsys error
   341	000263'	254 00 0 00 000256'		JRST	RCSX			;dismiss interrupt
   342
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 10
RMTCNM	MAC	10-Jun-85 15:20		RCPOL INTERRUPT HANDLER                                                            SEQ 0089

   343					SUBTTL	RCPOL INTERRUPT HANDLER
   344					;#**************************************************************************
   345					; Do RCPOL, put response into output buffer (TTOBUF) & display it.
   346					;#**************************************************************************
   347
   348	000264'	261 17 0 00 000002 	RCPOLL:	PUTIT	<AC2,AC1,AC0>		;Save some ac's
   349	000265'	261 17 0 00 000001 
   350	000266'	261 17 0 00 000000 
   351	000267'	336 00 0 00 015070'		SKIPN	DBGFLG			;Debug?
   352	000270'	254 00 0 00 000273'		 JRST	RCP7			; no
   353	000271'	402 00 0 00 015324'		SETZM	CMDPND			;Yes, clear flag
   354	000272'	254 00 0 00 000334'		JRST	RCP5			; & skip RCPOLL
   355
   356	000273'	336 00 0 00 015324'	RCP7:	SKIPN	CMDPND			;Command pending?
   357	000274'	254 00 0 00 000356'		 JRST	RCPX			; No, unrecognized request...exit
   358
   359	000275'	200 00 0 00 015731'		MOVE	AC0,[POINT 8,TTOBUF]	;Yes
   360	000276'	200 01 0 00 010315'		MOVE	AC1,RBUFSZ		;Response buffer size
   361	000277'	261 16 0 00 000000 		PUSHD	<AC0,AC1>		;Buff ptr & useable buff len for RCPOL
   362	000300'	261 16 0 00 000001 
   363	000301'	260 17 0 00 011030'		GO	RCPOL			;Do Console Response Poll jsys
   364	000302'	254 00 0 00 000362'		 JRST	RCP2			; jsys error return
   365	000303'	200 00 0 00 011076'		MOVE	AC0,RCPOLB+.LMCID	;Get flags
   366
   367	000304'	200 01 0 00 000446'		MOVE	AC1,MNOFLG		;Get Msg # flag
   368	000305'	606 01 0 00 000001 		TRNN	AC1,1B35		;Skip if should test for LM%MNO = 1
   369	000306'	254 00 0 00 000312'		 JRST	RCP1			; else test for LM%MNO = 0
   370
   371	000307'	607 00 0 00 000001 		TLNN	AC0,(LM%MNO)
   372	000310'	254 00 0 00 000330'		 JRST	RCP6			;Invoke RCSEND again (must transact)
   373	000311'	254 00 0 00 000314'		JRST	RCP3
   374
   375	000312'	603 00 0 00 000001 	RCP1:	TLNE	AC0,(LM%MNO)
   376	000313'	254 00 0 00 000330'		 JRST	RCP6			;Invoke RCSEND again (must transact)
   377
   378	000314'	402 00 0 00 015324'	RCP3:	SETZM	CMDPND			;Clear command pending
   379	000315'	603 00 0 00 000002 		TLNE	AC0,(LM%CDL)
   380	000316'	037 01 0 00 015737'		 PMSG	<^RCPOL S[TATUS - [C[OMMAND [D[ATA [L[OST^>
   381	000317'	603 00 0 00 000004 		TLNE	AC0,(LM%RDO)
   382	000320'	037 01 0 00 015746'		 PMSG	<^RCPOL S[TATUS - [R[ESPONSE [D[ATA [L[OST^>
   383	000321'	603 00 0 00 002000 		TLNE	AC0,(LM%RDL)
   384	000322'	037 01 0 00 015756'		 PMSG	<^RCPOL S[TATUS - [R[ECEIVE [D[ATA [L[OST^>
   385	000323'	554 00 0 00 011102'		HLRZ	AC0,RCPOLB+.LMRBL	;Get returned message length
   386	000324'	202 00 0 00 000453'		MOVEM	AC0,OBUFCT		; & put in output buff char count
   387
   388	000325'	313 00 0 00 010315'		CAMLE	AC0,RBUFSZ		;Pointer beyond buffer size?
   389						 PMSG	<^WARNING...RCPOLL RET MSG LEN GREATER THAN AVAIL RESP BUFF SIZE...PGM MAY B
   390	000326'	037 01 0 00 015765'	E OVERLAID^>
   391	000327'	254 00 0 00 000334'		JRST	RCP5
   392									; *** MUST TRANSACT ***
   393
   394	000330'	201 01 0 00 400000 	RCP6:	MOVEI	AC1,.FHSLF		;Repeat RCSEND
   395	000331'	200 02 0 00 015715'		MOVE	AC2,[1B0]		; on channel 0
   396	000332'	104 00 0 00 000132 		IIC				;Initiate Interrupt
   397	000333'	254 00 0 00 000356'		JRST	RCPX			; & exit
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 11
RMTCNM	MAC	10-Jun-85 15:20		RCPOL INTERRUPT HANDLER                                                            SEQ 0090

   398
   399					;#****************************************************************************
   400					; Display TTOBUF
   401					;#****************************************************************************
   402
   403	000334'	200 06 0 00 015731'	RCP5:	MOVE	AC6,[POINT 8,TTOBUF]	;Init output buffer pointer
   404
   405	000335'	201 01 0 00 000101 	RCP4:	MOVEI	AC1,.PRIOU		;Do actual display
   406	000336'	104 00 0 00 000175 		SOBF				;Is output buffer full? (def by .PRIOU)
   407	000337'	334 00 0 00 000000 		SKIPA				;No
   408	000340'	254 00 0 00 000335'		 JRST	RCP4			; Yes, have to wait
   409
   410	000341'	375 00 0 00 000453'		SOSGE	OBUFCT			;Decr & see if any chars to display?
   411	000342'	254 00 0 00 000356'		 JRST	RCPX			; no, exit
   412	000343'	134 01 0 00 000006 		ILDB	AC1,AC6			;Yes, put char in ac1
   413	000344'	322 01 0 00 000335'		JUMPE	AC1,RCP4		;Ignore nulls
   414
   415	000345'	332 00 0 00 000441'		SKIPE	XOFFLG			;XOFF set?
   416	000346'	254 00 0 00 000345'		 JRST	.-1			; yes, loop until cleared by TTYINP
   417										; (priority 1)
   418	000347'	104 00 0 00 000074 		PBOUT				;No, print (ac1) on users terminal
   419
   420	000350'	200 02 0 00 000001 		MOVE	AC2,AC1			;Byte to output
   421	000351'	200 01 0 00 000000*		MOVE	AC1,P%DJFN		;Dest designation
   422	000352'	332 00 0 00 015066'		SKIPE	LOGFLG
   423	000353'	104 00 0 00 000051 		BOUT				;Put in log (def by P%DJFN)
   424	000354'	320 17 0 00 000365'		 ERCAL	TTBERR
   425	000355'	254 00 0 00 000335'		JRST	RCP4			;Do next char
   426
   427	000356'	262 17 0 00 000000 	RCPX:	GETIT	<AC0,AC1,AC2>		;Restore ac's
   428	000357'	262 17 0 00 000001 
   429	000360'	262 17 0 00 000002 
   430	000361'	104 00 0 00 000136 		DEBRK				;dismiss interrupt
   431
   432
   433	000362'	037 01 0 00 016004'	RCP2:	PMSG	<^.RCPOL JSYS F[AILURE - ^>
   434	000363'	260 17 0 00 011641'		GO	FJSYS			;Go report jsys error
   435	000364'	254 00 0 00 000356'		JRST	RCPX			;dismiss interrupt
   436
   437
   438					TTBERR:	TMSG	<
   439					LOG OUTPUT ERROR - LOGGING STOPPED
   440	000365'	561 01 0 00 016011'	>
   441	000366'	104 00 0 00 000076 
   442	000367'	402 00 0 00 015066'		SETZM	LOGFLG
   443	000370'	402 00 0 00 000000*		SETZM	CONSW
   444	000371'	037 05 0 00 000003 		DROPDV
   445	000372'	263 17 0 00 000000 		RTN
   446
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 12
RMTCNM	MAC	10-Jun-85 15:20		SAVE/RESTORE TERMINAL PARAMETERS                                                   SEQ 0091

   447					SUBTTL	SAVE/RESTORE TERMINAL PARAMETERS
   448					;#************************************************************************
   449
   450					;Save original controlling terminal parameters
   451					;Called from beginning of RMTCNM
   452
   453	000373'	201 01 0 00 777777 	CTSAVE:	MOVEI	AC1,.CTTRM		;get specified terminal
   454	000374'	104 00 0 00 000107 		RFMOD				;get its JFN mode word
   455	000375'	320 17 0 00 000025'		 ERJSYS
   456	000376'	202 02 0 00 000434'		MOVEM	AC2,CTMOD		; & save it for restore below
   457
   458	000377'	104 00 0 00 000112 		RFCOC				;get control char output (cont words)
   459	000400'	320 17 0 00 000025'		 ERJSYS
   460	000401'	124 02 0 00 000435'		DMOVEM	AC2,CTCOC		; & save 'em for restore below
   461	000402'	263 17 0 00 000000 		RTN
   462
   463					;Restore original controlling terminal parameters
   464					;Called from "QUIT" in RMTCNP
   465
   466	000403'	201 01 0 00 777777 	CTRSTR:	MOVEI	AC1,.CTTRM		;get specified terminal
   467	000404'	200 02 0 00 000434'		MOVE	AC2,CTMOD		;get saved JFN mode word
   468	000405'	104 00 0 00 000110 		SFMOD				; restore orig program related modes
   469	000406'	104 00 0 00 000217 		STPAR				; restore orig device  related modes
   470
   471	000407'	120 02 0 00 000435'		DMOVE	AC2,CTCOC		;get saved control char output
   472	000410'	104 00 0 00 000113 		SFCOC				; restore orig back
   473	000411'	263 17 0 00 000000 		RTN
   474
   475
   476					; TIMER INTERRUPT HANDLER
   477					;#**************************************************************************
   478
   479	000412'	350 00 0 00 000444'	ETIME:	AOS	TIMINT			;Set reservation time up flag
   480	000413'	260 17 0 00 000415'		GO	INITIM			;Init reservation timer
   481	000414'	104 00 0 00 000136 		DEBRK				;Dismiss interrupt
   482
   483
   484					; INITIALIZE RESERVATION TIMER
   485					;#****************************************************************************
   486
   487	000415'	261 17 0 00 000003 	INITIM:	PUTIT	<AC3,AC2,AC1>		;Save some ac's
   488	000416'	261 17 0 00 000002 
   489	000417'	261 17 0 00 000001 
   490	000420'	200 01 0 00 016021'		MOVE	AC1,[.FHSLF,,.TIMAL]	;Process handle,,reset timer interrupt
   491	000421'	104 00 0 00 000522 		TIMER
   492	000422'	037 01 0 00 016022'		 PMSG	<^ERROR IN TIMER JSYS^>
   493	000423'	200 01 0 00 016026'		MOVE	AC1,[.FHSLF,,.TIMEL]	;Process handle,,do elapsed time
   494	000424'	200 02 0 00 000447'		MOVE	AC2,RESTIM		;Reservation timer from SYS-ID (RESCON)
   495	000425'	201 03 0 00 000003 		MOVEI	AC3,3			;Interrupt on channel 3
   496	000426'	104 00 0 00 000522 		TIMER				;Invoke timer jsys
   497	000427'	037 01 0 00 016022'		 PMSG	<^ERROR IN TIMER JSYS^>
   498	000430'	262 17 0 00 000001 		GETIT	<AC1,AC2,AC3>		;Restore ac's
   499	000431'	262 17 0 00 000002 
   500	000432'	262 17 0 00 000003 
   501	000433'	263 17 0 00 000000 		RTN
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 13
RMTCNM	MAC	10-Jun-85 15:20		SAVE/RESTORE TERMINAL PARAMETERS                                                   SEQ 0092

   502
   503					SUBTTL	REMOTE TERMINAL STORAGE
   504					;#*************************************************************************
   505
   506	000434'	000000	000000		CTMOD:	0				;Controlling terminal parameters
   507	000435'	000000	000000		CTCOC:	0				;Controlling terminal coc
   508	000436'	000000	000000			0				; "
   509	000437'	000000	000000		TTMOD:	0				;Terminal parameters
   510	000440'	000000	000000		TTIWD:	0				;Terminal interrupt word
   511
   512	000441'	000000	000000		XOFFLG:	0				;Xoff flag. enabled = -1
   513	000442'	000000	000000		BRKFLG:	0				;Break flag. enabled = -1
   514	000443'	000000	000000		CHRFLG:	0				;Received character flag
   515	000444'	000000	000000		TIMINT:	0				;Timer interrupt counter
   516	000445'	000000	000000		EXTFLG:	0				;Received exit character flag
   517	000446'	000000	000000		MNOFLG:	0				;Message Number flag
   518										;Alternate between 0 & 1 in RCSND
   519										;Should receive same sense in RCPOL
   520	000447'	000000	000000		RESTIM:	0				;Reservation timer from SYS-ID (RESCON)
   521
   522	000450'	000000	000000		TO$FORK:0				;Terminal output fork handle
   523	000451'	000000	000000		NI$FORK:0				;"NI" Fork handle
   524
   525	000452'	000000	000000		IBUFCT:	0				;Terminal input buffer char counter
   526	000453'	000000	000000		OBUFCT:	0				;Terminal output buffer char counter
   527
   528	000454'				TTIBUF:	BLOCK	BUFSIZ			;Terminal input buffer (command buffer)
   529	004374'				TTOBUF:	BLOCK	BUFSIZ			;Terminal output buffer (response buff)
   530			010313'		TABLEN= .-1				;Table length
   531
   532	010314'	000000	000620		CBUFSZ:	^D400				;Default values...will be modified
   533	010315'	000000	001750		RBUFSZ:	^D1000				; in RESCON
   534
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 14
RMTCNM	MAC	10-Jun-85 15:20		INTERRUPT CHANNEL & LEVEL TABLES                                                   SEQ 0093

   535					SUBTTL	INTERRUPT CHANNEL & LEVEL TABLES
   536					;#****************************************************************************
   537
   538	010316'	000001	000225'		CHNTAB:	1,,RCSEND			;Chan 0 priority 1,,service routine
   539	010317'	000003	000264'			3,,RCPOLL			;Chan 1 priority 3
   540	010320'	000002	000160'			2,,TTYINP			;Chan 2 priority 2
   541	010321'	000003	000412'			3,,ETIME			;Chan 3 priority 3
   542						REPEAT ^D32,<0>			;Zero rest of table
   543	010322'	000000	000000
   544	010323'	000000	000000
   545	010324'	000000	000000
   546	010325'	000000	000000
   547	010326'	000000	000000
   548	010327'	000000	000000
   549	010330'	000000	000000
   550	010331'	000000	000000
   551	010332'	000000	000000
   552	010333'	000000	000000
   553	010334'	000000	000000
   554	010335'	000000	000000
   555	010336'	000000	000000
   556	010337'	000000	000000
   557	010340'	000000	000000
   558	010341'	000000	000000
   559	010342'	000000	000000
   560	010343'	000000	000000
   561	010344'	000000	000000
   562	010345'	000000	000000
   563	010346'	000000	000000
   564	010347'	000000	000000
   565	010350'	000000	000000
   566	010351'	000000	000000
   567	010352'	000000	000000
   568	010353'	000000	000000
   569	010354'	000000	000000
   570	010355'	000000	000000
   571	010356'	000000	000000
   572	010357'	000000	000000
   573	010360'	000000	000000
   574	010361'	000000	000000
   575
   576	010362'	000000	010365'		LEVTAB:	0,,PCSND			;Addr to save PC for priority lev 1
   577	010363'	000000	010367'			0,,PCTTY			;  ditto for lev 2
   578	010364'	000000	010371'			0,,PCPOLL			;  ditto for lev 3
   579
   580	010365'	000000	000000		PCSND:	0				;Ret addr for lev 1 - RCSEND
   581	010366'	000000	000000			0				; use 2 words for possible ext address
   582	010367'	000000	000000		PCTTY:	0				;Ret addr for lev 2 - TTYINP
   583	010370'	000000	000000			0
   584	010371'	000000	000000		PCPOLL:	0				;Ret addr for lev 3 - RCPOLL & ETIME
   585	010372'	000000	000000			0
   586
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 15
RMTCNM	MAC	10-Jun-85 15:20		RCRID SUBROUTINE                                                                   SEQ 0094

   587					SUBTTL	RCRID SUBROUTINE
   588					;#*************************************************************************
   589					;* RCRID subroutine
   590					;  
   591					; Send a Request Identity LLMOP to the dest address node on the Ethernet.
   592					;
   593					; Return +1 if a jsys error occurs.
   594					; Return +2 if successful...the data stack will contain the Request Number
   595					;			     for later .RCRPY/.RCABT/.RCSTS calls.
   596					;#**********************************************************************
   597
   598	010373'	261 17 0 00 000002 	RCRID:	PUTIT	<AC2,AC1,AC0>		;Save some acs
   599	010374'	261 17 0 00 000001 
   600	010375'	261 17 0 00 000000 
   601					;Fill .rcrid jsys arg block
   602
   603	010376'	200 00 0 00 015041'		MOVE	PRTNBR			;Selected port number
   604	010377'	202 00 0 00 010435'		MOVEM	RCRIDB+.LMCID
   605
   606	010400'	120 00 0 00 015046'		DMOVE	AC0,NODADH		;Put hi/lo dest addr in
   607	010401'	124 00 0 00 010436'		DMOVEM	AC0,RCRIDB+.LMDST	; jsys arg block
   608
   609	010402'	336 00 0 00 015065'		SKIPN	TRCFLG			;Tracing enabled ?
   610	010403'	254 00 0 00 010411'		 JRST	RCRID1			; No
   611
   612					;Print the node address 
   613
   614	010404'	037 01 0 00 016027'		PMSG	<R[EQUESTING [ID[ OF NODE ADDRESS: >
   615	010405'	261 16 0 00 015046'		PUSHD	<NODADH>	 	;Push hex digits 1-8
   616	010406'	261 16 0 00 015047'		PUSHD	<NODADL> 		;Push hex digits 9-12
   617	010407'	260 17 0 00 011460'		GO	PRHEX			;Print the hex node address
   618	010410'	037 03 0 00 000001 		PCRLF
   619
   620	010411'	201 01 0 00 000006 	RCRID1:	MOVEI	AC1,.RCRID		;Get function code
   621	010412'	201 02 0 00 010435'		MOVEI	AC2,RCRIDB		;Set up pointer to .Rcrid jsys block
   622	010413'	260 17 0 00 011272'		GO	$LLMOP			;Do "LLMOP"
   623	010414'	254 00 0 00 010432'		 JRST	RCRID4			;Error return
   624	010415'	350 00 0 17 777775 		AOS	-3(P)			;Bump return address for success return
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 16
RMTCNM	MAC	10-Jun-85 15:20		RCRID SUBROUTINE                                                                   SEQ 0095

   625
   626	010416'	336 00 0 00 015065'		SKIPN	TRCFLG			;Tracing enabled ?
   627	010417'	254 00 0 00 010424'		 JRST	RCRID2			; No
   628
   629	010420'	037 01 0 00 016035'		PMSG	<.....R[EQUEST # >
   630	010421'	550 00 0 00 010440'		HRRZ	AC0,RCRIDB+.LMREQ	;Get request number
   631	010422'	037 15 0 00 000000 		PNTDEC
   632	010423'	037 03 0 00 000001 		PCRLF
   633
   634	010424'	550 00 0 00 010440'	RCRID2:	HRRZ	AC0,RCRIDB+.LMREQ
   635	010425'	261 16 0 00 000000 		PUSHD	<AC0>			;Push Req # on data stack
   636
   637	010426'	262 17 0 00 000000 	RCRID3:	GETIT	<AC0,AC1,AC2>		;Restore acs
   638	010427'	262 17 0 00 000001 
   639	010430'	262 17 0 00 000002 
   640	010431'	263 17 0 00 000000 		RTN
   641
   642					;Jsys failure comes here
   643
   644	010432'	037 01 0 00 016040'	RCRID4:	PMSG	<^.RCRID JSYS F[AILURE - ^>
   645	010433'	260 17 0 00 011641'		GO	FJSYS			;Go report jsys error
   646	010434'	254 00 0 00 010426'		JRST	RCRID3			;Take jsys error return
   647
   648					;.Rcrid jsys argument block
   649
   650	010435'	000000	000000		RCRIDB:	0				;Channel id (port number)
   651	010436'	000000	000000			0				;Dest addr (hi = byte 0,1,2,3,z)
   652	010437'	000000	000000			0				;Dest addr (lo = byte 4,5,z,z,z)
   653	010440'	000000	000000			0				;Int chan #,,Request number ret by jsys
   654										;Int chan #...0 = no interrupt
   655										;Req # for .RCRPY/.RCABT/.RCSTS
   656
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 17
RMTCNM	MAC	10-Jun-85 15:20		RCRCT SUBROUTINE                                                                   SEQ 0096

   657					SUBTTL	RCRCT SUBROUTINE
   658					;#*************************************************************************
   659					;* RCRCT subroutine
   660					;  
   661					;  Send a Read Counters LLMOP to the dest address node on the Ethernet.
   662					;
   663					;  Return +1 if a jsys error occurs.
   664					;  Return +2 if successful...the data stack will contain the Request Number
   665					;			     for later .RCRPY/.RCABT/.RCSTS calls.
   666					;#**********************************************************************
   667
   668	010441'	261 17 0 00 000002 	RCRCT:	PUTIT	<AC2,AC1,AC0>		;Save some acs
   669	010442'	261 17 0 00 000001 
   670	010443'	261 17 0 00 000000 
   671					;Fill .rcrct jsys arg block
   672
   673	010444'	200 00 0 00 015041'		MOVE	PRTNBR			;Selected port number
   674	010445'	202 00 0 00 010503'		MOVEM	RCRCTB+.LMCID
   675
   676	010446'	120 00 0 00 015046'		DMOVE	AC0,NODADH		;Put hi/lo dest addr in
   677	010447'	124 00 0 00 010504'		DMOVEM	AC0,RCRCTB+.LMDST	; jsys arg block
   678
   679	010450'	336 00 0 00 015065'		SKIPN	TRCFLG			;Tracing enabled ?
   680	010451'	254 00 0 00 010457'		 JRST	RCRCT1			; No
   681
   682					;Print the node address 
   683
   684	010452'	037 01 0 00 016045'		PMSG	<R[EADING [C[OUNTERS OF NODE ADDRESS: >
   685	010453'	261 16 0 00 015046'		PUSHD	<NODADH>	 	;Push hex digits 1-8
   686	010454'	261 16 0 00 015047'		PUSHD	<NODADL> 		;Push hex digits 9-12
   687	010455'	260 17 0 00 011460'		GO	PRHEX			;Print the hex node address
   688	010456'	037 03 0 00 000001 		PCRLF
   689
   690	010457'	201 01 0 00 000007 	RCRCT1:	MOVEI	AC1,.RCRCT		;Get function code
   691	010460'	201 02 0 00 010503'		MOVEI	AC2,RCRCTB		;Set up pointer to .rcrct jsys block
   692	010461'	260 17 0 00 011272'		GO	$LLMOP			;Do "LLMOP"
   693	010462'	254 00 0 00 010500'		 JRST	RCRCT4			;Error return
   694	010463'	350 00 0 17 777775 		AOS	-3(P)			;Bump return address for success return
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 18
RMTCNM	MAC	10-Jun-85 15:20		RCRCT SUBROUTINE                                                                   SEQ 0097

   695
   696	010464'	336 00 0 00 015065'		SKIPN	TRCFLG			;Tracing enabled ?
   697	010465'	254 00 0 00 010472'		 JRST	RCRCT2			; No
   698
   699	010466'	037 01 0 00 016035'		PMSG	<.....R[EQUEST # >
   700	010467'	550 00 0 00 010506'		HRRZ	AC0,RCRCTB+.LMREQ	;Get request number
   701	010470'	037 15 0 00 000000 		PNTDEC
   702	010471'	037 03 0 00 000001 		PCRLF
   703
   704	010472'	550 00 0 00 010506'	RCRCT2:	HRRZ	AC0,RCRCTB+.LMREQ
   705	010473'	261 16 0 00 000000 		PUSHD	<AC0>			;Push Req # on data stack
   706
   707	010474'	262 17 0 00 000000 	RCRCT3:	GETIT	<AC0,AC1,AC2>		;Restore acs
   708	010475'	262 17 0 00 000001 
   709	010476'	262 17 0 00 000002 
   710	010477'	263 17 0 00 000000 		RTN
   711
   712					;Jsys failure comes here
   713
   714	010500'	037 01 0 00 016054'	RCRCT4:	PMSG	<^.RCRCT JSYS F[AILURE - ^>
   715	010501'	260 17 0 00 011641'		GO	FJSYS			;Go report jsys error
   716	010502'	254 00 0 00 010474'		JRST	RCRCT3			;Take jsys error return
   717
   718					;.rcrct jsys argument block
   719
   720	010503'	000000	000000		RCRCTB:	0				;Channel id (port number)
   721	010504'	000000	000000			0				;Dest addr (hi = byte 0,1,2,3,z)
   722	010505'	000000	000000			0				;Dest addr (lo = byte 4,5,z,z,z)
   723	010506'	000000	000000			0				;Int chan #,,Request number ret by jsys
   724										;Int chan #...0 = no interrupt
   725										;Req # for .RCRPY/.RCABT/.RCSTS
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 19
RMTCNM	MAC	10-Jun-85 15:20		RCRBT SUBROUTINE                                                                   SEQ 0098

   726					SUBTTL	RCRBT SUBROUTINE
   727					;#*************************************************************************
   728					;* RCRBT subroutine 
   729					;  
   730					;  Send a Remote Boot LLMOP to the dest address node on the Ethernet
   731					;  to load Console Carrier ucode into PLUTO
   732					;  
   733					;  Return +1 if a jsys error occurs.
   734					;  Return +2 if successful
   735					;#**********************************************************************
   736
   737	010507'	261 17 0 00 000002 	RCRBT:	PUTIT	<AC2,AC1,AC0>		;Save some acs
   738	010510'	261 17 0 00 000001 
   739	010511'	261 17 0 00 000000 
   740					;Fill .rcrbt jsys arg block
   741
   742	010512'	200 00 0 00 015041'		MOVE	PRTNBR			;Selected port number
   743	010513'	202 00 0 00 010550'		MOVEM	RCRBTB+.LMCID
   744
   745	010514'	120 00 0 00 015042'		DMOVE	AC0,TARADH		;Put hi/lo dest addr in
   746	010515'	124 00 0 00 010551'		DMOVEM	AC0,RCRBTB+.LMDST	; jsys arg block
   747
   748	010516'	120 00 0 00 015052'		DMOVE	AC0,PWORDH		;Put password in
   749	010517'	124 00 0 00 010553'		DMOVEM	RCRBTB+.LMPWD		; jsys arg block
   750
   751	010520'	200 00 0 00 016061'		MOVE	AC0,[1B35]		;Put control info - boot comm proc
   752	010521'	202 00 0 00 010555'		MOVEM	AC0,RCRBTB+.LMCIF	; in jsys arg block
   753
   754	010522'	402 00 0 00 010556'		SETZM	RCRBTB+.LMDID		;Device ID
   755
   756	010523'	200 00 0 00 016062'		MOVE	AC0,[POINT 8,RBTSID]	;Put pointer to Software ID
   757	010524'	202 00 0 00 010557'		MOVEM	AC0,RCRBTB+.LMSID	; in jsys arg block
   758
   759	010525'	336 00 0 00 015065'		SKIPN	TRCFLG			;Trace enabled ?
   760	010526'	254 00 0 00 010534'		 JRST	RCRBT1			; No
   761
   762					;Print the node address 
   763
   764	010527'	037 01 0 00 016063'		PMSG	<B[OOT [I[SSUED TO [TARGET NODE ADDRESS: >
   765	010530'	261 16 0 00 015042'		PUSHD	<TARADH>	 	;Push hex digits 1-8
   766	010531'	261 16 0 00 015043'		PUSHD	<TARADL> 		;Push hex digits 9-12
   767	010532'	260 17 0 00 011460'		GO	PRHEX			;Print the hex node address
   768	010533'	037 03 0 00 000001 		PCRLF
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 20
RMTCNM	MAC	10-Jun-85 15:20		RCRBT SUBROUTINE                                                                   SEQ 0099

   769
   770	010534'	201 01 0 00 000011 	RCRBT1:	MOVEI	AC1,.RCRBT		;Get function code
   771	010535'	201 02 0 00 010550'		MOVEI	AC2,RCRBTB		;Set up pointer to .RCRBT jsys block
   772	010536'	260 17 0 00 011272'		GO	$LLMOP			;Do "LLMOP"
   773	010537'	254 00 0 00 010545'		 JRST	RCRBT4			;Error return
   774	010540'	350 00 0 17 777775 		AOS	-3(P)			;Bump return address for success return
   775
   776	010541'	262 17 0 00 000000 	RCRBT3:	GETIT	<AC0,AC1,AC2>		;Restore acs
   777	010542'	262 17 0 00 000001 
   778	010543'	262 17 0 00 000002 
   779	010544'	263 17 0 00 000000 		RTN
   780
   781					;Jsys failure comes here
   782
   783	010545'	037 01 0 00 016072'	RCRBT4:	PMSG	<^.RCRBT JSYS F[AILURE - ^>
   784	010546'	260 17 0 00 011641'		GO	FJSYS			;Go report jsys error
   785	010547'	254 00 0 00 010541'		JRST	RCRBT3			;Take jsys error return
   786
   787					;.RCRBT jsys argument block
   788
   789	010550'	000000	000000		RCRBTB:	0				;Channel id (port number)
   790	010551'	000000	000000			0				;Dest addr (hi = byte 0,1,2,3,z)
   791	010552'	000000	000000			0				;Dest addr (lo = byte 4,5,z,z,z)
   792	010553'	000000	000000			0				;PLUTO password (hi bytes 7,6,5,4,z)
   793	010554'	000000	000000			0				;PLUTO password (lo bytes 3,2,1,0,z)
   794	010555'	000000	000000			0				;Control information
   795	010556'	000000	000000			0				;Pointer to Device-id
   796	010557'	000000	000000			0				;Pointer to Software-id
   797
   798	010560'	000000	000000		RBTDID:	0				;8 bit byte string for Device   ID
   799	010561'	776000	000000		RBTSID:	377B7				; "     "     "    "   Software ID
   800
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 21
RMTCNM	MAC	10-Jun-85 15:20		RCRPY SUBROUTINE                                                                   SEQ 0100

   801					SUBTTL	RCRPY SUBROUTINE
   802					;#****************************************************************************
   803					;* RCRPY subroutine
   804					;
   805					;  Do REMOTE CONSOLE REPLY to a REQUEST-ID or READ COUNTERS LLMOP.
   806					;  
   807					;  1. Push the Request Number on the data stack (from .RCRID/.RCRCT).
   808					;  2. Call this routine via "GO RCRPY".
   809					;  3. Return +1 If a jsys error occured.
   810					;     Return +2 If successful.
   811					;  4. If successful, RCRPYB+.LMRBL will contain the Remote Console Buffer
   812					;     Message Length returned by the jsys.
   813					;#****************************************************************************
   814
   815	010562'	261 17 0 00 000002 	RCRPY:	PUTIT	<AC2,AC1,AC0>		;Save some acs
   816	010563'	261 17 0 00 000001 
   817	010564'	261 17 0 00 000000 
   818					;Fill .rcrpy jsys arg block
   819
   820	010565'	200 00 0 00 015041'		MOVE	PRTNBR			;Selected port number
   821	010566'	202 00 0 00 010624'		MOVEM	RCRPYB+.LMCID
   822
   823	010567'	262 16 0 00 010627'		POPD	<RCRPYB+.LMREQ>		;Req # from .RCRID/.RCRCT
   824
   825	010570'	200 00 0 00 010315'		MOVE	AC0,RBUFSZ		;Get response buffer size
   826	010571'	202 00 0 00 010630'		MOVEM	AC0,RCRPYB+.LMRBL	; Put in .Rcrpy jsys block
   827
   828	010572'	200 00 0 00 015731'		MOVE	AC0,[POINT 8,TTOBUF]	;Get console output buffer ptr
   829	010573'	202 00 0 00 010631'		MOVEM	AC0,RCRPYB+.LMRBP	; Put in .Rcrpy jsys block
   830
   831	010574'	336 00 0 00 015065'		SKIPN	TRCFLG			;Tracing enabled ?
   832	010575'	254 00 0 00 010602'		 JRST	RCRPY1			; No
   833
   834	010576'	037 01 0 00 016077'		PMSG	<^ R[EAD [CONSOLE REPLY [FOR REQUEST # >
   835	010577'	200 00 0 00 010627'		MOVE	AC0,RCRPYB+.LMREQ	;Get request number
   836	010600'	037 15 0 00 000000 		PNTDEC
   837	010601'	037 03 0 00 000001 		PCRLF
   838
   839	010602'	201 01 0 00 000012 	RCRPY1:	MOVEI	AC1,.RCRPY		;Get function code
   840	010603'	201 02 0 00 010624'		MOVEI	AC2,RCRPYB		;Set up pointer to .Rcrpy jsys block
   841	010604'	260 17 0 00 011272'		GO	$LLMOP			;Do "LLMOP"
   842	010605'	254 00 0 00 010621'		 JRST	RCRPY4			;Jsys error return
   843	010606'	350 00 0 17 777775 		AOS	-3(P)			;Bump return address for success return
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 22
RMTCNM	MAC	10-Jun-85 15:20		RCRPY SUBROUTINE                                                                   SEQ 0101

   844
   845	010607'	336 00 0 00 015065'		SKIPN	TRCFLG			;Tracing enabled ?
   846	010610'	254 00 0 00 010615'		 JRST	RCRPY3			; No
   847
   848	010611'	037 01 0 00 016106'		PMSG	<.....R[ETURNED MESSAGE LENGTH = >
   849	010612'	554 00 0 00 010630'		HLRZ	AC0,RCRPYB+.LMRBL 	;Get message length
   850	010613'	037 15 0 00 000000 		PNTDEC
   851	010614'	037 03 0 00 000001 		PCRLF
   852
   853	010615'	262 17 0 00 000000 	RCRPY3:	GETIT	<AC0,AC1,AC2>		;Restore acs
   854	010616'	262 17 0 00 000001 
   855	010617'	262 17 0 00 000002 
   856	010620'	263 17 0 00 000000 		RTN
   857
   858					;Jsys failure comes here
   859
   860	010621'	037 01 0 00 016114'	RCRPY4:	PMSG	<^.RCRPY JSYS F[AILURE - ^>
   861	010622'	260 17 0 00 011641'		GO	FJSYS			;Go report jsys error
   862	010623'	254 00 0 00 010615'		JRST	RCRPY3			;Take jsys error return
   863
   864					;.Rcrpy jsys argument block
   865
   866	010624'	000000	000000		RCRPYB:	0				;Channel-id (port number)
   867	010625'	000000	000000			0				;Source addr ret from BCAST/MCAST
   868	010626'	000000	000000			0				;  "     "
   869	010627'	000000	000000			0				;Request # from .RCRID/.RCRCT jsys ret.
   870	010630'	000000	000000			0				;Ret msg len,,Response Buffer Length
   871	010631'	000000	000000			0				;Response Buffer Pointer
   872
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 23
RMTCNM	MAC	10-Jun-85 15:20		RCRSV SUBROUTINE                                                                   SEQ 0102

   873					SUBTTL	RCRSV SUBROUTINE
   874					;#*****************************************************************************
   875					;* RCRSV subroutine
   876					;
   877					;  Send a RESERVE REMOTE CONSOLE LLMOP to the dest address node on the Ethernet
   878					;  
   879					;  Return +1 if a jsys error occurs.
   880					;  Return +2 if successful.
   881					;#*****************************************************************************
   882
   883	010632'	261 17 0 00 000002 	RCRSV:	PUTIT	<AC2,AC1,AC0>		;Save some acs
   884	010633'	261 17 0 00 000001 
   885	010634'	261 17 0 00 000000 
   886					;Fill .rcrsv jsys arg block
   887
   888	010635'	200 00 0 00 015041'		MOVE	PRTNBR			;Selected port number
   889	010636'	202 00 0 00 010674'		MOVEM	RCRSVB+.LMCID
   890
   891	010637'	120 00 0 00 015042'		DMOVE	AC0,TARADH		;Put hi/lo dest addr in
   892	010640'	124 00 0 00 010675'		DMOVEM	AC0,RCRSVB+.LMDST	; jsys arg block
   893
   894	010641'	120 00 0 00 015052'		DMOVE	AC0,PWORDH		;Get password, hi/lo bytes
   895	010642'	124 00 0 00 010677'		DMOVEM	RCRSVB+.LMPWD
   896
   897	010643'	336 00 0 00 015065'		SKIPN	TRCFLG			;Tracing enabled ?
   898	010644'	254 00 0 00 010652'		 JRST	RCRSV1			; No
   899
   900					;Print the node address 
   901
   902	010645'	037 01 0 00 016121'		PMSG	<R[ESERVING [R[EMOTE [C[ONSOLE OF TARGET NODE ADDRESS: >
   903	010646'	261 16 0 00 015042'		PUSHD	<TARADH>	 	;Push hex digits 1-8
   904	010647'	261 16 0 00 015043'		PUSHD	<TARADL> 		;Push hex digits 9-12
   905	010650'	260 17 0 00 011460'		GO	PRHEX			;Print the hex node address
   906	010651'	037 03 0 00 000001 		PCRLF
   907
   908	010652'	201 01 0 00 000013 	RCRSV1:	MOVEI	AC1,.RCRSV		;Get function code
   909	010653'	201 02 0 00 010674'		MOVEI	AC2,RCRSVB		;Set up pointer to .Rcrsv jsys block
   910	010654'	260 17 0 00 011272'		GO	$LLMOP			;Do "LLMOP"
   911	010655'	254 00 0 00 010671'		 JRST	RCRSV4			;Error return
   912	010656'	350 00 0 17 777775 		AOS	-3(P)			;Bump return address for success return
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 24
RMTCNM	MAC	10-Jun-85 15:20		RCRSV SUBROUTINE                                                                   SEQ 0103

   913
   914	010657'	336 00 0 00 015065'		SKIPN	TRCFLG			;Tracing enabled ?
   915	010660'	254 00 0 00 010665'		 JRST	RCRSV3			; No
   916
   917	010661'	037 01 0 00 016133'		PMSG	<.....P[ORT [ID # >
   918	010662'	200 00 0 00 010674'		MOVE	AC0,RCRSVB+.LMCID	;Get port id number
   919	010663'	037 15 0 00 000000 		PNTDEC
   920	010664'	037 03 0 00 000001 		PCRLF
   921
   922	010665'	262 17 0 00 000000 	RCRSV3:	GETIT	<AC0,AC1,AC2>		;Restore acs
   923	010666'	262 17 0 00 000001 
   924	010667'	262 17 0 00 000002 
   925	010670'	263 17 0 00 000000 		RTN
   926
   927					;Jsys failure comes here
   928
   929	010671'	037 01 0 00 016136'	RCRSV4:	PMSG	<^.RCRSV JSYS F[AILURE - ^>
   930	010672'	260 17 0 00 011641'		GO	FJSYS			;Go report jsys error
   931	010673'	254 00 0 00 010665'		JRST	RCRSV3			;Take jsys error return
   932
   933					;.Rcrsv jsys argument block
   934
   935	010674'	000000	000000		RCRSVB:	0				;Channel id (Port #)
   936	010675'	000000	000000			0				;Dest addr (hi = byte 0,1,2,3,z)
   937	010676'	000000	000000			0				;Dest addr (lo = byte 4,5,z,z,z)
   938	010677'	000000	000000			0				;PLUTO password (hi = bytes 7,6,5,4,z)
   939	010700'	000000	000000			0				;PLUTO password (lo = bytes 3,2,1,0,z)
   940
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 25
RMTCNM	MAC	10-Jun-85 15:20		RCREL SUBROUTINE                                                                   SEQ 0104

   941					SUBTTL	RCREL SUBROUTINE
   942					;#*****************************************************************************
   943					;* RCREL subroutine
   944					;
   945					;  Send a RELEASE REMOTE CONSOLE LLMOP to the dest address node on the Ethernet
   946					;
   947					;  Return +1 if a jsys error occurs.
   948					;  Return +2 if successful
   949					;#*****************************************************************************
   950
   951	010701'	261 17 0 00 000002 	RCREL:	PUTIT	<AC2,AC1,AC0>		;Save some acs
   952	010702'	261 17 0 00 000001 
   953	010703'	261 17 0 00 000000 
   954					;Fill .rcrel jsys arg block
   955
   956	010704'	200 00 0 00 015041'		MOVE	PRTNBR			;Selected port number
   957	010705'	202 00 0 00 010741'		MOVEM	RCRELB+.LMCID
   958
   959	010706'	120 00 0 00 015042'		DMOVE	AC0,TARADH		;Put hi/lo dest addr in
   960	010707'	124 00 0 00 010742'		DMOVEM	AC0,RCRELB+.LMDST	; jsys arg block
   961
   962	010710'	336 00 0 00 015065'		SKIPN	TRCFLG			;Tracing enabled ?
   963	010711'	254 00 0 00 010652'		 JRST	RCRSV1			; No
   964
   965					;Print the node address 
   966
   967	010712'	037 01 0 00 016143'		PMSG	<R[ELEASING [R[EMOTE [C[ONSOLE OF TARGET NODE ADDRESS: >
   968	010713'	261 16 0 00 015042'		PUSHD	<TARADH>	 	;Push hex digits 1-8
   969	010714'	261 16 0 00 015043'		PUSHD	<TARADL> 		;Push hex digits 9-12
   970	010715'	260 17 0 00 011460'		GO	PRHEX			;Print the hex node address
   971	010716'	037 03 0 00 000001 		PCRLF
   972
   973	010717'	201 01 0 00 000014 	RCREL1:	MOVEI	AC1,.RCREL		;Get function code
   974	010720'	201 02 0 00 010741'		MOVEI	AC2,RCRELB		;Set up pointer to .Rcrel jsys block
   975	010721'	260 17 0 00 011272'		GO	$LLMOP			;Do "LLMOP"
   976	010722'	254 00 0 00 010736'		 JRST	RCREL4			;Error return
   977	010723'	350 00 0 17 777775 		AOS	-3(P)			;Bump return address for success return
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 26
RMTCNM	MAC	10-Jun-85 15:20		RCREL SUBROUTINE                                                                   SEQ 0105

   978
   979	010724'	336 00 0 00 015065'		SKIPN	TRCFLG			;Tracing enabled ?
   980	010725'	254 00 0 00 010732'		 JRST	RCREL3			; No
   981
   982	010726'	037 01 0 00 016133'		PMSG	<.....P[ORT [ID # >
   983	010727'	200 00 0 00 010741'		MOVE	AC0,RCRELB+.LMCID	;Get port id number
   984	010730'	037 15 0 00 000000 		PNTDEC
   985	010731'	037 03 0 00 000001 		PCRLF
   986
   987	010732'	262 17 0 00 000000 	RCREL3:	GETIT	<AC0,AC1,AC2>		;Restore acs
   988	010733'	262 17 0 00 000001 
   989	010734'	262 17 0 00 000002 
   990	010735'	263 17 0 00 000000 		RTN
   991
   992					;Jsys failure comes here
   993
   994	010736'	037 01 0 00 016155'	RCREL4:	PMSG	<^.RCREL JSYS F[AILURE - ^>
   995	010737'	260 17 0 00 011641'		GO	FJSYS			;Go report jsys error
   996	010740'	254 00 0 00 010732'		JRST	RCREL3			;Take jsys error return
   997
   998					;.Rcrel jsys argument block
   999
  1000	010741'	000000	000000		RCRELB:	0				;Channel-id (Port #)
  1001	010742'	000000	000000			0				;Dest addr (hi = byte 0,1,2,3,z)
  1002	010743'	000000	000000			0				;Dest addr (lo = byte 4,5,z,z,z)
  1003
  1004
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 27
RMTCNM	MAC	10-Jun-85 15:20		RCSND SUBROUTINE                                                                   SEQ 0106

  1005					SUBTTL	RCSND SUBROUTINE
  1006					;#**********************************************************************
  1007					;* RCSND subroutine - SEND CONSOLE COMMAND
  1008					;  
  1009					;  This function sends ASCII console command data to the remote console
  1010					;  & polls for response data. With no command data, this function may be
  1011					;  used to poll for more response data without sending a command.
  1012					;
  1013					;  1. Put the Response Buffer Ptr & Response Buffer Length on the data stack.
  1014					;  2. Call this routine via "GO RCSND". 
  1015					;  3. Return +1 if a jsys error occurs.
  1016					;     Return +2 if successful...The data stack will contain the Request Number
  1017					;     for later .RCPOL/.RCABT/.RCSTS calls.
  1018					;#**********************************************************************
  1019
  1020	010744'	261 17 0 00 000002 	RCSND:	PUTIT	<AC2,AC1,AC0>		;Save some acs
  1021	010745'	261 17 0 00 000001 
  1022	010746'	261 17 0 00 000000 
  1023					;Fill .rcsnd jsys arg block
  1024
  1025	010747'	200 00 0 00 015041'		MOVE	PRTNBR			;get selected port number
  1026	010750'	332 00 0 00 000442'		SKIPE	BRKFLG			;command break flag set?
  1027	010751'	661 00 0 00 000002 		 TLO	AC0,(LM%CBF)		; yes, set B1 for arg block
  1028	010752'	661 00 0 00 000001 		TLO	AC0,(LM%MNO)		;assume flag = 1 for now
  1029	010753'	200 01 0 00 000446'		MOVE	AC1,MNOFLG		;get message number flag
  1030	010754'	606 01 0 00 000001 		TRNN	AC1,1B35		;skip if = 1
  1031	010755'	621 00 0 00 000001 		 TLZ	AC0,(LM%MNO)		; else we assumed wrong
  1032	010756'	202 00 0 00 011022'		MOVEM	RCSNDB+.LMCID		;put in arg block
  1033	010757'	402 00 0 00 000442'		SETZM	BRKFLG			;clear flag for next time
  1034
  1035	010760'	120 00 0 00 015042'		DMOVE	AC0,TARADH		;Put hi/lo dest addr in
  1036	010761'	124 00 0 00 011023'		DMOVEM	AC0,RCSNDB+.LMDST	; jsys arg block
  1037
  1038	010762'	400 00 0 00 000000 		SETZ	AC0,			;Assign interrupt channel (AIC) &
  1039	010763'	661 00 0 00 400001 		TLO	AC0,(LM%AIC ! 1B17)	; response (RCPOLL) to interr on chan 1
  1040	010764'	202 00 0 00 011025'		MOVEM	AC0,RCSNDB+.LMREQ	; & put in jsys arg block
  1041
  1042	010765'	262 16 0 00 011026'		POPD	<RCSNDB+.LMRBL,RCSNDB+.LMRBP>
  1043	010766'	262 16 0 00 011027'
  1044	010767'	336 00 0 00 015065'		SKIPN	TRCFLG			;Tracing enabled ?
  1045	010770'	254 00 0 00 010776'		 JRST	RCSND1			; No
  1046
  1047					;Print the target node address 
  1048
  1049	010771'	037 01 0 00 016162'		PMSG	<S[ENDING TO [R[EMOTE [C[ONSOLE OF TARGET NODE ADDRESS: >
  1050	010772'	261 16 0 00 015042'		PUSHD	<TARADH>	 	;Push hex digits 1-8
  1051	010773'	261 16 0 00 015043'		PUSHD	<TARADL> 		;Push hex digits 9-12
  1052	010774'	260 17 0 00 011460'		GO	PRHEX			;Print the hex node address
  1053	010775'	037 03 0 00 000001 		PCRLF
  1054
  1055	010776'	201 01 0 00 000015 	RCSND1:	MOVEI	AC1,.RCSND		;Get function code
  1056	010777'	201 02 0 00 011022'		MOVEI	AC2,RCSNDB		;Set up pointer to .Rcsnd jsys block
  1057	011000'	260 17 0 00 011272'		GO	$LLMOP			;Do "LLMOP"
  1058	011001'	254 00 0 00 011017'		 JRST	RCSND4			;Error return
  1059	011002'	350 00 0 17 777775 		AOS	-3(P)			;Bump return address for success return
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 28
RMTCNM	MAC	10-Jun-85 15:20		RCSND SUBROUTINE                                                                   SEQ 0107

  1060
  1061	011003'	336 00 0 00 015065'		SKIPN	TRCFLG			;Tracing enabled ?
  1062	011004'	254 00 0 00 011011'		 JRST	RCSND2			; No
  1063
  1064	011005'	037 01 0 00 016035'		PMSG	<.....R[EQUEST # >
  1065	011006'	550 00 0 00 011025'		HRRZ	AC0,RCSNDB+.LMREQ	;Get request number
  1066	011007'	037 15 0 00 000000 		PNTDEC
  1067	011010'	037 03 0 00 000001 		PCRLF
  1068
  1069	011011'	550 00 0 00 011025'	RCSND2:	HRRZ	AC0,RCSNDB+.LMREQ
  1070	011012'	261 16 0 00 000000 		PUSHD	<AC0>			;Push Req # on data stack
  1071
  1072	011013'	262 17 0 00 000000 	RCSND3:	GETIT	<AC0,AC1,AC2>		;Restore acs
  1073	011014'	262 17 0 00 000001 
  1074	011015'	262 17 0 00 000002 
  1075	011016'	263 17 0 00 000000 		RTN
  1076
  1077					;Jsys failure comes here
  1078
  1079	011017'	037 01 0 00 015732'	RCSND4:	PMSG	<^.RCSND JSYS F[AILURE - ^>
  1080	011020'	260 17 0 00 011641'		GO	FJSYS			;Go report jsys error
  1081	011021'	254 00 0 00 011013'		JRST	RCSND3			;Take jsys error return
  1082
  1083					;.Rcsnd jsys argument block
  1084
  1085	011022'	000000	000000		RCSNDB:	0				;Cmd break flag,,Chan-id (port #)
  1086	011023'	000000	000000			0				;Dest addr (hi = byte 0,1,2,3,z)
  1087	011024'	000000	000000			0				;Dest addr (lo = byte 4,5,z,z,z)
  1088	011025'	000000	000000			0				;Int chan #,,Req # ret by jsys
  1089										 ;Int chan #... 0 = no interrupt
  1090										 ;req # for .RCPOL/.RCABT/.RCSTS calls
  1091	011026'	000000	000000			0				;Response Buffer Length
  1092	011027'	000000	000000			0				;Response Buffer Pointer
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 29
RMTCNM	MAC	10-Jun-85 15:20		RCPOL SUBROUTINE                                                                   SEQ 0108

  1093					SUBTTL	RCPOL SUBROUTINE
  1094					;#**********************************************************************
  1095					;* RCPOL subroutine - CONSOLE RESPONSE POLL
  1096					;
  1097					;  This function polls for completion of the SEND CONSOLE COMMAND fuction.
  1098					;  
  1099					;  1. Put the Response Buffer Ptr & Response Buffer Length on the data stack.
  1100					;  2. Call this routine via "GO RCPOL". 
  1101					;  3. Return +1 if a jsys error occurs.
  1102					;     Return +2 if successful.
  1103					;  4. Upon successful ret, RCPOLB+.LMRBL will contain the Remote Console Buffer
  1104					;     Message Length returned by the jsys.
  1105					;#**********************************************************************
  1106
  1107	011030'	261 17 0 00 000002 	RCPOL:	PUTIT	<AC2,AC1,AC0>		;Save some acs
  1108	011031'	261 17 0 00 000001 
  1109	011032'	261 17 0 00 000000 
  1110					;Fill .rcpol jsys arg block
  1111
  1112	011033'	200 00 0 00 015041'		MOVE	PRTNBR			;Selected port number
  1113	011034'	202 00 0 00 011076'		MOVEM	RCPOLB+.LMCID
  1114
  1115	011035'	550 00 0 00 011025'		HRRZ	RCSNDB+.LMREQ		;Req # from .RCSND
  1116	011036'	552 00 0 00 011101'		HRRZM	RCPOLB+.LMREQ		; to .RCPOL jsys block
  1117
  1118	011037'	262 16 0 00 011102'		POPD	<RCPOLB+.LMRBL,RCPOLB+.LMRBP>
  1119	011040'	262 16 0 00 011103'
  1120	011041'	336 00 0 00 015065'		SKIPN	TRCFLG			;Tracing enabled ?
  1121	011042'	254 00 0 00 011050'		 JRST	RCPOL1			; No
  1122
  1123					;Print the target node address 
  1124
  1125	011043'	037 01 0 00 016174'		PMSG	<P[OLLING [R[EMOTE [C[ONSOLE OF TARGET NODE ADDRESS: >
  1126	011044'	261 16 0 00 015042'		PUSHD	<TARADH>	 	;Push hex digits 1-8
  1127	011045'	261 16 0 00 015043'		PUSHD	<TARADL> 		;Push hex digits 9-12
  1128	011046'	260 17 0 00 011460'		GO	PRHEX			;Print the hex node address
  1129	011047'	037 03 0 00 000001 		PCRLF
  1130
  1131	011050'	201 01 0 00 000016 	RCPOL1:	MOVEI	AC1,.RCPOL		;Get function code
  1132	011051'	201 02 0 00 011076'		MOVEI	AC2,RCPOLB		;Set up pointer to .Rcpol jsys block
  1133	011052'	260 17 0 00 011272'		GO	$LLMOP			;Do "LLMOP"
  1134	011053'	254 00 0 00 011073'		 JRST	RCPOL4			;Error return
  1135	011054'	350 00 0 17 777775 		AOS	-3(P)			;Bump return address for success return
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 30
RMTCNM	MAC	10-Jun-85 15:20		RCPOL SUBROUTINE                                                                   SEQ 0109

  1136
  1137	011055'	336 00 0 00 015065'		SKIPN	TRCFLG			;Tracing enabled ?
  1138	011056'	254 00 0 00 011067'		 JRST	RCPOL3			; No
  1139
  1140	011057'	037 01 0 00 016035'		PMSG	<.....R[EQUEST # >
  1141	011060'	550 00 0 00 011101'		HRRZ	AC0,RCPOLB+.LMREQ	;Get request number
  1142	011061'	037 15 0 00 000000 		PNTDEC
  1143	011062'	037 03 0 00 000001 		PCRLF
  1144
  1145	011063'	037 01 0 00 016106'		PMSG	<.....R[ETURNED MESSAGE LENGTH = >
  1146	011064'	554 00 0 00 011102'		HLRZ	AC0,RCPOLB+.LMRBL 	;Get message length
  1147	011065'	037 15 0 00 000000 		PNTDEC
  1148	011066'	037 03 0 00 000001 		PCRLF
  1149
  1150	011067'	262 17 0 00 000000 	RCPOL3:	GETIT	<AC0,AC1,AC2>		;Restore acs
  1151	011070'	262 17 0 00 000001 
  1152	011071'	262 17 0 00 000002 
  1153	011072'	263 17 0 00 000000 		RTN
  1154
  1155					;Jsys failure comes here
  1156
  1157	011073'	037 01 0 00 016004'	RCPOL4:	PMSG	<^.RCPOL JSYS F[AILURE - ^>
  1158	011074'	260 17 0 00 011641'		GO	FJSYS			;Go report jsys error
  1159	011075'	254 00 0 00 011067'		JRST	RCPOL3			;Take jsys error return
  1160
  1161					;.Rcpol jsys argument block
  1162
  1163	011076'	000000	000000		RCPOLB:	0				;Ret Data Lost Flags,,Chan-id (port #)
  1164	011077'	000000	000000			0				;not used
  1165	011100'	000000	000000			0				;not used
  1166	011101'	000000	000000			0				;Request # from .RCSND jsys ret.
  1167	011102'	000000	000000			0				;Ret msg len,,Response Buffer Length
  1168	011103'	000000	000000			0				;Response Buffer Pointer
  1169
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 31
RMTCNM	MAC	10-Jun-85 15:20		RCABT SUBROUTINE                                                                   SEQ 0110

  1170					SUBTTL	RCABT SUBROUTINE
  1171					;#***************************************************************************
  1172					;* RCABT subroutine - ABORT OUTSTANDING REMOTE CONSOLE REQUEST.
  1173					;
  1174					;  1. Push the Request Number on the data stack (from .RCRID/.RCRCT/.RCSND)
  1175					;  2. Call this routine via "GO RCABT"
  1176					;  3. Return +1 If a jsys error occured.
  1177					;     Return +2 If successful.
  1178					;#***************************************************************************
  1179
  1180	011104'	261 17 0 00 000002 	RCABT:	PUTIT	<AC2,AC1,AC0>		;Save some ac's
  1181	011105'	261 17 0 00 000001 
  1182	011106'	261 17 0 00 000000 
  1183					;Fill .rcabt jsys arg block
  1184
  1185	011107'	200 00 0 00 015041'		MOVE	PRTNBR			;Selected port number
  1186	011110'	202 00 0 00 011134'		MOVEM	RCABTB+.LMCID
  1187
  1188	011111'	262 16 0 00 011137'		POPD	<RCABTB+.LMREQ>		;Put Req # in jsys arg block
  1189	
  1190	011112'	201 01 0 00 000020 		MOVEI	AC1,.RCABT		;Get function code
  1191	011113'	201 02 0 00 011134'		MOVEI	AC2,RCABTB		;Set up pointer to .RCABT jsys block
  1192	011114'	260 17 0 00 011272'		GO	$LLMOP			;Do "LLMOP"
  1193	011115'	254 00 0 00 011131'		 JRST	RCABT4			;Error return
  1194	011116'	350 00 0 17 777775 		AOS	-3(P)			;Bump return address for success return
  1195
  1196	011117'	336 00 0 00 015065'		SKIPN	TRCFLG			;Tracing enabled ?
  1197	011120'	254 00 0 00 011125'		 JRST	RCABT3			; No
  1198
  1199	011121'	037 01 0 00 016205'		PMSG	<^A[BORTED [R[EQUEST # >
  1200	011122'	200 00 0 00 011137'		MOVE	AC0,RCABTB+.LMREQ	;Get request number
  1201	011123'	037 15 0 00 000000 		PNTDEC
  1202	011124'	037 03 0 00 000001 		PCRLF
  1203
  1204	011125'	262 17 0 00 000000 	RCABT3:	GETIT	<AC0,AC1,AC2>		;Restore acs
  1205	011126'	262 17 0 00 000001 
  1206	011127'	262 17 0 00 000002 
  1207	011130'	263 17 0 00 000000 		RTN
  1208
  1209					;Jsys failure comes here
  1210
  1211	011131'	037 01 0 00 016211'	RCABT4:	PMSG	<^.RCABT JSYS F[AILURE - ^>
  1212	011132'	260 17 0 00 011641'		GO	FJSYS			;Go report jsys error
  1213	011133'	254 00 0 00 011125'		JRST	RCABT3			;Take jsys error return
  1214
  1215					;.rcabt jsys argument block
  1216
  1217	011134'	000000	000000		RCABTB:	0				;Channel-id
  1218	011135'	000000	000000			0				;Not used
  1219	011136'	000000	000000			0				;Not used
  1220	011137'	000000	000000			0				;Req # from .RCRID/.RCRCT/.RCSND
  1221
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 32
RMTCNM	MAC	10-Jun-85 15:20		RCSTS SUBROUTINE                                                                   SEQ 0111

  1222					SUBTTL	RCSTS SUBROUTINE
  1223					;#**********************************************************************
  1224					;* RCSTS - OBTAIN REMOTE CONSOLE REQUEST STATUS
  1225					;  
  1226					;  1. Put request number on the data stack from .RCRID/.RCRCT/.RCSND
  1227					;  2. Call this routine via "GO RCSTS". 
  1228					;  3. Return +1 If a jsys error occured.
  1229					;     Return +2 If successful
  1230					;  4. Upon successful return from the jsys, RCSTSB+.LMSTF will contain
  1231					;     the status from the previous request.
  1232					;#**********************************************************************
  1233
  1234	011140'	261 17 0 00 000002 	RCSTS:	PUTIT	<AC2,AC0>		;Save some ac's
  1235	011141'	261 17 0 00 000000 
  1236					;Fill .rcsts jsys arg block
  1237
  1238	011142'	200 00 0 00 015041'		MOVE	PRTNBR			;Selected port number
  1239	011143'	202 00 0 00 011222'		MOVEM	RCSTSB+.LMCID
  1240
  1241	011144'	262 16 0 00 011225'		POPD	RCSTSB+.LMREQ		;Request number to .Rcsts jsys block
  1242
  1243	011145'	336 00 0 00 015065'		SKIPN	TRCFLG			;Tracing enabled ?
  1244	011146'	254 00 0 00 011153'		 JRST	RCSTS1			; No
  1245
  1246	011147'	037 01 0 00 016216'		PMSG	<C[HECKING REQUEST # >
  1247	011150'	200 00 0 00 011225'		MOVE	AC0,RCSTSB+.LMREQ	;Get request number
  1248	011151'	037 15 0 00 000000 		PNTDEC
  1249	011152'	037 03 0 00 000001 		PCRLF
  1250
  1251	011153'	201 01 0 00 000021 	RCSTS1:	MOVEI	AC1,.RCSTS		;Get function code
  1252	011154'	201 02 0 00 011222'		MOVEI	AC2,RCSTSB		;Set up pointer to .Rcsts jsys block
  1253	011155'	260 17 0 00 011272'		GO	$LLMOP			;Do "LLMOP"
  1254	011156'	254 00 0 00 011217'		 JRST	RCSTS4			;Error return
  1255	011157'	350 00 0 17 777776 		AOS	-2(P)			;Bump return address for success return
  1256
  1257	011160'	336 00 0 00 015065'		SKIPN	TRCFLG			;Tracing enabled ?
  1258	011161'	254 00 0 00 011214'		 JRST	RCSTS3			; No
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 33
RMTCNM	MAC	10-Jun-85 15:20		RCSTS SUBROUTINE                                                                   SEQ 0112

  1259
  1260	011162'	037 01 0 00 016222'		PMSG	<.....S[TATUS = >
  1261	011163'	200 00 0 00 011223'		MOVE	AC0,RCSTSB+.LMSTF	;Get request status
  1262	011164'	037 15 0 00 000000 		PNTDEC				; & print it
  1263
  1264	011165'	200 00 0 00 011223'		MOVE	AC0,RCSTSB+.LMSTF	;Get again
  1265	011166'	302 00 0 00 000000 		CAIE	AC0,.LMPND		;Pending?
  1266	011167'	254 00 0 00 011172'		 JRST	RCSTS5			; no
  1267	011170'	037 01 0 00 016225'		PMSG	< = P[ENDING>
  1268	011171'	254 00 0 00 011213'		JRST	RCSTS2
  1269
  1270	011172'	302 00 0 00 000001 	RCSTS5:	CAIE	AC0,.LMSUC		;Success?
  1271	011173'	254 00 0 00 011176'		 JRST	RCSTS6			; no
  1272	011174'	037 01 0 00 016227'		PMSG	< = S[UCCESS>
  1273	011175'	254 00 0 00 011213'		JRST	RCSTS2
  1274
  1275	011176'	302 00 0 00 000002 	RCSTS6:	CAIE	AC0,.LMABT		;Aborted?
  1276	011177'	254 00 0 00 011202'		 JRST	RCSTS7			; no
  1277	011200'	037 01 0 00 016231'		PMSG	< = A[BORTED>
  1278	011201'	254 00 0 00 011213'		JRST	RCSTS2
  1279
  1280	011202'	302 00 0 00 000003 	RCSTS7:	CAIE	AC0,.LMTXF		;Transmit failed?
  1281	011203'	254 00 0 00 011206'		 JRST	RCSTS8			; no
  1282	011204'	037 01 0 00 016233'		PMSG	< = T[RANSMIT [F[AILED>
  1283	011205'	254 00 0 00 011213'		JRST	RCSTS2
  1284
  1285	011206'	302 00 0 00 000004 	RCSTS8:	CAIE	AC0,.LMCCE		;Channel communication error?
  1286	011207'	254 00 0 00 011212'		 JRST	RCSTS9			; no
  1287	011210'	037 01 0 00 016237'		PMSG	< = C[HANNEL [C[OMMUNICATION [E[RROR>
  1288	011211'	254 00 0 00 011213'		JRST	RCSTS2
  1289
  1290	011212'	037 01 0 00 016245'	RCSTS9:	PMSG	< = U[NKNOWN [S[TATUS [T[YPE>
  1291	011213'	037 03 0 00 000001 	RCSTS2:	PCRLF
  1292
  1293	011214'	262 17 0 00 000000 	RCSTS3:	GETIT	<AC0,AC2>		;Restore AC's
  1294	011215'	262 17 0 00 000002 
  1295	011216'	263 17 0 00 000000 		RTN
  1296
  1297	011217'	037 01 0 00 016252'	RCSTS4:	PMSG	<^.RCSTS JSYS F[AILURE - ^>
  1298	011220'	260 17 0 00 011641'		GO	FJSYS			;Go report jsys error
  1299	011221'	254 00 0 00 011214'		JRST	RCSTS3			;Take jsys error return
  1300
  1301					;.Rcsts jsys argument block
  1302
  1303	011222'	000000	000000		RCSTSB:	0				;Channel-id
  1304	011223'	000000	000000			0				;Status flags upon jsys return
  1305	011224'	000000	000000			0				;Channel status upon jsys return
  1306	011225'	000000	000000			0				;Req # from .RCRID/.RCRCT/.RCSND
  1307
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 34
RMTCNM	MAC	10-Jun-85 15:20		RCADR SUBROUTINE                                                                   SEQ 0113

  1308					SUBTTL	RCADR SUBROUTINE
  1309					;#***************************************************************************
  1310					;* RCADR subroutine - READ LOCAL ADDRESS
  1311					;
  1312					;  1. Call this routine via "GO RCADR"
  1313					;  2. Return +1 If a jsys error occured.
  1314					;     Return +2 If successful.
  1315					;  3. Return is immediate.
  1316					;     Hardware & physical address will appear in the argument block upon
  1317					;     successful return & the physical address stored in LOCADH/L.
  1318					;#***************************************************************************
  1319
  1320	011226'	261 17 0 00 000002 	RCADR:	PUTIT	<AC2,AC1,AC0>		;Save some ac's
  1321	011227'	261 17 0 00 000001 
  1322	011230'	261 17 0 00 000000 
  1323	011231'	200 00 0 00 015041'		MOVE	PRTNBR			;Selected port number
  1324	011232'	202 00 0 00 011265'		MOVEM	RCADRB+.LMCID
  1325
  1326	011233'	201 01 0 00 000022 		MOVEI	AC1,.RCADR		;Get function code
  1327	011234'	201 02 0 00 011265'		MOVEI	AC2,RCADRB		;Set up pointer to .rcadr arg block
  1328	011235'	260 17 0 00 011272'		GO	$LLMOP			;Do "LLMOP"
  1329	011236'	254 00 0 00 011262'		 JRST	RCADR4			;Error return
  1330	011237'	350 00 0 17 777775 		AOS	-3(P)			;Bump return address for success return
  1331
  1332	011240'	120 00 0 00 011270'		DMOVE	AC0,RCADRB+.LMPYA	;Put returned physical addr in LOCADH/L
  1333	011241'	124 00 0 00 015044'		DMOVEM	AC0,LOCADH
  1334
  1335	011242'	336 00 0 00 015065'		SKIPN	TRCFLG			;Trace enabled ?
  1336	011243'	254 00 0 00 011256'		 JRST	RCADR3			; No
  1337
  1338	011244'	037 01 0 00 016257'		PMSG	<L[OCAL [P[HYSICAL [A[DDRESS = >
  1339	011245'	261 16 0 00 015044'		PUSHD	<LOCADH,LOCADL>
  1340	011246'	261 16 0 00 015045'
  1341	011247'	260 17 0 00 011460'		GO	PRHEX
  1342	011250'	037 03 0 00 000001 		PCRLF
  1343
  1344	011251'	037 01 0 00 016265'		PMSG	<L[OCAL [H[ARDWARE [A[DDRESS = >
  1345	011252'	261 16 0 00 011266'		PUSHD	<RCADRB+.LMHWA,RCADRB+.LMHWA+1>
  1346	011253'	261 16 0 00 011267'
  1347	011254'	260 17 0 00 011460'		GO	PRHEX
  1348	011255'	037 03 0 00 000001 		PCRLF
  1349
  1350	011256'	262 17 0 00 000000 	RCADR3:	GETIT	<AC0,AC1,AC2>		;Restore acs
  1351	011257'	262 17 0 00 000001 
  1352	011260'	262 17 0 00 000002 
  1353	011261'	263 17 0 00 000000 		RTN
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 35
RMTCNM	MAC	10-Jun-85 15:20		RCADR SUBROUTINE                                                                   SEQ 0114

  1354
  1355					;Jsys failure comes here
  1356
  1357	011262'	037 01 0 00 016273'	RCADR4:	PMSG	<^.RCADR JSYS F[AILURE - ^>
  1358	011263'	260 17 0 00 011641'		GO	FJSYS			;Go report jsys error
  1359	011264'	254 00 0 00 011256'		JRST	RCADR3			;Take jsys error return
  1360
  1361					;.RCADR jsys argument block
  1362
  1363	011265'	000000	000000		RCADRB:	0					;Channel-id
  1364	011266'	044321	263600			44321,,263600	;hex 1-8,z  (for debug)	;Ret local hardware addr
  1365	011267'	465360	000000			465360,,0	;hex 9-C,z (for debug)	;  "	    "      "      "
  1366	011270'	044321	263600			44321,,263600	;for debug		;Ret local physical addr
  1367	011271'	465360	000000			465360,,0	;for debug		;  "        "      "      "
  1368
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 36
RMTCNM	MAC	10-Jun-85 15:20		LLMOP SUBROUTINE                                                                   SEQ 0115

  1369					SUBTTL	LLMOP SUBROUTINE
  1370					;#**************************************************************************
  1371					; This subroutine does the actual LLMOP% JSYS.
  1372					; 
  1373					; Enter with AC1 = function code
  1374					;	     AC2 = address of arg block
  1375					; If DEBUG is enabled, simulate the LLMOP.
  1376					; Return +1 if jsys error
  1377					; Return +2 if successful
  1378					;#***************************************************************************
  1379
  1380	011272'	332 00 0 00 015070'	$LLMOP:	SKIPE	DBGFLG			;Do real or fake ?
  1381	011273'	254 00 0 00 011277'		 JRST	$LLM5			; Simulate "LLMOP" for debug
  1382
  1383	011274'	104 00 0 00 000624 		LLMOP%				;Do "LLMOP" jsys
  1384	011275'	320 16 0 00 011315'		 ERJMP	$LLM3			;Failed
  1385	011276'	254 00 0 00 011314'		JRST	$LLM2			;Passed
  1386
  1387	011277'	302 01 0 00 000021 	$LLM5:	CAIE	AC1,.RCSTS		;Doing "OBTAIN STATUS" ?
  1388	011300'	254 00 0 00 011304'		 JRST	$LLM4			; no
  1389
  1390	011301'	201 02 0 00 000001 		MOVEI	AC2,.LMSUC		;Yes, set success bit
  1391	011302'	202 02 0 00 011223'		MOVEM	AC2,RCSTSB+.LMSTF	; Make successful
  1392	011303'	254 00 0 00 011314'		JRST	$LLM2			; Exit
  1393
  1394	011304'	302 01 0 00 000006 	$LLM4:	CAIE	AC1,.RCRID		;Doing "REQUEST-ID" ?	
  1395	011305'	254 00 0 00 011310'		 JRST	$LLM1			; no
  1396	011306'	350 00 0 00 010440'		AOS	RCRIDB+.LMREQ		;Yes, fake by increment request number
  1397	011307'	254 00 0 00 011314'		 JRST	$LLM2			; Exit
  1398
  1399	011310'	302 01 0 00 000012 	$LLM1:	CAIE	AC1,.RCRPY		;Doing "READ REMOTE CONSOLE REPLY" ?
  1400	011311'	254 00 0 00 011314'		 JRST	$LLM2			; no
  1401	011312'	201 02 0 00 000144 		MOVEI	AC2,^D100		;Yes, get ret message length in bytes
  1402	011313'	506 02 0 00 010630'		HRLM	AC2,RCRPYB+.LMRBL	;Put in .Rcrpy jsys block
  1403
  1404	011314'	350 00 0 17 000000 	$LLM2:	AOS	(P)			;Skip return if ok
  1405	011315'	263 17 0 00 000000 	$LLM3:	RTN
  1406
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 37
RMTCNM	MAC	10-Jun-85 15:20		RDSTIM SUBROUTINE                                                                  SEQ 0116

  1407					SUBTTL	RDSTIM SUBROUTINE
  1408					;#**********************************************************************
  1409					;* Rdstim subroutine
  1410					;
  1411					;  Read the current time since last time system was restarted.
  1412					;  Save that value and calculate and save a value of time 5 seconds later.
  1413					;#**********************************************************************
  1414
  1415	011316'	261 17 0 00 000001 	RDSTIM:	PUTIT	<AC1,AC2>		;Save some acs
  1416	011317'	261 17 0 00 000002 
  1417
  1418	011320'	104 00 0 00 000014 		TIME				;Do time jsys
  1419	011321'	202 01 0 00 015054'		MOVEM	AC1,TIMST		;Save it
  1420
  1421	011322'	271 01 0 00 011610 		ADDI	AC1,^D5000		;Add 5 seconds to the current time
  1422
  1423	011323'	332 00 0 00 015065'		SKIPE	TRCFLG			;Tracing enabled ?
  1424	011324'	271 01 0 00 165140 		 ADDI	AC1,^D<1000*60>		; Yes, 60 seconds more for typeouts
  1425
  1426	011325'	202 01 0 00 015055'		MOVEM	AC1,TIMEND		;Save it	
  1427	011326'	262 17 0 00 000002 		GETIT	<AC2,AC1>		;Restore acs
  1428	011327'	262 17 0 00 000001 
  1429	011330'	263 17 0 00 000000 		RTN
  1430
  1431					;#**********************************************************************
  1432					;* OTIME subroutine
  1433					;
  1434					;  This subroutine reads the current time and compares that value with
  1435					;  TIMEND that was calculated in the RDSTIM  subroutine.
  1436					;  This is used to determine if 5 seconds has elapsed since calling
  1437					;  the RDSTIM subroutine.
  1438					;  
  1439					;  Return +1 if time exceeded
  1440					;  Return +2 if time not exceeded.
  1441					;#**********************************************************************
  1442
  1443	011331'	261 17 0 00 000001 	OTIME:	PUTIT	<AC1,AC2>		;Save some acs
  1444	011332'	261 17 0 00 000002 
  1445
  1446	011333'	104 00 0 00 000014 		TIME				;Do time jsys
  1447
  1448	011334'	317 01 0 00 015055'		CAMG	AC1,TIMEND		;Has current time exceeded timend ?
  1449	011335'	350 00 0 17 777776 		 AOS	-2(P)			; No, bump for skip return
  1450
  1451	011336'	262 17 0 00 000002 		GETIT	<AC2,AC1>		;Restore acs
  1452	011337'	262 17 0 00 000001 
  1453	011340'	263 17 0 00 000000 		RTN
  1454
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 38
RMTCNM	MAC	10-Jun-85 15:20		HEX SUBROUTINE                                                                     SEQ 0117

  1455					SUBTTL	HEX SUBROUTINE
  1456					;#**********************************************************************
  1457					;* HEX subroutine
  1458					;
  1459					;  This subroutine is called from SELECT, DESELECT, REQ-ID & READ COUNTERS
  1460					;  from DNISP to read in a 12 digit hex node address.
  1461					;  When inputting the 12 digit address the digits will be in the form:
  1462					;  
  1463					;  AC10 = Hi addr = z,z,z,z,z,z,1,2,3     ==>  rejust to: 1,2,3,4,5,6,7,8,z 
  1464					;  AC11 = Lo addr = 4,5,6,7,8,9,10,11,12  ==>  rejust to: 9,10,11,12,z,z,z,z,z
  1465					;
  1466					;  The bytes will then be in the form:	Hi = 0,1,2,3,z
  1467					;					Lo = 4,5,z,z,z
  1468					;
  1469					;  This subroutine is also called to read in a 16 digit PASSWORD from RMTCNP
  1470					;  When inputting the 16 digit password, the digits will be in the form:
  1471					;
  1472					;  AC10 = Hi = z,z,1,2,3,4,5,6,7	==> rejust to: 1,2,3,4,5,6,7,8,z
  1473					;  AC11 = Lo = 8,9,10,11,12,13,14,15,16 ==> rejust to: 9,10,11,12,13,14,15,16,z
  1474					;
  1475					;  PWSWAP will then re-arrange the digits to be:
  1476					;
  1477					;  AC10 = Hi = 15,16,13,14,11,12,9,10,z	 =  bytes 7,6,5,4,z
  1478					;  AC11 = Lo = 7,8,5,6,3,4,1,2,z         =  bytes 3,2,1,0,z
  1479					;
  1480					;  Hyphens will be ignored.
  1481					;  Any other non hex digit will cause this subroutine to exit.
  1482					;#**********************************************************************
  1483
  1484	011341'	403 10 0 00 000011 	HEX:	SETZB	AC10,AC11		;Clear ac10 and ac11 
  1485	011342'	402 00 0 00 000004 		SETZM	AC4			;Set digit count to 0
  1486	011343'	200 05 0 00 016300'		MOVE	AC5,[POINT 7,ATOM]	;Set up byte pointer atom buffer
  1487
  1488	011344'	134 00 0 00 000005 	HEXA:	ILDB	AC0,AC5			;Read in a char
  1489	011345'	322 00 0 00 011372'		JUMPE	AC0,HEXC		; 0 = end of field, rejustify it
  1490	011346'	301 00 0 00 000060 		CAIL	AC0,60			;Less than a 0 ?
  1491	011347'	303 00 0 00 000071 		CAILE	AC0,71			;Greater than a 9 ?
  1492	011350'	254 00 0 00 011355'		 JRST	HEXD			; Yes check for a-f
  1493
  1494	011351'	275 00 0 00 000060 		SUBI	AC0,60			;No, so convert char to hex
  1495
  1496	011352'	245 10 0 00 000004 	HEXB:	ROTC	AC10,4			;Left 4 places (combined ac10/11)
  1497	011353'	270 11 0 00 000000 		ADD	AC11,AC0		;Add new number to ac11
  1498	011354'	344 04 0 00 011344'		AOJA	AC4,HEXA		;Bump digit counter and go get next
  1499
  1500	011355'	301 00 0 00 000101 	HEXD:	CAIL	AC0,"A"			;Less than an "A"
  1501	011356'	303 00 0 00 000106 		CAILE	AC0,"F"			;Greater than an "F"
  1502	011357'	254 00 0 00 011362'		 JRST	HEXE			; Yes, see if lower case characters
  1503	011360'	275 00 0 00 000067 		SUBI	AC0,67			;Convert char into hex number
  1504	011361'	254 00 0 00 011352'		JRST	HEXB			;Pack it into the hex node number
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 39
RMTCNM	MAC	10-Jun-85 15:20		HEX SUBROUTINE                                                                     SEQ 0118

  1505
  1506	011362'	301 00 0 00 000141 	HEXE:	CAIL	AC0,"A"+40		;Less than an a
  1507	011363'	303 00 0 00 000146 		CAILE	AC0,"F"+40		;Greater than an f
  1508	011364'	254 00 0 00 011367'		 JRST	HEXG			; Yes, see if hyphen
  1509	011365'	275 00 0 00 000127 		SUBI	AC0,40+67		;Make lower case into hex
  1510	011366'	254 00 0 00 011352'		JRST	HEXB			;Pack it into the hex node number
  1511
  1512	011367'	302 00 0 00 000055 	HEXG:	CAIE	AC0,"-"			;hyphen?
  1513	011370'	254 00 0 00 011401'		 JRST	HEXX			; no, error...exit
  1514	011371'	254 00 0 00 011344'		JRST	HEXA			;yes, ignore & input next char
  1515
  1516	011372'	336 00 0 00 000023'	HEXC:	SKIPN	PWFLG			;Doing PASSWORD?
  1517	011373'	254 00 0 00 011400'		 JRST	HEXF			; No, do ADDRESS
  1518	011374'	245 10 0 00 000004 		ROTC	AC10,4			;Yes, left 4 places combined
  1519	011375'	241 10 0 00 000004 		ROT	AC10,4
  1520	011376'	260 17 0 00 011434'		GO	PWSWAP			;Swap password bytes around
  1521	011377'	254 00 0 00 011401'		JRST	HEXX			;Exit
  1522
  1523	011400'	260 17 0 00 011402'	HEXF:	GO	REJUS			;Rejustify address
  1524
  1525	011401'	263 17 0 00 000000 	HEXX:	RTN
  1526
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 40
RMTCNM	MAC	10-Jun-85 15:20		REJUS SUBROUTINE                                                                   SEQ 0119

  1527					SUBTTL	REJUS SUBROUTINE
  1528					;#**********************************************************************
  1529					;* REJUS  subroutine
  1530					;
  1531					;  Rejustifies a node address to the standard format used by 
  1532					;  LLMOP jsys's arg block.
  1533					;
  1534					;  1. Enter with the Hi address in AC10
  1535					;		   & Lo address in AC11
  1536					;  2. Call this subroutine via GO REJUS.
  1537					;  
  1538					;  Upon return, AC10 & AC11 will be in the following format:
  1539					;
  1540					;  AC10 = Hi addr = x,x,x,x,x,x,1,2,3     ==>  rejust to: 1,2,3,4,5,6,7,8,z 
  1541					;  AC11 = Lo addr = 4,5,6,7,8,9,10,11,12  ==>  rejust to: 9,10,11,12,z,z,z,z,z
  1542					;#**********************************************************************
  1543
  1544	011402'	261 17 0 00 000003 	REJUS:	PUTIT	<AC3,AC2,AC1>		;Save some ac's 
  1545	011403'	261 17 0 00 000002 
  1546	011404'	261 17 0 00 000001 
  1547	011405'	402 00 0 00 000001 		SETZM	AC1			;Clear ac1
  1548	011406'	135 02 0 00 016301'		LDB	AC2,[POINT 8,AC11,^D27]	;Get hex digits 9 and 10
  1549	011407'	137 02 0 00 016302'		DPB	AC2,[POINT 8,AC1,7]	;Put it in ac1  
  1550
  1551	011410'	135 02 0 00 016303'		LDB	AC2,[POINT 8,AC11,^D35]	;Get hex digits 11 and 12
  1552	011411'	137 02 0 00 016304'		DPB	AC2,[POINT 8,AC1,^D15]	;Put it in ac1  
  1553	011412'	202 01 0 00 000003 		MOVEM	AC1,AC3			;Store rejustified lo address
  1554
  1555	011413'	402 00 0 00 000001 		SETZM	AC1			;Clear ac1
  1556	011414'	135 02 0 00 016305'		LDB	AC2,[POINT 8,AC10,^D31] ;Get hex digits 1 and 2
  1557	011415'	137 02 0 00 016302'		DPB	AC2,[POINT 8,AC1,7]	;Put them in ac1
  1558
  1559	011416'	135 02 0 00 016306'		LDB	AC2,[POINT 4,AC10,^D35] ;Get hex digit 3
  1560	011417'	137 02 0 00 016307'		DPB	AC2,[POINT 4,AC1,^D11]	;Put it in ac1  
  1561
  1562	011420'	135 02 0 00 016310'		LDB	AC2,[POINT 4,AC11,^D3]  ;Get hex digit 4
  1563	011421'	137 02 0 00 016311'		DPB	AC2,[POINT 4,AC1,^D15]	;Put it in ac1  
  1564
  1565	011422'	135 02 0 00 016312'		LDB	AC2,[POINT 8,AC11,^D11] ;Get hex digits 5 and 6
  1566	011423'	137 02 0 00 016313'		DPB	AC2,[POINT 8,AC1,^D23]	 ;Put it in ac1  
  1567
  1568	011424'	135 02 0 00 016314'		LDB	AC2,[POINT 8,AC11,^D19] ;Get hex digits 7 and 8
  1569	011425'	137 02 0 00 016315'		DPB	AC2,[POINT 8,AC1,^D31]	;Put it in ac1  
  1570
  1571	011426'	202 01 0 00 000010 		MOVEM	AC1,AC10		;Put rejustified Hi addr back in AC10
  1572	011427'	202 03 0 00 000011 		MOVEM	AC3,AC11		;Put rejustified Lo addr back in AC11
  1573
  1574	011430'	262 17 0 00 000001 		GETIT	<AC1,AC2,AC3>		;Restore the ac's 
  1575	011431'	262 17 0 00 000002 
  1576	011432'	262 17 0 00 000003 
  1577	011433'	263 17 0 00 000000 		RTN
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 41
RMTCNM	MAC	10-Jun-85 15:20		PWSWAP SUBROUTINE                                                                  SEQ 0120

  1578					SUBTTL	PWSWAP SUBROUTINE
  1579					;#**********************************************************************
  1580					;* PWSWAP  subroutine
  1581					;
  1582					;  Swaps the password bytes as shown below:
  1583					;
  1584					;  1. Enter with the Hi password in AC10
  1585					;		   & Lo password in AC11
  1586					;
  1587					;  2. Call this subroutine via GO PWSWAP
  1588					;  
  1589					;  Upon return, AC10 & AC11 will be in the following format:
  1590					;
  1591					;  AC10 = Hi bytes = 0,1,2,3,z	==>  rejust to: 7,6,5,4,z
  1592					;  AC11 = Lo bytes = 4,5,6,7,z	==>  rejust to: 3,2,1,0,z
  1593					;#**********************************************************************
  1594
  1595	011434'	403 00 0 00 000001 	PWSWAP:	SETZB	AC0,AC1
  1596	011435'	200 06 0 00 016316'		MOVE	AC6,[POINT 8,AC10]	;Set byte pointer
  1597
  1598	011436'	134 05 0 00 000006 		ILDB	AC5,AC6			;Get byte 0
  1599	011437'	137 05 0 00 016315'		DPB	AC5,[POINT 8,AC1,31]	; & put in AC1
  1600	011440'	134 05 0 00 000006 		ILDB	AC5,AC6			;Get byte 1
  1601	011441'	137 05 0 00 016313'		DPB	AC5,[POINT 8,AC1,23]	; & put in AC1
  1602	011442'	134 05 0 00 000006 		ILDB	AC5,AC6			;Get byte 2
  1603	011443'	137 05 0 00 016304'		DPB	AC5,[POINT 8,AC1,15]	; & put in AC1
  1604	011444'	134 05 0 00 000006 		ILDB	AC5,AC6			;Get byte 3
  1605	011445'	137 05 0 00 016302'		DPB	AC5,[POINT 8,AC1,7]	; & put in AC1
  1606	011446'	134 05 0 00 000006 		ILDB	AC5,AC6			;Get byte 4
  1607	011447'	137 05 0 00 016317'		DPB	AC5,[POINT 8,AC0,31]	; & put in AC0
  1608	011450'	134 05 0 00 000006 		ILDB	AC5,AC6			;Get byte 5
  1609	011451'	137 05 0 00 016320'		DPB	AC5,[POINT 8,AC0,23]	; & put in AC0
  1610	011452'	134 05 0 00 000006 		ILDB	AC5,AC6			;Get byte 6
  1611	011453'	137 05 0 00 016321'		DPB	AC5,[POINT 8,AC0,15]	; & put in AC0
  1612	011454'	134 05 0 00 000006 		ILDB	AC5,AC6			;Get byte 7
  1613	011455'	137 05 0 00 016322'		DPB	AC5,[POINT 8,AC0,7]	; & put in AC0
  1614
  1615	011456'	120 10 0 00 000000 		DMOVE	AC10,AC0		;AC0,1 to AC10,11
  1616	011457'	263 17 0 00 000000 		RTN
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 42
RMTCNM	MAC	10-Jun-85 15:20		PRINT 12 DIGIT HEX NUMBER SUBROUTINE                                               SEQ 0121

  1617					SUBTTL	PRINT 12 DIGIT HEX NUMBER SUBROUTINE
  1618					;#**********************************************************************
  1619					;* PRHEX prints a 12 digit hex node address.
  1620					;
  1621					;  1. Put the Hi address (hex digits 1 - 8)
  1622					;     followed by the Lo address (hex digits 9 - 12) on the data stack.
  1623					;  2. Call this subroutine by "GO PRHEX".
  1624					;  3. A hyphen will be printed between every 2 hex digits.
  1625					;#**********************************************************************
  1626
  1627	011460'	261 17 0 00 000000 	PRHEX:	PUTIT	<AC0,AC1,AC3,AC4,AC5>	;Save acs
  1628	011461'	261 17 0 00 000001 
  1629	011462'	261 17 0 00 000003 
  1630	011463'	261 17 0 00 000004 
  1631	011464'	261 17 0 00 000005 
  1632
  1633	011465'	262 16 0 00 000004 		POPD	<AC4,AC3>		;Get lo,hi hex addr
  1634	011466'	262 16 0 00 000003 
  1635	011467'	201 05 0 00 000014 		MOVEI	AC5,^D12		;Initialize 12 digits to type
  1636	011470'	241 03 0 00 777774 		ROT	AC3,-^D4		;Right justify Hi address
  1637	011471'	400 01 0 00 000000 		SETZ	AC1,			;Char counter for hyphens
  1638
  1639	011472'	245 03 0 00 000004 	PRHEXA:	ROTC	AC3,^D4			;Put digit to be printed at far left
  1640	011473'	135 00 0 00 016323'		LDB	AC0,[POINT 4,AC3,3]	;Copy hex digit to ac0
  1641	011474'	271 00 0 00 000060 		ADDI	AC0,60			;Make an ascii character
  1642
  1643	011475'	303 00 0 00 000071 		CAILE	AC0,"9"			;Less than a "9" ?
  1644	011476'	271 00 0 00 000007 		 ADDI	AC0,7			; No, add 7 more to get a-f
  1645
  1646	011477'	037 12 0 00 000000 		PNTCHR				;Print the hex digit
  1647	011500'	340 01 0 00 000000 		AOJ	AC1,			;Bump char ctr
  1648	011501'	302 01 0 00 000002 		CAIE	AC1,2			;2nd char?
  1649	011502'	254 00 0 00 011510'		 JRST	PRHEXB			; No
  1650	011503'	306 05 0 00 000001 		CAIN	AC5,1			;Last char?
  1651	011504'	254 00 0 00 011510'		 JRST	PRHEXB			; Yes
  1652	011505'	201 00 0 00 000055 		MOVEI	AC0,"-"			;Yes, print hyphen
  1653	011506'	037 12 0 00 000000 		PNTCHR
  1654	011507'	400 01 0 00 000000 		SETZ	AC1,			;Reset ctr
  1655	011510'	367 05 0 00 011472'	PRHEXB:	SOJG	AC5,PRHEXA		;Do next digit
  1656
  1657	011511'	262 17 0 00 000005 		GETIT	<AC5,AC4,AC3,AC1,AC0>	;Restore acs
  1658	011512'	262 17 0 00 000004 
  1659	011513'	262 17 0 00 000003 
  1660	011514'	262 17 0 00 000001 
  1661	011515'	262 17 0 00 000000 
  1662	011516'	263 17 0 00 000000 		RTN
  1663
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 43
RMTCNM	MAC	10-Jun-85 15:20		ASCIZ A 12 DIGIT HEX NUMBER SUBROUTINE                                             SEQ 0122

  1664					SUBTTL	ASCIZ A 12 DIGIT HEX NUMBER SUBROUTINE
  1665					;#**********************************************************************
  1666					;* UHEX subroutine
  1667					;
  1668					;  1. Asciz a 12 digit hex node address & put the 3 words on the data stack.
  1669					;  2  Put the hi address (hex digits 1,2,3).
  1670					;  3. Put the lo address (hex digits 4 thru 12) on the data stack.
  1671					;  4. Call this subroutine by "GO UHEX".
  1672					;  5. To remove the data do "POPD <X,Y,Z>
  1673					;     WHERE "X" IS ASCII DIGITS 1,2,3,4,5,
  1674					;           "Y" Is ascii digits 6,7,8,9,10
  1675					;	    "Z" is asciz digits 11,12 .
  1676					;#**********************************************************************
  1677
  1678	011517'	261 17 0 00 000000 	UHEX:	PUTIT	<AC0,AC1,AC3,AC4,AC5>	;Save acs
  1679	011520'	261 17 0 00 000001 
  1680	011521'	261 17 0 00 000003 
  1681	011522'	261 17 0 00 000004 
  1682	011523'	261 17 0 00 000005 
  1683	011524'	262 16 0 00 000004 		POPD	<AC4,AC3>		;Get hex word from data stack
  1684	011525'	262 16 0 00 000003 
  1685	011526'	201 05 0 00 000014 		MOVEI	AC5,^D12		;Initialize 12 digits to type
  1686	011527'	245 03 0 00 777764 		ROTC	AC3,-^D12		;Rotate 3 digits out of ac3
  1687	011530'	200 01 0 00 016324'		MOVE	AC1,[POINT 7,UHEXB]	;Get initial byte pointer
  1688
  1689	011531'	245 03 0 00 000004 	UHEXA:	ROTC	AC3,^D4			;Rotate digit into ac3
  1690	011532'	135 00 0 00 016325'		LDB	AC0,[POINT 4,AC3,35]	;Copy hex digit to ac0
  1691	011533'	271 00 0 00 000060 		ADDI	AC0,60			;Make an ascii character
  1692	011534'	303 00 0 00 000071 		CAILE	AC0,"9"			;Less than a "9" ?
  1693	011535'	271 00 0 00 000007 		 ADDI	AC0,7			; No, add 7 more to get a-f
  1694	011536'	136 00 0 00 000001 		IDPB	AC0,AC1			;Save the hex digit
  1695	011537'	367 05 0 00 011531'		SOJG	AC5,UHEXA		;Do next digit
  1696
  1697	011540'	261 16 0 00 011553'		PUSHD	<UHEXB+2,UHEXB+1,UHEXB>	;Put asciz'd node name on data stack
  1698	011541'	261 16 0 00 011552'
  1699	011542'	261 16 0 00 011551'
  1700	011543'	262 17 0 00 000005 		GETIT	<AC5,AC4,AC3,AC1,AC0>	;Restore acs
  1701	011544'	262 17 0 00 000004 
  1702	011545'	262 17 0 00 000003 
  1703	011546'	262 17 0 00 000001 
  1704	011547'	262 17 0 00 000000 
  1705	011550'	263 17 0 00 000000 		RTN
  1706
  1707	011551'				UHEXB:	BLOCK	3			;Storage for asciz'd node name
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 44
RMTCNM	MAC	10-Jun-85 15:20		ASCIZ A 12 DIGIT HEX NUMBER SUBROUTINE                                             SEQ 0123

  1708
  1709					;#**********************************************************************
  1710					; Wait1 waits 250 milli seconds
  1711					;#**********************************************************************
  1712
  1713	011554'	261 17 0 00 000001 	WAIT1:	PUTIT	AC1			;Save ac1
  1714	011555'	336 00 0 00 015065'		SKIPN	TRCFLG			;Tracing enabled ?
  1715	011556'	254 00 0 00 011561'		 JRST	WAIT1A			; No
  1716
  1717	011557'	201 01 0 00 000372 		MOVEI	AC1,^D250		;Setup for 250 milli seconds
  1718	011560'	104 00 0 00 000167 		DISMS				;Dismiss process for 250 milli seconds
  1719
  1720	011561'	262 17 0 00 000001 	WAIT1A:	GETIT	AC1			;Restore ac1
  1721	011562'	263 17 0 00 000000 		RTN
  1722
  1723
  1724
  1725
  1726
  1727
  1728					;#**********************************************************************
  1729					;  Some ERROR and ERROR1 calls use the following subroutines as
  1730					;  Additional  error print routines.
  1731					;#**********************************************************************
  1732
  1733	011563'	037 01 0 00 016326'	ER01:	PMSG	<^T[HE [TARGET NODE[ ADDRESS IS >
  1734	011564'	261 16 0 00 015042'		PUSHD	<TARADH>		;Push hex digits 1-8
  1735	011565'	261 16 0 00 015043'		PUSHD	<TARADL>	 	;Push hex digits 9-12
  1736	011566'	260 17 0 00 011460'		GO	PRHEX			;Print the hex node address
  1737	011567'	037 03 0 00 000001 		PCRLF
  1738
  1739	011570'	037 01 0 00 016334'		PMSG	<^T[HE [NODE [ADDRESS FOR [REQ-ID & READ COUNTERS [IS >
  1740	011571'	261 16 0 00 015046'		PUSHD	<NODADH>		;Push hex digits 1-8
  1741	011572'	261 16 0 00 015047'		PUSHD	<NODADL>	 	;Push hex digits 9-12
  1742	011573'	260 17 0 00 011460'		GO	PRHEX			;Print the hex node address
  1743	011574'	037 03 0 00 000001 		PCRLF
  1744	011575'	263 17 0 00 000000 		RTN
  1745
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 45
RMTCNM	MAC	10-Jun-85 15:20		SPEAR SUBROUTINES                                                                  SEQ 0124

  1746					SUBTTL	SPEAR SUBROUTINES
  1747					;#**********************************************************************
  1748					; SPRS subroutine:
  1749					;
  1750					;  1. Reads the current date and time into location "SPRSX"
  1751					;  2. Reads the current spear entry packet count into location "SCNTS".
  1752					;#**********************************************************************
  1753
  1754	011576'	336 00 0 00 015067'	SPRS:	SKIPN	SPRFLG			;Skip if spear reporting is enabled
  1755	011577'	263 17 0 00 000000 		 RTN				; Return to code that called this code
  1756
  1757	011600'	261 17 0 00 000001 		PUTIT	<AC1>			;Save an ac 
  1758	011601'	260 17 0 00 011611'		GO	SPRP			;Go read spear entry packet count
  1759	011602'	262 16 0 00 011607'		POPD	<SCNTS>			;Save current spear count in "SCNTS"
  1760
  1761	011603'	104 00 0 00 000227 		GTAD				;Get time and day 
  1762	011604'	202 01 0 00 011610'		MOVEM	AC1,SPRSX		;Save time and day
  1763	011605'	262 17 0 00 000001 		GETIT	<AC1>			;Restore ac 
  1764	011606'	263 17 0 00 000000 		RTN				;Return to code that called this code
  1765
  1766	011607'	000000	000000		SCNTS:	0				;Spear error entry count 
  1767	011610'	000000	000000		SPRSX:	0				;Start date and time stored here
  1768
  1769					;#**********************************************************************
  1770					; SPRP subroutine
  1771					;
  1772					;  Read the current spear packet count, and put the value on
  1773					;  The data stack.
  1774					;  If the jsys fails, a message is typed and a fatal error occurs.
  1775					;  Call this subroutine via "GO SPRP".
  1776					;  When this subroutine returns, the current
  1777					;  Spear packet count is on the data stack.
  1778					;  To get the count, use "POPD <X>, 
  1779					;  Where "X" is the location you want the spear packet count to go to.
  1780					;#**********************************************************************
  1781
  1782	011611'	261 17 0 00 000001 	SPRP:	PUTIT	<AC1>			;Save an ac
  1783	011612'	200 01 0 00 016345'		MOVE	AC1,[XWD -2,SPRPB]	;Set up pointer
  1784	011613'	332 00 0 00 015070'		SKIPE	DBGFLG			;Bypass if debugging
  1785	011614'	254 00 0 00 011617'		 JRST	SPRPA
  1786
  1787	011615'	104 00 0 00 000530 		DIAG				;Do diag jsys
  1788	011616'	037200	016346'			FATALP	<^DIAG JSYS FAILED IN SPRP SUBROUTINE.^>
  1789
  1790	011617'	262 17 0 00 000001 	SPRPA:	GETIT	<AC1>			;Restore ac
  1791	011620'	261 16 0 00 011623'		PUSHD	<SPRPC>			;Put current spear count on data stack
  1792	011621'	263 17 0 00 000000 		RTN
  1793
  1794	011622'	000000	000110		SPRPB:	.DGRSC				;Read spear packet count 
  1795	011623'	000 00 0 00 000000 	SPRPC:	Z				;Jsys writes spear packet count here
  1796
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 46
RMTCNM	MAC	10-Jun-85 15:20		SPEAR SUBROUTINES                                                                  SEQ 0125

  1797
  1798					;#**********************************************************************
  1799					; SPRE subroutine:
  1800					;
  1801					;  1. Reads the current date and time into location "SPRSE"
  1802					;  2. Reads the current spear entry packet count into location "SCNTE".
  1803					;  3. Does a skip return if the spear entry packet count is different than 
  1804					;     When subroutine sprs was executed.
  1805					;
  1806					;  Subroutine "SPRS", which reads the current spear packet entry count must be
  1807					;  Executed before this subroutine.
  1808					;#**********************************************************************
  1809
  1810	011624'	336 00 0 00 015067'	SPRE:	SKIPN	SPRFLG			;Skip if spear reporting is enabled
  1811	011625'	263 17 0 00 000000 		 RTN
  1812
  1813	011626'	261 16 0 00 000001 		PUSHD	<AC1>			;Save an ac 
  1814	011627'	104 00 0 00 000227 		GTAD				;Get time and day 
  1815	011630'	202 01 0 00 011640'		MOVEM	AC1,SPRSE		;Save time and day
  1816
  1817	011631'	260 17 0 00 011611'		GO	SPRP			;Go read spear entry packet count
  1818	011632'	262 16 0 00 000001 		POPD	<AC1>			;Get current spear count
  1819
  1820	011633'	312 01 0 00 011607'		CAME	AC1,SCNTS		;Skip if count the same as when started
  1821	011634'	350 00 0 17 000000 		AOS	(P)			;Skip return. Error return. 
  1822
  1823	011635'	262 16 0 00 000001 		POPD	<AC1>			;Restore ac 
  1824	011636'	263 17 0 00 000000 		RTN
  1825
  1826	011637'	000000	000000		SCNTE:	0				;Spear error entry count 
  1827	011640'	000000	000000		SPRSE:	0				;Start date and time stored here
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 47
RMTCNM	MAC	10-Jun-85 15:20		SPEAR SUBROUTINES                                                                  SEQ 0126

  1828
  1829					;#**********************************************************************
  1830					; FJSYS subroutine
  1831					;
  1832					;  Reports a jsys failure.
  1833					;  The monitor error message is stored in buffer fjsybf and then printed.
  1834					;#**********************************************************************
  1835
  1836	011641'	261 17 0 00 000003 	FJSYS:	PUTIT	<AC3,AC2,AC1,AC0> 	;Save some acs
  1837	011642'	261 17 0 00 000002 
  1838	011643'	261 17 0 00 000001 
  1839	011644'	261 17 0 00 000000 
  1840	011645'	402 00 0 00 011665'		SETZM	FJSYBF			;Zero first word of buffer
  1841	011646'	201 01 0 00 400000 		MOVEI	AC1,.FHSLF		;Get the process handle
  1842	011647'	104 00 0 00 000012 		GETER				;Return with ac2 = (.Fhslf,,error code)
  1843	011650'	320 16 0 00 016355'		 ERJMP	[RTN]			;
  1844
  1845	011651'	561 01 0 00 011665'		HRROI	AC1,FJSYBF		;Get a pointer to store error text 
  1846	011652'	515 03 0 00 777014 		HRLZI	AC3,-^D500		;Set 500 byte limit on size of string
  1847	011653'	104 00 0 00 000011 		ERSTR				;Get the last jsys error string
  1848	011654'	320 16 0 00 016355'		 ERJMP	[RTN]			;Undefined error
  1849	011655'	320 16 0 00 016355'		 ERJMP	[RTN]			;Too large a string
  1850
  1851	011656'	037 00 0 00 011665'		PNTMSG	FJSYBF			;Print the monitor message
  1852	011657'	037 03 0 00 000001 		PCRLF
  1853	011660'	262 17 0 00 000000 		GETIT	<AC0,AC1,AC2,AC3> 	;Restore acs
  1854	011661'	262 17 0 00 000001 
  1855	011662'	262 17 0 00 000002 
  1856	011663'	262 17 0 00 000003 
  1857	011664'	263 17 0 00 000000 		RTN
  1858
  1859	011665'				FJSYBF:	BLOCK	^D201			;Storage for monitor error text
  1860
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 48
RMTCNM	MAC	10-Jun-85 15:20		RESERVE CONSOLE                                                                    SEQ 0127

  1861					SUBTTL	RESERVE CONSOLE
  1862					;#**************************************************************************
  1863					;  1. Do Read Local address jsys & put the physical address in LOCADH/L.
  1864					;  2. Do a REQ-ID & put the SYS-ID into TTOBUF.
  1865					;  3. If FUNCTION indicates no "console carrier", boot via "NICE" protocol
  1866					;     & re-enter again.
  1867					;  4. If FUNCTION indicates "console carrier" & "not reserved", do 
  1868					;     a RESERVE CONSOLE jsys & re-enter again.
  1869					;  5. If FUNCTION indicates "console carrier" & "reserved", read the
  1870					;     CONSOLE USER & check that it's our "local-address".
  1871					;  6. Check that the HARDWARE ADDRESS returned in SYS-ID is the desired
  1872					;     "target" node address.
  1873					;  7. Check that the CONSOLE COMMAND SIZE & CONSOLE RESPONSE SIZE returned
  1874					;     in SYS-ID is consistent with buffer sizes allotted in the program.
  1875					;  8. Read the Reservation Timer, reduce it by 2 secs & store it in RESTIM.
  1876					;     To be used by LOOP to send RCPOLL's so that we dont timeout
  1877					;     & loose connection
  1878					;
  1879					;  Return+1 if unsuccessful
  1880					;  Return+2 if successful
  1881					;#***************************************************************************
  1882
  1883	012176'	261 17 0 00 000007 	RESCON:	PUTIT	<AC7,AC6,AC5,AC4,AC3,AC2,AC1,AC0>	;Save some ac's
  1884	012177'	261 17 0 00 000006 
  1885	012200'	261 17 0 00 000005 
  1886	012201'	261 17 0 00 000004 
  1887	012202'	261 17 0 00 000003 
  1888	012203'	261 17 0 00 000002 
  1889	012204'	261 17 0 00 000001 
  1890	012205'	261 17 0 00 000000 
  1891	012206'	402 00 0 00 015322'		SETZM	RBTCTR			;Clear remote boot counter
  1892	012207'	260 17 0 00 011226'		GO	RCADR			;Read local hardware & physical addr
  1893	012210'	254 00 0 00 012616'		 JRST	RESX			; & put physical addr in LOCADH/L
  1894
  1895	012211'	402 00 0 00 015321'		SETZM	PASCT			;For debug
  1896
  1897	012212'	336 00 0 00 015070'	RES1:	SKIPN	DBGFLG			;Debug?
  1898	012213'	254 00 0 00 012237'		 JRST	RES1D			;No
  1899
  1900	012214'	332 00 0 00 015321'		SKIPE	PASCT			;1'st pass?
  1901	012215'	254 00 0 00 012224'		 JRST	RES9			; no
  1902
  1903	012216'	201 00 0 00 000177 		MOVEI	AC0,177			;Yes, clear "RESERVED" in FUNCTION
  1904	012217'	202 00 0 00 014136'		MOVEM	AC0,REQT1
  1905
  1906	012220'	201 03 0 00 000005 		MOVEI	AC3,5			;Clear "CONSOLE USER" in SYS-ID
  1907	012221'	402 00 0 03 014143'		SETZM	REQT2(AC3)
  1908	012222'	365 03 0 00 012221'		SOJGE	AC3,.-1
  1909	012223'	254 00 0 00 012235'		JRST	RES4
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 49
RMTCNM	MAC	10-Jun-85 15:20		RESERVE CONSOLE                                                                    SEQ 0128

  1910
  1911	012224'	201 00 0 00 000377 	RES9:	MOVEI	AC0,377			;Set "RESERVED" in FUNCTION
  1912	012225'	202 00 0 00 014136'		MOVEM	AC0,REQT1
  1913
  1914	012226'	201 03 0 00 000006 		MOVEI	AC3,6			;Set "CONSOLE USER" in SYS-ID to
  1915	012227'	400 04 0 00 000000 		SETZ	AC4,			; 123456789ABC
  1916	012230'	200 05 0 00 016356'		MOVE	AC5,[POINT 8,SLOCH]
  1917	012231'	200 06 0 00 016357'		MOVE	AC6,[POINT 36,REQT2]
  1918	012232'	134 04 0 00 000005 	RES9A:	ILDB	AC4,AC5			;Get SLOCH/L
  1919	012233'	136 04 0 00 000006 		IDPB	AC4,AC6			; & put it in REQT2
  1920	012234'	367 03 0 00 012232'		SOJG	AC3,RES9A		; repeat 6 times
  1921
  1922	012235'	200 00 0 00 016360'	RES4:	MOVE	AC0,[RTEND-REQTAB]	;Get table byte count
  1923	012236'	506 00 0 00 010630'		HRLM	AC0,RCRPYB+.LMRBL	; & fake the ret msg len
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 50
RMTCNM	MAC	10-Jun-85 15:20		RESERVE CONSOLE                                                                    SEQ 0129

  1924
  1925					; Do a REQ-ID & put the SYS-ID into TTOBUF
  1926
  1927	012237'	260 17 0 00 013067'	RES1D:	GO	RRID
  1928
  1929					; Reset pointer to look for FUNCTION (info type 2)
  1930					; If no "console carrier", boot via RCRBT & re-enter again.
  1931					; If "console carrier" & "not reserved", do RESERVE CONSOLE & re-enter again.
  1932
  1933	012240'	200 02 0 00 015731'		MOVE	AC2,[POINT 8,TTOBUF]	;Set buffer ptr
  1934	012241'	554 07 0 00 010630'		HLRZ	AC7,RCRPYB+.LMRBL	;Get SYS-ID byte count
  1935
  1936	012242'	322 07 0 00 012253'	RES1A:	JUMPE	AC7,RES10		;Exit if byte count = 0
  1937	012243'	134 01 0 00 000002 		ILDB	AC1,AC2			;Put 1'st INFO TYPE lo byte in AC1
  1938	012244'	134 00 0 00 000002 		ILDB	AC0,AC2			;Put 2'nd INFO TYPE hi byte in AC0
  1939	012245'	137 00 0 00 016361'		DPB	AC0,[POINT 8,AC1,35-8]	; Construct the info type word
  1940	012246'	275 07 0 00 000002 		SUBI	AC7,2			;Decrement byte count
  1941
  1942	012247'	302 01 0 00 000000 		CAIE	AC1,0			;Info type = 0? (padding)
  1943	012250'	254 00 0 00 012255'		 JRST	RES1B			; No, see if FUNCTION
  1944	012251'	133 00 0 00 000002 		IBP	AC2			;Yes, jump over msg length
  1945	012252'	366 07 0 00 012242'		SOJN	AC7,RES1A		;Try next info type if byte count not 0
  1946	012253'	037 01 0 00 016362'	RES10:	PMSG	<^C[ANNOT FIND [FUNCTION [IN [SYS-ID, E[XITING^>
  1947	012254'	254 00 0 00 012616'		JRST	RESX
  1948
  1949	012255'	306 01 0 00 000002 	RES1B:	CAIN	AC1,2			;Is it FUNCTION?
  1950	012256'	254 00 0 00 012265'		 JRST	RES1C			; yes
  1951										; no, go to next info type
  1952	012257'	134 00 0 00 000002 		ILDB	AC0,AC2			;Get data length
  1953	012260'	360 07 0 00 000000 		SOJ	AC7,			;Decr byte count
  1954	012261'	133 00 0 00 000002 	RES11:	IBP	AC2			;Skip over data
  1955	012262'	360 07 0 00 000000 		SOJ	AC7,			;Decr byte count
  1956	012263'	367 00 0 00 012261'		SOJG	AC0,RES11		;Done?
  1957	012264'	254 00 0 00 012242'		JRST	RES1A			;Yes, try over
  1958
  1959	012265'	134 01 0 00 000002 	RES1C:	ILDB	AC1,AC2			;Go get the length
  1960	012266'	306 01 0 00 000002 		CAIN	AC1,2			;Is it 2 ?
  1961	012267'	254 00 0 00 012275'		JRST	RES2			; Yes
  1962
  1963	012270'	037 01 0 00 016372'		PMSG	<^ F[UNCTION [I[NFO LENGTH IN ERROR, SHOULD BE 2, WAS >
  1964	012271'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the length
  1965	012272'	037 15 0 00 000000 		PNTDEC				;Print ac0 and exit
  1966	012273'	037 03 0 00 000001 		PCRLF
  1967	012274'	254 00 0 00 012616'		JRST	RESX
  1968
  1969	012275'	134 01 0 00 000002 	RES2:	ILDB	AC1,AC2			;Get the data for lo byte
  1970
  1971	012276'	606 01 0 00 000040 		TRNN	AC1,1B30		;Console Carrier set?
  1972	012277'	254 00 0 00 012575'		 JRST	RES8			; No,I have to issue RCRBT
  1973	012300'	602 01 0 00 000200 		TRNE	AC1,1B28		;Console Reservation set?
  1974	012301'	254 00 0 00 012306'		 JRST	RES2A			; Yes, see by who
  1975	012302'	260 17 0 00 010632'		GO	RCRSV			;No, do Reserve Console Jsys
  1976	012303'	254 00 0 00 012616'		 JRST	RESX			; Jsys error return...exit
  1977	012304'	350 00 0 00 015321'		AOS	PASCT			;For debug
  1978	012305'	254 00 0 00 012212'		JRST	RES1			;See if we got it
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 51
RMTCNM	MAC	10-Jun-85 15:20		RESERVE CONSOLE                                                                    SEQ 0130

  1979
  1980					;Reset pointer to look for CONSOLE USER (info type 3)
  1981					; & check to see if it is our "local address".
  1982
  1983	012306'	200 02 0 00 015731'	RES2A:	MOVE	AC2,[POINT 8,TTOBUF]	;Set buffer ptr
  1984	012307'	554 07 0 00 010630'		HLRZ	AC7,RCRPYB+.LMRBL	;Get SYS-ID byte count
  1985
  1986	012310'	322 07 0 00 012321'	RES2B:	JUMPE	AC7,RES12		;Exit if byte count = 0
  1987	012311'	134 01 0 00 000002 		ILDB	AC1,AC2			;Put 1'st INFO TYPE lo byte in AC1
  1988	012312'	134 00 0 00 000002 		ILDB	AC0,AC2			;Put 2'nd INFO TYPE hi byte in AC0
  1989	012313'	137 00 0 00 016361'		DPB	AC0,[POINT 8,AC1,35-8]	; Construct the info type word
  1990	012314'	275 07 0 00 000002 		SUBI	AC7,2			;Decrement byte count
  1991
  1992	012315'	302 01 0 00 000000 		CAIE	AC1,0			;Info type = 0? (padding)
  1993	012316'	254 00 0 00 012323'		 JRST	RES2C			; No, see if CONSOLE USER
  1994	012317'	133 00 0 00 000002 		IBP	AC2			;Yes, jump over msg length
  1995	012320'	366 07 0 00 012310'		SOJN	AC7,RES2B		;Try next info type if byte count not 0
  1996	012321'	037 01 0 00 016403'	RES12:	PMSG	<^C[ANNOT FIND [CONSOLE USER [IN [SYS-ID, E[XITING^>
  1997	012322'	254 00 0 00 012616'		JRST	RESX
  1998
  1999	012323'	306 01 0 00 000003 	RES2C:	CAIN	AC1,3			;Is it CONSOLE USER?
  2000	012324'	254 00 0 00 012333'		 JRST	RES2D			; yes
  2001										; no, go to next info type
  2002	012325'	134 00 0 00 000002 		ILDB	AC0,AC2			;Get data length
  2003	012326'	360 07 0 00 000000 		SOJ	AC7,			;Decr byte count
  2004	012327'	133 00 0 00 000002 	RES13:	IBP	AC2			;Skip over data
  2005	012330'	360 07 0 00 000000 		SOJ	AC7,			;Decr byte count
  2006	012331'	367 00 0 00 012327'		SOJG	AC0,RES13		;Done?
  2007	012332'	254 00 0 00 012310'		JRST	RES2B			;Yes, try over
  2008
  2009	012333'	134 01 0 00 000002 	RES2D:	ILDB	AC1,AC2			;Go get the length
  2010	012334'	306 01 0 00 000006 		CAIN	AC1,6			;Is it 6 ?
  2011	012335'	254 00 0 00 012343'		 JRST	RES3			; Yes, see if it's me
  2012
  2013	012336'	037 01 0 00 016414'		PMSG	<^ C[ONSOLE [U[SER [I[NFO LENGTH IN ERROR, SHOULD BE 6, WAS >
  2014	012337'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the byte
  2015	012340'	037 15 0 00 000000 		PNTDEC				;Print ac0
  2016	012341'	037 03 0 00 000001 		PCRLF
  2017	012342'	254 00 0 00 012616'		JRST	RESX			; and exit
  2018
  2019	012343'	202 02 0 00 015060'	RES3:	MOVEM	AC2,TEMP1		;save pointer for error printout
  2020
  2021	012344'	201 03 0 00 000006 		MOVEI	AC3,6			;Compare 6 bytes to see if it's us
  2022	012345'	200 06 0 00 016426'		MOVE	AC6,[POINT 8,LOCADH]	;Set byte pointer
  2023	012346'	134 00 0 00 000002 	RES5:	ILDB	AC0,AC2			;Get console user address byte 0-5
  2024	012347'	134 01 0 00 000006 		ILDB	AC1,AC6			;Get local   node address byte 0-5
  2025
  2026	012350'	312 00 0 00 000001 		CAME	AC0,AC1			;Same?
  2027	012351'	254 00 0 00 012554'		 JRST	RES7			; No, console not avail... exit
  2028	012352'	367 03 0 00 012346'		SOJG	AC3,RES5		; Yes, repeat
  2029
  2030	012353'	332 00 0 00 015065'		SKIPE	TRCFLG			;Trace on?
  2031	012354'	037 01 0 00 016427'		 PMSG	<^C[ONSOLE [R[ESERVATION [S[UCCESSFUL^>	; Yes
  2032	012355'	476 00 0 00 015323'		SETOM	NODSEL			;Set node selected flag
  2033	012356'	350 00 0 17 777770 		AOS	-10(P)			;Do ret+2
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 52
RMTCNM	MAC	10-Jun-85 15:20		RESERVE CONSOLE                                                                    SEQ 0131

  2034
  2035
  2036					; Reset pointer to look for RESERVATION TIMER (info type 4)
  2037					; Reduce it by 2 & store it in RESTIM.
  2038					; If Reservation Timer not in SYS-ID, default to 10 sec.
  2039
  2040	012357'	200 02 0 00 015731'		MOVE	AC2,[POINT 8,TTOBUF]	;Set buffer ptr
  2041	012360'	554 07 0 00 010630'		HLRZ	AC7,RCRPYB+.LMRBL	;Get SYS-ID byte count
  2042
  2043	012361'	322 07 0 00 012372'	RES6:	JUMPE	AC7,RES6A		;Exit if byte count = 0
  2044	012362'	134 01 0 00 000002 		ILDB	AC1,AC2			;Put 1'st INFO TYPE lo byte in AC1
  2045	012363'	134 00 0 00 000002 		ILDB	AC0,AC2			;Put 2'nd INFO TYPE hi byte in AC0
  2046	012364'	137 00 0 00 016361'		DPB	AC0,[POINT 8,AC1,35-8]	; Construct the info type word
  2047	012365'	275 07 0 00 000002 		SUBI	AC7,2			;Decrement byte count
  2048
  2049	012366'	302 01 0 00 000000 		CAIE	AC1,0			;Info type = 0? (padding)
  2050	012367'	254 00 0 00 012376'		 JRST	RES6B			; No, see if RESERVATION TIMER
  2051	012370'	133 00 0 00 000002 		IBP	AC2			;Yes, jump over msg length
  2052	012371'	366 07 0 00 012361'		SOJN	AC7,RES6		;Try next info type if byte count not 0
  2053	012372'	037 01 0 00 016436'	RES6A:	PMSG	<^C[ANNOT FIND [RESERVATION TIMER [IN [SYS-ID, E[XITING^>
  2054	012373'	201 00 0 00 010000 		MOVEI	AC0,10000
  2055	012374'	202 00 0 00 000447'		MOVEM	AC0,RESTIM		;Default to 10 sec
  2056	012375'	254 00 0 00 012616'		JRST	RESX
  2057
  2058	012376'	306 01 0 00 000004 	RES6B:	CAIN	AC1,4			;Is it RESERVATION TIMER?
  2059	012377'	254 00 0 00 012406'		 JRST	RES6D			; yes
  2060										; no, go to next info type
  2061	012400'	134 00 0 00 000002 		ILDB	AC0,AC2			;Get data length
  2062	012401'	360 07 0 00 000000 		SOJ	AC7,			;Decr byte count
  2063	012402'	133 00 0 00 000002 	RES6C:	IBP	AC2			;Skip over data
  2064	012403'	360 07 0 00 000000 		SOJ	AC7,			;Decr byte count
  2065	012404'	367 00 0 00 012402'		SOJG	AC0,RES6C		;Done?
  2066	012405'	254 00 0 00 012361'		JRST	RES6			;Yes, try over
  2067
  2068	012406'	134 01 0 00 000002 	RES6D:	ILDB	AC1,AC2			;Go get the length
  2069	012407'	306 01 0 00 000002 		CAIN	AC1,2			;Is it 2 ?
  2070	012410'	254 00 0 00 012416'		JRST	RES6E			; Yes
  2071
  2072	012411'	037 01 0 00 016450'		PMSG	<^ R[ESERVATION [T[IMER [I[NFO LENGTH IN ERROR, SHOULD BE 2, WAS >
  2073	012412'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the length
  2074	012413'	037 15 0 00 000000 		PNTDEC				;Print ac0 and exit
  2075	012414'	037 03 0 00 000001 		PCRLF
  2076	012415'	254 00 0 00 012616'		JRST	RESX
  2077
  2078	012416'	134 01 0 00 000002 	RES6E:	ILDB	AC1,AC2			;Get the data for lo byte
  2079	012417'	360 07 0 00 000000 		SOJ	AC7,			;Decr byte count
  2080	012420'	303 01 0 00 000002 		CAILE	AC1,2			;More than 2 sec?
  2081	012421'	275 01 0 00 000002 		 SUBI	AC1,2			; Yes, decr by 2 sec
  2082					;;;	IMULI	AC1,^D1000		;Get it in ms (NOP for now)
  2083					;;;mult by 1000 causes too long time between data transmissions
  2084	012422'	202 01 0 00 000447'		MOVEM	AC1,RESTIM		; & store it
  2085
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 53
RMTCNM	MAC	10-Jun-85 15:20		RESERVE CONSOLE                                                                    SEQ 0132

  2086
  2087					;Reset pointer to look for CONSOLE COMMAND SIZE (info type 5)
  2088
  2089	012423'	200 02 0 00 015731'		MOVE	AC2,[POINT 8,TTOBUF]	;Set buffer ptr
  2090	012424'	554 07 0 00 010630'		HLRZ	AC7,RCRPYB+.LMRBL	;Get SYS-ID byte count
  2091
  2092	012425'	322 07 0 00 012436'	RES20B:	JUMPE	AC7,RES16		;Exit if byte count = 0
  2093	012426'	134 01 0 00 000002 		ILDB	AC1,AC2			;Put 1'st INFO TYPE lo byte in AC1
  2094	012427'	134 00 0 00 000002 		ILDB	AC0,AC2			;Put 2'nd INFO TYPE hi byte in AC0
  2095	012430'	137 00 0 00 016361'		DPB	AC0,[POINT 8,AC1,35-8]	; Construct the info type word
  2096	012431'	275 07 0 00 000002 		SUBI	AC7,2			;Decrement byte count
  2097
  2098	012432'	302 01 0 00 000000 		CAIE	AC1,0			;Info type = 0? (padding)
  2099	012433'	254 00 0 00 012440'		 JRST	RES20C			;No, see if CONSOLE CMD SIZE
  2100	012434'	133 00 0 00 000002 		IBP	AC2			;Yes, jump over msg length
  2101	012435'	366 07 0 00 012425'		SOJN	AC7,RES20B		;Try next info type if byte count not 0
  2102	012436'	037 01 0 00 016463'	RES16:	PMSG	<^C[ANNOT FIND [CONSOLE COMMAND SIZE [IN [SYS-ID, E[XITING^>
  2103	012437'	254 00 0 00 012616'		JRST	RESX
  2104
  2105	012440'	306 01 0 00 000005 	RES20C:	CAIN	AC1,5			;Is it CONSOLE COMMAND SIZE?
  2106	012441'	254 00 0 00 012450'		 JRST	RES20D			; yes
  2107										; no, go to next info type
  2108	012442'	134 00 0 00 000002 		ILDB	AC0,AC2			;Get data length
  2109	012443'	360 07 0 00 000000 		SOJ	AC7,			;Decr byte count
  2110	012444'	133 00 0 00 000002 	RES17:	IBP	AC2			;Skip over data
  2111	012445'	360 07 0 00 000000 		SOJ	AC7,			;Decr byte count
  2112	012446'	367 00 0 00 012444'		SOJG	AC0,RES17		;Done?
  2113	012447'	254 00 0 00 012425'		JRST	RES20B			;Yes, try over
  2114
  2115	012450'	134 01 0 00 000002 	RES20D:	ILDB	AC1,AC2			;Go get the length
  2116	012451'	306 01 0 00 000002 		CAIN	AC1,2			;Is it 2 ?
  2117	012452'	254 00 0 00 012460'		 JRST	RES20E			; Yes, get size
  2118
  2119	012453'	037 01 0 00 016475'		PMSG	<^ C[ONSOLE [C[OMMAND [S[IZE [I[NFO LENGTH IN ERROR, SHOULD BE 2, WAS >
  2120	012454'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the byte
  2121	012455'	037 15 0 00 000000 		PNTDEC				;Print ac0
  2122	012456'	037 03 0 00 000001 		PCRLF
  2123	012457'	254 00 0 00 012616'		JRST	RESX			; and exit
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 54
RMTCNM	MAC	10-Jun-85 15:20		RESERVE CONSOLE                                                                    SEQ 0133

  2124
  2125					;Modify CBUFSZ so that it is always less than Console Command Size
  2126					;Check to see that CBUFSZ is less than the max allotted buffer size BUFSIZ.
  2127
  2128	012460'	134 01 0 00 000002 	RES20E:	ILDB	AC1,AC2			;Get lo byte of console command size
  2129	012461'	134 00 0 00 000002 		ILDB	AC0,AC2			;Get hi byte
  2130	012462'	137 00 0 00 016361'		DPB	AC0,[POINT 8,AC1,35-8]	;Construct console command size in AC1
  2131	012463'	360 01 0 00 000000 		SOJ	AC1,			;Decrement by 1
  2132	012464'	202 01 0 00 010314'		MOVEM	AC1,CBUFSZ		;Modify size
  2133
  2134	012465'	307 01 0 00 003720 		CAIG	AC1,BUFSIZ		;CBUFSZ > BUFSIZ ?
  2135	012466'	254 00 0 00 012477'		 JRST	RES20A			; No, continue
  2136	012467'	037 01 0 00 016511'		PMSG	<^W[ARNING...[CBUFSZ [GREATER THAN [BUFSIZ^>
  2137	012470'	037 01 0 00 016521'		PMSG	<^CBUFSZ = >
  2138	012471'	200 00 0 00 010314'		MOVE	AC0,CBUFSZ
  2139	012472'	037 15 0 00 000000 		PNTDEC
  2140
  2141	012473'	037 01 0 00 016523'		PMSG	<^BUFSIZ = >
  2142	012474'	201 00 0 00 003720 		MOVEI	AC0,BUFSIZ
  2143	012475'	037 15 0 00 000000 		PNTDEC
  2144	012476'	037 03 0 00 000001 		PCRLF
  2145
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 55
RMTCNM	MAC	10-Jun-85 15:20		RESERVE CONSOLE                                                                    SEQ 0134

  2146
  2147					;Reset pointer to look for CONSOLE RESPONSE SIZE (info type 6)
  2148
  2149	012477'	200 02 0 00 015731'	RES20A:	MOVE	AC2,[POINT 8,TTOBUF]	;Set buffer ptr
  2150	012500'	554 07 0 00 010630'		HLRZ	AC7,RCRPYB+.LMRBL	;Get SYS-ID byte count
  2151
  2152	012501'	322 07 0 00 012512'	RES30B:	JUMPE	AC7,RES18		;Exit if byte count = 0
  2153	012502'	134 01 0 00 000002 		ILDB	AC1,AC2			;Put 1'st INFO TYPE lo byte in AC1
  2154	012503'	134 00 0 00 000002 		ILDB	AC0,AC2			;Put 2'nd INFO TYPE hi byte in AC0
  2155	012504'	137 00 0 00 016361'		DPB	AC0,[POINT 8,AC1,35-8]	; Construct the info type word
  2156	012505'	275 07 0 00 000002 		SUBI	AC7,2			;Decrement byte count
  2157
  2158	012506'	302 01 0 00 000000 		CAIE	AC1,0			;Info type = 0? (padding)
  2159	012507'	254 00 0 00 012514'		 JRST	RES30C			;No, see if CONSOLE RESP SIZE
  2160	012510'	133 00 0 00 000002 		IBP	AC2			;Yes, jump over msg length
  2161	012511'	366 07 0 00 012501'		SOJN	AC7,RES30B		;Try next info type if byte count not 0
  2162	012512'	037 01 0 00 016525'	RES18:	PMSG	<^C[ANNOT FIND [CONSOLE RESPONSE SIZE [IN [SYS-ID, E[XITING^>
  2163	012513'	254 00 0 00 012616'		JRST	RESX
  2164
  2165	012514'	306 01 0 00 000006 	RES30C:	CAIN	AC1,6			;Is it CONSOLE RESPONSE SIZE?
  2166	012515'	254 00 0 00 012524'		 JRST	RES30D			; yes
  2167										; no, go to next info type
  2168	012516'	134 00 0 00 000002 		ILDB	AC0,AC2			;Get data length
  2169	012517'	360 07 0 00 000000 		SOJ	AC7,			;Decr byte count
  2170	012520'	133 00 0 00 000002 	RES19:	IBP	AC2			;Skip over data
  2171	012521'	360 07 0 00 000000 		SOJ	AC7,			;Decr byte count
  2172	012522'	367 00 0 00 012520'		SOJG	AC0,RES19		;Done?
  2173	012523'	254 00 0 00 012501'		JRST	RES30B			;Yes, try over
  2174
  2175	012524'	134 01 0 00 000002 	RES30D:	ILDB	AC1,AC2			;Go get the length
  2176	012525'	306 01 0 00 000002 		CAIN	AC1,2			;Is it 2 ?
  2177	012526'	254 00 0 00 012534'		 JRST	RES30E			; Yes, get size
  2178
  2179	012527'	037 01 0 00 016537'		PMSG	<^ C[ONSOLE [R[ESPONSE [S[IZE [I[NFO LENGTH IN ERROR, SHOULD BE 2, WAS >
  2180	012530'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the byte
  2181	012531'	037 15 0 00 000000 		PNTDEC				;Print ac0
  2182	012532'	037 03 0 00 000001 		PCRLF
  2183	012533'	254 00 0 00 012616'		JRST	RESX			; and exit
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 56
RMTCNM	MAC	10-Jun-85 15:20		RESERVE CONSOLE                                                                    SEQ 0135

  2184
  2185					;Modify RBUFSZ so that it is always greater than Console Response Size
  2186					;Check to see that RBUFSZ is less than the max allotted buffer size BUFSIZ.
  2187
  2188	012534'	134 01 0 00 000002 	RES30E:	ILDB	AC1,AC2			;Get lo byte of CONSOLE RESPONSE SIZE
  2189	012535'	134 00 0 00 000002 		ILDB	AC0,AC2			;Get hi byte
  2190	012536'	137 00 0 00 016361'		DPB	AC0,[POINT 8,AC1,35-8]	; Construct CONSOLE COMMAND SIZE in AC1
  2191	012537'	340 01 0 00 000000 		AOJ	AC1,			;Make larger by 1
  2192	012540'	202 01 0 00 010315'		MOVEM	AC1,RBUFSZ		; & modify size
  2193
  2194	012541'	307 01 0 00 003720 		CAIG	AC1,BUFSIZ		;RBUFSZ > BUFSIZ ?
  2195	012542'	254 00 0 00 012616'		 JRST	RESX			; no, continue
  2196	012543'	037 01 0 00 016553'		PMSG	<^W[ARNING...[RBUFSZ [GREATER THAN [BUFSIZ^>
  2197
  2198	012544'	037 01 0 00 016563'		PMSG	<^RBUFSZ = >
  2199	012545'	200 00 0 00 010315'		MOVE	AC0,RBUFSZ
  2200	012546'	037 15 0 00 000000 		PNTDEC
  2201
  2202	012547'	037 01 0 00 016523'		PMSG	<^BUFSIZ = >
  2203	012550'	201 00 0 00 003720 		MOVEI	AC0,BUFSIZ
  2204	012551'	037 15 0 00 000000 		PNTDEC
  2205	012552'	037 03 0 00 000001 		PCRLF
  2206	012553'	254 00 0 00 012616'		JRST	RESX			;Exit
  2207
  2208	012554'	037 01 0 00 016565'	RES7:	PMSG	<C[ONSOLE [N[OT [A[VAILABLE [F[OR [R[ESERVATION^>
  2209
  2210	012555'	200 02 0 00 015060'		MOVE	AC2,TEMP1		;restore pointer
  2211	012556'	201 03 0 00 000006 		MOVEI	AC3,6			;for 6 bytes
  2212	012557'	200 05 0 00 016575'		MOVE	AC5,[POINT 8,AC0]	;set up pointer
  2213
  2214	012560'	037 01 0 00 016576'		PMSG	<^   C[ONSOLE [U[SER     >
  2215	012561'	134 04 0 00 000002 	RES7A:	ILDB	AC4,AC2			;get byte
  2216	012562'	136 04 0 00 000005 		IDPB	AC4,AC5			;set up pointer
  2217	012563'	367 03 0 00 012561'		SOJG	AC3,RES7A		;done?
  2218	012564'	261 16 0 00 000000 		PUSHD	<AC0,AC1>
  2219	012565'	261 16 0 00 000001 
  2220	012566'	260 17 0 00 011460'		GO	PRHEX
  2221
  2222	012567'	037 01 0 00 016603'		PMSG	<^   L[OCAL [A[DDRESS    >	;yes
  2223	012570'	261 16 0 00 015044'		PUSHD	<LOCADH,LOCADL>
  2224	012571'	261 16 0 00 015045'
  2225	012572'	260 17 0 00 011460'		GO	PRHEX			;print it
  2226	012573'	037 03 0 00 000001 		PCRLF
  2227	012574'	254 00 0 00 012616'		JRST	RESX
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 57
RMTCNM	MAC	10-Jun-85 15:20		RESERVE CONSOLE                                                                    SEQ 0136

  2228
  2229	012575'	200 00 0 00 015322'	RES8:	MOVE	AC0,RBTCTR		; *** DO REMOTE BOOT ***
  2230	012576'	327 00 0 00 012603'		JUMPG	AC0,RES8A		;Do remote boot only once
  2231
  2232	012577'	332 00 0 00 015065'		SKIPE	TRCFLG			;Skip if no trace
  2233	012600'	037 01 0 00 016610'		 PMSG	<^C[ONSOLE [C[ARRIER NOT SET...TRYING [RCRBT^>
  2234	012601'	260 17 0 00 010507'		GO	RCRBT			;Do remote boot
  2235	012602'	254 00 0 00 012616'		 JRST	RESX			; error return
  2236
  2237	012603'	332 00 0 00 015065'	RES8A:	SKIPE	TRCFLG			;Skip if no trace
  2238	012604'	037 01 0 00 016620'		 PMSG	<^W[AITING 5 SECONDS...^>
  2239	012605'	201 01 0 00 011610 		MOVEI	AC1,^D5000		;Wait 5 sec
  2240	012606'	104 00 0 00 000167 		DISMS
  2241
  2242	012607'	350 00 0 00 015322'		AOS	RBTCTR
  2243	012610'	200 00 0 00 015322'		MOVE	AC0,RBTCTR
  2244	012611'	302 00 0 00 000014 		CAIE	AC0,^D12		;60 sec up?
  2245	012612'	254 00 0 00 012212'		 JRST	RES1			; no, try all over again
  2246	012613'	037 01 0 00 016624'		PMSG	<^RCRBT [CANNOT SET [C[ONSOLE [C[ARRIER AFTER 60 SEC...>
  2247	012614'	037 01 0 00 016636'		PMSG	<^C[ONSOLE [R[ESERVATION UNSUCCESSFUL...EXITING^>
  2248	012615'	037 01 0 00 016646'		PMSG	<^H[AS PASSWORD BEEN SET BY [SET PASSWORD [COMMAND?^>
  2249
  2250	012616'	262 17 0 00 000000 	RESX:	GETIT	<AC0,AC1,AC2,AC3,AC4,AC5,AC6,AC7>
  2251	012617'	262 17 0 00 000001 
  2252	012620'	262 17 0 00 000002 
  2253	012621'	262 17 0 00 000003 
  2254	012622'	262 17 0 00 000004 
  2255	012623'	262 17 0 00 000005 
  2256	012624'	262 17 0 00 000006 
  2257	012625'	262 17 0 00 000007 
  2258	012626'	263 17 0 00 000000 		RTN
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 58
RMTCNM	MAC	10-Jun-85 15:20		RELEASE CONSOLE                                                                    SEQ 0137

  2259					SUBTTL	RELEASE CONSOLE
  2260					;#**************************************************************************
  2261					;  1. Do a REQ-ID & read the SYS-ID "function" & "console user".
  2262					;  2. If FUNCTION indicates "not reserved", do a Return+2 exit.
  2263					;  3. If FUNCTION indicates "reserved", read the CONSOLE USER & check if
  2264					;     it's reserved by us.
  2265					;  4. If it's reserved by us, do a RELEASE CONSOLE Jsys & re-enter again.
  2266					;  5. If it's reserved by another user, exit.
  2267					;  6. Return+1 if unsuccessful
  2268					;     Return+2 if successful
  2269					;#***************************************************************************
  2270
  2271	012627'	261 17 0 00 000007 	RELCON:	PUTIT	<AC7,AC6,AC5,AC4,AC3,AC2,AC1,AC0>	;Save some ac's
  2272	012630'	261 17 0 00 000006 
  2273	012631'	261 17 0 00 000005 
  2274	012632'	261 17 0 00 000004 
  2275	012633'	261 17 0 00 000003 
  2276	012634'	261 17 0 00 000002 
  2277	012635'	261 17 0 00 000001 
  2278	012636'	261 17 0 00 000000 
  2279	012637'	260 17 0 00 013067'	REL1:	GO	RRID			;Do Req-ID & put Sys-ID to TTOBUF
  2280
  2281					;Reset pointer to look for FUNCTION (info type 2)
  2282
  2283	012640'	200 02 0 00 015731'		MOVE	AC2,[POINT 8,TTOBUF]	;Look for FUNCTION
  2284	012641'	554 07 0 00 010630'		HLRZ	AC7,RCRPYB+.LMRBL	;Get SYS-ID byte count
  2285
  2286	012642'	322 07 0 00 012653'	REL1A:	JUMPE	AC7,REL10		;Exit if byte count = 0
  2287	012643'	134 01 0 00 000002 		ILDB	AC1,AC2			;Put 1'st INFO TYPE lo byte in AC1
  2288	012644'	134 00 0 00 000002 		ILDB	AC0,AC2			;Put 2'nd INFO TYPE hi byte in AC0
  2289	012645'	137 00 0 00 016361'		DPB	AC0,[POINT 8,AC1,35-8]	; Construct the info type word
  2290	012646'	275 07 0 00 000002 		SUBI	AC7,2			;Decrement byte count
  2291
  2292	012647'	302 01 0 00 000000 		CAIE	AC1,0			;Info type = 0? (padding)
  2293	012650'	254 00 0 00 012655'		 JRST	REL1B			;No, see if FUNCTION
  2294	012651'	133 00 0 00 000002 		IBP	AC2			;Yes, jump over msg length
  2295	012652'	366 07 0 00 012642'		SOJN	AC7,REL1A		;Try next info type if byte count not 0
  2296	012653'	037 01 0 00 016657'	REL10:	PMSG	<^C[ANNOT FIND [FUNCTION [IN [SYS-ID, E[XITING>
  2297	012654'	254 00 0 00 012766'		JRST	RELX
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 59
RMTCNM	MAC	10-Jun-85 15:20		RELEASE CONSOLE                                                                    SEQ 0138

  2298
  2299	012655'	306 01 0 00 000002 	REL1B:	CAIN	AC1,2			;Is it FUNCTION?
  2300	012656'	254 00 0 00 012665'		 JRST	REL1C			; yes
  2301										; no, go to next info type
  2302	012657'	134 00 0 00 000002 		ILDB	AC0,AC2			;Get data length
  2303	012660'	360 07 0 00 000000 		SOJ	AC7,			;Decr byte count
  2304	012661'	133 00 0 00 000002 	REL11:	IBP	AC2			;Skip over data
  2305	012662'	360 07 0 00 000000 		SOJ	AC7,			;Decr byte count
  2306	012663'	367 00 0 00 012661'		SOJG	AC0,REL11		;Done?
  2307	012664'	254 00 0 00 012642'		JRST	REL1A			;Yes, try over
  2308
  2309	012665'	134 01 0 00 000002 	REL1C:	ILDB	AC1,AC2			;Go get the length
  2310	012666'	306 01 0 00 000002 		CAIN	AC1,2			;Is it 2 ?
  2311	012667'	254 00 0 00 012674'		JRST	REL2			; Yes
  2312
  2313	012670'	037 01 0 00 016667'		PMSG	<^ F[UNCTION [I[NFO LENGTH IN ERROR, IT SHOULD BE 2, IT WAS >
  2314	012671'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the length
  2315	012672'	037 15 0 00 000000 		PNTDEC				;Print ac0 and exit
  2316	012673'	254 00 0 00 012765'		JRST	REL9
  2317
  2318	012674'	134 01 0 00 000002 	REL2:	ILDB	AC1,AC2			;Get the data for lo byte
  2319
  2320	012675'	602 01 0 00 000200 		TRNE	AC1,1B28		;Console Reservation set?
  2321	012676'	254 00 0 00 012706'		 JRST	REL2A			; Yes, see by who
  2322
  2323	012677'	402 00 0 00 015042'		SETZM	TARADH			;clear target addr
  2324	012700'	402 00 0 00 015043'		SETZM	TARADL
  2325
  2326	012701'	332 00 0 00 015065'		SKIPE	TRCFLG			;Trace on?
  2327	012702'	037 01 0 00 016701'		 PMSG	<^C[ONSOLE [R[ELEASE [S[UCCESSFUL^>	; Yes
  2328	012703'	402 00 0 00 015323'		SETZM	NODSEL			;Clear node selected flag
  2329	012704'	350 00 0 17 777770 		AOS	-10(P)			;Do ret+2
  2330	012705'	254 00 0 00 012766'		JRST	RELX
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 60
RMTCNM	MAC	10-Jun-85 15:20		RELEASE CONSOLE                                                                    SEQ 0139

  2331
  2332					;Reset pointer to look for CONSOLE USER (info type 3)
  2333
  2334	012706'	200 02 0 00 015731'	REL2A:	MOVE	AC2,[POINT 8,TTOBUF]	;Look for CONSOLE USER
  2335	012707'	554 07 0 00 010630'		HLRZ	AC7,RCRPYB+.LMRBL	;Get SYS-ID byte count
  2336
  2337	012710'	322 07 0 00 012721'	REL2B:	JUMPE	AC7,REL12		;Exit if byte count = 0
  2338	012711'	134 01 0 00 000002 		ILDB	AC1,AC2			;Put 1'st INFO TYPE lo byte in AC1
  2339	012712'	134 00 0 00 000002 		ILDB	AC0,AC2			;Put 2'nd INFO TYPE hi byte in AC0
  2340	012713'	137 00 0 00 016361'		DPB	AC0,[POINT 8,AC1,35-8]	; Construct the info type word
  2341	012714'	275 07 0 00 000002 		SUBI	AC7,2			;Decrement byte count
  2342
  2343	012715'	302 01 0 00 000000 		CAIE	AC1,0			;Info type = 0? (padding)
  2344	012716'	254 00 0 00 012723'		 JRST	REL2C			;No, see if CONSOLE USER
  2345	012717'	133 00 0 00 000002 		IBP	AC2			;Yes, jump over msg length
  2346	012720'	366 07 0 00 012310'		SOJN	AC7,RES2B		;Try next info type if byte count not 0
  2347	012721'	037 01 0 00 016707'	REL12:	PMSG	<^C[ANNOT FIND [CONSOLE USER [IN [SYS-ID, E[XITING>
  2348	012722'	254 00 0 00 012765'		JRST	REL9
  2349
  2350	012723'	306 01 0 00 000003 	REL2C:	CAIN	AC1,3			;Is it CONSOLE USER?
  2351	012724'	254 00 0 00 012733'		 JRST	REL2D			; yes
  2352										; no, go to next info type
  2353	012725'	134 00 0 00 000002 		ILDB	AC0,AC2			;Get data length
  2354	012726'	360 07 0 00 000000 		SOJ	AC7,			;Decr byte count
  2355	012727'	133 00 0 00 000002 	REL13:	IBP	AC2			;Skip over data
  2356	012730'	360 07 0 00 000000 		SOJ	AC7,			;Decr byte count
  2357	012731'	367 00 0 00 012727'		SOJG	AC0,REL13		;Done?
  2358	012732'	254 00 0 00 012710'		JRST	REL2B			;Yes, try over
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 61
RMTCNM	MAC	10-Jun-85 15:20		RELEASE CONSOLE                                                                    SEQ 0140

  2359
  2360	012733'	134 01 0 00 000002 	REL2D:	ILDB	AC1,AC2			;Go get the length
  2361	012734'	306 01 0 00 000006 		CAIN	AC1,6			;Is it 6 ?
  2362	012735'	254 00 0 00 012742'		 JRST	REL3			; Yes, see if it's me
  2363
  2364	012736'	037 01 0 00 016720'		PMSG	<^ C[ONSOLE [U[SER [I[NFO LENGTH IN ERROR, IT SHOULD BE 6, IT WAS >
  2365	012737'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the byte
  2366	012740'	037 15 0 00 000000 		PNTDEC				;Print ac0
  2367	012741'	254 00 0 00 012765'		JRST	REL9			; and exit
  2368
  2369	012742'	201 03 0 00 000006 	REL3:	MOVEI	AC3,6			;Compare 6 bytes to see if it's us
  2370	012743'	200 06 0 00 016426'		MOVE	AC6,[POINT 8,LOCADH]	;Set byte pointer
  2371	012744'	134 00 0 00 000002 	REL5:	ILDB	AC0,AC2			;Get console user byte 0-5
  2372	012745'	134 01 0 00 000006 		ILDB	AC1,AC6			;Get node address byte 0-5
  2373
  2374	012746'	312 00 0 00 000001 		CAME	AC0,AC1			;Same?
  2375	012747'	254 00 0 00 012763'		 JRST	REL4			; No, exit
  2376	012750'	367 03 0 00 012744'		SOJG	AC3,REL5		; Yes, repeat
  2377
  2378	012751'	260 17 0 00 010701'		GO	RCREL			;Do RELEASE CONSOLE jsys
  2379	012752'	254 00 0 00 012765'		 JRST	REL9			; Error return
  2380
  2381	012753'	336 00 0 00 015070'		SKIPN	DBGFLG			;Debug?
  2382	012754'	254 00 0 00 012637'		 JRST	REL1			; No
  2383	012755'	201 00 0 00 000177 		MOVEI	AC0,177			;Clear "RESERVED" in FUNCTION
  2384	012756'	202 00 0 00 014136'		MOVEM	AC0,REQT1
  2385
  2386	012757'	201 03 0 00 000005 		MOVEI	AC3,5			;Clear "CONSOLE USER" in SYS-ID
  2387	012760'	402 00 0 03 014143'		SETZM	REQT2(AC3)
  2388	012761'	365 03 0 00 012760'		SOJGE	AC3,.-1
  2389	012762'	254 00 0 00 012637'		JRST REL1			;See if released
  2390
  2391	012763'	037 01 0 00 016733'	REL4:	PMSG	<^C[ONSOLE ALREADY RESERVED BY ANOTHER USER^>
  2392	012764'	254 00 0 00 012766'		JRST	RELX
  2393
  2394	012765'	037 01 0 00 016743'	REL9:	PMSG	<^C[ANNOT [R[ELEASE [R[EMOTE [C[ONSOLE>
  2395	012766'	037 03 0 00 000001 	RELX:	PCRLF
  2396	012767'	262 17 0 00 000000 		GETIT	<AC0,AC1,AC2,AC3,AC4,AC5,AC6,AC7>
  2397	012770'	262 17 0 00 000001 
  2398	012771'	262 17 0 00 000002 
  2399	012772'	262 17 0 00 000003 
  2400	012773'	262 17 0 00 000004 
  2401	012774'	262 17 0 00 000005 
  2402	012775'	262 17 0 00 000006 
  2403	012776'	262 17 0 00 000007 
  2404	012777'	263 17 0 00 000000 		RTN
  2405
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 62
RMTCNM	MAC	10-Jun-85 15:20		SHOW ALL NODE ADDRESSES ON NETWORK                                                 SEQ 0141

  2406					SUBTTL	SHOW ALL NODE ADDRESSES ON NETWORK
  2407					;#***************************************************************************
  2408					;*  SALLAD subroutine	Called from SALLNO (Show all Nodes) in RMTCNP
  2409					;
  2410					;  1. Set NODADH/L for BROADCAST: FF-FF-FF-FF-FF-FF (SKIP OVER THIS FOR NOW)
  2411					;  2. Send Request-ID to receive all broadcast replys (SYS-ID's)
  2412					;  3. Display all Source Address's from the READ REPLY argument block.
  2413					;  4. Test the "More Reply Flag" in word 0 of the arg block.
  2414					;      & if set, do another READ REPLY & repeat.
  2415					;  5. Repeat all the above for MULTICAST ADDRESSES: AB-00-00-02-00-00
  2416					;#***************************************************************************
  2417
  2418	013000'	402 00 0 00 015321'	SALLAD:	SETZM	PASCT			;Dont do BCAST for now
  2419	013001'	254 00 0 00 013050'		JRST	SAD5
  2420
  2421	013002'	037 01 0 00 016752'		PMSG	<^P[HYSICAL ADDRESSES OF ALL NODES RESPONDING TO [BROADCAST:^>
  2422	013003'	037 03 0 00 000001 		PCRLF
  2423
  2424	013004'	402 00 0 00 015321'		SETZM	PASCT
  2425	013005'	120 00 0 00 015325'		DMOVE	AC0,BCASTH		;Set up NODADH/L for RCRID
  2426	013006'	124 00 0 00 015046'		DMOVEM	AC0,NODADH
  2427
  2428					;Do Request-Id jsys
  2429
  2430	013007'	260 17 0 00 010373'	SAD1:	GO	RCRID			;Do REQ-ID
  2431	013010'	254 00 0 00 013060'		 JRST	SADX			; Jsys error return
  2432
  2433	013011'	262 16 0 00 015072'		POPD	SREQN			;Save request #
  2434	013012'	260 17 0 00 011316'		GO	RDSTIM			; & read current time
  2435
  2436					;Do Read Status jsys
  2437
  2438	013013'	261 16 0 00 015072'	SAD2:	PUSHD	SREQN			;Push saved request number
  2439	013014'	260 17 0 00 011140'		GO	RCSTS			;Do READ STATUS
  2440	013015'	254 00 0 00 013060'		 JRST	SADX			; Jsys error return
  2441
  2442	013016'	260 17 0 00 014563'		GO	RDFLGS			;Read status flags
  2443	013017'	254 00 0 00 013050'		 JRST	SAD5			; Ret+1 Error or timeout return
  2444	013020'	254 00 0 00 013013'		 JRST	SAD2			; Ret+2 Still pending, read again
  2445	013021'	600 00 0 00 000000 		 NOP				; Ret+3 Successful
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 63
RMTCNM	MAC	10-Jun-85 15:20		SHOW ALL NODE ADDRESSES ON NETWORK                                                 SEQ 0142

  2446
  2447					;Do Read Remote Console Reply for SYS-ID
  2448
  2449	013022'	400 02 0 00 000000 		SETZ	AC2,			;For debug
  2450
  2451	013023'	261 16 0 00 015072'	SAD3:	PUSHD	SREQN			;Get Req #
  2452	013024'	260 17 0 00 010562'		GO	RCRPY			;Do READ REPLY (SYS-ID)
  2453	013025'	254 00 0 00 013060'		 JRST	SADX			; Jsys error return
  2454
  2455	013026'	037 01 0 00 016765'		PMSG	<  >
  2456
  2457	013027'	336 00 0 00 015070'		SKIPN	DBGFLG			;Debug?
  2458	013030'	254 00 0 00 013041'		 JRST	SAD4			; no
  2459
  2460	013031'	120 00 0 02 013061'		DMOVE	AC0,TABL(AC2)		;Yes, get fake addresses
  2461	013032'	124 00 0 00 010625'		DMOVEM	AC0,RCRPYB+.LMSRC	; & stick it in arg block
  2462
  2463	013033'	271 02 0 00 000002 		ADDI	AC2,2			;Bump table index
  2464	013034'	200 00 0 00 010624'		MOVE	AC0,RCRPYB+.LMCID
  2465	013035'	661 00 0 00 400000 		TLO	AC0,(LM%MRF)		;Set "More Reply Flag"
  2466	013036'	306 02 0 00 000006 		CAIN	AC2,6
  2467	013037'	621 00 0 00 400000 		TLZ	AC0,(LM%MRF)		;Unless all 3 node addresses displayed
  2468	013040'	202 00 0 00 010624'		MOVEM	AC0,RCRPYB+.LMCID	; & stick it in arg block
  2469
  2470	013041'	261 16 0 00 010625'	SAD4:	PUSHD	<RCRPYB+.LMSRC,RCRPYB+.LMSRC+1>	;Get returned source address
  2471	013042'	261 16 0 00 010626'
  2472	013043'	260 17 0 00 011460'		GO	PRHEX
  2473	013044'	037 03 0 00 000001 		PCRLF
  2474
  2475	013045'	200 00 0 00 010624'		MOVE	AC0,RCRPYB+.LMCID	;Get flag
  2476	013046'	603 00 0 00 400000 		TLNE	AC0,(LM%MRF)		;More Reply Flag set?
  2477	013047'	254 00 0 00 013023'		 JRST	SAD3			; Yes, do again
  2478
  2479	013050'	332 00 0 00 015321'	SAD5:	SKIPE	PASCT			;No, done MCAST yet?
  2480	013051'	254 00 0 00 013060'		 JRST	SADX			; Yes, exit
  2481
  2482	013052'	037 01 0 00 016766'		PMSG	<^P[HYSICAL ADDRESSES OF ALL NODES RESPONDING TO [MCAST:^>
  2483	013053'	037 03 0 00 000001 		PCRLF
  2484
  2485	013054'	120 00 0 00 015327'		DMOVE	AC0,MCASTH
  2486	013055'	124 00 0 00 015046'		DMOVEM	AC0,NODADH
  2487	013056'	350 00 0 00 015321'		AOS	PASCT
  2488	013057'	254 00 0 00 013007'		JRST	SAD1			;Do again for MCAST
  2489
  2490	013060'	263 17 0 00 000000 	SADX:	RTN
  2491
  2492	013061'	123456	123460		TABL:	123456,,123460			;debug BCAST/MCAST Address 1
  2493	013062'	654324	000000			654324,,0
  2494	013063'	123123	456460			123123,,456460			;Address 2
  2495	013064'	234234	000000			234234,,0
  2496	013065'	654654	765760			654654,,765760			;Address 3
  2497	013066'	213244	000000			213244,,0
  2498
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 64
RMTCNM	MAC	10-Jun-85 15:20		REQUEST ID DECODING AND REPORTING OF MESSAGE SUBROUTINES                           SEQ 0143

  2499					SUBTTL	REQUEST ID DECODING AND REPORTING OF MESSAGE SUBROUTINES
  2500					;#***************************************************************************
  2501					;* RRID subroutine     Called from REQU (Req-ID command) in RMTCNP.
  2502					;
  2503					;  Sends a REQ-ID message to the selected node and reports SYS-ID returned.
  2504					;  The hi/lo address are in AC10/11 resp. from GO HEX & are saved in
  2505					;  NODADH/NODADL resp.
  2506					;
  2507					;  The byte format for the request id message returned:
  2508					;
  2509					;  B1,B2,B3,B4,B5,B6 =    destination address
  2510					;  B7,B8,B9,B10,B11,B12 = source address (physical)
  2511					;  B13 =		  protocol type 07 = code
  2512					;  B14 =		  0		   = reserved
  2513					;  B15,B16 =		  receipt number (3rd and 4th bytes of received
  2514					;			  Request id message)
  2515					;
  2516					;  The information that the the request id mechanism returns is:
  2517					;
  2518					;  B18	 + 1st byte = information type
  2519					;	   2nd byte = information length, value = x
  2520					;	   x   bytes = specified bytes of information value
  2521					;
  2522					;	Where:
  2523					;
  2524					;  Info  Info     Info
  2525					;  Type	length	description
  2526					;
  2527					;  1	3	MAINTENANCE: version ver:3  eco:0  user eco:0
  2528					;  2	2	FUNCTIONS: bit 0=loop, bit1=dump, bit2=primary loader, bit3=
  2529					;		 Multi-block loader, bit4=boot, bit5=console carrier, bit6=
  2530					;		 Data link counters, bit7=console carrier reservation
  2531					;  3	6	CONSOLE USER: system address of the system that has the console
  2532					;		 Reserved.
  2533					;  4	2	RESERVATION TIMER: the maximum value, in seconds, of the timer
  2534					;		 Used to clear unused console reservations.
  2535					;  5	2	CONSOLE COMMAND SIZE: the maximum size of the console command
  2536					;		 Buffer.
  2537					;  6	2	CONSOLE RESONSE SIZE: the maximum size of the console response
  2538					;		 Buffer.
  2539					;  7	6	HARDWARE ADDRESS, contents of physical address rom on nia link
  2540					;		 Module.
  2541					;  8    10	SYSTEM TIME: the segmented system time.
  2542					;#**********************************************************************
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 65
RMTCNM	MAC	10-Jun-85 15:20		REQUEST ID DECODING AND REPORTING OF MESSAGE SUBROUTINES                           SEQ 0144

  2543
  2544					;#****************************************************************************
  2545					;  100	    1	COMMUNICATION DEVICE:
  2546					;		 0 = Dp, dp11-da	 1 = una, deuna
  2547					;		 2 = Du, du11-da	 3 = cna	 
  2548					;		 4 = dl, dl11-c/e/wa	 5 = qna
  2549					;		 6 = Dq, dq11-da	 7 = ci, computer interconnect interf.
  2550					;		 8 = da, da11-b or -al	 9 = pcl, pcl11-b
  2551					;		 10= Dup, dup11-da	 12= dmc, dmc11-da/ar,-ma/al or -fa/ar
  2552					;		 14= Dn, dn11-ba	 16= dlv, dlv11-e
  2553					;		 18= Dmp,		 20= dte20, dte20
  2554					;		 22= Dv, dv11-aa/ba	 24= dz, dz11-a or -b
  2555					;		 28= Kdp, kmc11/dup11-da 30= kdz, kmc11/dz11-a
  2556					;		 32= Kl, kl8-j		 34= dmv, dmv11
  2557					;		 36= Dpv, dpv11		 38= dmf, dmf-32
  2558					;		 40= Dmr, dmr11-aa	 42= kmy, kms11-px
  2559					;		 44= Kmx, kms11-bd/be
  2560					;  101-199 I-16	COMMUNICATION DEVICE RELATED:
  2561					;  200	  C-17	SOFTWARE ID:
  2562					;		 0 = No software id
  2563					;		 >0= The length of the id field
  2564					;		 -1= Standard operating system
  2565					;		 -2= Maintenance system
  2566					;  201-299 I-16	SOFTWARE ID RELATED: a specific sofware id. Present only if
  2567					;		   Form >0. Interpretation is specific to the receiving system.
  2568					;  300	    1	SYSTEM PROCESSOR: 1= pdp-11, 2= pluto
  2569					;  301-399 I-16	SYSTEM PROCESSOR RELATED: information specific to the
  2570					;		 Particular system processor.
  2571					;  400	    1	DATA LINK TYPE: 1= ETHERNET, 2= DDCMP, 3=LAPB
  2572					;  401	    2	DATA LINK BUFFER SIZE: default = 262
  2573					;  402-499 I-16	DATA LINK RELATED: information specific to the
  2574					;		 Particular data link.
  2575					;
  2576					;  All unknown types are reported as such and no further processing is done.
  2577					;#**************************************************************************
  2578
  2579	013067'	261 17 0 00 000011 	RRID:	PUTIT	<AC11,AC10,AC7,AC4,AC3,AC2,AC1,AC0> ;Save some acs
  2580	013070'	261 17 0 00 000010 
  2581	013071'	261 17 0 00 000007 
  2582	013072'	261 17 0 00 000004 
  2583	013073'	261 17 0 00 000003 
  2584	013074'	261 17 0 00 000002 
  2585	013075'	261 17 0 00 000001 
  2586	013076'	261 17 0 00 000000 
  2587	013077'	202 10 0 00 015046'		MOVEM	AC10,NODADH		;Save hi hex address (from GO HEX)
  2588	013100'	202 11 0 00 015047'		MOVEM	AC11,NODADL		;Save lo hex address
  2589
  2590					;Do Request-Id jsys
  2591
  2592	013101'	260 17 0 00 010373'		GO	RCRID			;Do REQ-ID
  2593	013102'	254 00 0 00 014075'		 JRST	RRIDX			; Jsys error return
  2594
  2595	013103'	262 16 0 00 015072'		POPD	SREQN			;Save request #
  2596	013104'	260 17 0 00 011316'		GO	RDSTIM			; & read current time
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 66
RMTCNM	MAC	10-Jun-85 15:20		REQUEST ID DECODING AND REPORTING OF MESSAGE SUBROUTINES                           SEQ 0145

  2597
  2598					;Do Read Status jsys
  2599
  2600	013105'	261 16 0 00 015072'	RRIH:	PUSHD	SREQN			;Push saved request number
  2601	013106'	260 17 0 00 011140'		GO	RCSTS			;Do READ STATUS
  2602	013107'	254 00 0 00 014075'		 JRST	RRIDX			; Jsys error return
  2603
  2604	013110'	260 17 0 00 014563'		GO	RDFLGS			;Read status flags
  2605	013111'	254 00 0 00 014075'		 JRST	RRIDX			; Ret+1 Error or timeout return
  2606	013112'	254 00 0 00 013105'		 JRST	RRIH			; Ret+2 Still pending, read again
  2607	013113'	600 00 0 00 000000 		 NOP				; Ret+3 Successful
  2608
  2609					;Do Read Remote Console Reply for SYS-ID
  2610
  2611	013114'	261 16 0 00 015072'		PUSHD	SREQN			;Get Req #
  2612	013115'	260 17 0 00 010562'		GO	RCRPY			;Do READ REPLY (SYS-ID)
  2613	013116'	254 00 0 00 014075'		 JRST	RRIDX			; Jsys error return
  2614
  2615	013117'	336 00 0 00 015065'		SKIPN	TRCFLG			;Trace enabled?
  2616	013120'	254 00 0 00 013130'		 JRST	RRIH2			; No
  2617
  2618	013121'	037 01 0 00 017000'		PMSG	<^R[EQUEST [ID[ FOR NODE ADDRESS:]>
  2619	013122'	261 16 0 00 015046'		PUSHD	<NODADH,NODADL>
  2620	013123'	261 16 0 00 015047'
  2621	013124'	260 17 0 00 011460'		GO	PRHEX
  2622	013125'	037 03 0 00 000001 		PCRLF
  2623
  2624	013126'	200 02 0 00 015731'		MOVE	AC2,[POINT 8,TTOBUF]	;Set output buffer pointer to 1'st
  2625	013127'	554 07 0 00 010630'		HLRZ	AC7,RCRPYB+.LMRBL	;Function byte & get SYS-ID byte count
  2626
  2627	013130'	336 00 0 00 015070'	RRIH2:	SKIPN	DBGFLG			;Debug ?
  2628	013131'	254 00 0 00 013152'		 JRST	RRIDA			; No
  2629
  2630	013132'	120 00 0 00 015050'		DMOVE	AC0,SLOCH		;Make LOCAL ADDR = 123456789ABC
  2631	013133'	124 00 0 00 015044'		DMOVEM	AC0,LOCADH
  2632
  2633	013134'	201 03 0 00 000006 		MOVEI	AC3,6			;Make sys-id HRDWR ADDR = NODADH/L
  2634	013135'	400 04 0 00 000000 		SETZ	AC4,
  2635	013136'	200 05 0 00 017006'		MOVE	AC5,[POINT 8,NODADH]
  2636	013137'	200 06 0 00 017007'		MOVE	AC6,[POINT 36,REQT3]
  2637	013140'	134 04 0 00 000005 	RRIH3:	ILDB	AC4,AC5			;Get NODADH/L
  2638	013141'	136 04 0 00 000006 		IDPB	AC4,AC6			; put it in REQT3
  2639	013142'	367 03 0 00 013140'		SOJG	AC3,RRIH3		; repeat 6 times
  2640
  2641	013143'	200 06 0 00 015731'		MOVE	AC6,[POINT 8,TTOBUF]	;Yes
  2642	013144'	400 03 0 00 000000 		SETZ	AC3,
  2643
  2644	013145'	200 00 0 03 014125'	RRIH1:	MOVE	AC0,REQTAB(AC3)		;Deposit fake debug data in TTOBUF
  2645	013146'	136 00 0 00 000006 		IDPB	AC0,AC6
  2646	013147'	302 03 0 00 000200 		CAIE	AC3,200
  2647	013150'	344 03 0 00 013145'		 AOJA	AC3,RRIH1
  2648
  2649	013151'	200 07 0 00 016360'		MOVE	AC7,[RTEND-REQTAB]	;Fake the byte count
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 67
RMTCNM	MAC	10-Jun-85 15:20		REQUEST ID DECODING AND REPORTING OF MESSAGE SUBROUTINES                           SEQ 0146

  2650
  2651					;  Dispatch to a particular information type routine.
  2652
  2653	013152'	336 00 0 00 015065'	RRIDA:	SKIPN	TRCFLG			;Trace enabled?
  2654	013153'	254 00 0 00 014075'		 JRST	RRIDX			; no, exit
  2655
  2656	013154'	322 07 0 00 014075'		JUMPE	AC7,RRIDX		;Exit if byte count = 0
  2657	013155'	134 01 0 00 000002 		ILDB	AC1,AC2			;Put 1'st INFO TYPE byte in AC1
  2658	013156'	134 00 0 00 000002 		ILDB	AC0,AC2			;Put 2'nd INFO TYPE byte in AC0
  2659	013157'	137 00 0 00 016361'		DPB	AC0,[POINT 8,AC1,35-8]	; Construct the info type word
  2660	013160'	275 07 0 00 000002 		SUBI	AC7,2			;Decrement byte count
  2661
  2662	013161'	302 01 0 00 000000 		CAIE	AC1,0			;INFO TYPE = 0 ?  (padding)
  2663	013162'	254 00 0 00 013166'		 JRST	RRA1			; No, see what it is
  2664	013163'	133 00 0 00 000002 		IBP	AC2			;Yes, skip over zero data length
  2665	013164'	360 07 0 00 000000 		SOJ	AC7,			;Decrement byte count
  2666	013165'	254 00 0 00 013152'		JRST	RRIDA			;& try again
  2667
  2668	013166'	306 01 0 00 000001 	RRA1:	CAIN	AC1,^D1			;Is it maintenance ?
  2669	013167'	254 00 0 00 013243'		 JRST	RI1			; Yes
  2670	013170'	306 01 0 00 000002 		CAIN	AC1,^D2			;Is it functions ?
  2671	013171'	254 00 0 00 013266'		 JRST	RI2			; Yes
  2672	013172'	306 01 0 00 000003 		CAIN	AC1,^D3			;Is it console user ?
  2673	013173'	254 00 0 00 013324'		 JRST	RI3			; Yes
  2674	013174'	306 01 0 00 000004 		CAIN	AC1,^D4			;Is it reservation timer ?
  2675	013175'	254 00 0 00 013356'		 JRST	RI4			; Yes
  2676	013176'	306 01 0 00 000005 		CAIN	AC1,^D5			;Is it console command size ?
  2677	013177'	254 00 0 00 013374'		 JRST	RI5			; Yes
  2678	013200'	306 01 0 00 000006 		CAIN	AC1,^D6			;Is it console response size ?
  2679	013201'	254 00 0 00 013412'		 JRST	RI6			; Yes
  2680	013202'	306 01 0 00 000007 		CAIN	AC1,^D7			;Is it hardware address ?
  2681	013203'	254 00 0 00 013430'		 JRST	RI7			; Yes
  2682	013204'	306 01 0 00 000010 		CAIN	AC1,^D8			;Is it system time ?
  2683	013205'	254 00 0 00 013452'		 JRST	RI8			; Yes
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 68
RMTCNM	MAC	10-Jun-85 15:20		REQUEST ID DECODING AND REPORTING OF MESSAGE SUBROUTINES                           SEQ 0147

  2684
  2685	013206'	306 01 0 00 000144 		CAIN	AC1,^D100		;Is it communication device ?
  2686	013207'	254 00 0 00 013512'		 JRST	RI100			; Yes
  2687	013210'	305 01 0 00 000145 		CAIGE	AC1,^D101		;Is it communication device related ?
  2688	013211'	254 00 0 00 013214'		 JRST	RRA2			; No
  2689	013212'	307 01 0 00 000307 		CAIG	AC1,^D199
  2690	013213'	254 00 0 00 013616'		 JRST	RI101			; Yes
  2691	013214'	306 01 0 00 000310 	RRA2:	CAIN	AC1,^D200		;Is it software id ?
  2692	013215'	254 00 0 00 013644'		 JRST	RI200			; Yes
  2693	013216'	305 01 0 00 000311 		CAIGE	AC1,^D201		;Is it software id related ?
  2694	013217'	254 00 0 00 013222'		 JRST	RRA3			; No
  2695	013220'	307 01 0 00 000453 		CAIG	AC1,^D299
  2696	013221'	254 00 0 00 013703'		 JRST	RI201			; Yes
  2697	013222'	306 01 0 00 000454 	RRA3:	CAIN	AC1,^D300		;Is it system processor ?
  2698	013223'	254 00 0 00 013731'		 JRST	RI300			; Yes
  2699	013224'	305 01 0 00 000455 		CAIGE	AC1,^D301		;Is it system processor related ?
  2700	013225'	254 00 0 00 013230'		 JRST	RRA4			; No
  2701	013226'	307 01 0 00 000617 		CAIG	AC1,^D399
  2702	013227'	254 00 0 00 013753'		 JRST	RI301			; Yes
  2703	013230'	306 01 0 00 000620 	RRA4:	CAIN	AC1,^D400		;Is it data link type ?
  2704	013231'	254 00 0 00 014001'		 JRST	RI400			; Yes
  2705	013232'	306 01 0 00 000621 		CAIN	AC1,^D401		;Is it data link buffer size ?
  2706	013233'	254 00 0 00 014025'		 JRST	RI401			; Yes
  2707	013234'	305 01 0 00 000622 		CAIGE	AC1,^D402		;Is it data link type related ?
  2708	013235'	254 00 0 00 013240'		 JRST	RRA5			; No
  2709	013236'	307 01 0 00 000763 		CAIG	AC1,^D499
  2710	013237'	254 00 0 00 014043'		 JRST	RI402			; Yes
  2711
  2712					; If the code got here, it must be unknown information type !
  2713
  2714	013240'	037 01 0 00 017010'	RRA5:	PMSG	<^U[NKNOWN SYSTEM TYPE CODE: >
  2715	013241'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy ac1 
  2716	013242'	254 00 0 00 014071'		JRST	RI997			;Print ac0 and exit
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 69
RMTCNM	MAC	10-Jun-85 15:20		REQUEST ID DECODING AND REPORTING OF MESSAGE SUBROUTINES                           SEQ 0148

  2717
  2718					;  Type 1, length 3 = maintenance:
  2719					; Value = ver:, eco:, user eco:
  2720
  2721	013243'	037 01 0 00 017015'	RI1:	PMSG	<M[AINTENANCE>
  2722	013244'	134 01 0 00 000002 		ILDB	AC1,AC2			;Go get the length
  2723	013245'	306 01 0 00 000003 		CAIN	AC1,3			;Is it 3 ?
  2724	013246'	254 00 0 00 013252'		 JRST	RI1A			; Yes
  2725
  2726	013247'	037 01 0 00 017020'		PMSG	<^I[NFORMATION LENGTH IN ERROR, IT SHOULD BE 3, IT WAS >
  2727	013250'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the length
  2728	013251'	254 00 0 00 014071'		JRST	RI997			;Print ac0 and exit
  2729
  2730	013252'	037 01 0 00 017032'	RI1A:	PMSG	<]VER:]]>
  2731	013253'	134 00 0 00 000002 		ILDB	AC0,AC2			;Get the data
  2732	013254'	037 15 0 00 000000 		PNTDEC				;Print it
  2733
  2734	013255'	037 01 0 00 017034'		PMSG	<^]]ECO:]]>
  2735	013256'	134 00 0 00 000002 		ILDB	AC0,AC2			;Get the data
  2736	013257'	037 15 0 00 000000 		PNTDEC				;Print it
  2737
  2738	013260'	037 01 0 00 017036'		PMSG	<^]]U[SER [ECO:]>
  2739	013261'	134 00 0 00 000002 		ILDB	AC0,AC2			;Get the data
  2740	013262'	037 15 0 00 000000 		PNTDEC				;Print it
  2741	013263'	037 03 0 00 000001 		PCRLF
  2742	013264'	275 07 0 00 000004 		SUBI	AC7,4			;Decrement byte count
  2743	013265'	254 00 0 00 013152'		JRST	RRIDA
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 70
RMTCNM	MAC	10-Jun-85 15:20		REQUEST ID DECODING AND REPORTING OF MESSAGE SUBROUTINES                           SEQ 0149

  2744
  2745					;  Type 2, length 2 = functions:
  2746					; Bit 0=loop, bit1=dump, bit2=primary loader, bit3= multi-block loader,
  2747					; Bit4=boot, bit5=console carrier, bit6= data link counters,
  2748					; Bit7=console carrier reservation
  2749
  2750	013266'	037 01 0 00 017041'	RI2:	PMSG	<F[UNCTIONS SUPPORTED:>
  2751	013267'	134 01 0 00 000002 		ILDB	AC1,AC2			;Go get the length
  2752	013270'	306 01 0 00 000002 		CAIN	AC1,2			;Is it 2 ?
  2753	013271'	254 00 0 00 013275'		 JRST	RI2A			; Yes
  2754
  2755	013272'	037 01 0 00 017045'		PMSG	<^ I[NFORMATION LENGTH IN ERROR, IT SHOULD BE 2, IT WAS >
  2756	013273'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the length
  2757	013274'	254 00 0 00 014071'		JRST	RI997			;Print ac0 and exit
  2758
  2759	013275'	134 01 0 00 000002 	RI2A:	ILDB	AC1,AC2			;Get the data for lo byte
  2760	013276'	602 01 0 00 000001 		TRNE	AC1,1B35		;Loop ?
  2761	013277'	037 01 0 00 017057'		PMSG	<^]]]]L[OOP>		; Yes
  2762
  2763	013300'	602 01 0 00 000002 		TRNE	AC1,1B34		;Dump ?
  2764	013301'	037 01 0 00 017061'		PMSG	<^]]]]D[UMP>		; Yes
  2765
  2766	013302'	602 01 0 00 000004 		TRNE	AC1,1B33		;Primary loader ?
  2767	013303'	037 01 0 00 017063'		PMSG	<^]]]]P[RIMARY [L[OADER>	; Yes
  2768
  2769	013304'	602 01 0 00 000010 		TRNE	AC1,1B32		;Multi-block loader ?
  2770	013305'	037 01 0 00 017067'		PMSG	<^]]]]M[ULTI-[B[LOCK [L[OADER>	; Yes
  2771
  2772	013306'	602 01 0 00 000020 		TRNE	AC1,1B31		;Boot ?
  2773	013307'	037 01 0 00 017074'		PMSG	<^]]]]B[OOT>		; Yes
  2774
  2775	013310'	602 01 0 00 000040 		TRNE	AC1,1B30		;Console carrier ?
  2776	013311'	037 01 0 00 017076'		PMSG	<^]]]]C[ONSOLE [C[ARRIER>	;Yes
  2777
  2778	013312'	602 01 0 00 000100 		TRNE	AC1,1B29		;Data link counters ?
  2779	013313'	037 01 0 00 017102'		PMSG	<^]]]]D[ATA [L[INK [C[OUNTERS>	; Yes
  2780
  2781	013314'	602 01 0 00 000200 		TRNE	AC1,1B28		;Console carrier reservation ?
  2782	013315'	037 01 0 00 017107'		PMSG	<^]]]]C[ONSOLE [C[ARRIER [R[ESERVATION> ; Yes
  2783
  2784	013316'	037 01 0 00 017116'		PMSG	<^^ 0[THER FUNCTIONS:]]>
  2785	013317'	134 00 0 00 000002 		ILDB	AC0,AC2			;Get the data for hi byte
  2786	013320'	037 02 0 00 000001 		PNTOCS
  2787	013321'	037 03 0 00 000001 		PCRLF
  2788	013322'	275 07 0 00 000003 		SUBI	AC7,3			;Decrement byte count
  2789	013323'	254 00 0 00 013152'		JRST	RRIDA			;Go do next info type 
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 71
RMTCNM	MAC	10-Jun-85 15:20		REQUEST ID DECODING AND REPORTING OF MESSAGE SUBROUTINES                           SEQ 0150

  2790
  2791					;  Type 3, length 6 = console user:
  2792					; System address of the system that has the console reserved.
  2793
  2794	013324'	037 01 0 00 017122'	RI3:	PMSG	<C[ONSOLE USER:]]]>
  2795	013325'	134 01 0 00 000002 		ILDB	AC1,AC2			;Go get the length
  2796	013326'	306 01 0 00 000006 		CAIN	AC1,6			;Is it 6 ?
  2797	013327'	254 00 0 00 013333'		 JRST	RI3A			; Yes
  2798
  2799	013330'	037 01 0 00 017125'		PMSG	<^ I[NFORMATION LENGTH IN ERROR, IT SHOULD BE 6, IT WAS >
  2800	013331'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the byte
  2801	013332'	254 00 0 00 014071'		JRST	RI997			;Print ac0 and exit
  2802
  2803	013333'	201 03 0 00 000006 	RI3A:	MOVEI	AC3,6			;Get a 6
  2804	013334'	200 05 0 00 016575'		MOVE	AC5,[POINT 8,AC0]	;Set up byte pointer
  2805
  2806	013335'	134 04 0 00 000002 	RI3B:	ILDB	AC4,AC2			;Get the data for a byte
  2807	013336'	136 04 0 00 000005 		IDPB	AC4,AC5			;Load up ac0, ac1	
  2808	013337'	367 03 0 00 013335'		SOJG	AC3,RI3B		;Repeat for 6 bytes
  2809	013340'	620 00 0 00 000017 		TRZ	AC0,17			;Clear unused bits 32-35
  2810	013341'	620 01 0 00 000017 		TRZ	AC1,17
  2811	013342'	302 00 0 00 000000 		CAIE	AC0,0			;Zero?
  2812	013343'	254 00 0 00 013350'		 JRST	RI3C			; No, print node number
  2813	013344'	302 01 0 00 000000 		CAIE	AC1,0			;Also zero?
  2814	013345'	254 00 0 00 013350'		 JRST	RI3C			; No, print node number
  2815	013346'	037 01 0 00 017137'		PMSG	<N[ONE^>		;Yes
  2816	013347'	254 00 0 00 013354'		JRST	RI3D
  2817
  2818	013350'	261 16 0 00 000000 	RI3C:	PUSHD	<AC0,AC1>
  2819	013351'	261 16 0 00 000001 
  2820	013352'	260 17 0 00 011460'		GO	PRHEX
  2821	013353'	037 03 0 00 000001 		PCRLF
  2822	013354'	275 07 0 00 000007 	RI3D:	SUBI	AC7,7			;Decrement byte count
  2823	013355'	254 00 0 00 013152'		JRST	RRIDA			;Go do next info type 
  2824
  2825					;  Type 4, length 2 = reservation timer:
  2826					; The maximum value, in seconds, of the timer used to clear unused
  2827					; Console reservations.
  2828
  2829	013356'	037 01 0 00 017141'	RI4:	PMSG	<R[ESERVATION TIMER:]]>
  2830	013357'	134 01 0 00 000002 		ILDB	AC1,AC2			;Go get the length
  2831	013360'	306 01 0 00 000002 		CAIN	AC1,2			;Is it 2 ?
  2832	013361'	254 00 0 00 013365'		 JRST	RI4A			; Yes
  2833
  2834	013362'	037 01 0 00 017045'		PMSG	<^ I[NFORMATION LENGTH IN ERROR, IT SHOULD BE 2, IT WAS >
  2835	013363'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the byte
  2836	013364'	254 00 0 00 014071'		JRST	RI997			;Print ac0 and exit
  2837
  2838	013365'	134 00 0 00 000002 	RI4A:	ILDB	AC0,AC2			;Get the data for lo byte
  2839	013366'	134 01 0 00 000002 		ILDB	AC1,AC2			;Get the data for hi byte
  2840	013367'	137 01 0 00 017145'		DPB	AC1,[POINT 8,AC0,35-8]	;Justify hi byte to ac0
  2841	013370'	037 15 0 00 000000 		PNTDEC				;Print it
  2842	013371'	037 01 0 00 017146'		PMSG	<. S[ECONDS^>
  2843	013372'	275 07 0 00 000003 		SUBI	AC7,3			;Decrement byte count
  2844	013373'	254 00 0 00 013152'		JRST	RRIDA			;Go do next info type 
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 72
RMTCNM	MAC	10-Jun-85 15:20		REQUEST ID DECODING AND REPORTING OF MESSAGE SUBROUTINES                           SEQ 0151

  2845
  2846					;  Type 5, length 2 = console command size:
  2847					; The maximum size of the console command buffer.
  2848
  2849	013374'	037 01 0 00 017150'	RI5:	PMSG	<C[ONSOLE COMMAND SIZE:]]>
  2850	013375'	134 01 0 00 000002 		ILDB	AC1,AC2			;Go get the length
  2851	013376'	306 01 0 00 000002 		CAIN	AC1,2			;Is it 2 ?
  2852	013377'	254 00 0 00 013403'		 JRST	RI5A			; Yes
  2853
  2854	013400'	037 01 0 00 017045'		PMSG	<^ I[NFORMATION LENGTH IN ERROR, IT SHOULD BE 2, IT WAS >
  2855	013401'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the length
  2856	013402'	254 00 0 00 014071'		JRST	RI997			;Print ac0 and exit
  2857
  2858	013403'	134 00 0 00 000002 	RI5A:	ILDB	AC0,AC2			;Get the data for lo byte
  2859	013404'	134 01 0 00 000002 		ILDB	AC1,AC2			;Get the data for hi byte
  2860	013405'	137 01 0 00 017145'		DPB	AC1,[POINT 8,AC0,35-8]	;Justify hi byte to ac0
  2861	013406'	037 15 0 00 000000 		PNTDEC				;Print it
  2862	013407'	037 01 0 00 017155'		PMSG	<. B[YTES^>
  2863	013410'	275 07 0 00 000003 		SUBI	AC7,3			;Decrement byte count
  2864	013411'	254 00 0 00 013152'		JRST	RRIDA			;Go do next info type 
  2865
  2866					;  Type 6, length 2 = console response size:
  2867					; The maximum size of the console response buffer.
  2868
  2869	013412'	037 01 0 00 017157'	RI6:	PMSG	<C[ONSOLE RESPONSE SIZE:]]>
  2870	013413'	134 01 0 00 000002 		ILDB	AC1,AC2			;Go get the length
  2871	013414'	306 01 0 00 000002 		CAIN	AC1,2			;Is it 2 ?
  2872	013415'	254 00 0 00 013421'		 JRST	RI6A			; Yes
  2873
  2874	013416'	037 01 0 00 017045'		PMSG	<^ I[NFORMATION LENGTH IN ERROR, IT SHOULD BE 2, IT WAS >
  2875	013417'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the byte
  2876	013420'	254 00 0 00 014071'		JRST	RI997			;Print ac0 and exit
  2877
  2878	013421'	134 00 0 00 000002 	RI6A:	ILDB	AC0,AC2			;Get the data for lo byte
  2879	013422'	134 01 0 00 000002 		ILDB	AC1,AC2			;Get the data for hi byte
  2880	013423'	137 01 0 00 017145'		DPB	AC1,[POINT 8,AC0,35-8]	;Justify hi byte to ac0
  2881	013424'	037 15 0 00 000000 		PNTDEC				;Print it
  2882	013425'	037 01 0 00 017155'		PMSG	<. B[YTES^>
  2883	013426'	275 07 0 00 000003 		SUBI	AC7,3			;Decrement byte count
  2884	013427'	254 00 0 00 013152'		JRST	RRIDA			;Go do next info type 
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 73
RMTCNM	MAC	10-Jun-85 15:20		REQUEST ID DECODING AND REPORTING OF MESSAGE SUBROUTINES                           SEQ 0152

  2885
  2886					;  Type 7, length 6 = hardware address:
  2887					; Contents of physical address rom on nia link module.
  2888
  2889	013430'	037 01 0 00 017164'	RI7:	PMSG	<H[ARDWARE ADDRESS:]]>
  2890	013431'	134 01 0 00 000002 		ILDB	AC1,AC2			;Go get the length
  2891	013432'	306 01 0 00 000006 		CAIN	AC1,6			;Is it 6 ?
  2892	013433'	254 00 0 00 013437'		 JRST	RI7A			; Yes
  2893
  2894	013434'	037 01 0 00 017125'		PMSG	<^ I[NFORMATION LENGTH IN ERROR, IT SHOULD BE 6, IT WAS >
  2895	013435'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the byte
  2896	013436'	254 00 0 00 014071'		JRST	RI997			;Print ac0 and exit
  2897
  2898	013437'	201 03 0 00 000006 	RI7A:	MOVEI	AC3,6			;Get a 6
  2899	013440'	200 05 0 00 016575'		MOVE	AC5,[POINT 8,AC0]	;Set up byte pointer
  2900
  2901	013441'	134 04 0 00 000002 	RI7B:	ILDB	AC4,AC2			;Get the data for a byte
  2902	013442'	136 04 0 00 000005 		IDPB	AC4,AC5			;Load ac0, ac1
  2903	013443'	367 03 0 00 013441'		SOJG	AC3,RI7B		;Repeat for 6 bytes
  2904	013444'	261 16 0 00 000000 		PUSHD	<AC0,AC1>
  2905	013445'	261 16 0 00 000001 
  2906	013446'	260 17 0 00 011460'		GO	PRHEX
  2907	013447'	037 03 0 00 000001 		PCRLF
  2908	013450'	275 07 0 00 000007 		SUBI	AC7,7			;Decrement byte count
  2909	013451'	254 00 0 00 013152'		JRST	RRIDA			;Go do next info type 
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 74
RMTCNM	MAC	10-Jun-85 15:20		REQUEST ID DECODING AND REPORTING OF MESSAGE SUBROUTINES                           SEQ 0153

  2910
  2911					;  Type 8, length 10 = system time:
  2912					; Segmented binary system time
  2913
  2914	013452'	037 01 0 00 017170'	RI8:	PMSG	<S[YSTEM TIME:]]]>
  2915	013453'	134 01 0 00 000002 		ILDB	AC1,AC2			;Go get the length
  2916	013454'	306 01 0 00 000012 		CAIN	AC1,^D10		;Is it 10 ?
  2917	013455'	254 00 0 00 013461'		 JRST	RI8A			; Yes
  2918
  2919	013456'	037 01 0 00 017173'		PMSG	<^ I[NFORMATION LENGTH IN ERROR, IT SHOULD BE 10, IT WAS >
  2920	013457'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the byte
  2921	013460'	254 00 0 00 014071'		JRST	RI997			;Print ac0 and exit
  2922
  2923	013461'	134 00 0 00 000002 	RI8A:	ILDB	AC0,AC2			;Get century	(19)
  2924	013462'	037 15 0 00 000000 		PNTDEC
  2925	013463'	134 00 0 00 000002 		ILDB	AC0,AC2			;Get year	(84)
  2926	013464'	037 15 0 00 000000 		PNTDEC
  2927	013465'	037 01 0 00 017033'		PMSG	<]>
  2928
  2929	013466'	134 00 0 00 000002 		ILDB	AC0,AC2			;Get month	(2)
  2930	013467'	037 15 0 00 000000 		PNTDEC
  2931	013470'	037 01 0 00 017205'		PMSG	</>
  2932	013471'	134 00 0 00 000002 		ILDB	AC0,AC2			;Get day	(7)
  2933	013472'	037 15 0 00 000000 		PNTDEC
  2934	013473'	037 01 0 00 017033'		PMSG	<]>
  2935
  2936	013474'	134 00 0 00 000002 		ILDB	AC0,AC2			;Get hour	(5)
  2937	013475'	037 15 0 00 000000 		PNTDEC
  2938	013476'	037 01 0 00 017206'		PMSG	<:>
  2939	013477'	134 00 0 00 000002 		ILDB	AC0,AC2			;Get min	(30)
  2940	013500'	037 15 0 00 000000 		PNTDEC
  2941	013501'	037 01 0 00 017206'		PMSG	<:>
  2942	013502'	134 00 0 00 000002 		ILDB	AC0,AC2			;Get sec	(20)
  2943	013503'	037 15 0 00 000000 		PNTDEC
  2944	013504'	037 03 0 00 000001 		PCRLF
  2945
  2946	013505'	133 00 0 00 000002 		IBP	AC2			;Skip over rest
  2947	013506'	133 00 0 00 000002 		IBP	AC2
  2948	013507'	133 00 0 00 000002 		IBP	AC2
  2949	013510'	275 07 0 00 000013 		SUBI	AC7,13			;Decrement byte count
  2950	013511'	254 00 0 00 013152'		JRST	RRIDA			;Go do next info type 
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 75
RMTCNM	MAC	10-Jun-85 15:20		REQUEST ID DECODING AND REPORTING OF MESSAGE SUBROUTINES                           SEQ 0154

  2951
  2952					;  Type 100, length 1 = communication device:
  2953					; Where data is:
  2954					;	 0 = Dp, dp11-da	 1 = una, una
  2955					;	 2 = Du, du11-da	 3 = cna
  2956					;	 4 = dl, dl11-c or -e	 5 = qna
  2957					;	 6 = Dq, dq11-da	 7 = ci
  2958					;	 8 = da, da11-b or -al	 9 = pcl, pcl11-b
  2959					;	 10= Dup, dup11-da	 12= dmc, dmc11-da/ar,-ma/al or -fa/ar
  2960					;	 14= Dn, dn11-ba	 16= dlv, dlv11-e
  2961					;	 18= Dmp,		 20= dte20, dte20
  2962					;	 22= Dv, dv11-aa/ba	 24= dz, dz11-a or -b
  2963					;	 28= Kdp, kmc11/dup11-da 30= kdz, kmc11/dz11-a
  2964					;	 32= Kl, kl8-j		 34= dmv, dmv11
  2965					;	 36= Dpv, dpv11		 38= dmf,
  2966					;	 40= Dmr,		 42= kmy, kms11-px
  2967					;	 44= Kmx, kmx11-bd/be
  2968
  2969	013512'	037 01 0 00 017207'	RI100:	PMSG	<C[OMMUNICATION DEVICE:]]>
  2970	013513'	134 01 0 00 000002 		ILDB	AC1,AC2			;Go get the length
  2971	013514'	306 01 0 00 000001 		CAIN	AC1,1			;Is it 1 ?
  2972	013515'	254 00 0 00 013521'		 JRST	RI100A			; Yes
  2973
  2974	013516'	037 01 0 00 017214'		PMSG	<^ I[NFORMATION LENGTH IN ERROR, IT SHOULD BE 1, IT WAS >
  2975	013517'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the byte
  2976	013520'	254 00 0 00 014071'		JRST	RI997			;Print ac0 and exit
  2977
  2978	013521'	134 01 0 00 000002 	RI100A:	ILDB	AC1,AC2			;Get the data
  2979	013522'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the byte
  2980	013523'	037 15 0 00 000000 		PNTDEC				;Print it
  2981	013524'	037 01 0 00 017226'		PMSG	<. >
  2982
  2983	013525'	306 01 0 00 000000 		CAIN	AC1,^D0			;Dp ?
  2984	013526'	037 01 0 00 017227'		 PMSG	<DP>			; Yes
  2985	013527'	306 01 0 00 000001 		CAIN	AC1,^D1			;Una ?
  2986	013530'	037 01 0 00 017230'		 PMSG	<UNA>			; Yes
  2987	013531'	306 01 0 00 000002 		CAIN	AC1,^D2			;Du ?
  2988	013532'	037 01 0 00 017231'		 PMSG	<DU>			; Yes
  2989	013533'	306 01 0 00 000003 		CAIN	AC1,^D3			;Cna ?
  2990	013534'	037 01 0 00 017232'		 PMSG	<CNA>			; Yes
  2991	013535'	306 01 0 00 000004 		CAIN	AC1,^D4			;Dl ?
  2992	013536'	037 01 0 00 017233'		 PMSG	<DL>			; Yes
  2993	013537'	306 01 0 00 000005 		CAIN	AC1,^D5			;Qna ?
  2994	013540'	037 01 0 00 017234'		 PMSG	<QNA>			; Yes
  2995	013541'	306 01 0 00 000006 		CAIN	AC1,^D6			;Dq ?
  2996	013542'	037 01 0 00 017235'		 PMSG	<DQ>			; Yes
  2997	013543'	306 01 0 00 000007 		CAIN	AC1,^D7			;Ci ?
  2998	013544'	037 01 0 00 017236'		 PMSG	<CI>			; Yes
  2999	013545'	306 01 0 00 000010 		CAIN	AC1,^D8			;Da ?
  3000	013546'	037 01 0 00 017237'		 PMSG	<DA>			; Yes
  3001	013547'	306 01 0 00 000011 		CAIN	AC1,^D9			;Pcl ?
  3002	013550'	037 01 0 00 017240'		 PMSG	<PCL>			; Yes
  3003	013551'	306 01 0 00 000012 		CAIN	AC1,^D10		;Dup ?
  3004	013552'	037 01 0 00 017241'		 PMSG	<DUP>			; Yes
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 76
RMTCNM	MAC	10-Jun-85 15:20		REQUEST ID DECODING AND REPORTING OF MESSAGE SUBROUTINES                           SEQ 0155

  3005	013553'	306 01 0 00 000014 		CAIN	AC1,^D12		;Dmc ?
  3006	013554'	037 01 0 00 017242'		 PMSG	<DMC>			; Yes
  3007	013555'	306 01 0 00 000016 		CAIN	AC1,^D14		;Dn ?
  3008	013556'	037 01 0 00 017243'		 PMSG	<DN>			; Yes
  3009	013557'	306 01 0 00 000020 		CAIN	AC1,^D16		;Dlv ?
  3010	013560'	037 01 0 00 017244'		 PMSG	<DLV>			; Yes
  3011	013561'	306 01 0 00 000022 		CAIN	AC1,^D18		;Dmp ?
  3012	013562'	037 01 0 00 017245'		 PMSG	<DMP>			; Yes
  3013	013563'	306 01 0 00 000024 		CAIN	AC1,^D20		;Dte20 ?
  3014	013564'	037 01 0 00 017246'		 PMSG	<DTE20>			; Yes
  3015	013565'	306 01 0 00 000026 		CAIN	AC1,^D22		;Dv ?
  3016	013566'	037 01 0 00 017247'		 PMSG	<DV>			; Yes
  3017	013567'	306 01 0 00 000030 		CAIN	AC1,^D24		;Dz ?
  3018	013570'	037 01 0 00 017250'		 PMSG	<DZ>			; Yes
  3019	013571'	306 01 0 00 000034 		CAIN	AC1,^D28		;Kdp ?
  3020	013572'	037 01 0 00 017251'		 PMSG	<KDP>			; Yes
  3021	013573'	306 01 0 00 000036 		CAIN	AC1,^D30		;Kdz ?
  3022	013574'	037 01 0 00 017252'		 PMSG	<KDZ>			; Yes
  3023	013575'	306 01 0 00 000040 		CAIN	AC1,^D32		;Kl ?
  3024	013576'	037 01 0 00 017253'		 PMSG	<KL>			; Yes
  3025	013577'	306 01 0 00 000042 		CAIN	AC1,^D34		;Dmv ?
  3026	013600'	037 01 0 00 017254'		 PMSG	<DMV>			; Yes
  3027	013601'	306 01 0 00 000044 		CAIN	AC1,^D36		;Dpv ?
  3028	013602'	037 01 0 00 017255'		 PMSG	<DPV>			; Yes
  3029	013603'	306 01 0 00 000046 		CAIN	AC1,^D38		;Dmf ?
  3030	013604'	037 01 0 00 017256'		 PMSG	<DMF>			; Yes
  3031	013605'	306 01 0 00 000050 		CAIN	AC1,^D40		;Dmr ?
  3032	013606'	037 01 0 00 017257'		 PMSG	<DMR>			; Yes
  3033	013607'	306 01 0 00 000052 		CAIN	AC1,^D42		;Kmy ?
  3034	013610'	037 01 0 00 017260'		 PMSG	<KMY>			; Yes
  3035	013611'	306 01 0 00 000054 		CAIN	AC1,^D44		;Kmx ?
  3036	013612'	037 01 0 00 017261'		 PMSG	<KMX>			; yes
  3037	013613'	037 03 0 00 000001 		PCRLF
  3038	013614'	275 07 0 00 000002 		SUBI	AC7,2			;Decrement byte count
  3039	013615'	254 00 0 00 013152'		JRST	RRIDA			;Go do next info type
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 77
RMTCNM	MAC	10-Jun-85 15:20		REQUEST ID DECODING AND REPORTING OF MESSAGE SUBROUTINES                           SEQ 0156

  3040
  3041					;  Type 101-199, length I-16 = communication device related:
  3042
  3043	013616'	037 01 0 00 017262'	RI101:	PMSG	<C[OMM. DEVICE RELATED VALUE:]>
  3044	013617'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the information type number
  3045	013620'	037 15 0 00 000000 		PNTDEC				;Print it
  3046	013621'	037 00 0 00 000056 		PNTCI	"."
  3047
  3048	013622'	134 01 0 00 000002 		ILDB	AC1,AC2			;Go get the length
  3049	013623'	360 07 0 00 000000 		SOJ	AC7,			;Decrement byte count
  3050	013624'	307 01 0 00 000000 		CAIG	AC1,0			;Greater than 0 ?
  3051	013625'	254 00 0 00 013630'		 JRST	RI101A			; No. Error.
  3052
  3053	013626'	307 01 0 00 000020 		CAIG	AC1,^D16		;Greater than 16 ?
  3054	013627'	254 00 0 00 013633'		 JRST	RI101B			; No
  3055
  3056	013630'	037 01 0 00 017267'	RI101A:	PMSG	<^ I[NFORMATION LENGTH IN ERROR, IT SHOULD BE BETWEEN 1 AND 16, IT WAS >
  3057	013631'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the length
  3058	013632'	254 00 0 00 014071'		JRST	RI997			;Print ac0 and exit
  3059
  3060	013633'	037 01 0 00 017303'	RI101B:	PMSG	<^ I[NFORMATION:]]]>
  3061	013634'	334 00 0 00 000000 		SKIPA
  3062	013635'	037 01 0 00 017307'	RI101C:	PMSG	<, >
  3063	013636'	134 00 0 00 000002 		ILDB	AC0,AC2			;Go get data
  3064	013637'	360 07 0 00 000000 		SOJ	AC7,			;Decrement byte count
  3065	013640'	037 02 0 00 000001 		PNTOCS				;Print it
  3066	013641'	367 01 0 00 013635'		SOJG	AC1,RI101C		;Print until no more data
  3067	013642'	037 03 0 00 000001 		PCRLF
  3068	013643'	254 00 0 00 013152'		JRST	RRIDA			;Go do next info type 
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 78
RMTCNM	MAC	10-Jun-85 15:20		REQUEST ID DECODING AND REPORTING OF MESSAGE SUBROUTINES                           SEQ 0157

  3069
  3070					;  Type 200, length C-17 = software id:
  3071					;	0 = No software id	 	>0= the length of the info field
  3072					;      -1= Standard operating system    -2= maintenance system
  3073
  3074	013644'	037 01 0 00 017310'	RI200:	PMSG	<S[OFTWARE [ID:]]]>
  3075	013645'	134 01 0 00 000002 		ILDB	AC1,AC2			;Go get the length
  3076	013646'	360 07 0 00 000000 		SOJ	AC7,			;Decrement byte count
  3077	013647'	302 01 0 00 000000 		CAIE	AC1,0			;Is it 0 ?
  3078	013650'	254 00 0 00 013653'		 JRST	RI200A			; No
  3079	013651'	037 01 0 00 017313'		PMSG	<NO S[OFTWARE [ID>	; Yes
  3080	013652'	254 00 0 00 013701'		JRST	RI200Z
  3081
  3082	013653'	302 01 0 00 000377 	RI200A:	CAIE	AC1,377			;Is it 377 (-1) ?
  3083	013654'	254 00 0 00 013657'		 JRST	RI200B			; No
  3084	013655'	037 01 0 00 017316'		PMSG	<S[TANDARD OPERATING SYSTEM> ; Yes
  3085	013656'	254 00 0 00 013701'		JRST	RI200Z
  3086
  3087	013657'	302 01 0 00 000376 	RI200B:	CAIE	AC1,376			;Is it 376 (-2) ?
  3088	013660'	254 00 0 00 013663'		 JRST	RI200C			; No
  3089	013661'	037 01 0 00 017323'		PMSG	<M[AINTENANCE SYSTEM>	; Yes
  3090	013662'	254 00 0 00 013701'		JRST	RI200Z
  3091
  3092	013663'	307 01 0 00 000000 	RI200C:	CAIG	AC1,0			;> 0 ?
  3093	013664'	254 00 0 00 013667'		 JRST	RI200D			; No. Error
  3094	013665'	307 01 0 00 000021 		CAIG	AC1,^D17		;> 17 ?
  3095	013666'	254 00 0 00 013672'		JRST	RI200E			; No.
  3096
  3097	013667'	037 01 0 00 017327'	RI200D:	PMSG	<^ E[RROR - LENGTH FIELD NOT BETWEEN 1 AND 17, IT WAS >
  3098	013670'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the length
  3099	013671'	254 00 0 00 014071'		JRST	RI997			;Print ac0 and exit
  3100
  3101	013672'	037 01 0 00 017340'	RI200E:	PMSG	<^ I[NFORMATION: >
  3102	013673'	334 00 0 00 000000 		SKIPA
  3103	013674'	037 01 0 00 017307'	RI200F:	PMSG	<, >
  3104	013675'	134 00 0 00 000002 		ILDB	AC0,AC2			;Go get data
  3105	013676'	360 07 0 00 000000 		SOJ	AC7,			;Decrement byte count
  3106	013677'	037 02 0 00 000001 		PNTOCS				;Print it
  3107	013700'	367 01 0 00 013674'		SOJG	AC1,RI200F		;Print until no more data
  3108
  3109	013701'	037 03 0 00 000001 	RI200Z:	PCRLF
  3110	013702'	254 00 0 00 013152'		JRST	RRIDA			;Go do next info type 
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 79
RMTCNM	MAC	10-Jun-85 15:20		REQUEST ID DECODING AND REPORTING OF MESSAGE SUBROUTINES                           SEQ 0158

  3111
  3112					;  Type 201-299, length I-16 = software id related:
  3113					; A specific software id. Present only if form >0. Interpretation is
  3114					; Specific to the receiving system.
  3115
  3116	013703'	037 01 0 00 017343'	RI201:	PMSG	<S[OFTWARE [ID[ RELATED VALUE:]>
  3117	013704'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the information type
  3118	013705'	037 15 0 00 000000 		PNTDEC				;Print it
  3119	013706'	037 01 0 00 016354'		PMSG	<.^>
  3120
  3121	013707'	134 01 0 00 000002 		ILDB	AC1,AC2			;Go get the length
  3122	013710'	360 07 0 00 000000 		SOJ	AC7,			;Decrement byte count
  3123	013711'	307 01 0 00 000000 		CAIG	AC1,0			;Greater than 0 ?
  3124	013712'	254 00 0 00 013715'		 JRST	RI201A			; No. Error.
  3125	013713'	307 01 0 00 000020 		CAIG	AC1,^D16		;Greater than 16 ?
  3126	013714'	254 00 0 00 013720'		 JRST	RI201B			; No
  3127
  3128	013715'	037 01 0 00 017267'	RI201A:	PMSG	<^ I[NFORMATION LENGTH IN ERROR, IT SHOULD BE BETWEEN 1 AND 16, IT WAS >
  3129	013716'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the length
  3130	013717'	254 00 0 00 014071'		JRST	RI997			;Print ac0 and exit
  3131
  3132	013720'	037 01 0 00 017351'	RI201B:	PMSG	< I[NFORMATION:]]]>
  3133	013721'	334 00 0 00 000000 		SKIPA
  3134	013722'	037 01 0 00 017307'	RI201C:	PMSG	<, >
  3135	013723'	134 00 0 00 000002 		ILDB	AC0,AC2			;Go get data
  3136	013724'	360 07 0 00 000000 		SOJ	AC7,			;Decrement byte count
  3137	013725'	037 02 0 00 000001 		PNTOCS				;Print it
  3138	013726'	367 01 0 00 013722'		SOJG	AC1,RI201C		;Print until no more data
  3139
  3140	013727'	037 03 0 00 000001 		PCRLF
  3141	013730'	254 00 0 00 013152'		JRST	RRIDA			;Go do next info type 
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 80
RMTCNM	MAC	10-Jun-85 15:20		REQUEST ID DECODING AND REPORTING OF MESSAGE SUBROUTINES                           SEQ 0159

  3142
  3143					;  Type 300, length 1 = system processor:
  3144					; 1= Pdp-11, 2= pluto
  3145
  3146	013731'	037 01 0 00 017354'	RI300:	PMSG	<S[YSTEM [P[ROCESSOR:]]>
  3147	013732'	134 01 0 00 000002 		ILDB	AC1,AC2			;Go get the length
  3148	013733'	306 01 0 00 000001 		CAIN	AC1,1			;Is it 1 ?
  3149	013734'	254 00 0 00 013740'		 JRST	RI300A			; Yes
  3150	013735'	037 01 0 00 017214'		PMSG	<^ I[NFORMATION LENGTH IN ERROR, IT SHOULD BE 1, IT WAS >
  3151	013736'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the length
  3152	013737'	254 00 0 00 014071'		JRST	RI997			;Print ac0 and exit
  3153
  3154	013740'	134 01 0 00 000002 	RI300A:	ILDB	AC1,AC2			;Get the data
  3155	013741'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the type
  3156	013742'	037 15 0 00 000000 		PNTDEC				;Print it
  3157	013743'	037 01 0 00 017226'		PMSG	<. >
  3158
  3159	013744'	306 01 0 00 000001 		CAIN	AC1,^D1			;Pdp-11 ?
  3160	013745'	037 01 0 00 017360'		PMSG	<PDP-11>		; Yes
  3161	013746'	306 01 0 00 000002 		CAIN	AC1,^D2			;Pluto ?
  3162	013747'	037 01 0 00 017362'		 PMSG	<PLUTO>			; Yes
  3163	013750'	037 03 0 00 000001 		PCRLF
  3164	013751'	275 07 0 00 000002 		SUBI	AC7,2			;Decrement byte count
  3165	013752'	254 00 0 00 013152'		JRST	RRIDA			;Go do next info type 
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 81
RMTCNM	MAC	10-Jun-85 15:20		REQUEST ID DECODING AND REPORTING OF MESSAGE SUBROUTINES                           SEQ 0160

  3166
  3167					; Type 301-399, length I-16, = system processor related:
  3168					; Information specific to the particular system processor.
  3169
  3170	013753'	037 01 0 00 017363'	RI301:	PMSG	<S[YSTEM [P[ROCESSOR RELATED VALUE:]>
  3171	013754'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the type #
  3172	013755'	037 15 0 00 000000 		PNTDEC				;Print which one
  3173	013756'	037 01 0 00 016354'		PMSG	<.^>
  3174
  3175	013757'	134 01 0 00 000002 		ILDB	AC1,AC2			;Go get the length
  3176	013760'	360 07 0 00 000000 		SOJ	AC7,			;Decrement byte count
  3177	013761'	307 01 0 00 000000 		CAIG	AC1,0			;Greater than 0 ?
  3178	013762'	254 00 0 00 013765'		 JRST	RI301A			; No. Error.
  3179	013763'	307 01 0 00 000020 		CAIG	AC1,^D16		;Greater than 16 ?
  3180	013764'	254 00 0 00 013770'		 JRST	RI301B			; No
  3181	013765'	037 01 0 00 017267'	RI301A:	PMSG	<^ I[NFORMATION LENGTH IN ERROR, IT SHOULD BE BETWEEN 1 AND 16, IT WAS >
  3182	013766'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the length
  3183	013767'	254 00 0 00 014071'		JRST	RI997			;Print ac0 and exit
  3184
  3185	013770'	037 01 0 00 017351'	RI301B:	PMSG	< I[NFORMATION:]]]>
  3186	013771'	334 00 0 00 000000 		SKIPA
  3187	013772'	037 01 0 00 017307'	RI301C:	PMSG	<, >
  3188	013773'	134 00 0 00 000002 		ILDB	AC0,AC2			;Go get data
  3189	013774'	360 07 0 00 000000 		SOJ	AC7,			;Decrement byte count
  3190	013775'	037 02 0 00 000001 		PNTOCS				;Print it
  3191	013776'	367 01 0 00 013772'		SOJG	AC1,RI301C		;Print until no more data
  3192
  3193	013777'	037 03 0 00 000001 		PCRLF
  3194	014000'	254 00 0 00 013152'		JRST	RRIDA			;Go do next info type 
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 82
RMTCNM	MAC	10-Jun-85 15:20		REQUEST ID DECODING AND REPORTING OF MESSAGE SUBROUTINES                           SEQ 0161

  3195
  3196					;  Type 400, length 1 = data link type:
  3197					; 1= Ethernet, 2= ddcmp, 3=lapb
  3198
  3199	014001'	037 01 0 00 017371'	RI400:	PMSG	<D[ATA [L[INK TYPE:]]]>
  3200	014002'	134 01 0 00 000002 		ILDB	AC1,AC2			;Go get the length
  3201	014003'	306 01 0 00 000001 		CAIN	AC1,1			;Is it 1 ?
  3202	014004'	254 00 0 00 014010'		 JRST	RI400A			; Yes
  3203	014005'	037 01 0 00 017214'		PMSG	<^ I[NFORMATION LENGTH IN ERROR, IT SHOULD BE 1, IT WAS >
  3204	014006'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the length
  3205	014007'	254 00 0 00 014071'		JRST	RI997			;Print ac0 and exit
  3206
  3207	014010'	134 01 0 00 000002 	RI400A:	ILDB	AC1,AC2			;Get the data
  3208	014011'	200 00 0 00 000001 		MOVE	AC0,AC1			;Retrieve the byte
  3209	014012'	037 15 0 00 000000 		PNTDEC				;Print it
  3210	014013'	037 01 0 00 017226'		PMSG	<. >
  3211
  3212	014014'	306 01 0 00 000001 		CAIN	AC1,^D1			;Ethernet ?
  3213	014015'	037 01 0 00 017375'		 PMSG	<ETHERNET>		; Yes
  3214	014016'	306 01 0 00 000002 		CAIN	AC1,^D2			;Ddcmp ?
  3215	014017'	037 01 0 00 017377'		 PMSG	<DDCMP>			; Yes
  3216	014020'	306 01 0 00 000003 		CAIN	AC1,^D3			;Lapb ?
  3217	014021'	037 01 0 00 017400'		 PMSG	<LAPB>			; Yes
  3218	014022'	037 03 0 00 000001 		PCRLF
  3219	014023'	275 07 0 00 000002 		SUBI	AC7,2			;Decrement byte count
  3220	014024'	254 00 0 00 013152'		JRST	RRIDA			;Go do next info type 
  3221
  3222
  3223					;  Type 401, length 2 = data link buffer size
  3224					; default = 262
  3225
  3226	014025'	037 01 0 00 017401'	RI401:	PMSG	<D[ATA LINK BUFFER SIZE:]]>
  3227	014026'	134 01 0 00 000002 		ILDB	AC1,AC2			;Go get the length
  3228	014027'	306 01 0 00 000002 		CAIN	AC1,2			;Is it 2 ?
  3229	014030'	254 00 0 00 014034'		 JRST	RI401A			; Yes
  3230	014031'	037 01 0 00 017045'		PMSG	<^ I[NFORMATION LENGTH IN ERROR, IT SHOULD BE 2, IT WAS >
  3231	014032'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the length
  3232	014033'	254 00 0 00 014071'		JRST	RI997			;Print ac0 and exit
  3233
  3234	014034'	134 00 0 00 000002 	RI401A:	ILDB	AC0,AC2			;Get the data for lo byte
  3235	014035'	134 01 0 00 000002 		ILDB	AC1,AC2			;Get the data for hi byte
  3236	014036'	137 01 0 00 017145'		DPB	AC1,[POINT 8,AC0,35-8]	;Justify hi byte to ac0
  3237	014037'	037 15 0 00 000000 		PNTDEC				;Print it
  3238	014040'	037 01 0 00 017155'		PMSG	<. B[YTES^>
  3239	014041'	275 07 0 00 000003 		SUBI	AC7,3			;Decrement byte count
  3240	014042'	254 00 0 00 013152'		JRST	RRIDA			;Go do next info type 
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 83
RMTCNM	MAC	10-Jun-85 15:20		REQUEST ID DECODING AND REPORTING OF MESSAGE SUBROUTINES                           SEQ 0162

  3241
  3242					;  Type 402-499, length I-16 = data link related:
  3243					; Information specific to the particular data link.
  3244
  3245	014043'	037 01 0 00 017406'	RI402:	PMSG	<D[ATA [L[INK RELATED VALUE:]>
  3246	014044'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the type #
  3247	014045'	037 15 0 00 000000 		PNTDEC				;Print which one
  3248	014046'	037 01 0 00 016354'		PMSG	<.^>
  3249
  3250	014047'	134 01 0 00 000002 		ILDB	AC1,AC2			;Go get the length
  3251	014050'	360 07 0 00 000000 		SOJ	AC7,			;Decrement byte count
  3252	014051'	307 01 0 00 000000 		CAIG	AC1,0			;Greater than 0 ?
  3253	014052'	254 00 0 00 014055'		 JRST	RI402A			; No. Error.
  3254	014053'	307 01 0 00 000020 		CAIG	AC1,^D16		;Greater than 16 ?
  3255	014054'	254 00 0 00 014060'		 JRST	RI402B			; No
  3256	014055'	037 01 0 00 017267'	RI402A:	PMSG	<^ I[NFORMATION LENGTH IN ERROR, IT SHOULD BE BETWEEN 1 AND 16, IT WAS >
  3257	014056'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy the length  
  3258	014057'	254 00 0 00 014071'		JRST	RI997			;Print ac0 and exit
  3259
  3260	014060'	037 01 0 00 017351'	RI402B:	PMSG	< I[NFORMATION:]]]>
  3261	014061'	334 00 0 00 000000 		SKIPA
  3262	014062'	037 01 0 00 017307'	RI402C:	PMSG	<, >
  3263	014063'	134 00 0 00 000002 		ILDB	AC0,AC2			;Go get data
  3264	014064'	360 07 0 00 000000 		SOJ	AC7,			;Decrement byte count
  3265	014065'	037 02 0 00 000001 		PNTOCS				;Print it
  3266	014066'	367 01 0 00 014062'		SOJG	AC1,RI402C		;Print until no more data
  3267
  3268	014067'	037 03 0 00 000001 		PCRLF
  3269	014070'	254 00 0 00 013152'		JRST	RRIDA			;Go do next info type 
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 84
RMTCNM	MAC	10-Jun-85 15:20		REQUEST ID DECODING AND REPORTING OF MESSAGE SUBROUTINES                           SEQ 0163

  3270
  3271					;#**********************************************************************
  3272					;  The following is jrst to when either the length field of type is 
  3273					;  Incorrect or a data field is not what was expected. This is
  3274					;  Considered an error, and further reporting of system id information
  3275					;  Would be futile.
  3276					;  Any additions or changes to the system id message in future hardware
  3277					;  May cause this to occur.
  3278					;#**********************************************************************
  3279
  3280	014071'	037 15 0 00 000000 	RI997:	PNTDEC				;Print what it is
  3281	014072'	037 00 0 00 000056 		PNTCI	"."
  3282
  3283	014073'	037 01 0 00 017413'		PMSG	<^S[YSTEM [ID[ FORMAT OR DATA IS UNKNOWN!^>
  3284	014074'	037 01 0 00 017422'		PMSG	<N[O FURTHER REPORTING WILL BE DONE FOR THIS NODE!^>
  3285
  3286					; The following is the common return for this subroutine. 
  3287
  3288	014075'	262 17 0 00 000000 	RRIDX:	GETIT	<AC0,AC1,AC2,AC3,AC4,AC7,AC10,AC11> ;Restore acs
  3289	014076'	262 17 0 00 000001 
  3290	014077'	262 17 0 00 000002 
  3291	014100'	262 17 0 00 000003 
  3292	014101'	262 17 0 00 000004 
  3293	014102'	262 17 0 00 000007 
  3294	014103'	262 17 0 00 000010 
  3295	014104'	262 17 0 00 000011 
  3296	014105'	263 17 0 00 000000 		RTN
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 85
RMTCNM	MAC	10-Jun-85 15:20		REQUEST ID DECODING AND REPORTING OF MESSAGE SUBROUTINES                           SEQ 0164

  3297
  3298					;#**********************************************************************
  3299					;  RIZ subroutine
  3300					; 
  3301					; The following takes a right justified eight bit byte from the data
  3302					; Stack and prints the two hex digits.
  3303					; The first digit printed is in bits 28-31 and the
  3304					; Second digit printed is in bits 32-35.
  3305					; To use this routine put the byte on the data stack by using
  3306					; "PUSHD <X>" Where x is the source address of the data byte,
  3307					; Then use "GO RIZ" to call this subroutine.
  3308					;#**********************************************************************
  3309
  3310	014106'	261 17 0 00 000000 	RIZ:	PUTIT	<AC0>			;Save ac0
  3311
  3312	014107'	262 16 0 00 000000 		POPD	<AC0>			;Get the byte
  3313	014110'	261 16 0 00 000000 		PUSHD	<AC0>			;Save the byte again
  3314
  3315	014111'	242 00 0 00 777774 		LSH	AC0,-4			;Justify hi hex digit
  3316	014112'	260 17 0 00 014117'		GO	RIZ1			;Go print it
  3317
  3318	014113'	262 16 0 00 000000 		POPD	<AC0>			;Get the byte again
  3319	014114'	260 17 0 00 014117'		GO	RIZ1			;Go print it
  3320
  3321	014115'	262 17 0 00 000000 		GETIT	<AC0>			;Restore the original ac0
  3322	014116'	263 17 0 00 000000 		RTN
  3323
  3324	014117'	405 00 0 00 000017 	RIZ1:	ANDI	AC0,17
  3325	014120'	271 00 0 00 000060 		ADDI	AC0,60			;Make an ascii character
  3326	014121'	303 00 0 00 000071 		CAILE	AC0,"9"			;Less than a "9" ?
  3327	014122'	271 00 0 00 000007 		 ADDI	AC0,7			; No, add 7 more to get a-f
  3328	014123'	037 12 0 00 000000 		PNTCHR				;Print the hex digit
  3329	014124'	263 17 0 00 000000 		RTN
  3330
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 86
RMTCNM	MAC	10-Jun-85 15:20		DEBUG TABLE FOR PRINTING SYS-ID INFO                                               SEQ 0165

  3331					SUBTTL	DEBUG TABLE FOR PRINTING SYS-ID INFO
  3332					;#****************************************************************************
  3333					;Fake SYS-ID information
  3334					;
  3335					; This tests the previous printout routine if DEBUG is enabled.
  3336					; For debug:	LOCAL ADDRESS    = 123456789ABC
  3337					;		CONSOLE USER     = 123456789ABC (hex)
  3338					;		HARDWARE ADDRESS = NODADH/L
  3339					;
  3340					;Format
  3341					;	Info type   - 2 bytes
  3342					;	Info length - 1 byte, value = x
  3343					;	Info values - x bytes (lo byte to hi bytes)
  3344					;#***********************************************************************
  3345
  3346	014125'	000000	000001		REQTAB:	1		;Info type = Maintenance version
  3347	014126'	000000	000000			0		;Info type
  3348	014127'	000000	000003			3		;Info length = 3 bytes
  3349	014130'	000000	000004			4		;Info value, version
  3350	014131'	000000	000005			5		;Info value, eco
  3351	014132'	000000	000006			6		;Info value, user eco
  3352
  3353	014133'	000000	000002			2		;Functions
  3354	014134'	000000	000000			0
  3355	014135'	000000	000002			2
  3356	014136'	000000	000177		REQT1:	177		;177 = not reserved, 377 = reserved
  3357	014137'	000000	000123			123
  3358
  3359	014140'	000000	000003			3		;Console user
  3360	014141'	000000	000000			0
  3361	014142'	000000	000006			6
  3362	014143'	000000	000000		REQT2:	0		;For debug, LOCADH/L is set to 123456789ABC in RRID.
  3363	014144'	000000	000000			0		;  CONSOLE USER will be set to 123456789ABC in RESCON
  3364	014145'	000000	000000			0		; & cleared in RELCON.
  3365	014146'	000000	000000			0
  3366	014147'	000000	000000			0
  3367	014150'	000000	000000			0
  3368
  3369	014151'	000000	000004			4		;Reservation timer
  3370	014152'	000000	000000			0
  3371	014153'	000000	000002			2
  3372	014154'	000000	000010			10		;lo byte, default to 10 sec
  3373	014155'	000000	000000			0		;hi byte
  3374
  3375	014156'	000000	000005			5		;Console command size
  3376	014157'	000000	000000			0
  3377	014160'	000000	000002			2
  3378	014161'	000000	000111			111		;lo
  3379	014162'	000000	000000			0		;hi
  3380
  3381	014163'	000000	000006			6		;Console response size
  3382	014164'	000000	000000			0
  3383	014165'	000000	000002			2
  3384	014166'	000000	000333			333		;lo
  3385	014167'	000000	000000			0		;hi
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 87
RMTCNM	MAC	10-Jun-85 15:20		DEBUG TABLE FOR PRINTING SYS-ID INFO                                               SEQ 0166

  3386
  3387	014170'	000000	000007			7		;Hardware address
  3388	014171'	000000	000000			0
  3389	014172'	000000	000006			6
  3390	014173'	000000	000000		REQT3:	0		; make same as NODADH/L in RRID
  3391	014174'	000000	000000			0
  3392	014175'	000000	000000			0
  3393	014176'	000000	000000			0
  3394	014177'	000000	000000			0
  3395	014200'	000000	000000			0
  3396
  3397	014201'	000000	000010			^D8		;System time
  3398	014202'	000000	000000			0
  3399	014203'	000000	000012			^D10
  3400	014204'	000000	000023			^D19
  3401	014205'	000000	000124			^D84
  3402	014206'	000000	000002			2
  3403	014207'	000000	000007			7
  3404	014210'	000000	000005			5
  3405	014211'	000000	000036			^D30
  3406	014212'	000000	000024			^D20
  3407	014213'	000000	000000			0
  3408	014214'	000000	000000			0
  3409	014215'	000000	000000			0
  3410
  3411	014216'	000000	000144			^D100		;Communication device
  3412	014217'	000000	000000			0
  3413	014220'	000000	000001			1
  3414	014221'	000000	000014			^D12
  3415
  3416	014222'	000000	000216			^D142		;Communication device related
  3417	014223'	000000	000000			0
  3418	014224'	000000	000012			^D10
  3419	014225'	000000	000001			1
  3420	014226'	000000	000002			2
  3421	014227'	000000	000003			3
  3422	014230'	000000	000004			4
  3423	014231'	000000	000005			5
  3424	014232'	000000	000006			6
  3425	014233'	000000	000007			7
  3426	014234'	000000	000010			10
  3427	014235'	000000	000011			11
  3428	014236'	000000	000012			12
  3429
  3430	014237'	000000	000310			^D200		;Software id
  3431	014240'	000000	000000			0
  3432	014241'	000000	000376			-2&377
  3433
  3434	014242'	000000	000323			^D211		;Software related
  3435	014243'	000000	000000			0
  3436	014244'	000000	000004			4
  3437	014245'	000000	000111			111
  3438	014246'	000000	000222			222
  3439	014247'	000000	000333			333
  3440	014250'	000000	000123			123
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 87-1
RMTCNM	MAC	10-Jun-85 15:20		DEBUG TABLE FOR PRINTING SYS-ID INFO                                               SEQ 0167

  3441
  3442	014251'	000000	000054			54		;^D300	;system processor
  3443	014252'	000000	000001			1
  3444	014253'	000000	000001			1
  3445	014254'	000000	000002			2
  3446
  3447	014255'	000000	000217			217		;^D399	;system processor related
  3448	014256'	000000	000001			1
  3449	014257'	000000	000003			3
  3450	014260'	000000	000001			1
  3451	014261'	000000	000002			2
  3452	014262'	000000	000003			3
  3453
  3454	014263'	000000	000220			220		;^D400	;data link
  3455	014264'	000000	000001			1
  3456	014265'	000000	000001			1
  3457	014266'	000000	000003			3
  3458
  3459
  3460	014267'	000000	000221			221		;^D401	;data link buffer size
  3461	014270'	000000	000001			1
  3462	014271'	000000	000002			2
  3463	014272'	000000	000321			321
  3464	014273'	000000	000456			456
  3465
  3466	014274'	000000	000302			302		;^D450	;data link related
  3467	014275'	000000	000001			1
  3468	014276'	000000	000002			2
  3469	014277'	000000	000321			321
  3470	014300'	000000	000321			321
  3471	
  3472	014301'	000000	000000		RTEND:	0
  3473	014302'	000000	000000			0
  3474	014303'	000000	000000			0
  3475	014304'	000000	000000			0		;EOF
  3476
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 88
RMTCNM	MAC	10-Jun-85 15:20		READ COUNTERS REPORTING                                                            SEQ 0168

  3477					SUBTTL	READ COUNTERS REPORTING
  3478					;#**********************************************************************
  3479					; RRCT Subroutine
  3480					;
  3481					;This routine will read the counters which are in the following format:
  3482					;
  3483					; byte		counter
  3484					; length	value
  3485					; ------	-------
  3486					;  2		Seconds since last zeroed
  3487					;  4		Bytes received
  3488					;  4		Bytes sent
  3489					;  4		Frames received
  3490					;  4		Frames sent
  3491					;  4		Multicast bytes received
  3492					;  4		Multicast frames received
  3493					;  4		Frames sent, initially deferred
  3494					;  4		Frames sent, single collision
  3495					;  4		Frames sent, multiple collision
  3496					;  2		Send failure
  3497					;  2		Send failure reason bitmap
  3498					;
  3499					;			Bit	Reason
  3500					;			---	------
  3501					;			0	Excessive collisions
  3502					;			1	Carrier check failed
  3503					;			2	Short circuit
  3504					;			3	Open circuit
  3505					;			4	Frame too long
  3506					;			5	Remote failure to defer
  3507					;
  3508					;  2		Receive failure
  3509					;  2		Receive failure reason bitmap
  3510					;
  3511					;			Bit	Reason
  3512					;			---	------
  3513					;			0	Block check error
  3514					;			1	Framing error
  3515					;			2	Frame too long
  3516					;
  3517					;  2		Unrecognized frame destination
  3518					;  2		Data overrun
  3519					;  2		System buffer unavailable
  3520					;  2		User buffer unavailable
  3521					;
  3522					;#**********************************************************************
  3523
  3524	014305'	261 17 0 00 000011 	RRCT:	PUTIT	<AC11,AC10,AC4,AC3,AC2,AC1,AC0> ;Save some acs
  3525	014306'	261 17 0 00 000010 
  3526	014307'	261 17 0 00 000004 
  3527	014310'	261 17 0 00 000003 
  3528	014311'	261 17 0 00 000002 
  3529	014312'	261 17 0 00 000001 
  3530	014313'	261 17 0 00 000000 
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 89
RMTCNM	MAC	10-Jun-85 15:20		READ COUNTERS REPORTING                                                            SEQ 0169

  3531	014314'	202 10 0 00 015046'		MOVEM	AC10,NODADH		;Save hi hex address (from GO HEX)
  3532	014315'	202 11 0 00 015047'		MOVEM	AC11,NODADL		;Save lo hex address
  3533
  3534					;Do Read Counters jsys
  3535
  3536	014316'	260 17 0 00 010441'		GO	RCRCT			;Do Read Counters
  3537	014317'	254 00 0 00 014451'		 JRST	RRCTX			; Jsys error return
  3538
  3539	014320'	262 16 0 00 015072'		POPD	SREQN			;Save request #
  3540	014321'	260 17 0 00 011316'		GO	RDSTIM			; & read current time
  3541
  3542					;Do Read Status jsys
  3543
  3544	014322'	261 16 0 00 015072'	RRCT1:	PUSHD	SREQN			;Push saved request number
  3545	014323'	260 17 0 00 011140'		GO	RCSTS			;Do READ STATUS
  3546	014324'	254 00 0 00 014451'		 JRST	RRCTX			; Jsys error return
  3547
  3548	014325'	260 17 0 00 014563'		GO	RDFLGS			;Read status flags
  3549	014326'	254 00 0 00 014451'		 JRST	RRCTX			; Ret+1 Error or timeout return
  3550	014327'	254 00 0 00 014322'		 JRST	RRCT1			; Ret+2 Still pending, read again
  3551	014330'	600 00 0 00 000000 		 NOP				; Ret+3 Successful
  3552
  3553					;Do Read Remote Console Reply for READ COUNTERS
  3554
  3555	014331'	261 16 0 00 015072'		PUSHD	SREQN			;Get Req #
  3556	014332'	260 17 0 00 010562'		GO	RCRPY			;Do READ REPLY (counters)
  3557	014333'	254 00 0 00 014451'		 JRST	RRCTX			; Jsys error return
  3558
  3559	014334'	037 01 0 00 017433'		PMSG	<^R[EAD [C[OUNTERS FOR NODE ADDRESS:]>
  3560	014335'	261 16 0 00 015046'		PUSHD	<NODADH,NODADL>
  3561	014336'	261 16 0 00 015047'
  3562	014337'	260 17 0 00 011460'		GO	PRHEX
  3563	014340'	037 03 0 00 000001 		PCRLF
  3564
  3565	014341'	200 02 0 00 015731'		MOVE	AC2,[POINT 8,TTOBUF]	;Set output buffer pointer
  3566
  3567	014342'	336 00 0 00 015070'		SKIPN	DBGFLG			;Debug ?
  3568	014343'	254 00 0 00 014352'		 JRST	RRCT3			; No
  3569
  3570	014344'	200 06 0 00 015731'		MOVE	AC6,[POINT 8,TTOBUF]	;Yes, set output buffer byte pointer
  3571	014345'	400 03 0 00 000000 		SETZ	AC3,
  3572
  3573	014346'	200 00 0 03 014475'	RRCT2:	MOVE	AC0,CTRTAB(AC3)		;Deposit fake debug data in TTOBUF
  3574	014347'	136 00 0 00 000006 		IDPB	AC0,AC6
  3575	014350'	302 03 0 00 000100 		CAIE	AC3,100
  3576	014351'	344 03 0 00 014346'		 AOJA	AC3,RRCT2
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 90
RMTCNM	MAC	10-Jun-85 15:20		READ COUNTERS REPORTING                                                            SEQ 0170

  3577
  3578					;Printout all counters
  3579
  3580	014352'	037 01 0 00 017442'	RRCT3:	PMSG	<S[ECONDS SINCE LAST ZEROED:]>
  3581	014353'	400 03 0 00 000000 		SETZ	AC3,			;Read 2 bytes
  3582	014354'	260 17 0 00 014461'		GO	PNTNUM			;Get bytes & print
  3583
  3584	014355'	037 01 0 00 017447'		PMSG	<B[YTES RECEIVED:]]]>
  3585	014356'	474 03 0 00 000000 		SETO	AC3,			;Read 4 bytes
  3586	014357'	260 17 0 00 014461'		GO	PNTNUM			;Get bytes & print
  3587
  3588	014360'	037 01 0 00 017453'		PMSG	<B[YTES SENT:]]]>
  3589	014361'	260 17 0 00 014461'		GO	PNTNUM
  3590
  3591	014362'	037 01 0 00 017456'		PMSG	<F[RAMES RECEIVED:]]>
  3592	014363'	260 17 0 00 014461'		GO	PNTNUM
  3593
  3594	014364'	037 01 0 00 017462'		PMSG	<F[RAMES SENT:]]]>
  3595	014365'	260 17 0 00 014461'		GO	PNTNUM
  3596
  3597	014366'	037 01 0 00 017465'		PMSG	<M[ULTICAST BYTES RECEIVED:]>
  3598	014367'	260 17 0 00 014461'		GO	PNTNUM
  3599
  3600	014370'	037 01 0 00 017472'		PMSG	<M[ULTICAST FRAMES RECEIVED:]>
  3601	014371'	260 17 0 00 014461'		GO	PNTNUM
  3602
  3603	014372'	037 01 0 00 017477'		PMSG	<F[RAMES SENT, INITIALLY DEFERRED:>
  3604	014373'	260 17 0 00 014461'		GO	PNTNUM
  3605
  3606	014374'	037 01 0 00 017505'		PMSG	<F[RAMES SENT, SINGLE COLLISION:]>
  3607	014375'	260 17 0 00 014461'		GO	PNTNUM
  3608
  3609	014376'	037 01 0 00 017513'		PMSG	<F[RAMES SENT, MULTIPLE COLLISION:>
  3610	014377'	260 17 0 00 014461'		GO	PNTNUM
  3611
  3612	014400'	037 01 0 00 017521'		PMSG	<S[END FAILURE:]]]>
  3613	014401'	400 03 0 00 000000 		SETZ	AC3,			;Read 2 bytes
  3614	014402'	260 17 0 00 014461'		GO	PNTNUM
  3615
  3616	014403'	037 01 0 00 017524'		PMSG	<S[END FAILURE REASON BITMAP:^>
  3617	014404'	400 00 0 00 000000 		SETZ	AC0,
  3618	014405'	134 00 0 00 000002 		ILDB	AC0,AC2			;Get the data for lo byte
  3619	014406'	134 01 0 00 000002 		ILDB	AC1,AC2			;Get the data for hi byte
  3620	014407'	137 01 0 00 017145'		DPB	AC1,[POINT 8,AC0,35-8]	;Justify it to ac0
  3621
  3622	014410'	602 00 0 00 000001 		TRNE	AC0,1B35		;Exessive collisions ?
  3623	014411'	037 01 0 00 017531'		 PMSG	<]]]]E[XCESSIVE COLLISIONS^> ; Yes
  3624
  3625	014412'	602 00 0 00 000002 		TRNE	AC0,1B34		;Carrier check failed ?
  3626	014413'	037 01 0 00 017536'		 PMSG	<]]]]C[ARRIER CHECK FAILED^> ; Yes
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 91
RMTCNM	MAC	10-Jun-85 15:20		READ COUNTERS REPORTING                                                            SEQ 0171

  3627
  3628	014414'	602 00 0 00 000004 		TRNE	AC0,1B33		;Short circuit ?
  3629	014415'	037 01 0 00 017543'		 PMSG	<]]]]S[HORT CIRCUIT^>	; Yes
  3630
  3631	014416'	602 00 0 00 000010 		TRNE	AC0,1B32		;Open circuit ?
  3632	014417'	037 01 0 00 017547'		 PMSG	<]]]]O[PEN CIRCUIT^>	; Yes
  3633
  3634	014420'	602 00 0 00 000020 		TRNE	AC0,1B31		;Frame too long ?
  3635	014421'	037 01 0 00 017553'		 PMSG	<]]]]F[RAME TOO LONG^>	; Yes
  3636
  3637	014422'	602 00 0 00 000040 		TRNE	AC0,1B30		;Remote failure to defer ?
  3638	014423'	037 01 0 00 017557'		 PMSG	<]]]]R[EMOTE FAILURE TO DEFER^> ;Yes
  3639
  3640	014424'	037 01 0 00 017564'		PMSG	<R[ECEIVE FAILURE:]]>
  3641	014425'	260 17 0 00 014461'		GO	PNTNUM
  3642
  3643	014426'	037 01 0 00 017570'		PMSG	<R[ECEIVE FAILURE REASON BITMAP:^>
  3644	014427'	400 00 0 00 000000 		SETZ	AC0,
  3645	014430'	134 00 0 00 000002 		ILDB	AC0,AC2			;Get the data for lo byte
  3646	014431'	134 01 0 00 000002 		ILDB	AC1,AC2			;Get the data for hi byte
  3647	014432'	137 01 0 00 017145'		DPB	AC1,[POINT 8,AC0,35-8]	;Justify it to ac0
  3648
  3649	014433'	602 00 0 00 000001 		TRNE	AC0,1B35		;Block check error ?
  3650	014434'	037 01 0 00 017576'		 PMSG	<]]]]B[LOCK CHECK ERROR^> ; Yes
  3651
  3652	014435'	602 00 0 00 000002 		TRNE	AC0,1B34		;Framing error ?
  3653	014436'	037 01 0 00 017602'		 PMSG	<]]]]F[RAMING ERROR^>	; Yes
  3654
  3655	014437'	602 00 0 00 000004 		TRNE	AC0,1B33		;Frame too short ?
  3656	014440'	037 01 0 00 017606'		 PMSG	<]]]]F[RAME TOO SHORT^>	; Yes
  3657
  3658	014441'	037 01 0 00 017612'		PMSG	<U[NRECOGNIZED FRAME DESTINATION:]>
  3659	014442'	260 17 0 00 014461'		GO	PNTNUM
  3660
  3661	014443'	037 01 0 00 017620'		PMSG	<D[ATA OVERRUN:]]]>
  3662	014444'	260 17 0 00 014461'		GO	PNTNUM
  3663
  3664	014445'	037 01 0 00 017623'		PMSG	<S[YSTEM BUFFER UNAVAILABLE:]>
  3665	014446'	260 17 0 00 014461'		GO	PNTNUM
  3666
  3667	014447'	037 01 0 00 017630'		PMSG	<U[SER BUFFER UNAVAILABLE:]>
  3668	014450'	260 17 0 00 014461'		GO	PNTNUM
  3669
  3670	014451'	262 17 0 00 000000 	RRCTX:	GETIT	<AC0,AC1,AC2,AC3,AC4,AC10,AC11>	;Restore ac's
  3671	014452'	262 17 0 00 000001 
  3672	014453'	262 17 0 00 000002 
  3673	014454'	262 17 0 00 000003 
  3674	014455'	262 17 0 00 000004 
  3675	014456'	262 17 0 00 000010 
  3676	014457'	262 17 0 00 000011 
  3677	014460'	263 17 0 00 000000 		RTN
  3678
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 92
RMTCNM	MAC	10-Jun-85 15:20		READ COUNTER BYTES & PRINT                                                         SEQ 0172

  3679					SUBTTL	READ COUNTER BYTES & PRINT
  3680					;#*********************************************************************
  3681					; Enter with AC2 pointing to the correct byte in TTOBUF
  3682					;	     AC3 = 0  to take 2 bytes from TTOBUF
  3683					;	     AC3 = -1 to take 4 bytes from TTOBUF
  3684					;
  3685					; Assemble the bytes in AC0 & print it.
  3686					;#***********************************************************************
  3687
  3688	014461'	400 00 0 00 000000 	PNTNUM:	SETZ	AC0,
  3689	014462'	134 00 0 00 000002 		ILDB	AC0,AC2			;Get the data for lo byte
  3690	014463'	134 01 0 00 000002 		ILDB	AC1,AC2			;Get the data for 2'nd byte
  3691	014464'	137 01 0 00 017145'		DPB	AC1,[POINT 8,AC0,35-8]	;Justify it to ac0
  3692	014465'	322 03 0 00 014472'		JUMPE	AC3,PN1			;Jump if only need 2 bytes
  3693
  3694	014466'	134 01 0 00 000002 		ILDB	AC1,AC2			;Get the data for 3'rd byte
  3695	014467'	137 01 0 00 017635'		DPB	AC1,[POINT 8,AC0,35-16]	;Justify it to ac0
  3696	014470'	134 01 0 00 000002 		ILDB	AC1,AC2			;Get the data for 4'th byte
  3697	014471'	137 01 0 00 017636'		DPB	AC1,[POINT 8,AC0,35-24]	;Justify it to ac0
  3698
  3699	014472'	037 15 0 00 000000 	PN1:	PNTDEC				;Print it
  3700	014473'	037 03 0 00 000001 		PCRLF
  3701	014474'	263 17 0 00 000000 		RTN
  3702
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 93
RMTCNM	MAC	10-Jun-85 15:20		DEBUG TABLE FOR PRINTING READ COUNTERS INFORMATION                                 SEQ 0173

  3703					SUBTTL	DEBUG TABLE FOR PRINTING READ COUNTERS INFORMATION
  3704					;#**************************************************************************
  3705					; Dummy READ COUNTERS information
  3706					;
  3707					; This is a test of the previous printout routine to be used if the
  3708					; debug EXIT is enabled.
  3709					; Bytes are in the order of low to high
  3710					;#**************************************************************************
  3711
  3712	014475'	000000	000010		CTRTAB:	10		;Seconds since last zeroed	(lo byte)
  3713	014476'	000000	000000			0		;				(hi byte)
  3714
  3715	014477'	000000	000012			12		;Bytes received
  3716	014500'	000000	000000			0
  3717	014501'	000000	000000			0
  3718	014502'	000000	000000			0
  3719
  3720	014503'	000000	000014			14		;Bytes sent
  3721	014504'	000000	000000			0
  3722	014505'	000000	000000			0
  3723	014506'	000000	000000			0
  3724
  3725	014507'	000000	000016			16		;Frames received
  3726	014510'	000000	000000			0
  3727	014511'	000000	000000			0
  3728	014512'	000000	000000			0
  3729
  3730	014513'	000000	000020			20		;Frames sent
  3731	014514'	000000	000000			0
  3732	014515'	000000	000000			0
  3733	014516'	000000	000000			0
  3734
  3735	014517'	000000	000022			22		;Multicast bytes received
  3736	014520'	000000	000000			0
  3737	014521'	000000	000000			0
  3738	014522'	000000	000000			0
  3739
  3740	014523'	000000	000024			24		;Multicast frames received
  3741	014524'	000000	000000			0
  3742	014525'	000000	000000			0
  3743	014526'	000000	000000			0
  3744
  3745	014527'	000000	000026			26		;Frames sent, initially deferred
  3746	014530'	000000	000000			0
  3747	014531'	000000	000000			0
  3748	014532'	000000	000000			0
  3749
  3750	014533'	000000	000030			30		;Frames sent, single collision
  3751	014534'	000000	000000			0
  3752	014535'	000000	000000			0
  3753	014536'	000000	000000			0
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 94
RMTCNM	MAC	10-Jun-85 15:20		DEBUG TABLE FOR PRINTING READ COUNTERS INFORMATION                                 SEQ 0174

  3754
  3755	014537'	000000	000032			32		;Frames sent, multiple collision
  3756	014540'	000000	000000			0
  3757	014541'	000000	000000			0
  3758	014542'	000000	000000			0
  3759
  3760	014543'	000000	000034			34		;Send failure
  3761	014544'	000000	000000			0
  3762
  3763	014545'	000000	000377			377		;Send failure reason bitmap
  3764	014546'	000000	000000			0
  3765
  3766	014547'	000000	000036			36		;Receive failure
  3767	014550'	000000	000000			0
  3768
  3769	014551'	000000	000377			377		;Receive failure reason bitmap
  3770	014552'	000000	000000			0
  3771
  3772	014553'	000000	000040			40		;Unrecognized frame destination
  3773	014554'	000000	000000			0
  3774
  3775	014555'	000000	000042			42		;Data overrun
  3776	014556'	000000	000000			0
  3777
  3778	014557'	000000	000044			44		;System buffer unavailable
  3779	014560'	000000	000000			0
  3780
  3781	014561'	000000	000046			46		;User buffer unavailable
  3782	014562'	000000	000000			0
  3783
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 95
RMTCNM	MAC	10-Jun-85 15:20		STATUS FLAG REPORTING                                                              SEQ 0175

  3784					SUBTTL	STATUS FLAG REPORTING
  3785					;#**********************************************************************
  3786					;* RDFLGS Subroutine - Come here after doing "GO RCSTS"
  3787					;
  3788					;  Enter with STATUS in AC1
  3789					;  Return +1 if error or timeout
  3790					;  Return +2 if status pending & time not up.
  3791					;  Return +3 if successful
  3792					;#**********************************************************************
  3793
  3794	014563'	550 01 0 00 011223'	RDFLGS:	HRRZ	AC1,RCSTSB+.LMSTF	;Get status from check status jsys
  3795	014564'	302 01 0 00 000000 		CAIE	AC1,.LMPND		;Request pending ?
  3796	014565'	254 00 0 00 014573'		 JRST	RDFL1			; No, check the other flags
  3797
  3798					;The request is pending. See if 5 seconds have elapsed since the
  3799					; Operation was started. If it has, report it. If not read the status again.
  3800
  3801	014566'	260 17 0 00 011331'		GO	OTIME			;See if 5 seconds have elapsed
  3802	014567'	334 00 0 00 000000 		SKIPA				;Error - time has elapsed
  3803	014570'	254 00 0 00 014624'		JRST	RDFL2			; Ret+2, to read status again
  3804	014571'	037 01 0 00 017637'		PMSG	<^STATUS [MESSAGE NOT RETURNED WITHIN 5 SECONDS^>
  3805	014572'	254 00 0 00 014616'		JRST	RDFL5
  3806
  3807	014573'	302 01 0 00 000002 	RDFL1:	CAIE	AC1,.LMABT		;Aborted ?
  3808	014574'	254 00 0 00 014576'		 JRST	RDFL6			; No
  3809						ERROR1	(0,0,0,REQUEST ABORTED,^_
  3810	014575'	036 00 0 00 017660'	REQUEST ID MESSAGE WAS ABORTED,ER01)
  3811
  3812	014576'	302 01 0 00 000003 	RDFL6:	CAIE	AC1,.LMTXF		;Transmit failed ?
  3813	014577'	254 00 0 00 014601'		 JRST	RDFL7			; No
  3814						ERROR1	(0,0,0,TRANSMIT FAILED,^_
  3815	014600'	036 00 0 00 017673'	TRANSMIT FAILURE OCCURED,ER01)
  3816
  3817	014601'	302 01 0 00 000004 	RDFL7:	CAIE	AC1,.LMCCE		;Channel communication error ?
  3818	014602'	254 00 0 00 014604'		 JRST	RDFL8			; No
  3819						ERROR1	(0,0,0,CHANNEL COMMUNICATION ERROR,^_
  3820	014603'	036 00 0 00 017711'	CHANNEL COMMUNICATION ERROR OCCURED,ER01)
  3821
  3822	014604'	307 01 0 00 000004 	RDFL8:	CAIG	AC1,.LMCCE		;Unknown status type ?
  3823	014605'	254 00 0 00 014614'		 JRST	RDFL4			; No
  3824	014606'	037 01 0 00 017714'		PMSG	<^U[NKNOWN STATUS CODE RETURNED FROM^[REMOTE CONSOLE CHECK STATUS JSYS.>
  3825	014607'	037 01 0 00 017730'		PMSG	<^R[ETURNED CODE = >
  3826	014610'	200 00 0 00 000001 		MOVE	AC0,AC1			;Copy status	
  3827	014611'	037 02 0 00 000001 		PNTOCS				;Print the status
  3828	014612'	037 03 0 00 000001 		PCRLF
  3829	014613'	037 04 0 00 000003 		FATAL
  3830
  3831	014614'	306 01 0 00 000001 	RDFL4:	CAIN	AC1,.LMSUC		;Successful ?
  3832	014615'	254 00 0 00 014623'		 JRST	RDFL3			; Yes, ret+3
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 96
RMTCNM	MAC	10-Jun-85 15:20		STATUS FLAG REPORTING                                                              SEQ 0176

  3833
  3834					;Do Abort Outstanding command
  3835
  3836	014616'	261 16 0 00 015072'	RDFL5:	PUSHD	SREQN			;Get Req#
  3837	014617'	260 17 0 00 011104'		GO	RCABT			;Do ABORT
  3838	014620'	254 00 0 00 014625'		 JRST	RDFLX			; Jsys error return
  3839	014621'	037 01 0 00 017734'		PMSG	<^A[BORTING [A[FTER [U[NSUCCESSFUL [READ STATUS^>
  3840	014622'	254 00 0 00 014625'		JRST	RDFLX
  3841
  3842	014623'	350 00 0 17 000000 	RDFL3:	AOS	(P)			;Do return +3
  3843	014624'	350 00 0 17 000000 	RDFL2:	AOS	(P)			;Do return +2
  3844	014625'	263 17 0 00 000000 	RDFLX:	RTN				;Do return +1
  3845
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 97
RMTCNM	MAC	10-Jun-85 15:20		SPEAR REPORTING SUBROUTINES                                                        SEQ 0177

  3846					SUBTTL	SPEAR REPORTING SUBROUTINES
  3847					;#**********************************************************************
  3848					; SPR1 - print initial spear report 'diagnostic started'
  3849					;
  3850					;  This subroutine makes a "DIAGNOSTIC STARTED" spear report.
  3851					;  It determines if it should be made by looking at "SPRFLG" and "SPEAR1".
  3852					;  "SPEAR1" Is initially loaded as 0.
  3853					;  When a  "DIAGNOSTIC STARTED" spear report is made it is set to -1.
  3854					;  "SPRFLG" Is is a flag word that is toggled by the commands
  3855					;  Enable/disable spear-reporting.
  3856					;#**********************************************************************
  3857
  3858	014626'	261 17 0 00 000002 	SPR1:	PUTIT	<AC2,AC1,AC0>		;Save some ac's
  3859	014627'	261 17 0 00 000001 
  3860	014630'	261 17 0 00 000000 
  3861	014631'	332 00 0 00 015067'		SKIPE	SPRFLG			;Spear reporting enabled ?
  3862	014632'	332 00 0 00 015056'		SKIPE	SPEAR1			;Diagnostic started spear entry made ?
  3863	014633'	254 00 0 00 014645'		 JRST	SPR1X			;Bypass spear report
  3864
  3865					; Get ppn and build entry / get time and insert it
  3866
  3867	014634'	260 17 0 00 015022'		GO	GETPP			;Get user's ppn
  3868	014635'	262 16 0 00 014661'		POPD	<SENT10+8>		;Save in spear entry block
  3869	014636'	104 00 0 00 000227 		GTAD				;Get time and day
  3870	014637'	202 01 0 00 014656'		MOVEM	AC1,SENT10+5		;Save it
  3871
  3872					; Make the entry
  3873
  3874	014640'	201 01 0 00 014651'		MOVEI	AC1,SENT10		;Get address of argument block
  3875	014641'	201 02 0 00 000012 		MOVEI	AC2,^D10		;Get length
  3876	014642'	336 00 0 00 015070'		SKIPN	DBGFLG
  3877	014643'	104 00 0 00 000527 		SYERR				;Write to syserr file
  3878
  3879	014644'	476 00 0 00 015056'		SETOM	SPEAR1			;Set 'spear initial msg done' flag
  3880	014645'	262 17 0 00 000000 	SPR1X:	GETIT	<AC0,AC1,AC2>		;Restore ac's
  3881	014646'	262 17 0 00 000001 
  3882	014647'	262 17 0 00 000002 
  3883	014650'	263 17 0 00 000000 		RTN
  3884
  3885					; Spear entry block 10
  3886
  3887	014651'	250000	000000		SENT10:	250000,,0			;Event type
  3888	014652'	000000	000000			0				;Zero
  3889	014653'	000000	000000			0				;Zero
  3890	014654'	000000	000000			0				;Zero
  3891	014655'	000000	020002			20002				;Time of occurence block
  3892	014656'	000000	000000			0				;Time
  3893	014657'	004010	000000			4010,,0				;4 Words, type 10 code
  3894	014660'	62 55 64 43 57 56 		SIXBIT	/RMTCON/			;Diagnostic name
  3895	014661'	000001	000000			MCNVER,,DECVER			;Diagnostic version
  3896	014662'	000000	000000			0				;User ppn
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 98
RMTCNM	MAC	10-Jun-85 15:20		SPEAR REPORTING SUBROUTINES                                                        SEQ 0178

  3897
  3898					;#**********************************************************************
  3899					; SPR2 - makes either:
  3900					;
  3901					;   1. An error spear report.
  3902					;   2. A successful completion spear report.
  3903					;   3. Or a spear packet count incremented spear report
  3904					;      (The spear queue entry count changed during execution of an ni packet).
  3905					;
  3906					;  Put a word on the data stack via "PUSHD <X>" where x is:
  3907					;  1. A 0 for a successful completion spear report.
  3908					;  2. For an error spear report: a postive number where bits 1-35
  3909					;     Contains the address of an asciz message.
  3910					;  3. For a spear packet count incremented spear report:
  3911					;      A negative number where bit 0 is the negative sign and
  3912					;     Bits 1-35 contains the address of an asciz message.
  3913					;#**********************************************************************
  3914
  3915	014663'	262 16 0 00 014720'	SPR2:	POPD	<SPR2D>			;Get the code word.
  3916	014664'	261 17 0 00 000000 		PUTIT	<AC0,AC1,AC2,AC3,AC4>	;Save some ac's
  3917	014665'	261 17 0 00 000001 
  3918	014666'	261 17 0 00 000002 
  3919	014667'	261 17 0 00 000003 
  3920	014670'	261 17 0 00 000004 
  3921
  3922					; First check if spear reporting is enabled and that we haven't
  3923					; Exceeded the spear error reporting threshold.
  3924				
  3925	014671'	336 00 0 00 015067'		SKIPN	SPRFLG			;Spear reporting enabled ?
  3926	014672'	254 00 0 00 014712'		 JRST	SPR2X			; It isn't. Exit this subroutine
  3927
  3928	014673'	200 00 0 00 015057'		MOVE	AC0,SPRCNT		;Get the # of error spear entries made
  3929	014674'	313 00 0 00 015641'		CAMLE	AC0,SERTH#		;Have we exceeded spear threshold ?
  3930	014675'	254 00 0 00 014712'		 JRST	SPR2X			; Yes. Exit this subroutine.
  3931
  3932					; Initialize entry
  3933
  3934	014676'	402 00 0 00 014730'		SETZM	SENT11+7		;Clear test name
  3935	014677'	402 00 0 00 014731'		SETZM	SENT11+8		;Clear test description length
  3936	014700'	201 02 0 00 000003 		MOVEI	AC2,3			;Set block length to 3 words
  3937	014701'	137 02 0 00 017744'		DPB	AC2,[POINT 9,SEN11L,35]	;Save length
  3938
  3939					; Make the spear entry
  3940
  3941	014702'	104 00 0 00 000227 	SPR2E:	GTAD				;Get time and day
  3942	014703'	202 01 0 00 014726'		MOVEM	AC1,SENT11+5		;Save it
  3943	014704'	135 02 0 00 017744'		LDB	AC2,[POINT 9,SEN11L,35]	;Get length
  3944	014705'	271 02 0 00 000006 		ADDI	AC2,6			;Calculate total block length
  3945	014706'	201 01 0 00 014721'		MOVEI	AC1,SENT11		;Get address of argument block
  3946	014707'	336 00 0 00 015070'		SKIPN	DBGFLG
  3947	014710'	104 00 0 00 000527 		SYERR				;Write to syserr file
  3948
  3949	014711'	350 00 0 00 015057'		AOS	SPRCNT			;Increment spear error entries made
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 99
RMTCNM	MAC	10-Jun-85 15:20		SPEAR REPORTING SUBROUTINES                                                        SEQ 0179

  3950
  3951	014712'	262 17 0 00 000004 	SPR2X:	GETIT	<AC4,AC3,AC2,AC1,AC0>	;Restore ac's
  3952	014713'	262 17 0 00 000003 
  3953	014714'	262 17 0 00 000002 
  3954	014715'	262 17 0 00 000001 
  3955	014716'	262 17 0 00 000000 
  3956	014717'	263 17 0 00 000000 		RTN
  3957
  3958	014720'	000000	000000		SPR2D:	0				;Code word stored here
  3959
  3960					; Spear entry block 11
  3961
  3962	014721'	250000	000000		SENT11:	250000,,0			;Event type
  3963	014722'	000000	000000			0				;Zero
  3964	014723'	000000	000000			0				;Zero
  3965	014724'	000000	000000			0				;Zero
  3966	014725'	000000	020002			20002				;Time of occurence block
  3967	014726'	000000	000000			0				;Time
  3968	014727'	000011	000000		SEN11L:	11,,0				;Type 11 code
  3969	014730'	000000	000000			0				;Failing test name
  3970	014731'	000000	000000			0				;Failing test description length
  3971	014732'					BLOCK	^D20			;Ascii test description
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 100
RMTCNM	MAC	10-Jun-85 15:20		SPEAR REPORTING SUBROUTINES                                                        SEQ 0180

  3972
  3973					;#**********************************************************************
  3974					; SPR3 subroutine
  3975					;
  3976					;  Used to make a spear entry when the spear queue entry
  3977					;  Number has changed but no error was detected by the diagnostic.
  3978					;#**********************************************************************
  3979
  3980	014756'	261 17 0 00 000000 	SPR3:	PUTIT	<AC0>			;Save an ac
  3981
  3982	014757'	201 00 0 00 014765'		MOVEI	AC0,SPR3E		;Get address of asciz message
  3983	014760'	661 00 0 00 400000 		TLO	AC0,(1B0)		;Set bit 0
  3984	014761'	261 16 0 00 000000 		PUSHD	<AC0>			;Put the address on the data stack
  3985	014762'	260 17 0 00 014663'		GO	SPR2			;Call spear error reporter subroutine
  3986
  3987	014763'	262 17 0 00 000000 		GETIT	<AC0>			;Restore ac
  3988	014764'	263 17 0 00 000000 		RTN
  3989
  3990	014765'				SPR3E:	ASCIZ/
  3991	014765'	015 012 124 110 105 	THE SPEAR QUEUE ENTRY COUNTER HAS CHANGED DURING EXECUTION OF THIS TEST.
  3992	014766'	040 123 120 105 101 
  3993	014767'	122 040 121 125 105 
  3994	014770'	125 105 040 105 116 
  3995	014771'	124 122 131 040 103 
  3996	014772'	117 125 116 124 105 
  3997	014773'	122 040 110 101 123 
  3998	014774'	040 103 110 101 116 
  3999	014775'	107 105 104 040 104 
  4000	014776'	125 122 111 116 107 
  4001	014777'	040 105 130 105 103 
  4002	015000'	125 124 111 117 116 
  4003	015001'	040 117 106 040 124 
  4004	015002'	110 111 123 040 124 
  4005	015003'	105 123 124 056 015 
  4006	015004'	012 116 117 040 105 	NO ERROR WAS DETECTED BY THIS TEST.
  4007	015005'	122 122 117 122 040 
  4008	015006'	127 101 123 040 104 
  4009	015007'	105 124 105 103 124 
  4010	015010'	105 104 040 102 131 
  4011	015011'	040 124 110 111 123 
  4012	015012'	040 124 105 123 124 
  4013	015013'	056 015 012 000 000 	/
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 101
RMTCNM	MAC	10-Jun-85 15:20		SPEAR REPORTING SUBROUTINES                                                        SEQ 0181

  4014
  4015					;#**********************************************************************
  4016					; SPR4 subroutine
  4017					;
  4018					;  Used to make a successful completion spear report.
  4019					;#**********************************************************************
  4020
  4021	015014'	261 17 0 00 000000 	SPR4:	PUTIT	<AC0>			;Save an ac
  4022
  4023	015015'	402 00 0 00 000000 		SETZM	AC0			;Get a 0 word
  4024	015016'	261 16 0 00 000000 		PUSHD	<AC0>			;Put the zero on the data stack
  4025	015017'	260 17 0 00 014663'		GO	SPR2			;Call spear error reporter subroutine
  4026
  4027	015020'	262 17 0 00 000000 		GETIT	<AC0>			;Restore ac
  4028	015021'	263 17 0 00 000000 		RTN
  4029
  4030					;#**********************************************************************
  4031					; GETPP - find out ppn number
  4032					;
  4033					;  This subroutine will return with the ppn on the data stack.
  4034					;  To get the ppn after this subroutine returns,
  4035					;  Use  "POPD <X>" where "X" is the location you want the ppn to go to.
  4036					;#**********************************************************************
  4037
  4038	015022'	261 17 0 00 000001 	GETPP:	PUTIT	<AC1,AC2,AC3>		;Save some ac's
  4039	015023'	261 17 0 00 000002 
  4040	015024'	261 17 0 00 000003 
  4041	015025'	476 00 0 00 000001 		SETOM	AC1			;Indicate current job
  4042	015026'	200 02 0 00 017745'		MOVE	AC2,[-1,,AC1]		;Place 1 word into ac1
  4043	015027'	201 03 0 00 000003 		MOVEI	AC3,3			;Point to connected directory number
  4044
  4045	015030'	104 00 0 00 000507 		GETJI				;Get job information
  4046	015031'	334 00 0 00 000000 		SKIPA				;Error 
  4047	015032'	254 00 0 00 015034'		JRST	GETPP1			;Good return
  4048
  4049	015033'	402 00 0 00 000001 		SETZM	AC1			;Error - just clear ac1
  4050
  4051	015034'	261 16 0 00 000001 	GETPP1:	PUSHD	<AC1>			;Put ppn on data stack
  4052	015035'	262 17 0 00 000003 		GETIT	<AC3,AC2,AC1>		;Restore ac's
  4053	015036'	262 17 0 00 000002 
  4054	015037'	262 17 0 00 000001 
  4055	015040'	263 17 0 00 000000 		RTN
  4056
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 102
RMTCNM	MAC	10-Jun-85 15:20		GENERAL STORAGE                                                                    SEQ 0182

  4057					SUBTTL	GENERAL STORAGE
  4058					;#**********************************************************************
  4059					;*  General Program Storage 
  4060					;#**********************************************************************
  4061
  4062	015041'	000000	000000		PRTNBR:	0				;Storage for selected port number
  4063
  4064	015042'	000000	000000		TARADH:	0				;Hi address for TARGET NODE
  4065	015043'	000000	000000		TARADL:	0				;Lo
  4066
  4067	015044'	000000	000000		LOCADH:	0				;Hi address for LOCAL NODE
  4068	015045'	000000	000000		LOCADL:	0				;Lo
  4069
  4070	015046'	000000	000000		NODADH:	0				;Hi hex NODE address for REQ-ID cmd 
  4071	015047'	000000	000000		NODADL:	0				;Lo   & READ-COUNTERS command
  4072
  4073	015050'	044321	263600		SLOCH:	44321,,263600			;For debug, set LOCADH = 1-8,z hex
  4074	015051'	465360	000000		SLOCL:	465360,,0			;		LOCADL = 9-C,z hex in RRID
  4075
  4076	015052'	000000	000000		PWORDH:	0				;Hi hex password verification code
  4077	015053'	000000	000000		PWORDL:	0				;Lo
  4078
  4079	015054'	000000	000000		TIMST:	0				;Start time of an event
  4080	015055'	000000	000000		TIMEND:	0				;End time, contents of TIMST +5 seconds
  4081
  4082	015056'	000000	000000		SPEAR1:	0				;Used as a flag for determining whether
  4083										; To make a diagnostic started spear
  4084										; Entry. Initially 0, make spear entry
  4085	015057'	000000	000000		SPRCNT:	0				;Holds the number of spear entries made
  4086
  4087	015060'	000000	000000		TEMP1:	0				;Temporary storage
  4088	015061'	000000	000000		TEMP2:	0
  4089	015062'	000000	000000		TEMP3:	0
  4090	015063'	000000	000000		TEMP4:	0
  4091	015064'	000000	000000		TEMP5:	0
  4092
  4093	015065'	000000	000000		TRCFLG:	0				;Trace enabled flag = -1
  4094	015066'	000000	000000		LOGFLG:	0				;Logging enabled = -1
  4095	015067'	000000	000000		SPRFLG:	0				;Spear enabled = -1
  4096	015070'	000000	000000		DBGFLG:	0				;Debug enabled flag = -1
  4097	015071'	000000	000004		TTEXIT:	"D"-100				;TTY "exit" character
  4098										;Default to "Control-D" to Disconnect
  4099	015072'	000000	000000		SREQN:	0				;Save Request number
  4100
  4101	015073'	000000	000000		ONETIM:	0				;0 At initial start up, -1 otherwise 
  4102	015074'				UNAME:	BLOCK	^D20			;Storage for user name
  4103
RMTCNM DECSYSTEM KL10 NETWORK INTERCONNECT SERVER, VERSION 1.0	MACRO %53B(1242) 16:48 10-Jun-85 Page 103
RMTCNM	MAC	10-Jun-85 15:20		GENERAL STORAGE                                                                    SEQ 0183

  4104  
  4105	015120'	254 00 0 00 000024'	DSTKER:	JRST	DSERR		;Data stack error trap
  4106
  4107	015121'				DSTK:	BLOCK	200		;Data stack pushdown list
  4108			000200		STKLEN= .-DSTK
  4109
  4110	015321'	000000	000000		PASCT:	0			;Pass count
  4111	015322'	000000	000000		RBTCTR:	0			;Remote boot counter
  4112	015323'	000000	000000		NODSEL:	0			;Node selected flag
  4113	015324'	000000	000000		CMDPND:	0			;Command pending flag
  4114
  4115	015325'	777777	777760		BCASTH:	777777,,777760		;BCAST address used in DALLAD  (byte 0,1,2,3,z)
  4116	015326'	777774	000000		BCASTL:	777774,,0		;FF-FF-FF-FF-FF-FF	       (byte 4,5,z,z,z)
  4117
  4118	015327'	526000	000040		MCASTH:	526000,,40		;MCAST address used in DALLAD  (byte 0,1,2,3,z)
  4119	015330'	000000	000000		MCASTL:	0			;AB-00-00-02-00-00	       (byte 4,5,z,z,z)
  4120
  4121	015331'				PATCH:	BLOCK ^D200		;My DDT patch area 
  4122
  4123		254000	000000'			END	JRST SETUP

NO ERRORS DETECTED

PROGRAM BREAK IS 017746
CPU TIME USED 00:16.008

138P CORE USED
AC0	    62	    63	    74	    75	   100	   249	   278	   279	   289	   301	   308	   309	   314	   315
	   323	   325	   334	   350	   359	   361	   365	   371	   375	   379	   381	   383	   385	   386     SEQ 0184
	   388	   427	   600	   606	   607	   630	   634	   635	   637	   670	   676	   677	   700	   704
	   705	   707	   739	   745	   746	   748	   751	   752	   756	   757	   776	   817	   825	   826
	   828	   829	   835	   849	   853	   885	   891	   892	   894	   918	   922	   953	   959	   960
	   983	   987	  1022	  1027	  1028	  1031	  1035	  1036	  1038	  1039	  1040	  1065	  1069	  1070
	  1072	  1109	  1141	  1146	  1150	  1182	  1200	  1204	  1235	  1247	  1261	  1264	  1265	  1270
	  1275	  1280	  1285	  1293	  1322	  1332	  1333	  1350	  1488	  1489	  1490	  1491	  1494	  1497
	  1500	  1501	  1503	  1506	  1507	  1509	  1512	  1595	  1607	  1609	  1611	  1613	  1615	  1627
	  1640	  1641	  1643	  1644	  1652	  1661	  1678	  1690	  1691	  1692	  1693	  1694	  1704	  1839
	  1853	  1890	  1903	  1904	  1911	  1912	  1922	  1923	  1938	  1939	  1952	  1956	  1964	  1988
	  1989	  2002	  2006	  2014	  2023	  2026	  2045	  2046	  2054	  2055	  2061	  2065	  2073	  2094
	  2095	  2108	  2112	  2120	  2129	  2130	  2138	  2142	  2154	  2155	  2168	  2172	  2180	  2189
	  2190	  2199	  2203	  2212	  2218	  2229	  2230	  2243	  2244	  2250	  2278	  2288	  2289	  2302
	  2306	  2314	  2339	  2340	  2353	  2357	  2365	  2371	  2374	  2383	  2384	  2396	  2425	  2426
	  2460	  2461	  2464	  2465	  2467	  2468	  2475	  2476	  2485	  2486	  2586	  2630	  2631	  2644
	  2645	  2658	  2659	  2715	  2727	  2731	  2735	  2739	  2756	  2785	  2800	  2804	  2809	  2811
	  2818	  2835	  2838	  2840	  2855	  2858	  2860	  2875	  2878	  2880	  2895	  2899	  2904	  2920
	  2923	  2925	  2929	  2932	  2936	  2939	  2942	  2975	  2979	  3044	  3057	  3063	  3098	  3104
	  3117	  3129	  3135	  3151	  3155	  3171	  3182	  3188	  3204	  3208	  3231	  3234	  3236	  3246
	  3257	  3263	  3288	  3310	  3312	  3313	  3315	  3318	  3321	  3324	  3325	  3326	  3327	  3530
	  3573	  3574	  3617	  3618	  3620	  3622	  3625	  3628	  3631	  3634	  3637	  3644	  3645	  3647
	  3649	  3652	  3655	  3670	  3688	  3689	  3691	  3695	  3697	  3826	  3860	  3880	  3916	  3928
	  3929	  3955	  3980	  3982	  3983	  3984	  3987	  4021	  4023	  4024	  4027
AC1	    79	   104	   125	   126	   141	   148	   151	   158	   164	   167	   199	   205	   215	   218
	   227	   232	   248	   250	   256	   262	   268	   273	   284	   290	   300	   324	   326	   335
	   349	   360	   362	   367	   368	   394	   405	   412	   413	   420	   421	   428	   453	   466
	   489	   490	   493	   498	   599	   620	   638	   669	   690	   708	   738	   770	   777	   816
	   839	   854	   884	   908	   923	   952	   973	   988	  1021	  1029	  1030	  1055	  1073	  1108
	  1131	  1151	  1181	  1190	  1205	  1251	  1321	  1326	  1351	  1387	  1394	  1399	  1415	  1419
	  1421	  1424	  1426	  1428	  1443	  1448	  1452	  1546	  1547	  1549	  1552	  1553	  1555	  1557
	  1560	  1563	  1566	  1569	  1571	  1574	  1595	  1599	  1601	  1603	  1605	  1628	  1637	  1647
	  1648	  1654	  1660	  1679	  1687	  1694	  1703	  1713	  1717	  1720	  1757	  1762	  1763	  1782
	  1783	  1790	  1813	  1815	  1818	  1820	  1823	  1838	  1841	  1845	  1854	  1889	  1937	  1939
	  1942	  1949	  1959	  1960	  1964	  1969	  1971	  1973	  1987	  1989	  1992	  1999	  2009	  2010
	  2014	  2024	  2026	  2044	  2046	  2049	  2058	  2068	  2069	  2073	  2078	  2080	  2081	  2084
	  2093	  2095	  2098	  2105	  2115	  2116	  2120	  2128	  2130	  2131	  2132	  2134	  2153	  2155
	  2158	  2165	  2175	  2176	  2180	  2188	  2190	  2191	  2192	  2194	  2219	  2239	  2251	  2277
	  2287	  2289	  2292	  2299	  2309	  2310	  2314	  2318	  2320	  2338	  2340	  2343	  2350	  2360
	  2361	  2365	  2372	  2374	  2397	  2585	  2657	  2659	  2662	  2668	  2670	  2672	  2674	  2676
	  2678	  2680	  2682	  2685	  2687	  2689	  2691	  2693	  2695	  2697	  2699	  2701	  2703	  2705
	  2707	  2709	  2715	  2722	  2723	  2727	  2751	  2752	  2756	  2759	  2760	  2763	  2766	  2769
	  2772	  2775	  2778	  2781	  2795	  2796	  2800	  2810	  2813	  2819	  2830	  2831	  2835	  2839
	  2840	  2850	  2851	  2855	  2859	  2860	  2870	  2871	  2875	  2879	  2880	  2890	  2891	  2895
	  2905	  2915	  2916	  2920	  2970	  2971	  2975	  2978	  2979	  2983	  2985	  2987	  2989	  2991
	  2993	  2995	  2997	  2999	  3001	  3003	  3005	  3007	  3009	  3011	  3013	  3015	  3017	  3019
	  3021	  3023	  3025	  3027	  3029	  3031	  3033	  3035	  3044	  3048	  3050	  3053	  3057	  3066
	  3075	  3077	  3082	  3087	  3092	  3094	  3098	  3107	  3117	  3121	  3123	  3125	  3129	  3138
	  3147	  3148	  3151	  3154	  3155	  3159	  3161	  3171	  3175	  3177	  3179	  3182	  3191	  3200
	  3201	  3204	  3207	  3208	  3212	  3214	  3216	  3227	  3228	  3231	  3235	  3236	  3246	  3250
	  3252	  3254	  3257	  3266	  3289	  3529	  3619	  3620	  3646	  3647	  3671	  3690	  3691	  3694
	  3695	  3696	  3697	  3794	  3795	  3807	  3812	  3817	  3822	  3826	  3831	  3859	  3870	  3874
	  3881	  3917	  3942	  3945	  3954	  4038	  4041	  4042	  4049	  4051	  4054
AC10	  1484	  1496	  1518	  1519	  1556	  1559	  1571	  1596	  1615	  2580	  2587	  3294	  3525	  3531
	  3675                                                                                                             SEQ 0185
AC11	  1484	  1497	  1548	  1551	  1562	  1565	  1568	  1572	  2579	  2588	  3295	  3524	  3532	  3676
AC2	    80	   105	   143	   144	   150	   152	   159	   168	   200	   206	   219	   228	   233	   348
	   395	   420	   429	   456	   460	   467	   471	   488	   494	   499	   598	   621	   639	   668
	   691	   709	   737	   771	   778	   815	   840	   855	   883	   909	   924	   951	   974	   989
	  1020	  1056	  1074	  1107	  1132	  1152	  1180	  1191	  1206	  1234	  1252	  1294	  1320	  1327
	  1352	  1390	  1391	  1401	  1402	  1416	  1427	  1444	  1451	  1545	  1548	  1549	  1551	  1552
	  1556	  1557	  1559	  1560	  1562	  1563	  1565	  1566	  1568	  1569	  1575	  1837	  1855	  1888
	  1933	  1937	  1938	  1944	  1952	  1954	  1959	  1969	  1983	  1987	  1988	  1994	  2002	  2004
	  2009	  2019	  2023	  2040	  2044	  2045	  2051	  2061	  2063	  2068	  2078	  2089	  2093	  2094
	  2100	  2108	  2110	  2115	  2128	  2129	  2149	  2153	  2154	  2160	  2168	  2170	  2175	  2188
	  2189	  2210	  2215	  2252	  2276	  2283	  2287	  2288	  2294	  2302	  2304	  2309	  2318	  2334
	  2338	  2339	  2345	  2353	  2355	  2360	  2371	  2398	  2449	  2460	  2463	  2466	  2584	  2624
	  2657	  2658	  2664	  2722	  2731	  2735	  2739	  2751	  2759	  2785	  2795	  2806	  2830	  2838
	  2839	  2850	  2858	  2859	  2870	  2878	  2879	  2890	  2901	  2915	  2923	  2925	  2929	  2932
	  2936	  2939	  2942	  2946	  2947	  2948	  2970	  2978	  3048	  3063	  3075	  3104	  3121	  3135
	  3147	  3154	  3175	  3188	  3200	  3207	  3227	  3234	  3235	  3250	  3263	  3290	  3528	  3565
	  3618	  3619	  3645	  3646	  3672	  3689	  3690	  3694	  3696	  3858	  3875	  3882	  3918	  3936
	  3937	  3943	  3944	  3953	  4039	  4042	  4053
AC3	   106	   487	   495	   500	  1544	  1553	  1572	  1576	  1629	  1634	  1636	  1639	  1640	  1659
	  1680	  1684	  1686	  1689	  1690	  1702	  1836	  1846	  1856	  1887	  1906	  1907	  1908	  1914
	  1920	  2021	  2028	  2211	  2217	  2253	  2275	  2369	  2376	  2386	  2387	  2388	  2399	  2583
	  2633	  2639	  2642	  2644	  2646	  2647	  2803	  2808	  2898	  2903	  3291	  3527	  3571	  3573
	  3575	  3576	  3581	  3585	  3613	  3673	  3692	  3919	  3952	  4040	  4043	  4052
AC4	  1485	  1498	  1630	  1633	  1658	  1681	  1683	  1701	  1886	  1915	  1918	  1919	  2215	  2216
	  2254	  2274	  2400	  2582	  2634	  2637	  2638	  2806	  2807	  2901	  2902	  3292	  3526	  3674
	  3920	  3951
AC5	   175	   284	   305	   314	   320	   332	  1486	  1488	  1598	  1599	  1600	  1601	  1602	  1603
	  1604	  1605	  1606	  1607	  1608	  1609	  1610	  1611	  1612	  1613	  1631	  1635	  1650	  1655
	  1657	  1682	  1685	  1695	  1700	  1885	  1916	  1918	  2212	  2216	  2255	  2273	  2401	  2635
	  2637	  2804	  2807	  2899	  2902
AC6	   306	   315	   403	   412	  1596	  1598	  1600	  1602	  1604	  1606	  1608	  1610	  1612	  1884
	  1917	  1919	  2022	  2024	  2256	  2272	  2370	  2372	  2402	  2636	  2638	  2641	  2645	  3570
	  3574
AC7	  1883	  1934	  1936	  1940	  1945	  1953	  1955	  1984	  1986	  1990	  1995	  2003	  2005	  2041
	  2043	  2047	  2052	  2062	  2064	  2079	  2090	  2092	  2096	  2101	  2109	  2111	  2150	  2152
	  2156	  2161	  2169	  2171	  2257	  2271	  2284	  2286	  2290	  2295	  2303	  2305	  2335	  2337
	  2341	  2346	  2354	  2356	  2403	  2581	  2625	  2649	  2656	  2660	  2665	  2742	  2788	  2822
	  2843	  2863	  2883	  2908	  2949	  3038	  3049	  3064	  3076	  3105	  3122	  3136	  3164	  3176
	  3189	  3219	  3239	  3251	  3264	  3293
ATOM	    35#	   104	   111	  1486
BCASTH	  2425	  4115#
BCASTL	  4116#
BRKFLG	   129	   264	   513#	  1026	  1033
BUFSIZ	    55#	   528	   529	  2134	  2142	  2194	  2203
C$QUIT	    35#
C%FIRS	    35#	    63
CBUFSZ	   279	   532#	  2132	  2138
CHNTAB	   159	   538#
CHRFLG	   130	   177	   185	   259	   265	   286	   514#
CMDPND	   134	   189	   193	   353	   356	   378	  4113#
CONSW	    35#	   443
CTCOC	   460	   471	   507#
CTMOD	   456	   467	   506#                                                                                            SEQ 0186
CTRSTR	    31	   466#
CTRTAB	  3573	  3712#
CTSAVE	    78	   453#
DBGFLG	    30	   203	   302	   351	  1380	  1784	  1897	  2381	  2457	  2627	  3567	  3876	  3946	  4096#
DECVER	     3#	    11	  3895
DP	    42#	    68	   325	   326	   329	   361	   362	   615	   616	   635	   685	   686	   705	   765
	   766	   823	   903	   904	   968	   969	  1042	  1043	  1050	  1051	  1070	  1118	  1119	  1126
	  1127	  1188	  1241	  1339	  1340	  1345	  1346	  1633	  1634	  1683	  1684	  1697	  1698	  1699
	  1734	  1735	  1740	  1741	  1759	  1791	  1813	  1818	  1823	  2218	  2219	  2223	  2224	  2433
	  2438	  2451	  2470	  2471	  2595	  2600	  2611	  2619	  2620	  2818	  2819	  2904	  2905	  3312
	  3313	  3318	  3539	  3544	  3555	  3560	  3561	  3836	  3868	  3915	  3984	  4024	  4051
DSERR	    97#	  4105
DSTK	    68	  4107#	  4108
DSTKER	  4105#
ER01	  1733#	  3810	  3815	  3820
ETIME	   479#	   541
EXTFLG	   132	   186	   258	   516#
FJSYBF	  1840	  1845	  1851	  1859#
FJSYS	   340	   434	   645	   715	   784	   861	   930	   995	  1080	  1158	  1212	  1298	  1358	  1836#
GETPP	  3867	  4038#
GETPP1	  4047	  4051#
HEX	    31	  1484#
HEXA	  1488#	  1498	  1514
HEXB	  1496#	  1504	  1510
HEXC	  1489	  1516#
HEXD	  1492	  1500#
HEXE	  1502	  1506#
HEXF	  1517	  1523#
HEXG	  1508	  1512#
HEXX	  1513	  1521	  1525#
IBUFCT	   121	   278	   285	   308	   311	   317	   324	   331	   525#
INITIA	    62	    68#
INITIM	   136	   195	   480	   487#
INPEX	    71	    77#
LEVTAB	   159	   576#
LM%AIC	  1039
LM%CBF	  1027
LM%CDL	   379
LM%MNO	   371	   375	  1028	  1031
LM%MRF	  2465	  2467	  2476
LM%RDL	   383
LM%RDO	   381
LOCADH	  1333	  1339	  2022	  2223	  2370	  2631	  4067#
LOCADL	  1340	  2224	  4068#
LOGFLG	    30	   422	   442	  4094#
LOGNAM	    74	    84#
LOOP	   177#	   180	   190	   204	   208
LOOP1	   178	   185#
LOOP2	   183	   189#
LOOPX	   187	   213#
LOOPX1	   227#
MCASTH	  2485	  4118#
MCASTL	  4119#                                                                                                            SEQ 0187
MCNVER	     4#	    11	  3895
MNOFLG	   133	   192	   367	   517#	  1029
NI$FOR	   523#
NODADH	   606	   615	   676	   685	  1740	  2426	  2486	  2587	  2619	  2635	  3531	  3560	  4070#
NODADL	   616	   686	  1741	  2588	  2620	  3532	  3561	  4071#
NODSEL	    32	  2032	  2328	  4112#
OBUFCT	   122	   309	   386	   410	   526#
ONETIM	    70	    72	  4101#
OTIME	  1443#	  3801
P	   100	   248	   249	   289	   290	   300	   301	   334	   335	   348	   349	   350	   427	   428
	   429	   487	   488	   489	   498	   499	   500	   598	   599	   600	   624	   637	   638	   639
	   668	   669	   670	   694	   707	   708	   709	   737	   738	   739	   774	   776	   777	   778
	   815	   816	   817	   843	   853	   854	   855	   883	   884	   885	   912	   922	   923	   924
	   951	   952	   953	   977	   987	   988	   989	  1020	  1021	  1022	  1059	  1072	  1073	  1074
	  1107	  1108	  1109	  1135	  1150	  1151	  1152	  1180	  1181	  1182	  1194	  1204	  1205	  1206
	  1234	  1235	  1255	  1293	  1294	  1320	  1321	  1322	  1330	  1350	  1351	  1352	  1404	  1415
	  1416	  1427	  1428	  1443	  1444	  1449	  1451	  1452	  1544	  1545	  1546	  1574	  1575	  1576
	  1627	  1628	  1629	  1630	  1631	  1657	  1658	  1659	  1660	  1661	  1678	  1679	  1680	  1681
	  1682	  1700	  1701	  1702	  1703	  1704	  1713	  1720	  1757	  1763	  1782	  1790	  1821	  1836
	  1837	  1838	  1839	  1853	  1854	  1855	  1856	  1883	  1884	  1885	  1886	  1887	  1888	  1889
	  1890	  2033	  2250	  2251	  2252	  2253	  2254	  2255	  2256	  2257	  2271	  2272	  2273	  2274
	  2275	  2276	  2277	  2278	  2329	  2396	  2397	  2398	  2399	  2400	  2401	  2402	  2403	  2579
	  2580	  2581	  2582	  2583	  2584	  2585	  2586	  3288	  3289	  3290	  3291	  3292	  3293	  3294
	  3295	  3310	  3321	  3524	  3525	  3526	  3527	  3528	  3529	  3530	  3670	  3671	  3672	  3673
	  3674	  3675	  3676	  3842	  3843	  3858	  3859	  3860	  3880	  3881	  3882	  3916	  3917	  3918
	  3919	  3920	  3951	  3952	  3953	  3954	  3955	  3980	  3987	  4021	  4027	  4038	  4039	  4040
	  4052	  4053	  4054
P%DJFN	    36#	   421
P%T20	    35#	    73
P%T20P	    35#	    75
PASCT	  1895	  1900	  1977	  2418	  2424	  2479	  2487	  4110#
PATCH	  4121#
PCPOLL	   578	   584#
PCSND	   576	   580#
PCTTY	   577	   582#
PN1	  3692	  3699#
PNTNUM	  3582	  3586	  3589	  3592	  3595	  3598	  3601	  3604	  3607	  3610	  3614	  3641	  3659	  3662
	  3665	  3668	  3688#
PRHEX	    31	   617	   687	   767	   905	   970	  1052	  1128	  1341	  1347	  1627#	  1736	  1742	  2220
	  2225	  2472	  2621	  2820	  2906	  3562
PRHEXA	  1639#	  1655
PRHEXB	  1649	  1651	  1655#
PRTNBR	    31	   603	   673	   742	   820	   888	   956	  1025	  1112	  1185	  1238	  1323	  4062#
PWFLG	    33	    90#	  1516
PWORDH	    33	   748	   894	  4076#
PWORDL	    33	  4077#
PWSWAP	  1520	  1595#
RBTCTR	  1891	  2229	  2242	  2243	  4111#
RBTDID	   798#
RBTSID	   756	   799#
RBUFSZ	   360	   388	   533#	   825	  2192	  2199
RCABT	  1180#	  3837
RCABT3	  1197	  1204#	  1213                                                                                             SEQ 0188
RCABT4	  1193	  1211#
RCABTB	  1186	  1188	  1191	  1200	  1217#
RCADR	    32	  1320#	  1892
RCADR3	  1336	  1350#	  1359
RCADR4	  1329	  1357#
RCADRB	  1324	  1327	  1332	  1345	  1346	  1363#
RCP1	   369	   375#
RCP2	   364	   433#
RCP3	   373	   378#
RCP4	   405#	   408	   413	   425
RCP5	   354	   391	   403#
RCP6	   372	   376	   394#
RCP7	   352	   356#
RCPOL	   363	  1107#
RCPOL1	  1121	  1131#
RCPOL3	  1138	  1150#	  1159
RCPOL4	  1134	  1157#
RCPOLB	   365	   385	  1113	  1116	  1118	  1119	  1132	  1141	  1146	  1163#
RCPOLL	   348#	   539
RCPX	   357	   397	   411	   427#	   435
RCRBT	   737#	  2234
RCRBT1	   760	   770#
RCRBT3	   776#	   785
RCRBT4	   773	   783#
RCRBTB	   743	   746	   749	   752	   754	   757	   771	   789#
RCRCT	   668#	  3536
RCRCT1	   680	   690#
RCRCT2	   697	   704#
RCRCT3	   707#	   716
RCRCT4	   693	   714#
RCRCTB	   674	   677	   691	   700	   704	   720#
RCREL	   951#	  2378
RCREL1	   973#
RCREL3	   980	   987#	   996
RCREL4	   976	   994#
RCRELB	   957	   960	   974	   983	  1000#
RCRID	   598#	  2430	  2592
RCRID1	   610	   620#
RCRID2	   627	   634#
RCRID3	   637#	   646
RCRID4	   623	   644#
RCRIDB	   604	   607	   621	   630	   634	   650#	  1396
RCRPY	   815#	  2452	  2612	  3556
RCRPY1	   832	   839#
RCRPY3	   846	   853#	   862
RCRPY4	   842	   860#
RCRPYB	   821	   823	   826	   829	   835	   840	   849	   866#	  1402	  1923	  1934	  1984	  2041	  2090
	  2150	  2284	  2335	  2461	  2464	  2468	  2470	  2471	  2475	  2625
RCRSV	   883#	  1975
RCRSV1	   898	   908#	   963
RCRSV3	   915	   922#	   931
RCRSV4	   911	   929#
RCRSVB	   889	   892	   895	   909	   918	   935#                                                                    SEQ 0189
RCS2	   314#	   318
RCS4	   303	   323#
RCS6	   328	   339#
RCSEND	   300#	   538
RCSND	   327	  1020#
RCSND1	  1045	  1055#
RCSND2	  1062	  1069#
RCSND3	  1072#	  1081
RCSND4	  1058	  1079#
RCSNDB	  1032	  1036	  1040	  1042	  1043	  1056	  1065	  1069	  1085#	  1115
RCSTS	  1234#	  2439	  2601	  3545
RCSTS1	  1244	  1251#
RCSTS2	  1268	  1273	  1278	  1283	  1288	  1291#
RCSTS3	  1258	  1293#	  1299
RCSTS4	  1254	  1297#
RCSTS5	  1266	  1270#
RCSTS6	  1271	  1275#
RCSTS7	  1276	  1280#
RCSTS8	  1281	  1285#
RCSTS9	  1286	  1290#
RCSTSB	  1239	  1241	  1247	  1252	  1261	  1264	  1303#	  1391	  3794
RCSX	   312	   321	   334#	   341
RDFL1	  3796	  3807#
RDFL2	  3803	  3843#
RDFL3	  3832	  3842#
RDFL4	  3823	  3831#
RDFL5	  3805	  3836#
RDFL6	  3808	  3812#
RDFL7	  3813	  3817#
RDFL8	  3818	  3822#
RDFLGS	  2442	  2604	  3548	  3794#
RDFLX	  3838	  3840	  3844#
RDSTIM	  1415#	  2434	  2596	  3540
REJUS	  1523	  1544#
REL1	  2279#	  2382	  2389
REL10	  2286	  2296#
REL11	  2304#	  2306
REL12	  2337	  2347#
REL13	  2355#	  2357
REL1A	  2286#	  2295	  2307
REL1B	  2293	  2299#
REL1C	  2300	  2309#
REL2	  2311	  2318#
REL2A	  2321	  2334#
REL2B	  2337#	  2358
REL2C	  2344	  2350#
REL2D	  2351	  2360#
REL3	  2362	  2369#
REL4	  2375	  2391#
REL5	  2371#	  2376
REL9	  2316	  2348	  2367	  2379	  2394#
RELCON	    32	   213	  2271#
RELX	  2297	  2330	  2392	  2395#                                                                                    SEQ 0190
REM1	   141#
REM3	   148#
REM6	   158#
REQT1	  1904	  1912	  2384	  3356#
REQT2	  1907	  1917	  2387	  3362#
REQT3	  2636	  3390#
REQTAB	  1922	  2644	  2649	  3346#
RES1	  1897#	  1978	  2245
RES10	  1936	  1946#
RES11	  1954#	  1956
RES12	  1986	  1996#
RES13	  2004#	  2006
RES16	  2092	  2102#
RES17	  2110#	  2112
RES18	  2152	  2162#
RES19	  2170#	  2172
RES1A	  1936#	  1945	  1957
RES1B	  1943	  1949#
RES1C	  1950	  1959#
RES1D	  1898	  1927#
RES2	  1961	  1969#
RES20A	  2135	  2149#
RES20B	  2092#	  2101	  2113
RES20C	  2099	  2105#
RES20D	  2106	  2115#
RES20E	  2117	  2128#
RES2A	  1974	  1983#
RES2B	  1986#	  1995	  2007	  2346
RES2C	  1993	  1999#
RES2D	  2000	  2009#
RES3	  2011	  2019#
RES30B	  2152#	  2161	  2173
RES30C	  2159	  2165#
RES30D	  2166	  2175#
RES30E	  2177	  2188#
RES4	  1909	  1922#
RES5	  2023#	  2028
RES6	  2043#	  2052	  2066
RES6A	  2043	  2053#
RES6B	  2050	  2058#
RES6C	  2063#	  2065
RES6D	  2059	  2068#
RES6E	  2070	  2078#
RES7	  2027	  2208#
RES7A	  2215#	  2217
RES8	  1972	  2229#
RES8A	  2230	  2237#
RES9	  1901	  1911#
RES9A	  1918#	  1920
RESCON	    32	  1883#
RESTIM	   494	   520#	  2055	  2084
RESX	  1893	  1947	  1967	  1976	  1997	  2017	  2056	  2076	  2103	  2123	  2163	  2183	  2195	  2206
	  2227	  2235	  2250#                                                                                            SEQ 0191
RI1	  2669	  2721#
RI100	  2686	  2969#
RI100A	  2972	  2978#
RI101	  2690	  3043#
RI101A	  3051	  3056#
RI101B	  3054	  3060#
RI101C	  3062#	  3066
RI1A	  2724	  2730#
RI2	  2671	  2750#
RI200	  2692	  3074#
RI200A	  3078	  3082#
RI200B	  3083	  3087#
RI200C	  3088	  3092#
RI200D	  3093	  3097#
RI200E	  3095	  3101#
RI200F	  3103#	  3107
RI200Z	  3080	  3085	  3090	  3109#
RI201	  2696	  3116#
RI201A	  3124	  3128#
RI201B	  3126	  3132#
RI201C	  3134#	  3138
RI2A	  2753	  2759#
RI3	  2673	  2794#
RI300	  2698	  3146#
RI300A	  3149	  3154#
RI301	  2702	  3170#
RI301A	  3178	  3181#
RI301B	  3180	  3185#
RI301C	  3187#	  3191
RI3A	  2797	  2803#
RI3B	  2806#	  2808
RI3C	  2812	  2814	  2818#
RI3D	  2816	  2822#
RI4	  2675	  2829#
RI400	  2704	  3199#
RI400A	  3202	  3207#
RI401	  2706	  3226#
RI401A	  3229	  3234#
RI402	  2710	  3245#
RI402A	  3253	  3256#
RI402B	  3255	  3260#
RI402C	  3262#	  3266
RI4A	  2832	  2838#
RI5	  2677	  2849#
RI5A	  2852	  2858#
RI6	  2679	  2869#
RI6A	  2872	  2878#
RI7	  2681	  2889#
RI7A	  2892	  2898#
RI7B	  2901#	  2903
RI8	  2683	  2914#
RI8A	  2917	  2923#
RI997	  2716	  2728	  2757	  2801	  2836	  2856	  2876	  2896	  2921	  2976	  3058	  3099	  3130	  3152     SEQ 0192
	  3183	  3205	  3232	  3258	  3280#
RIZ	  3310#
RIZ1	  3316	  3319	  3324#
RRA1	  2663	  2668#
RRA2	  2688	  2691#
RRA3	  2694	  2697#
RRA4	  2700	  2703#
RRA5	  2708	  2714#
RRCT	    32	  3524#
RRCT1	  3544#	  3550
RRCT2	  3573#	  3576
RRCT3	  3568	  3580#
RRCTX	  3537	  3546	  3549	  3557	  3670#
RRID	    30	  1927	  2279	  2579#
RRIDA	  2628	  2653#	  2666	  2743	  2789	  2823	  2844	  2864	  2884	  2909	  2950	  3039	  3068	  3110
	  3141	  3165	  3194	  3220	  3240	  3269
RRIDX	  2593	  2602	  2605	  2613	  2654	  2656	  3288#
RRIH	  2600#	  2606
RRIH1	  2644#	  2647
RRIH2	  2616	  2627#
RRIH3	  2637#	  2639
RTEND	  1922	  2649	  3472#
SAD1	  2430#	  2488
SAD2	  2438#	  2444
SAD3	  2451#	  2477
SAD4	  2458	  2470#
SAD5	  2419	  2443	  2479#
SADX	  2431	  2440	  2453	  2480	  2490#
SALLAD	    32	  2418#
SCNTE	  1826#
SCNTS	  1759	  1766#	  1820
SEN11L	  3937	  3943	  3968#
SENT10	  3868	  3870	  3874	  3887#
SENT11	  3934	  3935	  3942	  3945	  3962#
SERTH	  3929#	  3929
SETUP	    62#	  4123
SLOCH	  1916	  2630	  4073#
SLOCL	  4074#
SPEAR1	  3862	  3879	  4082#
SPR1	    30	  3858#
SPR1X	  3863	  3880#
SPR2	  3915#	  3985	  4025
SPR2D	  3915	  3958#
SPR2E	  3941#
SPR2X	  3926	  3930	  3951#
SPR3	  3980#
SPR3E	  3982	  3990#
SPR4	    30	  4021#
SPRCNT	  3928	  3949	  4085#
SPRE	  1810#
SPRFLG	    30	  1754	  1810	  3861	  3925	  4095#
SPRP	  1758	  1782#	  1817
SPRPA	  1785	  1790#                                                                                                    SEQ 0193
SPRPB	  1783	  1794#
SPRPC	  1791	  1795#
SPRS	  1754#
SPRSE	  1815	  1827#
SPRSX	  1762	  1767#
SREQN	   329	  2433	  2438	  2451	  2595	  2600	  2611	  3539	  3544	  3555	  3836	  4099#
START	    35#	    64	   114
STKLEN	    68	  4108#
T	    88#	  3810	  3815	  3820
TABL	  2460	  2492#
TABLEN	   126	   530#
TARADH	    31	   745	   765	   891	   903	   959	   968	  1035	  1050	  1126	  1734	  2323	  4064#
TARADL	    31	   766	   904	   969	  1051	  1127	  1735	  2324	  4065#
TEMP1	  2019	  2210	  4087#
TEMP2	  4088#
TEMP3	  4089#
TEMP4	  4090#
TEMP5	  4091#
TESTPC	    35#
TIMEND	  1426	  1448	  4080#
TIMINT	   131	   179	   194	   479	   515#
TIMST	  1419	  4079#
TO$FOR	   522#
TRCFLG	    30	   181	   609	   626	   679	   696	   759	   831	   845	   897	   914	   962	   979	  1044
	  1061	  1120	  1137	  1196	  1243	  1257	  1335	  1423	  1714	  2030	  2232	  2237	  2326	  2615
	  2653	  4093#
TTBERR	   424	   438#
TTEXIT	    31	   256	  4097#
TTIBUF	   124	   125	   175	   305	   320	   323	   332	   528#
TTIN1	   257	   262#
TTIN2	   252	   255#
TTIN3	   269	   273#
TTIN4	   280	   284#
TTIN5	   274	   278#
TTIN6	   263	   268#
TTIN7	   250#	   287
TTINX	   253	   260	   266	   271	   276	   282	   289#
TTIWD	   150	   233	   510#
TTMOD	   143	   228	   509#
TTOBUF	   306	   359	   403	   529#	   828	  1933	  1983	  2040	  2089	  2149	  2283	  2334	  2624	  2641
	  3565	  3570
TTYINP	   248#	   540
UHEX	  1678#
UHEXA	  1689#	  1695
UHEXB	  1687	  1697	  1698	  1699	  1707#
UNAME	  4102#
WAIT1	  1713#
WAIT1A	  1715	  1720#
XOFF	   268
XOFFLG	   128	   270	   275	   415	   512#
XON	   273
$ERJSY	    52	    99#
$LLM1	  1395	  1399#                                                                                                    SEQ 0194
$LLM2	  1385	  1392	  1397	  1400	  1404#
$LLM3	  1384	  1405#
$LLM4	  1388	  1394#
$LLM5	  1381	  1387#
$LLMOP	   622	   692	   772	   841	   910	   975	  1057	  1133	  1192	  1253	  1328	  1380#
$REMOT	    31	   121#
.AC1	   440
.CTTRM	   141	   227	   250	   453	   466
.DGRSC	  1794
.FHSLF	    79	   105	   148	   151	   158	   167	   199	   205	   218	   232	   394	   490	   493	  1841
.LMABT	  1275	  3807
.LMCCE	  1285	  3817	  3822
.LMCID	   365	   604	   674	   743	   821	   889	   918	   957	   983	  1032	  1113	  1186	  1239	  1324
	  2464	  2468	  2475
.LMCIF	   752
.LMDID	   754
.LMDST	   607	   677	   746	   892	   960	  1036
.LMHWA	  1345	  1346
.LMPND	  1265	  3795
.LMPWD	   749	   895
.LMPYA	  1332
.LMRBL	   385	   826	   849	  1042	  1118	  1146	  1402	  1923	  1934	  1984	  2041	  2090	  2150	  2284
	  2335	  2625
.LMRBP	   829	  1043	  1119
.LMREQ	   630	   634	   700	   704	   823	   835	  1040	  1065	  1069	  1115	  1116	  1141	  1188	  1200
	  1241	  1247	  1396
.LMSID	   757
.LMSRC	  2461	  2470	  2471
.LMSTF	  1261	  1264	  1391	  3794
.LMSUC	  1270	  1390	  3831
.LMTXF	  1280	  3812
.PRIOU	   405
.RCABT	  1190
.RCADR	  1326
.RCPOL	  1131
.RCRBT	   770
.RCRCT	   690
.RCREL	   973
.RCRID	   620	  1394
.RCRPY	   839	  1399
.RCRSV	   908
.RCSND	  1055
.RCSTS	  1251	  1387
.TICTI	    80	   152	   164	   215
.TIMAL	   490
.TIMEL	   493
AIC	   169
ATI	   165                                                                                                             SEQ 0195
BOUT	   423
CIS	   222
DEBRK	   291	   336	   430	   481
DIAG	  1787
DIC	   220
DIR	   221
DISMS	  1718	  2240
DROPDV	   444
DTI	   216
EIR	   162
ERCAL	    52	   424
ERJMP	  1384	  1843	  1848	  1849
ERJSYS	    52#	   455	   459
ERROR1	  3809	  3814	  3819
ERSTR	   107	  1847
ERUUO	  3810	  3815	  3820
FATAL	  3829
FATALP	    97	  1788
GETER	  1842
GETIT	   100	   289	   334	   427	   498	   637	   707	   776	   853	   922	   987	  1072	  1150	  1204
	  1293	  1350	  1427	  1451	  1574	  1657	  1700	  1720	  1763	  1790	  1853	  2250	  2396	  3288
	  3321	  3670	  3880	  3951	  3987	  4027	  4052
GETJI	  4045
GO	    62	    78	   136	   195	   213	   327	   340	   363	   434	   480	   617	   622	   645	   687
	   692	   715	   767	   772	   784	   841	   861	   905	   910	   930	   970	   975	   995	  1052
	  1057	  1080	  1128	  1133	  1158	  1192	  1212	  1253	  1298	  1328	  1341	  1347	  1358	  1520
	  1523	  1736	  1742	  1758	  1817	  1892	  1927	  1975	  2220	  2225	  2234	  2279	  2378	  2430
	  2434	  2439	  2442	  2452	  2472	  2592	  2596	  2601	  2604	  2612	  2621	  2820	  2906	  3316
	  3319	  3536	  3540	  3545	  3548	  3556	  3562	  3582	  3586	  3589	  3592	  3595	  3598	  3601
	  3604	  3607	  3610	  3614	  3641	  3659	  3662	  3665	  3668	  3801	  3837	  3867	  3985	  4025
GTAD	  1761	  1814	  3869	  3941
HALTF	   108	   109	   113
IIC	   201	   207	   396
LLMOP%	  1383
NAME	     8#	    11
NOP	   214	  2445	  2607	  3551
PBIN	   255
PBOUT	   418
PCRLF	   112	   236	   618	   632	   688	   702	   768	   837	   851	   906	   920	   971	   985	  1053
	  1067	  1129	  1143	  1148	  1202	  1249	  1291	  1342	  1348	  1737	  1743	  1852	  1966	  2016
	  2075	  2122	  2144	  2182	  2205	  2226	  2395	  2422	  2473	  2483	  2622	  2741	  2787	  2821
	  2907	  2944	  3037	  3067	  3109	  3140	  3163	  3193	  3218	  3268	  3563	  3700	  3828
PMSG	    77	    99	   102	   182	   281	   339	   380	   382	   384	   389	   433	   492	   497	   614
	   629	   644	   684	   699	   714	   764	   783	   834	   848	   860	   902	   917	   929	   967
	   982	   994	  1049	  1064	  1079	  1125	  1140	  1145	  1157	  1199	  1211	  1246	  1260	  1267
	  1272	  1277	  1282	  1287	  1290	  1297	  1338	  1344	  1357	  1733	  1739	  1946	  1963	  1996
	  2013	  2031	  2053	  2072	  2102	  2119	  2136	  2137	  2141	  2162	  2179	  2196	  2198	  2202
	  2208	  2214	  2222	  2233	  2238	  2246	  2247	  2248	  2296	  2313	  2327	  2347	  2364	  2391
	  2394	  2421	  2455	  2482	  2618	  2714	  2721	  2726	  2730	  2734	  2738	  2750	  2755	  2761
	  2764	  2767	  2770	  2773	  2776	  2779	  2782	  2784	  2794	  2799	  2815	  2829	  2834	  2842
	  2849	  2854	  2862	  2869	  2874	  2882	  2889	  2894	  2914	  2919	  2927	  2931	  2934	  2938
	  2941	  2969	  2974	  2981	  2984	  2986	  2988	  2990	  2992	  2994	  2996	  2998	  3000	  3002
	  3004	  3006	  3008	  3010	  3012	  3014	  3016	  3018	  3020	  3022	  3024	  3026	  3028	  3030     SEQ 0196
	  3032	  3034	  3036	  3043	  3056	  3060	  3062	  3074	  3079	  3084	  3089	  3097	  3101	  3103
	  3116	  3119	  3128	  3132	  3134	  3146	  3150	  3157	  3160	  3162	  3170	  3173	  3181	  3185
	  3187	  3199	  3203	  3210	  3213	  3215	  3217	  3226	  3230	  3238	  3245	  3248	  3256	  3260
	  3262	  3283	  3284	  3559	  3580	  3584	  3588	  3591	  3594	  3597	  3600	  3603	  3606	  3609
	  3612	  3616	  3623	  3626	  3629	  3632	  3635	  3638	  3640	  3643	  3650	  3653	  3656	  3658
	  3661	  3664	  3667	  3804	  3824	  3825	  3839
PNT6	   101
PNTCHR	  1646	  1653	  3328
PNTCI	  3046	  3281
PNTDEC	   631	   701	   836	   850	   919	   984	  1066	  1142	  1147	  1201	  1248	  1262	  1965	  2015
	  2074	  2121	  2139	  2143	  2181	  2200	  2204	  2315	  2366	  2732	  2736	  2740	  2841	  2861
	  2881	  2924	  2926	  2930	  2933	  2937	  2940	  2943	  2980	  3045	  3118	  3156	  3172	  3209
	  3237	  3247	  3280	  3699
PNTMSG	   111	  1851
PNTOCS	  2786	  3065	  3106	  3137	  3190	  3265	  3827
POPD	    48#	   329	   823	  1042	  1118	  1188	  1241	  1633	  1683	  1759	  1818	  1823	  2433	  2595
	  3312	  3318	  3539	  3868	  3915
PSIXM	    77	    99	   102	   182	   281	   339	   380	   382	   384	   390	   433	   492	   497	   614
	   629	   644	   684	   699	   714	   764	   783	   834	   848	   860	   902	   917	   929	   967
	   982	   994	  1049	  1064	  1079	  1125	  1140	  1145	  1157	  1199	  1211	  1246	  1260	  1267
	  1272	  1277	  1282	  1287	  1290	  1297	  1338	  1344	  1357	  1733	  1739	  1946	  1963	  1996
	  2013	  2031	  2053	  2072	  2102	  2119	  2136	  2137	  2141	  2162	  2179	  2196	  2198	  2202
	  2208	  2214	  2222	  2233	  2238	  2246	  2247	  2248	  2296	  2313	  2327	  2347	  2364	  2391
	  2394	  2421	  2455	  2482	  2618	  2714	  2721	  2726	  2730	  2734	  2738	  2750	  2755	  2761
	  2764	  2767	  2770	  2773	  2776	  2779	  2782	  2784	  2794	  2799	  2815	  2829	  2834	  2842
	  2849	  2854	  2862	  2869	  2874	  2882	  2889	  2894	  2914	  2919	  2927	  2931	  2934	  2938
	  2941	  2969	  2974	  2981	  2984	  2986	  2988	  2990	  2992	  2994	  2996	  2998	  3000	  3002
	  3004	  3006	  3008	  3010	  3012	  3014	  3016	  3018	  3020	  3022	  3024	  3026	  3028	  3030
	  3032	  3034	  3036	  3043	  3056	  3060	  3062	  3074	  3079	  3084	  3089	  3097	  3101	  3103
	  3116	  3119	  3128	  3132	  3134	  3146	  3150	  3157	  3160	  3162	  3170	  3173	  3181	  3185
	  3187	  3199	  3203	  3210	  3213	  3215	  3217	  3226	  3230	  3238	  3245	  3248	  3256	  3260
	  3262	  3283	  3284	  3559	  3580	  3584	  3588	  3591	  3594	  3597	  3600	  3603	  3606	  3609
	  3612	  3616	  3623	  3626	  3629	  3632	  3635	  3638	  3640	  3643	  3650	  3653	  3656	  3658
	  3661	  3664	  3667	  3804	  3824	  3825	  3839
PSOUT	   441
PUSHD	    44#	   325	   361	   615	   616	   635	   685	   686	   705	   765	   766	   903	   904	   968
	   969	  1050	  1051	  1070	  1126	  1127	  1339	  1345	  1697	  1734	  1735	  1740	  1741	  1791
	  1813	  2218	  2223	  2438	  2451	  2470	  2600	  2611	  2619	  2818	  2904	  3313	  3544	  3555
	  3560	  3836	  3984	  4024	  4051
PUTIT	   248	   300	   348	   487	   598	   668	   737	   815	   883	   951	  1020	  1107	  1180	  1234
	  1320	  1415	  1443	  1544	  1627	  1678	  1713	  1757	  1782	  1836	  1883	  2271	  2579	  3310
	  3524	  3858	  3916	  3980	  4021	  4038
RFCOC	   458
RFMOD	   142	   454
RTIW	   149
RTN	    82	   238	   445	   461	   473	   501	   640	   710	   779	   856	   925	   990	  1075	  1153
	  1207	  1295	  1353	  1405	  1429	  1453	  1525	  1577	  1616	  1662	  1705	  1721	  1744	  1755
	  1764	  1792	  1811	  1824	  1843	  1848	  1849	  1857	  2258	  2404	  2490	  3296	  3322	  3329
	  3677	  3701	  3844	  3883	  3956	  3988	  4028	  4055
SFCOC	   472
SFMOD	   146	   229	   468
SIBE	   251
SIR	   160                                                                                                             SEQ 0197
SIXBTZ	    88
SOBF	   406
STIW	    81	   153	   234
STPAR	   230	   469
SYERR	  3877	  3947
TIME	  1418	  1446
TIMER	   491	   496
TMSG	   438