Google
 

Trailing-Edge - PDP-10 Archives - BB-V552A-SB_1983 - ibmcom.bwr
There are 3 other files named ibmcom.bwr in the archive. Click here to see a list.


Beware file for IBMCOM

         COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1983

     THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY  BE  USED
     AND COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE
     AND WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.   THIS
     SOFTWARE  OR ANY OTHER COPIES THEREOF MAY NOT BE PROVIDED OR
     OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.  NO  TITLE  TO
     AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.

     THE INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE
     WITHOUT  NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT
     BY DIGITAL EQUIPMENT CORPORATION.

     DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
     OF  ITS  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT SUPPLIED BY
     DIGITAL.


     1.  The IBMCOM  tape  you  receive  has  three  savesets  on  it:
         Documentation  files,  Binary files and Source Files.  Please
         restore all files from all three savesets.

     2.  CDRIVE and LPTSPL should  be  re-LINKed  to  obtain  the  new
         D60JSY.

     3.  In IBMCOM, since communication is expensive, it is  sometimes
         preferred  to  not  have SPRINT delete a recently transmitted
         card  deck.   To  help  with  this  situation  the  following
         unsupported patch is provided:

         In order to assure that SPRINT does not delete files that  do
         not  appear to have a correct $JOB card replace the following
         lines in SPRINT:

                PUSHJ   P,PROCER                ; Do ABORT processing
         EOF.1: PUSHJ   P,RELREQ                ; Send "release" to QUASAR
                MOVE    S1,L.IFN                ; Release the input file

         with

                PUSHJ   P,PROCER                ; Do ABORT processing
                PUSHJ   P,RELREQ                ; Send "release" to QUASAR
                MOVE    S1,L.IFN                ; Release the input file
                PJRST   F%REL                   ; and do not delete!
         EOF.1: PUSHJ   P,RELREQ                ; Send "release" to QUASAR
                MOVE    S1,L.IFN                ; Release the input file

         Please note:  with this patch, all decks without  $JOB  cards
         will  be  retained.  The system administrator should be aware
         that this could  allow  a  malicious  user  to  fill  up  the
         PS:<SPOOL> area with trash files.
                                                                Page 2


     4.  Please note that three monitor  modules  have  been  included
         with this tape.  They are D60SER, D6DINT, and D6SINT.  If you
         are installing IBMCOM for the first time,  then  it  will  be
         necessary   for   you   to   follow  the  monitor  rebuilding
         instructions in the TOPS-10 IBM Emulation/Termination manual,
         AA-D612B-TB.   It  will  not  be necessary for you to rebuild
         your current monitor if this tape is sent you as  an  update,
         and your current configuration supports IBMCOM.

     5.  There is a patch that needs to be applied to  4.1  QUASAR  to
         clear  up  an IBMCOM display problem.  In QSRNET, at NPRM.1+4
         replace:

                MOVE    S1,NETCOL(P1)           ;Get node name/number

         with

                SKIPN   S1,NETCOL(P1)           ;Get node number unless 0
                MOVE    S1,NETLOC(P1)           ;  then use node name

         This will clear up problems with the OPR>SHOW PARAMETERS  NET
         command.

     6.  If no network software (ANF10) is installed in  the  monitor,
         QUASAR will have some difficulties dealing with its node data
         base.  To solve this problem, either  install  ANF10  in  the
         monitor  or add the following patches to QUASAR (Please note:
         These patches will be incorporated into  a  future  autopatch
         tape.   As  a  result, be certain to retain origional sources
         for these files  since  autopatch  is  applied  to  unpatched
         sources.):

File 1) DSKB:QSRADM.ORI                 created: 0956 22-Feb-83
File 2) DSKB:QSRADM.MAC                 created: 1303 25-Feb-83

1)29            PJRST   SNDOPR          ;RETURN THE MSG TO ORION AND RETURN
****
;  Insert one line at DN60.1 plus one line
2)29            MOVEI   S1,G$MSG        ;Get the object block address
2)                                      ;  for coverage...  It is not actually
2)                                      ;  used ultimatly but is needed to
2)                                      ;  prevent ILM.
2)              PJRST   SNDOPR          ;RETURN THE MSG TO ORION AND RETURN
**************
1)48            MOVEM   S1,OBJ.ND(P1)   ;SYSTEM'IZE IT (NBR ON -10)
1)              MOVE    P2,S2           ;SAVE THE NODE DATA BASE ENTRY ADDRESS
****
;  Comment out a line at GETOBJ+4
2)48    ;       MOVEM   S1,OBJ.ND(P1)   ;SYSTEM'IZE IT (NBR ON -10)
2)              MOVE    P2,S2           ;SAVE THE NODE DATA BASE ENTRY ADDRESS
**************
                                                                Page 3


File 1) DSKB:QSRDSP.ORI                 created: 0955 22-Feb-83
File 2) DSKB:QSRDSP.MAC                 created: 0957 22-Feb-83

**************
1)3     BYTPTR: BLOCK   1               ;BYTE POINTER FOR $TEXT ROUTINE.
****
2)3     KLUDGE: BLOCK   1               ;Kludge flag to handle sho q conflicts
2)      BYTPTR: BLOCK   1               ;BYTE POINTER FOR $TEXT ROUTINE.
**************
1)9             SKIPN   S2,OBJ.ND(S2)           ;IF NO NODES,
1)              JRST    CHKO.1                  ;WIN,,CHECK FOR DN60 EMULATION
1)              CAME    S2,[-1]                 ;IF ALL NODES,
1)              CAMN    S2,NETNAM(P1)           ;   OR IF WE MATCH BY NAME,
1)              SKIPA                           ;THEN CHECK FOR DN60 EMULATION
1)              CAMN    S2,NETNBR(P1)           ;IF WE MATCH BY NODE NUMBER,
1)              SKIPA                           ;THEN CHECK FOR DN60 EMULATION
1)              $RETF                           ;ELSE RETURN FALSE
1)      CHKO.1: MOVE    S1,OBJSCH(T1)           ;GET THE SCHEDULING BITS
****
;  Change some lines beginning at CHKO.0: plus 6 lines.
2)9             MOVE    S2,OBJ.ND(S2)           ;Get this object node
2)              CAMN    S2,[-1]                 ;Is it all nodes?
2)              JRST    CHKO.1                  ;Yes, skip this
2)              MOVE    S1,OBJNOD(T1)           ;Get the object's node
2)              $CALL   N$MTCH                  ;Check for match
2)              $RETIF                          ;Quit if not this one
2)      CHKO.1: MOVE    S1,OBJSCH(T1)           ;GET THE SCHEDULING BITS
**************
1)15            MOVE    S1,NETCOL(P1)           ;GET THIS NODES NAME/NUMBER
1)              PUSHJ   P,CMPNOD                ;IS IT ONE WE WANT ???
1)              JUMPF   NPRM.3                  ;NO,,TRY NEXT
1)              MOVE    S1,NETCOL(P1)           ;GET THE NODE NAME/NUMBER
1)              PUSHJ   P,N$NODE##              ;FIND THAT NODE IN OUR DATA BASE
****
;  Add a line at NPRM.1 plus 1 line
2)15            SKIPN   S1,NETCOL(P1)           ;Get node number, is it 0?
2)              MOVE    S1,NETLOC(P1)           ;Yes, get node name
2)              PUSHJ   P,CMPNOD                ;IS IT ONE WE WANT ???
2)              JUMPF   NPRM.3                  ;NO,,TRY NEXT
;  Add a line at NPRM.1 plus 4 lines
2)              SKIPN   S1,NETCOL(P1)           ;Get node number, is it 0?
2)              MOVE    S1,NETLOC(P1)           ;Yes, get node name
2)              PUSHJ   P,N$NODE##              ;FIND THAT NODE IN OUR DATA BASE
**************
                                                                Page 4


File 1) DSKB:QSRDSP.ORI                 created: 0955 22-Feb-83
File 2) DSKB:QSRDSP.MAC                 created: 0957 22-Feb-83

**************
1)41    DEPOUT: SKIPN   NODE6B                  ;CHECK FOR KLUDGE
1)              SKIPA   S1,[-1]                 ;MAKE IT WILD
****
2)41    DEPOUT: SKIPN   KLUDGE                  ;Check for kludge
2)              SKIPA   S1,[-1]                 ;MAKE IT WILD
**************
1)41              JUMPF .POPJ                   ;RETURN IF FALSE OR NO MATCH
****
;  Add one line at DEPBAT plus 3 lines.
2)41            SKIPE   KLUDGE                  ;Check for kludge
2)                JUMPF .POPJ                   ;RETURN IF FALSE OR NO MATCH
**************
1)55    GETP.2: MOVE    T1,NODE6B               ;GET /NODE
1)              CAMN    T1,[-1]                 ;WAS /NODE SPECIFIED?
****
2)55    GETP.2: SETOM   KLUDGE                  ;Say no kludge
2)              MOVE    T1,NODE6B               ;GET /NODE
2)              CAMN    T1,[-1]                 ;WAS /NODE SPECIFIED?
**************
1)55            SETZM   NODE6B                  ;FLAG KLUDGE
1)              $RETT                           ;AND RETURN
****
;  Change one line at GETP.2 plus 10 lines
2)55            SETZM   KLUDGE                  ;FLAG KLUDGE
2)              $RETT                           ;AND RETURN
**************
                                                                Page 5


File 1) DSKB:QSRNET.ORI[50,5614]        created: 0957 22-Feb-83
File 2) DSKB:QSRNET.MAC[50,5614]        created: 1031 22-Feb-83

1)9     N$GNOD: $SAVE   <P1>                    ;SAVE P1 FOR A MINUTE
1)              SETZ    P1,                     ;Clear P1
****
2)9     N$GNOD: $SAVE   <S1,P1>                 ;SAVE S1 and P1 FOR A MINUTE
2)              $CALL   CONOD                   ;Check the node identifier
2)              SETZ    P1,                     ;Clear P1
**************
1)23            CAME    S1,NETNAM(S2)   ;S2 POINTS TO FIRST NAME'S DB ENTRY
****
;  Add one line at N$MTCH plus 5 lines
2)23            $CALL   CONOD           ;Check the node identifier
2)              CAME    S1,NETNAM(S2)   ;S2 POINTS TO FIRST NAME'S DB ENTRY
**************
1)28            CAME    S1,NETNAM(S2)           ;DO
****
;  Add one line at FNDD.0 plus 3 lines
2)28            $CALL   CONOD                   ;Check the node number
2)              CAME    S1,NETNAM(S2)           ;DO
**************
1)35            END
****
;  Add a new routine at the end of the module.
2)35            SUBTTL  CONOD  Compare node to 0
2)      ;  Called with S1 containing a node identifier.  If 0, then set to
2)      ;  the local node name if the local node number is 0.
2)      CONOD:  SKIPE   S1                      ;Is node number 0?
2)              JRST    CONO.1                  ;No
2)              SKIPN   G$LNBR                  ;Local node 0?
2)              MOVE    S1,G$LNAM               ;Use local node name
2)      CONO.1: $RET
2)              END
**************



[End of IBMCOM beware file]